# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 850320458 -3600
# Node ID a29021918ec5be4b5b5238f7268b987b5c5356c6
# Parent  63e82f3b6940e4b4e446ad82f9c8cbebbe0b1408
fixed openOn:monitor:

diff -r 63e82f3b6940 -r a29021918ec5 InspView.st
--- 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 $'
 ! !
diff -r 63e82f3b6940 -r a29021918ec5 InspectorView.st
--- 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 $'
 ! !