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.
comment/format in: #tryToSelectKeyNamed:
authorClaus Gittinger <cg@exept.de>
Tue, 23 Oct 2012 19:16:52 +0200
changeset 11910 6087f8d5d9b4
parent 11909 9ea1b7aa98dc
child 11911 aa49a8d724b8
comment/format in: #tryToSelectKeyNamed: changed: #selectedKeyName
InspectorView.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
hg/stx-libtool