hg/stx-libtool: comparison FileDialogV2.st

equal deleted inserted replaced

-:d806bf4a9532
+:773da6cf53a5
 "
 COPYRIGHT (c) 2002 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
 !FileDialogV2 class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 2002 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
 documentation
 "
 documentation to be added.
 [author:]
-Martin Walser (martin@vercingetorix)
+	Martin Walser (martin@vercingetorix)
 [instance variables:]
 [class variables:]
 "
 !
 examples
 "
-[exBegin]
+								[exBegin]
 FileDialog open
-[exEnd]
+								[exEnd]
-[exBegin]
+								[exBegin]
 FileDialog
-requestFileName:'enter a fileName:'
+	requestFileName:'enter a fileName:'
-default:''
+	default:''
-version:nil
+	version:nil
-ifFail:['none']
+	ifFail:['none']
-pattern:'*.conf'
+	pattern:'*.conf'
-fromDirectory:'/etc'
+	fromDirectory:'/etc'
-whenBoxCreatedEvaluate:nil.
+	whenBoxCreatedEvaluate:nil.
-[exEnd]
+								[exEnd]
-[exBegin]
+								[exBegin]
 |fd|
 fd := FileDialog new.
 fd multipleSelect:true.
 fd open
-[exEnd]
+								[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
+	requestDirectoryName:title
-default:aFileName
+	default:aFileName
-ok:nil
+	ok:nil
-abort:nil
+	abort:nil
-version:nil
+	version:nil
-pattern:nil
+	pattern:nil
-fromDirectory:nil
+	fromDirectory:nil
-ifFail:failBlock
+	ifFail:failBlock
-whenBoxCreatedEvaluate:nil
+	whenBoxCreatedEvaluate:nil
-asLoadDialog:nil.
+	asLoadDialog:nil.
 "
 FileDialogV2
-requestDirectoryName:'which directory ?'
+	requestDirectoryName:'which directory ?'
-default:Filename currentDirectory pathName
+	default:Filename currentDirectory pathName
-ifFail:'none'
+	ifFail:'none'
 "
 !
 requestDirectoryName:title default:aFileName ok:okText abort:abortText ifFail:failBlock
 "same as requestFileName, but only show directories"
 ^ self
-requestDirectoryName:title
+	requestDirectoryName:title
-default:aFileName
+	default:aFileName
-ok:okText
+	ok:okText
-abort:abortText
+	abort:abortText
-version:nil
+	version:nil
-pattern:nil
+	pattern:nil
-fromDirectory:nil
+	fromDirectory:nil
-ifFail:failBlock
+	ifFail:failBlock
-whenBoxCreatedEvaluate:nil
+	whenBoxCreatedEvaluate:nil
-asLoadDialog:nil.
+	asLoadDialog:nil.
 "
 FileDialog
-requestDirectoryName:'which directory ?'
+	requestDirectoryName:'which directory ?'
-default:Filename currentDirectory pathName
+	default:Filename currentDirectory pathName
-ok:'Yes'
+	ok:'Yes'
-abort:'No'
+	abort:'No'
-ifFail:'none'
+	ifFail:'none'
 "
 !
 requestDirectoryName:title default:aFileName ok:okText abort:abortText ifFail:failBlock acceptReturnAsOK:aBoolean
 "same as requestFileName, but only show directories"
 ^ self
-requestDirectoryName:title
+	requestDirectoryName:title
-default:aFileName
+	default:aFileName
-ok:okText
+	ok:okText
-abort:abortText
+	abort:abortText
-version:nil
+	version:nil
-pattern:nil
+	pattern:nil
-fromDirectory:nil
+	fromDirectory:nil
-ifFail:failBlock
+	ifFail:failBlock
-whenBoxCreatedEvaluate:[:box|box doubleClickAction:[:index|box doAccept]]
+	whenBoxCreatedEvaluate:[:box|box doubleClickAction:[:index|box doAccept]]
-asLoadDialog:nil.
+	asLoadDialog:nil.
 "
 FileDialog
-requestDirectoryName:'which directory ?'
+	requestDirectoryName:'which directory ?'
-default:Filename currentDirectory pathName
+	default:Filename currentDirectory pathName
-ok:'Yes'
+	ok:'Yes'
-abort:'No'
+	abort:'No'
-ifFail:'none'
+	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
+	startApplicationFor:titleString
-default:aFileName
+	default:aFileName
-ok:okText
+	ok:okText
-abort:abortText
+	abort:abortText
-ifFail:failBlock
+	ifFail:failBlock
-pattern:pattern
+	pattern:pattern
-fromDirectory:aDirectoryPath
+	fromDirectory:aDirectoryPath
-whenBoxCreatedEvaluate:boxCreatedCallback
+	whenBoxCreatedEvaluate:boxCreatedCallback
-asLoadDialog:aBoolean
+	asLoadDialog:aBoolean
-viewFiles:false
+	viewFiles:false
-multipleSelect:false.
+	multipleSelect:false.
 enteredFileNameString := instance result.
 enteredFileNameString isNil ifTrue:[
-^ failBlock value
+	^ failBlock value
 ].
 enteredFileName := enteredFileNameString asFilename.
 enteredFileNameString := enteredFileName asString.
 (enteredFileName notNil
 and:[enteredFileNameString notEmpty]) ifTrue:[
-versionSymbol isNil ifTrue:[ ^ enteredFileNameString].
+	versionSymbol isNil ifTrue:[ ^ enteredFileNameString].
-versionSymbol == #mustBeNew ifTrue:[
+	versionSymbol == #mustBeNew ifTrue:[
-"/ file may not exist
+	    "/ file may not exist
-enteredFileName exists ifTrue:[^ ''].
+	    enteredFileName exists ifTrue:[^ ''].
-].
+	].
-versionSymbol == #new ifTrue:[
+	versionSymbol == #new ifTrue:[
-"/ file may not exist
+	    "/ file may not exist
-enteredFileName exists ifTrue:[
+	    enteredFileName exists ifTrue:[
-(Dialog confirm:(self classResources string:'''%1'' exists.\\Continue anyway ?' with:enteredFileNameString) withCRs)
+		(Dialog confirm:(self classResources string:'''%1'' exists.\\Continue anyway ?' with:enteredFileNameString) withCRs)
-ifFalse:[^ ''].
+		    ifFalse:[^ ''].
-].
+	    ].
-].
+	].
-versionSymbol == #mustBeOld ifTrue:[
+	versionSymbol == #mustBeOld ifTrue:[
-enteredFileName exists ifFalse:[^ ''].
+	    enteredFileName exists ifFalse:[^ ''].
-].
+	].
-versionSymbol == #old ifTrue:[
+	versionSymbol == #old ifTrue:[
-"/ file may not exist
+	    "/ file may not exist
-enteredFileName exists ifFalse:[
+	    enteredFileName exists ifFalse:[
-(self confirm:(self classResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:enteredFileNameString) withCRs)
+		(self confirm:(self classResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:enteredFileNameString) withCRs)
-ifFalse:[^ ''].
+		ifFalse:[^ ''].
-].
+	    ].
-].
+	].
-FileSelectionBox lastFileSelectionDirectory:(enteredFileNameString).
+	FileSelectionBox lastFileSelectionDirectory:(enteredFileNameString).
 ].
 ^ enteredFileNameString
 "
 FileDialog
