hg/stx-libwidg: comparison ListView.st

equal deleted inserted replaced

-:3043bff6248c
+:a6db617369e9
 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.
 "
+'From Smalltalk/X, Version:7.1.0.0 on 15-07-2016 at 17:28:27'                   !
 "{ Package: 'stx:libwidg' }"
 "{ NameSpace: Smalltalk }"
 View subclass:#ListView
 used - see MultipleColumnListEntry as an example.
 Therefore, ListView (and all subclasses) are prepared to handle non-string entries
 (especially: attributed Text and labelAndIcon-like entities).
 The internal version of the text has tabulators expanded to blanks. ListView is not prepared
 to deal with them. When text is exchanged with an external medium (i.e. reading/writing files),
 these are expanded/compressed assuming a tab-setting of 8.
 This is done independent of the user's tab setting, which is used ONLY for positioning,
 while the text is edited.
 Thus, even if the tab setting is multiple of 4's, tabs are
 written in multiples of 8 when the text is saved. Since this is the default on all ascii
 terminals and printers, this assures that the text looks correctly indented when finally printed.
 Notice:
 Due to historic reasons (ListView implemented scrolling before the general
 scrolling code in View was added), this one does scrolling different from all other
 views. The general scrolling code (in View) uses the transformation for transparent scrolling
 using the viewOrigin (transparent means, that the code does not need to know - it simply draws
 as if all of the text was visible).
 Here in ListView, the transformation is not used, instead it is done again, and different,
 by keeping the firstLineShown (i.e. vertical offset) and leftOffset (horizontal offset).
 Even worse: the firstLineShown is a line-index, the most annoying consequence of this is that
 scrolling is done by lines here, whereas it is done in pixels in the View class.
 Thus, be very careful, when changing things (better: don't touch it ;-).
 Also, the viewOrigin variable is only valid for the x coordinate. The viewOrigin's y is always 0 !!
 Also, all controller functionality is completely performed by the listView
 (and subclasses) itself. It is still possible, to define and set a specialized
 controller, though. I.e. if you like to change the input behavior, define
 [Instance variables:]
 list                <aCollection>           the text strings, a collection of lines.
-Nils may be used for empty lines.
+						  Nils may be used for empty lines.
 firstLineShown      <Number>                the index of the 1st visible line (1 ..)
 leftOffset          <Number>                left offset for horizontal scroll
 nFullLinesShown     <Number>                the number of unclipped lines in visible area
-(internal; updated on size changes)
+						  (internal; updated on size changes)
 nLinesShown         <Number>                the number of lines in visible area, incl. partial
-(internal; updated on size changes)
+						  (internal; updated on size changes)
 fgColor             <Color>                 color to draw characters
 bgColor             <Color>                 the background
 partialLines        <Boolean>               allow last line to be partial displayed
 fontAscent          <Number>                font ascent in pixels (internal)
 fontIsFixed         <Boolean>               true if its a fixed font (internal)
 fontWidth           <Number>                width of space (internal)
 lineSpacing         <Number>                pixels between lines
 lastSearchPattern   <String>                last pattern for searching
-(kept to provide a default for next search)
+						  (kept to provide a default for next search)
 lastSearchIgnoredCase   <Boolean>           last search ignored case
-(kept to provide a default for next search)
+						  (kept to provide a default for next search)
 wordCheck           <Block>                 rule used for check for word boundaries in word select
-The default rule is to return true for alphaNumeric characters.
+						  The default rule is to return true for alphaNumeric characters.
-(can be changed to allow for underscore and other
+						  (can be changed to allow for underscore and other
-characters to be treated as alphaCharacters)
+						   characters to be treated as alphaCharacters)
 autoScrollBlock     <Block>                 block installed as timeoutBlock when doing an
-autoScroll (internal)
+						  autoScroll (internal)
 autoScrollDeltaT                            computed scroll time delta in seconds (internal)
 includesNonStrings                          cached flag if any non-strings are in list
 widthOfWidestLine                           cached width of widest line
 listMsg                                     if view has a model and listMsg is non-nil,
-this is sent to the model to acquired a new contents
+						  this is sent to the model to acquired a new contents
-whenever a change of the aspect  (aspectMsg) occurs.
+						  whenever a change of the aspect  (aspectMsg) occurs.
 viewOrigin                                  the current origin
 backgroundAlreadyClearedColor               internal; speedup by avoiding
-multiple fills when drawing
+						  multiple fills when drawing
-internal lines
+						  internal lines
 scrollWhenUpdating
-<Symbol>        defines how the view is scrolled if the
+				<Symbol>        defines how the view is scrolled if the
-model changes its value by some outside activity
+						model changes its value by some outside activity
-(i.e. not by user input).
+						(i.e. not by user input).
-Can be one of:
+						Can be one of:
-#keep / nil     -> stay unchanged
+						    #keep / nil     -> stay unchanged
-#endOfText      -> scroll to the end
+						    #endOfText      -> scroll to the end
-#beginOfText    -> scroll to the top
+						    #beginOfText    -> scroll to the top
-The default is #beginOfText (i.e. scroll to top).
+						The default is #beginOfText (i.e. scroll to top).
 [StyleSheet parameters:]
 textForegroundColor                         defaults to Black
 textBackgroundColor                         defaults to White
 textFont                                    defaults to defaultFont
 textTabPositions                            defaults to #(1 9 17 25 ...)
 [author:]
-Claus Gittinger
+	Claus Gittinger
 [see also:]
-TextView EditTextView
+	TextView EditTextView
 "
 !
 examples
 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),
 wrapping in a ScrollableView:
-[exBegin]
+									[exBegin]
-|bigList top lv|
+	|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].
-bigList at:10 put:('Some Text ' asText , 'with Bold part' allBold).
+	bigList at:10 put:('Some Text ' asText , 'with Bold part' allBold).
-bigList at:20 put:('Some Text ' asText , 'with Italic part' allItalic).
+	bigList at:20 put:('Some Text ' asText , 'with Italic part' allItalic).
-top := StandardSystemView extent:200@200.
+	top := StandardSystemView extent:200@200.
-lv := HVScrollableView for:ListView in:top.
+	lv := HVScrollableView for:ListView in:top.
-lv origin:0.0 @ 0.0 corner:1.0 @ 1.0.
+	lv origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-lv list:bigList expandTabs:false scanForNonStrings:false includesNonStrings:false.
+	lv list:bigList expandTabs:false scanForNonStrings:false includesNonStrings:false.
-top open.
+	top open.
-[exEnd]
+									[exEnd]
 using a huge virtual list (1 mio simulated lines),
 wrapping in a ScrollableView:
-[exBegin]
+									[exBegin]
-|virtualList top lv|
+	|virtualList top lv|
-virtualList := Plug new.
+	virtualList := Plug new.
-virtualList inheritFrom:SequenceableCollection.
+	virtualList inheritFrom:SequenceableCollection.
-virtualList respondTo:#size with:[ 1000000 ].
+	virtualList respondTo:#size with:[ 1000000 ].
-virtualList respondTo:#at:  with:[:lineNr | 'List line Nr. ' , lineNr printString ].
+	virtualList respondTo:#at:  with:[:lineNr | 'List line Nr. ' , lineNr printString ].
-top := StandardSystemView extent:200@200.
+	top := StandardSystemView extent:200@200.
-lv := ScrollableView for:ListView in:top.
+	lv := ScrollableView for:ListView in:top.
-lv origin:0.0 @ 0.0 corner:1.0 @ 1.0.
+	lv origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-lv list:virtualList expandTabs:false scanForNonStrings:false includesNonStrings:false.
+	lv list:virtualList expandTabs:false scanForNonStrings:false includesNonStrings:false.
-top open.
+	top open.
-[exEnd]
+									[exEnd]
 using a huge virtual array (1 mio simulated lines),
 wrapping in a ScrollableView.
 To simulate an expensive computation, a delay is planted into the line generator;
 Startup and display of page full of lines should not take longer than the number of lines shown:
-[exBegin]
+									[exBegin]
-|virtualList top lv|
+	|virtualList top lv|
-virtualList := VirtualArray new.
+	virtualList := VirtualArray new.
-virtualList
+	virtualList
-setSize:1000000;
+	    setSize:1000000;
-generator:[:index | Transcript showCR:index.
+	    generator:[:index | Transcript showCR:index.
-Delay waitForSeconds:0.5.
+				Delay waitForSeconds:0.5.
-'%1 -> %2' bindWith:index with:index squared].
+				'%1 -> %2' bindWith:index with:index squared].
-top := StandardSystemView extent:200@200.
+	top := StandardSystemView extent:200@200.
-lv := ScrollableView for:ListView in:top.
+	lv := ScrollableView for:ListView in:top.
-lv origin:0.0 @ 0.0 corner:1.0 @ 1.0.
+	lv origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-lv expandTabsWhenUpdating:false.
+	lv expandTabsWhenUpdating:false.
-lv checkLineEndConventionWhenUpdating:false.
+	lv checkLineEndConventionWhenUpdating:false.
-lv checkedLinesForWidthOfContentsComputation:-1.
+	lv checkedLinesForWidthOfContentsComputation:-1.
-lv list:virtualList.
+	lv list:virtualList.
-top open.
+	top open.
-[exEnd]
+									[exEnd]
 "
 ! !
 !ListView class methodsFor:'accessing private classes'!
 updateStyleCache
 "extract values from the styleSheet and cache them in class variables"
 <resource: #style (#'text.foregroundColor' #'text.backgroundColor'
-#'text.tabPositions'
+		       #'text.tabPositions'
-#'text.font')>
+		       #'text.font')>
-DefaultForegroundColor := StyleSheet colorAt:'text.foregroundColor' default:Black.
+DefaultForegroundColor := StyleSheet colorAt:'text.foregroundColor' default:Color black.
-DefaultBackgroundColor := StyleSheet colorAt:'text.backgroundColor' default:White.
+DefaultBackgroundColor := StyleSheet colorAt:'text.backgroundColor' default:Color white.
 DefaultFont := StyleSheet fontAt:'text.font'.
 "/ that's not style, but a personal setting
 "/ DefaultTabPositions := StyleSheet at:'text.tabPositions'.
 "/ DefaultTabPositions isNil ifTrue:[DefaultTabPositions := self defaultTabPositions].
 DefaultLeftMargin := 0.5.
 checkedLinesForWidthOfContentsComputation := aNumberOrNil
 !
 compareModelWhenUpdating
 "return the compare when updating behavior.
 If true (the default), the list of lines as given due to a model update
 is processed and compared against the currently shown text.
 If they are the same, no action is taken.
 This behavior is ok in 99.99% of all applications.
 However, you may turn this off iff:
-- it is very expensive to process the list (for example, because the list
+	- it is very expensive to process the list (for example, because the list
-is defined by a virtual array, which computes the lines dynamically, on
+	  is defined by a virtual array, which computes the lines dynamically, on
-the fly).
+	  the fly).
 One use where this flag should be turned off is in the hex-memory display,
 which is able to simulate texts with millions of lines, but they are actually
 simulated by generating the presented lines dynamically, as they are displayed."
 ^ compareModelOnUpdate
 !
 compareModelWhenUpdating:aBoolean
 "define the compare when updating behavior.
 If true (the default), the list of lines as given due to a model update
 is processed and compared against the currently shown text.
 If they are the same, no action is taken.
 This behavior is ok in 99.99% of all applications.
 However, you may turn this off iff:
-- it is very expensive to process the list (for example, because the list
+	- it is very expensive to process the list (for example, because the list
-is defined by a virtual array, which computes the lines dynamically, on
+	  is defined by a virtual array, which computes the lines dynamically, on
-the fly).
+	  the fly).
 One use where this flag should be turned off is in the hex-memory display,
 which is able to simulate texts with millions of lines, but they are actually
 simulated by generating the presented lines dynamically, as they are displayed."
 compareModelOnUpdate := aBoolean
 !
 expandTabsWhenUpdating
 "return the tab expansion behavior.
 If true (the default), the list of lines as given via #list: or
 due to a model update is processed and lines are replaced by lines with
 tabs expanded.
 This behavior is ok in 99.99% of all applications.
 However, you may turn this off iff:
-- you are certain, that no tabs are in the passed in list
+	- you are certain, that no tabs are in the passed in list
-- it is very expensive to process the list (for example, because the list
+	- it is very expensive to process the list (for example, because the list
-is defined by a virtual array, which computes the lines dynamically, on
+	  is defined by a virtual array, which computes the lines dynamically, on
-the fly).
+	  the fly).
 One use where this flag should be turned off is in the hex-memory display,
 which is able to simulate texts with millions of lines, but they are actually
 simulated by generating the presented lines dynamically, as they are displayed."
 ^ expandTabsWhenUpdating
 !
 expandTabsWhenUpdating:aBoolean
 "define the tab expansion behavior.
 If true (the default), the list of lines as given via #list: or
 due to a model update is processed and lines are replaced by lines with
 tabs expanded.
 This behavior is ok in 99.99% of all applications.
 However, you may turn this off iff:
