--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/NewInspectorView.st Mon Jan 13 17:41:10 1997 +0100
@@ -0,0 +1,86 @@
+"{ NameSpace: NewInspector }"
+
+VariableVerticalPanel subclass:#InspectorView
+ instanceVariableNames:'inspectorView userSpace workSpace inspectedObject'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Inspector'
+!
+
+!InspectorView class methodsFor:'documentation'!
+
+examples
+
+"
+NewInspector::InspectorView inspect:(Array new:5)
+"
+! !
+
+!InspectorView class methodsFor:'instance creation'!
+
+inspect:anInstance
+ "start inspector on an instance
+ "
+ |top isp|
+
+ top := StandardSystemView new extent:600@400.
+ isp := InspectorView origin:0.0@0.0 corner:1.0@1.0 in:top.
+ isp inspect:anInstance.
+ top open.
+
+ ^ isp.
+! !
+
+!InspectorView methodsFor:'accessing'!
+
+inspect:anInstance
+
+ inspectedObject := anInstance.
+ self topView label:(inspectedObject class name asString).
+ inspectorView inspect:anInstance.
+ self updateWorkSpace.
+
+! !
+
+!InspectorView methodsFor:'initialization'!
+
+initialize
+ |view|
+
+ super initialize.
+
+ view := SimpleView origin:0.0 @ 0.0 corner:1.0 @ 0.5 in:self.
+
+ inspectorView := InspectorPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:view.
+ workSpace := Workspace origin:0.0 @ 1.0 corner:1.0 @ 1.0 in:view.
+ userSpace := Workspace origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:self.
+
+ workSpace topInset:-18.
+ inspectorView bottomInset:18.
+
+ userSpace acceptAction:[:theText|inspectorView accept:theText notifying:workSpace].
+ workSpace acceptAction:[:theText|inspectorView accept:theText notifying:workSpace].
+
+ userSpace doItAction:[:theCode|inspectorView doIt:theCode notifying:workSpace].
+ workSpace doItAction:[:theCode|inspectorView doIt:theCode notifying:workSpace].
+
+ inspectorView action:[:el|self updateWorkSpace].
+
+ inspectorView valueChangedAction:[:el||lbl|
+ workSpace list:(Array with:(el displayString)).
+ ].
+! !
+
+!InspectorView methodsFor:'update'!
+
+updateWorkSpace
+ "update the workSpace
+ "
+ workSpace list:(Array with:(inspectorView selectedInstanceVar displayString)).
+! !
+
+!InspectorView class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+! !