equal
deleted
inserted
replaced
16 classVariableNames:'DefaultIcon' |
16 classVariableNames:'DefaultIcon' |
17 poolDictionaries:'' |
17 poolDictionaries:'' |
18 category:'Interface-Inspector' |
18 category:'Interface-Inspector' |
19 ! |
19 ! |
20 |
20 |
21 !InspectorView class methodsFor:'documentation'! |
21 !InspectorView class methodsFor:'documentation'! |
22 |
22 |
23 copyright |
23 copyright |
24 " |
24 " |
25 COPYRIGHT (c) 1989 by Claus Gittinger |
25 COPYRIGHT (c) 1989 by Claus Gittinger |
26 All Rights Reserved |
26 All Rights Reserved |
72 [author:] |
72 [author:] |
73 Claus Gittinger |
73 Claus Gittinger |
74 " |
74 " |
75 ! ! |
75 ! ! |
76 |
76 |
77 !InspectorView class methodsFor:'instance creation'! |
77 !InspectorView class methodsFor:'instance creation'! |
78 |
78 |
79 for:anObject |
79 for:anObject |
80 "create and launch a new inspector for anObject. |
80 "create and launch a new inspector for anObject. |
81 This protocol is a historic leftover - this method will vanish." |
81 This protocol is a historic leftover - this method will vanish." |
82 |
82 |
122 corner:(1.0 @ 1.0) |
122 corner:(1.0 @ 1.0) |
123 in:topView. |
123 in:topView. |
124 |
124 |
125 "kludge: must realize first, to be able to set menu again" |
125 "kludge: must realize first, to be able to set menu again" |
126 topView openAndWait. |
126 topView openAndWait. |
127 topView windowGroup focusSequence:(Array with:inspectorView listView |
127 topView windowGroup |
128 with:inspectorView workspace). |
128 focusSequence:(Array with:inspectorView listView |
|
129 with:inspectorView workspace). |
129 inspectorView inspect:anObject. |
130 inspectorView inspect:anObject. |
130 |
131 |
131 anInstVarName notNil ifTrue:[ |
132 anInstVarName notNil ifTrue:[ |
132 inspectorView monitor:anInstVarName |
133 inspectorView monitor:anInstVarName |
133 ]. |
134 ]. |
137 " |
138 " |
138 |m| |
139 |m| |
139 |
140 |
140 m := 1 asValue. |
141 m := 1 asValue. |
141 InspectorView openOn:m monitor:'value'. |
142 InspectorView openOn:m monitor:'value'. |
142 Delay waitForSeconds:1. |
143 |
143 m value:2 |
144 2 to:10 do:[:i | |
|
145 Delay waitForSeconds:1. |
|
146 m value:i |
|
147 ] |
144 " |
148 " |
145 |
149 |
146 " |
150 " |
147 |o| |
151 |o| |
148 |
152 |
151 Delay waitForSeconds:1. |
155 Delay waitForSeconds:1. |
152 o at:2 put:20 |
156 o at:2 put:20 |
153 " |
157 " |
154 |
158 |
155 "Created: 1.3.1996 / 19:30:50 / cg" |
159 "Created: 1.3.1996 / 19:30:50 / cg" |
156 "Modified: 1.3.1996 / 19:35:19 / cg" |
160 "Modified: 11.12.1996 / 17:07:17 / cg" |
157 ! ! |
161 ! ! |
158 |
162 |
159 !InspectorView class methodsFor:'defaults'! |
163 !InspectorView class methodsFor:'defaults'! |
160 |
164 |
161 defaultIcon |
165 defaultIcon |
162 DefaultIcon isNil ifTrue:[ |
166 DefaultIcon isNil ifTrue:[ |
163 DefaultIcon := Form fromFile:'Inspector.xbm' resolution:100 |
167 DefaultIcon := Form fromFile:'Inspector.xbm' resolution:100 |
164 ]. |
168 ]. |
762 ! |
766 ! |
763 |
767 |
764 monitor:anInstVarName |
768 monitor:anInstVarName |
765 "start a monitoring process" |
769 "start a monitoring process" |
766 |
770 |
767 listView setSelectElement:anInstVarName. |
771 listView selectElement:anInstVarName. |
768 self doStartMonitor |
772 self doStartMonitor |
769 |
773 |
770 "Created: 1.3.1996 / 19:31:45 / cg" |
774 "Created: 1.3.1996 / 19:31:45 / cg" |
771 "Modified: 26.5.1996 / 15:03:30 / cg" |
775 "Modified: 11.12.1996 / 17:05:18 / cg" |
772 ! |
776 ! |
773 |
777 |
774 showLast |
778 showLast |
775 "user clicked on an instvar - show value in workspace" |
779 "user clicked on an instvar - show value in workspace" |
776 |
780 |
851 ^ inspectedObject basicAt:index |
855 ^ inspectedObject basicAt:index |
852 |
856 |
853 "Modified: 28.6.1996 / 15:11:27 / cg" |
857 "Modified: 28.6.1996 / 15:11:27 / cg" |
854 ! ! |
858 ! ! |
855 |
859 |
856 !InspectorView class methodsFor:'documentation'! |
860 !InspectorView class methodsFor:'documentation'! |
857 |
861 |
858 version |
862 version |
859 ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.55 1996-09-30 21:01:16 cg Exp $' |
863 ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.56 1996-12-11 16:07:38 cg Exp $' |
860 ! ! |
864 ! ! |