--- a/InspView.st Sat Dec 07 13:54:56 1996 +0100
+++ b/InspView.st Wed Dec 11 17:07:38 1996 +0100
@@ -18,7 +18,7 @@
category:'Interface-Inspector'
!
-!InspectorView class methodsFor:'documentation'!
+!InspectorView class methodsFor:'documentation'!
copyright
"
@@ -74,7 +74,7 @@
"
! !
-!InspectorView class methodsFor:'instance creation'!
+!InspectorView class methodsFor:'instance creation'!
for:anObject
"create and launch a new inspector for anObject.
@@ -124,8 +124,9 @@
"kludge: must realize first, to be able to set menu again"
topView openAndWait.
- topView windowGroup focusSequence:(Array with:inspectorView listView
- with:inspectorView workspace).
+ topView windowGroup
+ focusSequence:(Array with:inspectorView listView
+ with:inspectorView workspace).
inspectorView inspect:anObject.
anInstVarName notNil ifTrue:[
@@ -139,8 +140,11 @@
m := 1 asValue.
InspectorView openOn:m monitor:'value'.
- Delay waitForSeconds:1.
- m value:2
+
+ 2 to:10 do:[:i |
+ Delay waitForSeconds:1.
+ m value:i
+ ]
"
"
@@ -153,10 +157,10 @@
"
"Created: 1.3.1996 / 19:30:50 / cg"
- "Modified: 1.3.1996 / 19:35:19 / cg"
+ "Modified: 11.12.1996 / 17:07:17 / cg"
! !
-!InspectorView class methodsFor:'defaults'!
+!InspectorView class methodsFor:'defaults'!
defaultIcon
DefaultIcon isNil ifTrue:[
@@ -764,11 +768,11 @@
monitor:anInstVarName
"start a monitoring process"
- listView setSelectElement:anInstVarName.
+ listView selectElement:anInstVarName.
self doStartMonitor
"Created: 1.3.1996 / 19:31:45 / cg"
- "Modified: 26.5.1996 / 15:03:30 / cg"
+ "Modified: 11.12.1996 / 17:05:18 / cg"
!
showLast
@@ -853,8 +857,8 @@
"Modified: 28.6.1996 / 15:11:27 / cg"
! !
-!InspectorView class methodsFor:'documentation'!
+!InspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.55 1996-09-30 21:01:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.56 1996-12-11 16:07:38 cg Exp $'
! !
--- a/InspectorView.st Sat Dec 07 13:54:56 1996 +0100
+++ b/InspectorView.st Wed Dec 11 17:07:38 1996 +0100
@@ -18,7 +18,7 @@
category:'Interface-Inspector'
!
-!InspectorView class methodsFor:'documentation'!
+!InspectorView class methodsFor:'documentation'!
copyright
"
@@ -74,7 +74,7 @@
"
! !
-!InspectorView class methodsFor:'instance creation'!
+!InspectorView class methodsFor:'instance creation'!
for:anObject
"create and launch a new inspector for anObject.
@@ -124,8 +124,9 @@
"kludge: must realize first, to be able to set menu again"
topView openAndWait.
- topView windowGroup focusSequence:(Array with:inspectorView listView
- with:inspectorView workspace).
+ topView windowGroup
+ focusSequence:(Array with:inspectorView listView
+ with:inspectorView workspace).
inspectorView inspect:anObject.
anInstVarName notNil ifTrue:[
@@ -139,8 +140,11 @@
m := 1 asValue.
InspectorView openOn:m monitor:'value'.
- Delay waitForSeconds:1.
- m value:2
+
+ 2 to:10 do:[:i |
+ Delay waitForSeconds:1.
+ m value:i
+ ]
"
"
@@ -153,10 +157,10 @@
"
"Created: 1.3.1996 / 19:30:50 / cg"
- "Modified: 1.3.1996 / 19:35:19 / cg"
+ "Modified: 11.12.1996 / 17:07:17 / cg"
! !
-!InspectorView class methodsFor:'defaults'!
+!InspectorView class methodsFor:'defaults'!
defaultIcon
DefaultIcon isNil ifTrue:[
@@ -764,11 +768,11 @@
monitor:anInstVarName
"start a monitoring process"
- listView setSelectElement:anInstVarName.
+ listView selectElement:anInstVarName.
self doStartMonitor
"Created: 1.3.1996 / 19:31:45 / cg"
- "Modified: 26.5.1996 / 15:03:30 / cg"
+ "Modified: 11.12.1996 / 17:05:18 / cg"
!
showLast
@@ -853,8 +857,8 @@
"Modified: 28.6.1996 / 15:11:27 / cg"
! !
-!InspectorView class methodsFor:'documentation'!
+!InspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.55 1996-09-30 21:01:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.56 1996-12-11 16:07:38 cg Exp $'
! !