hg/stx-libwidg: comparison FileSelectionBox.st

equal deleted inserted replaced

-:e3512322cb87
+:24a527f86c7b
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
 ListSelectionBox subclass:#FileSelectionBox
-	 instanceVariableNames:'patternField'
+	instanceVariableNames:'patternField selectingDirectory'
-	 classVariableNames:''
+	classVariableNames:''
-	 poolDictionaries:''
+	poolDictionaries:''
-	 category:'Views-DialogBoxes'
+	category:'Views-DialogBoxes'
 !
 !FileSelectionBox class methodsFor:'documentation'!
 copyright
 examples
 "
 simple standard queries
 very simple:
-	|name|
+|name|
-	name := FileSelectionBox requestFilename.
+name := FileSelectionBox requestFilename.
-	Transcript showCr:name
+Transcript showCr:name
 simple:
-	|name|
+|name|
-	name := FileSelectionBox requestFilename:'which file ?'.
+name := FileSelectionBox requestFilename:'which file ?'.
-	Transcript showCr:name
+Transcript showCr:name
 with initial selection:
-	|name|
+|name|
-	name := FileSelectionBox requestFilename:'which file ?' default:'Make.proto'.
+name := FileSelectionBox requestFilename:'which file ?' default:'Make.proto'.
-	Transcript showCr:name
+Transcript showCr:name
 more detailed setup
 setting title:
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which file ?'.
+box title:'Which file ?'.
-	box open.
+box open.
-	box accepted ifTrue:[
+box accepted ifTrue:[
-	    Transcript showCr:'you selected: ' , box
+Transcript showCr:'you selected: ' , box
-	]
+]
 setting a matchpattern:
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which file ?'.
+box title:'Which file ?'.
-	box pattern:'*.rc'.
+box pattern:'*.rc'.
-	box open
+box open
+setting multiple patterns:
+|box|
+box := FileSelectionBox new.
+box title:'Which file ?'.
+box pattern:'*.rc;*.st'.
+box open
 setting a matchblock:
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which file ?'.
+box title:'Which file ?'.
-	box pattern:'*'.
+box directory:'/etc'.
-	box matchBlock:[:name | name first isLowercase].
+box pattern:'*'.
-	box open
+box matchBlock:[:name | name asFilename baseName first between:$a and:$z].
+box open
 both pattern and matchBlock:
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which directory ?'.
+box title:'Which directory ?'.
-	box pattern:'l*'.
+box selectingDirectory:true.
-	box matchBlock:[:name | OperatingSystem isDirectory:name].
+box pattern:'l*'.
-	box open
+box matchBlock:[:name | OperatingSystem isDirectory:name].
+box action:[:fn | Transcript showCr:fn].
+box open
 dont show the parent directory:
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which directory ?'.
+box title:'Which directory ?'.
-	box listView ignoreParentDirectory:true.
+box listView ignoreParentDirectory:true.
-	box open
+box open
 dont show any directory:
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which file ?'.
+box title:'Which file ?'.
-	box listView ignoreDirectories:true.
+box listView ignoreDirectories:true.
-	box open
+box open
 dont show any directory or hidden file:
 (notice the basename extraction - we are not interrested in the full pathName)
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which file ?'.
+box title:'Which file ?'.
-	box listView ignoreDirectories:true.
+box listView ignoreDirectories:true.
-	box matchBlock:[:name | (name asFilename baseName startsWith:'.') not].
+box matchBlock:[:name | (name asFilename baseName startsWith:'.') not].
-	box open
+box open
 dont allow direct filename entry:
 (i.e. avoid the user choosing files from other directories)
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which one ?'.
+box title:'Which one ?'.
-	box enterField beInvisible.
+box enterField beInvisible.
-	box open.
+box open.
-	box accepted ifTrue:[
+box accepted ifTrue:[
-	    Transcript showCr:'path is ' , box pathName
+Transcript showCr:'path is ' , box pathName
-	].
+].
 combined with above directory ignoring,
 this limits selection of files from a single directory:
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which file ?'.
+box title:'Which file ?'.
-	box enterField beInvisible.
+box enterField beInvisible.
-	box listView ignoreDirectories:true.
+box listView ignoreDirectories:true.
-	box open.
+box open.
-	box accepted ifTrue:[
+box accepted ifTrue:[
-	    Transcript showCr:'path is ' , box pathName
+Transcript showCr:'path is ' , box pathName
-	].
+].
 finally, an action:
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which directory ?'.
+box title:'Which directory ?'.
-	box pattern:'l*'.
+box pattern:'l*'.
-	box matchBlock:[:name | OperatingSystem isDirectory:name].
+box matchBlock:[:name | OperatingSystem isDirectory:name].
-	box action:[:name | Transcript showCr:name].
+box action:[:name | Transcript showCr:name].
-	box open
+box open
 concrete examples:
 only show files beginning with lowercase characters
 and ending in '.c':
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which directory ?'.
+box title:'Which directory ?'.
-	box matchBlock:[:name |
+box matchBlock:[:name |
-			    box pathName asFilename isDirectory
+box pathName asFilename isDirectory
-			    or:[name first isLowercase
+or:[name first isLowercase
-				and:[name endsWith:'.c']]
+and:[name endsWith:'.c']]
-		       ].
+].
-	box open.
+box open.
-	box accepted ifTrue:[
+box accepted ifTrue:[
-	    Transcript showCr:'full path:  ' , box pathName.
+Transcript showCr:'full path:  ' , box pathName.
-	    Transcript showCr:'files name: ' , box fileName.
+Transcript showCr:'files name: ' , box fileName.
-	    Transcript showCr:'directory : ' , box directory.
+Transcript showCr:'directory : ' , box directory.
-	]
+]
 somewhat wierd example:
 only show files, if the directory we are in begins with 'lib':
