--- a/DictInspV.st Mon Mar 29 16:52:58 1999 +0200
+++ b/DictInspV.st Mon Mar 29 17:11:21 1999 +0200
@@ -51,26 +51,30 @@
inspectedObject == Smalltalk ifTrue:[
items := #(
+ ('copy key' doCopyKey )
+ ('-')
('inspect' doInspect )
('inspect key' doInspectKey )
('basicInspect' doBasicInspect )
('inspect hierarchical' doNewInspect )
- ('-' nil )
+ ('-')
('ref chains' showReferences )
('references to key' showKeyReferences )
- ('-' nil )
+ ('-')
('add key' doAddKey )
('remove key' doRemoveKey )
).
] ifFalse:[
items := #(
+ ('copy key' doCopyKey )
+ ('-')
('inspect' doInspect )
('inspect key' doInspectKey )
('basicInspect' doBasicInspect )
('inspect hierarchical' doNewInspect )
- ('-' nil )
+ ('-')
('ref chains' showReferences )
- ('-' nil )
+ ('-')
('add key' doAddKey )
('remove key' doRemoveKey )
).
@@ -78,12 +82,12 @@
monitorProcess isNil ifTrue:[
items := items , #(
- ('-' nil )
+ ('-')
('start monitor' doStartMonitor )
).
] ifFalse:[
items := items , #(
- ('-' nil )
+ ('-')
('stop monitor' doStopMonitor )
).
].
@@ -92,7 +96,7 @@
selectedLine isNil ifTrue:[
m disableAll:#(doInspect doInspectKey doBasicInspect doNewInspect
- doRemoveKey doStartMonitor doStopMonitor
+ doRemoveKey doStartMonitor doStopMonitor doCopyKey
)
].
^ m.
@@ -256,5 +260,5 @@
!DictionaryInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.32 1998-07-23 21:32:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.33 1999-03-29 15:11:21 cg Exp $'
! !
--- a/DictionaryInspectorView.st Mon Mar 29 16:52:58 1999 +0200
+++ b/DictionaryInspectorView.st Mon Mar 29 17:11:21 1999 +0200
@@ -51,26 +51,30 @@
inspectedObject == Smalltalk ifTrue:[
items := #(
+ ('copy key' doCopyKey )
+ ('-')
('inspect' doInspect )
('inspect key' doInspectKey )
('basicInspect' doBasicInspect )
('inspect hierarchical' doNewInspect )
- ('-' nil )
+ ('-')
('ref chains' showReferences )
('references to key' showKeyReferences )
- ('-' nil )
+ ('-')
('add key' doAddKey )
('remove key' doRemoveKey )
).
] ifFalse:[
items := #(
+ ('copy key' doCopyKey )
+ ('-')
('inspect' doInspect )
('inspect key' doInspectKey )
('basicInspect' doBasicInspect )
('inspect hierarchical' doNewInspect )
- ('-' nil )
+ ('-')
('ref chains' showReferences )
- ('-' nil )
+ ('-')
('add key' doAddKey )
('remove key' doRemoveKey )
).
@@ -78,12 +82,12 @@
monitorProcess isNil ifTrue:[
items := items , #(
- ('-' nil )
+ ('-')
('start monitor' doStartMonitor )
).
] ifFalse:[
items := items , #(
- ('-' nil )
+ ('-')
('stop monitor' doStopMonitor )
).
].
@@ -92,7 +96,7 @@
selectedLine isNil ifTrue:[
m disableAll:#(doInspect doInspectKey doBasicInspect doNewInspect
- doRemoveKey doStartMonitor doStopMonitor
+ doRemoveKey doStartMonitor doStopMonitor doCopyKey
)
].
^ m.
@@ -256,5 +260,5 @@
!DictionaryInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.32 1998-07-23 21:32:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.33 1999-03-29 15:11:21 cg Exp $'
! !
--- a/InspView.st Mon Mar 29 16:52:58 1999 +0200
+++ b/InspView.st Mon Mar 29 17:11:21 1999 +0200
@@ -394,20 +394,22 @@
|items labels selectors m|
items := #(
- ('inspect' #doInspect )
- ('basicInspect' #doBasicInspect )
- ('inspect hierarchical' #doNewInspect )
- ('-')
- ('ref chains' #showReferences )
- ('-')
- ('browse' #browse )
- ('browse class hierarchy' #browseClassHierarchy )
- ('browse full class protocol' #browseFullClassProtocol)
- ('-')
- ('trace messages' #doTrace )
- ('trap message' #doTrapAll )
- ('trap all messages' #doTrap )
- ('untrace/untrap' #doUntrace )
+ ('copy instVar name' #doCopyKey )
+ ('-')
+ ('inspect' #doInspect )
+ ('basicInspect' #doBasicInspect )
+ ('inspect hierarchical' #doNewInspect )
+ ('-')
+ ('ref chains' #showReferences )
+ ('-')
+ ('browse' #browse )
+ ('browse class hierarchy' #browseClassHierarchy )
+ ('browse full class protocol' #browseFullClassProtocol)
+ ('-')
+ ('trace messages' #doTrace )
+ ('trap message' #doTrapAll )
+ ('trap all messages' #doTrap )
+ ('untrace/untrap' #doUntrace )
).
allowFollow ifTrue:[
@@ -458,7 +460,7 @@
selectedLine isNil ifTrue:[
m disableAll:#(doFollow doInspect doBasicInspect doNewInspect
browse browseClassHierarchy browseFullClassProtocol
- doStartMonitor)
+ doStartMonitor doCopyKey)
].
(selectedLine == 1) ifTrue:[
m disableAll:#(doFollow)
@@ -840,6 +842,20 @@
inspectedObject changed
!
+doCopyKey
+ "put the instVar-name into the text-copy-buffer"
+
+ |nm|
+
+ selectedLine notNil ifTrue:[
+ nm := listView listAt:selectedLine.
+ nm notNil ifTrue:[
+ self setTextSelection:(nm asString)
+ ]
+ ]
+
+!
+
doInspect:basic
"user selected inspect-menu entry"
@@ -1019,5 +1035,5 @@
!InspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.85 1999-02-12 16:06:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.86 1999-03-29 15:10:47 cg Exp $'
! !
--- a/InspectorView.st Mon Mar 29 16:52:58 1999 +0200
+++ b/InspectorView.st Mon Mar 29 17:11:21 1999 +0200
@@ -394,20 +394,22 @@
|items labels selectors m|
items := #(
- ('inspect' #doInspect )
- ('basicInspect' #doBasicInspect )
- ('inspect hierarchical' #doNewInspect )
- ('-')
- ('ref chains' #showReferences )
- ('-')
- ('browse' #browse )
- ('browse class hierarchy' #browseClassHierarchy )
- ('browse full class protocol' #browseFullClassProtocol)
- ('-')
- ('trace messages' #doTrace )
- ('trap message' #doTrapAll )
- ('trap all messages' #doTrap )
- ('untrace/untrap' #doUntrace )
+ ('copy instVar name' #doCopyKey )
+ ('-')
+ ('inspect' #doInspect )
+ ('basicInspect' #doBasicInspect )
+ ('inspect hierarchical' #doNewInspect )
+ ('-')
+ ('ref chains' #showReferences )
+ ('-')
+ ('browse' #browse )
+ ('browse class hierarchy' #browseClassHierarchy )
+ ('browse full class protocol' #browseFullClassProtocol)
+ ('-')
+ ('trace messages' #doTrace )
+ ('trap message' #doTrapAll )
+ ('trap all messages' #doTrap )
+ ('untrace/untrap' #doUntrace )
).
allowFollow ifTrue:[
@@ -458,7 +460,7 @@
selectedLine isNil ifTrue:[
m disableAll:#(doFollow doInspect doBasicInspect doNewInspect
browse browseClassHierarchy browseFullClassProtocol
- doStartMonitor)
+ doStartMonitor doCopyKey)
].
(selectedLine == 1) ifTrue:[
m disableAll:#(doFollow)
@@ -840,6 +842,20 @@
inspectedObject changed
!
+doCopyKey
+ "put the instVar-name into the text-copy-buffer"
+
+ |nm|
+
+ selectedLine notNil ifTrue:[
+ nm := listView listAt:selectedLine.
+ nm notNil ifTrue:[
+ self setTextSelection:(nm asString)
+ ]
+ ]
+
+!
+
doInspect:basic
"user selected inspect-menu entry"
@@ -1019,5 +1035,5 @@
!InspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.85 1999-02-12 16:06:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.86 1999-03-29 15:10:47 cg Exp $'
! !
--- a/OCInspView.st Mon Mar 29 16:52:58 1999 +0200
+++ b/OCInspView.st Mon Mar 29 17:11:21 1999 +0200
@@ -88,15 +88,15 @@
('inspect' doInspect )
('basicInspect' doBasicInspect )
('inspect hierarchical' doNewInspect )
- ('-' nil )
+ ('-')
('ref chains' showReferences )
- ('-' nil )
+ ('-')
('browse' browse )
('browse class hierarchy' browseClassHierarchy )
('browse full class protocol' browseFullClassProtocol)
- ('-' nil )
+ ('-')
('remove' removeIndex )
- ('-' nil )
+ ('-')
('show more' showMore )
).
] ifFalse:[
@@ -104,21 +104,21 @@
('inspect' doInspect )
('basicInspect' doBasicInspect )
('inspect hierarchical' doNewInspect )
- ('-' nil )
+ ('-')
('ref chains' showReferences )
- ('-' nil )
+ ('-')
('browse' browse )
('browse class hierarchy' browseClassHierarchy )
('browse full class protocol' browseFullClassProtocol)
- ('-' nil )
- ('remove' removeIndex )
+ ('-')
+ ('remove' removeIndex )
).
].
monitorProcess isNil ifTrue:[
- items := items , #( ('-' nil) ('start monitor' doStartMonitor)).
+ items := items , #( ('-') ('start monitor' doStartMonitor)).
] ifFalse:[
- items := items , #( ('-' nil) ('stop monitor' doStopMonitor)).
+ items := items , #( ('-') ('stop monitor' doStopMonitor)).
].
m := PopUpMenu
@@ -201,5 +201,5 @@
!OrderedCollectionInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/OCInspView.st,v 1.23 1998-07-23 21:33:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/OCInspView.st,v 1.24 1999-03-29 15:10:59 cg Exp $'
! !
--- a/OrderedCollectionInspectorView.st Mon Mar 29 16:52:58 1999 +0200
+++ b/OrderedCollectionInspectorView.st Mon Mar 29 17:11:21 1999 +0200
@@ -88,15 +88,15 @@
('inspect' doInspect )
('basicInspect' doBasicInspect )
('inspect hierarchical' doNewInspect )
- ('-' nil )
+ ('-')
('ref chains' showReferences )
- ('-' nil )
+ ('-')
('browse' browse )
('browse class hierarchy' browseClassHierarchy )
('browse full class protocol' browseFullClassProtocol)
- ('-' nil )
+ ('-')
('remove' removeIndex )
- ('-' nil )
+ ('-')
('show more' showMore )
).
] ifFalse:[
@@ -104,21 +104,21 @@
('inspect' doInspect )
('basicInspect' doBasicInspect )
('inspect hierarchical' doNewInspect )
- ('-' nil )
+ ('-')
('ref chains' showReferences )
- ('-' nil )
+ ('-')
('browse' browse )
('browse class hierarchy' browseClassHierarchy )
('browse full class protocol' browseFullClassProtocol)
- ('-' nil )
- ('remove' removeIndex )
+ ('-')
+ ('remove' removeIndex )
).
].
monitorProcess isNil ifTrue:[
- items := items , #( ('-' nil) ('start monitor' doStartMonitor)).
+ items := items , #( ('-') ('start monitor' doStartMonitor)).
] ifFalse:[
- items := items , #( ('-' nil) ('stop monitor' doStopMonitor)).
+ items := items , #( ('-') ('stop monitor' doStopMonitor)).
].
m := PopUpMenu
@@ -201,5 +201,5 @@
!OrderedCollectionInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.23 1998-07-23 21:33:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.24 1999-03-29 15:10:59 cg Exp $'
! !