--- a/InspectorView.st Wed Sep 08 12:00:12 1999 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,151 +0,0 @@
-"
- COPYRIGHT (c) 1997 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-
-
-
-"{ NameSpace: NewInspector }"
-
-VariableVerticalPanel subclass:#InspectorView
- instanceVariableNames:'inspectorView userSpace workSpace inspectedObject'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Inspector'
-!
-
-!InspectorView class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 1997 by eXept Software AG
- All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice. This software may not
- be provided or otherwise made available to, or used by, any
- other person. No title to or ownership of the software is
- hereby transferred.
-"
-
-
-!
-
-documentation
-"
- a new (multipane) inspector;
- open with:
- NewInspector::InspectorView inspect:someObject
-
- install as standard inspector:
- Smalltalk at:#Inspector put:(NewInspector::InspectorView)
-
- [open with:]
- NewInspector::InspectorView
- inspect:(Array with:#hello with:'hello' with:#(1 2 3) asSortedCollection with:Display)
-
- [author:]
- Claus Atzkern
-"
-!
-
-examples
-
-"
- open an inspector on an array
- [exBegin]
- |array|
-
- array := Array new:5.
- array at:1 put:(Array new:400).
- NewInspector::InspectorView inspect:array
- [exEnd]
-"
-! !
-
-!InspectorView class methodsFor:'instance creation'!
-
-inspect:anObject
- "start inspector on an instance
- "
- ^ self openOn:anObject
-!
-
-openOn:anObject
- "start an inspector on some object
- "
-
- |top isp|
-
- top := StandardSystemView new extent:600@400.
- isp := InspectorView origin:0.0@0.0 corner:1.0@1.0 in:top.
- isp inspect:anObject.
- 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 wsHeight|
-
- 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.
-
- wsHeight := (workSpace preferredExtentForLines:1 cols:10) y.
- workSpace topInset:wsHeight negated.
- inspectorView bottomInset:wsHeight.
-
- 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)).
- ].
-
- "Modified: 18.3.1997 / 10:57:34 / cg"
-! !
-
-!InspectorView methodsFor:'update'!
-
-updateWorkSpace
- "update the workSpace
- "
- workSpace list:(Array with:(inspectorView selectedInstanceVar displayString)).
-! !
-
-!InspectorView class methodsFor:'documentation'!
-
-version
- ^ '$Header$'
-! !