hg/stx-libtool2: comparison NewInspectorPanelView.st

equal deleted inserted replaced

-:fccbd77a9409
+:285fa261cbcb
 "
 COPYRIGHT (c) 1997 by eXept Software AG
-All Rights Reserved
+	      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.
 "
 "{ Package: 'stx:libtool2' }"
-"{ NameSpace: NewInspector }"
+"{ NameSpace: Tools }"
 SimpleView subclass:#NewInspectorPanelView
 	instanceVariableNames:'frames labelViews listViews scrollBar maxDepth leftHistory
 		rightHistory hzpView actionBlock valueChangedAction'
 	classVariableNames:''
 !NewInspectorPanelView class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1997 by eXept Software AG
-All Rights Reserved
+	      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
 examples
 "
 example 1
 =========
-[exBegin]
+									[exBegin]
 |top slv|
 top := StandardSystemView new extent:600@400.
-slv := NewInspector::NewInspectorPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+slv := Tools::NewInspectorPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
 slv inspect:top.
 slv action:[:el|Transcript showCR:el].
 top open.
-[exEnd]
+									[exEnd]
 example 2
 =========
-[exBegin]
+									[exBegin]
 |top slv edt a vvp|
 a := Array new:5.
 a at:4 put:(Array new:6).
 top := StandardSystemView new extent:600@400.
 vvp := VariableVerticalPanel origin:0.0@0.0  corner:1.0@1.0 in:top.
-slv := NewInspector::NewInspectorPanelView origin:0.0@0.0 corner:1.0@0.5 in:vvp.
+slv := Tools::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].
 slv action:[:el| Transcript showCR:(el printString)].
 slv inspect:a.
 top open.
-[exEnd]
+									[exEnd]
 "
 ! !
 !NewInspectorPanelView class methodsFor:'constants'!
 |sz min|
 min := self class minDepth.
 aDepth > min ifTrue:[
-sz := aDepth min:maxDepth.
+	sz := aDepth min:maxDepth.
-sz < listViews size ifTrue:[
+	sz < listViews size ifTrue:[
-sz := listViews size
+	    sz := listViews size
-]
+	]
 ] ifFalse:[
-sz := min
+	sz := min
 ].
 listViews size == sz ifTrue:[
-sz == aDepth ifFalse:[self moveContentsLeft:1].
+	sz == aDepth ifFalse:[self moveContentsLeft:1].
 ] ifFalse:[
-[self createViewWithoutRedraw. listViews size ~~ sz] whileTrue.
+	[self createViewWithoutRedraw. listViews size ~~ sz] whileTrue.
-self computeExtentOfFrames.
+	self computeExtentOfFrames.
-(self topView shown) ifTrue:[
+	(self topView shown) ifTrue:[
-hzpView sizeChanged:nil.
+	    hzpView sizeChanged:nil.
-hzpView realizeAllSubViews.
+	    hzpView realizeAllSubViews.
-]
+	]
 ]
 !
 maxDepth
 ^ maxDepth
 maxDepth:aNumber
 "change max depth for instance
 "
 aNumber > listViews size ifTrue:[
-aNumber >= (self class minDepth) ifTrue:[
+	aNumber >= (self class minDepth) ifTrue:[
-maxDepth := aNumber.
+	    maxDepth := aNumber.
-maxDepth < listViews size ifTrue:[
+	    maxDepth < listViews size ifTrue:[
-self depth:maxDepth
+		self depth:maxDepth
-]
+	    ]
-]
+	]
 ]
 ! !
 !NewInspectorPanelView methodsFor:'accessing actions'!
 view  := listViews at:anIndex.
 start := anIndex + 1.
 sivar := view selectedInstanceVar.
 start > listViews size ifTrue:[
-start >= maxDepth ifTrue:[
+	start >= maxDepth ifTrue:[
-self moveContentsLeft:1.
+	    self moveContentsLeft:1.
-^ actionBlock value:sivar.
+	  ^ actionBlock value:sivar.
-].
+	].
 ].
 (view selectedInstanceType) == #directory ifTrue:[
-(listViews at:start) setSelection:nil.
+	(listViews at:start) setSelection:nil.
-(listViews at:start) inspect:sivar.
+	(listViews at:start) inspect:sivar.
-start := start + 1.
+	start := start + 1.
 ].
 listViews from:start do:[:v|v inspect:nil].
 self update.
 actionBlock value:sivar.
 "evaluate action on class assigned to label
 "
 |cls|
 anIndex <= labelViews size ifTrue:[
-(cls := Smalltalk classNamed:((labelViews at:anIndex) label)) notNil ifTrue:[
+	(cls := Smalltalk classNamed:((labelViews at:anIndex) label)) notNil ifTrue:[
-anAction value:cls
+	    anAction value:cls
-]
+	]
 ]
 !
 labelMenu
 view := (WindowGroup lastEventQuerySignal query) view.
 sqNr := labelViews findFirst:[:v| v == view].
 sqNr ~~ 0 ifTrue:[
-view := labelViews at:sqNr.
+	view := labelViews at:sqNr.
-view label notEmpty ifTrue:[
+	view label notEmpty ifTrue:[
-^ self labelMenu:sqNr
+	    ^ self labelMenu:sqNr
-]
+	]
 ].
 ^ nil
 !
 labelMenu:anIndex
 "popup menu required for a label identified by its sequence number
 "
 |menu|
 menu := PopUpMenu labels:#(
-'browse'
+			      'browse'
-'browse class hierarchy'
+			      'browse class hierarchy'
-'browse full class protocol'
+			      'browse full class protocol'
-)
+			      )
-selectors:#(
+		   selectors:#(
-browse:
+			      browse:
-browseClassHierarchy:
+			      browseClassHierarchy:
-browseFullClassProtocol:
+			      browseFullClassProtocol:
-)
+			      )
-receiver:self.
+		    receiver:self.
 menu args:(Array new:(menu labels size) withAll:anIndex).
 ^ menu
 ! !
 |selectors|
 selectors := self messageMenu:anInstance.
 selectors notNil ifTrue:[
-self topView withWaitCursorDo:[MessageTracer trace:anInstance selectors:selectors]
+	self topView withWaitCursorDo:[MessageTracer trace:anInstance selectors:selectors]
 ].
 !
 doTraceAll:anInstance
 |selectors|
 selectors := self messageMenu:anInstance.
 selectors notNil ifTrue:[
-self topView withWaitCursorDo:[MessageTracer trap:anInstance selectors:selectors]
+	self topView withWaitCursorDo:[MessageTracer trap:anInstance selectors:selectors]
 ]
 !
 doTrapAll:anInstance
 "place a trap on all messages sent to the instance
 hzp bottomInset:inset.
 btp topInset:((inset - viewSpacing) negated).
 btp bottomInset:viewSpacing.
 slv := ScrollableView for:SelectionInListView
-miniScrollerV:true
+		miniScrollerV:true
-origin:(0.0 @ 0.0)
+		       origin:(0.0 @ 0.0)
-corner:(0.5 @ 1.0)
+		       corner:(0.5 @ 1.0)
-in:hzp.
+			   in:hzp.
 acv := ScrollableView for:SelectionInListView
-miniScrollerV:true
+		miniScrollerV:true
-origin:(0.5 @ 0.0)
+		       origin:(0.5 @ 0.0)
-corner:(1.0 @ 1.0)
+		       corner:(1.0 @ 1.0)
-in:hzp.
+			   in:hzp.
 slv := slv scrolledView.
 acv := acv scrolledView.
 sll := (MessageTracer realClassOf:anInstance) selectors.
 acl := OrderedCollection new.
 (MessageTracer wrappedSelectorsOf:anInstance) do:[:el|
-el notNil ifTrue:[
+	el notNil ifTrue:[
-acl add:el.
+	    acl add:el.
-sll remove:el ifAbsent:nil
+	    sll remove:el ifAbsent:nil
-]
+	]
 ].
 slv list:(sll copy).
 acv list:(acl copy).
 dblClcAct := [:from :to|
-to add:(from selectionValue).
+	to add:(from selectionValue).
-from removeIndex:(from selection).
+	from removeIndex:(from selection).
-from redraw.
+	from redraw.
 ].
 slv doubleClickAction:[:index| dblClcAct value:slv value:acv].
 acv doubleClickAction:[:index| dblClcAct value:acv value:slv].
 top openModal.
 accepted ifFalse:[
-^ nil
+	^ nil
 ].
 lst := acv list.
 "undo existing traps            HACK: removes traps and traces"
 acl notEmpty ifTrue:[
-MessageTracer untrace:anInstance
+	MessageTracer untrace:anInstance
 ].
 lst notEmpty ifTrue:[^ lst]
-ifFalse:[^ nil]
+		ifFalse:[^ nil]
 !
 viewMenu
 "popup menu required by any view. Delegate the request to the corresponding view
 "
 view := (WindowGroup lastEventQuerySignal query) view.
 sqNr := listViews findFirst:[:v| v == view].
 sqNr notNil ifTrue:[^ self viewMenu:sqNr]
-ifFalse:[^ nil]
+	       ifFalse:[^ nil]
 !
 viewMenu:anIndex
 "popup menu required for a view identified by its sequence number
 "
 view := listViews at:anIndex.
 view hasSelection ifFalse:[^ nil].
 inst := view selectedInstanceVar.
 menu := PopUpMenu labels:#( 'update' )
