hg/stx-libwidg: comparison ListView.st

equal deleted inserted replaced

-:cf725b6f666f
+:c9d840b654b4
 for TextView, EditTextView and SelectionInListView.
 anyway, here are a few examples:
 basic simple setup:
-									[exBegin]
+[exBegin]
-	|top l|
+|top l|
-	top := StandardSystemView new.
+top := StandardSystemView new.
-	top extent:100@200.
+top extent:100@200.
-	l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
+l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
-	l list:#('one' 'two' 'three').
+l list:#('one' 'two' 'three').
-	top open
+top open
-									[exEnd]
+[exEnd]
 specifying textMargins (these have NOTHING to do with the viewInset):
-									[exBegin]
+[exBegin]
-	|top l|
+|top l|
-	top := StandardSystemView new.
+top := StandardSystemView new.
-	top extent:100@200.
+top extent:100@200.
-	l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
+l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
-	l list:#('one' 'two' 'three').
+l list:#('one' 'two' 'three').
-	l topMargin:10.
+l topMargin:10.
-	l leftMargin:20.
+l leftMargin:20.
-	top open
+top open
-									[exEnd]
+[exEnd]
 globally set the fg/bg colors:
-									[exBegin]
+[exBegin]
-	|top l|
+|top l|
-	top := StandardSystemView new.
+top := StandardSystemView new.
-	top extent:100@200.
+top extent:100@200.
-	l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
+l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
-	l list:#('one' 'two' 'three').
+l list:#('one' 'two' 'three').
-	l foregroundColor:(Color white).
+l foregroundColor:(Color white).
-	l backgroundColor:(Color blue).
+l backgroundColor:(Color blue).
-	top open
+top open
-									[exEnd]
+[exEnd]
 non-string (text) entries:
