"

 COPYRIGHT (c) 2002 by eXept Software AG

	      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.

"

"{ Package: 'stx:libtool' }"

SimpleDialog subclass:#FileDialogV2

	instanceVariableNames:'aspects directory pattern filterHolder initialText multipleSelect

		doubleClickAction cancelLabelHolder okLabelHolder startFilename

		result filterField filenameField viewFiles filenameLabelHolder

		isLoadDialog newDirectoryVisibilityHolder

		appendButtonVisibleHolder appendWasPressed

		buttonPanelVisibleHolder appendLabelHolder contentsBrowser'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FileDialogV2 class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2002 by eXept Software AG

	      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

"

    documentation to be added.

    [author:]

	Martin Walser (martin@vercingetorix)

    [instance variables:]

    [class variables:]

    [see also:]

"

!

examples

"

								[exBegin]

    FileDialog open

								[exEnd]

								[exBegin]

    FileDialog

	requestFileName:'enter a fileName:'

	default:''

	version:nil

	ifFail:['none']

	pattern:'*.conf'

	fromDirectory:'/etc'

	whenBoxCreatedEvaluate:nil.

								[exEnd]

								[exBegin]

    |fd|

    fd := FileDialog new.

    fd multipleSelect:true.

    fd open

								[exEnd]

"

!

todo

"

    - make the filedialog windows like f

      filename entry field shows only the filename not the whole directory

      the tree allways starts in currrent directory

      the parent tree is shown in a compobox where the perents are selectable

    - do not expand the ~ or relative pathnames to absolute pathnames

"

! !

!FileDialogV2 class methodsFor:'instance creation'!

requestDirectoryName:title default:aFileName ifFail:failBlock

    "same as requestFileName, but only show directories"

    ^ self

	requestDirectoryName:title

	default:aFileName

	ok:nil

	abort:nil

	version:nil

	pattern:nil

	fromDirectory:nil

	ifFail:failBlock

	whenBoxCreatedEvaluate:nil

	asLoadDialog:nil.

    "

     FileDialogV2

	requestDirectoryName:'which directory ?'

	default:Filename currentDirectory pathName

	ifFail:'none'

    "

!

requestDirectoryName:title default:aFileName ok:okText abort:abortText ifFail:failBlock

    "same as requestFileName, but only show directories"

    ^ self

	requestDirectoryName:title

	default:aFileName

	ok:okText

	abort:abortText

	version:nil

	pattern:nil

	fromDirectory:nil

	ifFail:failBlock

	whenBoxCreatedEvaluate:nil

	asLoadDialog:nil.

    "

     FileDialog

	requestDirectoryName:'which directory ?'

	default:Filename currentDirectory pathName

	ok:'Yes'

	abort:'No'

	ifFail:'none'

    "

!

requestDirectoryName:title default:aFileName ok:okText abort:abortText ifFail:failBlock acceptReturnAsOK:aBoolean

    "same as requestFileName, but only show directories"

    ^ self

	requestDirectoryName:title

	default:aFileName

	ok:okText

	abort:abortText

	version:nil

	pattern:nil

	fromDirectory:nil

	ifFail:failBlock

	whenBoxCreatedEvaluate:[:box|box doubleClickAction:[:index|box doAccept]]

	asLoadDialog:nil.

    "

     FileDialog

	requestDirectoryName:'which directory ?'

	default:Filename currentDirectory pathName

	ok:'Yes'

	abort:'No'

	ifFail:'none'

    "

!

