Attachment 303689 Details for Bug 520089

sample for ContextMenuStrip

contextmenustrip_uia2atk_bug.py (text/x-python), 1.68 KB, created by calen chen on 2009-07-08 08:07:07 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: calen chen

Created: 2009-07-08 08:07:07 UTC

Size: 1.68 KB

patch

obsolete

>#!/usr/bin/env ipy
>
>##############################################################################
># Written by:  Ray Wang <rawang@novell.com>
># Date:        06/25/2008
># Description: the sample for winforms control:
>#              ContextMenu
>#              MenuItem
>##############################################################################
>
># The docstring below is used in the generated log file
>"""
>Test accessibility of "ContextMenu" control
>"""
>
># imports
>import clr
>clr.AddReference('System.Windows.Forms')
>clr.AddReference('System.Drawing')
>from System.Windows.Forms import (
>    Application, ContextMenu, Form, MenuItem, Timer, Label, BorderStyle, ContextMenuStrip, ToolStripMenuItem
>) 
>from System.Drawing import Icon, Color, Point
>
>class ContextMenuSample(Form):
>    """ContextMenu control class"""
>
>    def __init__(self):
>        """ContextMenuSample class init function."""
>
>        # setup title
>        self.Text = "ContextMenu_MenuItem control"
>
>        # create menuitems
>        self.menuitem1 = ToolStripMenuItem("Item 1")
>        self.menuitem2 = ToolStripMenuItem("Item 2")
>        self.menuitem3 = ToolStripMenuItem("Item 3")
>        self.menuitem4 = ToolStripMenuItem("Exit")
>
>
>        self.Click += self.on_form_click
>
>        # setup contextmenu
>        self.contextmenu = ContextMenuStrip()
>        self.contextmenu.Items.Add(self.menuitem1)
>        self.contextmenu.Items.Add(self.menuitem2)
>        self.contextmenu.Items.Add(self.menuitem3)
>        self.contextmenu.Items.Add(self.menuitem4)
>
>    def on_form_click(self, sender, event):
>        self.contextmenu.Show (self, Point(20, 20))
>
># run application
>form = ContextMenuSample()
>Application.EnableVisualStyles()
>Application.Run(form)

Actions: View

Attachments on bug 520089: 303688 | 303689