-requestDirectoryName:'which directory ?'
+	requestDirectoryName:'which directory ?'
-default:Filename currentDirectory pathName
+	default:Filename currentDirectory pathName
-ifFail:nil
+	ifFail:nil
 "
 "
 FileDialog
-requestDirectoryName:'which directory ?'
+	requestDirectoryName:'which directory ?'
-default:Filename currentDirectory pathName
+	default:Filename currentDirectory pathName
-ok:nil
+	ok:nil
-abort:nil
+	abort:nil
-version:nil
+	version:nil
-pattern:nil
+	pattern:nil
-fromDirectory:nil
+	fromDirectory:nil
-ifFail:nil
+	ifFail:nil
-whenBoxCreatedEvaluate:nil
+	whenBoxCreatedEvaluate:nil
-asLoadDialog:true
+	asLoadDialog:true
 "
 !
 requestDirectoryName:title default:aFileName ok:okText ifFail:failBlock
 "same as requestFileName, but only show directories"
 ^ self
-requestDirectoryName:title
+	requestDirectoryName:title
-default:aFileName
+	default:aFileName
-ok:okText
+	ok:okText
-abort:nil
+	abort:nil
-version:nil
+	version:nil
-pattern:nil
+	pattern:nil
-fromDirectory:nil
+	fromDirectory:nil
-ifFail:failBlock
+	ifFail:failBlock
-whenBoxCreatedEvaluate:nil
+	whenBoxCreatedEvaluate:nil
-asLoadDialog:nil.
+	asLoadDialog:nil.
 "
 FileDialogV2
-requestDirectoryName:'which directory ?'
+	requestDirectoryName:'which directory ?'
-default:Filename currentDirectory pathName
+	default:Filename currentDirectory pathName
-ok:'Yes'
+	ok:'Yes'
-ifFail:'none'
+	ifFail:'none'
 "
 !
 requestFileName:titleString default:defaultName ok:okText abort:abortText pattern:pattern fromDirectory:aDirectoryPathOrNil whenBoxCreatedEvaluate:boxCreatedCallback
 ^ self
-requestFileName:titleString
+	requestFileName:titleString
-default:defaultName
+	default:defaultName
-ok:okText
+	ok:okText
-abort:abortText
+	abort:abortText
-version:nil
+	version:nil
-ifFail:nil
+	ifFail:nil
-pattern:pattern
+	pattern:pattern
-fromDirectory:aDirectoryPathOrNil
+	fromDirectory:aDirectoryPathOrNil
-whenBoxCreatedEvaluate:boxCreatedCallback
+	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
 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
+	#mustBeNew      - fail (return empty string) if the file exists
-#new            - confirm if the file exists
+	#new            - confirm if the file exists
-#mustBeOld      - fail if the file does not exist
+	#mustBeOld      - fail if the file does not exist
-#old            - confirm if the file does not exist
+	#old            - confirm if the file does not exist
-#any (other)    - no validation
+	#any (other)    - no validation
 "
 ^ self
-requestFileName:titleString
+	requestFileName:titleString
-default:defaultName
+	default:defaultName
-ok:okText
+	ok:okText
-abort:abortText
+	abort:abortText
-version:versionSymbol
+	version:versionSymbol
-ifFail:failBlock
+	ifFail:failBlock
-pattern:pattern
+	pattern:pattern
-fromDirectory:aDirectoryPath
+	fromDirectory:aDirectoryPath
-whenBoxCreatedEvaluate:boxCreatedCallback
+	whenBoxCreatedEvaluate:boxCreatedCallback
-asLoadDialog:nil
+	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
 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
+	#mustBeNew      - fail (return empty string) if the file exists
-#new            - confirm if the file exists
+	#new            - confirm if the file exists
-#mustBeOld      - fail if the file does not exist
+	#mustBeOld      - fail if the file does not exist
-#old            - confirm if the file does not exist
+	#old            - confirm if the file does not exist
-#any (other)    - no validation
+	#any (other)    - no validation
 "
 | instance enteredFileName enteredFileNameString|
 instance := self
