--- a/NewSystemBrowser.st Tue Jul 12 15:56:43 2005 +0200
+++ b/NewSystemBrowser.st Wed Jul 13 11:18:18 2005 +0200
@@ -24827,7 +24827,7 @@
someMethodCategories addFirst:nil.
someMethodCategories addAllFirst:someRecentlyVisitedMethodCategories.
].
-self halt.
+
newProtocol := self
askForMethodCategory:'Name of new protocol:'
title:'New MethodCategory'
@@ -36757,7 +36757,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.844 2005-07-06 11:30:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.845 2005-07-13 09:18:18 cg Exp $'
! !
NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st Tue Jul 12 15:56:43 2005 +0200
+++ b/Tools__NewSystemBrowser.st Wed Jul 13 11:18:18 2005 +0200
@@ -24827,7 +24827,7 @@
someMethodCategories addFirst:nil.
someMethodCategories addAllFirst:someRecentlyVisitedMethodCategories.
].
-self halt.
+
newProtocol := self
askForMethodCategory:'Name of new protocol:'
title:'New MethodCategory'
@@ -36757,7 +36757,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.844 2005-07-06 11:30:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.845 2005-07-13 09:18:18 cg Exp $'
! !
NewSystemBrowser initialize!