--- a/InspectorView.st	Tue Sep 21 12:31:42 2004 +0200
+++ b/InspectorView.st	Tue Sep 21 12:32:17 2004 +0200
@@ -1637,10 +1637,9 @@
     selectionIndex notNil ifTrue:[
         nm := listView listAt:selectionIndex.
         nm notNil ifTrue:[
-            self setTextSelection:(nm asString)
+            self setClipboardText:(nm asString)
         ]
     ]
-
 !
 
 doInspect:basic
@@ -1767,5 +1766,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.155 2004-07-30 15:27:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.156 2004-09-21 10:30:52 ca Exp $'
 ! !