-	|box|
+|box|
-	box := FileSelectionBox new.
+box := FileSelectionBox new.
-	box title:'Which directory ?'.
+box title:'Which directory ?'.
-	box pattern:'l*'.
+box pattern:'l*'.
-	box matchBlock:[:name |
+box matchBlock:[:name |
-			    box directory asString beginsWith:'lib'
+box directory asString beginsWith:'lib'
-		       ].
+].
-	box open
+box open
-	box accepted ifTrue:[
+box accepted ifTrue:[
-	    Transcript showCr:'full path:  ' , box pathName.
+Transcript showCr:'full path:  ' , box pathName.
-	    Transcript showCr:'files name: ' , box fileName.
+Transcript showCr:'files name: ' , box fileName.
-	    Transcript showCr:'directory : ' , box directory.
+Transcript showCr:'directory : ' , box directory.
-	]
+]
 "
 ! !
 !FileSelectionBox class methodsFor:'defaults'!
 ^ FileSelectionList
 ! !
 !FileSelectionBox methodsFor:'accessing'!
-pathName
+contents
-"same as contents - return the full pathname of the selected file,
+"return the current entered value (i.e. the enterFields string).
-or the pathname of the directory if nothing has been entered"
+redefined to return the full pathname."
-^ self contents
+|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
 !
 fileName
 "if some filename has been entered, return it (without the directory path)
 otherwise, return nil"
 |string|
 string := super contents.
 string isNil ifTrue:[^ nil].
 ^ self pathName
-!
-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.
 "open the box showing files in aPath.
 This is only a shortcut message - no new functionality."
 self directory:aPath.
 self showAtPointer
+!
+pathName
+"same as contents - return the full pathname of the selected file,
+or the pathname of the directory if nothing has been entered"
+^ self contents
 !
 pattern:aPattern
 "set the pattern - this also enables the PatternField
 (if the pattern is non-nil) or hides it (if nil)."
 patternField hiddenOnRealize:hidePatternField.
 windowGroup notNil ifTrue:[
 	windowGroup focusSequence:focusSequence
 ].
+!
+selectingDirectory:aBoolean
+selectingDirectory := aBoolean
 ! !
 !FileSelectionBox methodsFor:'change & update'!
 update:something with:argument from:changedObject
 initialize
 |corner|
 super initialize.
+selectingDirectory := false.
 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:[
-	corner := (1.0 @ (labelField origin y+patternField heightIncludingBorder)).
+corner := (1.0 @ (labelField origin y+patternField heightIncludingBorder)).
 ] ifFalse:[
-	corner := [(width - ViewSpacing - (patternField borderWidth * 2)) @ (labelField origin y+patternField height"IncludingBorder")].
+corner := [(width - ViewSpacing - (patternField borderWidth * 2)) @ (labelField origin y+patternField height"IncludingBorder")].
 ].
 patternField origin:(0.7 @ labelField origin y) corner:corner.
 patternField rightInset:ViewSpacing.
 patternField initialText:'*'.
 patternField leaveAction:[:reason |
-	selectionList pattern:patternField contents.
+selectionList pattern:patternField contents.
-	self updateList
+self updateList
 ].
 patternField hiddenOnRealize:true. "delay showing, until a pattern is defined"
 enterField addDependent:self.
 "called for both on ok-press and on return-key"
 |dir string fname|
 string := enterField contents.
-string notNil ifTrue:[
+(string notNil and:[string notEmpty]) ifTrue:[
-	string := string withoutSeparators.
+string := string withoutSeparators.
-	string asFilename isAbsolute ifTrue:[
+string asFilename isAbsolute ifTrue:[
-	    fname := string asFilename
+fname := string asFilename
-	] ifFalse:[
+] ifFalse:[
-	    dir := selectionList directory pathName asFilename.
+dir := selectionList directory pathName asFilename.
-	    fname := dir construct:string
+fname := dir construct:string
-	].
+].
-	fname isDirectory ifTrue:[
+fname isDirectory ifTrue:[
-	    selectionList directory:fname asString.
+selectingDirectory ifFalse:[
-	    self updateList.
+selectionList directory:fname asString.
-	    ^ self
+self updateList.
-	]
+^ self
-].
+]
+]
+] ifFalse:[
+selectingDirectory ifTrue:[
+enterField contents:(selectionList directory pathName).
+].
+].
 super okPressed
 !
 selectionChanged
 |entry|
 ! !
 !FileSelectionBox class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.27 1996-01-18 21:28:46 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.28 1996-02-10 09:36:47 ca Exp $'
 ! !

changeset 351	24a527f86c7b
parent 296	e1b9431b3aef
child 438	8df6f72d1569