-									[exBegin]
+[exBegin]
-	|top list l|
+|top list l|
-	top := StandardSystemView new.
+top := StandardSystemView new.
-	top extent:100@200.
+top extent:100@200.
-	l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
+l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
-	list := #('all' 'of' 'your' 'preferred' 'colors')
+list := #('all' 'of' 'your' 'preferred' 'colors')
-		with:#(red green blue 'orange' cyan)
+with:#(red green blue 'orange' cyan)
-		collect:[:s :clr |
+collect:[:s :clr |
-			    Text string:s
+Text string:s
-				 emphasis:(Array with:#bold
+emphasis:(Array with:#bold
-						 with:(#color->(Color name:clr))) ].
+with:(#color->(Color name:clr))) ].
-	l list:list.
+l list:list.
-	top open
+top open
-									[exEnd]
+[exEnd]
 generic non-string entries:
 (notice: ColoredListEntry is obsoleted by Text)
-									[exBegin]
+[exBegin]
-	|top list l|
+|top list l|
-	top := StandardSystemView new.
+top := StandardSystemView new.
-	top extent:100@200.
+top extent:100@200.
-	l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
+l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
-	list := #('all' 'of' 'your' 'preferred' 'colors')
+list := #('all' 'of' 'your' 'preferred' 'colors')
-		with:#(red green blue 'orange' cyan)
+with:#(red green blue 'orange' cyan)
-		collect:[:s :clr | ColoredListEntry string:s color:(Color name:clr) ].
+collect:[:s :clr | ColoredListEntry string:s color:(Color name:clr) ].
-	l list:list.
+l list:list.
-	top open
+top open
-									[exEnd]
+[exEnd]
 using a model (default listMessage is aspectMessage):
-									[exBegin]
+[exBegin]
-	|top model l theModelsText|
+|top model l theModelsText|
-	model := Plug new.
+model := Plug new.
-	model respondTo:#modelsAspect
+model respondTo:#modelsAspect
-		   with:[ theModelsText ].
+with:[ theModelsText ].
-	top := StandardSystemView new.
+top := StandardSystemView new.
-	top extent:100@200.
+top extent:100@200.
-	l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
+l := ListView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
-	l model:model.
+l model:model.
-	l aspect:#modelsAspect.
+l aspect:#modelsAspect.
-	top open.
+top open.
-	Delay waitForSeconds:3.
+Delay waitForSeconds:3.
-	theModelsText := #('foo' 'bar' 'baz').
+theModelsText := #('foo' 'bar' 'baz').
-	model changed:#modelsAspect.
+model changed:#modelsAspect.
-									[exEnd]
+[exEnd]
 using a model with different aspects
 for two listViews:
-									[exBegin]
+[exBegin]
-	|top model l1 l2 plainText|
+|top model l1 l2 plainText|
-	plainText := #('').
+plainText := #('').
-	model := Plug new.
+model := Plug new.
-	model respondTo:#modelsUppercaseText
+model respondTo:#modelsUppercaseText
-		   with:[ plainText asStringCollection
+with:[ plainText asStringCollection
-			      collect:[:l | l asUppercase]].
+collect:[:l | l asUppercase]].
-	model respondTo:#modelsLowercaseText
+model respondTo:#modelsLowercaseText
-		   with:[ plainText asStringCollection
+with:[ plainText asStringCollection
-			      collect:[:l | l asLowercase]].
+collect:[:l | l asLowercase]].
-	top := StandardSystemView extent:200@200.
+top := StandardSystemView extent:200@200.
-	l1 := ListView origin:0.0 @ 0.0 corner:1.0 @ 0.5 in:top.
+l1 := ListView origin:0.0 @ 0.0 corner:1.0 @ 0.5 in:top.
-	l1 model:model.
+l1 model:model.
-	l1 aspect:#modelsAspect.
+l1 aspect:#modelsAspect.
-	l1 listMessage:#modelsUppercaseText.
+l1 listMessage:#modelsUppercaseText.
-	l2 := ListView origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:top.
+l2 := ListView origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:top.
-	l2 model:model.
+l2 model:model.
-	l2 aspect:#modelsAspect.
+l2 aspect:#modelsAspect.
-	l2 listMessage:#modelsLowercaseText.
+l2 listMessage:#modelsLowercaseText.
-	top open.
+top open.
-	Delay waitForSeconds:3.
+Delay waitForSeconds:3.
-	plainText := #('foo' 'bar' 'baz').
+plainText := #('foo' 'bar' 'baz').
-	model changed:#modelsAspect.
+model changed:#modelsAspect.
-									[exEnd]
+[exEnd]
-using a big list (100000 lines):
+using a big list (100000 lines),
-									[exBegin]
+wrapping in a ScrollableView:
-	|bigList top lv|
+[exBegin]
+|bigList top lv|
-	bigList := (1 to:100000) collect:[:lineNr | 'List line Nr. ' , lineNr printString].
+bigList := (1 to:100000) collect:[:lineNr | 'List line Nr. ' , lineNr printString].
-	top := StandardSystemView extent:200@200.
+bigList at:10 put:('Some Text ' asText , 'with Bold part' allBold).
+bigList at:20 put:('Some Text ' asText , 'with Italic part' allItalic).
-	lv := ScrollableView for:ListView in:top.
-	lv origin:0.0 @ 0.0 corner:1.0 @ 1.0.
+top := StandardSystemView extent:200@200.
-	lv list:bigList expandTabs:false scanForNonStrings:false includesNonStrings:false.
+lv := HVScrollableView for:ListView in:top.
-	top open.
+lv origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-									[exEnd]
+lv list:bigList expandTabs:false scanForNonStrings:false includesNonStrings:false.
-using a huge virtual list (1 mio simulated lines):
+top open.
-									[exBegin]
+[exEnd]
-	|virtualList top lv|
+using a huge virtual list (1 mio simulated lines),
-	virtualList := Plug new.
+wrapping in a ScrollableView:
-	virtualList inheritFrom:SequenceableCollection.
+[exBegin]
-	virtualList respondTo:#size with:[ 1000000 ].
+|virtualList top lv|
-	virtualList respondTo:#at:  with:[:lineNr | 'List line Nr. ' , lineNr printString ].
+virtualList := Plug new.
-	top := StandardSystemView extent:200@200.
+virtualList inheritFrom:SequenceableCollection.
+virtualList respondTo:#size with:[ 1000000 ].
-	lv := ScrollableView for:ListView in:top.
+virtualList respondTo:#at:  with:[:lineNr | 'List line Nr. ' , lineNr printString ].
-	lv origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-	lv list:virtualList expandTabs:false scanForNonStrings:false includesNonStrings:false.
+top := StandardSystemView extent:200@200.
-	top open.
+lv := ScrollableView for:ListView in:top.
-									[exEnd]
+lv origin:0.0 @ 0.0 corner:1.0 @ 1.0.
+lv list:virtualList expandTabs:false scanForNonStrings:false includesNonStrings:false.
+top open.
+[exEnd]
 "
 ! !
 !ListView class methodsFor:'defaults'!
 self paint:bgColor.
 self fillRectangleX:x y:y width:w height:h.
 backgroundAlreadyClearedColor := bgColor.
 (includesNonStrings or:[w > (width // 4 * 3)]) ifTrue:[
-	"includes non strings or area is big enough redraw whole lines"
+"includes non strings or area is big enough redraw whole lines"
-	self redrawFromVisibleLine:startLine to:stopLine
+self redrawFromVisibleLine:startLine to:stopLine
 ] ifFalse:[
-	line := self visibleAt:startLine.
+line := self visibleAt:startLine.
-	(fontIsFixedWidth and:[line isMemberOf:String]) ifFalse:[
+(fontIsFixedWidth and:[line isMemberOf:String]) ifFalse:[
-	    "start/end col has to be computed for each line"
+"start/end col has to be computed for each line"
-	    startLine to:stopLine do:[:i |
+startLine to:stopLine do:[:i |
-		startCol := self colOfX:x inVisibleLine:i.
+startCol := self colOfX:x inVisibleLine:i.
-		endCol := self colOfX:(x + w) inVisibleLine:i.
+endCol := self colOfX:(x + w) inVisibleLine:i.
-		startCol > 0 ifTrue:[
+startCol > 0 ifTrue:[
-		    endCol > 0 ifTrue:[
+endCol > 0 ifTrue:[
-			self redrawVisibleLine:i from:startCol to:endCol
+self redrawVisibleLine:i from:startCol to:endCol
-		    ]
+]
-		]
+]
-	    ]
+]
-	] ifTrue:[
+] ifTrue:[
-	    "start/end col is the same for all lines"
+"start/end col is the same for all lines"
-	    startCol := self colOfX:x inVisibleLine:startLine.
+startCol := self colOfX:x inVisibleLine:startLine.
-	    endCol := self colOfX:(x + w) inVisibleLine:startLine.
+endCol := self colOfX:(x + w) inVisibleLine:startLine.
-	    startCol > 0 ifTrue:[
+startCol > 0 ifTrue:[
-		endCol > 0 ifTrue:[
+endCol > 0 ifTrue:[
-		    startLine to:stopLine do:[:i |
+startLine to:stopLine do:[:i |
-			line := self visibleAt:i.
+line := self visibleAt:i.
-			(line isMemberOf:String) ifTrue:[
+(line isMemberOf:String) ifTrue:[
-			    self redrawVisibleLine:i from:startCol to:endCol
+self redrawVisibleLine:i from:startCol to:endCol
-			] ifFalse:[
+] ifFalse:[
-			    self redrawVisibleLine:i
+self redrawVisibleLine:i
-			]
+]
-		    ]
+]
-		]
+]
-	    ]
+]
-	]
+]
 ].
 backgroundAlreadyClearedColor := nil.
 self clippingRectangle:saveClip.
 !
 ].
 (x == 0 and:[y == 0]) ifTrue:[                              "/ has viewOrigin changed ?
 ^ self
 ].
 (noLn := y) ~~ 0 ifTrue:[
 y := y * fontHeight
 ].
 delta := (x @ y).
 ! !
 !ListView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.359 2013-02-25 14:58:23 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.360 2013-03-20 10:35:25 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.359 2013-02-25 14:58:23 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.360 2013-03-20 10:35:25 cg Exp $'
 ! !

changeset 4536	c9d840b654b4
parent 4523	585ec7f5fac2
child 4570	1cce72ca7d18