# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 885892531 -3600
# Node ID fde17b1640d62f06e1374a28faae80b95f1b4bc0
# Parent  83ebfc3320aa7fef7e1c3d5d07ad94efbcef7256
Use Class>>selector notation to be consistent with UIPainter and
Debugger. Support class name completion.

diff -r 83ebfc3320aa -r fde17b1640d6 MenuEditor.st
--- a/MenuEditor.st	Mon Jan 26 17:23:07 1998 +0100
+++ b/MenuEditor.st	Tue Jan 27 10:15:31 1998 +0100
@@ -1381,7 +1381,9 @@
 
 defaultInfoLabel
 
-    ^(specClass ? 'No class defined') printString, ' << ', self treeView selectorName
+    ^(specClass ? 'No class defined') printString, '>>', self treeView selectorName
+
+    "Modified: / 27.1.1998 / 09:18:51 / stefan"
 ! !
 
 !MenuEditor methodsFor:'aspects'!
@@ -2074,6 +2076,16 @@
     box okText:'OK'.
     box abortText:'Cancel'.
     box initialText: 'ApplicationModel'.
+    box entryCompletionBlock:[:contents |
+        |s what m|
+
+        s := contents withoutSpaces.
+        what := Smalltalk classnameCompletion:s.
+        box contents:what first.
+        (what at:2) size ~~ 1 ifTrue:[
+            self beep
+        ]
+    ].
     box showAtPointer.
     box accepted
     ifTrue:
@@ -2081,8 +2093,7 @@
         self loadFromInClassesOf: box contents asSymbol
     ]
 
-
-
+    "Modified: / 26.1.1998 / 22:20:41 / stefan"
 !
 
 loadFromInClassesOf: aSuperclassOrSymbol