"
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$'
! !