hg/stx-libtool2: comparison NewInspectorListView.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
 hereby transferred.
 "
-"{ NameSpace: NewInspector }"
+"{ NameSpace: Tools }"
 SelectionInListView subclass:#NewInspectorListView
 	instanceVariableNames:'actionHolder inspectorList includesSelf'
 	classVariableNames:''
 	poolDictionaries:''
 !NewInspectorListView 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
 "
-open a list view on an instance
+	open a list view on an instance
-[exBegin]
+									[exBegin]
-|top slv a|
+	|top slv a|
-a := OrderedCollection new.
+	a := OrderedCollection new.
-a add:1.
+	a add:1.
-top := StandardSystemView new
+	top := StandardSystemView new
-label:'select';
+		label:'select';
-extent:200@200.
+		extent:200@200.
-slv := ScrollableView for:self in:top.
+	slv := ScrollableView for:self in:top.
-slv origin:0.0@0.0 corner:1.0@1.0.
+	slv origin:0.0@0.0 corner:1.0@1.0.
-slv := slv scrolledView.
+	slv := slv scrolledView.
-slv inspect:top.
+	slv inspect:top.
-slv action:[:el|Transcript showCR:(el printString)].
+	slv action:[:el|Transcript showCR:(el printString)].
-top open
+	top open
-[exEnd]
+									[exEnd]
 "
 ! !
 !NewInspectorListView methodsFor:'accessing'!
 list:aList
 "set the lists contents from another list
 "
 aList notNil ifTrue:[inspectorList := aList list]
-ifFalse:[inspectorList := NewInspectorList new].
+		ifFalse:[inspectorList := NewInspectorList new].
 inspectorList includesSelf:includesSelf.
 super list:(inspectorList instanceNames).
 !
 !NewInspectorListView methodsFor:'drawing'!
 drawVisibleLineSelected:visLineNr with:fg and:bg
 "redraw a single line as selected.
 "
 |nr|
 (nr := self visibleLineToListLine:visLineNr) notNil ifTrue:[
-^ self drawVisibleLine:visLineNr with:fg and:bg.
+	^ self drawVisibleLine:visLineNr with:fg and:bg.
 ].
 ^ super drawVisibleLine:visLineNr with:fg and:bg
 !
 |nr|
 nr := self visibleLineToListLine:visLineNr.
 (inspectorList instanceTypeAt:nr) == #directory ifTrue:[
-self drawRightArrowInVisibleLine:visLineNr
+	self drawRightArrowInVisibleLine:visLineNr
 ]
 !
 "redefined to look for directory in every line
 "
 super redrawFromVisibleLine:startVisLineNr to:endVisLineNr.
 startVisLineNr to:endVisLineNr do:[:visLineNr|
-self redrawArrowVisibleLine:visLineNr
+	self redrawArrowVisibleLine:visLineNr
 ]
 !
 redrawVisibleLine:visLineNr
 "if the line is one for a directory, draw a right arrow
 |nr|
 nr := self visibleLineToListLine:visLineNr.
 (inspectorList instanceTypeAt:nr) == #directory ifTrue:[
-^ true
+	^ true
 ].
 ^ super visibleLineNeedsSpecialCare:visLineNr
 !
 includesSelf   := false.
 actionHolder   := [:el|].
 inspectorList  := NewInspectorList new.
 actionBlock := [:dummy|
-self setSelection:selection.
+	self setSelection:selection.
-actionHolder value:(self selectedInstanceVar)
+	actionHolder value:(self selectedInstanceVar)
 ].
 ! !
 !NewInspectorListView methodsFor:'private'!
 doesNotUnderstand:aMessage
 "forward a message to the inspectorList
 "
 (inspectorList respondsTo:(aMessage selector)) ifTrue:[
-^ aMessage sendTo:inspectorList
+	^ aMessage sendTo:inspectorList
 ].
 ^ super doesNotUnderstand:aMessage
 !
 "somewhat of a kludge: if selection is first line,
 we have to remove the highlight frame by hand here"
 (shown and:[hilightLevel ~~ 0]) ifTrue:[
-selection == firstLineShown ifTrue:[
+	selection == firstLineShown ifTrue:[
-self paint:bgColor.
+	   self paint:bgColor.
-self fillRectangleX:margin y:margin
+	   self fillRectangleX:margin y:margin
-width:(width - (margin * 2))
+			  width:(width - (margin * 2))
-height:(hilightLevel abs).
+			 height:(hilightLevel abs).
-].
+	].
 ].
 listAttributes := nil.
 super list:aCollection expandTabs:false.
 super setSelection:(inspectorList selection).
 |oldSize|
 oldSize := inspectorList size.
 inspectorList setSelection:aNumberOrNil.
 oldSize == inspectorList size ifTrue:[super setSelection:(inspectorList selection)]
-ifFalse:[super list:(inspectorList instanceNames)].
+				 ifFalse:[super list:(inspectorList instanceNames)].
 ! !
 !NewInspectorListView methodsFor:'user interaction'!
 accept:aText notifying:aView
 |res|
 res := inspectorList accept:aText notifying:aView.
 res ~~ #Error ifTrue:[
-super list:(inspectorList instanceNames)
+	super list:(inspectorList instanceNames)
 ].
 ^ res
 !
 doIt:aCode notifying:aView
 |res|
 res := inspectorList doIt:aCode notifying:aView.
 res ~~ #Error ifTrue:[
-super list:(inspectorList instanceNames)
+	super list:(inspectorList instanceNames)
 ].
 ^ res
 !
 inspect:anObject
 "inspect a new instance; update contents
 "
 (inspectorList inspectedObject) == anObject ifTrue:[
-^ self update
+	^ self update
 ].
 inspectorList := NewInspectorList for:anObject.
 inspectorList includesSelf:includesSelf.
 super list:(inspectorList instanceNames).

changeset 2621	285fa261cbcb
parent 1286	843f8ef3b26e
child 3613	5b03d091c507