Tools__Inspector2.st
changeset 10460 5e7e092fdd3b
parent 10425 c49cba2bd28e
child 10596 a18767a996d8
--- a/Tools__Inspector2.st	Thu Aug 04 21:22:05 2011 +0200
+++ b/Tools__Inspector2.st	Thu Aug 04 21:22:19 2011 +0200
@@ -18,7 +18,7 @@
 		browser'
 	classVariableNames:'LastExtent'
 	poolDictionaries:''
-	category:'Interface-Inspector 2'
+	category:'Interface-Inspector2'
 !
 
 Object subclass:#NavigationState
@@ -121,6 +121,7 @@
             label: 'Back'
             itemValue: backButtonAction
             translateLabel: true
+            isButton: true
             submenuChannel: backButtonMenuChannel
             labelImage: (ResourceRetriever XPToolbarIconLibrary historyBackIcon)
           )
@@ -129,6 +130,7 @@
             label: 'Forward'
             itemValue: forwardButtonAction
             translateLabel: true
+            isButton: true
             submenuChannel: forwardButtonMenuChannel
             labelImage: (ResourceRetriever XPToolbarIconLibrary historyForwardIcon)
           )
@@ -337,18 +339,20 @@
 !
 
 browseClassAction
+    | class |
 
-    | class |
     class := self currentObject class.
 
     browser isNil ifTrue:[
-        browser := Tools::NewSystemBrowser browseSingleClass: class
+        browser := Tools::NewSystemBrowser openInClass:class selector:nil "/ browseSingleClass: class
     ] ifFalse:[
-        browser spawnSingleClassBrowserFor:class in:#newBuffer.
+        browser spawnClassBrowserFor:(Array with:class) in:#newBuffer.
+        "/ browser spawnSingleClassBrowserFor:class in:#newBuffer.
         browser window raise.
     ]
 
     "Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-08-2011 / 14:24:41 / cg"
 !
 
 forwardButtonAction
@@ -429,7 +433,7 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__Inspector2.st,v 1.13 2011-07-29 19:14:34 cg Exp $'
+    ^'$Id: Tools__Inspector2.st,v 1.14 2011-08-04 19:22:19 cg Exp $'
 !
 
 version_SVN
@@ -610,11 +614,11 @@
 !Inspector2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.13 2011-07-29 19:14:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.14 2011-08-04 19:22:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.13 2011-07-29 19:14:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.14 2011-08-04 19:22:19 cg Exp $'
 !
 
 version_CVS_jvrany