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.
changed: #startApplication:
authorClaus Gittinger <cg@exept.de>
Thu, 19 Nov 2009 15:25:03 +0100
changeset 9276 2293cc4e66bc
parent 9275 bff5fac9e455
child 9277 c0d2adc85051
changed: #startApplication:
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Thu Nov 19 15:15:22 2009 +0100
+++ b/NewSystemBrowser.st	Thu Nov 19 15:25:03 2009 +0100
@@ -42211,10 +42211,14 @@
     self methodVisibilityHolder value:#allButObject.
 !
 
-startApplication:cls
+startApplication:clsArg
     "double-click on a class to exec; or launch button.
      Return true if successful"
 
+    |cls|
+
+    cls := clsArg theNonMetaclass.
+
     (cls isBrowserStartable) ifFalse:[^ false].
 
     (cls isVisualStartable) ifTrue:[
@@ -43783,11 +43787,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1426 2009-11-18 16:11:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1427 2009-11-19 14:25:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1426 2009-11-18 16:11:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1427 2009-11-19 14:25:03 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Thu Nov 19 15:15:22 2009 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Nov 19 15:25:03 2009 +0100
@@ -42211,10 +42211,14 @@
     self methodVisibilityHolder value:#allButObject.
 !
 
-startApplication:cls
+startApplication:clsArg
     "double-click on a class to exec; or launch button.
      Return true if successful"
 
+    |cls|
+
+    cls := clsArg theNonMetaclass.
+
     (cls isBrowserStartable) ifFalse:[^ false].
 
     (cls isVisualStartable) ifTrue:[
@@ -43783,11 +43787,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1426 2009-11-18 16:11:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1427 2009-11-19 14:25:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1426 2009-11-18 16:11:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1427 2009-11-19 14:25:03 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool