diff -r ace25772463d -r 86dd024ed773 ClickMenuView.st
--- 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 $'
 ! !