-selectors:#( #update  )
+		   selectors:#( #update  )
-receiver:self.
+		    receiver:self.
 menu actionAt:#update put:[
-view update.
+	view update.
-listViews from:(anIndex + 1) do:[:v|
+	listViews from:(anIndex + 1) do:[:v|
-(view selectedInstanceType) ~~ #directory ifTrue:[
+	    (view selectedInstanceType) ~~ #directory ifTrue:[
-v inspect:nil
+		v inspect:nil
-] ifFalse:[
+	    ] ifFalse:[
-v inspect:(view selectedInstanceVar).
+		v inspect:(view selectedInstanceVar).
-view := v.
+		view := v.
-]
+	    ]
-].
+	].
-self update
+	self update
 ].
 (NewInspectorList isTraceable:inst) ifFalse:[
-^ menu
+	^ menu
 ].
 menu  addLabels:#(
-'-'
+		      '-'
-'trace'
+		      'trace'
-'trap'
+		      'trap'
-'untrace / untrap'
+		      'untrace / untrap'
-)
+		     )
-selectors:#(
+	  selectors:#(
-nil
+		      nil
-trace
+		      trace
-trap
+		      trap
-untrace
+		      untrace
-).
+		     ).
 menu actionAt:#untrace put:[self doUntrace:inst].
 args := Array new:2 withAll:inst.
 lbls := Array with:'message'
-with:((Text string:' all ' emphasis:#underline), ' messages').
+		  with:((Text string:' all ' emphasis:#underline), ' messages').
 menu subMenuAt:#trace put:(
-PopUpMenu labels:lbls selectors:#(doTrace: doTraceAll:) args:args
+	PopUpMenu labels:lbls selectors:#(doTrace: doTraceAll:) args:args
 ).
 menu subMenuAt:#trap put:(
-PopUpMenu labels:lbls selectors:#(doTrap: doTrapAll:) args:args
+	PopUpMenu labels:lbls selectors:#(doTrap: doTrapAll:) args:args
 ).
 ^ menu
 result  := aBlock value:list.
 instVar := list selectedInstanceVar.
 index   := listViews findLast:[:v|v == list].
 (index ~~ 0 and:[index ~~ listViews size]) ifTrue:[
-index := index + 1.
+	index := index + 1.
-(list selectedInstanceType) == #directory ifTrue:[
+	(list selectedInstanceType) == #directory ifTrue:[
-(listViews at:index) inspect:instVar
+	    (listViews at:index) inspect:instVar
-] ifFalse:[
+	] ifFalse:[
-(listViews at:index) inspect:nil
+	    (listViews at:index) inspect:nil
-].
+	].
-self update
+	self update
 ].
 valueChangedAction notNil ifTrue:[
-valueChangedAction value:instVar
+	valueChangedAction value:instVar
 ].
 ^ result
 !
 findLastValidListWithSelection
 view, the list assigned to the inspected object is returned
 "
 |index|
 rightHistory notEmpty ifTrue:[
-^ rightHistory first
+	^ rightHistory first
 ].
 index := listViews findLast:[:v| v hasSelection ].
 index ~~ 0 ifTrue:[
-^ listViews at:index
+	^ listViews at:index
 ].
 leftHistory notEmpty ifTrue:[^ leftHistory last]
