equal
deleted
inserted
replaced
800 ] |
800 ] |
801 ] ifFalse:[ |
801 ] ifFalse:[ |
802 (keepMenu and:[toggleKeep not]) ifTrue:[ |
802 (keepMenu and:[toggleKeep not]) ifTrue:[ |
803 titleIndex == activeMenuNumber ifTrue:[ |
803 titleIndex == activeMenuNumber ifTrue:[ |
804 "same pressed again ... stay" |
804 "same pressed again ... stay" |
805 device grabPointerInView:self. |
805 titleIndex notNil ifTrue:[ |
|
806 device grabPointerInView:self. |
|
807 ]. |
806 ^ self |
808 ^ self |
807 ]. |
809 ]. |
808 "moving around below" |
810 "moving around below" |
809 activeMenuNumber isNil ifTrue:[^self]. |
811 activeMenuNumber isNil ifTrue:[^self]. |
810 activeMenu := menus at:activeMenuNumber. |
812 activeMenu := menus at:activeMenuNumber. |
1303 ! ! |
1305 ! ! |
1304 |
1306 |
1305 !PullDownMenu class methodsFor:'documentation'! |
1307 !PullDownMenu class methodsFor:'documentation'! |
1306 |
1308 |
1307 version |
1309 version |
1308 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.30 1996-01-14 12:02:38 ca Exp $' |
1310 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.31 1996-01-16 02:04:32 cg Exp $' |
1309 ! ! |
1311 ! ! |