requestDirectoryName:titleString default:aFileName ok:okText abort:abortText version:versionSymbol pattern:pattern fromDirectory:aDirectoryPath ifFail:failBlock whenBoxCreatedEvaluate:boxCreatedCallback asLoadDialog:aBoolean

    "same as requestFileName, but only show directories"

    |enteredFileName instance enteredFileNameString|

    instance := self

	startApplicationFor:titleString

	default:aFileName

	ok:okText

	abort:abortText

	ifFail:failBlock

	pattern:pattern

	fromDirectory:aDirectoryPath

	whenBoxCreatedEvaluate:boxCreatedCallback

	asLoadDialog:aBoolean

	viewFiles:false

	multipleSelect:false.

    enteredFileNameString := instance result.

    enteredFileNameString isNil ifTrue:[

	^ failBlock value

    ].

    enteredFileName := enteredFileNameString asFilename.

    enteredFileNameString := enteredFileName asString.

    (enteredFileName notNil

    and:[enteredFileNameString notEmpty]) ifTrue:[

	versionSymbol isNil ifTrue:[ ^ enteredFileNameString].

	versionSymbol == #mustBeNew ifTrue:[

	    "/ file may not exist

	    enteredFileName exists ifTrue:[^ ''].

	].

	versionSymbol == #new ifTrue:[

	    "/ file may not exist

	    enteredFileName exists ifTrue:[

		(Dialog confirm:(self classResources string:'''%1'' exists.\\Continue anyway ?' with:enteredFileNameString) withCRs)

		    ifFalse:[^ ''].

	    ].

	].

	versionSymbol == #mustBeOld ifTrue:[

	    enteredFileName exists ifFalse:[^ ''].

	].

	versionSymbol == #old ifTrue:[

	    "/ file may not exist

	    enteredFileName exists ifFalse:[

		(self confirm:(self classResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:enteredFileNameString) withCRs)

		ifFalse:[^ ''].

	    ].

	].

	FileSelectionBox lastFileSelectionDirectory:(enteredFileNameString).

    ].

    ^ enteredFileNameString

    "

     FileDialog

	requestDirectoryName:'which directory ?'

	default:Filename currentDirectory pathName

	ifFail:nil

    "

    "

     FileDialog

	requestDirectoryName:'which directory ?'

	default:Filename currentDirectory pathName

	ok:nil

	abort:nil

	version:nil

	pattern:nil

	fromDirectory:nil

	ifFail:nil

	whenBoxCreatedEvaluate:nil

	asLoadDialog:true

    "

!

requestDirectoryName:title default:aFileName ok:okText ifFail:failBlock

    "same as requestFileName, but only show directories"

    ^ self

	requestDirectoryName:title

	default:aFileName

	ok:okText

	abort:nil

	version:nil

	pattern:nil

	fromDirectory:nil

	ifFail:failBlock

	whenBoxCreatedEvaluate:nil

	asLoadDialog:nil.

    "

     FileDialogV2

	requestDirectoryName:'which directory ?'

	default:Filename currentDirectory pathName

	ok:'Yes'

	ifFail:'none'

    "

!

requestFileName:titleString default:defaultName ok:okText abort:abortText pattern:pattern fromDirectory:aDirectoryPathOrNil whenBoxCreatedEvaluate:boxCreatedCallback

    ^ self

	requestFileName:titleString

	default:defaultName

	ok:okText

	abort:abortText

	version:nil

	ifFail:nil

	pattern:pattern

	fromDirectory:aDirectoryPathOrNil

	whenBoxCreatedEvaluate:boxCreatedCallback

!

requestFileName:titleString default:defaultName ok:okText abort:abortText version:versionSymbol ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPath whenBoxCreatedEvaluate:boxCreatedCallback

    "launch a Dialog, which allows user to enter a filename.

     The files presented initially are those in aDirectoryPathOrNil, or the

     last fileBox directory (default: current directory) (if a nil path is given).

     The box will show okText in its okButton, abortText in the abortButton.

     The matchPattern is set to pattern initially.

     Return the string, or nil if cancel was pressed

     The version argument allows validation of the files existance;

     it may be any of:

	#mustBeNew      - fail (return empty string) if the file exists

	#new            - confirm if the file exists

	#mustBeOld      - fail if the file does not exist

	#old            - confirm if the file does not exist

	#any (other)    - no validation

    "

    ^ self

	requestFileName:titleString

	default:defaultName

	ok:okText

	abort:abortText

	version:versionSymbol

	ifFail:failBlock

	pattern:pattern

	fromDirectory:aDirectoryPath

	whenBoxCreatedEvaluate:boxCreatedCallback

	asLoadDialog:nil

!

requestFileName:titleString default:defaultName ok:okText abort:abortText version:versionSymbol ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPath whenBoxCreatedEvaluate:boxCreatedCallback asLoadDialog:aBoolean

    "launch a Dialog, which allows user to enter a filename.

     The files presented initially are those in aDirectoryPathOrNil, or the

     last fileBox directory (default: current directory) (if a nil path is given).

     The box will show okText in its okButton, abortText in the abortButton.

     The matchPattern is set to pattern initially.

     Return the string, or nil if cancel was pressed

     The version argument allows validation of the files existance;

     it may be any of:

	#mustBeNew      - fail (return empty string) if the file exists

	#new            - confirm if the file exists

	#mustBeOld      - fail if the file does not exist

	#old            - confirm if the file does not exist

	#any (other)    - no validation

    "

    | instance enteredFileName enteredFileNameString|

    instance := self

	startApplicationFor:titleString

	default:defaultName

	ok:okText

	abort:abortText

	ifFail:failBlock

	pattern:pattern

	fromDirectory:aDirectoryPath

	whenBoxCreatedEvaluate:boxCreatedCallback

	asLoadDialog:aBoolean

	viewFiles:true

	multipleSelect:false.

    enteredFileNameString := instance result.

    (enteredFileNameString isNil or:[enteredFileNameString isEmpty]) ifTrue:[

	^ failBlock value

    ].

    enteredFileName := enteredFileNameString asFilename.

    enteredFileNameString := enteredFileName asString.

    (enteredFileName notNil

    and:[enteredFileNameString notEmpty]) ifTrue:[

	FileSelectionBox lastFileSelectionDirectory:(enteredFileName directoryName).

	versionSymbol isNil ifTrue:[ ^ enteredFileNameString].

	versionSymbol == #mustBeNew ifTrue:[

	    "/ file may not exist

	    enteredFileName exists ifTrue:[^ ''].

	].

	versionSymbol == #new ifTrue:[

	    "/ file may not exist

	    enteredFileName exists ifTrue:[

		(Dialog confirm:(self classResources string:'''%1'' exists.\\Continue anyway ?' with:enteredFileNameString) withCRs)

		    ifFalse:[^ ''].

	    ].

	].

	versionSymbol == #mustBeOld ifTrue:[

	    enteredFileName exists ifFalse:[^ ''].

	].

	versionSymbol == #old ifTrue:[

	    "/ file may not exist

	    enteredFileName exists ifFalse:[

		(self confirm:(self classResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:enteredFileNameString) withCRs)

		ifFalse:[^ ''].

	    ].

	].

    ].

    ^ enteredFileNameString

