--- a/NewInspectorPanelView.st Wed Sep 08 12:00:12 1999 +0200
+++ b/NewInspectorPanelView.st Wed Sep 08 19:40:37 1999 +0200
@@ -14,15 +14,15 @@
"{ NameSpace: NewInspector }"
-SimpleView subclass:#InspectorPanelView
+SimpleView subclass:#NewInspectorPanelView
instanceVariableNames:'frames labelViews listViews scrollBar maxDepth leftHistory
rightHistory hzpView actionBlock valueChangedAction'
classVariableNames:''
poolDictionaries:''
- category:'Interface-Inspector'
+ category:'Interface-NewInspector'
!
-!InspectorPanelView class methodsFor:'documentation'!
+!NewInspectorPanelView class methodsFor:'documentation'!
copyright
"
@@ -49,7 +49,7 @@
|top slv|
top := StandardSystemView new extent:600@400.
- slv := NewInspector::InspectorPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+ slv := NewInspector::NewInspectorPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
slv inspect:top.
slv action:[:el|Transcript showCR:el].
top open.
@@ -67,7 +67,7 @@
top := StandardSystemView new extent:600@400.
vvp := VariableVerticalPanel origin:0.0@0.0 corner:1.0@1.0 in:top.
- slv := NewInspector::InspectorPanelView origin:0.0@0.0 corner:1.0@0.5 in:vvp.
+ slv := NewInspector::NewInspectorPanelView origin:0.0@0.0 corner:1.0@0.5 in:vvp.
edt := Workspace origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:vvp.
edt acceptAction:[:theText|slv accept:theText notifying:edt].
edt doItAction:[:theCode|slv doIt:theCode notifying:edt].
@@ -80,7 +80,7 @@
"
! !
-!InspectorPanelView class methodsFor:'constants'!
+!NewInspectorPanelView class methodsFor:'constants'!
minDepth
"returns the minimum of views assigned to a panel
@@ -88,7 +88,7 @@
^ 4
! !
-!InspectorPanelView methodsFor:'accessing'!
+!NewInspectorPanelView methodsFor:'accessing'!
depth
"returns number of listViews
@@ -144,7 +144,7 @@
]
! !
-!InspectorPanelView methodsFor:'accessing actions'!
+!NewInspectorPanelView methodsFor:'accessing actions'!
action:aOneArgBlock
"set the single click action block.
@@ -163,7 +163,7 @@
valueChangedAction := aOneArgBlock
! !
-!InspectorPanelView methodsFor:'accessing selections'!
+!NewInspectorPanelView methodsFor:'accessing selections'!
inspectedObject
"returns the current inspected object
@@ -177,7 +177,7 @@
^ self findLastValidListWithSelection selectedInstanceVar
! !
-!InspectorPanelView methodsFor:'actions'!
+!NewInspectorPanelView methodsFor:'actions'!
accept:aText notifying:aView
"evaluating aText on the last selected instance var. on success the views
@@ -207,7 +207,7 @@
self update.
! !
-!InspectorPanelView methodsFor:'event handling'!
+!NewInspectorPanelView methodsFor:'event handling'!
handlesKeyPress:key inView:someView
"all keys are handled by this instance itself
@@ -256,7 +256,7 @@
actionBlock value:sivar.
! !
-!InspectorPanelView methodsFor:'initializing'!
+!NewInspectorPanelView methodsFor:'initializing'!
initialize
"initialize instance
@@ -287,7 +287,7 @@
self depth:maxDepth.
! !
-!InspectorPanelView methodsFor:'menu - labels & actions'!
+!NewInspectorPanelView methodsFor:'menu - labels & actions'!
browse:anIndex
self classAtLabel:anIndex do:[:cls| cls browserClass openInClass:cls selector:nil ]
@@ -357,7 +357,7 @@
! !
-!InspectorPanelView methodsFor:'menu - views & actions'!
+!NewInspectorPanelView methodsFor:'menu - views & actions'!
doTrace:anInstance
"place a trace on messages sent to the instance
@@ -527,7 +527,7 @@
self update
].
- (InspectorList isTraceable:inst) ifFalse:[
+ (NewInspectorList isTraceable:inst) ifFalse:[
^ menu
].
@@ -563,7 +563,7 @@
! !
-!InspectorPanelView methodsFor:'private'!
+!NewInspectorPanelView methodsFor:'private'!
doItOrAccept:aBlock
"handle a doIt or accept action; on success all the folloed views are
@@ -657,7 +657,7 @@
! !
-!InspectorPanelView methodsFor:'private frames'!
+!NewInspectorPanelView methodsFor:'private frames'!
computeExtentOfFrames
"compute the extent of all frames (origin/corner)
@@ -691,7 +691,7 @@
label leftInset:15.
label rightInset:2.
- view := ScrollableView for:InspectorListView miniScroller:true origin:0.0@20
+ view := ScrollableView for:NewInspectorListView miniScroller:true origin:0.0@20
corner:1.0@1.0 in:frame.
view := view scrolledView.
@@ -718,7 +718,7 @@
! !
-!InspectorPanelView methodsFor:'scrolling-basic'!
+!NewInspectorPanelView methodsFor:'scrolling-basic'!
moveContentsLeft:nTimes
"move the contents of all views one position left
@@ -808,7 +808,7 @@
ifFalse:[self moveContentsRight:no]
! !
-!InspectorPanelView class methodsFor:'documentation'!
+!NewInspectorPanelView class methodsFor:'documentation'!
version
^ '$Header$'