--- a/InspectorView.st	Fri Jul 27 22:14:58 2012 +0200
+++ b/InspectorView.st	Fri Jul 27 22:45:44 2012 +0200
@@ -960,7 +960,7 @@
 doubleClickOnLine:lineNr
     |objectToInspect app|
 
-    objectToInspect := self selection ? object.
+    objectToInspect := self selectedField.
 
     "HACK"
     app := (self topView perform:#application ifNotUnderstood: [nil]).
@@ -996,6 +996,14 @@
     ].
 !
 
+selectedField
+    ^ self theSingleSelectionIndex isNil 
+                            ifTrue:[object] 
+                            ifFalse:[self selection].
+
+    "Created: / 27-07-2012 / 22:42:23 / cg"
+!
+
 sizeChanged:how
     super sizeChanged:how.
 
@@ -1502,47 +1510,47 @@
 browse
     |cls|
 
-    cls := (self selection ? object) class.
+    cls := self selectedField class.
     (cls browserClass ? UserPreferences current systemBrowserClass) 
         openInClass:cls selector:nil
 
     "Created: / 14-12-1995 / 19:15:50 / cg"
-    "Modified: / 03-08-2011 / 15:07:42 / cg"
+    "Modified: / 27-07-2012 / 22:42:44 / cg"
 !
 
 browseClass
     |cls|
 
-    cls := (self selection ? object) class.
+    cls := self selectedField class.
     cls browserClass 
         openInClass:cls selector:nil
         "/ browseClass:cls
 
-    "Modified: / 03-08-2011 / 15:05:58 / cg"
+    "Modified: / 27-07-2012 / 22:42:39 / cg"
 !
 
 browseClassHierarchy
     |cls|
 
-    cls := (self selection ? object) class.
+    cls := self selectedField class.
     cls browserClass browseClassHierarchy:cls
 
-    "Modified: 3.5.1996 / 12:40:04 / cg"
+    "Modified: / 27-07-2012 / 22:42:47 / cg"
 !
 
 browseFullClassProtocol
     |cls|
 
-    cls := (self selection ? object) class.
+    cls := self selectedField class.
     cls browserClass browseFullClassProtocol:cls
 
-    "Modified: 3.5.1996 / 12:40:17 / cg"
+    "Modified: / 27-07-2012 / 22:42:50 / cg"
 !
 
 browseHome
     |sel mthd|
 
-    sel := self selection ? object.
+    sel := self selectedField.
     sel isBlock ifTrue:[
         mthd := sel homeMethod
     ] ifFalse:[
@@ -1555,6 +1563,8 @@
     ].
     mthd class browserClass 
         openInClass:mthd mclass selector:mthd selector
+
+    "Modified: / 27-07-2012 / 22:42:55 / cg"
 !
 
 browseMethodsClass
@@ -1775,7 +1785,7 @@
 letSelectedObjectPerform:aSelector
     |sel argString|
 
-    sel := self selection ? object.
+    sel := self selectedField.
     aSelector numArgs == 0 ifTrue:[
         (sel perform:aSelector) inspect.
         ^ self.
@@ -1788,7 +1798,7 @@
     ].
 self halt.
 
-    "Modified: / 07-10-2010 / 14:34:21 / cg"
+    "Modified: / 27-07-2012 / 22:43:37 / cg"
 !
 
 openFileBrowser
@@ -3182,7 +3192,7 @@
 
     |objectToInspect app |
 
-    objectToInspect := self selection ? object.
+    objectToInspect := self selectedField.
     objectToInspect notNil ifTrue:[
         (basic == #new and:[NewInspector::NewInspectorView notNil]) ifTrue:[
             NewInspector::NewInspectorView inspect:objectToInspect
@@ -3205,7 +3215,7 @@
     ].
 
     "Modified: / 06-07-2011 / 15:58:55 / jv"
-    "Modified: / 29-07-2011 / 21:07:21 / cg"
+    "Modified: / 27-07-2012 / 22:43:11 / cg"
 !
 
 doUpdate
@@ -3292,9 +3302,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.272 2012-07-25 11:22:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.273 2012-07-27 20:45:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.272 2012-07-25 11:22:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.273 2012-07-27 20:45:44 cg Exp $'
 ! !