equal
deleted
inserted
replaced
1635 |nm| |
1635 |nm| |
1636 |
1636 |
1637 selectionIndex notNil ifTrue:[ |
1637 selectionIndex notNil ifTrue:[ |
1638 nm := listView listAt:selectionIndex. |
1638 nm := listView listAt:selectionIndex. |
1639 nm notNil ifTrue:[ |
1639 nm notNil ifTrue:[ |
1640 self setTextSelection:(nm asString) |
1640 self setClipboardText:(nm asString) |
1641 ] |
1641 ] |
1642 ] |
1642 ] |
1643 |
|
1644 ! |
1643 ! |
1645 |
1644 |
1646 doInspect:basic |
1645 doInspect:basic |
1647 "user selected inspect-menu entry" |
1646 "user selected inspect-menu entry" |
1648 |
1647 |
1765 ! ! |
1764 ! ! |
1766 |
1765 |
1767 !InspectorView class methodsFor:'documentation'! |
1766 !InspectorView class methodsFor:'documentation'! |
1768 |
1767 |
1769 version |
1768 version |
1770 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.155 2004-07-30 15:27:09 cg Exp $' |
1769 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.156 2004-09-21 10:30:52 ca Exp $' |
1771 ! ! |
1770 ! ! |