"

     FileDialog

	requestFileName:'enter a fileName:'

	default:''

	ok:nil

	abort:nil

	version:nil

	ifFail:['none']

	pattern:'*'

	fromDirectory:Filename currentDirectory pathName

	whenBoxCreatedEvaluate:nil

	asLoadDialog:true

"

!

requestFileName:titleString default:defaultName version:versionSymbol ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPathOrNil whenBoxCreatedEvaluate:boxCreatedCallback

    ^ self

	requestFileName:titleString

	default:defaultName

	ok:nil

	abort:nil

	version:versionSymbol

	ifFail:failBlock

	pattern:pattern

	fromDirectory:aDirectoryPathOrNil

	whenBoxCreatedEvaluate:boxCreatedCallback

    "

     FileDialog

	requestFileName:'enter a fileName:'

	default:''

	version:nil

	ifFail:['none']

	pattern:'*.conf'

	fromDirectory:Filename currentDirectory pathName

	whenBoxCreatedEvaluate:nil.

     Dialog

	requestFileName:'enter a fileName:'

	default:''

	version:nil

	ifFail:['none']

	pattern:'*.conf'

	fromDirectory:Filename currentDirectory pathName

	whenBoxCreatedEvaluate:nil

    "

    "

     FileDialog

	requestFileName:'enter a fileName:'

	default:''

	version:#old

	ifFail:['none']

	pattern:'*.conf'

	fromDirectory:Filename currentDirectory pathName

	whenBoxCreatedEvaluate:nil

    "

    "

     FileDialog

	requestFileName:'enter a fileName:'

	default:''

	version:#mustBeNew

	ifFail:['none']

	pattern:'*.conf'

	fromDirectory:Filename currentDirectory pathName

	whenBoxCreatedEvaluate:nil

    "

!

requestFileNames:titleString default:defaultName ok:okText abort:abortText ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPath whenBoxCreatedEvaluate:boxCreatedCallback

    "launch a Dialog, which allows user to enter a filename.

     The files presented initially are those in aDirectoryPathOrNil, or the

     last fileBox directory (default: current directory) (if a nil path is given).

     The box will show okText in its okButton, abortText in the abortButton.

     The matchPattern is set to pattern initially.

     Return all selected Filenames as filenames in a collection, or nil if cancel was pressed

    "

    ^ self

	requestFileNames:titleString

	default:defaultName

	ok:okText

	abort:abortText

	ifFail:failBlock

	pattern:pattern

	fromDirectory:aDirectoryPath

	whenBoxCreatedEvaluate:boxCreatedCallback

	asLoadDialog:nil.

"

     FileDialogV2

	requestFileNames:'enter a fileName:'

	default:''

	ok:nil

	abort:nil

	ifFail:['none']

	pattern:'*.conf'

	fromDirectory:Filename currentDirectory pathName

	whenBoxCreatedEvaluate:nil.

"

!

requestFileNames:titleString default:defaultName ok:okText abort:abortText ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPath whenBoxCreatedEvaluate:boxCreatedCallback asLoadDialog:asLoadDialog

    "launch a Dialog, which allows user to enter a filename.

     The files presented initially are those in aDirectoryPathOrNil, or the

     last fileBox directory (default: current directory) (if a nil path is given).

     The box will show okText in its okButton, abortText in the abortButton.

     The matchPattern is set to pattern initially.

     Return all selected Filenames as filenames in a collection, or nil if cancel was pressed

    "

    | instance enteredFileNames lastDirectory|

    instance := self

	startApplicationFor:titleString

	default:defaultName

	ok:okText

	abort:abortText

	ifFail:failBlock

	pattern:pattern

	fromDirectory:aDirectoryPath

	whenBoxCreatedEvaluate:boxCreatedCallback

	asLoadDialog:asLoadDialog

	viewFiles:true

	multipleSelect:true.

    enteredFileNames := instance currentSelectedFiles.

    (enteredFileNames isEmpty or:[instance result isNil]) ifTrue:[

	^ failBlock value