*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 29 Jun 2005 22:20:53 +0200
changeset 6331 0818ed0959c4
parent 6330 24949170ff90
child 6332 ae0664fcc851
*** empty log message ***
NewSystemBrowser.st
Tools__NewSystemBrowser.st
--- a/NewSystemBrowser.st	Wed Jun 29 18:21:17 2005 +0200
+++ b/NewSystemBrowser.st	Wed Jun 29 22:20:53 2005 +0200
@@ -24698,7 +24698,8 @@
                     okLabel:(resources string:okLabel)
                     title:(resources string:title)
                     onCancel:nil
-                    list:list.
+                    list:list
+                    entryCompletionBlock:DoWhatIMeanSupport classNameEntryCompletionBlock.
     newClassName isNil ifTrue:[^ self].
     (newClassName startsWith:'---- ') ifTrue:[^ self].
 
@@ -36743,7 +36744,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.840 2005-06-28 16:54:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.841 2005-06-29 20:20:53 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Wed Jun 29 18:21:17 2005 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Jun 29 22:20:53 2005 +0200
@@ -24698,7 +24698,8 @@
                     okLabel:(resources string:okLabel)
                     title:(resources string:title)
                     onCancel:nil
-                    list:list.
+                    list:list
+                    entryCompletionBlock:DoWhatIMeanSupport classNameEntryCompletionBlock.
     newClassName isNil ifTrue:[^ self].
     (newClassName startsWith:'---- ') ifTrue:[^ self].
 
@@ -36743,7 +36744,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.840 2005-06-28 16:54:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.841 2005-06-29 20:20:53 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!