File: Menu2.scr

package info (click to toggle)
motif 2.3.4-13
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 81,160 kB
  • ctags: 51,769
  • sloc: ansic: 596,938; cpp: 3,951; yacc: 2,854; makefile: 2,070; csh: 1,199; sh: 1,070; lex: 455
file content (133 lines) | stat: -rw-r--r-- 3,645 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
# $XConsortium: Menu2.scr /main/6 1995/07/17 20:25:52 drk $
# 
# Motif
#
# Copyright (c) 1987-2012, The Open Group. All rights reserved.
#
# These libraries and programs are free software; you can
# redistribute them and/or modify them under the terms of the GNU
# Lesser General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option)
# any later version.
#
# These libraries and programs are distributed in the hope that
# they will be useful, but WITHOUT ANY WARRANTY; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU Lesser General Public License for more
# details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with these librararies and programs; if not, write
# to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
# Floor, Boston, MA 02110-1301 USA
# 
# 
# HISTORY
# 

# A client window will appear with four row column widgets.  The
#  first will contain four pushbuttons, the next two will each
#  contain two option menu widgets, and the fourth will contain a
#  toggle button, a push button and a menu bar.

CompareVisual Shell1

# Give focus to the client window. 

WindowFocus Shell1

# Select "button1" with MB1.  The button will be set insensitive.

LocatePointer button1
ClickMB Btn1
CompareVisual button1

#  The text on top of the button next to the label "OptionMenu1
#  (called the menu history) will change to read "option2a". 

CompareVisual option_menu1

# Click and hold down MB1 on the button next to the label
#  "OptionMenu2".  Note that the "3" in "option3b" is
#  underlined (indicating a mnemonic).  Release MB1. 

LocatePointer option_menu2 ROptionButton
PressMB Btn1
CompareVisual submenu2
ReleaseMB Btn1

# Select "button2" with MB1. 

LocatePointer button2
ClickMB Btn1

# Again click and hold down MB1 on the button next to the label
#  "OptionMenu2".  Note that the "3" in "option3b" is no
#  longer underlined. 
# Subsequent selections of button2 will alternate between the two
#  states described above. 

LocatePointer option_menu2 ROptionButton
PressMB Btn1
CompareVisual submenu2
ReleaseMB Btn1

Continue

# Give focus to the client window. 

WindowFocus Shell1

# Select "button3" with MB1.  The option menu "OptionMenu1" will
#   become insensitive. 

LocatePointer button3
ClickMB Btn1
CompareVisual option_menu1

# Again, select "button3" with MB1.  The option menu
#  "OptionMenu1" will be set sensitive. 

LocatePointer button3
ClickMB Btn1
CompareVisual option_menu1

# Select "button4" with MB1.  The button will be set insensitive.
#   The label for the option menu "OptionMenu4" will be changed to
#   "NewMenulabel". 

LocatePointer button4
ClickMB Btn1
CompareVisual option_menu4 RLabel

# Press and Hold MB1 on the Pixmap to the right of "NewMenuLabel". An
#  Option Menu should appear with two Pixmaps. Move the pointer into
#   the Smile Face Pixmap and release MB1. The Smile Face Pixmap should now
#   be in the Selection area for "NewMenuLabel". 

LocatePointer option_menu4 ROptionButton
PressMB Btn1
CompareVisual submenu4
LocatePointer option7u2
ReleaseMB Btn1
CompareVisual option_menu4
Continue

# Verify first that ToggleButton and PushButton are visually the same
#   size in height.  Then verify that the pulldown menu containing
#   gadgets and the pulldown containing widgets have entries which are
#   the same size in height.

CompareVisual rc
LocatePointer Buttons
ClickMB Btn1
CompareVisual menu1
ClickKey KCancel

LocatePointer Gadgets
ClickMB Btn1
CompareVisual menu2
ClickKey KCancel

Continue
Exit