-startApplicationFor:titleString
+	startApplicationFor:titleString
-default:defaultName
+	default:defaultName
-ok:okText
+	ok:okText
-abort:abortText
+	abort:abortText
-ifFail:failBlock
+	ifFail:failBlock
-pattern:pattern
+	pattern:pattern
-fromDirectory:aDirectoryPath
+	fromDirectory:aDirectoryPath
-whenBoxCreatedEvaluate:boxCreatedCallback
+	whenBoxCreatedEvaluate:boxCreatedCallback
-asLoadDialog:aBoolean
+	asLoadDialog:aBoolean
-viewFiles:true
+	viewFiles:true
-multipleSelect:false.
+	multipleSelect:false.
 enteredFileNameString := instance result.
 (enteredFileNameString isNil or:[enteredFileNameString isEmpty]) ifTrue:[
-^ failBlock value
+	^ failBlock value
 ].
 enteredFileName := enteredFileNameString asFilename.
 enteredFileNameString := enteredFileName asString.
 (enteredFileName notNil
 and:[enteredFileNameString notEmpty]) ifTrue:[
-FileSelectionBox lastFileSelectionDirectory:(enteredFileName directoryName).
+	FileSelectionBox lastFileSelectionDirectory:(enteredFileName directoryName).
-versionSymbol isNil ifTrue:[ ^ enteredFileNameString].
+	versionSymbol isNil ifTrue:[ ^ enteredFileNameString].
-versionSymbol == #mustBeNew ifTrue:[
+	versionSymbol == #mustBeNew ifTrue:[
-"/ file may not exist
+	    "/ file may not exist
-enteredFileName exists ifTrue:[^ ''].
+	    enteredFileName exists ifTrue:[^ ''].
-].
+	].
-versionSymbol == #new ifTrue:[
+	versionSymbol == #new ifTrue:[
-"/ file may not exist
+	    "/ file may not exist
-enteredFileName exists ifTrue:[
+	    enteredFileName exists ifTrue:[
-(Dialog confirm:(self classResources string:'''%1'' exists.\\Continue anyway ?' with:enteredFileNameString) withCRs)
+		(Dialog confirm:(self classResources string:'''%1'' exists.\\Continue anyway ?' with:enteredFileNameString) withCRs)
-ifFalse:[^ ''].
+		    ifFalse:[^ ''].
-].
+	    ].
-].
+	].
-versionSymbol == #mustBeOld ifTrue:[
+	versionSymbol == #mustBeOld ifTrue:[
-enteredFileName exists ifFalse:[^ ''].
+	    enteredFileName exists ifFalse:[^ ''].
-].
+	].
-versionSymbol == #old ifTrue:[
+	versionSymbol == #old ifTrue:[
-"/ file may not exist
+	    "/ file may not exist
-enteredFileName exists ifFalse:[
+	    enteredFileName exists ifFalse:[
-(self confirm:(self classResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:enteredFileNameString) withCRs)
+		(self confirm:(self classResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:enteredFileNameString) withCRs)
-ifFalse:[^ ''].
+		ifFalse:[^ ''].
-].
+	    ].
-].
+	].
 ].
 ^ enteredFileNameString
 "
 FileDialog
-requestFileName:'enter a fileName:'
+	requestFileName:'enter a fileName:'
-default:''
+	default:''
-ok:nil
+	ok:nil
-abort:nil
+	abort:nil
-version:nil
+	version:nil
-ifFail:['none']
+	ifFail:['none']
-pattern:'*'
+	pattern:'*'
-fromDirectory:Filename currentDirectory pathName
+	fromDirectory:Filename currentDirectory pathName
-whenBoxCreatedEvaluate:nil
+	whenBoxCreatedEvaluate:nil
-asLoadDialog:true
+	asLoadDialog:true
 "
 !
 requestFileName:titleString default:defaultName version:versionSymbol ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPathOrNil whenBoxCreatedEvaluate:boxCreatedCallback
 ^ self
-requestFileName:titleString
+	requestFileName:titleString
-default:defaultName
+	default:defaultName
-ok:nil
+	ok:nil
-abort:nil
+	abort:nil
-version:versionSymbol
+	version:versionSymbol
-ifFail:failBlock
+	ifFail:failBlock
-pattern:pattern
+	pattern:pattern
-fromDirectory:aDirectoryPathOrNil
+	fromDirectory:aDirectoryPathOrNil
-whenBoxCreatedEvaluate:boxCreatedCallback
+	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:'
+	requestFileName:'enter a fileName:'
-default:''
+	default:''
-version:#old
+	version:nil
-ifFail:['none']
+	ifFail:['none']
-pattern:'*.conf'
+	pattern:'*.conf'
-fromDirectory:Filename currentDirectory pathName
+	fromDirectory:Filename currentDirectory pathName
-whenBoxCreatedEvaluate:nil
+	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:'
+	requestFileName:'enter a fileName:'
-default:''
+	default:''
-version:#mustBeNew
+	version:#old
-ifFail:['none']
+	ifFail:['none']
-pattern:'*.conf'
+	pattern:'*.conf'
-fromDirectory:Filename currentDirectory pathName
+	fromDirectory:Filename currentDirectory pathName
-whenBoxCreatedEvaluate:nil
+	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 matchPattern is set to pattern initially.
 Return all selected Filenames as filenames in a collection, or nil if cancel was pressed
 "
 ^ self
-requestFileNames:titleString
+	requestFileNames:titleString
-default:defaultName
+	default:defaultName
-ok:okText
+	ok:okText
-abort:abortText
+	abort:abortText
-ifFail:failBlock
+	ifFail:failBlock
-pattern:pattern
+	pattern:pattern
-fromDirectory:aDirectoryPath
+	fromDirectory:aDirectoryPath
-whenBoxCreatedEvaluate:boxCreatedCallback
+	whenBoxCreatedEvaluate:boxCreatedCallback
-asLoadDialog:nil.
+	asLoadDialog:nil.
 "
 FileDialogV2
-requestFileNames:'enter a fileName:'
+	requestFileNames:'enter a fileName:'
-default:''
+	default:''
-ok:nil
+	ok:nil
-abort:nil
+	abort:nil
-ifFail:['none']
+	ifFail:['none']
-pattern:'*.conf'
+	pattern:'*.conf'
-fromDirectory:Filename currentDirectory pathName
+	fromDirectory:Filename currentDirectory pathName
-whenBoxCreatedEvaluate:nil.
+	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.
 "
 | instance enteredFileNames lastDirectory|
 instance := self
-startApplicationFor:titleString
+	startApplicationFor:titleString
-default:defaultName
+	default:defaultName
-ok:okText
+	ok:okText
-abort:abortText
+	abort:abortText
-ifFail:failBlock
+	ifFail:failBlock
-pattern:pattern
+	pattern:pattern
-fromDirectory:aDirectoryPath
+	fromDirectory:aDirectoryPath
-whenBoxCreatedEvaluate:boxCreatedCallback
+	whenBoxCreatedEvaluate:boxCreatedCallback
-asLoadDialog:asLoadDialog
+	asLoadDialog:asLoadDialog
-viewFiles:true
+	viewFiles:true
-multipleSelect:true.
+	multipleSelect:true.
 enteredFileNames := instance currentSelectedFiles.
 (enteredFileNames isEmpty or:[instance result isNil]) ifTrue:[
-^ failBlock value
+	^ failBlock value
 ].
 lastDirectory := enteredFileNames first.
 lastDirectory := lastDirectory isFilename ifTrue:[lastDirectory directory] ifFalse:[lastDirectory].
 FileSelectionBox lastFileSelectionDirectory:(lastDirectory directoryName).
 ^ enteredFileNames
 "
 FileDialog
