hg/stx-libwidg2: comparison SelectionInListModelView.st

equal deleted inserted replaced

-:03a3787770ed
+:8858b3571313
 "
 COPYRIGHT (c) 1999 by eXept Software AG
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 1 to:100 do:[:i| list add:('element: ', i printString) ].
 top  := StandardSystemView new; extent:300@300.
 view := ScrollableView for:SelectionInListModelView miniScroller:true
-origin:0.0@0.0 corner:1.0@1.0 in:top.
+			origin:0.0@0.0 corner:1.0@1.0 in:top.
 view minimumEditorHeight:100.
 view openEditorAction:[:ln :aGC| |f|
-f := SimpleView in:aGC.
+	f := SimpleView in:aGC.
-f viewBackground:(Color red).
+	f viewBackground:(Color red).
-f
+	f
 ].
 view list:list.
 top  open.
 !
 copyright
 "
 COPYRIGHT (c) 1999 by eXept Software AG
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 but derives from the ListModelView and thus the list is kept
 in the list.
 [Instance variables:]
-selection               <misc>       the current selection. nil, a number or collection of numbers
+	selection               <misc>       the current selection. nil, a number or collection of numbers
-multipleSelectOk        <Boolean>    allow/disallow multiple selections( default:false )
+	multipleSelectOk        <Boolean>    allow/disallow multiple selections( default:false )
-selectOnButtonMenu      <Boolean>    enable/disable selection will change on menu pressed
+	selectOnButtonMenu      <Boolean>    enable/disable selection will change on menu pressed
-buttonReleaseAction     <Action>     called if the mouse button is released
+	buttonReleaseAction     <Action>     called if the mouse button is released
-buttonMotionAction      <Action>     called during mouse motion with one argument the point
+	buttonMotionAction      <Action>     called during mouse motion with one argument the point
-under the mouse.
+					     under the mouse.
-actionBlock             <Block>      action evaluated on single click (0/1/2 arguments)
+	actionBlock             <Block>      action evaluated on single click (0/1/2 arguments)
-doubleClickActionBlock  <Block>      action evaluated on double click (0/1/2 arguments)
+	doubleClickActionBlock  <Block>      action evaluated on double click (0/1/2 arguments)
-selectConditionBlock    <Block>      action evaluated before selection changed (0/1/2 arguments)
+	selectConditionBlock    <Block>      action evaluated before selection changed (0/1/2 arguments)
-keyActionStyle          <Symbol>     controls how to respond to keyboard selects
+	keyActionStyle          <Symbol>     controls how to respond to keyboard selects
-returnKeyActionStyle    <Symbol>     controls how to respond to return key
+	returnKeyActionStyle    <Symbol>     controls how to respond to return key
-useIndex                <Boolean>    representation of the model selection
+	useIndex                <Boolean>    representation of the model selection
-ignoreReselect          <Boolean>    if set, a click on an already selected entry is ignored
+	ignoreReselect          <Boolean>    if set, a click on an already selected entry is ignored
-toggleSelect            <Boolean>    a click on an entry unselects it and vice versa
+	toggleSelect            <Boolean>    a click on an entry unselects it and vice versa
-highlightMode           <Symbol>     how to draw the selection
+	highlightMode           <Symbol>     how to draw the selection
-hilightFgColor          <Color>      foregroundColor of highlighted items
+	hilightFgColor          <Color>      foregroundColor of highlighted items
-hilightBgColor          <Color>      backgroundColor of highlighted items
+	hilightBgColor          <Color>      backgroundColor of highlighted items
-hilightLevel            <Integer>    level to draw selections (i.e. for 3D effect)
+	hilightLevel            <Integer>    level to draw selections (i.e. for 3D effect)
-hilightFrameColor       <Color>      rectangle around highlighted items
+	hilightFrameColor       <Color>      rectangle around highlighted items
-hilightStyle            <Boolean>    actions on widget are enabled/disabled
+	hilightStyle            <Boolean>    actions on widget are enabled/disabled
-strikeOut               <Boolean>    turn on/off strikeOut mode
+	strikeOut               <Boolean>    turn on/off strikeOut mode
-dropTarget              <DropTarget> keeps information about the drop operation
+	dropTarget              <DropTarget> keeps information about the drop operation
-dropSource              <DropSource> keeps information about the drag operation
+	dropSource              <DropSource> keeps information about the drag operation
-editorView              <View>       editor on current selected item
+	editorView              <View>       editor on current selected item
-openEditorAction        <Action>     action to get an editor on the current selection from user
+	openEditorAction        <Action>     action to get an editor on the current selection from user
-closeEditorAction       <Action>     action invoked before the editor is closed.
+	closeEditorAction       <Action>     action invoked before the editor is closed.
-enterItem               <Item/nil>   item over which the mouse pointer is located
+	enterItem               <Item/nil>   item over which the mouse pointer is located
-or nil
+					     or nil
-highlightEnterItem      <Boolean>    enable or disable highlight of enterItem
+	highlightEnterItem      <Boolean>    enable or disable highlight of enterItem
 [author:]
-Claus Atzkern
+	Claus Atzkern
 [see also:]
-ListModelView
+	ListModelView
-HierarchicalListView
+	HierarchicalListView
 "
 !
 examples
 "
-[exBegin]
+									[exBegin]
 |top list view|
 list := List new.
 1 to:100 do:[:i| list add:('element: ', i printString) ].
 top  := StandardSystemView new; extent:300@300.
 view := ScrollableView for:SelectionInListModelView miniScroller:true
-origin:0.0@0.0 corner:1.0@1.0 in:top.
+			origin:0.0@0.0 corner:1.0@1.0 in:top.
 view list:list.
 top  open.
-[exEnd]
+									[exEnd]
-[exBegin]
+									[exBegin]
 |top list view|
 list := List new.
 1 to:100 do:[:i| list add:('element: ', i printString) ].
 top  := StandardSystemView new; extent:300@300.
 view := ScrollableView for:SelectionInListModelView miniScroller:true
-origin:0.0@0.0 corner:1.0@1.0 in:top.
+			origin:0.0@0.0 corner:1.0@1.0 in:top.
 view list:list.
 view openEditorAction:[:ln :aGC| |field|
-field := EditField new.
+	field := EditField new.
-field level:0.
+	field level:0.
-field acceptOnLostFocus:true.
+	field acceptOnLostFocus:true.
-field acceptAction:[:x| list at:ln put:(field contents) ].
+	field acceptAction:[:x| list at:ln put:(field contents) ].
-field font:(aGC font).
+	field font:(aGC font).
-field contents:(list at:ln).
+	field contents:(list at:ln).
-field
+	field
 ].
 top open.
-[exEnd]
+									[exEnd]
-[exBegin]
+									[exBegin]
 |top list view item|
 list := HierarchicalList new.
 item := HierarchicalItem::Example labeled:'Test'.
 item expand.
 list showRoot:false.
 list root:item.
 top  := StandardSystemView new; extent:300@300.
 view := ScrollableView for:SelectionInListModelView miniScroller:true
-origin:0.0@0.0 corner:1.0@1.0 in:top.
+			origin:0.0@0.0 corner:1.0@1.0 in:top.
 view list:list.
 view doubleClickAction:[:i| (list at:i) toggleExpand ].
 top  open.
-[exEnd]
+									[exEnd]
 "
 ! !
 !SelectionInListModelView class methodsFor:'defaults'!
 updateStyleCache
 "extract values from the styleSheet and cache them in class variables"
 <resource: #style   (
-#'selection.hilightForegroundColor' #'selection.hilightBackgroundColor'
+			#'selection.hilightForegroundColor' #'selection.hilightBackgroundColor'
-#'selection.hilightFrameColor'      #'selection.hilightLevel'
+			#'selection.hilightFrameColor'      #'selection.hilightLevel'
-#'selection.foregroundColor'        #'selection.backgroundColor'
+			#'selection.foregroundColor'        #'selection.backgroundColor'
-#'selection.shadowColor'            #'selection.lightColor'
+			#'selection.shadowColor'            #'selection.lightColor'
-#'selection.font'                   #'selection.hilightStyle'
+			#'selection.font'                   #'selection.hilightStyle'
-#'text.foregroundColor'
+			#'text.foregroundColor'
-)>
+			)>
 DefaultHilightForegroundColor  := StyleSheet colorAt:'selection.hilightForegroundColor'.
 DefaultHilightBackgroundColor  := StyleSheet colorAt:'selection.hilightBackgroundColor'.
 DefaultHilightFrameColor       := StyleSheet colorAt:'selection.hilightFrameColor'.
 DefaultHilightLevel            := StyleSheet at:'selection.hilightLevel' default:0.
 DefaultBackgroundColor         := StyleSheet colorAt:'selection.backgroundColor'.
 DefaultShadowColor             := StyleSheet colorAt:'selection.shadowColor'.
 DefaultLightColor              := StyleSheet colorAt:'selection.lightColor'.
 DefaultForegroundColor isNil ifTrue:[
-DefaultForegroundColor := StyleSheet colorAt:'text.foregroundColor' default:Black
+	DefaultForegroundColor := StyleSheet colorAt:'text.foregroundColor' default:Black
 ].
 "
 self updateStyleCache
 "
 action
 "get the action block to be performed on select
 The arguments to the block are:
-- no argument
+	- no argument
--  1 argument     index or item
+	-  1 argument     index or item
--  2 argument     index or item, self
+	-  2 argument     index or item, self
 "
 ^ actionBlock
 !
 action:aOneArgAction
 "set the action block to be performed on select
 The arguments to the block are:
-- no argument
+	- no argument
--  1 argument     index or item
+	-  1 argument     index or item
--  2 argument     index or item, self
+	-  2 argument     index or item, self
 "
 actionBlock := aOneArgAction
 !
 doubleClickAction
 "get the action block to be performed on doubleclick.
 The arguments to the block are:
-- no argument
+	- no argument
--  1 argument     selectedIndex
+	-  1 argument     selectedIndex
--  2 argument     selectedIndex, self
+	-  2 argument     selectedIndex, self
 "
 ^ doubleClickActionBlock
 !
 doubleClickAction:aOneArgAction
 "set the action block to be performed on doubleclick.
 The arguments to the block are:
-- no argument
+	- no argument
--  1 argument     selectedIndex
+	-  1 argument     selectedIndex
--  2 argument     selectedIndex, self
+	-  2 argument     selectedIndex, self
 "
 doubleClickActionBlock := aOneArgAction
 !
 keyActionStyle
 "defines how the view should respond to alpha-keys pressed.
 Possible values are:
