--- a/NewInspectorView.st Wed Sep 08 12:00:12 1999 +0200
+++ b/NewInspectorView.st Wed Sep 08 19:40:37 1999 +0200
@@ -14,14 +14,14 @@
"{ NameSpace: NewInspector }"
-VariableVerticalPanel subclass:#InspectorView
+VariableVerticalPanel subclass:#NewInspectorView
instanceVariableNames:'inspectorView userSpace workSpace inspectedObject'
classVariableNames:''
poolDictionaries:''
- category:'Interface-Inspector'
+ category:'Interface-NewInspector'
!
-!InspectorView class methodsFor:'documentation'!
+!NewInspectorView class methodsFor:'documentation'!
copyright
"
@@ -43,13 +43,13 @@
"
a new (multipane) inspector;
open with:
- NewInspector::InspectorView inspect:someObject
+ NewInspector::NewInspectorView inspect:someObject
install as standard inspector:
- Smalltalk at:#Inspector put:(NewInspector::InspectorView)
+ Smalltalk at:#Inspector put:(NewInspector::NewInspectorView)
[open with:]
- NewInspector::InspectorView
+ NewInspector::NewInspectorView
inspect:(Array with:#hello with:'hello' with:#(1 2 3) asSortedCollection with:Display)
[author:]
@@ -66,12 +66,12 @@
array := Array new:5.
array at:1 put:(Array new:400).
- NewInspector::InspectorView inspect:array
+ NewInspector::NewInspectorView inspect:array
[exEnd]
"
! !
-!InspectorView class methodsFor:'instance creation'!
+!NewInspectorView class methodsFor:'instance creation'!
inspect:anObject
"start inspector on an instance
@@ -86,14 +86,14 @@
|top isp|
top := StandardSystemView new extent:600@400.
- isp := InspectorView origin:0.0@0.0 corner:1.0@1.0 in:top.
+ isp := NewInspectorView origin:0.0@0.0 corner:1.0@1.0 in:top.
isp inspect:anObject.
top open.
^ isp.
! !
-!InspectorView methodsFor:'accessing'!
+!NewInspectorView methodsFor:'accessing'!
inspect:anInstance
@@ -104,7 +104,7 @@
! !
-!InspectorView methodsFor:'initialization'!
+!NewInspectorView methodsFor:'initialization'!
initialize
|view wsHeight|
@@ -113,7 +113,7 @@
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.
+ inspectorView := NewInspectorPanelView 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.
@@ -136,7 +136,7 @@
"Modified: 18.3.1997 / 10:57:34 / cg"
! !
-!InspectorView methodsFor:'update'!
+!NewInspectorView methodsFor:'update'!
updateWorkSpace
"update the workSpace
@@ -144,7 +144,7 @@
workSpace list:(Array with:(inspectorView selectedInstanceVar displayString)).
! !
-!InspectorView class methodsFor:'documentation'!
+!NewInspectorView class methodsFor:'documentation'!
version
^ '$Header$'