# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1351012612 -7200
# Node ID 6087f8d5d9b49ea723c2497d0e83b5d1c7f699e1
# Parent  9ea1b7aa98dcd176cf17e922d8ca4ac737d70201
comment/format in: #tryToSelectKeyNamed:
changed: #selectedKeyName

diff -r 9ea1b7aa98dc -r 6087f8d5d9b4 InspectorView.st
--- a/InspectorView.st	Tue Oct 23 17:05:29 2012 +0200
+++ b/InspectorView.st	Tue Oct 23 19:16:52 2012 +0200
@@ -3117,8 +3117,15 @@
 !
 
 selectedKeyName
+    |sel|
+
     selectionIndex notNil ifTrue:[
-        ^ listView listAt:selectionIndex.
+        sel := listView listAt:selectionIndex.
+        sel notNil ifTrue:[
+            sel := sel string.
+            sel := sel copyUpTo:(Character space).
+            ^ sel
+        ].
     ].
     ^ nil
 !
@@ -3340,9 +3347,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.288 2012-10-23 15:05:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.289 2012-10-23 17:16:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.288 2012-10-23 15:05:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.289 2012-10-23 17:16:52 cg Exp $'
 ! !