-#select               -> will select next entry starting with that
+	#select               -> will select next entry starting with that
-character and perform the click-action
+				 character and perform the click-action
-#selectAndDoubleclick -> will select next & perform double-click action
+	#selectAndDoubleclick -> will select next & perform double-click action
-#pass                 -> will pass key to superclass (i.e. no special treatment)
+	#pass                 -> will pass key to superclass (i.e. no special treatment)
-nil                   -> will ignore key
+	nil                   -> will ignore key
 the default (set in #initialize) is #select
 "
 ^ keyActionStyle
 !
 keyActionStyle:aSymbol
 "defines how the view should respond to alpha-keys pressed.
 Possible values are:
-#select               -> will select next entry starting with that
+	#select               -> will select next entry starting with that
-character and perform the click-action
+				 character and perform the click-action
-#selectAndDoubleclick -> will select next & perform double-click action
+	#selectAndDoubleclick -> will select next & perform double-click action
-#pass                 -> will pass key to superclass (i.e. no special treatment)
+	#pass                 -> will pass key to superclass (i.e. no special treatment)
-nil                   -> will ignore key
+	nil                   -> will ignore key
 the default (set in #initialize) is #select
 "
 keyActionStyle := aSymbol
 !
 returnKeyActionStyle
 "defines how the view should respond to a return key pressed.
 Possible values are:
-#doubleClick          -> perform double-click action
+	#doubleClick          -> perform double-click action
-#pass                 -> will pass key to superclass (i.e. no special treatment)
+	#pass                 -> will pass key to superclass (i.e. no special treatment)
-nil                   -> will ignore key
+	nil                   -> will ignore key
 the default (set in #initialize) is #doubleClick
 "
 ^ returnKeyActionStyle
 !
 returnKeyActionStyle:aSymbol
 "defines how the view should respond to a return key pressed.
 Possible values are:
-#doubleClick          -> perform double-click action
+	#doubleClick          -> perform double-click action
-#pass                 -> will pass key to superclass (i.e. no special treatment)
+	#pass                 -> will pass key to superclass (i.e. no special treatment)
-nil                   -> will ignore key
+	nil                   -> will ignore key
 the default (set in #initialize) is #doubleClick
 "
 returnKeyActionStyle := aSymbol
 !
 selectConditionBlock
 "set the conditionBlock; this block is evaluated before a selection
 change is performed; the change will not be done, if the evaluation
 returns false
 The arguments to the block are:
-- no argument
+	- no argument
--  1 argument     index
+	-  1 argument     index
--  2 argument     index, isForAdd
+	-  2 argument     index, isForAdd
 "
 ^ selectConditionBlock
 !
 selectConditionBlock:aOneArgBlock
 "set the conditionBlock; this block is evaluated before a selection
 change is performed; the change will not be done, if the evaluation
 returns false.
 The arguments to the block are:
-- no argument
+	- no argument
--  1 argument     index
+	-  1 argument     index
--  2 argument     index, isForAdd
+	-  2 argument     index, isForAdd
 "
 selectConditionBlock := aOneArgBlock.
 ! !
 !SelectionInListModelView methodsFor:'accessing-attributes'!
 highlightEnterItem:aBool
 "enable or disable to highlight the item over which the mouse pointer is located
 "
 highlightEnterItem ~~ aBool ifTrue:[
-highlightEnterItem := aBool.
+	highlightEnterItem := aBool.
-self pointerEntersItem:nil.
+	self pointerEntersItem:nil.
-highlightEnterItem ifTrue:[
+	highlightEnterItem ifTrue:[
-self enableMotionEvents
+	    self enableMotionEvents
-].
+	].
 ].
 !
 highlightMode
 "get the mode how to draw a selected line:
-#line           draw whole line selected
+	#line           draw whole line selected
-#label          draw label selected
+	#label          draw label selected
-#dropMode       set during drop
+	#dropMode       set during drop
 "
 ^ highlightMode
 !
 highlightMode:aMode
 "set the mode how to draw a selected line:
-#line           draw whole line selected
+	#line           draw whole line selected
-#label          draw label selected
+	#label          draw label selected
-#dropMode       set during drop
+	#dropMode       set during drop
 "
 highlightMode ~~ aMode ifTrue:[
-highlightMode := aMode.
+	highlightMode := aMode.
-self invalidateSelection.
+	self invalidateSelection.
 ].
 !
 highlightWithUnderline
 ^ false
 strikeout:aBoolean
 "turn on/off strikeOut mode
 "
 strikeOut ~~ aBoolean ifTrue:[
-strikeOut := aBoolean.
+	strikeOut := aBoolean.
-self invalidateSelection.
+	self invalidateSelection.
 ].
 ! !
 !SelectionInListModelView methodsFor:'accessing-behavior'!
 "
 ^ ignoreReselect
 !
 ignoreReselect:aBoolean
 "set/clear the ignoreReselect flag -
 if set, a click on an already selected entry is ignored.
 Otherwise the notification is done, even if no
 change in the selection occurs.
 (for example, in browser to update a method).
 Setting ignoreReselect to false makes sense if data is shown
 state := aState ? false.
 multipleSelectOk == state ifTrue:[ ^ self ].
 selection isNil ifTrue:[
-multipleSelectOk := state.
+	multipleSelectOk := state.
-^ self.
+	^ self.
 ].
 multipleSelectOk ifFalse:[
-selection := Array with:selection.
+	selection := Array with:selection.
-multipleSelectOk := true.
+	multipleSelectOk := true.
-^ self
+	^ self
 ].
 selection size == 1 ifTrue:[
-selection := selection first.
+	selection := selection first.
 ] ifFalse:[
-self selection:nil
+	self selection:nil
 ].
 multipleSelectOk := false.
 !
 selectOnButtomMenu
 "
 ^ selectOnButtonPress ? true
 !
 selectOnButtonPress:aBoolean
 "set/clear the selectOnButtonPress flag -
 if set (default), the selection changed on button press. This was the
 behaviour until now.
 if cleared, the selection is changed on button release. This new behaviour allows to start
 a drag without changing the real selection. The selection is changed during the
 drag and restored after the drop.
 "define the button-menu-press behavior; if true the line under the mouse
 will be selected before the menu is opened. Otherwise the menu is opened
 on the current selection."
 selectOnMenuButton isNil ifTrue:[
-^ UserPreferences current selectOnRightClick
+	^ UserPreferences current selectOnRightClick
 ].
 ^ selectOnMenuButton
 !
 selectOnMenuButton:aBoolean
 "
 |editor action|
 (editor := editorView) notNil ifTrue:[
 "/        editorView := nil.
-action := self closeEditorAction.
+	action := self closeEditorAction.
-action notNil ifTrue:[action value:editor.].
+	action notNil ifTrue:[action value:editor.].
-editor destroy.
+	editor destroy.
-editorView := nil.
+	editorView := nil.
 ].
 !
 closeEditorAction
 "get the block which is evaluated before the editor is closed; the argument
 editorView := action valueWithOptionalArgument:lnNr and:self.
 editorView isNil ifTrue:[^ nil].
 editorView superView isNil ifTrue:[
-self addSubView:editorView
+	self addSubView:editorView
 ].
 self computeEditorLayout.
 editorView realize.
 self windowGroup focusView:editorView.
 ^ editorView
 lineChangedAt:aLnNr with:arg
 super lineChangedAt:aLnNr with:arg.
 (editorView notNil and:[aLnNr == self selectedIndex]) ifTrue:[
-self computeEditorLayout.
+	self computeEditorLayout.
 ]
 !
 listSizeChanged:aLnNr nLines:aDeltaLines
 |changed cnts|
 super listSizeChanged:aLnNr nLines:aDeltaLines.
 selection isNil ifTrue:[^ self].
 self size == 0 ifTrue:[
-selection := nil.
+	selection := nil.
-^ self selectionChanged
+	^ self selectionChanged
 ].
 multipleSelectOk ifFalse:[
-selection < aLnNr ifTrue:[^ self].
+	selection < aLnNr ifTrue:[^ self].
-selection := selection + aDeltaLines.
+	selection := selection + aDeltaLines.
-(aDeltaLines < 0 and:[selection < aLnNr]) ifTrue:[
+	(aDeltaLines < 0 and:[selection < aLnNr]) ifTrue:[
-selection := nil.
+	    selection := nil.
-^ self selectionChanged
+	    ^ self selectionChanged
-]
+	]
 ] ifTrue:[
-changed := false.
+	changed := false.
-aDeltaLines < 0  ifFalse:[
+	aDeltaLines < 0  ifFalse:[
-selection keysAndValuesDo:[:i :ln|
+	    selection keysAndValuesDo:[:i :ln|
-ln >= aLnNr ifTrue:[
+		ln >= aLnNr ifTrue:[
-changed := true.
+		    changed := true.
-selection at:i put:(ln + aDeltaLines)
+		    selection at:i put:(ln + aDeltaLines)
-]
+		]
-]
+	    ]
-] ifTrue:[
+	] ifTrue:[
-cnts := 0.
+	    cnts := 0.
-selection keysAndValuesDo:[:i :ln||new|
+	    selection keysAndValuesDo:[:i :ln||new|
-ln >= aLnNr ifTrue:[
+		ln >= aLnNr ifTrue:[
-changed := true.
+		    changed := true.
-(new := ln + aDeltaLines) < aLnNr ifTrue:[
+		    (new := ln + aDeltaLines) < aLnNr ifTrue:[
-cnts := cnts + 1.
+			cnts := cnts + 1.
-new  := nil
+			new  := nil
-].
+		    ].
-selection at:i put:new
+		    selection at:i put:new
-]
+		]
-].
+	    ].
-cnts ~~ 0 ifTrue:[
+	    cnts ~~ 0 ifTrue:[
-cnts == selection size ifTrue:[
+		cnts == selection size ifTrue:[
-selection := nil
+		    selection := nil
-] ifFalse:[
+		] ifFalse:[
-selection := selection select:[:ln| ln notNil]
+		    selection := selection select:[:ln| ln notNil]
-].
+		].
-^ self selectionChanged.
+		^ self selectionChanged.
-].
+	    ].
-].
+	].
-changed ifFalse:[^ self].
+	changed ifFalse:[^ self].
 ].
 (useIndex and:[model notNil]) ifTrue:[
-model setValue:(self argForChangeMessage)
+	model setValue:(self argForChangeMessage)
 ].
 !
 originChanged:delta
 "setup the origin of the editing view
 |arg|
 self closeEditor.
 (model isNil and:[actionBlock isNil]) ifTrue:[
-^ self
+	^ self
 ].
 arg := self argForChangeMessage.
 model notNil ifTrue:[
-model removeDependent:self.
+	model removeDependent:self.
-"/ change models value to force a change notification: reselect mode
+	"/ change models value to force a change notification: reselect mode
-arg = model value ifTrue:[
+	arg = model value ifTrue:[
-model setValue:(arg isNil ifTrue:[0] ifFalse:[nil]).
+	    model setValue:(arg isNil ifTrue:[0] ifFalse:[nil]).
-].
+	].
-self sendChangeMessage:#value: with:arg.
+	self sendChangeMessage:#value: with:arg.
-model notNil ifTrue:[  "/ argggh could be nilled
+	model notNil ifTrue:[  "/ argggh could be nilled
-model addDependent:self.
+	    model addDependent:self.
-self updateFromModel. "/ care for possibly lost change notification, due to #removeDependent
+	    self updateFromModel. "/ care for possibly lost change notification, due to #removeDependent
-]
+	]
 ].
 actionBlock notNil ifTrue:[
-actionBlock valueWithOptionalArgument:arg and:self
+	actionBlock valueWithOptionalArgument:arg and:self
 ].
 !
 updateFromModel
 "update selection from the model
 "
 |value newSelection|
 model isNil ifTrue:[
-^ self
+	^ self
 ].
 buttonMotionAction notNil ifTrue:[
-"running in button motion; discard change notification
+	"running in button motion; discard change notification
-"
+	"
-^ self
+	^ self
 ].
 value := model value.
 (useIndex or:[value isNil or:[value isNumber]]) ifFalse:[
-multipleSelectOk ifFalse:[
+	multipleSelectOk ifFalse:[
-newSelection := self identityIndexOf:value
+	    newSelection := self identityIndexOf:value
-] ifTrue:[
+	] ifTrue:[
-value size == 0 ifTrue:[
+	    value size == 0 ifTrue:[
-newSelection := nil
+		newSelection := nil
-] ifFalse:[
+	    ] ifFalse:[
-newSelection := OrderedCollection new.
+		newSelection := OrderedCollection new.
-value do:[:e||index|
+		value do:[:e||index|
-index := self identityIndexOf:e.
+		    index := self identityIndexOf:e.
-index ~~ 0 ifTrue:[ newSelection add:index ].
+		    index ~~ 0 ifTrue:[ newSelection add:index ].
-].
+		].
-newSelection isEmpty ifTrue:[
+		newSelection isEmpty ifTrue:[
-newSelection := nil
+		    newSelection := nil
-].
+		].
-]
+	    ]
-].
+	].
 ] ifTrue:[
-newSelection := value copy
+	newSelection := value copy
 ].
 self setSelection:newSelection.
 ! !
 !SelectionInListModelView methodsFor:'drag & drop'!
 visibleY := aContext targetPoint y.
 yOrigin  := self yOriginOfContents.
 inset    := 15 + margin.
 visibleY <= inset ifTrue:[
-self yOriginOfContents == 0 ifTrue:[ ^ false ].
+	self yOriginOfContents == 0 ifTrue:[ ^ false ].
 ] ifFalse:[
-visibleY < (self height - inset) ifTrue:[ ^ false ].
+	visibleY < (self height - inset) ifTrue:[ ^ false ].
-self yOriginOfContents < self maxViewOriginY ifFalse:[ ^ false ].
+	self yOriginOfContents < self maxViewOriginY ifFalse:[ ^ false ].
 ].
 aContext contentsWillChange.
 visibleY <= inset ifTrue:[ self scrollUp:inset ]
-ifFalse:[ self scrollDown:inset ].
+		     ifFalse:[ self scrollDown:inset ].
 ^ true
 !
 dropSource
 "returns the dropSource or nil"
 ^ dropSource
 !
 dropSource:aDropSourceOrNil
 "set the dropSource or nil"
 dropSource := aDropSourceOrNil.
 !
 startDragAt:aPoint
 "start drag at a point
 "
 buttonMotionAction := buttonReleaseAction := nil.
 dropSource notNil ifTrue:[
-dropSource startDragSelector notNil ifTrue:[
+	dropSource startDragSelector notNil ifTrue:[
-^ dropSource startDragIn:self at:aPoint
+	    ^ dropSource startDragIn:self at:aPoint
-] ifFalse:[
+	] ifFalse:[
-^ DragAndDropManager new
+	    ^ DragAndDropManager new
-startDragFrom:self dropSource:dropSource offset:#center
+		startDragFrom:self dropSource:dropSource offset:#center
-]
+	]
 ].
 ^ nil
 ! !
 !SelectionInListModelView methodsFor:'drawing'!
 |
 x0 := textStartLeft - viewOrigin x.
 y1 := y.
 start to:stop do:[:i|
-y0 := y1.
+	y0 := y1.
-y1 := self yVisibleOfLine:(i + 1).
+	y1 := self yVisibleOfLine:(i + 1).
-self drawLabelAt:i x:x0 y:y0 h:(y1 - y0)
+	self drawLabelAt:i x:x0 y:y0 h:(y1 - y0)
 ].
 !
 drawFrom:start to:stop x:x y:y w:w
 "draw the lines between start to stop without clearing the background
 "
 highlightMode notNil ifTrue:[
-self selectionDo:[:lnNr|
+	self selectionDo:[:lnNr|
-(lnNr between:start and:stop) ifTrue:[
+	    (lnNr between:start and:stop) ifTrue:[
-self drawSelectionFrameAt:lnNr x:x w:w
+		self drawSelectionFrameAt:lnNr x:x w:w
-]
+	    ]
-]
+	]
 ].
 super drawFrom:start to:stop x:x y:y w:w.
 !
 drawLabelAt:anIndex x:xI y:y h:h
 "
 |item y0 x1 x w drawStrikeOut xOut0 xOut1|
 x := xI + 1.
 editorView notNil ifTrue:[
-"/ there is an open editor for the line; thus no redraw for the label (hidden by editor)
+	"/ there is an open editor for the line; thus no redraw for the label (hidden by editor)
-self selectedIndex == anIndex ifTrue:[^ self].
+	self selectedIndex == anIndex ifTrue:[^ self].
 ].
 item := self at:anIndex ifAbsent:nil.
 item isNil ifTrue:[^ self].
 drawStrikeOut := false.
 (highlightMode notNil and:[self isInSelection:anIndex]) ifTrue:[
-strikeOut ifTrue:[
+	strikeOut ifTrue:[
-drawStrikeOut := true.
+	    drawStrikeOut := true.
-self paint:fgColor on:bgColor
+	    self paint:fgColor on:bgColor
-] ifFalse:[
+	] ifFalse:[
-(highlightMode == #dropMode or:[self hasFocus not]) ifTrue:[
+	    (highlightMode == #dropMode or:[self hasFocus not]) ifTrue:[
-self paint:hilightFgColorNoFocus on:hilightBgColorNoFocus.
+		self paint:hilightFgColorNoFocus on:hilightBgColorNoFocus.
-] ifFalse:[
+	    ] ifFalse:[
-self paint:hilightFgColor on:hilightBgColor
+		self paint:hilightFgColor on:hilightBgColor
-].
+	    ].
-]
+	]
 ] ifFalse:[
-enterItem == item ifTrue:[
+	enterItem == item ifTrue:[
-self paint:hilightBgColor on:bgColor.
+	    self paint:hilightBgColor on:bgColor.
-] ifFalse:[
+	] ifFalse:[
-self paint:fgColor on:bgColor.
+	    self paint:fgColor on:bgColor.
-].
+	].
 ].
-renderer display:item atX:x y:y lineHeight:h.
+listRenderer display:item atX:x y:y lineHeight:h.
 drawStrikeOut ifTrue:[
-xOut0 := self xVisibleOfItem:item.
+	xOut0 := self xVisibleOfItem:item.
-highlightMode == #label ifTrue:[
+	highlightMode == #label ifTrue:[
-xOut1 := xOut0 + (renderer widthFor:item).
+	    xOut1 := xOut0 + (listRenderer widthFor:item).
-] ifFalse:[
+	] ifFalse:[
-xOut1 := width - margin.
+	    xOut1 := width - margin.
-].
+	].
-y0 := y + (h // 2).
+	y0 := y + (h // 2).
-self displayLineFromX:xOut0 y:y0 toX:xOut1 y:y0.
+	self displayLineFromX:xOut0 y:y0 toX:xOut1 y:y0.
-y0 := y0 - 1.
+	y0 := y0 - 1.
-self displayLineFromX:xOut0 y:y0 toX:xOut1 y:y0.
+	self displayLineFromX:xOut0 y:y0 toX:xOut1 y:y0.
 ].
 cursorItem == item ifTrue:[
-"/ textStartLeft
+	"/ textStartLeft
-self maskOrigin:((self viewOrigin + (0 @ 1)) \\ (lineMask extent)).
+	self maskOrigin:((self viewOrigin + (0 @ 1)) \\ (lineMask extent)).
-self mask:lineMask.
+	self mask:lineMask.
-w := renderer widthFor:item.
+	w := listRenderer widthFor:item.
-self displayRectangleX:x -1 y:(y+2) width:w+2 height:(h - 4).
+	self displayRectangleX:x -1 y:(y+2) width:w+2 height:(h - 4).
-self mask:nil.
+	self mask:nil.
 ] ifFalse:[
-enterItem == item ifTrue:[
+	enterItem == item ifTrue:[
-self highlightWithUnderline ifTrue:[
+	    self highlightWithUnderline ifTrue:[
-"/ underline the hilite...
+		"/ underline the hilite...
-y0 := y + h - 2.
+		y0 := y + h - 2.
-x1 := x + (renderer widthFor:item).
+		x1 := x + (listRenderer widthFor:item).
-self displayLineFromX:x y:y0 toX:x1 y:y0.
+		self displayLineFromX:x y:y0 toX:x1 y:y0.
-]
+	    ]
-].
+	].
 ].
 !
 drawSelectionFrameAt:lnNr x:x w:w
 "draw the background and foreground of the selection frame
 at a lineNr.
 "
 |item xMax xLftDmg xRgtDmg x0 x1 y0 y1 hL wL|
 (strikeOut or:[highlightMode isNil]) ifTrue:[
-^ self
+	^ self
 ].
 editorView notNil ifTrue:[
-"/ there is an open editor; do not redraw selected
+	"/ there is an open editor; do not redraw selected
-^ self
+	^ self
 ].
 (    highlightMode == #line
 or:[highlightMode == #label
 or:[highlightMode == #dropMode]]
 ) ifFalse:[
-"/ highlightMode not supported
+	"/ highlightMode not supported
-^ self
+	^ self
 ].
 (item := self at:lnNr ifAbsent:nil) isNil ifTrue:[
-"/ list might change during drawing; item no longer visible
+	"/ list might change during drawing; item no longer visible
-^ self
+	^ self
 ].
 xMax := x + w.
 "/ CLEAR THE BACKGROUND
 y0 := self yVisibleOfLine:lnNr.
 y1 := self yVisibleOfLine:(lnNr + 1).
 hL := y1 - y0.
 highlightMode == #line ifTrue:[
-x0 := x.
+	x0 := x.
-x1 := xMax.
+	x1 := xMax.
 ] ifFalse:[ "/ is #label or #rectangle
-x0 := (self xVisibleOfItem:item) - (textStartLeft // 2).
+	x0 := (self xVisibleOfItem:item) - (textStartLeft // 2).
-x0 >= xMax ifTrue:[ ^ self ].
+	x0 >= xMax ifTrue:[ ^ self ].
-x1 := x0 + (renderer widthFor:item) + textStartLeft + 1.
+	x1 := x0 + (listRenderer widthFor:item) + textStartLeft + 1.
-x1 < x ifTrue:[ ^ self ].
+	x1 < x ifTrue:[ ^ self ].
 ].
 xLftDmg := x0 max:x.
 xRgtDmg := x1 min:xMax.
 xRgtDmg > xLftDmg ifFalse:[^ self].
 (highlightMode == #dropMode or:[self hasFocus not]) ifTrue:[
-self paint:hilightBgColorNoFocus.
+	self paint:hilightBgColorNoFocus.
 ] ifFalse:[
-self paint:hilightBgColor.
+	self paint:hilightBgColor.
 ].
 self fillRectangleX:xLftDmg y:y0 width:(xRgtDmg - xLftDmg) height:hL.
 wL := x1 - x0.
 "/ DRAW THE FRAME
 hilightFrameColor notNil ifTrue:[
-hilightLevel == 0 ifTrue:[
+	hilightLevel == 0 ifTrue:[
-self paint:hilightFrameColor.
+	    self paint:hilightFrameColor.
-highlightMode == #line ifTrue:[
+	    highlightMode == #line ifTrue:[
-self displayLineFromX:x0 y:y0 toX:x1 y:y0.
+		self displayLineFromX:x0 y:y0 toX:x1 y:y0.
-y1 := y0 + hL - 1.
+		y1 := y0 + hL - 1.
-self displayLineFromX:x0 y:y1 toX:x1 y:y1.
+		self displayLineFromX:x0 y:y1 toX:x1 y:y1.
-] ifFalse:[
+	    ] ifFalse:[
-self displayRectangleX:x0 y:y0 width:wL height:hL
+		self displayRectangleX:x0 y:y0 width:wL height:hL
-].
+	    ].
-^ self.
+	    ^ self.
-]
+	]
 ] ifFalse:[
-hilightStyle == #motif ifTrue:[
+	hilightStyle == #motif ifTrue:[
-self paint:bgColor.
+	    self paint:bgColor.
-y1 := y0 + 1.
+	    y1 := y0 + 1.
-highlightMode == #line ifTrue:[
+	    highlightMode == #line ifTrue:[
-self displayLineFromX:x0 y:y1 toX:x1 y:y1.
+		self displayLineFromX:x0 y:y1 toX:x1 y:y1.
-y1 := y0 + hL - 2.
+		y1 := y0 + hL - 2.
-self displayLineFromX:x0 y:y1 toX:x1 y:y1.
+		self displayLineFromX:x0 y:y1 toX:x1 y:y1.
-] ifFalse:[
+	    ] ifFalse:[
-self displayRectangleX:x0 + 1 y:y1 width:wL - 2 height:hL - 2
+		self displayRectangleX:x0 + 1 y:y1 width:wL - 2 height:hL - 2
-]
+	    ]
-].
+	].
-hilightLevel == 0 ifTrue:[ ^ self ].
+	hilightLevel == 0 ifTrue:[ ^ self ].
 ].
 "/ draw edge
 highlightMode == #line ifTrue:[
-x0 := margin.
+	x0 := margin.
-wL := width - x0 - x0.
+	wL := width - x0 - x0.
 ].
 self drawEdgesForX:x0 y:y0 width:wL height:hL level:hilightLevel.
 !
 invalidateSelection
 "invalidate the current selection
 "
 shown ifTrue:[
-self selectionDo:[:aLnNr|
+	self selectionDo:[:aLnNr|
-self invalidateLineAt:aLnNr
+	    self invalidateLineAt:aLnNr
-].
+	].
 ].
 !
 invalidateSelectionAt:aLineNr
 "redraw a line which changed its selection status.
 optimized when drawing only the label.
 "
 |item x|
 editorView notNil ifTrue:[
-"/ there is an open editor; do not redraw selected
+	"/ there is an open editor; do not redraw selected
-^ self
+	^ self
 ].
 (shown and:[aLineNr notNil and:[highlightMode notNil]]) ifFalse:[
-^ self
+	^ self
 ].
 highlightMode == #label ifTrue:[
