--- a/PullDownMenu.st Tue Mar 05 17:36:46 1996 +0100
+++ b/PullDownMenu.st Tue Mar 05 17:42:52 1996 +0100
@@ -970,16 +970,19 @@
|m|
activeMenuNumber notNil ifTrue:[
- (m := menus at:activeMenuNumber) notNil ifTrue:[
- m beInvisible.
- ].
- self unHighlightActiveTitle.
- activeMenuNumber := nil
+ (m := menus at:activeMenuNumber) notNil ifTrue:[
+ m beInvisible.
+ ].
+ self unHighlightActiveTitle.
+ activeMenuNumber := nil
].
aBoolean ifTrue:[
- device ungrabPointer.
- self cursor:Cursor normal
+ device ungrabKeyboard.
+ device ungrabPointer.
+ self cursor:Cursor normal
].
+
+ "Modified: 5.3.1996 / 17:41:46 / cg"
!
pullMenu:aNumber
@@ -1023,11 +1026,11 @@
regainControl
keepMenu ifTrue:[
device grabPointerInView:self.
-device grabKeyboardInView:self.
+ device grabKeyboardInView:self.
self cursor:Cursor upRightArrow
]
- "Modified: 1.3.1996 / 13:20:25 / cg"
+ "Modified: 5.3.1996 / 17:41:53 / cg"
! !
!PullDownMenu methodsFor:'initialize / release'!
@@ -1338,5 +1341,5 @@
!PullDownMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.37 1996-03-04 22:29:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.38 1996-03-05 16:42:52 cg Exp $'
! !