-- you are certain, that no tabs are in the passed in list
+	- you are certain, that no tabs are in the passed in list
-- it is very expensive to process the list (for example, because the list
+	- it is very expensive to process the list (for example, because the list
-is defined by a virtual array, which computes the lines dynamically, on
+	  is defined by a virtual array, which computes the lines dynamically, on
-the fly).
+	  the fly).
 One use where this flag should be turned off is in the hex-memory display,
 which is able to simulate texts with millions of lines, but they are actually
 simulated by generating the presented lines dynamically, as they are displayed."
 expandTabsWhenUpdating := aBoolean
 list isNil ifTrue:[list := OrderedCollection new].
 list add:aString.
 includesNonStrings ifFalse:[
-includesNonStrings := (aString notNil and:[(aString isSingleByteString) not]).
+	includesNonStrings := (aString notNil and:[(aString isSingleByteString) not]).
-includesNonStrings ifTrue:[
+	includesNonStrings ifTrue:[
-fontHeightBefore := fontHeight.
+	    fontHeightBefore := fontHeight.
-self getFontParameters.
+	    self getFontParameters.
-fontHeightBefore ~~ fontHeight ifTrue:[
+	    fontHeightBefore ~~ fontHeight ifTrue:[
-self invalidate
+		self invalidate
-].
+	    ].
-].
+	].
 ].
 widthOfWidestLine notNil ifTrue:[
-self recomputeWidthOfWidestLineFor:aString old:nil.
+	self recomputeWidthOfWidestLineFor:aString old:nil.
 ].
 shown ifTrue:[
-self redrawLine:(self size).
+	self redrawLine:(self size).
 ].
 self enqueueDelayedContentsChangedNotification.             "recompute scrollbars"
 "Modified: / 25-07-2012 / 12:00:20 / cg"
 !
 list isNil ifTrue:[list := OrderedCollection new].
 list add:aString beforeIndex:index.
 widthOfWidestLine notNil ifTrue:[
-self recomputeWidthOfWidestLineFor:aString old:nil.
+	self recomputeWidthOfWidestLineFor:aString old:nil.
 ].
 includesNonStrings ifFalse:[
-includesNonStrings := (aString notNil and:[(aString isSingleByteString) not]).
+	includesNonStrings := (aString notNil and:[(aString isSingleByteString) not]).
 "/        includesNonStrings ifTrue:[self getFontParameters].
 ].
 shown ifTrue:[
-lastShown := self lastLineShown.
+	lastShown := self lastLineShown.
-index <= 2 ifTrue:[
+	index <= 2 ifTrue:[
-self invalidate
+	    self invalidate
-] ifFalse:[
+	] ifFalse:[
-index to:lastShown do:[:eachLine |
+	    index to:lastShown do:[:eachLine |
-self invalidateLine:eachLine
+		self invalidateLine:eachLine
-].
+	    ].
-].
+	].
 ].
 self enqueueDelayedContentsChangedNotification.  "recompute scrollbars"
 (scrollWhenUpdating == #end or:[scrollWhenUpdating == #endOfText]) ifTrue:[
-"/ self selection isNil ifTrue:[
+	"/ self selection isNil ifTrue:[
-self scrollToBottom.
+	    self scrollToBottom.
-"/ ]
+	"/ ]
 ].
 "Modified: / 25-07-2012 / 12:00:42 / cg"
 !
 |lastShown|
 list isNil ifTrue:[list := OrderedCollection new].
 aCollectionOfLines do:[:eachLine |
-list addAll:aCollectionOfLines beforeIndex:index.
+	list addAll:aCollectionOfLines beforeIndex:index.
 ].
 includesNonStrings ifFalse:[
-includesNonStrings :=
+	includesNonStrings :=
-aCollectionOfLines
+	    aCollectionOfLines
-contains:[:someLine |
+		contains:[:someLine |
-someLine notNil and:[(someLine isSingleByteString) not].
+		    someLine notNil and:[(someLine isSingleByteString) not].
-]
+		]
 ].
 widthOfWidestLine notNil ifTrue:[
-aCollectionOfLines do:[:eachLine |
+	aCollectionOfLines do:[:eachLine |
-self recomputeWidthOfWidestLineFor:eachLine old:nil.
+	    self recomputeWidthOfWidestLineFor:eachLine old:nil.
-].
+	].
 ].
 "/    widthOfWidestLine := nil. "/ i.e. unknown
 self textChanged.
 shown ifTrue:[
-lastShown := self lastLineShown.
+	lastShown := self lastLineShown.
-((index-1) <= lastShown) ifTrue:[
+	((index-1) <= lastShown) ifTrue:[
-index <= 2 ifTrue:[
+	    index <= 2 ifTrue:[
-self invalidate
+		self invalidate
-] ifFalse:[
+	    ] ifFalse:[
-index-1 to:lastShown do:[:eachLine |
+		index-1 to:lastShown do:[:eachLine |
-self invalidateLine:eachLine
+		    self invalidateLine:eachLine
-].
+		].
-"/  self redrawFromLine:index-1.
+		"/  self redrawFromLine:index-1.
-].
+	    ].
-].
+	].
 ].
 self enqueueDelayedContentsChangedNotification.  "recompute scrollbars"
 (scrollWhenUpdating == #end or:[scrollWhenUpdating == #endOfText]) ifTrue:[
-"/ self selection isNil ifTrue:[
+	"/ self selection isNil ifTrue:[
-self scrollToBottom.
+	    self scrollToBottom.
-"/ ]
+	"/ ]
 ].
 "Modified: / 25-07-2012 / 12:00:54 / cg"
 !
 fontHeightBefore := fontHeight.
 widthBefore := widthOfWidestLine.
 self withoutRedrawAt:index put:aString.
 shown ifTrue:[
-fontHeightBefore ~= fontHeight ifTrue:[
+	fontHeightBefore ~= fontHeight ifTrue:[
-"/ must redraw everything
+	    "/ must redraw everything
-self invalidate.
+	    self invalidate.
-^ self
+	    ^ self
-].
+	].
-self redrawLine:index.
+	self redrawLine:index.
 "/ the code below is wrong - we really have to redraw everything, if the
 "/ fontHeight changes (due to a labelAndIcon in the list).
 "/            self redrawFromLine:index
 "/        ] ifFalse:[
 "/            self redrawLine:index
 "/        ].
-"/ asynchronous:
+	"/ asynchronous:
 "/        visibleLine := self listLineToVisibleLine:index.
 "/        visibleLine notNil ifTrue:[
 "/            y := self yOfVisibleLine:visibleLine.
 "/            self invalidate:((margin @ y) extent:(width@fontHeight))
 "/        ].
-widthBefore ~~ widthOfWidestLine ifTrue:[
+	widthBefore ~~ widthOfWidestLine ifTrue:[
-self enqueueDelayedContentsChangedNotification
+	    self enqueueDelayedContentsChangedNotification
-]
+	]
 ]
 "Modified: / 25-07-2012 / 12:01:46 / cg"
 !
 |stringCollection lineEnd|
 list isNil ifTrue:[^ ''].
 self lineEndCRLF ifTrue:[
-lineEnd := String crlf.
+	lineEnd := String crlf.
 ] ifFalse:[
-lineEnd := Character cr.
+	lineEnd := Character cr.
 ].
 stringCollection := list asStringCollection.
 ^ stringCollection
-asStringWith:lineEnd
+	asStringWith:lineEnd
-from:1 to:stringCollection size
+	from:1 to:stringCollection size
-compressTabs:false
+	compressTabs:false
-final:lineEnd
+	final:lineEnd
 "Modified: / 04-07-2006 / 19:18:47 / fm"
 !
 contents:something
 If scan is true, scan the passed list for nonStrings; otherwise,
 assume that it does contain non-strings
 (remembered to optimize later redraws)."
 self
-list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nil
+	list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nil
 "Modified: 5.6.1997 / 12:40:35 / cg"
 !
 list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStringsIfNoScan
 If expand is true, tabs are expanded (to spaces).
 If scan is true, scan the passed list for nonStrings;
 otherwise, take the information from the nonStrings arg.
 (the nonStrings information is remembered to optimize later redraws & height computations)."
 self
-list:aCollection
+	list:aCollection
-expandTabs:expand
+	expandTabs:expand
-scanForNonStrings:scan
+	scanForNonStrings:scan
-includesNonStrings:nonStringsIfNoScan
+	includesNonStrings:nonStringsIfNoScan
-redraw:true
+	redraw:true
 !
 list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStringsIfNoScan redraw:doRedraw
 "set the contents (a collection of strings)
 and scroll as specified in scrollWhenUpdating (default:top-left).
 "/ I think, if there is something to optimize,
 "/ the caller should do so (moved to getListFromModel).
 "/ notice, that it may be very expensive to ask aCollection for each line
 "/ for example, iff the lines are generated on the fly by an algorithm
 false ifTrue:[
-"/ see if there is a change at all.
+	"/ see if there is a change at all.
-"/ use to compare using =, but that's not enough in case of emphasis change.
+	"/ use to compare using =, but that's not enough in case of emphasis change.
-aCollection size == list size ifTrue:[
+	aCollection size == list size ifTrue:[
-same := true.
+	    same := true.
-aCollection size > 0 ifTrue:[
+	    aCollection size > 0 ifTrue:[
-aCollection with:list do:[:eachNewLine :eachOldLine |
+		aCollection with:list do:[:eachNewLine :eachOldLine |
-(eachNewLine == eachOldLine)
+		    (eachNewLine == eachOldLine)
-ifFalse:[
+		    ifFalse:[
-same := false.
+			same := false.
-]
+		    ]
-]
+		]
-].
+	    ].
-same ifTrue:[^ self].
+	    same ifTrue:[^ self].
-].
+	].
 ].
 scrollToTop := scrollWhenUpdating == #begin or:[scrollWhenUpdating == #beginOfText].
 scrollToEnd := scrollWhenUpdating == #end or:[scrollWhenUpdating == #endOfText].
 (aCollection isEmptyOrNil and:[list isEmptyOrNil]) ifTrue:[
-"no contents change"
+	"no contents change"
-list := aCollection.
+	list := aCollection.
-scrollLocked ifFalse:[
+	scrollLocked ifFalse:[
-scrollToTop ifTrue:[
+	    scrollToTop ifTrue:[
-self scrollToTop.
+		self scrollToTop.
-] ifFalse:[
+	    ] ifFalse:[
-scrollToEnd ifTrue:[
+		scrollToEnd ifTrue:[
-self scrollToBottom.
+		    self scrollToBottom.
-]
+		]
-].
+	    ].
-self scrollToLeft.
+	    self scrollToLeft.
-].
+	].
-^ self
+	^ self
 ].
 checkLineEndConventionWhenUpdating ifTrue:[
-"Check if the we use DOS/Windows line end convention with CR LF.
+	"Check if the we use DOS/Windows line end convention with CR LF.
-The LF has already been consumed by the conversion to a StringCollection,
+	 The LF has already been consumed by the conversion to a StringCollection,
-now check for and remove the trailing left over CRs"
+	 now check for and remove the trailing left over CRs"
-lineEndCRLF := (aCollection size > 0
+	lineEndCRLF := (aCollection size > 0
-and:[(firstLine := aCollection at:1) isString
+			and:[(firstLine := aCollection at:1) isString
-and:[firstLine notEmpty
+			and:[firstLine notEmpty
-and:[firstLine string endsWith:Character return]]]).
+			and:[firstLine string endsWith:Character return]]]).
 ].
 lineEndCRLF ifTrue:[
-list := aCollection
+	list := aCollection
-collect:[:eachLineWithCROrNil |
+		    collect:[:eachLineWithCROrNil |
-eachLineWithCROrNil isNil
+			eachLineWithCROrNil isNil
-ifTrue:nil
+			    ifTrue:nil
-ifFalse:[(eachLineWithCROrNil endsWith:Character return)
+			    ifFalse:[(eachLineWithCROrNil endsWith:Character return)
-ifTrue:[eachLineWithCROrNil copyButLast:1]
+				     ifTrue:[eachLineWithCROrNil copyButLast:1]
-ifFalse:[eachLineWithCROrNil]]].
+				     ifFalse:[eachLineWithCROrNil]]].
 ] ifFalse:[
-list := aCollection.
+	list := aCollection.
 ].
 nonStringsBefore := includesNonStrings.
 fontHeightBefore := fontHeight.
 includesNonStrings := false.
 list notNil ifTrue:[
-expand ifTrue:[
+	expand ifTrue:[
-self expandTabs
+	    self expandTabs
-] ifFalse:[
+	] ifFalse:[
-scan ifTrue:[
+	    scan ifTrue:[
-includesNonStrings := list contains:[:e | e isString not].
+		includesNonStrings := list contains:[:e | e isString not].
-] ifFalse:[
+	    ] ifFalse:[
-includesNonStrings := nonStringsIfNoScan ? nonStringsBefore
+		includesNonStrings := nonStringsIfNoScan ? nonStringsBefore
-]
+	    ]
-].
+	].
 ].
 (includesNonStrings ~~ nonStringsBefore) ifTrue:[
-self getFontParameters.
+	self getFontParameters.
 ].
 widthOfWidestLine := nil.   "/ i.e. unknown
 oldFirst := firstLineShown.
 oldLeft := viewOrigin x.
 (includesNonStrings ~~ nonStringsBefore) ifTrue:[
-self computeNumberOfLinesShown.
+	self computeNumberOfLinesShown.
 ].
 scrollLocked ifFalse:[
-newLeftOffset := viewOrigin x.
+	newLeftOffset := viewOrigin x.
-scrollToTop ifTrue:[
+	scrollToTop ifTrue:[
-firstLineShown := 1.
+	    firstLineShown := 1.
-newLeftOffset := 0.
+	    newLeftOffset := 0.
-] ifFalse:[
+	] ifFalse:[
-scrollToEnd ifTrue:[
+	    scrollToEnd ifTrue:[
-firstLineShown := (list size - nFullLinesShown + 1) max:1.
+		firstLineShown := (list size - nFullLinesShown + 1) max:1.
-newLeftOffset := 0.
+		newLeftOffset := 0.
-]
+	    ]
-].
+	].
-newLeftOffset > 0 ifTrue:[
+	newLeftOffset > 0 ifTrue:[
-wText := self widthOfContents.
+	    wText := self widthOfContents.
-(viewOrigin x + self innerWidth) > wText ifTrue:[
+	    (viewOrigin x + self innerWidth) > wText ifTrue:[
-newLeftOffset := (wText - self innerWidth) max:0.
+		newLeftOffset := (wText - self innerWidth) max:0.
-].
+	    ].
-].
+	].
-newLeftOffset ~= oldLeft ifTrue:[
+	newLeftOffset ~= oldLeft ifTrue:[
-viewOrigin := newLeftOffset @ viewOrigin y.
+	    viewOrigin := newLeftOffset @ viewOrigin y.
-].
+	].
 ].
 realized ifTrue:[
-self contentsChanged.
+	self contentsChanged.
-scrollLocked ifFalse:[
+	scrollLocked ifFalse:[
-"
+	    "
-don't use scroll here to avoid double redraw
+	     don't use scroll here to avoid double redraw
-"
+	    "
-viewOrigin := viewOrigin isNil ifTrue:[0@0] ifFalse:[(viewOrigin x) @ 0].
+	    viewOrigin := viewOrigin isNil ifTrue:[0@0] ifFalse:[(viewOrigin x) @ 0].
-transformation := nil.
+	    gc transformation:nil.
-oldFirst ~~ firstLineShown ifTrue:[
+	    oldFirst ~~ firstLineShown ifTrue:[
-self originChanged:0 @ ((oldFirst - 1) * fontHeight negated).
+		self originChanged:0 @ ((oldFirst - 1) * fontHeight negated).
-].
+	    ].
-].
+	].
-doRedraw ifTrue:[
+	doRedraw ifTrue:[
-shown ifTrue:[
+	    shown ifTrue:[
-self invalidate.
+		self invalidate.
-]
+	    ]
-]
+	]
 ]
 "Modified: / 30-08-1995 / 19:07:13 / claus"
 "Created: / 05-06-1997 / 12:40:06 / cg"
 "Modified: / 04-07-2006 / 19:12:39 / fm"
 widestLineRemoved := self widthOfWidestLineBetween:startLineNr and:endLineNr.
 list removeFromIndex:startLineNr toIndex:(endLineNr min:list size).
 widthOfWidestLine == widestLineRemoved ifTrue:[
-widthOfWidestLine := nil. "/ i.e. unknown
+	widthOfWidestLine := nil. "/ i.e. unknown
 ].
 self textChanged.
 ((startLineNr <= self lastLineShown)
 and:[endLineNr >= firstLineShown]) ifTrue:[
-startLineNr to:self lastLineShown do:[:eachLine |
+	startLineNr to:self lastLineShown do:[:eachLine |
-self invalidateLine:eachLine
+	    self invalidateLine:eachLine
-].
+	].
 ].
 nLines := list size.
 (firstLineShown >= nLines) ifTrue:[
-self makeLineVisible:nLines
+	self makeLineVisible:nLines
 ].
 self enqueueDelayedContentsChangedNotification.
 "Modified: / 25-07-2012 / 12:01:59 / cg"
 !
 (list isNil or:[lineNr > self size]) ifTrue:[^ false].
 list removeIndex:lineNr.
 lineNr < firstLineShown ifTrue:[
-firstLineShown := firstLineShown - 1
+	firstLineShown := firstLineShown - 1
 ].
 self enqueueDelayedContentsChangedNotification.
 ^ true
 "Modified: / 25-07-2012 / 12:02:09 / cg"
 replaceFrom:startLineNr to:endLineNr with:aCollection startingAt:replStartIndex
 "replace some lines"
 list isNil ifTrue:[
-list := OrderedCollection new.
+	list := OrderedCollection new.
 ].
 list replaceFrom:startLineNr to:endLineNr with:aCollection startingAt:replStartIndex.
 widthOfWidestLine := nil. "/ i.e. unknown
 self textChanged.
 ((startLineNr <= self lastLineShown)
 and:[endLineNr >= firstLineShown]) ifTrue:[
-self invalidate.
+	self invalidate.
 ].
 self enqueueDelayedContentsChangedNotification.
 "Modified: / 25-07-2012 / 12:02:15 / cg"
 "set the contents (a collection of strings);
 do not change position (i.e. do not scroll).
 This can be used to update a self-changing list
 (for example: a file list being shown, without disturbing the user too much)"
 self
