--- a/ClickMenuView.st Sat Apr 27 20:13:37 1996 +0200
+++ b/ClickMenuView.st Sat Apr 27 20:21:37 1996 +0200
@@ -38,18 +38,26 @@
ClickMenuViews are like menuViews, but deselects automatically
after clicked on an entry.
- ClickMenuViews can be used as static menus (i.e. non-popping);
+ ClickMenuViews can be used as persistent menus (i.e. non-popping);
for example, the old launcher uses an instance of ClickMenuView.
+ CAVEAT:
+ to support a better NextStep look, some popUpMenus should
+ become automatically a clickMenu ... (really ?)
+
[author:]
Claus Gittinger
+
+ [see also:]
+ PopUpMenu PullDownMenu
+ MenuView
"
!
examples
"
stupid example:
-
+ [exBegin]
|top menu1 menu2 application|
application := Plug new.
@@ -86,7 +94,7 @@
nil
moreFoo
nil
- destroy
+ quit
)
receiver:application.
@@ -105,21 +113,23 @@
menu1 resize; open.
top add:menu1.
top openWithExtent:(menu1 extent).
-
-
-
+ [exEnd]
"
! !
!ClickMenuView methodsFor:'event handling'!
buttonRelease:button x:x y:y
+ "redefined to automatically deselect on release"
+
super buttonRelease:button x:x y:y.
self selection:nil
+
+ "Modified: 27.4.1996 / 14:42:07 / cg"
! !
!ClickMenuView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ClickMenuView.st,v 1.10 1996-04-25 17:30:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ClickMenuView.st,v 1.11 1996-04-27 18:20:57 cg Exp $'
! !