-requestFileNames:'enter a fileName:'
+	requestFileNames:'enter a fileName:'
-default:''
+	default:''
-ok:nil
+	ok:nil
-abort:nil
+	abort:nil
-ifFail:['none']
+	ifFail:['none']
-pattern:'*.conf'
+	pattern:'*.conf'
-fromDirectory:Filename currentDirectory pathName
+	fromDirectory:Filename currentDirectory pathName
-whenBoxCreatedEvaluate:nil
+	whenBoxCreatedEvaluate:nil
-asLoadDialog:true.
+	asLoadDialog:true.
 "
 !
 startApplicationFor:titleString default:initialDefaultFileNameArg ok:okTextArg abort:abortTextArg ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPath whenBoxCreatedEvaluate:boxCreatedCallback asLoadDialog:asLoadDialog viewFiles:viewFiles multipleSelect:multipleSelect
 "launch a Dialog, which allows user to enter a filename.
 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
+	#mustBeNew      - fail (return empty string) if the file exists
-#new            - confirm if the file exists
+	#new            - confirm if the file exists
-#mustBeOld      - fail if the file does not exist
+	#mustBeOld      - fail if the file does not exist
-#old            - confirm if the file does not exist
+	#old            - confirm if the file does not exist
-#any (other)    - no validation
+	#any (other)    - no validation
 "
 |defaultDir instance defaultFile okText abortText initialDefaultFileName|
 initialDefaultFileName := initialDefaultFileNameArg.
 initialDefaultFileName notNil ifTrue:[
-initialDefaultFileName := initialDefaultFileName asFilename
+	initialDefaultFileName := initialDefaultFileName asFilename
 ].
 okText := okTextArg.
 okText isNil ifTrue:[ okText := self resources string:'OK' ].
 abortText := abortTextArg.
 abortText isNil ifTrue:[ abortText := self resources string:'Cancel' ].
 defaultDir := aDirectoryPath.
 "/    defaultDir isNil ifTrue:[
 "/        (initialDefaultFileName size > 0 and:[initialDefaultFileName exists]) ifTrue:[
 "/            defaultDir := initialDefaultFileName asAbsoluteFilename directory.
 "/        ] ifFalse:[
 "/            defaultDir := FileSelectionBox lastFileSelectionDirectory.
 "/            defaultDir isNil ifTrue:[
 "/                defaultDir := Filename currentDirectory asAbsoluteFilename.
 "/            ].
 "/            defaultDir asFilename exists ifFalse:[
 "/                defaultDir := nil
 "/            ].
 "/        ]
 "/    ].
 (initialDefaultFileName notNil
 and:[initialDefaultFileName isAbsolute
 and:[true "initialDefaultFileName asFilename exists"]]) ifTrue:[
-defaultDir := initialDefaultFileName asAbsoluteFilename.
+	defaultDir := initialDefaultFileName asAbsoluteFilename.
-viewFiles ifTrue:[
+	viewFiles ifTrue:[
-defaultDir := defaultDir directory.
+	    defaultDir := defaultDir directory.
-].
+	].
 ] ifFalse:[
-defaultDir isNil ifTrue:[
+	defaultDir isNil ifTrue:[
-defaultDir := FileSelectionBox lastFileSelectionDirectory.
+	    defaultDir := FileSelectionBox lastFileSelectionDirectory.
-defaultDir isNil ifTrue:[
+	    defaultDir isNil ifTrue:[
-defaultDir := Filename currentDirectory asAbsoluteFilename.
+		defaultDir := Filename currentDirectory asAbsoluteFilename.
-].
+	    ].
-defaultDir asFilename exists ifFalse:[
+	    defaultDir asFilename exists ifFalse:[
-defaultDir := nil
+		defaultDir := nil
-].
+	    ].
-]
+	]
 ].
 defaultDir := defaultDir asFilename asAbsoluteFilename.
 "/    [defaultDir exists] whileFalse:[
 "/        defaultDir := defaultDir directory.
 "/    ].
 viewFiles ifFalse:[
-defaultFile := defaultDir asAbsoluteFilename.
+	defaultFile := defaultDir asAbsoluteFilename.
 ] ifTrue:[
-(initialDefaultFileName notNil and:[initialDefaultFileName withoutSuffix baseName ~= '*']) ifTrue:[
+	(initialDefaultFileName notNil and:[initialDefaultFileName withoutSuffix baseName ~= '*']) ifTrue:[
-defaultFile := defaultDir construct:initialDefaultFileName baseName.
+	    defaultFile := defaultDir construct:initialDefaultFileName baseName.
-].
+	].
 ].
 defaultFile isNil ifTrue:[
-defaultFile := defaultDir.
+	defaultFile := defaultDir.
 ].
 instance := self new.
 defaultDir notNil ifTrue:[instance directory:defaultDir].
 instance multipleSelect:multipleSelect ? false.
 !FileDialogV2 class methodsFor:'accessing'!
 setDoubleClickActionFor:instance
 instance doubleClickAction:[:anIndex|
-| item |
+	| item |
-item := instance contentsBrowser browserItemList at:anIndex ifAbsent:nil.
+	item := instance contentsBrowser browserItemList at:anIndex ifAbsent:nil.
-item notNil ifTrue:[
+	item notNil ifTrue:[
-((instance viewFiles and:[item isDirectory not])
+	    ((instance viewFiles and:[item isDirectory not])
-" or:[(instance viewFiles not and:[item isDirectory])] " ) ifTrue:[
+	    " or:[(instance viewFiles not and:[item isDirectory])] " ) ifTrue:[
-instance doAccept.
+		instance doAccept.
-]
+	    ]
-]
+	]
 ].
 !
 viewDetailsIcon
 ^ FileBrowserV2 viewDetailsIcon
 ! !
 !FileDialogV2 class methodsFor:'help specs'!
-flyByHelpSpec
+helpSpec
 <resource: #help>
 |spec|
