"

 COPYRIGHT (c) 1990 by Claus Gittinger

 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

       instanceVariableNames:'patternField'

       classVariableNames:''

       poolDictionaries:''

       category:'Views-DialogBoxes'

!

FileSelectionBox comment:'

COPYRIGHT (c) 1990 by Claus Gittinger

'!

!FileSelectionBox class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1990 by Claus Gittinger

 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 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.

    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 will be shown in 

    the list (and directories).

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

    in the FileSelectionList). Only filenames for which this matchblock

    returns true will be presented.

    Example1:

    Example2:

    Example3:

    Example4:

    Example5:

    Example5:

"

! !

!FileSelectionBox class methodsFor:'defaults'!

listViewType

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

    ^ FileSelectionList

! !

!FileSelectionBox methodsFor:'initialization'!

initialize

    super initialize.

    labelField extent:(0.7 @ labelField height).

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

    labelField adjust:#left.

    patternField := EditField in:self.

    patternField 

    patternField initialText:'*'.

    patternField leaveAction:[:reason | 

    ].

    patternField hidden:true. "delay showing, until a pattern is defined"

    selectionList action:[:line |

    ].

    selectionList doubleClickAction:[:line |

    ].

    enterField addDependent:self.

    "FileSelectionBox new show"

!

createEnterField

    "

     if the (optional) class FilenameEditField is present, use

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

     to live with the dump field ...

    "

    FilenameEditField notNil ifTrue:[

    ] ifFalse:[

    ]

! !

!FileSelectionBox methodsFor:'dependencies'!

update:something with:argument

    |commonName index|

    something == #directory ifTrue:[

    ]

! !

!FileSelectionBox methodsFor:'user actions'!

okPressed

    "called for both on ok-press and on return-key"

    |dir string fname|

    string := enterField contents.

    string notNil ifTrue:[

    ].

    super okPressed

! !

!FileSelectionBox methodsFor:'private'!

updateList

    selectionList updateList

! !

!FileSelectionBox methodsFor:'accessing'!

openOn:aPath

    "open the box showing files in aPath.

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

    self directory:aPath.

    self showAtPointer

!

directory:nameOrDirectory

    "change the directory shown in the list."

    selectionList directory:nameOrDirectory

!

pattern:aPattern

    "set the pattern - this also enables the PatternField

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

    patternField initialText:aPattern.

    selectionList pattern:aPattern.

    aPattern isNil ifTrue:[

    ] ifFalse:[

    ].

!

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,

     but we trick a bit to pass the full pathname instead of the

     selection-name to the block."

    selectionList matchBlock:[:name | 

    ]

!

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:[

    ].

    sep := Filename separator.

    (string startsWith:sep) ifTrue:[

    ].

    ^ (selectionList directory pathName asFilename construct:string) asString

! !