-setList:aCollection expandTabs:expandTabs scanForNonStrings:true includesNonStrings:nil
+	setList:aCollection expandTabs:expandTabs scanForNonStrings:true includesNonStrings:nil
-redraw:doRedraw
+	redraw:doRedraw
 !
 setList:aCollection expandTabs:expandTabs scanForNonStrings:scan includesNonStrings:nonStringsIfNoScan redraw:doRedraw
 "set the contents (a collection of strings);
 do not change position (i.e. do not scroll).
 This can be used to update a self-changing list
 (for example: a file list being shown, without disturbing the user too much).
 TODO: this stinks: most of the code is the same as in #list:expandTabs:...
-needs a refactoring"
+	  needs a refactoring"
 |prev|
 prev := scrollLocked.
 [
-scrollLocked := false.
+	scrollLocked := false.
-self
+	self
-list:aCollection
+	    list:aCollection
-expandTabs:expandTabs
+	    expandTabs:expandTabs
-scanForNonStrings:scan
+	    scanForNonStrings:scan
-includesNonStrings:nonStringsIfNoScan
+	    includesNonStrings:nonStringsIfNoScan
-redraw:doRedraw
+	    redraw:doRedraw
 ] ensure:[
-scrollLocked := prev
+	scrollLocked := prev
 ].
 "/
 "/
 "/"/                scrollLocked ifTrue:[
 "/"/                    self setList:newText expandTabs:expandTabsWhenUpdating
 "/"/                ] ifFalse:[
 "/                    self list:newText expandTabs:expandTabsWhenUpdating scanForNonStrings:expandTabsWhenUpdating
 "/"/                ]
 startLine isNil ifTrue:[^ nil].
 endLine isNil ifTrue:[^ nil].
 (startLine == endLine) ifTrue:[
-"part of a line"
+	"part of a line"
-^ StringCollection with:(self listAt:startLine from:startCol to:endCol)
+	^ StringCollection with:(self listAt:startLine from:startCol to:endCol)
 ].
 sz := endLine - startLine + 1.
 sz < 1 ifTrue:[^ ''].
 text := StringCollection new:sz.
 "get 1st and last (possibly) partial lines"
 text at:1 put:(self listAt:startLine from:startCol).
 endCol == 0 ifTrue:[
-last := ''
+	last := ''
 ] ifFalse:[
-last := self listAt:endLine to:endCol.
+	last := self listAt:endLine to:endCol.
 ].
 text at:sz put:last.
 "get bulk of text"
 index := 2.
 (startLine + 1) to:(endLine - 1) do:[:lineNr |
-text at:index put:(self listAt:lineNr).
+	text at:index put:(self listAt:lineNr).
-index := index + 1
+	index := index + 1
 ].
 ^ text
 "Created: / 22-02-2000 / 23:53:06 / cg"
 !
 self checkForExistingLine:index.
 oldLine := self listAt:index.
 list at:index put:aString.
 oldLine ~= aString ifTrue:[
-self textChanged
+	self textChanged
 ].
 didIncludeNonStrings := includesNonStrings.
 includesNonStrings ifFalse:[
-includesNonStrings := (aString notNil and:[(aString isSingleByteString) not]).
+	includesNonStrings := (aString notNil and:[(aString isSingleByteString) not]).
 ] ifTrue:[
-(aString isNil or:[(aString isSingleByteString)]) ifTrue:[
+	(aString isNil or:[(aString isSingleByteString)]) ifTrue:[
-includesNonStrings := list contains:[:l | l notNil and:[(l isSingleByteString) not]].
+	    includesNonStrings := list contains:[:l | l notNil and:[(l isSingleByteString) not]].
-]
+	]
 ].
 includesNonStrings ~~ didIncludeNonStrings ifTrue:[
-self getFontParameters.
+	self getFontParameters.
-self computeNumberOfLinesShown
+	self computeNumberOfLinesShown
 ].
 widthOfWidestLine notNil ifTrue:[
-self recomputeWidthOfWidestLineFor:aString old:oldLine.
+	self recomputeWidthOfWidestLineFor:aString old:oldLine.
 ].
 "Modified: / 26.7.1998 / 13:00:14 / cg"
 ! !
 normalFont/boldFont/italicFont parameters."
 aFont isNil ifTrue:[
 ^ self error:'nil font' mayProceed:true
 ].