-ifFalse:[^ listViews at:1]
+			ifFalse:[^ listViews at:1]
 !
 update
 "update labels and scrollbar
 "
 "
 index := 1.
 stop  := listViews size.
 [   cview  := listViews at:index.
-ispObj := cview inspectedObject.
+	ispObj := cview inspectedObject.
-label  := labelViews at:index.
+	label  := labelViews at:index.
-index  := index + 1.
+	index  := index + 1.
-ispObj notNil ifTrue:[
+	ispObj notNil ifTrue:[
-label label:(ispObj class name asString).
+	    label label:(ispObj class name asString).
-pview := cview.
+	    pview := cview.
-] ifFalse:[
+	] ifFalse:[
-[index <= stop] whileTrue:[
+	    [index <= stop] whileTrue:[
-(labelViews at:index) label:''.
+		(labelViews at:index) label:''.
-index := index + 1
+		index := index + 1
-].
+	    ].
-(pview isNil or:[pview selectedInstanceType == #normal]) ifTrue:[
+	    (pview isNil or:[pview selectedInstanceType == #normal]) ifTrue:[
-pview notNil ifTrue:[ispObj := pview selectedInstanceVar].
+		pview notNil ifTrue:[ispObj := pview selectedInstanceVar].
-label label:ispObj class name asString
+		label label:ispObj class name asString
-] ifFalse:[
+	    ] ifFalse:[
-label label:''
+		label label:''
-]
+	    ]
-].
+	].
-index > stop
+	index > stop
 ] whileFalse.
 "UPDATE SCROLLBARS
 "
 index := listViews size + leftHistory size + rightHistory size.
 (listViews last) selectedInstanceType notNil ifTrue:[
-index := index + 1
+	index := index + 1
 ].
 scrollBar thumbHeight:(stop / index) * 100.
 scrollBar thumbOrigin:(100  / index * leftHistory size).
 ! !
 offset := 1.0 / (frames size).
 newX   := 0.0.
 frames do:[:frame|
-(newX := newX + offset) > 1.0 ifTrue:[ newX := 1.0 ].
+	(newX := newX + offset) > 1.0 ifTrue:[ newX := 1.0 ].
-corn  := newX @ corn y.
+	corn  := newX @ corn y.
-frame origin:orig corner:corn.
+	frame origin:orig corner:corn.
-orig  := newX @ orig y.
+	orig  := newX @ orig y.
 ].
 !
 label := Label origin:0.0@0.0 corner:1.0@20 in:frame.
 label  leftInset:15.
 label rightInset:2.
 view  := ScrollableView for:NewInspectorListView miniScroller:true origin:0.0@20
-corner:1.0@1.0 in:frame.
+			 corner:1.0@1.0 in:frame.
 view := view scrolledView.
 frames add:frame.
 labelViews add:label.
 listViews  add:view.
 index := listViews size.
 index == 1 ifTrue:[
-view includesSelf:true
+	view includesSelf:true
 ].
 label adjust:#left.
 label label:''.
 label level:1.
 "move the contents of all views one position left
 "
 |fView stop pView index|
 (nTimes < 1 or:[listViews last isEmpty]) ifTrue:[
-^ self
+	^ self
 ].
 index := nTimes.
 stop  := (listViews size) - 1.
 fView := listViews first.
 pView := listViews at:stop.
 [   leftHistory add:(fView list).
-1 to:stop do:[:i|
+	1 to:stop do:[:i|
-(listViews at:i) list:(listViews at:(i+1))
+	    (listViews at:i) list:(listViews at:(i+1))
-].
+	].
-rightHistory notEmpty ifTrue:[
+	rightHistory notEmpty ifTrue:[
-(listViews last) list:(rightHistory removeLast)
+	    (listViews last) list:(rightHistory removeLast)
-] ifFalse:[
+	] ifFalse:[
-(listViews last) inspect:(pView selectedInstanceVar)
+	    (listViews last) inspect:(pView selectedInstanceVar)
-].
+	].
-((index := index - 1) == 0 or:[listViews last isEmpty])
+	((index := index - 1) == 0 or:[listViews last isEmpty])
 ] whileFalse.
 self update.
 |size index lView fView|
 size := leftHistory size.
 (nTimes > 0 and:[size ~~ 0]) ifTrue:[
-nTimes > size ifFalse:[index := nTimes]
+	nTimes > size ifFalse:[index := nTimes]
-ifTrue:[index := size].
+		       ifTrue:[index := size].
-size  := listViews size.
+	size  := listViews size.
-lView := listViews last.
+	lView := listViews last.
-fView := listViews first.
+	fView := listViews first.
-1 to:index do:[:i|
+	1 to:index do:[:i|
-lView hasSelection ifTrue:[
+	    lView hasSelection ifTrue:[
-rightHistory add:(lView list)
+		rightHistory add:(lView list)
-].
+	    ].
-size to:2 by:-1 do:[:i|
+	    size to:2 by:-1 do:[:i|
-(listViews at:i) list:(listViews at:(i-1))
+		(listViews at:i) list:(listViews at:(i-1))
-].
+	    ].
-fView list:(leftHistory removeLast)
+	    fView list:(leftHistory removeLast)
-].
+	].
-self update
+	self update
 ]
 !
 scrollTo:nPercent
 |dY no noScr pR|
 noScr := listViews size + leftHistory size + rightHistory size.
 (listViews last) selectedInstanceType notNil ifTrue:[
-noScr := noScr + 1
+	noScr := noScr + 1
 ].
 dY := 100 / noScr.
 pR := nPercent roundTo:dY.
 no := ((dY * leftHistory size) - pR) / dY.
 no == 0 ifTrue:[
-(nPercent - pR) > 0 ifTrue:[no := -1]
+	(nPercent - pR) > 0 ifTrue:[no := -1]
-ifFalse:[no :=  1]
+			   ifFalse:[no :=  1]
 ].
 no < 0 ifTrue:[self moveContentsLeft:(no negated)]
-ifFalse:[self moveContentsRight:no]
+	  ifFalse:[self moveContentsRight:no]
 ! !
 !NewInspectorPanelView class methodsFor:'documentation'!
 version

changeset 2621	285fa261cbcb
parent 2299	fff41ffaaf26