"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

'From Smalltalk/X, Version:2.10.5 on 8-may-1995 at 11:59:03 am'!

ListView subclass:#SelectionInListView

	 instanceVariableNames:'selection actionBlock enabled hilightFgColor hilightBgColor

		halfIntensityFgColor doubleClickActionBlock selectConditionBlock

		listAttributes multipleSelectOk clickLine initialSelectionMsg

		printItems oneItem useIndex hilightLevel hilightFrameColor

		ignoreReselect arrowLevel smallArrow keyActionStyle

		returnKeyActionStyle toggleSelect strikeOut iSearchString items

		doubleClickMsg'

	 classVariableNames:'RightArrowShadowForm RightArrowLightForm RightArrowForm

		SmallRightArrowShadowForm SmallRightArrowLightForm

		DefaultForegroundColor DefaultBackgroundColor

		DefaultHilightForegroundColor DefaultHilightBackgroundColor

		DefaultHilightFrameColor DefaultHilightLevel DefaultFont

		DefaultRightArrowStyle DefaultRightArrowLevel

		DefaultDisabledForegroundColor DefaultShadowColor

		DefaultLightColor'

	 poolDictionaries:''

	 category:'Views-Text'

!

SelectionInListView comment:'

COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

'!

!SelectionInListView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

version

"

"

!

documentation