-spec := AbstractFileBrowser flyByHelpSpec addPairsFrom:#(
+spec := AbstractFileBrowser helpSpec addPairsFrom:#(
 #fileBrowse
 'Browse'
 ).
 "/        ].
 "/    ].
 ^ spec.
 "
-self flyByHelpSpec
+self helpSpec
 "
-!
-helpSpec
-"This resource specification was automatically generated
-by the UIHelpTool of ST/X."
-"Do not manually edit this!! If it is corrupted,
-the UIHelpTool may not be able to read the specification."
-"
-UIHelpTool openOnClass:FileDialogV2
-"
-<resource: #help>
-^ super helpSpec addPairsFrom:#(
-#fileHome
-''
-#fileBrowse
-'Browse'
-)
 ! !
 !FileDialogV2 class methodsFor:'interface specs'!
 windowSpec
 FileDialogV2 open
 "
 <resource: #canvas>
 ^
 #(FullSpec
-name: windowSpec
+	name: windowSpec
-window:
+	window:
 (WindowSpec
-label: 'FileDialogV2'
+	  label: 'FileDialogV2'
-name: 'FileDialogV2'
+	  name: 'FileDialogV2'
-min: (Point 10 10)
+	  min: (Point 10 10)
-max: (Point 1024 768)
+	  max: (Point 1024 768)
-bounds: (Rectangle 0 0 400 400)
+	  bounds: (Rectangle 0 0 400 400)
-)
+	)
-component:
+	component:
 (SpecCollection
-collection: (
+	  collection: (
-(ViewSpec
+	   (ViewSpec
-name: 'FilePart'
+	      name: 'FilePart'
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -32 1.0)
+	      layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -32 1.0)
-component:
+	      component:
-(SpecCollection
+	     (SpecCollection
-collection: (
+		collection: (
-(MenuPanelSpec
+		 (MenuPanelSpec
-name: 'ToolBar1'
+		    name: 'ToolBar1'
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 32 0)
+		    layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 32 0)
-tabable: true
+		    tabable: true
-menu: toolBarMenu
+		    menu: toolBarMenu
-textDefault: true
+		    textDefault: true
-)
+		  )
-(SubCanvasSpec
+		 (SubCanvasSpec
-name: 'DirectoryContentsBrowser'
+		    name: 'DirectoryContentsBrowser'
-layout: (LayoutFrame 0 0.0 57 0 0 1.0 -30 1)
+		    layout: (LayoutFrame 0 0.0 57 0 0 1.0 -30 1)
-tabable: true
+		    tabable: true
-hasHorizontalScrollBar: false
+		    hasHorizontalScrollBar: false
-hasVerticalScrollBar: false
+		    hasVerticalScrollBar: false
-majorKey: DirectoryContentsBrowser
+		    majorKey: DirectoryContentsBrowser
-createNewApplication: true
+		    createNewApplication: true
-createNewBuilder: true
+		    createNewBuilder: true
-postBuildCallback: postBuildTreeBrowser:
+		    postBuildCallback: postBuildTreeBrowser:
-)
+		  )
-(VariableHorizontalPanelSpec
+		 (VariableHorizontalPanelSpec
-name: 'VariableHorizontalPanel1'
+		    name: 'VariableHorizontalPanel1'
-layout: (LayoutFrame 0 0 32 0 0 1 57 0)
+		    layout: (LayoutFrame 0 0 32 0 0 1 57 0)
-level: 1
+		    level: 1
-showHandle: false
+		    showHandle: false
-barLevel: 0
+		    barLevel: 0
-component:
+		    component:
-(SpecCollection
+		   (SpecCollection
-collection: (
+		      collection: (
-(ViewSpec
+		       (ViewSpec
-name: 'Box1'
+			  name: 'Box1'
-)
+			)
-(ViewSpec
+		       (ViewSpec
-name: 'Box2'
+			  name: 'Box2'
-component:
+			  component:
-(SpecCollection
+			 (SpecCollection
-collection: (
+			    collection: (
-(LabelSpec
+			     (LabelSpec
-label: 'Filter:'
+				label: 'Filter:'
-name: 'FilterLabel'
+				name: 'FilterLabel'
-layout: (LayoutFrame 8 0 2 0 59 0 -2 1)
+				layout: (LayoutFrame 8 0 2 0 59 0 -2 1)
-translateLabel: true
+				translateLabel: true
-adjust: right
+				adjust: right
-)
+			      )
-(InputFieldSpec
+			     (InputFieldSpec
-name: 'FilterEntryField'
+				name: 'FilterEntryField'
-layout: (LayoutFrame 60 0 -22 1 -2 1 -2 1)
+				layout: (LayoutFrame 60 0 -22 1 -2 1 -2 1)
-model: filterHolder
+				model: filterHolder
-immediateAccept: true
+				immediateAccept: true
-acceptOnReturn: true
+				acceptOnReturn: true
-acceptOnTab: true
+				acceptOnTab: true
-acceptOnLostFocus: true
+				acceptOnLostFocus: true
-acceptOnPointerLeave: false
+				acceptOnPointerLeave: false
-postBuildCallback: postBuildFilterField:
+				postBuildCallback: postBuildFilterField:
-)
+			      )
-)
+			     )
-)
+			  )
-)
+			)
-)
+		       )
-)
+		    )
-handles: (Any 0.5 1.0)
+		    handles: (Any 0.5 1.0)
-)
+		  )
-(LabelSpec
+		 (LabelSpec
-label: 'Filename:'
+		    label: 'Filename:'
-name: 'FilenameLabel'
+		    name: 'FilenameLabel'
-layout: (LayoutFrame 3 0 -21 1 73 0 -1 1)
+		    layout: (LayoutFrame 3 0 -21 1 73 0 -1 1)
-translateLabel: true
+		    translateLabel: true
-labelChannel: filenameLabelHolder
+		    labelChannel: filenameLabelHolder
-adjust: left
+		    adjust: left
-)
+		  )
-(FilenameInputFieldSpec
+		 (FilenameInputFieldSpec
-name: 'FilenameEntryField'
+		    name: 'FilenameEntryField'
-layout: (LayoutFrame 70 0 -21 1 -4 1 -1 1)
+		    layout: (LayoutFrame 70 0 -21 1 -4 1 -1 1)
-tabable: true
+		    tabable: true
-model: filenameHolder
+		    model: filenameHolder
-immediateAccept: false
+		    immediateAccept: false
-acceptOnPointerLeave: false
+		    acceptOnPointerLeave: false
-hasKeyboardFocusInitially: true
+		    hasKeyboardFocusInitially: true
-postBuildCallback: postBuildFileNameField:
+		    postBuildCallback: postBuildFileNameField:
-)
+		  )
-)
+		 )
-)
+	      )
-)
+	    )
-(HorizontalPanelViewSpec
+	   (HorizontalPanelViewSpec
-name: 'ButtonPanel'
+	      name: 'ButtonPanel'
-layout: (LayoutFrame 0 0.0 -32 1 0 1 0 1)
+	      layout: (LayoutFrame 0 0.0 -32 1 0 1 0 1)
-visibilityChannel: buttonPanelVisibleHolder
+	      visibilityChannel: buttonPanelVisibleHolder
-horizontalLayout: fitSpace
+	      horizontalLayout: fitSpace
-verticalLayout: center
+	      verticalLayout: center
-horizontalSpace: 3
+	      horizontalSpace: 3
-verticalSpace: 3
+	      verticalSpace: 3
-reverseOrderIfOKAtLeft: true
+	      reverseOrderIfOKAtLeft: true
-component:
+	      component:
-(SpecCollection
+	     (SpecCollection
-collection: (
+		collection: (
-(ActionButtonSpec
+		 (ActionButtonSpec
-label: 'Cancel'
+		    label: 'Cancel'
-name: 'cancelButton'
+		    name: 'cancelButton'
-translateLabel: true
+		    translateLabel: true
-labelChannel: cancelLabelHolder
+		    labelChannel: cancelLabelHolder
-tabable: true
+		    tabable: true
-model: doCancel
+		    model: doCancel
-extent: (Point 129 22)
+		    extent: (Point 129 22)
-)
+		  )
-(ActionButtonSpec
+		 (ActionButtonSpec
-label: 'Append'
+		    label: 'Append'
-name: 'appendButton'
+		    name: 'appendButton'
-visibilityChannel: appendButtonVisibleHolder
+		    visibilityChannel: appendButtonVisibleHolder
-translateLabel: true
+		    translateLabel: true
-labelChannel: appendLabelHolder
+		    labelChannel: appendLabelHolder
-tabable: true
+		    tabable: true
-model: appendPressed
+		    model: appendPressed
-extent: (Point 129 22)
+		    extent: (Point 129 22)
-)
+		  )
-(ActionButtonSpec
+		 (ActionButtonSpec
-label: 'OK'
+		    label: 'OK'
-name: 'okButton'
+		    name: 'okButton'
-translateLabel: true
+		    translateLabel: true
-labelChannel: okLabelHolder
+		    labelChannel: okLabelHolder
-tabable: true
+		    tabable: true
-model: okPressed
+		    model: okPressed
-isDefault: true
+		    isDefault: true
-extent: (Point 130 22)
+		    extent: (Point 130 22)
-)
+		  )
-)
+		 )
-)
+	      )
-)
+	    )
-)
+	   )
-)
+	)
 )
 ! !
 !FileDialogV2 class methodsFor:'menu specs'!
 (Menu new fromLiteralArrayEncoding:(FileDialogV2 toolBarMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-activeHelpKey: directoryBack
+	    activeHelpKey: directoryBack
-enabled: enableBack
+	    enabled: enableBack
-label: 'Back'
+	    label: 'Back'
-itemValue: doBack
+	    itemValue: doBack
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-submenuChannel: menuDirHistoryBack
+	    submenuChannel: menuDirHistoryBack
-labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: directoryForward
+	    activeHelpKey: directoryForward
-enabled: enableForward
+	    enabled: enableForward
-label: 'Forward'
+	    label: 'Forward'
-itemValue: doForward
+	    itemValue: doForward
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-submenuChannel: menuDirHistoryForward
+	    submenuChannel: menuDirHistoryForward
-labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon)
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: directoryUp
+	    activeHelpKey: directoryUp
-enabled: enableDirectoryUp
+	    enabled: enableDirectoryUp
-label: 'DirectoryUp'
+	    label: 'DirectoryUp'
-itemValue: doGoDirectoryUp
+	    itemValue: doGoDirectoryUp
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever ToolbarIconLibrary directoryUpIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary directoryUpIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: ''
+	    label: ''
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileHome
+	    activeHelpKey: fileHome
-enabled: enableHome
+	    enabled: enableHome
-label: 'Home'
+	    label: 'Home'
-itemValue: doGotoHomeDirectory
+	    itemValue: doGotoHomeDirectory
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever ToolbarIconLibrary homeIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary homeIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileGotoBookmark
+	    activeHelpKey: fileGotoBookmark
-label: 'Bookmarks'
+	    label: 'Bookmarks'
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-submenuChannel: gotoBookmarksMenuSpec
+	    submenuChannel: gotoBookmarksMenuSpec
-labelImage: (ResourceRetriever ToolbarIconLibrary directoryBookmarksIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary directoryBookmarksIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: browseVisibleHolder
+	    isVisible: browseVisibleHolder
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileBrowse
+	    activeHelpKey: fileBrowse
-label: 'Browse'
+	    label: 'Browse'
-itemValue: doBrowseDirectory
+	    itemValue: doBrowseDirectory
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: browseVisibleHolder
+	    isVisible: browseVisibleHolder
-labelImage: (ResourceRetriever ToolbarIconLibrary fileBrowser24x24Icon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary fileBrowser24x24Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'New Directory...'
+	    label: 'New Directory...'
-itemValue: newDirectory
+	    itemValue: newDirectory
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: newDirectoryVisibilityHolder
+	    isVisible: newDirectoryVisibilityHolder
-labelImage: (ResourceRetriever ToolbarIconLibrary newDirectoryIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary newDirectoryIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'viewDetails'
+	    label: 'viewDetails'
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-startGroup: right
+	    startGroup: right
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: viewDetails
+	    indication: viewDetails
-labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: toggleDetails
+	    activeHelpKey: toggleDetails
-label: 'viewDetails'
+	    label: 'viewDetails'
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-startGroup: right
+	    startGroup: right
-isVisible: false
+	    isVisible: false
-indication: viewDetails
+	    indication: viewDetails
-submenuChannel: viewDetailsMenuSpec
+	    submenuChannel: viewDetailsMenuSpec
-labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: selectDetails
+	    activeHelpKey: selectDetails
-label: ''
+	    label: ''
-isButton: true
+	    isButton: true
-startGroup: right
+	    startGroup: right
-submenuChannel: viewDetailsMenuSpec
+	    submenuChannel: viewDetailsMenuSpec
-labelImage: (ResourceRetriever ToolbarIconLibrary empty1x20Icon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary empty1x20Icon)
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Modified: / 06-12-2006 / 12:08:39 / cg"
 ! !
 !
 initialText
 initialText isNil ifTrue:[
-^ resources string:'File Dialog'.
+	^ resources string:'File Dialog'.
 ].
 ^ resources string:initialText
 !
 initialText:something
 startFilename
 "return the value of the instance variable 'startFilename' (automatically generated)"
 startFilename isNil ifTrue:[
-startFilename := Filename currentDirectory asAbsoluteFilename.
+	startFilename := Filename currentDirectory asAbsoluteFilename.
 ].
 ^ startFilename
 !
 startFilename:something
 !
 multipleSelect:aBoolean
 multipleSelect := aBoolean.
 contentsBrowser notNil ifTrue:[
-contentsBrowser multipleSelect:aBoolean.
+	contentsBrowser multipleSelect:aBoolean.
 ].
 ! !
 !FileDialogV2 methodsFor:'accessing-components'!
 addButton:aButton
 DialogBox defaultOKButtonAtLeft ifTrue:[
-(self componentAt:#ButtonPanel) addSubView:aButton before:(self okButton)
+	(self componentAt:#ButtonPanel) addSubView:aButton before:(self okButton)
 ] ifFalse:[
-(self componentAt:#ButtonPanel) addSubView:aButton after:(self okButton)
+	(self componentAt:#ButtonPanel) addSubView:aButton after:(self okButton)
 ].
 !
 contentsBrowser
 "return the value of the instance variable 'treeBrowser' (automatically generated)"
 ^ contentsBrowser
 !
 okButton
 ^ (self componentAt:#okButton)
 ! !
 !FileDialogV2 methodsFor:'accessing-look'!
 browseVisibleHolder
 self buttonPanelVisibleHolder value:false
 !
 newDirectoryVisibilityHolder
 newDirectoryVisibilityHolder isNil ifTrue:[
-newDirectoryVisibilityHolder := true asValue.
+	newDirectoryVisibilityHolder := true asValue.
 ].
 ^ newDirectoryVisibilityHolder
 !
 showButtonPanel
 !FileDialogV2 methodsFor:'aspects'!
 appendButtonVisibleHolder
 appendButtonVisibleHolder isNil ifTrue:[
-appendButtonVisibleHolder := false asValue.
+	appendButtonVisibleHolder := false asValue.
 ].
 ^ appendButtonVisibleHolder
 !
 appendLabelHolder
 appendLabelHolder isNil ifTrue:[
-appendLabelHolder := 'Append' asValue.
+	appendLabelHolder := 'Append' asValue.
 ].
 ^ appendLabelHolder
 !
 aspectOrNil:aKey forSubApplication:aSubApp
 "this hook provides an aspect for a subApp"
 aKey == #currentFileNameHolder ifTrue:[
-directory notNil ifTrue:[
+	directory notNil ifTrue:[
-^ (OrderedCollection with:directory) asValue
+	    ^ (OrderedCollection with:directory) asValue
-]
+	]
 ].
 ^ nil
 !
 buttonPanelVisibleHolder
 buttonPanelVisibleHolder isNil ifTrue:[
-buttonPanelVisibleHolder := true asValue.
+	buttonPanelVisibleHolder := true asValue.
-buttonPanelVisibleHolder onChangeSend:#buttonPanelVisibilityChanged to:self.
+	buttonPanelVisibleHolder onChangeSend:#buttonPanelVisibilityChanged to:self.
 ].
 ^ buttonPanelVisibleHolder.
 !
 cancelLabelHolder
 "*** (which may not be the one you wanted)"
 "*** Please change as required and accept it in the browser."
 "*** (and replace this comment by something more useful ;-)"
 cancelLabelHolder isNil ifTrue:[
-cancelLabelHolder := 'Cancel' asValue.
+	cancelLabelHolder := 'Cancel' asValue.
 ].
 ^ cancelLabelHolder.
 !
 enableBack
 "
 |holder|
 holder := builder bindingAt:#filenameHolder.
 holder ifNil:[
-holder := ValueHolder new.
+	holder := ValueHolder new.
-holder addDependent:self.
+	holder addDependent:self.
-builder aspectAt:#filenameHolder
+	builder aspectAt:#filenameHolder
-put:holder.
+		     put:holder.
 ].
 ^ holder.
 !
 filenameLabelHolder
 "Return a value holder for the input string.
 "
 filenameLabelHolder isNil ifTrue:[
-filenameLabelHolder := 'Filename:' asValue.
+	filenameLabelHolder := 'Filename:' asValue.
 ].
 ^ filenameLabelHolder
 !
 filterHolder
 "Return a value holder for filter
 "
 filterHolder isNil ifTrue:[
-filterHolder := contentsBrowser filterModel.
+	filterHolder := contentsBrowser filterModel.
-self pattern notNil ifTrue:[
+	self pattern notNil ifTrue:[
-filterHolder value:pattern.
+	    filterHolder value:pattern.
-]
+	]
 ].
 ^ filterHolder
 !
 gotoBookmarksMenuSpec
 "*** (which may not be the one you wanted)"
 "*** Please change as required and accept it in the browser."
 "*** (and replace this comment by something more useful ;-)"
 okLabelHolder isNil ifTrue:[
-okLabelHolder := 'OK' asValue.
+	okLabelHolder := 'OK' asValue.
 ].
 ^ okLabelHolder.
 ! !
 !FileDialogV2 methodsFor:'change & update'!
 buttonPanelVisibilityChanged
 |filePart|
 filePart := builder componentAt:#FilePart.
 filePart notNil ifTrue:[
-buttonPanelVisibleHolder value ifTrue:[
+	buttonPanelVisibleHolder value ifTrue:[
-filePart layout bottomOffset:-40
+	    filePart layout bottomOffset:-40
-] ifFalse:[
+	] ifFalse:[
-filePart layout bottomOffset:0
+	    filePart layout bottomOffset:0
-].
+	].
-filePart containerChangedSize    "/ force resize
+	filePart containerChangedSize    "/ force resize
 ]
 !
 update:something with:aParameter from:changedObject
 |files newFile newLabel fn entryFieldFilename|
 changedObject == contentsBrowser currentFileNameHolder ifTrue:[
-files := changedObject value.
+	files := changedObject value.
-(files isEmpty) ifTrue:[
+	(files isEmpty) ifTrue:[
-newFile := nil.
+	    newFile := nil.
-] ifFalse:[
+	] ifFalse:[
-files size == 1 ifTrue:[
+	    files size == 1 ifTrue:[
-newFile := files first.
+		newFile := files first.
-] ifFalse:[
+	    ] ifFalse:[
-newFile := ''.
+		newFile := ''.
-].
+	    ].
-].
+	].
-(self filenameHolder value notNil and:[newFile asFilename isDirectory]) ifTrue:[
+	(self filenameHolder value notNil and:[newFile asFilename isDirectory]) ifTrue:[
-entryFieldFilename := self filenameHolder value asFilename.
+	    entryFieldFilename := self filenameHolder value asFilename.
-self startFilename asFilename baseName = entryFieldFilename baseName ifTrue:[
+	    self startFilename asFilename baseName = entryFieldFilename baseName ifTrue:[
-entryFieldFilename isDirectory not ifTrue:[
+		entryFieldFilename isDirectory not ifTrue:[
-newFile := newFile asFilename construct:entryFieldFilename baseName.
+		    newFile := newFile asFilename construct:entryFieldFilename baseName.
-].
+		].
-].
+	    ].
-].
+	].
-self filenameHolder value:newFile withoutNotifying:self.
+	self filenameHolder value:newFile withoutNotifying:self.
 ].
 changedObject == contentsBrowser viewFilesInDirectoryTree ifTrue:[
-changedObject value ifTrue:[
+	changedObject value ifTrue:[
-newLabel := 'Filename:'.
+	    newLabel := 'Filename:'.
-] ifFalse:[
+	] ifFalse:[
-newLabel := 'Directory:'.
+	    newLabel := 'Directory:'.
-].
+	].
-self filenameLabelHolder value:(resources string:newLabel)
+	self filenameLabelHolder value:(resources string:newLabel)
 ].
 changedObject == self filenameHolder ifTrue:[
-fn := changedObject value asFilename.
+	fn := changedObject value asFilename.
-(fn exists) ifFalse:[^ self].
+	(fn exists) ifFalse:[^ self].
-contentsBrowser currentFileNameHolder value:(OrderedCollection with:fn) withoutNotifying:self.
+	contentsBrowser currentFileNameHolder value:(OrderedCollection with:fn) withoutNotifying:self.
 ].
 ^ super update:something with:aParameter from:changedObject
 ! !
 !FileDialogV2 methodsFor:'event handling'!
 postBuildTreeBrowser:aSubCanvasView
 contentsBrowser := aSubCanvasView client.
 !
 postBuildWith:aBuilder
 contentsBrowser multipleSelect:multipleSelect.
 appendWasPressed := false.
 (aBuilder componentAt:'cancelButton') cursor:(Cursor thumbsDown).
 (aBuilder componentAt:'appendButton') cursor:(Cursor thumbsUp).
 "/     self windowGroup addPreEventHook:self.
 "No ok and cancel buttons, when dialog is part of a larger dialog"
 self window topView isModal ifFalse:[
-self hideButtonPanel
+	self hideButtonPanel
 ].
 contentsBrowser currentFileNameHolder addDependent:self.
 contentsBrowser doubleClickAction:self doubleClickAction.
 contentsBrowser currentFileNameHolder value:(OrderedCollection with:self startFilename).
 self isLoadDialog ifTrue:[
 "/        contentsBrowser newVisibilityHolder value:false.
 "/        contentsBrowser allowFileOperations value:false.
-self newDirectoryVisibilityHolder value:false.
+	self newDirectoryVisibilityHolder value:false.
 ].
 self filenameHolder value:self startFilename.
 self window label:self initialText.
 !
 postOpenAsSubcanvasWith:aBuilder
 self postOpen.
 ^ super postOpenAsSubcanvasWith:aBuilder
 !
 postOpenWith:aBuilder
 self postOpen.
 ^ super postOpenWith:aBuilder.
 ! !
 returnWasPressedInFilterField
 |ev|
 ev := self windowGroup lastEvent.
 (ev notNil
 and:[ev isKeyEvent
 and:[ev key == #Return
 and:[(   ev targetView isSameOrComponentOf:filterField)
-or:[false "ev targetView isSameOrComponentOf:filenameField"]]]]) ifTrue:[
+	 or:[false "ev targetView isSameOrComponentOf:filenameField"]]]]) ifTrue:[
-^ true
+	^ true
 ].
 ^ false
 !
 returnWasPressedInFilterOrFilenameField
 |ev|
 ev := self windowGroup lastEvent.
 (ev notNil
 and:[ev isKeyEvent
 and:[ev key == #Return
 and:[(   ev targetView isSameOrComponentOf:filterField)
-or:[false "ev targetView isSameOrComponentOf:filenameField"]]]]) ifTrue:[
+	 or:[false "ev targetView isSameOrComponentOf:filenameField"]]]]) ifTrue:[
-^ true
+	^ true
 ].
 ^ false
 ! !
 !FileDialogV2 methodsFor:'user actions'!
 doAccept
 "force accept - ignore in filterField"
 self returnWasPressedInFilterField ifTrue:[
-^ self
+	^ self
 ].
 appendWasPressed := false.
 self commonAcceptAction.
 !
 ! !
 !FileDialogV2 class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/FileDialogV2.st,v 1.6 2006-12-06 11:09:13 cg Exp $'
+^ '$Header$'
 ! !

changeset 17920	773da6cf53a5
parent 7568	b1d31b3b9499