-item := self at:aLineNr ifAbsent:nil.
+	item := self at:aLineNr ifAbsent:nil.
-item isNil ifTrue:[
+	item isNil ifTrue:[
-^ self
+	    ^ self
-].
+	].
-x := (self xVisibleOfItem:item) - (textStartLeft // 2)
+	x := (self xVisibleOfItem:item) - (textStartLeft // 2)
 ] ifFalse:[
-x := 0.
+	x := 0.
 ].
 self invalidateLineAt:aLineNr fromX:x
 ! !
 !SelectionInListModelView methodsFor:'event handling'!
 |isInSelection prvLine chgSet doAdd|
 isInSelection := self isInSelection:lineNr.
 multipleSelectOk ifFalse:[
-isInSelection ifTrue:[
+	isInSelection ifTrue:[
-self deselect
+	    self deselect
-]ifFalse:[
+	]ifFalse:[
-(self canSelectIndex:lineNr forAdd:false) ifTrue:[
+	    (self canSelectIndex:lineNr forAdd:false) ifTrue:[
-self buttonPressOrReleaseAtLine:lineNr x:x y:y.
+		self buttonPressOrReleaseAtLine:lineNr x:x y:y.
-].
+	    ].
-].
+	].
-^ self
+	^ self
 ].
 isInSelection ifTrue:[
-self removeFromSelection:lineNr
+	self removeFromSelection:lineNr
 ] ifFalse:[
-self addToSelection:lineNr.
+	self addToSelection:lineNr.
-(self isInSelection:lineNr) ifFalse:[
+	(self isInSelection:lineNr) ifFalse:[
-"/ cannot add to selection
+	    "/ cannot add to selection
-^ self
+	    ^ self
-].
+	].
 ].
 prvLine := lineNr.
 chgSet  := IdentitySet new.
 doAdd   := isInSelection not.
 buttonMotionAction := [:p| |rowNr mustRestore step f|
-rowNr := self yVisibleToLineNr:(p y).
+	rowNr := self yVisibleToLineNr:(p y).
-(rowNr notNil and:[rowNr ~~ prvLine]) ifTrue:[
+	(rowNr notNil and:[rowNr ~~ prvLine]) ifTrue:[
-rowNr == lineNr ifTrue:[
+	    rowNr == lineNr ifTrue:[
-mustRestore := true
+		mustRestore := true
-] ifFalse:[
+	    ] ifFalse:[
-rowNr > lineNr ifTrue:[ mustRestore := (rowNr < prvLine) ]
+		rowNr > lineNr ifTrue:[ mustRestore := (rowNr < prvLine) ]
-ifFalse:[ mustRestore := (rowNr > prvLine) ].
+			      ifFalse:[ mustRestore := (rowNr > prvLine) ].
-].
+	    ].
-prvLine > rowNr ifTrue:[ step := -1 ]
+	    prvLine > rowNr ifTrue:[ step := -1 ]
-ifFalse:[ step :=  1 ].
+			  ifFalse:[ step :=  1 ].
-mustRestore ifTrue:[
+	    mustRestore ifTrue:[
-[ prvLine ~~ rowNr ] whileTrue:[
+		[ prvLine ~~ rowNr ] whileTrue:[
-(chgSet removeIdentical:prvLine ifAbsent:nil) notNil ifTrue:[
+		    (chgSet removeIdentical:prvLine ifAbsent:nil) notNil ifTrue:[
-doAdd ifFalse:[ self addToSelection:prvLine ]
+			doAdd ifFalse:[ self addToSelection:prvLine ]
-ifTrue:[ self removeFromSelection:prvLine ].
+			       ifTrue:[ self removeFromSelection:prvLine ].
-].
+		    ].
-prvLine := prvLine + step.
+		    prvLine := prvLine + step.
-].
+		].
-] ifFalse:[
+	    ] ifFalse:[
-[ prvLine ~~ rowNr ] whileTrue:[
+		[ prvLine ~~ rowNr ] whileTrue:[
-prvLine := prvLine + step.
+		    prvLine := prvLine + step.
-doAdd ~~ (self isInSelection:rowNr) ifTrue:[
+		    doAdd ~~ (self isInSelection:rowNr) ifTrue:[
-chgSet add:prvLine.
+			chgSet add:prvLine.
-doAdd ifTrue:[ self addToSelection:prvLine ]
+			doAdd ifTrue:[ self addToSelection:prvLine ]
-ifFalse:[ self removeFromSelection:prvLine ].
+			     ifFalse:[ self removeFromSelection:prvLine ].
-]
+		    ]
-].
+		].
-].
+	    ].
-].
+	].
 ].
 !
 buttonMotion:buttonMask x:x y:y
 "mouse-move while button was pressed - handle selection changes
 |lnNr item|
 self stopAutoScroll.
 (buttonMask ~~ 0 and:[buttonMotionAction notNil]) ifTrue:[
-buttonMotionAction value:(x@y).
+	buttonMotionAction value:(x@y).
-(autoScroll and:[buttonMotionAction notNil]) ifTrue:[
+	(autoScroll and:[buttonMotionAction notNil]) ifTrue:[
-"/ if moved outside of view, start autoscroll
+	    "/ if moved outside of view, start autoscroll
-(y between:0 and:height) ifFalse:[
+	    (y between:0 and:height) ifFalse:[
-y < 0 ifTrue:[ self startAutoScroll:#scrollUp distance:y ]
+		y < 0 ifTrue:[ self startAutoScroll:#scrollUp distance:y ]
-ifFalse:[ self startAutoScroll:#scrollDown distance:(y - height) ].
+		     ifFalse:[ self startAutoScroll:#scrollDown distance:(y - height) ].
-].
+	    ].
-].
+	].
-^ self
+	^ self
 ].
 (enabled and:[highlightEnterItem]) ifTrue:[
-self sensor anyButtonPressed ifFalse:[
+	self sensor anyButtonPressed ifFalse:[
-lnNr := self yVisibleToLineNr:y.
+	    lnNr := self yVisibleToLineNr:y.
-lnNr notNil ifTrue:[ item := self at:lnNr ifAbsent:nil ]
+	    lnNr notNil ifTrue:[ item := self at:lnNr ifAbsent:nil ]
-ifFalse:[ item := nil ].
+		       ifFalse:[ item := nil ].
-self pointerEntersItem:item.
+	    self pointerEntersItem:item.
-]
+	]
 ].
 !
 buttonMultiPress:button x:x y:y
 "button was pressed multiple - handle a doubleClick action"
 buttonMotionAction := buttonReleaseAction := nil.
 enabled ifFalse:[^ self].
 ((button == 1) or:[button == #select]) ifTrue:[
-doubleClickActionBlock notNil ifTrue:[
+	doubleClickActionBlock notNil ifTrue:[
-(     (lnNr := self yVisibleToLineNr:y)   notNil
+	    (     (lnNr := self yVisibleToLineNr:y)   notNil
-and:[(item := self at:lnNr ifAbsent:nil) notNil]
+	     and:[(item := self at:lnNr ifAbsent:nil) notNil]
-) ifTrue:[
+	    ) ifTrue:[
-doubleClickActionBlock valueWithOptionalArgument:lnNr and:self.
+		doubleClickActionBlock valueWithOptionalArgument:lnNr and:self.
-].
+	    ].
-].
+	].
-^ self.
+	^ self.
 ].
 super buttonMultiPress:button x:x y:y
 !
 modelChangedDuringButtonPress := buttonMotionAction := buttonReleaseAction := nil.
 self pointerEntersItem:nil.
 self cursorEntersItem:nil.
 self closeEditor.
 enabled ifFalse:[^ self].
 sensor := self sensor.
 lineNr := self yVisibleToLineNr:y.
 ((button == 2) or:[button == #menu]) ifTrue:[
-(self selectOnMenuButton and:[self numberOfSelections <= 1]) ifTrue:[
+	(self selectOnMenuButton and:[self numberOfSelections <= 1]) ifTrue:[
-(     lineNr notNil
+	    (     lineNr notNil
-and:[self canSelectIndex:lineNr forAdd:false ]
+	     and:[self canSelectIndex:lineNr forAdd:false ]
-) ifTrue:[
+	    ) ifTrue:[
-(lineNr ~~ self selectedIndex) ifTrue: [
+		(lineNr ~~ self selectedIndex) ifTrue: [
-(self selectWithoutScroll:lineNr redraw:true) ifTrue:[
+		    (self selectWithoutScroll:lineNr redraw:true) ifTrue:[
-self selectionChanged
+			self selectionChanged
-].
+		    ].
-].
+		].
-item := self selectedElement.
+		item := self selectedElement.
-] ifFalse:[
+	    ] ifFalse:[
-item := nil.
+		item := nil.
-item := self selectedElement.
+		item := self selectedElement.
 "/                self deselect.
-]
+	    ]
-] ifFalse:[
+	] ifFalse:[
-item := self selectedElement.
+	    item := self selectedElement.
-].
+	].
-item notNil ifTrue:[
+	item notNil ifTrue:[
-self makeSelectionVisible.
+	    self makeSelectionVisible.
-menu := item perform:#middleButtonMenu ifNotUnderstood:nil.
+	    menu := item perform:#middleButtonMenu ifNotUnderstood:nil.
-menu notNil ifTrue:[
+	    menu notNil ifTrue:[
-menu isCollection ifTrue:[
+		menu isCollection ifTrue:[
-menu := Menu decodeFromLiteralArray:menu.
+		    menu := Menu decodeFromLiteralArray:menu.
-appl := self application.
+		    appl := self application.
-appl notNil ifTrue:[
+		    appl notNil ifTrue:[
-menu findGuiResourcesIn:appl.
+			menu findGuiResourcesIn:appl.
-"/ menu receiver:appl  -- now done in findGuiResources ...
+			"/ menu receiver:appl  -- now done in findGuiResources ...
-] ifFalse:[
+		    ] ifFalse:[
-menu receiver:item
+			menu receiver:item
-]
+		    ]
-].
+		].
-self startUpMenu:menu.
+		self startUpMenu:menu.
-^ self
+		^ self
-].
+	    ].
-].
+	].
-super buttonPress:button x:x y:y.
+	super buttonPress:button x:x y:y.
-^ self
+	^ self
 ].
 lineNr isNil ifTrue:[ ^ self ].
 modelChangedDuringButtonPress := false.
 sensor ctrlDown ifTrue:[
-self buttonControlPressAtLine:lineNr x:x y:y.
+	self buttonControlPressAtLine:lineNr x:x y:y.
-^ self
+	^ self
 ].
 isSelected  := self isInSelection:lineNr.
 (self canDrag and:[sensor shiftDown not]) ifTrue:[
-dragDistance := UserPreferences current motionDistanceToStartDrag.
+	dragDistance := UserPreferences current motionDistanceToStartDrag.
-isSelected ifTrue:[
+	isSelected ifTrue:[
-buttonMotionAction :=
+	    buttonMotionAction :=
-[:p|
+		[:p|
-((x@y) dist:p) > dragDistance ifTrue:[
+		    ((x@y) dist:p) > dragDistance ifTrue:[
-self startDragAt:p.
+			self startDragAt:p.
-]
+		    ]
-].
+		].
-buttonReleaseAction := [ self buttonPressOrReleaseAtLine:lineNr x:x y:y ].
+	    buttonReleaseAction := [ self buttonPressOrReleaseAtLine:lineNr x:x y:y ].
-^ self.
+	    ^ self.
-].
+	].
-self selectOnButtonPress ifFalse: [
+	self selectOnButtonPress ifFalse: [
-|oldSelection|
+	    |oldSelection|
-"/ set selection to line;
+	    "/ set selection to line;
-"/ set the model without change notification (objects to drag)
+	    "/ set the model without change notification (objects to drag)
-oldSelection := selection copy.
+	    oldSelection := selection copy.
-self selectAndUpdateModelWithoutChangeNotification: lineNr.
+	    self selectAndUpdateModelWithoutChangeNotification: lineNr.
-self windowGroup processExposeEvents.
+	    self windowGroup processExposeEvents.
-buttonMotionAction :=
+	    buttonMotionAction :=
-[:p|
+		[:p|
-((x@y) dist:p) > dragDistance ifTrue:[
+		    ((x@y) dist:p) > dragDistance ifTrue:[
-|handler|
+			|handler|
-handler := self startDragAt:p.
+			handler := self startDragAt:p.
-handler contentsWillChange.
+			handler contentsWillChange.
-"/ restore old selection
+			"/ restore old selection
-self selectAndUpdateModelWithoutChangeNotification: oldSelection.
+			self selectAndUpdateModelWithoutChangeNotification: oldSelection.
-self windowGroup processExposeEvents.
+			self windowGroup processExposeEvents.
-].
+		    ].
-].
+		].
-buttonReleaseAction := [
+	    buttonReleaseAction := [
-(self canSelectIndex:lineNr forAdd:false) ifTrue:[
+		(self canSelectIndex:lineNr forAdd:false) ifTrue:[
-"/ notify selection change
+		    "/ notify selection change
-self selectionChanged.
+		    self selectionChanged.
-] ifFalse:[
+		] ifFalse:[
-"/ restore old selection
+		    "/ restore old selection
-self selectAndUpdateModelWithoutChangeNotification: oldSelection.
+		    self selectAndUpdateModelWithoutChangeNotification: oldSelection.
-].
+		].
-].
+	    ].
-^ self
+	    ^ self
-].
+	].
 ].
 multipleSelectOk ifFalse:[
-(isSelected or:[self canSelectIndex:lineNr forAdd:false]) ifTrue:[
+	(isSelected or:[self canSelectIndex:lineNr forAdd:false]) ifTrue:[
-self buttonPressOrReleaseAtLine:lineNr x:x y:y.
+	    self buttonPressOrReleaseAtLine:lineNr x:x y:y.
-(dragDistance notNil and:[self isInSelection:lineNr]) ifTrue:[
+	    (dragDistance notNil and:[self isInSelection:lineNr]) ifTrue:[
-buttonMotionAction :=
+		buttonMotionAction :=
-[:p|
+		    [:p|
-((x@y) dist:p) > dragDistance ifTrue:[
+			((x@y) dist:p) > dragDistance ifTrue:[
-self startDragAt:p.
+			    self startDragAt:p.
-].
+			].
-].
+		    ].
-].
+	    ].
-].
+	].
-^ self
+	^ self
 ].
 startLine := lineNr.
 sensor shiftDown ifTrue:[ |min max|
-(isSelected or:[self canSelectIndex:lineNr forAdd:true]) ifFalse:[
+	(isSelected or:[self canSelectIndex:lineNr forAdd:true]) ifFalse:[
-^ self
+	    ^ self
-].
+	].
-multipleSelectOk ifTrue:[
+	multipleSelectOk ifTrue:[
-startLine := self firstInSelection.
+	    startLine := self firstInSelection.
-startLine isNil ifTrue:[ startLine := lineNr ].
+	    startLine isNil ifTrue:[ startLine := lineNr ].
-startLine <= lineNr ifTrue:[
+	    startLine <= lineNr ifTrue:[
-self selectFrom:startLine to:lineNr.
+		self selectFrom:startLine to:lineNr.
-] ifFalse:[
+	    ] ifFalse:[
-startLine := self lastInSelection.
+		startLine := self lastInSelection.
-self selectFrom:lineNr to:startLine.
+		self selectFrom:lineNr to:startLine.
-].
+	    ].
-]
+	]
 ] ifFalse:[
-(isSelected or:[self canSelectIndex:lineNr forAdd:false]) ifFalse:[
+	(isSelected or:[self canSelectIndex:lineNr forAdd:false]) ifFalse:[
-^ self
+	    ^ self
-].
+	].
-self buttonPressOrReleaseAtLine:lineNr x:x y:y.
+	self buttonPressOrReleaseAtLine:lineNr x:x y:y.
 ].
 multipleSelectOk ifTrue:[
-buttonMotionAction :=
+	buttonMotionAction :=
-[:p| |ln|
+	    [:p| |ln|
-(p y between:0 and:height) ifTrue:[ |ln|
+		(p y between:0 and:height) ifTrue:[ |ln|
-ln := self yVisibleToLineNr:p y.
+		    ln := self yVisibleToLineNr:p y.
-ln isNil ifTrue:[ln := self size].
+		    ln isNil ifTrue:[ln := self size].
-(ln ~~ self lastInSelection and:[ln ~~ self firstInSelection]) ifTrue:[
+		    (ln ~~ self lastInSelection and:[ln ~~ self firstInSelection]) ifTrue:[
-self selectFrom:startLine to:ln.
+			self selectFrom:startLine to:ln.
-dragDistance := nil.   "/ selection changed - no longer dragable
+			dragDistance := nil.   "/ selection changed - no longer dragable
-]
+		    ]
-].
+		].
-(dragDistance notNil and:[(x dist:p x) > dragDistance]) ifTrue:[
+		(dragDistance notNil and:[(x dist:p x) > dragDistance]) ifTrue:[
-self startDragAt:p.
+		    self startDragAt:p.
-].
+		].
-].
+	    ].
 ].
 "Modified: / 27-03-2007 / 08:43:58 / cg"
 !
 buttonPressOrReleaseAtLine:aLnNr x:x y:y
 "handle a button press or release at a line
 "
 aLnNr == self selectedIndex ifTrue:[
-editorView notNil ifTrue:[^ self].
+	editorView notNil ifTrue:[^ self].
-self openEditorAction notNil ifTrue:[
+	self openEditorAction notNil ifTrue:[
-self openEditorAtX:x y:y.
+	    self openEditorAtX:x y:y.
-editorView notNil ifTrue:[^ self].
+	    editorView notNil ifTrue:[^ self].
-].
+	].
-ignoreReselect ifFalse:[
+	ignoreReselect ifFalse:[
-(toggleSelect and:[self sensor ctrlDown]) ifTrue:[
+	    (toggleSelect and:[self sensor ctrlDown]) ifTrue:[
-self selection:nil
+		self selection:nil
-] ifFalse:[
+	    ] ifFalse:[
-self selectionChanged
+		self selectionChanged
-].
+	    ].
-].
+	].
 ] ifFalse:[
-(self selectWithoutScroll:aLnNr redraw:true) ifTrue:[
+	(self selectWithoutScroll:aLnNr redraw:true) ifTrue:[
-self selectionChanged
+	    self selectionChanged
-]
+	]
 ].
 !
 buttonRelease:button x:x y:y
 "a button was released
 makeSelectionVisible := modelChangedDuringButtonPress.
 buttonMotionAction   := modelChangedDuringButtonPress := nil.
 buttonReleaseAction notNil ifTrue:[
-buttonReleaseAction value.
+	buttonReleaseAction value.
-buttonReleaseAction := nil.
+	buttonReleaseAction := nil.
 ].
 self cursorEntersItem:nil.
 self stopAutoScroll.
 (makeSelectionVisible == true and:[self hasSelection]) ifTrue:[
-self makeSelectionVisible
+	self makeSelectionVisible
 ].
 !
 characterPress:aKey x:x y:y
 " a character is pressed - lookup and change selection
 lnNr := self firstInSelection.
 lnNr isNil ifTrue:[lnNr := 0].
 self sensor shiftDown ifTrue:[
-stp := -1.              "/ search backward
+	stp := -1.              "/ search backward
-to1 :=  1.
+	to1 :=  1.
-fr2 := size.
+	fr2 := size.
 ] ifFalse:[
-stp := 1.               "/ search forward
+	stp := 1.               "/ search forward
-to1 := size.
+	to1 := size.
-fr2 := 1.
+	fr2 := 1.
 ].
 idx := self findLineFrom:lnNr+stp to:to1 by:stp startingWithCharacter:aKey.
 idx == 0 ifTrue:[
-idx := self findLineFrom:fr2 to:lnNr-stp by:stp startingWithCharacter:aKey.
+	idx := self findLineFrom:fr2 to:lnNr-stp by:stp startingWithCharacter:aKey.
-idx == 0 ifTrue:[^ self].
+	idx == 0 ifTrue:[^ self].
 ].
 self selection:idx.
 keyActionStyle == #selectAndDoubleClick ifTrue:[
-self doubleClicked
+	self doubleClicked
 ].
 !
 characterSearchItemStringAt:anIndex
 "for first-character search:
 |item s|
 item := self at:anIndex ifAbsent:nil.
 item isHierarchicalItem ifTrue:[
-item := item string
+	item := item string
 ].
 item isNil ifTrue:[^ nil].
 (Error catch:[
-s := item asString
+	s := item asString
 ]) ifTrue:[
-s := item displayString
+	s := item displayString
 ].
 ^ s
 !
 containerChangedSize
 "/ stupid kludge for motif-style (which draws a frame at the right-edge)
 "/ cg: I think it should not (see normal SelectionInListView, which does only
 "/     draw the frame at the top and bottom, but NOT at the left and right
 self hasSelection ifTrue:[
-(hilightFrameColor notNil
+	(hilightFrameColor notNil
-or:[hilightStyle == #motif
+	or:[hilightStyle == #motif
-or:[hilightLevel ~~ 0]]) ifTrue:[
+	or:[hilightLevel ~~ 0]]) ifTrue:[
-"/ invalidate the right-edge
+	   "/ invalidate the right-edge
-self invalidate:(((width-3) @ 0) corner:((width-1) @ (height-1))).
+	    self invalidate:(((width-3) @ 0) corner:((width-1) @ (height-1))).
-]
+	]
 ].
 super containerChangedSize.
 !
 "the cursor enters an item or nil
 "
 |lnNr x|
 (shown and:[self size ~~ 0]) ifFalse:[
-cursorItem := nil.
+	cursorItem := nil.
-^ self.
+	^ self.
 ].
 anItemOrNil == cursorItem ifTrue:[ ^ self ].
 2 timesRepeat:[
-cursorItem notNil ifTrue:[
+	cursorItem notNil ifTrue:[
-lnNr := self identityIndexOf:cursorItem.
+	    lnNr := self identityIndexOf:cursorItem.
-lnNr notNil ifTrue:[
+	    lnNr notNil ifTrue:[
-x := self xVisibleOfItem:cursorItem.
+		x := self xVisibleOfItem:cursorItem.
-self invalidateLineAt:lnNr fromX:x
+		self invalidateLineAt:lnNr fromX:x
-].
+	    ].
-].
+	].
-"/ set the new item
+	"/ set the new item
-cursorItem := anItemOrNil.
+	cursorItem := anItemOrNil.
 ].
 cursorItem notNil ifTrue:[
-self makeLineVisible:lnNr
+	self makeLineVisible:lnNr
 ].
 !
 doubleClicked
 "handle a double click
 "
 |arg|
 doubleClickActionBlock notNil ifTrue:[
-arg := self selectedIndex.
+	arg := self selectedIndex.
-arg ~~ 0 ifTrue:[
+	arg ~~ 0 ifTrue:[
-doubleClickActionBlock valueWithOptionalArgument:arg and:self.
+	    doubleClickActionBlock valueWithOptionalArgument:arg and:self.
-]
+	]
 ].
 !
 findLineFrom:aStart to:aStop by:aStep startingWithCharacter:aCharacter
 "find a line starting with a character
 size     "{ Class:SmallInteger }"
 start    "{ Class:SmallInteger }"
 stop     "{ Class:SmallInteger }"
 |
 (size := self size) ~~ 0 ifTrue:[
-aStep > 0 ifTrue:[
+	aStep > 0 ifTrue:[
-aStart > aStop ifTrue:[^ 0].
+	    aStart > aStop ifTrue:[^ 0].
-] ifFalse:[
+	] ifFalse:[
-(aStep == 0 or:[aStop > aStart]) ifTrue:[^ 0]
+	    (aStep == 0 or:[aStop > aStart]) ifTrue:[^ 0]
-].
+	].
-start := aStart < 0 ifTrue:[1] ifFalse:[aStart min:size].
+	start := aStart < 0 ifTrue:[1] ifFalse:[aStart min:size].
-stop  := aStop  < 0 ifTrue:[1] ifFalse:[aStop  min:size].
+	stop  := aStop  < 0 ifTrue:[1] ifFalse:[aStop  min:size].
-char  := aCharacter asUppercase.
+	char  := aCharacter asUppercase.
-start to:stop by:aStep do:[:anIndex|
+	start to:stop by:aStep do:[:anIndex|
-lbl := self characterSearchItemStringAt:anIndex.
+	    lbl := self characterSearchItemStringAt:anIndex.
-lbl notNil ifTrue:[
+	    lbl notNil ifTrue:[
-cmp := lbl string at:1 ifAbsent:nil.
+		cmp := lbl string at:1 ifAbsent:nil.
-cmp notNil ifTrue:[
+		cmp notNil ifTrue:[
-(char == cmp or:[char == cmp asUppercase]) ifTrue:[
+		    (char == cmp or:[char == cmp asUppercase]) ifTrue:[
-(self canSelectIndex:anIndex forAdd:false) ifTrue:[
+			(self canSelectIndex:anIndex forAdd:false) ifTrue:[
-^ anIndex
+			    ^ anIndex
-].
+			].
-^ 0
+			^ 0
-]
+		    ]
-]
+		]
-]
+	    ]
-]
+	]
 ].
 ^ 0
 "Modified: / 15-09-2006 / 11:26:29 / User"
 !
 invalidateLineOfItem:anItem
 |lnNr x|
 lnNr := self identityIndexOf:enterItem.
 lnNr notNil ifTrue:[
-x := self xVisibleOfItem:enterItem.
+	x := self xVisibleOfItem:enterItem.
-self invalidateLineAt:lnNr fromX:x
+	self invalidateLineAt:lnNr fromX:x
 ].
 !
 keyPress:aKey x:x y:y
 "a key was pressed - handle page-keys here
 "
 <resource: #keyboard( #CursorUp #CursorDown #EndOfText #EndOfLine
-#BeginOfText #BeginOfLine #Return
+			  #BeginOfText #BeginOfLine #Return
-#CmdReturn #CmdCursorUp #CmdCursorDown #SelectAll)>
+			  #CmdReturn #CmdCursorUp #CmdCursorDown #SelectAll)>
 |lineNr listSize shifted newSel step start|
 enabled ifFalse:[ ^ self ].
 listSize := self size.
 listSize == 0 ifTrue:[^ self].
 aKey isCharacter ifTrue:[
-keyActionStyle notNil ifTrue:[
+	keyActionStyle notNil ifTrue:[
-keyActionStyle == #pass ifTrue:[
+	    keyActionStyle == #pass ifTrue:[
-super keyPress:aKey x:x y:y
+		super keyPress:aKey x:x y:y
-] ifFalse:[
+	    ] ifFalse:[
-self characterPress:aKey x:x y:y.
+		self characterPress:aKey x:x y:y.
-].
+	    ].
-].
+	].
-^ self
+	^ self
 ].
 aKey == #Escape ifTrue:[
-cursorItem notNil ifTrue:[
+	cursorItem notNil ifTrue:[
-self cursorEntersItem:nil.
+	    self cursorEntersItem:nil.
-self makeSelectionVisible.
+	    self makeSelectionVisible.
-].
+	].
-super keyPress:aKey x:x y:y.
+	super keyPress:aKey x:x y:y.
-^ self
+	^ self
 ].
 ((aKey == #BeginOfText) or:[aKey == #BeginOfLine]) ifTrue:[
-self cursorEntersItem:nil.
+	self cursorEntersItem:nil.
-1 to:listSize do:[:i|
+	1 to:listSize do:[:i|
-(self canSelectIndex:i forAdd:false) ifTrue:[
+	    (self canSelectIndex:i forAdd:false) ifTrue:[
-self selection:i.
+		self selection:i.
-^ self
+		^ self
-].
+	    ].
-].
+	].
-^ self
+	^ self
 ].
 ((aKey == #EndOfText) or:[aKey == #EndOfLine]) ifTrue:[
-self cursorEntersItem:nil.
+	self cursorEntersItem:nil.
-listSize to:1 by:-1 do:[:i|
+	listSize to:1 by:-1 do:[:i|
-(self canSelectIndex:i forAdd:false) ifTrue:[
+	    (self canSelectIndex:i forAdd:false) ifTrue:[
-self selection:i.
+		self selection:i.
-^ self
+		^ self
-].
+	    ].
-].
+	].
-^ self
+	^ self
 ].
 lineNr := self cursorLine.
 aKey == #Return ifTrue:[
-returnKeyActionStyle == #pass ifTrue:[
+	returnKeyActionStyle == #pass ifTrue:[
-super keyPress:aKey x:x y:y
+	    super keyPress:aKey x:x y:y
-] ifFalse:[
+	] ifFalse:[
-lineNr ~~ 0 ifTrue:[
+	    lineNr ~~ 0 ifTrue:[
-self cursorEntersItem:nil.
+		self cursorEntersItem:nil.
-(self canSelectIndex:lineNr forAdd:false) ifTrue:[
+		(self canSelectIndex:lineNr forAdd:false) ifTrue:[
-self selection:lineNr
+		    self selection:lineNr
-].
+		].
-].
+	    ].
-returnKeyActionStyle == #doubleClick ifTrue:[
+	    returnKeyActionStyle == #doubleClick ifTrue:[
-self doubleClicked
+		self doubleClicked
-].
+	    ].
-].
+	].
-^ self
+	^ self
 ].
 aKey == #SelectAll ifTrue:[
-self selectAll.
+	self selectAll.
-^ self
+	^ self
 ].
 (lineNr == 0 and:[selection notNil]) ifTrue:[
-multipleSelectOk ifFalse:[lineNr := selection]
+	multipleSelectOk ifFalse:[lineNr := selection]
-ifTrue:[lineNr := selection last].
+			  ifTrue:[lineNr := selection last].
 ].
 aKey == #CmdReturn ifTrue:[
-"/ toggle selection of the item
+	"/ toggle selection of the item
-lineNr ~~ 0 ifTrue:[
+	lineNr ~~ 0 ifTrue:[
-(self isInSelection:lineNr) ifTrue:[ self removeFromSelection:lineNr ]
+	    (self isInSelection:lineNr) ifTrue:[ self removeFromSelection:lineNr ]
-ifFalse:[ self addToSelection:lineNr ].
+				       ifFalse:[ self addToSelection:lineNr ].
-self cursorEntersItem:(self at:lineNr).
+	    self cursorEntersItem:(self at:lineNr).
-].
+	].
-^ self
+	^ self
 ].
 (aKey == #CmdCursorDown or:[aKey == #CmdCursorUp]) ifTrue:[
-aKey == #CmdCursorDown ifTrue:[
+	aKey == #CmdCursorDown ifTrue:[
-lineNr := lineNr + 1.
+	    lineNr := lineNr + 1.
-lineNr > listSize ifTrue:[lineNr := 1].
+	    lineNr > listSize ifTrue:[lineNr := 1].
-] ifFalse:[
+	] ifFalse:[
-lineNr := lineNr - 1.
+	    lineNr := lineNr - 1.
-lineNr < 1 ifTrue:[lineNr := listSize].
+	    lineNr < 1 ifTrue:[lineNr := listSize].
-].
+	].
-self cursorEntersItem:(self at:lineNr).
+	self cursorEntersItem:(self at:lineNr).
-^ self
+	^ self
 ].
 (aKey == #CursorUp or:[aKey == #CursorDown]) ifFalse:[
-super keyPress:aKey x:x y:y.
+	super keyPress:aKey x:x y:y.
-^ self
+	^ self
 ].
 shifted := (multipleSelectOk and:[self sensor shiftDown]).
 self cursorEntersItem:nil.
 aKey == #CursorDown ifTrue:[ step :=  1.]
-ifFalse:[ step := -1.].
+		       ifFalse:[ step := -1.].
 shifted ifFalse:[ |compressed|
-compressed := self sensor compressKeyPressEventsWithKey:aKey.
+	compressed := self sensor compressKeyPressEventsWithKey:aKey.
-compressed ~~ 0 ifTrue:[
+	compressed ~~ 0 ifTrue:[
-aKey == #CursorDown ifTrue:[
+	    aKey == #CursorDown ifTrue:[
-lineNr := lineNr + compressed.
+		lineNr := lineNr + compressed.
-lineNr > listSize ifTrue:[lineNr := 1].
+		lineNr > listSize ifTrue:[lineNr := 1].
-] ifFalse:[
+	    ] ifFalse:[
-lineNr := lineNr - compressed.
+		lineNr := lineNr - compressed.
-lineNr < 1 ifTrue:[lineNr := listSize].
+		lineNr < 1 ifTrue:[lineNr := listSize].
-].
+	    ].
-].
+	].
 ].
 start  := lineNr.
 lineNr := lineNr + step.
 [ lineNr ~~ start ] whileTrue:[
-(lineNr between:1 and:listSize) ifFalse:[
+	(lineNr between:1 and:listSize) ifFalse:[
-lineNr < 1 ifTrue:[ lineNr := listSize ]
+	    lineNr < 1 ifTrue:[ lineNr := listSize ]
-ifFalse:[ lineNr := 1 ].
+		      ifFalse:[ lineNr := 1 ].
-] ifTrue:[
+	] ifTrue:[
-(self canSelectIndex:lineNr forAdd:shifted) ifTrue:[
+	    (self canSelectIndex:lineNr forAdd:shifted) ifTrue:[
-shifted ifFalse:[
+		shifted ifFalse:[
-self selection:lineNr.
+		    self selection:lineNr.
-^ self
+		    ^ self
-].
+		].
-(self isInSelection:lineNr) ifFalse:[
+		(self isInSelection:lineNr) ifFalse:[
-selection isNil ifTrue:[ newSel := Array with:lineNr ]
+		    selection isNil ifTrue:[ newSel := Array with:lineNr ]
-ifFalse:[ newSel := selection copyWith:lineNr ].
+				   ifFalse:[ newSel := selection copyWith:lineNr ].
-] ifTrue:[
+		] ifTrue:[
-(start ~~ 0 and:[selection size > 1]) ifFalse:[
+		    (start ~~ 0 and:[selection size > 1]) ifFalse:[
-^ self
+			^ self
-].
+		    ].
-newSel := selection copyWithout:start.
+		    newSel := selection copyWithout:start.
-].
+		].
-self selectWithoutScroll:newSel redraw:true.
+		self selectWithoutScroll:newSel redraw:true.
-self makeLineVisible:lineNr.
+		self makeLineVisible:lineNr.
-self selectionChanged.
+		self selectionChanged.
-^ self
+		^ self
-].
+	    ].
-lineNr := lineNr + step.
+	    lineNr := lineNr + step.
-]
+	]
 ].
 !
 pointerEntersItem:anItemOrNil
 "the pointer moves over an item or nil
 "
 |newItem|
 (shown and:[self size ~~ 0]) ifFalse:[
-enterItem := nil.
+	enterItem := nil.
-^ self.
+	^ self.
 ].
 highlightEnterItem ifTrue:[ newItem := anItemOrNil ]
-ifFalse:[ newItem := nil ].
+		      ifFalse:[ newItem := nil ].
 anItemOrNil == enterItem ifTrue:[ ^ self ].
 enterItem notNil ifTrue:[ self invalidateLineOfItem:enterItem ].
 enterItem := anItemOrNil.
 "/ stupid kludge for motif-style (which draws a frame at the right-edge)
 "/ cg: I think it should not (see normal SelectionInListView, which does only
 "/     draw the frame at the top and bottom, but NOT at the left and right
 self hasSelection ifTrue:[
-selectionWasVisible := self isSelectionVisibleIn:(previousExtent ? self extent).
+	selectionWasVisible := self isSelectionVisibleIn:(previousExtent ? self extent).
-(hilightFrameColor notNil
+	(hilightFrameColor notNil
-or:[hilightStyle == #motif
+	or:[hilightStyle == #motif
-or:[hilightLevel ~~ 0]]) ifTrue:[
+	or:[hilightLevel ~~ 0]]) ifTrue:[
-"/ invalidate the right-edge
+	   "/ invalidate the right-edge
-self invalidate:(((width-3) @ 0) corner:((width-1) @ (height-1))).
+	    self invalidate:(((width-3) @ 0) corner:((width-1) @ (height-1))).
-].
+	].
 ].
 super sizeChanged:how.
 selectionWasVisible ifTrue:[
-self makeSelectionVisible
+	self makeSelectionVisible
 ].
 ! !
 !SelectionInListModelView methodsFor:'focus handling'!
 wantsFocusWithPointerEnter
 "return true, if I want the focus when
 the mouse pointer enters"
 (editorView notNil and:[editorView realized]) ifTrue:[
-^ false
+	^ false
 ].
 (UserPreferences current focusFollowsMouse ~~ false
 and:[(styleSheet at:#'selection.requestFocusOnPointerEnter' default:true)
 ]) ifTrue:[
-self size > 0 ifTrue:[
+	self size > 0 ifTrue:[
-^ true
+	    ^ true
-]
+	]
 ].
 ^ false
 ! !
 !SelectionInListModelView methodsFor:'initialization & release'!
 !
 initStyle
 "setup viewStyle specifics
 "
 <resource: #style (#'selection.selectOnMenuButton'
-#'selection.font')>
+		       #'selection.font')>
 super initStyle.
 lineMask isNil ifTrue:[
-lineMask := Form width:2 height:2 fromArray:#[16rAA 16r55].
+	lineMask := Form width:2 height:2 fromArray:#[16rAA 16r55].
 ].
 hilightFrameColor   := nil.
 hilightStyle        := DefaultHilightStyle.
 highlightMode       := #label.
 textStartLeft       := 4.
 selectOnMenuButton  := styleSheet at:#'selection.selectOnMenuButton' default:nil.
 selectOnMenuButton isNil ifTrue:[
-selectOnMenuButton := UserPreferences current selectOnRightClick
+	selectOnMenuButton := UserPreferences current selectOnRightClick
 ].
 super font:(styleSheet fontAt:#'selection.font').
 device hasGrayscales ifTrue:[
-"
+	"
-must get rid of these hard codings
+	 must get rid of these hard codings
-"
+	"
-(hilightStyle == #next) ifTrue:[
+	(hilightStyle == #next) ifTrue:[
-hilightFgColor := fgColor.
+	    hilightFgColor := fgColor.
-hilightBgColor := White.
+	    hilightBgColor := White.
-hilightFrameColor := fgColor
+	    hilightFrameColor := fgColor
-] ifFalse:[
+	] ifFalse:[
-(hilightStyle == #motif) ifTrue:[
+	    (hilightStyle == #motif) ifTrue:[
-fgColor := White.
+		fgColor := White.
-bgColor := Grey.
+		bgColor := Grey.
-viewBackground := bgColor.
+		viewBackground := bgColor.
-hilightFgColor := bgColor.
+		hilightFgColor := bgColor.
-hilightBgColor := fgColor.
+		hilightBgColor := fgColor.
-] ifFalse:[
+	    ] ifFalse:[
-(hilightStyle == #openwin) ifTrue:[
+		(hilightStyle == #openwin) ifTrue:[
-hilightFgColor := fgColor.
+		    hilightFgColor := fgColor.
-hilightBgColor := Color grey.
+		    hilightBgColor := Color grey.
-]
+		]
-]
+	    ]
-]
+	]
 ].
 hilightFgColor isNil ifTrue:[
-hilightFgColor := bgColor.
+	hilightFgColor := bgColor.
 ].
 hilightBgColor isNil ifTrue:[
-hilightBgColor := fgColor.
+	hilightBgColor := fgColor.
 ].
 DefaultForegroundColor notNil ifTrue:[
-fgColor := DefaultForegroundColor
+	fgColor := DefaultForegroundColor
 ].
 DefaultBackgroundColor notNil ifTrue:[
-bgColor := viewBackground := DefaultBackgroundColor
+	bgColor := viewBackground := DefaultBackgroundColor
 ].
 DefaultHilightForegroundColor notNil ifTrue:[
-hilightFgColor := DefaultHilightForegroundColor
+	hilightFgColor := DefaultHilightForegroundColor
 ].
 DefaultHilightBackgroundColor notNil ifTrue:[
-hilightBgColor := DefaultHilightBackgroundColor
+	hilightBgColor := DefaultHilightBackgroundColor
 ].
 DefaultHilightFrameColor notNil ifTrue:[
-hilightFrameColor := DefaultHilightFrameColor
+	hilightFrameColor := DefaultHilightFrameColor
 ].
 hilightLevel := DefaultHilightLevel ? 0.
 lineSpacing  := (hilightLevel abs > 0) ifTrue:[3] ifFalse:[2].
 hilightFgColor isNil ifTrue:[
-hilightFgColor := bgColor.
+	hilightFgColor := bgColor.
-hilightBgColor := fgColor.
+	hilightBgColor := fgColor.
 ].
 hilightFgColorNoFocus isNil ifTrue:[
-hilightFgColorNoFocus := hilightFgColor.
+	hilightFgColorNoFocus := hilightFgColor.
 ].
 hilightBgColorNoFocus isNil ifTrue:[
-hilightBgColorNoFocus := hilightBgColor lightened.
+	hilightBgColorNoFocus := hilightBgColor lightened.
 ].
 !
 initialize
 "setup default attributes/behavior
 "update the layout of the editor
 "
 |lnNr item y0 x0 y1|
 editorView isNil ifTrue:[
-^ self
+	^ self
 ].
 (    (lnNr := self selectedIndex) == 0
 or:[(item := self at:lnNr ifAbsent:nil) isNil]
 ) ifTrue:[
-"/ there is no more single selection; thus close the editor
+	"/ there is no more single selection; thus close the editor
-^ self closeEditor
+	^ self closeEditor
 ].
 x0 := (self xVisibleOfItem:item) - (textStartLeft // 2).
 y0 := self yVisibleOfLine:lnNr.
 y1 := self yVisibleOfLine:(lnNr + 1).
 minimumEditorHeight notNil ifTrue:[
-y1 := y0 + ((y1 - y0) max:minimumEditorHeight).
+	y1 := y0 + ((y1 - y0) max:minimumEditorHeight).
 ].
 "/ Changed by cg:
 "/ editorView layout:( Rectangle left:x top:y right:(width - 1 - margin) bottom:(h + 2 "- 1") ).
 editorView layout:( Rectangle left:x0 top:y0-2 right:(width - 1 - margin) bottom:y1 ).
 !
 item := self at:lnNr ifAbsent:nil.
 item isNil ifTrue:[^ self].
 x < (self xVisibleOfItem:item) ifTrue:[
-"/ not part of the selection frame; ignorre
+	"/ not part of the selection frame; ignorre
-^ self
+	^ self
 ].
 editor := self openEditor.
 editor isNil ifTrue:[^ self].
 y0 := (y - editor origin y) max:0.
 "/ simulate clicking into the editor
 "/ Changed by cg:
 "/ but only if there was no initial selection
 editor isInputField ifTrue:[
-editor hasSelection ifFalse:[
+	editor hasSelection ifFalse:[
-self sensor
+	    self sensor
-pushEvent:(WindowEvent buttonPress:#select x:x0 y:y0 view:editor);
+		pushEvent:(WindowEvent buttonPress:#select x:x0 y:y0 view:editor);
-pushEvent:(WindowEvent buttonRelease:#select x:x0 y:y0 view:editor).
+		pushEvent:(WindowEvent buttonRelease:#select x:x0 y:y0 view:editor).
-]
+	]
 ].
 "/ to clear the selection
 self invalidateLineAt:lnNr.
 ! !
 cachedMaxIdx == 0 ifTrue:[ ^ 0 ].
 y1 := cachedLinesY at:cachedMaxIdx.
 (minimumEditorHeight notNil and:[openEditorAction notNil]) ifTrue:[
-y0 := cachedLinesY at:(cachedMaxIdx - 1) ifAbsent:0.
+	y0 := cachedLinesY at:(cachedMaxIdx - 1) ifAbsent:0.
-y1 := y0 + ((y1 - y0) max:minimumEditorHeight).
+	y1 := y0 + ((y1 - y0) max:minimumEditorHeight).
 ].
 ^ y1
 ! !
 !SelectionInListModelView methodsFor:'selection'!
 "add line to selection without scrolling but raise a change notification
 "
 |oldSelect forAdd|
 (self isInSelection:lineNr) ifTrue:[
-^ self
+	^ self
 ].
 multipleSelectOk ifTrue:[ forAdd := selection notNil ]
-ifFalse:[ forAdd := false ].
+		    ifFalse:[ forAdd := false ].
 (self canSelectIndex:lineNr forAdd:forAdd) ifFalse:[
-^ self
+	^ self
 ].
 self closeEditor.
 self cursorEntersItem:nil.
 multipleSelectOk ifFalse:[
-oldSelect := selection.
+	oldSelect := selection.
-selection := lineNr.
+	selection := lineNr.
-oldSelect notNil ifTrue:[ self invalidateSelectionAt:oldSelect ].
+	oldSelect notNil ifTrue:[ self invalidateSelectionAt:oldSelect ].
 ] ifTrue:[
-selection notNil ifTrue:[ selection := selection copyWith:lineNr ]
+	selection notNil ifTrue:[ selection := selection copyWith:lineNr ]
-ifFalse:[ selection := OrderedCollection with:lineNr ].
+			ifFalse:[ selection := OrderedCollection with:lineNr ].
 ].
 self invalidateSelectionAt:lineNr.
 self selectionChanged.
 !
 isInSelection:aNumber
 "return true, if line, aNumber is in the selection
 "
 multipleSelectOk ifFalse:[
-^ (aNumber == selection)
+	^ (aNumber == selection)
 ].
 selection notNil ifTrue:[
-^ selection includesIdentical:aNumber
+	^ selection includesIdentical:aNumber
 ].
 ^ false
 !
 isSelectionVisible
 isSelectionVisibleIn:anExtentPoint
 "returns true if any selected element is visible"
 self selectionDo:[:aLineNr|
-(self isLineVisible:aLineNr in:anExtentPoint) ifTrue:[^ true].
+	(self isLineVisible:aLineNr in:anExtentPoint) ifTrue:[^ true].
 ].
 ^ false
 !
 lastInSelection
 firstLine := self firstInSelection.
 (firstLine isNil or:[firstLine == 0]) ifTrue:[^ self].
 self selectionDo:[:aLnNr|
-(self lineIsFullyVisible:aLnNr) ifTrue:[^ self].
+	(self lineIsFullyVisible:aLnNr) ifTrue:[^ self].
 ].
 self makeLineVisible:(self firstInSelection).
 !
 numberOfSelections
 "return the number of selected items
 removeFromSelection:lineNr
 "remove line from selection without scrolling but raise a change notification
 "
 (self isInSelection:lineNr) ifFalse:[
-^ self
+	^ self
 ].
 self closeEditor.
 self cursorEntersItem:nil.
 (multipleSelectOk and:[self numberOfSelections > 1]) ifTrue:[
-selection := selection copyWithout:lineNr.
+	selection := selection copyWithout:lineNr.
 ] ifFalse:[
-selection := nil
+	selection := nil
 ].
 self invalidateSelectionAt:lineNr.
 self selectionChanged.
 !
 selectAll
 "select all entries.
 Model and/or actionBlock notification IS done."
 self selectFrom:1 to:self size.
 !
 selectElement:anElement ifAbsent:exceptionalValue
 |idx|
 idx := self identityIndexOf:anElement.
 idx == 0 ifTrue:[
-^ exceptionalValue value
+	^ exceptionalValue value
 ].
 self selection:idx
 !
 selectFrom:aStart to:aStop
 start := aStart.
 stop  := aStop.
 aStart < aStop ifTrue:[
-start := aStart max:1.
+	start := aStart max:1.
-stop  := aStop  min:(self size).
+	stop  := aStop  min:(self size).
-step  := 1.
+	step  := 1.
-start > stop ifTrue:[^ self].
+	start > stop ifTrue:[^ self].
 ] ifFalse:[
-start := aStart min:(self size).
+	start := aStart min:(self size).
-stop  := aStop  max:1.
+	stop  := aStop  max:1.
-step  := -1.
+	step  := -1.
-start < stop ifTrue:[^ self].
+	start < stop ifTrue:[^ self].
 ].
 nsel := OrderedCollection new.
 start to:stop by:step do:[:i|
-(self canSelectIndex:i forAdd:true) ifTrue:[
+	(self canSelectIndex:i forAdd:true) ifTrue:[
-nsel add:i.
+	    nsel add:i.
-].
+	].
 ].
 (self selectWithoutScroll:nsel redraw:true) ifTrue:[
-self selectionChanged
+	self selectionChanged
 ].
 !
 selectedElement
 "return the single selected item or nil
 "
 |index|
 (index := self selectedIndex) ~~ 0 ifTrue:[
-^ self at:index ifAbsent:nil
+	^ self at:index ifAbsent:nil
 ].
 ^ nil
 !
 selectedIndex
 "returns the index of the selected line or 0. If more
 lines are selected, 0 is returned
 "
 selection notNil ifTrue:[
-multipleSelectOk ifFalse:[ ^ selection ].
+	multipleSelectOk ifFalse:[ ^ selection ].
-selection size == 1 ifTrue:[
+	selection size == 1 ifTrue:[
-^ selection at:1
+	    ^ selection at:1
-]
+	]
 ].
 ^ 0
 !
 selection
 "return the selection index or collection of indices
 in case of multiple selection enabled
 "
 ^ selection
 !
 "select something or deselect if the argument is nil;
 scroll to make the selected line visible.
 The model and/or actionBlock IS notified.
 "
 (self selectWithoutScroll:something redraw:true) ifTrue:[
-self makeSelectionVisible.
+	self makeSelectionVisible.
-self selectionChanged
+	self selectionChanged
 ].
 !
 selectionAsCollection
 "perform aBlock for each nr in the selection.
 For single selection, it is called once for the items nr.
 For multiple selections, it is called for each.
 "
 selection notNil ifTrue:[
-multipleSelectOk ifTrue:[
+	multipleSelectOk ifTrue:[
-selection do:aBlock
+	    selection do:aBlock
-] ifFalse:[
+	] ifFalse:[
-aBlock value:selection
+	    aBlock value:selection
-].
+	].
 ].
 !
 selectionValue
 "return the selection value i.e. the text in the selected line.
 For multiple selections a collection containing the entries is returned.
 "
 multipleSelectOk ifTrue:[
-selection isNil ifTrue:[^ #()].
+	selection isNil ifTrue:[^ #()].
-^ selection collect:[:nr| self at:nr ]
+	^ selection collect:[:nr| self at:nr ]
 ].
 selection isNil ifTrue:[^ nil].
 ^ self at:selection ifAbsent:nil.
 !
 "select something or deselect if the argument is nil;
 scroll to make the selected line visible.
 *** No model and/or actionBlock notification is done here.
 "
 (self selectWithoutScroll:something redraw:true) ifTrue:[
-self makeSelectionVisible
+	self makeSelectionVisible
 ]
 ! !
 !SelectionInListModelView methodsFor:'selection private'!
 "return true, if the object identified by its index is selectable
 "
 |item isOk|
 selectConditionBlock notNil ifTrue:[
-isOk := selectConditionBlock valueWithOptionalArgument:anIndex and:isForAdd.
+	isOk := selectConditionBlock valueWithOptionalArgument:anIndex and:isForAdd.
-isOk ifFalse:[
+	isOk ifFalse:[
-^ false
+	    ^ false
-]
+	]
 ].
 item := self at:anIndex ifAbsent:nil.
 item isNil ifTrue:[^ false].
 item isHierarchicalItem ifTrue:[
-^ item isSelectable
+	^ item isSelectable
 ].
 ^ true
 !
 deselectWithoutRedraw
 "clear the selection without redraw and scrolling;
 the model and/or actionBlock is notified
 "
 (self selectWithoutScroll:nil redraw:false) ifTrue:[
-self selectionChanged
+	self selectionChanged
 ]
 !
 selectAndUpdateModelWithoutChangeNotification: aLineNo
 |arg|
 selection = something ifTrue:[^ false].
 oldSelect := selection.
 (something isNil or:[something == 0]) ifTrue:[
-selection := nil
+	selection := nil
 ] ifFalse:[
-something isNumber ifTrue:[
+	something isNumber ifTrue:[
-selection := multipleSelectOk ifTrue:[Array with:something]
+	    selection := multipleSelectOk ifTrue:[Array with:something]
-ifFalse:[something]
+					 ifFalse:[something]
-] ifFalse:[
+	] ifFalse:[
-something size == 0 ifTrue:[
+	    something size == 0 ifTrue:[
-selection := nil
+		selection := nil
-] ifFalse:[
+	    ] ifFalse:[
-selection := multipleSelectOk ifTrue:[something]
+		selection := multipleSelectOk ifTrue:[something]
-ifFalse:[something at:1]
+					     ifFalse:[something at:1]
-]
+	    ]
-]
+	]
 ].
 selection = oldSelect ifTrue:[^ false].
 modelChangedDuringButtonPress notNil ifTrue:[
-modelChangedDuringButtonPress := true.
+	modelChangedDuringButtonPress := true.
 ].
 self closeEditor.
 self cursorEntersItem:nil.
 (doRedraw and:[shown]) ifFalse:[
-^ true
+	^ true
 ].
 multipleSelectOk ifFalse:[
-oldSelect notNil ifTrue:[self invalidateSelectionAt:oldSelect].
+	oldSelect notNil ifTrue:[self invalidateSelectionAt:oldSelect].
-selection notNil ifTrue:[self invalidateSelectionAt:selection].
+	selection notNil ifTrue:[self invalidateSelectionAt:selection].
 ] ifTrue:[
-(selection notNil and:[oldSelect notNil]) ifTrue:[
+	(selection notNil and:[oldSelect notNil]) ifTrue:[
-selection do:[:i|(oldSelect includesIdentical:i) ifFalse:[self invalidateSelectionAt:i]].
+	    selection do:[:i|(oldSelect includesIdentical:i) ifFalse:[self invalidateSelectionAt:i]].
-oldSelect do:[:i|(selection includesIdentical:i) ifFalse:[self invalidateSelectionAt:i]].
+	    oldSelect do:[:i|(selection includesIdentical:i) ifFalse:[self invalidateSelectionAt:i]].
-] ifFalse:[
+	] ifFalse:[
-oldSelect isNil ifTrue:[oldSelect := selection].
+	    oldSelect isNil ifTrue:[oldSelect := selection].
-oldSelect do:[:i|self invalidateSelectionAt:i]
+	    oldSelect do:[:i|self invalidateSelectionAt:i]
-]
+	]
 ].
 ^ true
 ! !
 !SelectionInListModelView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.143 2009-05-27 06:05:59 ca Exp $'
+^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.144 2009-08-07 10:50:41 sr Exp $'
 ! !

changeset 3728	8858b3571313
parent 3704	c9b2102bfd1c
child 3740	67a77c2fcb03