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.
bug 821
authorClaus Gittinger <cg@exept.de>
Wed, 07 May 2008 11:13:03 +0200
changeset 8107 7817e490db38
parent 8106 020e7fae9a26
child 8108 b6512bca7e3f
bug 821
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Wed May 07 09:53:48 2008 +0200
+++ b/NewSystemBrowser.st	Wed May 07 11:13:03 2008 +0200
@@ -112,7 +112,7 @@
 
     NewLauncher isNil ifTrue:[^ self].
 
-    action := [self open].
+    action := [ (Smalltalk at:self name) open ].
 
     icon := [NewLauncher startNewSystemBrowserIcon]. "/ self defaultIcon magnifiedTo:28@28.
 
@@ -41703,7 +41703,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1203 2008-05-05 12:25:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1204 2008-05-07 09:13:03 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Wed May 07 09:53:48 2008 +0200
+++ b/Tools__NewSystemBrowser.st	Wed May 07 11:13:03 2008 +0200
@@ -112,7 +112,7 @@
 
     NewLauncher isNil ifTrue:[^ self].
 
-    action := [self open].
+    action := [ (Smalltalk at:self name) open ].
 
     icon := [NewLauncher startNewSystemBrowserIcon]. "/ self defaultIcon magnifiedTo:28@28.
 
@@ -41703,7 +41703,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1203 2008-05-05 12:25:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1204 2008-05-07 09:13:03 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool