Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorpenk
Thu, 13 May 2004 13:42:26 +0200
changeset 5841 ef94c18b32e2
parent 5840 b1a64f201aee
child 5842 ed293abd4f21
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Thu May 13 13:36:53 2004 +0200
+++ b/NewSystemBrowser.st	Thu May 13 13:42:26 2004 +0200
@@ -25091,13 +25091,13 @@
 methodTemplate
     "return a method definition template"
 
-    |s cls|
+    |s classes cls|
 
     cls := self theSingleSelectedClass.
     cls isNil ifTrue:[
-        cls := self selectedClasses value.
-        cls notNil ifTrue:[
-            cls := cls first.
+        classes := self selectedClasses value.
+        classes notEmptyOrNil ifTrue:[
+            cls := classes first.
         ]
     ].
     cls notNil ifTrue:[
@@ -35469,7 +35469,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.739 2004-05-13 11:36:53 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.740 2004-05-13 11:42:26 penk Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Thu May 13 13:36:53 2004 +0200
+++ b/Tools__NewSystemBrowser.st	Thu May 13 13:42:26 2004 +0200
@@ -25091,13 +25091,13 @@
 methodTemplate
     "return a method definition template"
 
-    |s cls|
+    |s classes cls|
 
     cls := self theSingleSelectedClass.
     cls isNil ifTrue:[
-        cls := self selectedClasses value.
-        cls notNil ifTrue:[
-            cls := cls first.
+        classes := self selectedClasses value.
+        classes notEmptyOrNil ifTrue:[
+            cls := classes first.
         ]
     ].
     cls notNil ifTrue:[
@@ -35469,7 +35469,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.739 2004-05-13 11:36:53 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.740 2004-05-13 11:42:26 penk Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool