"

 COPYRIGHT (c) 1990 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.

"

ListSelectionBox subclass:#FileSelectionBox

!

!FileSelectionBox class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1990 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.

"

!

documentation

"

    this class implements file selection boxes. Instances show a list of

    files, and perform an action block with the selected pathname as

    argument when ok is clicked. It is also possible, to open the box

    without action and ask it afterward if it has been left with ok

    (i.e. the ST-80 way, asking 'aBox accepted ifTrue:[...]')

    There is an optional PatternField, which shows itself when a pattern

    is defined (i.e. if there is no pattern, it is hidden). 

    If there is a pattern, only files matching the pattern are shown in 

    the list. Directories are not affected by the patternField.

    In addition, there is an optional matchBlock (actually this is defined 

    in the FileSelectionList). Only names for which this matchblock

    returns true will be presented. The matchBlock affects both regular files

    and names of directories. The argument passed to the matchBlock is the full

    pathname.

    All of the actual work is done in the fileList; see the documentation

    of FileSelectionList for more options 

    (you can access a boxes fileList via 'aBox>>listView' and get access to all

     of those fancy settings)

    For example, by accessing the list, it is possible to hide all directories 

    ('aBox listView ignoreDirectories:true'), to hide the parentDirectory alone 

    ('aBox listView ignoreParentDirectory') and to turn off the marking 

    of subdirectories ('aBox listView markSubdirectories:false').

"

!

examples 

"

  simple standard queries

    very simple:

    simple:

    with initial selection:

  more detailed setup

    setting title:

    setting a matchpattern:

    setting a matchblock:

    both pattern and matchBlock:

    dont show the parent directory:

    dont show any directory:

    dont show any directory or hidden file:

    (notice the basename extraction - we are not interrested in the full pathName)

    dont allow direct filename entry:

    (i.e. avoid the user choosing files from other directories)

    combined with above directory ignoring,

    this limits selection of files from a single directory:

    finally, an action:

  concrete examples:

    only show files beginning with lowercase characters

    and ending in '.c':

    somewhat wierd example:

    only show files, if the directory we are in begins with 'lib':

"

! !

!FileSelectionBox class methodsFor:'defaults'!

requestFilename

    ^ self requestFilename:'filename:'

    "

     FileSelectionBox requestFilename

    "

!

requestFilename:title

    |fileBox|

    fileBox := self

		    title:title

		    okText:'ok'

		    abortText:'cancel'

		    action:[:fileName | ^ fileName].

    fileBox showAtPointer.

    ^ nil

    "

     FileSelectionBox requestFilename:'which file ?'

    "

!

requestFilename:title default:aFileName

    |fileBox|

    fileBox := self

		    title:title

		    okText:'ok'

		    abortText:'cancel'

		    action:[:fileName | ^ fileName].

    fileBox initialText:aFileName.

    fileBox showAtPointer.

    ^ nil

    "

     FileSelectionBox requestFilename:'which file ?' default:'Makefile'

    "

!

requestFilename:title  fromDirectory: aDirectory

    |fileBox|

    fileBox := self

		    title:title

		    okText:'ok'

		    abortText:'cancel'

		    action:[:fileName | ^ fileName].

    fileBox directory: aDirectory.

    fileBox showAtPointer.

    ^ nil

    "

     FileSelectionBox requestFilename:'which file ?' fromDirectory:'/etc'

    "

    "Modified: 12.10.1995 / 11:47:27 / markus"

! !

!FileSelectionBox class methodsFor:'requests'!

listViewType

    "return the type of listView - using a FileSelectionList here"

    ^ FileSelectionList

! !

!FileSelectionBox methodsFor:'accessing'!

contents

    "return the current entered value (i.e. the enterFields string).

     redefined to return the full pathname."

    |string sep|

    string := super contents.

    string isNil ifTrue:[

	^ selectionList directory pathName

    ].

    sep := Filename separator.

    (string startsWith:sep) ifTrue:[

	^ string

    ].

    ^ (selectionList directory pathName asFilename construct:string) asString

!

directory

    "return the directory which is currently shown"

    ^ selectionList directory

!

directory:directoryName

    "change the directory shown in the list."

    selectionList directory:directoryName

!

matchBlock:aBlock

    "set the matchBlock (in the selectionList). Only files

     for which the block returns true are shown.

     The matching is actually done in the fileSelectionList."

    selectionList matchBlock:aBlock 

!

openOn:aPath

    "open the box showing files in aPath.

     This is only a shortcut message - no new functionality."

    self directory:aPath.

    self showAtPointer

!

pattern:aPattern

    "set the pattern - this also enables the PatternField

     (if the pattern is non-nil) or hides it (if nil)."

    |hidePatternField focusSequence|

    patternField initialText:aPattern.

    selectionList pattern:aPattern.

    aPattern isNil ifTrue:[

	hidePatternField := true.

	realized ifTrue:[

	    patternField hide.

	].

	focusSequence := (Array 

			     with:enterField 

			     with:selectionList 

			     with:okButton 

			     with:abortButton)

    ] ifFalse:[

	hidePatternField := false.

	realized ifTrue:[

	    patternField realize.

	].

	focusSequence := (Array 

			     with:patternField 

			     with:enterField 

			     with:selectionList 

			     with:okButton 

			     with:abortButton)

    ].

    patternField hiddenOnRealize:hidePatternField.

    windowGroup notNil ifTrue:[

	windowGroup focusSequence:focusSequence

    ].

! !

!FileSelectionBox methodsFor:'change & update'!

update:something with:argument from:changedObject

    |commonName index s|

    something == #directory ifTrue:[

	"

	 sent by fileNameEnterField, if a filename

	 completion was not possible due to multiple

	 matches.

	"

	selectionList directory:argument.

	s := enterField contents.

	s notNil ifTrue:[

	    commonName := s asFilename baseName.

	    commonName size > 0 ifTrue:[

		index := selectionList list findFirst:[:entry | entry startsWith:commonName].

		index ~~ 0 ifTrue:[

		    selectionList makeLineVisible:index

		]

	    ]

	]

    ]

! !

!FileSelectionBox methodsFor:'initialization'!

createEnterField

    "if the (optional) class FilenameEditField is present, use

     it, since it provides filename completion. Otherwise, we have

     to live with the dump (default) field ...

    "

    FilenameEditField notNil ifTrue:[

	^ FilenameEditField new.

    ].

    ^ super createEnterField

!

focusSequence

    patternField shown ifTrue:[

	^ Array 

	    with:patternField 

	    with:enterField 

	    with:selectionList 

	    with:abortButton

	    with:okButton 

    ].

    ^ super focusSequence

!

initialize

    |corner|

    super initialize.

    label := resources string:'File dialog'.

    labelField extent:(0.7 @ labelField height).

    labelField label:(resources string:'select a file:').

    labelField adjust:#left.

    patternField := EditField in:self.

    self is3D ifTrue:[

    ] ifFalse:[