-font ~~ aFont ifTrue:[
+gc font ~~ aFont ifTrue:[
-super font:(aFont onDevice:device).
 preferredExtent := nil.
 widthOfWidestLine := nil. "/ i.e. unknown
+super font:aFont.
 self getFontParameters.
 realized ifTrue:[
-(font graphicsDevice == device) ifTrue:[
+(gc font graphicsDevice == device) ifTrue:[
 self computeNumberOfLinesShown.
 shown ifTrue:[
 self redrawFromVisibleLine:1 to:nLinesShown
 ]
 ].
 fontHeight:pixels
 "set the lines height - that's the number of pixels,
 by which lines are vertically separated."
 fontHeight ~~ pixels ifTrue:[
-fontHeight := pixels.
+	fontHeight := pixels.
 ]
 "Created: 17.4.1997 / 01:41:33 / cg"
 !
 lineSpacing:pixels
 "set the lineSpacing - that's an additional number of pixels,
 by which lines are vertically separated."
 lineSpacing ~~ pixels ifTrue:[
-lineSpacing := pixels.
+	lineSpacing := pixels.
-self getFontParameters.
+	self getFontParameters.
 ]
 "Modified: 22.5.1996 / 12:22:29 / cg"
 !
 on:aModel aspect:aspectSymbol change:changeSymbol list:listSymbol menu:menuSymbol
 "ST-80 compatibility"
 aspectSymbol notNil ifTrue:[
-aspectMsg := aspectSymbol.
+	aspectMsg := aspectSymbol.
-listMsg isNil ifTrue:[
+	listMsg isNil ifTrue:[
-listMsg := aspectSymbol
+	    listMsg := aspectSymbol
-]
+	]
 ].
 listSymbol notNil ifTrue:[listMsg := listSymbol].
 changeSymbol notNil ifTrue:[changeMsg := changeSymbol].
 menuMsg := menuSymbol.
 self model:aModel.
 y := self yOfVisibleLine:startVisLineNr.
 sH := lineSpacing // 2.
 backgroundAlreadyClearedColor == bg ifFalse:[
-self paint:bg.
+	self paint:bg.
-self fillRectangleX:margin
+	self fillRectangleX:margin
-y:y-sH
+			  y:y-sH
-width:(width - (margin * 2))
+		      width:(width - (margin * 2))
-height:(endVisLineNr - startVisLineNr + 1) * fontHeight + (lineSpacing - sH).
+		     height:(endVisLineNr - startVisLineNr + 1) * fontHeight + (lineSpacing - sH).
 ].
 list isNil ifTrue:[^ self].
 y := y + fontAscent.
 listSize := self size.
 startLine := startVisLineNr + firstLineShown - 1.
 endLine := endVisLineNr + firstLineShown - 1.
 (startLine == 0) ifTrue:[
-y := y + fontHeight.
+	y := y + fontHeight.
-startLine := startLine + 1
+	startLine := startLine + 1
 ].
 (endLine > listSize) ifTrue:[
-e := listSize
+	e := listSize
 ] ifFalse:[
-e := endLine
+	e := endLine
 ].
 (startLine <= e) ifTrue:[
-x := textStartLeft - viewOrigin x.
+	x := textStartLeft - viewOrigin x.
-self paint:fg on:bg.
+	self paint:fg on:bg.
-"/ don't use list from:to:do:, to allow for subclasses to redefine the enumeration (TableView)
+	"/ don't use list from:to:do:, to allow for subclasses to redefine the enumeration (TableView)
-self from:startLine to:e do:[:line |
+	self from:startLine to:e do:[:line |
-line notNil ifTrue:[
+	    line notNil ifTrue:[
-"/ remove line's color emphasis, to enforce color.
+		"/ remove line's color emphasis, to enforce color.
-"/ otherwise blue text is not visible if selection-bg is blue
+		"/ otherwise blue text is not visible if selection-bg is blue
-l := self withoutColorEmphasis:line ifFg:fg andBg:bg.
+		l := self withoutColorEmphasis:line ifFg:fg andBg:bg.
-self displayOpaqueString:l x:x y:y
+		self displayOpaqueString:l x:x y:y
-].
+	    ].
-y := y + fontHeight
+	    y := y + fontHeight
-]
+	]
 ]
 "Modified: / 15.12.1999 / 23:19:39 / cg"
 !
 |y l halfSpacing extraBelow|
 y := self yOfVisibleLine:visLineNr.
 backgroundAlreadyClearedColor == bg ifFalse:[
-self paint:bg.
+	self paint:bg.
-halfSpacing := (lineSpacing//2).
+	halfSpacing := (lineSpacing//2).
-extraBelow := 0.
+	extraBelow := 0.
-self highlightLineSpacing ifTrue:[
+	self highlightLineSpacing ifTrue:[
-extraBelow := halfSpacing.
+	    extraBelow := halfSpacing.
-].
+	].
-self fillRectangleX:margin y:y - halfSpacing
+	self fillRectangleX:margin y:y - halfSpacing
-width:(width - (2 * margin))
+		      width:(width - (2 * margin))
-height:fontHeight+extraBelow.
+		     height:fontHeight+extraBelow.
 ].
 line notNil ifTrue:[
-self paint:fg on:bg.
+	self paint:fg on:bg.
-"/ remove lines color emphasis, to enforce color.
+	"/ remove lines color emphasis, to enforce color.
-"/ otherwise blue text is not visible if selection-bg is blue.
+	"/ otherwise blue text is not visible if selection-bg is blue.
-"/ this is only done in EditTextViews and subClasses.
+	"/ this is only done in EditTextViews and subClasses.
-self suppressEmphasisInSelection ifTrue:[
+	self suppressEmphasisInSelection ifTrue:[
-l := self withoutColorEmphasis:line ifFg:fg andBg:bg.
+	    l := self withoutColorEmphasis:line ifFg:fg andBg:bg.
-] ifFalse:[
+	] ifFalse:[
-l := line
+	    l := line
-].
+	].
-self displayOpaqueString:l x:x y:(y + fontAscent)
+	self displayOpaqueString:l x:x y:(y + fontAscent)
 ].
 "Modified: / 15.12.1999 / 23:19:46 / cg"
 !
 self paint:bg.
 (lineString notNil and:[lineString isString not]) ifTrue:[
 	w := lineString widthFrom:col to:(col min:len) on:self.
 	w <= 0 ifTrue:[
-	    w := font width.
+	    w := gc font width.
 	    self fillRectangleX:x y:yf width:w height:fontHeight.
 	    self paint:fg
 	].
 	self clippedTo:(Rectangle left:x top:yf width:w height:fontHeight) do:[
 	    self drawVisibleLine:visLineNr with:fg and:bg
 	].
 	^ self
 ].
 (lineString isNil or:[col > len]) ifTrue:[
-	self fillRectangleX:x y:yf width:(font width) height:fontHeight.
+	self fillRectangleX:x y:yf width:(gc font width) height:fontHeight.
 	self paint:fg
 ] ifFalse:[
 	characterString := lineString copyFrom:col to:col.
 	"/ remove lines color emphasis, to enforce color.
 backgroundAlreadyClearedColor == bg ifFalse:[
 (lineString isSingleByteString) ifTrue:[
 fontIsFixedWidth ifTrue:[
 w := (eCol - sCol + 1) * fontWidth
 ] ifFalse:[
-w := font widthOf:lineString from:sCol to:eCol
+w := gc font widthOf:lineString from:sCol to:eCol
 ]
 ] ifFalse:[
 w := lineString widthFrom:sCol to:endCol on:self
 ].
 self paint:bg.
 "/ self displayOpaqueString:lineString from:sCol to:eCol x:x y:(y + fontAscent)
 self displayString:lineString from:sCol to:eCol x:x y:(y + fontAscent)
 ]
 ] ifFalse:[
 "/ self displayOpaqueString:lineString from:sCol to:eCol x:x y:(y + fontAscent)
-self displayString:lineString from:sCol to:eCol x:x y:(y + fontAscent)
+self displayString:lineString from:sCol to:eCol x:x y:(y + fontAscent) opaque:false maxWidth:self width
 ].
 ]
 ]
 "Modified: / 15.12.1999 / 23:21:43 / cg"
 "draw right part of a visible line from startCol to end of line in fg/bg"
 |y x index1 index2 lineWithoutColor|
 (startCol < 1) ifTrue:[
-index1 := 1
+	index1 := 1
 ] ifFalse:[
-index1 := startCol
+	index1 := startCol
 ].
 y := self yOfVisibleLine:visLineNr.
 x := (self xOfCol:index1 inVisibleLine:visLineNr) - viewOrigin x.
 backgroundAlreadyClearedColor == bg ifFalse:[
-self paint:bg.
+	self paint:bg.
-self fillRectangleX:x y:y - (lineSpacing // 2)
+	self fillRectangleX:x y:y - (lineSpacing // 2)
-width:(width + viewOrigin x - x)
+		      width:(width + viewOrigin x - x)
-height:fontHeight.
+		     height:fontHeight.
 ].
 lineString notNil ifTrue:[
-lineString isString ifFalse:[
+	lineString isString ifFalse:[
-self drawLine:lineString inVisible:visLineNr from:startCol to:nil with:fg and:bg.
+	    self drawLine:lineString inVisible:visLineNr from:startCol to:nil with:fg and:bg.
-] ifTrue:[
+	] ifTrue:[
-lineWithoutColor := self withoutColorEmphasis:lineString ifFg:fg andBg:bg.
+	    lineWithoutColor := self withoutColorEmphasis:lineString ifFg:fg andBg:bg.
-index2 := lineWithoutColor size.
+	    index2 := lineWithoutColor size.
-(index2 < index1) ifTrue:[^ self].
+	    (index2 < index1) ifTrue:[^ self].
-(index1 <= index2) ifTrue:[
+	    (index1 <= index2) ifTrue:[
-self paint:fg on:bg.
+		self paint:fg on:bg.
-"/ self displayOpaqueString:lineWithoutColor from:index1 to:index2 x:x y:(y + fontAscent)
+		"/ self displayOpaqueString:lineWithoutColor from:index1 to:index2 x:x y:(y + fontAscent)
-self displayString:lineWithoutColor from:index1 to:index2 x:x y:(y + fontAscent)
+		self displayString:lineWithoutColor from:index1 to:index2 x:x y:(y + fontAscent)
-]
+	    ]
-]
+	]
 ]
 "Modified: / 15.12.1999 / 23:24:40 / cg"
 !
 "Modified: 28.2.1996 / 19:30:23 / cg"
 !
 fillRectangleX:x y:y width:w height:h
 "fill rectangle; checks whether the rectangle already is filled with
-the current paint (#redrawX:y:w:h).
+the current paint (#redrawX:y:w:h)."
-"
-backgroundAlreadyClearedColor ~~ paint ifTrue:[
+backgroundAlreadyClearedColor ~~ self paint ifTrue:[
-	super fillRectangleX:x y:y width:w height:h
+super fillRectangleX:x y:y width:w height:h
 ]
 !
 invalidateLine:line
 "invalidate the area of a single line.
 This arranges for that line to be redrawn asynchronously (later).
 |yTop visLineNr|
 visLineNr := self listLineToVisibleLine:line.
 visLineNr notNil ifTrue:[
-yTop := self yOfVisibleLine:visLineNr.
+	yTop := self yOfVisibleLine:visLineNr.
-yTop isNil ifTrue:[^ self]. "/ not visible
+	yTop isNil ifTrue:[^ self]. "/ not visible
-(yTop + fontHeight) < 0 ifTrue:[^ self]. "/ not visible
+	(yTop + fontHeight) < 0 ifTrue:[^ self]. "/ not visible
-self
+	self
-invalidateDeviceRectangle:(Rectangle
+	    invalidateDeviceRectangle:(Rectangle
-left:margin top:yTop-(lineSpacing//2)
+			    left:margin top:yTop-(lineSpacing//2)
-width:(width - (2 * margin)) height:fontHeight)
+			    width:(width - (2 * margin)) height:fontHeight)
-repairNow:false.
+	    repairNow:false.
 ]
 "Created: / 5.3.1998 / 01:24:19 / cg"
 "Modified: / 5.3.1998 / 13:41:31 / cg"
 ! !
 "size of contents changed - move origin up if possible"
 |listSize newOrigin|
 shown ifTrue:[
-list notNil ifTrue:[
+	list notNil ifTrue:[
-listSize := self numberOfLines.
+	    listSize := self numberOfLines.
-listSize == 0 ifTrue:[
+	    listSize == 0 ifTrue:[
-widthOfWidestLine := 0.
+		widthOfWidestLine := 0.
-].
+	    ].
-"
+	    "
-if we are beyond the end, scroll up a bit
+	     if we are beyond the end, scroll up a bit
-"
+	    "
-((firstLineShown + nFullLinesShown) > listSize) ifTrue:[
+	    ((firstLineShown + nFullLinesShown) > listSize) ifTrue:[
-newOrigin := listSize - nFullLinesShown + 1.
+		newOrigin := listSize - nFullLinesShown + 1.
-newOrigin < 1 ifTrue:[
+		newOrigin < 1 ifTrue:[
-newOrigin := 1
+		    newOrigin := 1
-].
+		].
-self scrollToLine: newOrigin.
+		self scrollToLine: newOrigin.
-].
+	    ].
-].
+	].
 ].
 ^ super contentsChanged
 "Modified: 18.11.1996 / 19:50:07 / stefan"
 !
 mouseWheelZoom:amount
 "CTRL-wheel action"
-|oldSize newSize delta mul|
+|oldSize newSize delta mul font|
 amount > 0 ifTrue:[
 "/ delta := 1.  mul := 1.
 delta := 0.  mul := 1.2.
 ] ifFalse:[
 "/ delta := -1. mul := 1.
 delta := 0. mul := 0.8.
 ].
-font sizeUnit == #px ifFalse:[
+font := gc font.
+font sizeUnit ~~ #px ifTrue:[
 oldSize := font size.
 newSize := ((oldSize + delta)* mul) max:2.
 newSize ~= oldSize ifTrue:[
 self font:(font asSize:newSize).
 ]
 shown ifFalse:[^ self].
 startLine := self visibleLineOfY:y.
 stopLine := self visibleLineOfY:(y + h).
-saveClip := clipRect.
+saveClip := gc clippingBoundsOrNil.
 self clippingRectangle:(Rectangle left:x top:y width:w height:h).
 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 isSingleByteString]) ifFalse:[
+	(fontIsFixedWidth and:[line isSingleByteString]) 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 isSingleByteString) ifTrue:[
+			(line isSingleByteString) 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.
 !
 super initStyle.
 n := DefaultTopMargin.
 n isInteger ifFalse:[
-n := (self verticalPixelPerMillimeter:n) rounded.
+	n := (self verticalPixelPerMillimeter:n) rounded.
 ].
 self topMargin:n.
 n := DefaultLeftMargin.
 n isInteger ifFalse:[
-n := (self verticalPixelPerMillimeter:n) rounded.
+	n := (self verticalPixelPerMillimeter:n) rounded.
 ].
 self leftMargin:n.
 lineSpacing := 2.
 "/ q&d temporary hack.
 "/ X11 fonts are currently so ugly... add more spacing.
-device platformName == #X11 ifTrue:[
+device isX11Platform ifTrue:[
-lineSpacing := lineSpacing + 3.
+	lineSpacing := lineSpacing + 3.
 ].
 fgColor := DefaultForegroundColor.
 bgColor := DefaultBackgroundColor.
 "Modified (comment): / 05-10-2011 / 15:51:02 / az"
 nFullLinesShown := 1. "just any value ..."
 nLinesShown := 1.     "just any value"
 partialLines := true.
 tabPositions := UserDefaultTabPositions ? self class defaultTabPositions.
 includesNonStrings := false.
 lineEndCRLF := false.
 checkedLinesForWidthOfContentsComputation := nil."/ i.e. all
 self getFontParameters.
 self initializeWordCheckAction.
 scrollWhenUpdating := #keep. "/ #beginOfText.
 "
 for fix fonts, this is easy ...
 "
 (fontIsFixedWidth
 and:[lineString isNil
-or:[lineString hasChangeOfEmphasis not]]) ifTrue:[
+	  or:[lineString hasChangeOfEmphasis not]]) ifTrue:[
-^ (xRel // fontWidth) + 1
+	^ (xRel // fontWidth) + 1
 ].
 "
 for variable fonts, more work is required ...
 "
 lineString notNil ifTrue:[
-lineString := self visibleStringFrom:lineString.
+	lineString := self visibleStringFrom:lineString.
-(hasEmphasis := lineString hasChangeOfEmphasis) ifTrue:[
+	(hasEmphasis := lineString hasChangeOfEmphasis) ifTrue:[
-linePixelWidth := lineString widthOn:self
+	    linePixelWidth := lineString widthOn:self
-] ifFalse:[
+	] ifFalse:[
-lineString := lineString string.
+	    lineString := lineString string.
-linePixelWidth := font widthOf:lineString.
+	    linePixelWidth := gc font widthOf:lineString.
-]
+	]
 ] ifFalse:[
-linePixelWidth := 0
+	linePixelWidth := 0
 ].
 (linePixelWidth <= xRel) ifTrue:[
-fontWidth == 0 ifTrue:[
+	fontWidth == 0 ifTrue:[
-"
+	    "
-although this 'cannot happen',
+	     although this 'cannot happen',
-it seems that X reports this width for some strange fonts ...
+	     it seems that X reports this width for some strange fonts ...
-"
+	    "
-^ lineString size
+	    ^ lineString size
-].
+	].
-^ lineString size + ((xRel - linePixelWidth) // fontWidth) + 1
+	^ lineString size + ((xRel - linePixelWidth) // fontWidth) + 1
 ].
 "/ cannot simply count individual characters,
 "/ since kerning or other non-linear effects may be involved ...
 "/ use a binary search, initialized with some guess.
 "/ a guess: take some 'average' character's width and compute an initial guess
-runCol := x // (font widthOf:'e').
+runCol := x // (gc font widthOf:'e').
 runCol := runCol min:lineString size.
 "/    runCol := lineString size // 2.
 "/    (runCol == 0) ifTrue:[runCol := 1].
 hasEmphasis ifTrue:[
-posLeft := (lineString copyFrom:1 to:(runCol - 1)) widthOn:self.
+	posLeft := (lineString copyFrom:1 to:(runCol - 1)) widthOn:self.
-posRight := (lineString copyFrom:1 to:runCol) widthOn:self.
+	posRight := (lineString copyFrom:1 to:runCol) widthOn:self.
 ] ifFalse:[
-posLeft := font widthOf:lineString from:1 to:(runCol - 1).
+	posLeft := gc font widthOf:lineString from:1 to:(runCol - 1).
-posRight := font widthOf:lineString from:1 to:runCol.
+	posRight := gc font widthOf:lineString from:1 to:runCol.
 ].
 done := (posLeft <= xRel) and:[posRight > xRel].
 [done] whileFalse:[
-oPosRight := posRight.
+	oPosRight := posRight.
-oPosLeft := posLeft.
+	oPosLeft := posLeft.
-(posRight <= xRel) ifTrue:[
+	(posRight <= xRel) ifTrue:[
-runCol := runCol + 1.
+	    runCol := runCol + 1.
-posLeft := posRight.
+	    posLeft := posRight.
-hasEmphasis ifTrue:[
+	    hasEmphasis ifTrue:[
-posRight := (lineString copyFrom:1 to:runCol) widthOn:self.
+		posRight := (lineString copyFrom:1 to:runCol) widthOn:self.
-] ifFalse:[
+	    ] ifFalse:[
-posRight := font widthOf:lineString from:1 to:runCol
+		posRight := gc font widthOf:lineString from:1 to:runCol
-]
+	    ]
-] ifFalse:[
+	] ifFalse:[
-(posLeft > xRel) ifTrue:[
+	    (posLeft > xRel) ifTrue:[
-runCol := runCol - 1.
+		runCol := runCol - 1.
-(runCol == 0) ifTrue:[^ 0].
+		(runCol == 0) ifTrue:[^ 0].
-posRight := posLeft.
+		posRight := posLeft.
-hasEmphasis ifTrue:[
+		hasEmphasis ifTrue:[
-posLeft := (lineString copyFrom:1 to:(runCol - 1)) widthOn:self.
+		    posLeft := (lineString copyFrom:1 to:(runCol - 1)) widthOn:self.
-] ifFalse:[
+		] ifFalse:[
-posLeft := font widthOf:lineString from:1 to:(runCol - 1)
+		    posLeft := gc font widthOf:lineString from:1 to:(runCol - 1)
-]
+		]
-]
+	    ]
-].
+	].
-done := (posLeft <= xRel) and:[posRight > xRel].
+	done := (posLeft <= xRel) and:[posRight > xRel].
 "234567890123456789012345678901234567890"
-((oPosRight == posRight) and:[oPosLeft == posLeft]) ifTrue:[
+	((oPosRight == posRight) and:[oPosLeft == posLeft]) ifTrue:[
-"/ paranoia: just in case there are unprintable characters
+	    "/ paranoia: just in case there are unprintable characters
-"/ (avoid endless loop if the binary search does not make progress)
+	    "/ (avoid endless loop if the binary search does not make progress)
-done := true.
+	    done := true.
-]
+	]
 ].
 "/self paint:Color red.
 "/self displayRectangleX:posLeft+textStartLeft-viewOrigin x y:(self yOfVisibleLine:visLineNr)
 "/                       width:(posRight-posLeft) height:fontHeight.
 "/self paint:Color black.
 |sensor|
 sensor := self sensor.
 (sensor hasUserEvent:#contentsChanged for:self) ifFalse:[
-sensor pushUserEvent:#contentsChanged for:self
+	sensor pushUserEvent:#contentsChanged for:self
 ].
 "/ used to be syncronous:
 "/ self contentsChanged.             "recompute scrollbars"
 "Created: / 25-07-2012 / 11:59:58 / cg"
 The code below uses the font's average height parameters - these
 are not OK for some oversized national characters (such as A-dieresis).
 Therefore, this method should be redefined in views which will be used
 with national characters (i.e. editTextViews)."
-|hMax|
+|hMax newDeviceFont|
-font := font onDevice:device.
+newDeviceFont := gc createFontOnDevice.
-hMax := font height.
+hMax := newDeviceFont height.
 includesNonStrings == true ifTrue:[
-"/
+	"/
-"/ find maximum height of lines
+	"/ find maximum height of lines
-"/
+	"/
-hMax := list inject:hMax into:[:maxSoFar :thisLine |
+	hMax := list inject:hMax into:[:maxSoFar :thisLine |
-thisLine isNil ifTrue:[
+					thisLine isNil ifTrue:[
-maxSoFar
+					    maxSoFar
-] ifFalse:[
+					] ifFalse:[
-(thisLine isSingleByteString) ifTrue:[
+					    (thisLine isSingleByteString) ifTrue:[
-maxSoFar
+						maxSoFar
-] ifFalse:[
+					    ] ifFalse:[
-maxSoFar max:(thisLine heightOn:self)
+						maxSoFar max:(thisLine heightOn:self)
-]
+					    ]
-]
+					]
-].
+			      ].
 ].
-fontHeight := font maxHeight.
+fontHeight := newDeviceFont maxHeight.
 "/ fontHeight := font height.
 fontHeight := fontHeight max:(hMax + lineSpacing).
-fontAscent := font ascent. "/ maxAscent. -- see SelectionInListViews selection in motif style
+fontAscent := newDeviceFont ascent. "/ maxAscent. -- see SelectionInListViews selection in motif style
 "/ fontAscent := font maxAscent "ascent". "/ maxAscent. -- see SelectionInListViews selection in motif style
 "/ fontAscent := (font maxAscent + font ascent) // 2. "/ maxAscent. -- see SelectionInListViews selection in motif style
-fontWidth := font width.
+fontWidth := newDeviceFont width.
-fontIsFixedWidth := font isFixedWidth.
+fontIsFixedWidth := newDeviceFont isFixedWidth.
 "Modified: 3.7.1997 / 12:24:25 / cg"
 !
 getListFromModel
 If there is no listMessage, try aspect for backward compatibility."
 |newText msg doCompareIfUnchanged|
 model notNil ifTrue:[
-msg := listMsg ? aspectMsg.
+	msg := listMsg ? aspectMsg.
-msg notNil ifTrue:[
+	msg notNil ifTrue:[
-doCompareIfUnchanged := compareModelOnUpdate.
+	    doCompareIfUnchanged := compareModelOnUpdate.
-newText := model perform:msg.
+	    newText := model perform:msg.
-"/ cg: this makes many optimizations (virtualArray) useless;
+	    "/ cg: this makes many optimizations (virtualArray) useless;
-"/ I do not think that this is a good idea:
+	    "/ I do not think that this is a good idea:
-"/     text notNil ifTrue:[
+	    "/     text notNil ifTrue:[
-"/ so I changed it to:
+	    "/ so I changed it to:
-(newText notNil and:[newText isString]) ifTrue:[
+	    (newText notNil and:[newText isString]) ifTrue:[
-newText := newText asStringCollection.
+		newText := newText asStringCollection.
-] ifFalse:[
+	    ] ifFalse:[
-newText == model ifTrue:[
+		newText == model ifTrue:[
-"/ I must operate on a copy
+		    "/ I must operate on a copy
-newText := model asNewOrderedCollection.
+		    newText := model asNewOrderedCollection.
-"/ doCompareIfUnchanged := false.
+		    "/ doCompareIfUnchanged := false.
-].
+		].
-].
+	    ].
-doCompareIfUnchanged ifTrue:[
+	    doCompareIfUnchanged ifTrue:[
-"/ see if there is a change at all.
+		"/ see if there is a change at all.
-"/ use to compare using =, but that's not enough in case of emphasis change.
+		"/ use to compare using =, but that's not enough in case of emphasis change.
-newText size == list size ifTrue:[
+		newText size == list size ifTrue:[
-|same|
+		    |same|
-same := true.
+		    same := true.
-newText size > 0 ifTrue:[
+		    newText size > 0 ifTrue:[
-newText with:list do:[:eachNewLine :eachOldLine |
+			newText with:list do:[:eachNewLine :eachOldLine |
-(eachNewLine == eachOldLine) ifFalse:[
+			    (eachNewLine == eachOldLine) ifFalse:[
-same := false.
+				same := false.
-]
+			    ]
-]
+			]
-].
+		    ].
-same ifTrue:[^ self].
+		    same ifTrue:[^ self].
-].
+		].
-].
+	    ].
-"/ SV: this compare does not work, if model uses (i.e. updates)
+	    "/ SV: this compare does not work, if model uses (i.e. updates)
-"/ the same stringCollection as the view!!
+	    "/ the same stringCollection as the view!!
-true "text ~= list" ifTrue:[
+	    true "text ~= list" ifTrue:[
-"/ changed #list to care for scrollLocked
+		"/ changed #list to care for scrollLocked
 "/                scrollLocked ifTrue:[
 "/                    self setList:newText expandTabs:expandTabsWhenUpdating
 "/                ] ifFalse:[
-self list:newText expandTabs:expandTabsWhenUpdating scanForNonStrings:expandTabsWhenUpdating
+		    self list:newText expandTabs:expandTabsWhenUpdating scanForNonStrings:expandTabsWhenUpdating
 "/                ]
-].
+	    ].
-].
+	].
 ].
 "Modified: 26.4.1996 / 14:09:42 / cg"
 "Modified: 19.2.1997 / 12:08:50 / stefan"
 !
 |prev|
 prev := scrollLocked.
 scrollLocked := aBoolean not.
 [
-self getListFromModel
+	self getListFromModel
 ] ensure:[
-scrollLocked := prev.
+	scrollLocked := prev.
 ].
 !
 highlightLineSpacing
 "true if the spacing between lines is to be drawn with selected color,
 line := self listAt:lineNr.
 lineLen := line size.
 (line isNil or:[startCol > lineLen]) ifTrue:[
-(nCols > 0) ifTrue:[
+	(nCols > 0) ifTrue:[
-^ (String new:nCols)
+	    ^ (String new:nCols)
-].
+	].
-^ nil
+	^ nil
 ].
 (endCol > lineLen) ifTrue:[
-^ (line copyFrom:startCol to:lineLen) , (String new:(endCol-lineLen))
+	^ (line copyFrom:startCol to:lineLen) , (String new:(endCol-lineLen))
 ].
 ^ line copyFrom:startCol to:endCol
 !
 listAt:lineNr to:endCol
 |line lineSize|
 line := self listAt:lineNr.
 line isNil ifTrue:[
-(endCol > 0) ifTrue:[
+	(endCol > 0) ifTrue:[
-^ (String new:endCol)
+	    ^ (String new:endCol)
-].
+	].
-^ nil
+	^ nil
 ].
 lineSize := line size.
 (endCol > lineSize) ifTrue:[
-^ (line copyTo:lineSize) , (String new:(endCol - lineSize)).
+	^ (line copyTo:lineSize) , (String new:(endCol - lineSize)).
 ].
 ^ line copyTo:endCol
 !
 listLineIsVisible:listLineNr
 self recomputeWidthOfWidestLineFor:aString old:nil
 !
 recomputeWidthOfWidestLineFor:newEntry old:oldEntry
 "a new line was added (oldEntry == nil) or replaced oldEntry.
 Update the widthOfWidestLine cache or flush it, if we cannot easily
 figure out the overall text width"
 |newW oldW|
 widthOfWidestLine notNil ifTrue:[
-newEntry isNil ifTrue:[
+	newEntry isNil ifTrue:[
-newW := 0
+	    newW := 0
-] ifFalse:[
+	] ifFalse:[
-(newEntry isSingleByteString) ifTrue:[
+	    (newEntry isSingleByteString) ifTrue:[
-newW := font widthOf:newEntry
+		newW := gc font widthOf:newEntry
-] ifFalse:[
+	    ] ifFalse:[
-newW := newEntry widthOn:self
+		newW := newEntry widthOn:self
-].
+	    ].
-].
+	].
-newW >= widthOfWidestLine ifTrue:[
+	newW >= widthOfWidestLine ifTrue:[
-widthOfWidestLine := newW.
+	    widthOfWidestLine := newW.
-] ifFalse:[
+	] ifFalse:[
-oldEntry isNil ifTrue:[
+	    oldEntry isNil ifTrue:[
-oldW := 0
+		oldW := 0
-] ifFalse:[
+	    ] ifFalse:[
-(oldEntry isSingleByteString) ifTrue:[
+		(oldEntry isSingleByteString) ifTrue:[
-oldW := font widthOf:oldEntry
+		    oldW := gc font widthOf:oldEntry
-] ifFalse:[
+		] ifFalse:[
-oldW := oldEntry widthOn:self
+		    oldW := oldEntry widthOn:self
-].
+		].
-].
+	    ].
-newW > oldW ifTrue:[
+	    newW > oldW ifTrue:[
-"/ no change; new entries width is between this width and amx width
+		"/ no change; new entries width is between this width and amx width
-] ifFalse:[
+	    ] ifFalse:[
-"/ new entry is smaller than oldEntry; if the oldEntry was the previos max,
+		"/ new entry is smaller than oldEntry; if the oldEntry was the previos max,
-"/ we don't know the new max
+		"/ we don't know the new max
-oldW = widthOfWidestLine ifTrue:[
+		oldW = widthOfWidestLine ifTrue:[
-widthOfWidestLine := nil "/ means: unknown
+		    widthOfWidestLine := nil "/ means: unknown
-] ifFalse:[
+		] ifFalse:[
-"/ old line was not the widest, and new line is shorter;
+		    "/ old line was not the widest, and new line is shorter;
-"/ no change
+		    "/ no change
-]
+		]
-]
+	    ]
-].
+	].
 ].
 ^ widthOfWidestLine
 !
 suppressEmphasisInSelection
 widthOfLineString:entry
 "return the width of an entry"
 entry isNil ifTrue:[^ 0].
 (entry isSingleByteString) ifTrue:[
-^ font widthOf:entry
+	^ gc font widthOf:entry
 ].
 ^ entry widthOn:self
 "Modified: 12.5.1996 / 20:09:53 / cg"
 !
 last     "{ Class: SmallInteger }"
 thisLen  "{ Class: SmallInteger }"
 listSize "{ Class: SmallInteger }" |
 includesNonStrings ifTrue:[
-^ width
+	^ width
 ].
 fontIsFixedWidth ifTrue:[
-^ (self lengthOfLongestLineBetween:firstLine and:lastLine) * fontWidth
+	^ (self lengthOfLongestLineBetween:firstLine and:lastLine) * fontWidth
 ].
 listSize := self size.
 max := 0.
 first := firstLine.
 last := lastLine.
 (first > listSize) ifTrue:[^ max].
 (last > listSize) ifTrue:[
-last := listSize
+	last := listSize
 ].
 self from:first to:last do:[:line |
-line notNil ifTrue:[
+	line notNil ifTrue:[
-(line isSingleByteString) ifTrue:[
+	    (line isSingleByteString) ifTrue:[
-thisLen := font widthOf:line
+		thisLen := gc font widthOf:line
-] ifFalse:[
+	    ] ifFalse:[
-thisLen := line widthOn:self
+		thisLen := line widthOn:self
-].
+	    ].
-(thisLen > max) ifTrue:[
+	    (thisLen > max) ifTrue:[
-max := thisLen
+		max := thisLen
-]
+	    ]
-]
+	]
 ].
 ^ max
 !
 withoutAnyColorEmphasis:line
 (line notNil and:[line isText]) ifTrue:[
-^ line withoutAnyColorEmphasis
+	^ line withoutAnyColorEmphasis
 ].
 ^ line
 "
 'hello' asText colorizeAllWith:Color red.
 "Modified (comment): / 06-03-2012 / 18:16:41 / cg"
 !
 withoutBackgroundColorEmphasis:line
 (line notNil and:[line isText]) ifTrue:[
-^ line withoutBackgroundColorEmphasis
+	^ line withoutBackgroundColorEmphasis
 ].
 ^ line
 !
 withoutColorEmphasis:line
 (line notNil and:[line isText]) ifTrue:[
-^ line withoutForegroundColorEmphasis
+	^ line withoutForegroundColorEmphasis
 ].
 ^ line
 !
 withoutColorEmphasis:line ifFg:fg andBg:bg
 "/ otherwise blue text is not visible if selection-bg is blue
 (line notNil
 and:[line isText
 and:[fg ~= fgColor or:[bg ~= bgColor]]]) ifTrue:[
-^ line withoutAnyColorEmphasis
+	^ line withoutAnyColorEmphasis
 ].
 ^ line
 "Created: / 15-12-1999 / 23:19:30 / cg"
 !
 "given a visible line- and colNr, return the x-coordinate in view"
 |line lineSize tcol lText|
 col == 1 ifTrue:[
-lText := 0
+	lText := 0
 ] ifFalse:[
-tcol := col - 1.
+	tcol := col - 1.
-line := self visibleAt:visLineNr.
+	line := self visibleAt:visLineNr.
-(fontIsFixedWidth
+	(fontIsFixedWidth
-and:[line isNil or:[line isSingleByteString]])
+	and:[line isNil or:[line isSingleByteString]])
-ifTrue:[
+	ifTrue:[
-lText := (tcol * fontWidth)
+	    lText := (tcol * fontWidth)
-] ifFalse:[
+	] ifFalse:[
-line notNil ifTrue:[
+	    line notNil ifTrue:[
-lineSize := line string size
+		lineSize := line string size
-] ifFalse:[
+	    ] ifFalse:[
-lineSize := 0
+		lineSize := 0
-].
+	    ].
-(lineSize == 0) ifTrue:[
+	    (lineSize == 0) ifTrue:[
-lText := (tcol * fontWidth)
+		lText := (tcol * fontWidth)
-] ifFalse:[
+	    ] ifFalse:[
-(lineSize < col) ifTrue:[
+		(lineSize < col) ifTrue:[
-lText := (line widthOn:self) + (fontWidth * (tcol - lineSize))
+		    lText := (line widthOn:self) + (fontWidth * (tcol - lineSize))
-] ifFalse:[
+		] ifFalse:[
-(line isSingleByteString) ifTrue:[
+		    (line isSingleByteString) ifTrue:[
-lText := (font widthOf:line from:1 to:tcol)
+			lText := (gc font widthOf:line from:1 to:tcol)
-] ifFalse:[
+		    ] ifFalse:[
-lText := line widthFrom:1 to:tcol on:self.
+			lText := line widthFrom:1 to:tcol on:self.
-]
+		    ]
-]
+		]
-]
+	    ]
-]
+	]
 ].
 ^ lText + textStartLeft
 "Modified: / 3.9.1998 / 21:56:33 / cg"
 !
 |visLine|
 visLine := self listLineToVisibleLine:lineNr.
 visLine isNil ifTrue:[
-^ nil
+	^ nil
 ].
 ^ self yOfVisibleLine:visLine
 "Created: / 26.7.1998 / 13:23:16 / cg"
 !
 lineEndCharSize := self lineEndCRLF ifTrue:[2] ifFalse:[1].
 self checkForExistingLine:lineNr.
 charPos := 1.
 1 to:(lineNr - 1) do:[:lnr |
-lineString := self at:lnr.
+	lineString := self at:lnr.
-lineString notNil ifTrue:[
+	lineString notNil ifTrue:[
-charPos := charPos + (lineString string) size
+	    charPos := charPos + (lineString string) size
-].
+	].
-charPos := charPos + lineEndCharSize   "the return-character"
+	charPos := charPos + lineEndCharSize   "the return-character"
 ].
 "/ NEW: expand that line, so that characterAtCharacterPosition returns the correct character
 "/ wrong: will modify!!
 "/    (lineString := self at:lineNr) size < colArg ifTrue:[
 "/        "/ expand this line
 "/        self at:lineNr put:((lineString ? ''),(String new:colArg-lineString size)).
 "/    ].
 "/ OLD: if beyond end of line, be careful to not advance into next line.
 "/ otherwise, syntaxHighlighter (and others) walk into trouble,
 "/ if clicked on a space beyond a line's end.
 !
 heightForLines:numberOfLines
 "return the height of the receiver, if numberOfLines are to be displayed"
+|font|
 "need a device font for query"
-font := font onDevice:device.
+font := gc createFontOnDevice.
-^ numberOfLines * fontHeight + topMargin + font descent + (lineSpacing) + (margin * 2)
+^ numberOfLines * fontHeight + topMargin + font descent + lineSpacing + (margin * 2)
 "Created: 27.1.1996 / 16:55:39 / cg"
 !
 heightOfContents
 "return the height of the contents in pixels
 - used for scrollbar interface"
-| numLines |
+|numLines font|
 numLines := self numberOfLines.
 numLines == 0 ifTrue:[^ 0].
 "/
 "/        numLines := numLines + 1
 "/    ].
 "
 need device-font for query
 "
-font := font onDevice:device.
+font := gc createFontOnDevice.
-^ numLines * fontHeight "don't take font height here - think of LabelAndIcons"
+^ numLines * fontHeight "dont take font height here - think of LabelAndIcons"
 "/                            + textStartTop
 - (lineSpacing // 2)
 + (font descent)
-"/                            + (font descent)
 "/                            + (font descent * 2) "makes it look better"
 .
 "/    "it used to be that code - which is wrong"
 "/    (nLinesShown == nFullLinesShown) ifTrue:[
 lineNr := 1.
 sum := 0.
 lastLine := self size.
 [(sum < charPos) and:[lineNr <= lastLine]] whileTrue:[
-l := (self at:lineNr) ? ''.
+	l := (self at:lineNr) ? ''.
-sum := sum + (l string "withoutTrailingSeparators" size) + lineEndCharSize.
+	sum := sum + (l string "withoutTrailingSeparators" size) + lineEndCharSize.
-lineNr := lineNr + 1
+	lineNr := lineNr + 1
 ].
 sum == charPos ifTrue:[
-^ lineNr
+	^ lineNr
 ].
 ^ (lineNr - 1) max:1
 "Modified: / 04-07-2006 / 19:13:32 / fm"
 preferredExtentForContents
 ^ (self widthOfContents @ self heightOfContents)
 !
 preferredExtentForLines:numLines cols:numCols
-^ (((font widthOf:'x') * numCols + margin + margin)
+^ (((gc font widthOf:'x') * numCols + margin + margin)
 @
-(fontHeight * numLines + margin + margin + font descent + lineSpacing + topMargin)).
+(fontHeight * numLines + margin + margin + gc font descent + lineSpacing + topMargin)).
 "Modified: 26.5.1996 / 12:26:41 / cg"
 !
 supportsSyntaxElements
 widthOfContents
 "return the width of the contents in pixels
 - used for scrollbar interface"
-|f d
+|font start "{ Class: SmallInteger }"
-start "{ Class: SmallInteger }"
 stop  "{ Class: SmallInteger }"
 lengthOfLongestString  "{ Class: SmallInteger }"
 lengthOfLongestLine    "{ Class: SmallInteger }"
 max   "{ Class: SmallInteger }"|
 widthOfWidestLine notNil ifTrue:[
 "/ already computed (cached); this cache is cleared when the contents is modified
 ^ widthOfWidestLine + (leftMargin * 2)
 ].
-(d := device) isNil ifTrue:[
+font := gc createFontOnDevice.
-"/ mhmh - really dont know yet
-d := Screen current
-].
-f := font := font onDevice:d.
 checkedLinesForWidthOfContentsComputation isNil ifTrue:[
 start := 1.
 stop := list size
 ] ifFalse:[
 checkedLinesForWidthOfContentsComputation >= 0 ifTrue:[
 |entry w|
 entry := list at:lineNr.
 entry notNil ifTrue:[
 (entry isSingleByteString) ifTrue:[
-w := f widthOf:entry
+w := font widthOf:entry
 ] ifFalse:[
 w := entry widthOn:self
 ].
 max := max max:w.
 ].
 !
 widthOfLine:lineNr
 "return the width of a line in pixels"
-|line f d|
+|line font|
 list isNil ifTrue:[^ 0].
 lineNr > list size ifTrue:[^ 0].
 line := list at:lineNr.
 list isNil ifTrue:[^ 0].
-(d := device) isNil ifTrue:[
+font := gc createFontOnDevice.
-"/ mhmh - really dont know yet
-d := Screen current
-].
-f := font := font onDevice:d.
 (line isSingleByteString) ifTrue:[
-^ f widthOf:line
+^ font widthOf:line
 ].
 ^ line widthOn:self
 "Created: / 10.11.1998 / 23:59:20 / cg"
 "Modified: / 11.11.1998 / 15:25:07 / cg"
 horizontalScrollStep
 "return the amount to scroll when stepping up/down.
 Here, the scrolling unit is characters."
-^ font width
+^ gc font width
 "Created: / 21.5.1999 / 15:55:06 / cg"
 !
 makeColVisible:aCol inLine:aLineNr
 "
 no, the above does not look good, if you click / select at the
 far right - makes selecting so difficult ...
 "
-(xVis >= 0 and:[xVis < (width - font width)]) ifTrue:[^ self].
+(xVis >= 0 and:[xVis < (width - gc font width)]) ifTrue:[^ self].
 self scrollHorizontalTo:(xWant - (width // 2)).
 !
 makeLineVisible:aListLineNr
 	    self scrollLeft:leftOffset.
 	].
 	^ self
 ].
-pxlOffset := font width * (aColNr - 1).
+pxlOffset := gc font width * (aColNr - 1).
 pxlOffset < leftOffset ifTrue:[
 	self scrollLeft:(leftOffset - pxlOffset)
 ] ifFalse:[
 	pxlOffset > leftOffset ifTrue:[
 "setup for auto-scroll down (when button-press-moving below view)
 - timeDelta for scroll is computed from distance.
 Return true, to tell caller that scrolling is allowed (redefined in editField)"
 self
-startAutoScrollVertical:yDistance
+	startAutoScrollVertical:yDistance
-scrollSelector:#scrollSelectDown.
+	scrollSelector:#scrollSelectDown.
 ^ true
 !
 startAutoScrollHorizontal:xDistance scrollSelector:scrollSelector
 "setup for auto-scroll left/right (when button-press-moving to the right of the view)
 startAutoScrollLeft:xDistance
 "setup for auto-scroll up (when button-press-moving to the left of the view)
 - timeDelta for scroll is computed from distance"
 self
-startAutoScrollHorizontal:xDistance negated
+	startAutoScrollHorizontal:xDistance negated
-scrollSelector:#scrollSelectLeft.
+	scrollSelector:#scrollSelectLeft.
 ^ true
 !
 startAutoScrollRight:xDistance
 "setup for auto-scroll down (when button-press-moving to the right of the view)
 - timeDelta for scroll is computed from distance"
 self
-startAutoScrollHorizontal:xDistance
+	startAutoScrollHorizontal:xDistance
-scrollSelector:#scrollSelectRight.
+	scrollSelector:#scrollSelectRight.
 ^ true
 !
 startAutoScrollUp:yDistance
 "setup for auto-scroll up (when button-press-moving below view)
 - timeDelta for scroll is computed from distance.
 Return true, to tell caller that scrolling is allowed (redefined in editField)"
 self
-startAutoScrollVertical:yDistance negated
+	startAutoScrollVertical:yDistance negated
-scrollSelector:#scrollSelectUp.
+	scrollSelector:#scrollSelectUp.
 ^ true
 !
 startAutoScrollVertical:yDistance scrollSelector:scrollSelector
 "setup for auto-scroll up (when button-press-moving below view)
 |deltaT mm|
 autoScroll ifFalse:[^ self].
 mm := (yDistance abs // self verticalIntegerPixelPerMillimeter) + 1.
 deltaT := 0.5 / mm.
 (deltaT = autoScrollDeltaT) ifFalse:[
-autoScrollDeltaT := deltaT.
+	autoScrollDeltaT := deltaT.
-autoScrollBlock isNil ifTrue:[
+	autoScrollBlock isNil ifTrue:[
-autoScrollBlock := [self realized ifTrue:[self perform:scrollSelector]].
+	    autoScrollBlock := [self realized ifTrue:[self perform:scrollSelector]].
-Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
+	    Processor addTimedBlock:autoScrollBlock afterSeconds:deltaT
-]
+	]
 ]
 "Modified: / 08-08-2010 / 11:26:26 / cg"
 !
 width of the document would allow.
 This is redefined by editable textViews, to allo for the cursor
 to be visible if it is positioned right behind the longest line of text.
 The default returned here is the width of a blank (to beautify italic text)"
-^ font width
+^ gc font width
 !
 scrollTo:anOrigin redraw:doRedraw
 "change origin to have newOrigin be visible at the top-left.
 The argument defines the integer device coordinates of the new top-left
 dltOrg := anOrigin - viewOrigin.
 "/  compute valid horizontal offset x
 (x := dltOrg x) ~~ 0 ifTrue:[
-tmp := viewOrigin x + x.
+	tmp := viewOrigin x + x.
-x < 0 ifTrue:[                                          "/ scrolling left
+	x < 0 ifTrue:[                                          "/ scrolling left
-tmp < 0 ifTrue:[x := 0 - viewOrigin x]
+	    tmp < 0 ifTrue:[x := 0 - viewOrigin x]
-] ifFalse:[                                             "/ scrolling right
+	] ifFalse:[                                             "/ scrolling right
-"/ allows scrolling to the right of widest line
+	 "/ allows scrolling to the right of widest line
-max := self widthOfContents + (self additionalMarginForHorizontalScroll).
+	    max := self widthOfContents + (self additionalMarginForHorizontalScroll).
-tmp + width > max ifTrue:[
+	    tmp + width > max ifTrue:[
-x := (max - viewOrigin x - width) max:0
+		x := (max - viewOrigin x - width) max:0
-]
+	    ]
-]
+	]
 ].
 "/  compute valid vertical offset measured in lines
 (y := dltOrg y // fontHeight) ~~ 0 ifTrue:[
-tmp := firstLineShown + y.
+	tmp := firstLineShown + y.
-y < 0 ifTrue:[                                          "/ scrolling up
+	y < 0 ifTrue:[                                          "/ scrolling up
-tmp < 1 ifTrue:[y := 1 - firstLineShown]
+	    tmp < 1 ifTrue:[y := 1 - firstLineShown]
-] ifFalse:[                                             "/ scrolling down
+	] ifFalse:[                                             "/ scrolling down
-max := self size.
+	    max := self size.
-tmp + nFullLinesShown > max ifTrue:[
+	    tmp + nFullLinesShown > max ifTrue:[
-y := (max - firstLineShown - nFullLinesShown + 1) max:0
+		y := (max - firstLineShown - nFullLinesShown + 1) max:0
-]
+	    ]
-]
+	]
 ].
 (x == 0 and:[y == 0]) ifTrue:[                              "/ has viewOrigin changed ?
-^ self
+	^ self
 ].
 (noLn := y) ~~ 0 ifTrue:[
-y := y * fontHeight
+	y := y * fontHeight
 ].
 delta := (x @ y).
 newFirstLine := firstLineShown + noLn.
 newViewOrigin := viewOrigin + delta.
 (shown and:[doRedraw]) ifFalse:[
-self originWillChange.
+	self originWillChange.
-firstLineShown := newFirstLine.
+	firstLineShown := newFirstLine.
-viewOrigin := newViewOrigin.
+	viewOrigin := newViewOrigin.
-self assert:(viewOrigin x >= 0).
+	self assert:(viewOrigin x >= 0).
-^ self originChanged:delta
+	^ self originChanged:delta
 ].
 "/    (self sensor notNil and: [self sensor hasExposeEventFor:self]) ifTrue:[               "/ outstanding expose events
 "/        self invalidate.                                        "/ redraw all
 "/        self originWillChange.
 (     (y ~~ 0 and:[x ~~ 0])         "/ both x and y changed
 or:[(noLn abs) >= nLinesShown     "/ at least one area is
 or:[(x abs) > (width // 4 * 3)]]  "/ big enough to redraw all
 ) ifTrue:[
-self originWillChange.
+	self originWillChange.
-firstLineShown := newFirstLine.
+	firstLineShown := newFirstLine.
-viewOrigin := newViewOrigin.
+	viewOrigin := newViewOrigin.
-self invalidate.
+	self invalidate.
-^ self originChanged:delta
+	^ self originChanged:delta
 ].
 "/ OLD:
 "/ self repairDamage.
 (wg := self windowGroup) notNil ifTrue:[
-wg processRealExposeEventsFor:self.
+	wg processRealExposeEventsFor:self.
 ].
 self originWillChange.
 "/ make certain, that all drawing is complete
 "/ device sync.
 self catchExpose.
 x == 0 ifTrue:[
-"/ scrolling vertical
+	"/ scrolling vertical
-y0 := textStartTop + (y abs).
+	y0 := textStartTop + (y abs).
-h  := hBefore - margin - y0.
+	h  := hBefore - margin - y0.
-w  := wBefore - margin.
+	w  := wBefore - margin.
-y > 0 ifTrue:[                                          "/ copy down
+	y > 0 ifTrue:[                                          "/ copy down
-"/ kludge: if the selection highlighting draws into the textStartTop area,
+	    "/ kludge: if the selection highlighting draws into the textStartTop area,
-"/ the copy below leaves some selection depris in the top area.
+	    "/ the copy below leaves some selection depris in the top area.
-"/ Therefore, clear the top area.
+	    "/ Therefore, clear the top area.
-"/ (should avoid this, in case we know there cannot be anything
+	    "/ (should avoid this, in case we know there cannot be anything
-"/  there - selection is nil or >= firstLineShown).
+	    "/  there - selection is nil or >= firstLineShown).
-self clearDeviceRectangleX:margin y:margin width:width-margin-margin height:(textStartTop-margin).
+	    self clearDeviceRectangleX:margin y:margin width:width-margin-margin height:(textStartTop-margin).
 "/            self invalidateDeviceRectangle:((margin@margin) corner:(width-margin@textStartTop)) repairNow:false.
-self copyFrom:self
+	    self copyFrom:self
-x:0 y:y0 toX:0 y:textStartTop
+			x:0 y:y0 toX:0 y:textStartTop
-width:w height:h async:true.
+		    width:w height:h async:true.
-y1 := h - 1.
+	    y1 := h - 1.
-y0 := y0 + 1.
+	    y0 := y0 + 1.
-] ifFalse:[                                             "/ copy up
+	] ifFalse:[                                             "/ copy up
-self copyFrom:self
+	    self copyFrom:self
-x:margin y:textStartTop toX:margin y:y0
+			x:margin y:textStartTop toX:margin y:y0
-width:w height:h async:true.
+		    width:w height:h async:true.
-y1 := 0.
+	    y1 := 0.
-].
+	].
-inv := (margin@y1) extent:(w@y0+margin).
+	inv := (margin@y1) extent:(w@y0+margin).
 ] ifFalse:[
-"/ scrolling horizontal
+	"/ scrolling horizontal
-x > 0 ifTrue:[                                          "/ scrolling right
+	x > 0 ifTrue:[                                          "/ scrolling right
-y0 := margin + x.
+	    y0 := margin + x.
-y1 := wBefore - y0.
+	    y1 := wBefore - y0.
-] ifFalse:[                                             "/ scrolling left
+	] ifFalse:[                                             "/ scrolling left
-y0 := margin - x.
+	    y0 := margin - x.
-y1 := 0.
+	    y1 := 0.
-].
+	].
-h := hBefore - margin - margin.
+	h := hBefore - margin - margin.
-w := wBefore - margin - y0.
+	w := wBefore - margin - y0.
-x > 0 ifTrue:[                                          "/ copy right
+	x > 0 ifTrue:[                                          "/ copy right
-self copyFrom:self x:y0 y:margin toX:margin y:margin
+	    self copyFrom:self x:y0 y:margin toX:margin y:margin
-width:w height:h async:true.
+		    width:w height:h async:true.
-] ifFalse:[                                             "/ copy left
+	] ifFalse:[                                             "/ copy left
-"/ self copyFrom:self x:textStartLeft y:margin toX:y0 y:margin
+	    "/ self copyFrom:self x:textStartLeft y:margin toX:y0 y:margin
 "/            viewOrigin x > margin ifTrue:[
 "/                self copyFrom:self x:0 y:margin toX:y0-margin y:margin
 "/                        width:w height:h async:true.
 "/            ] ifFalse:[
-self copyFrom:self x:margin y:margin toX:y0 y:margin
+		self copyFrom:self x:margin y:margin toX:y0 y:margin
-width:w height:h async:true.
+			width:w height:h async:true.
 "/            ].
-].
+	].
-inv := (y1@margin) extent:(y0@h).
+	inv := (y1@margin) extent:(y0@h).
 ].
 firstLineShown := newFirstLine.
 viewOrigin := newViewOrigin.
 self invalidateDeviceRectangle:inv repairNow:false.
 viewOrigin x <= margin ifTrue:[
-self invalidateDeviceRectangle:((0@margin) extent:(margin@h)) repairNow:false.
+	self invalidateDeviceRectangle:((0@margin) extent:(margin@h)) repairNow:false.
 ].
 self originChanged:delta.
 self waitForExpose.
 (wg := self windowGroup) notNil ifTrue:[
-wg processRealExposeEventsFor:self.
+	wg processRealExposeEventsFor:self.
 ].
 "/    (hBefore ~= height or:[wBefore ~= width]) ifTrue:[
 "/        self halt.
 "/    ].
 searchBackwardFor:pattern ignoreCase:ignCase startingAtLine:startLine col:startCol ifFound:block1 ifAbsent:block2
 "search for a pattern, if found evaluate block1 with row/col as arguments, if not
 found evaluate block2.
 Sorry, but pattern is no regular expression pattern (yet)"
 ^ self
-searchBackwardUsingSpec:(SearchSpec new
+	searchBackwardUsingSpec:(SearchSpec new
-pattern:pattern
+					pattern:pattern
-ignoreCase:ignCase
+					ignoreCase:ignCase
-match:false)
+					match:false)
-startingAtLine:startLine col:startCol
+	startingAtLine:startLine col:startCol
-ifFound:block1 ifAbsent:block2
+	ifFound:block1 ifAbsent:block2
 !
 searchBackwardFor:pattern startingAtLine:startLine col:startCol ifFound:block1 ifAbsent:block2
 "search for a pattern, if found evaluate block1 with row/col as arguments, if not
 found evaluate block2.
 patternSize := pattern size.
 (list notNil
 and:[startLine > 0
 and:[patternSize ~~ 0]])
 ifTrue:[
-self withCursor:Cursor questionMark do:[
+	self withCursor:Cursor questionMark do:[
-col := startCol - 1.
+	    col := startCol - 1.
-firstChar1 := pattern at:1.
+	    firstChar1 := pattern at:1.
-ignCase ifTrue:[
+	    ignCase ifTrue:[
-firstChar1 := firstChar1 asLowercase.
+		firstChar1 := firstChar1 asLowercase.
-firstChar2 := firstChar1 asUppercase.
+		firstChar2 := firstChar1 asUppercase.
-] ifFalse:[
+	    ] ifFalse:[
-firstChar2 := firstChar1
+		firstChar2 := firstChar1
-].
+	    ].
-line1 := startLine.
+	    line1 := startLine.
-line1 > list size ifTrue:[
+	    line1 > list size ifTrue:[
-line1 := list size.
+		line1 := list size.
-col := -999
+		col := -999
-] ifFalse:[
+	    ] ifFalse:[
-col > (list at:line1) size ifTrue:[
+		col > (list at:line1) size ifTrue:[
-col := -999
+		    col := -999
-]
+		]
-].
+	    ].
-line1 to:1 by:-1 do:[:lnr |
+	    line1 to:1 by:-1 do:[:lnr |
-lineString := list at:lnr.
+		lineString := list at:lnr.
-lineString notNil ifTrue:[
+		lineString notNil ifTrue:[
-lineString := lineString asString.
+		    lineString := lineString asString.
-lineString isString ifTrue:[
+		    lineString isString ifTrue:[
-"/ quick check if pattern is present
+			"/ quick check if pattern is present
-col1 := lineString
+			col1 := lineString
-findString:pattern startingAt:1
+				findString:pattern startingAt:1
-ifAbsent:0 caseSensitive: ignCase not.
+				ifAbsent:0 caseSensitive: ignCase not.
-col1 ~~ 0 ifTrue:[
+			col1 ~~ 0 ifTrue:[
-lineSize := lineString size.
+			    lineSize := lineString size.
-col == -999 ifTrue:[col := lineSize - patternSize + 1].
+			    col == -999 ifTrue:[col := lineSize - patternSize + 1].
-[(col > 0)
+			    [(col > 0)
-and:[(c := lineString at:col) ~= firstChar1
+			     and:[(c := lineString at:col) ~= firstChar1
-and:[c ~= firstChar2]]] whileTrue:[
+			     and:[c ~= firstChar2]]] whileTrue:[
-col := col - 1
+				col := col - 1
-].
+			    ].
-[col > 0] whileTrue:[
+			    [col > 0] whileTrue:[
-cc := col.
+				cc := col.
-found := true.
+				found := true.
-1 to:patternSize do:[:cnr |
+				1 to:patternSize do:[:cnr |
-cc > lineSize ifTrue:[
+				    cc > lineSize ifTrue:[
-found := false
+					found := false
-] ifFalse:[
+				    ] ifFalse:[
-pc := pattern at:cnr.
+					pc := pattern at:cnr.
-c := lineString at:cc.
+					c := lineString at:cc.
-pc ~= c ifTrue:[
+					pc ~= c ifTrue:[
-(ignCase not or:[pc asLowercase ~= c asLowercase]) ifTrue:[
+					    (ignCase not or:[pc asLowercase ~= c asLowercase]) ifTrue:[
-found := false
+						found := false
-]
+					    ]
-]
+					]
-].
+				    ].
-cc := cc + 1
+				    cc := cc + 1
-].
+				].
-found ifTrue:[
+				found ifTrue:[
-(fullWord not
+				    (fullWord not
-or:[ (self findBeginOfWordAtLine:lnr col:col) == col
+					or:[ (self findBeginOfWordAtLine:lnr col:col) == col
-and:[ (self findEndOfWordAtLine:lnr col:col) == (col + patternSize - 1) ]]
+					      and:[ (self findEndOfWordAtLine:lnr col:col) == (col + patternSize - 1) ]]
-) ifTrue:[
+				    ) ifTrue:[
-(atBeginOfLineOnly not or:[col == 1]) ifTrue:[
+					(atBeginOfLineOnly not or:[col == 1]) ifTrue:[
-^ block1 value:lnr value:col optionalArgument:nil.
+					    ^ block1 value:lnr value:col optionalArgument:nil.
-]
+					]
-]
+				    ]
-].
+				].
-col := col - 1.
+				col := col - 1.
-[(col > 0)
+				[(col > 0)
-and:[(c := lineString at:col) ~= firstChar1
+				and:[(c := lineString at:col) ~= firstChar1
-and:[c ~= firstChar2]]] whileTrue:[
+				and:[c ~= firstChar2]]] whileTrue:[
-col := col - 1
+				    col := col - 1
-]
+				]
-]
+			    ]
-]
+			]
-].
+		    ].
-].
+		].
-col := -999.
+		col := -999.
-]
+	    ]
-]
+	]
 ].
 "not found"
 ^ block2 value
 searchForwardFor:pattern ignoreCase:ignCase match:match startingAtLine:startLine col:startCol ifFound:block1 ifAbsent:block2
 "search for a pattern, if found evaluate block1 with row/col as arguments, if not
 found evaluate block2."
 ^ self
-searchForwardUsingSpec:(SearchSpec new
+	searchForwardUsingSpec:(SearchSpec new
-pattern:pattern
+				    pattern:pattern
-ignoreCase:ignCase
+				    ignoreCase:ignCase
-match:match)
+				    match:match)
-startingAtLine:startLine col:startCol
+	startingAtLine:startLine col:startCol
-ifFound:block1 ifAbsent:block2
+	ifFound:block1 ifAbsent:block2
 !
 searchForwardFor:pattern ignoreCase:ignCase startingAtLine:startLine col:startCol ifFound:block1 ifAbsent:block2
 "search for a pattern, if found evaluate block1 with row/col as arguments, if not
 found evaluate block2."
 "Modified: 13.9.1997 / 01:07:11 / cg"
 !
 searchForwardUsingSpec:searchSpec startingAtLine:startLine col:startCol ifFound:block1 ifAbsent:block2
 "search for a pattern, if found evaluate block1 with row/col as arguments,
 if not found evaluate block2.
 If the block is a three-arg block, it gets the end-col (or nil, if not known)"
 |lineString col pattern match regexMatch ignCase fullWord atBeginOfLineOnly
 wrapAtEndOfText patternSize matcher lnr   "{Class: SmallInteger}"
 line1 "{Class: SmallInteger}"
 line2 "{Class: SmallInteger}"
 p realPattern runner foundCol endCol|
 pattern := searchSpec pattern.
 match := searchSpec match.
 regexMatch := searchSpec regexMatch.
 (match and:[regexMatch not]) ifTrue:[
-pattern := pattern globPatternAsRegexPattern.
+	pattern := pattern globPatternAsRegexPattern.
-regexMatch := true.
+	regexMatch := true.
 ].
 ignCase := searchSpec ignoreCase.
 fullWord := searchSpec fullWord.
 atBeginOfLineOnly := searchSpec atBeginOfLineOnly.
 wrapAtEndOfText := searchSpec wrapAtEndOfText.
 patternSize := pattern size.
 (list notNil and:[patternSize ~~ 0]) ifTrue:[
-self withCursor:Cursor questionMark do:[
+	self withCursor:Cursor questionMark do:[
-col := startCol + 1.
+	    col := startCol + 1.
-line1 := startLine.
+	    line1 := startLine.
-line2 := list size.
+	    line2 := list size.
-"/ call searchBlock with lnr, col, and line. Cares for wrap
+	    "/ call searchBlock with lnr, col, and line. Cares for wrap
-runner :=
+	    runner :=
-[:searchBlock |
+		[:searchBlock |
-|didWrap|
+		    |didWrap|
-lnr := line1.
+		    lnr := line1.
-didWrap := false.
+		    didWrap := false.
-[lnr <= line2] whileTrue:[
+		    [lnr <= line2] whileTrue:[
-lineString := list at:lnr.
+			lineString := list at:lnr.
-lineString notNil ifTrue:[
+			lineString notNil ifTrue:[
-lineString := lineString asString string.
+			    lineString := lineString asString string.
-lineString isString ifTrue:[
+			    lineString isString ifTrue:[
-searchBlock value:lnr value:col value:lineString
+				searchBlock value:lnr value:col value:lineString
-]
+			    ]
-].
+			].
-col := 1.
+			col := 1.
-lnr := lnr + 1.
+			lnr := lnr + 1.
-lnr > line2 ifTrue:[
+			lnr > line2 ifTrue:[
-(wrapAtEndOfText and:[didWrap not]) ifTrue:[
+			    (wrapAtEndOfText and:[didWrap not]) ifTrue:[
-didWrap := true.
+				didWrap := true.
-lnr := 1.
+				lnr := 1.
-line2 := line1-1.
+				line2 := line1-1.
-].
+			    ].
-].
+			].
-].
+		   ].
-].
+		].
-(match and:[regexMatch]) ifTrue:[
+	    (match and:[regexMatch]) ifTrue:[
-"perform a findMatchString (regex matching)"
+		"perform a findMatchString (regex matching)"
-Regex::RxParser isNil ifTrue:[
+		Regex::RxParser isNil ifTrue:[
-Smalltalk loadPackage:'stx:goodies/regex'
+		    Smalltalk loadPackage:'stx:goodies/regex'
-].
+		].
-matcher := ignCase ifTrue:[pattern asRegexIgnoringCase] ifFalse:[pattern asRegex].
+		matcher := ignCase ifTrue:[pattern asRegexIgnoringCase] ifFalse:[pattern asRegex].
-runner
+		runner
-value:[:lnr :col :lineString |
+		    value:[:lnr :col :lineString |
-"/ first a crude check ...
+			"/ first a crude check ...
-(matcher hasMatchesIn:lineString) ifTrue:[
+			(matcher hasMatchesIn:lineString) ifTrue:[
-"/ find which match to show
+			    "/ find which match to show
-1 to:matcher subexpressionCount do:[:i |
+			    1 to:matcher subexpressionCount do:[:i |
-foundCol := matcher subBeginning:i.
+				foundCol := matcher subBeginning:i.
-endCol := matcher subEnd:i.
+				endCol := matcher subEnd:i.
-(foundCol notNil and: [endCol notNil]) ifTrue: [
+				(foundCol notNil and: [endCol notNil]) ifTrue: [
-foundCol := foundCol + 1. "/ regex uses 0-based indexes (sigh)
+				    foundCol := foundCol + 1. "/ regex uses 0-based indexes (sigh)
-foundCol >= col ifTrue:[
+				    foundCol >= col ifTrue:[
-(atBeginOfLineOnly not or:[foundCol == 1]) ifTrue:[
+					(atBeginOfLineOnly not or:[foundCol == 1]) ifTrue:[
-^ block1 value:lnr value:foundCol optionalArgument:endCol.
+					    ^ block1 value:lnr value:foundCol optionalArgument:endCol.
-]]]]]].
+					]]]]]].
-] ifFalse:[
+	    ] ifFalse:[
-(match and:[pattern includesUnescapedMatchCharacters]) ifTrue:[
+		(match and:[pattern includesUnescapedMatchCharacters]) ifTrue:[
-"perform a findMatchString (glob matching)"
+		    "perform a findMatchString (glob matching)"
-p := pattern species new:0.
+		    p := pattern species new:0.
-(pattern startsWith:$*) ifFalse:[p := p , '*'].
+		    (pattern startsWith:$*) ifFalse:[p := p , '*'].
-p := p , pattern.
+		    p := p , pattern.
-(pattern endsWith:$*) ifFalse:[p := p , '*'].
+		    (pattern endsWith:$*) ifFalse:[p := p , '*'].
-realPattern := pattern.
+		    realPattern := pattern.
-(realPattern startsWith:$*) ifTrue:[
+		    (realPattern startsWith:$*) ifTrue:[
-realPattern := realPattern copyFrom:2
+			realPattern := realPattern copyFrom:2
-].
+		    ].
-runner
+		    runner
-value:[:lnr :col :lineString |
+			value:[:lnr :col :lineString |
-(p match:lineString caseSensitive:ignCase not) ifTrue:[
+			    (p match:lineString caseSensitive:ignCase not) ifTrue:[
-"/ ok, there it is; look at which position
+				"/ ok, there it is; look at which position
-foundCol := lineString
+				foundCol := lineString
-findMatchString:realPattern startingAt:col
+					findMatchString:realPattern startingAt:col
-caseSensitive:ignCase not ifAbsent:0.
+					caseSensitive:ignCase not ifAbsent:0.
-foundCol ~~ 0 ifTrue:[
+				foundCol ~~ 0 ifTrue:[
-(atBeginOfLineOnly not or:[foundCol == 1]) ifTrue:[
+				    (atBeginOfLineOnly not or:[foundCol == 1]) ifTrue:[
-^ block1 value:lnr value:foundCol optionalArgument:nil.
+					^ block1 value:lnr value:foundCol optionalArgument:nil.
-]]]].
+				    ]]]].
-] ifFalse:[
+		] ifFalse:[
-"perform a findString (no matching)"
+		    "perform a findString (no matching)"
-p := pattern.
+		    p := pattern.
-(match and:[pattern includesMatchCharacters]) ifTrue:[
+		    (match and:[pattern includesMatchCharacters]) ifTrue:[
-p := pattern withoutMatchEscapes
+			p := pattern withoutMatchEscapes
-].
+		    ].
-runner
+		    runner
-value:[:lnr :col :lineString |
+			value:[:lnr :col :lineString |
-foundCol := lineString
+			    foundCol := lineString
-findString:p startingAt:col ifAbsent:0 caseSensitive: ignCase not.
+				    findString:p startingAt:col ifAbsent:0 caseSensitive: ignCase not.
-foundCol ~~ 0 ifTrue:[
+			    foundCol ~~ 0 ifTrue:[
-(fullWord not
+				(fullWord not
-or:[ (self findBeginOfWordAtLine:lnr col:foundCol) == foundCol
+				    or:[ (self findBeginOfWordAtLine:lnr col:foundCol) == foundCol
-and:[ (self findEndOfWordAtLine:lnr col:foundCol) == (foundCol + patternSize - 1) ]]
+					  and:[ (self findEndOfWordAtLine:lnr col:foundCol) == (foundCol + patternSize - 1) ]]
-) ifTrue:[
+				) ifTrue:[
-(atBeginOfLineOnly not or:[foundCol == 1]) ifTrue:[
+				    (atBeginOfLineOnly not or:[foundCol == 1]) ifTrue:[
-^ block1 value:lnr value:foundCol optionalArgument:nil.
+					^ block1 value:lnr value:foundCol optionalArgument:nil.
-]
+				    ]
-]
+				]
-]
+			    ]
-].
+			].
-].
+		].
-].
+	    ].
-]
+	]
 ].
 "not found"
 ^ block2 value
 The standardWordCheck aks the current userPreferences for details."
 |prefs|
 (prefs := UserPreferences current) whitespaceWordSelectMode ifTrue:[
-"an extremely simple mode, where every non-space is treated as part of the word"
+	"an extremely simple mode, where every non-space is treated as part of the word"
-^ char isSeparator not
+	^ char isSeparator not
 ].
 prefs extendedWordSelectMode ifTrue:[
-"the typical mode, useful for text and code"
+	"the typical mode, useful for text and code"
-^ char isNationalAlphaNumeric or:[char == $_]
+	^ char isNationalAlphaNumeric or:[char == $_]
 ].
 "another typical mode, also useful for text and code"
 ^ char isNationalAlphaNumeric
 "Modified (comment): / 17-03-2012 / 19:04:13 / cg"
 |line newLine nLines "{ Class: SmallInteger }"|
 includesNonStrings := false.
 list notNil ifTrue:[
-nLines := self size.
+	nLines := self size.
-1 to:nLines do:[:index |
+	1 to:nLines do:[:index |
-line := self at:index.
+	    line := self at:index.
-line notNil ifTrue:[
+	    line notNil ifTrue:[
-(line isString) ifTrue:[
+		(line isString) ifTrue:[
-newLine := line withTabsExpanded.
+		    newLine := line withTabsExpanded.
-newLine ~~ line ifTrue:[
+		    newLine ~~ line ifTrue:[
-list at:index put:newLine
+			list at:index put:newLine
-].
+		    ].
-] ifFalse:[
+		] ifFalse:[
-includesNonStrings := true.
+		    includesNonStrings := true.
-]
+		]
-]
+	    ]
-]
+	]
 ]
 "Modified: 30.8.1995 / 19:06:37 / claus"
 "Modified: 12.5.1996 / 12:48:03 / cg"
 !
 pattern
 ^ pattern
 !
 pattern:patternString
 pattern := patternString.
 !
 pattern:patternString ignoreCase:ignoredCaseBoolean
 pattern := patternString.
 ignoreCase := ignoredCaseBoolean.
 match := matchBoolean.
 forward := forwardBoolean
 !
 pattern:patternString ignoreCase:ignoredCaseBoolean
-match:matchBoolean regexMatch:regexMatchBoolean
+	  match:matchBoolean regexMatch:regexMatchBoolean
-variable:variableBoolen
+	  variable:variableBoolen
-fullWord:fullWordBoolen forward:forwardBoolean
+	  fullWord:fullWordBoolen forward:forwardBoolean
-atBeginOfLineOnly:atBeginOfLineOnlyArg
+	  atBeginOfLineOnly:atBeginOfLineOnlyArg
 pattern := patternString.
 ignoreCase := ignoredCaseBoolean.
 match := matchBoolean.
 regexMatch := regexMatchBoolean.
 variable := variableBoolen.
 fullWord := fullWordBoolen.
 forward := forwardBoolean.
 atBeginOfLineOnly := atBeginOfLineOnlyArg
 !
 pattern:patternString ignoreCase:ignoredCaseBoolean
-match:matchBoolean regexMatch:regexMatchBoolean
+	  match:matchBoolean regexMatch:regexMatchBoolean
-variable:variableBoolen
+	  variable:variableBoolen
-fullWord:fullWordBoolen forward:forwardBoolean
+	  fullWord:fullWordBoolen forward:forwardBoolean
-atBeginOfLineOnly:atBeginOfLineOnlyArg
+	  atBeginOfLineOnly:atBeginOfLineOnlyArg
-wrapAtEnd:wrapAtEndOfTextArg
+	  wrapAtEnd:wrapAtEndOfTextArg
 pattern := patternString.
 ignoreCase := ignoredCaseBoolean.
 match := matchBoolean.
 regexMatch := regexMatchBoolean.
 variable := variableBoolen.
 variable := variableBoolen.
 fullWord := fullWordBoolen.
 forward := forwardBoolean
 !
 pattern:patternString ignoreCase:ignoredCaseBoolean match:matchBoolean variable:variableBoolen
-fullWord:fullWordBoolen forward:forwardBoolean
+		      fullWord:fullWordBoolen forward:forwardBoolean
-atBeginOfLineOnly:atBeginOfLineOnlyArg
+		      atBeginOfLineOnly:atBeginOfLineOnlyArg
 pattern := patternString.
 ignoreCase := ignoredCaseBoolean.
 match := matchBoolean.
 variable := variableBoolen.
 fullWord := fullWordBoolen.

changeset 5789	a6db617369e9
parent 5780	cf2d9f737b92
child 5790	d9bc25103826