--- 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!