'From Squeak3.5 of ''11 April 2003'' [latest update: #5180] on 27 April 2003 at 6:13:05 pm'!
"Change Set:		Dialogs-sbw
Date:			22 November 2002
Author:			Stephan B. Wessels
SM Name:		FileList2 Dialogs Enhancement

Provides extensions to dialogs available from FileList2.  Added new
capabilities via:
	modalFolderSelectorWithPrompt:
	morphicViewFolderSelector:
	morphicViewFolderSelector:promptString:
	morphicViewFolderSelectorWithPrompt:

Date		Update
-------------	-----------------------------------------------------------------------
15-apr-2003	update for Squeak 3.5.  Added comments in change set preamble.

22-nov-2002	Initial release.
"
!


!FileList2 class methodsFor: 'modal dialogs' stamp: 'sbw 10/22/2002 19:15'!
modalFolderSelectorWithPrompt: promptString
	| window fileModel |
	window _ self morphicViewFolderSelectorWithPrompt: promptString.
	fileModel _ window model.
	window openInWorld: self currentWorld extent: 300 @ 400.
	[window world notNil]
		whileTrue: [window outermostWorldMorph doOneCycleNow].
	^ fileModel getSelectedDirectory withoutListWrapper! !

!FileList2 class methodsFor: 'morphic ui' stamp: 'sbw 11/22/2002 17:05'!
morphicViewFolderSelector: aDir 
	^self morphicViewFolderSelector: aDir promptString: 'Please select a folder'! !

!FileList2 class methodsFor: 'morphic ui' stamp: 'sbw 11/22/2002 17:16'!
morphicViewFolderSelector: aDir promptString: promptString 
	"Answer a tool that allows the user to select a folder"
	"sbw - 22-nov-2002  This is a refactoring of #morphicViewFolderSelector: that adds the option of specifying the prompt string."
	| aFileList window fixedSize |
	aFileList _ self new directory: aDir.
	aFileList optionalButtonSpecs: aFileList servicesForFolderSelector.
	window _ (SystemWindow labelled: aDir pathName)
				model: aFileList.
	aFileList modalView: window.
	fixedSize _ 25.
	self addFullPanesTo: window from: {{self textRow: promptString. 0 @ 0 corner: 1 @ 0. 0 @ 0 corner: 0 @ fixedSize}. {aFileList optionalButtonRow. 0 @ 0 corner: 1 @ 0. 0 @ fixedSize corner: 0 @ (fixedSize * 2)}. {aFileList morphicDirectoryTreePane. 0 @ 0 corner: 1 @ 1. 0 @ (fixedSize * 2) corner: 0 @ 0}}.
	aFileList postOpen.
	^ window! !

!FileList2 class methodsFor: 'morphic ui' stamp: 'sbw 11/22/2002 17:06'!
morphicViewFolderSelectorWithPrompt: promptString 
	| dir |
	dir _ FileDirectory default.
	^self morphicViewFolderSelector: dir promptString: promptString! !