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: #browseClass:
authorClaus Gittinger <cg@exept.de>
Sat, 15 Jan 2011 14:08:05 +0100
changeset 9684 8c83477f6688
parent 9683 83fb945b7a5a
child 9685 629e1d789a2d
changed: #browseClass:
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Fri Jan 14 13:53:49 2011 +0100
+++ b/NewSystemBrowser.st	Sat Jan 15 14:08:05 2011 +0100
@@ -11594,11 +11594,19 @@
 browseClass:aClass
     "launch a single class browser."
 
-    ^ self basicNew spawnClassBrowserFor:(Array with:aClass) in:#newBrowser.
+    |browser|
+
+    browser := self basicNew spawnClassBrowserFor:(Array with:aClass theNonMetaclass) in:#newBrowser.
+    aClass isMeta ifTrue:[
+        browser switchToClass:aClass.
+    ].
+    ^ browser.
 
     "
      self browseClass:Array
     "
+
+    "Modified: / 15-01-2011 / 14:07:36 / cg"
 !
 
 browseClasses:aCollectionOfClasses
@@ -44791,11 +44799,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1499 2011-01-15 13:08:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1499 2011-01-15 13:08:05 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Fri Jan 14 13:53:49 2011 +0100
+++ b/Tools__NewSystemBrowser.st	Sat Jan 15 14:08:05 2011 +0100
@@ -11594,11 +11594,19 @@
 browseClass:aClass
     "launch a single class browser."
 
-    ^ self basicNew spawnClassBrowserFor:(Array with:aClass) in:#newBrowser.
+    |browser|
+
+    browser := self basicNew spawnClassBrowserFor:(Array with:aClass theNonMetaclass) in:#newBrowser.
+    aClass isMeta ifTrue:[
+        browser switchToClass:aClass.
+    ].
+    ^ browser.
 
     "
      self browseClass:Array
     "
+
+    "Modified: / 15-01-2011 / 14:07:36 / cg"
 !
 
 browseClasses:aCollectionOfClasses
@@ -44791,11 +44799,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1499 2011-01-15 13:08:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1498 2011-01-13 13:14:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1499 2011-01-15 13:08:05 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool