equal
deleted
inserted
replaced
1162 ]. |
1162 ]. |
1163 ] ifFalse:[ |
1163 ] ifFalse:[ |
1164 m keyPress:key x:0 y:0. |
1164 m keyPress:key x:0 y:0. |
1165 ]. |
1165 ]. |
1166 |
1166 |
1167 "Modified: 9.1.1997 / 12:15:48 / cg" |
1167 "Modified: 25.2.1997 / 23:38:15 / cg" |
1168 ! |
1168 ! |
1169 |
1169 |
1170 showNoFocus:explicit |
1170 showNoFocus:explicit |
1171 "when stepping focus, hide any active menu" |
1171 "when stepping focus, hide any active menu" |
1172 |
1172 |
1173 self hideActiveMenu. |
1173 explicit ifTrue:[ |
1174 super showNoFocus:explicit |
1174 self hideActiveMenu. |
|
1175 super showNoFocus:explicit |
|
1176 ] |
|
1177 |
|
1178 "Modified: 25.2.1997 / 23:31:38 / cg" |
1175 ! ! |
1179 ! ! |
1176 |
1180 |
1177 !PullDownMenu methodsFor:'hiding/showing menus'! |
1181 !PullDownMenu methodsFor:'hiding/showing menus'! |
1178 |
1182 |
1179 hide |
1183 hide |
1665 ! ! |
1669 ! ! |
1666 |
1670 |
1667 !PullDownMenu class methodsFor:'documentation'! |
1671 !PullDownMenu class methodsFor:'documentation'! |
1668 |
1672 |
1669 version |
1673 version |
1670 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.71 1997-01-17 22:23:02 cg Exp $' |
1674 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.72 1997-02-25 22:40:10 cg Exp $' |
1671 ! ! |
1675 ! ! |