"

    this one is a ListView with a selected line (which is shown highlighted)

    If multipleSelectionsOk is true, it is also allowed to shift-click multiple 

    entries.

    If toggleSelect is true, clicking toggles (i.e. click on a seleted item

    will deselect).

    Whenever the selection changes, an action-block is evaluated, passing the 

    current selection as argument.

    Currently, the selection can be nil, aNumber or a collection of numbers; 

    this will change to be either nil or a collection, making selection handling 

    easier in the future. (this stupid behavior is due to the multiple

    select feature being added later - the first implementation used to support

    only single selections).

    The actionBlock is called with the current selection (single number or

    collection of numbers) as argument.

    Also, to support ST-80 MVC-style use, the model (if nonNil) is notified

    by the change mechanism (performs changeMsg) and vice versa, the view

    updates if the model changes (with aspect of either #list or #selectionIndex).

    Before actually adding entries to the the selection, a checkBlock (if non-nil) is evaluated 

    passing the number of the entry whch is about to be selected as argument.

    The select change operation is only done if this returns true. This allows

    interception of select, for example to query the user if he/she wants to save

    the old contents before (see uses in SystemBrowser and FileBrowser), or to

    disable individual entries.

    It is also possible to select entries with the keyboard; use the cursor up/

    down keys to select prev/next, Home- and End-keys to select first/last. 

    Use the return key to apply the double-click-action to the current selection.

    Also, alphabetic keys will select the next entry starting with that key.

    The keyboard behavior can be further controlled with the keyActionStyle

    instance variable (see SelectionInListView>>keyActionStyle:).

    Finally, ignoreReselect controls if pressing on an already selected item

    triggers the action or not. For some applications it is useful to allow

    reselects (for example, the SystemBrowsers method-list updates the

    source code in this case).

    Currently, some limited form of line attributes are supported. These

    are kept in the instance variable lineAttributes.

    This may change (using mechanisms similar to MultiColListEntry), so

    be prepared. (dont use the listAttributes instvar directly; if possible,

    use MultiColListEntry or subclasses of it.

    Although currently based on the listAttributes instVar, the implementation of

    text attributes will be changed in the near future (when Text/DisplayText are

    available). 

    However, the protocol will probably be kept for backward compatibility

    (i.e. use #attributeAt: / #attributeAt:put etc. - at least, these are easy to find

    when migrating to the new attributed text handling).

    InstanceVariables:

	selection               <misc>          the current selection. nil, a number or collection of numbers

	actionBlock             <Block>         block to be evaluated on selection changes

	enabled                 <Boolean>       true: selection changes allowed; false: ignore clicks

	hilightFgColor

	hilightBgColor          <Color>         how highlighted items are drawn

	halfIntensityColor      <Color>         foreground for disabled items

	selectConditionBlock    <Block>         if non-nil, this nlock can decide if selection is ok

	doubleClickActionBlock  <Block>         action to perform on double-click

	listAttributes                          dont use - will vanish

	hilightLevel            <Integer>       level to draw selections (i.e. for 3D effect)

	hilightFrameColor       <Color>         rectangle around highlighted items

	multipleSelectOk        <Boolean>       if true, multiple selections (with shift) are ok.

						default: false

	ignoreReselect          <Boolean>       if true, selecting same again does not trigger action;

						if false, every select triggers it.

						default: true

	toggleSelect            <Boolean>       if true, click toggles;

						if false, click selects.

						default: false

	arrowLevel              <Integer>       level to draw right-arrows (for submenus etc.)

	smallArrow              <Boolean>       if true, uses a small arrow bitmap

	listMsg                                 if non-nil, use ST-80 style (model-access)

	initialSelectionMsg 

	printItems 

	oneItem

	keyActionStyle          <Symbol>        controls how to respond to keyboard selects

	returnKeyActionStyle    <Symbol>        controls how to respond to return key

    written spring/summer 89 by claus

    3D Jan 90 by claus

    multiselect Jun 92 by claus

    keyboard-select jun 94 by claus

"

!

examples

"

    SelectionInListView can be used both in the ST/X way, using action blocks

    or in the traditional mvc way.

    with actions:

      basic interface:

	|top slv|

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView new.

	slv list:#('one' 'two' 'three').

	slv action:[:index | Transcript showCr:'selected ' , index printString].

	top add:slv in:(0.0@0.0 corner:1.0@1.0).

	top open

      get element instead of index:

	|top slv|

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView new.

	slv list:#('one' 'two' 'three').

	slv action:[:element | Transcript showCr:'selected ' , element printString].

	slv useIndex:false.

	top add:slv in:(0.0@0.0 corner:1.0@1.0).

	top open

      concrete example; show filenames:

      (notice: normally, you would use a FileSelectionList)

	|top slv|

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView new.

	slv list:(Filename currentDirectory directoryContents).

	slv action:[:index | 

	    Transcript showCr:'selected ' , index printString.

	    Transcript showCr:' the value is: ', slv selectionValue].

	top add:slv in:(0.0@0.0 corner:1.0@1.0).

	top open

      add a scrollbar:

	|top slv|

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView new.

	slv list:(Filename currentDirectory directoryContents).

	slv action:[:index | Transcript showCr:'selected ' , index printString].

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open

      allow reselect (clicking on already selected entry):

	|top slv|

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView new.

	slv list:(Filename currentDirectory directoryContents).

	slv action:[:index | Transcript showCr:'selected ' , index printString].

	slv ignoreReselect:false.

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open

      allow multiple selections:

	|top slv|

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView new.

	slv list:(Filename currentDirectory directoryContents).

	slv action:[:indexList | Transcript showCr:'selected ' , indexList printString].

	slv multipleSelectOk:true.

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open

      same, not using index:

	|top slv|

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView new.

	slv list:(Filename currentDirectory directoryContents).

	slv action:[:indexList | Transcript showCr:'selected ' , indexList printString].

	slv multipleSelectOk:true; useIndex:false.

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open

      strikeout mode (single):

	|top slv|

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView new.

	slv list:(Filename currentDirectory directoryContents).

	slv action:[:index | Transcript showCr:'selected ' , index printString].

	slv strikeOut:true.

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open

      strikeout mode (multiple):

	|top slv|

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView new.

	slv list:(Filename currentDirectory directoryContents).

	slv action:[:index | Transcript showCr:'selected ' , index printString].

	slv strikeOut:true; multipleSelectOk:true.

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open

      define what to do on double-click:

	|top slv|

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView new.

	slv list:(Filename currentDirectory directoryContents).

	slv action:[:index | Transcript showCr:'selected ' , index printString].

	slv doubleClickAction:[:index | Transcript showCr:'doubleclick on ' , index printString].

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open

    using a Model:

	|top slv model|

	model := Plug new.

	model respondTo:#getList with:[#('foo' 'bar' 'baz' 'hello')].

	model respondTo:#initial with:[1].

	model respondTo:#setSelection: with:[:arg | Transcript showCr:'model selected:', arg printString].

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView 

		   on:model

		   aspect:#someAspect

		   change:#setSelection:

		   list:#getList

		   initialSelection:#initial.

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open

      notice, that the ST-80 behavaior on reselect is to send a selection change

      with an index of 0.

    same, with useIndex false:

	|top slv model|

	model := Plug new.

	model respondTo:#getList with:[#('foo' 'bar' 'baz' 'hello')].

	model respondTo:#initial with:['bar'].

	model respondTo:#setSelection: with:[:arg | Transcript showCr:'model selected:', arg printString].

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView 

		   on:model

		   aspect:#someAspect

		   change:#setSelection:

		   list:#getList

		   initialSelection:#initial.

	slv useIndex:false.

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open

    self changing list: 

    (selectionInListView updates itself when button changes initial selection):

	|top slv model sel changeButton|

	sel := 'bar'.

	model := Plug new.

	model respondTo:#getList with:['getList' printNL. #('foo' 'bar' 'baz' 'hello')].

	model respondTo:#initial with:['initial' printNL. sel].

	model respondTo:#setSelection: with:[:arg | ('model selected:', arg) printNL. sel := arg].

	changeButton := Button label:'change selection'.

	changeButton action:[sel := 'foo'. model changed:#initial].

	changeButton open.

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView 

		   on:model

		   aspect:#someAspect

		   change:#setSelection:

		   list:#getList

		   initialSelection:#initial.

	slv useIndex:false.

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open

    using a SelectionInList-Model:

    (see how changes in the model (via list:...) are reflected in the view)

	|top slv model|

	model := SelectionInList with:#('foo' 'bar' 'baz' 'hello').

	model selection:'bar'.

	top := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.

	slv := SelectionInListView on:model.

	top add:(ScrollableView forView:slv) in:(0.0@0.0 corner:1.0@1.0).

	top open.

	model inspect

    two selectionInListViews on the same selectionInList model:

	|top1 slv1 top2 slv2 model|

	model := SelectionInList with:#('foo' 'bar' 'baz' 'hello').

	top1 := StandardSystemView new

		label:'select';

		minExtent:100@100;

		maxExtent:300@400;

		extent:200@200.