hg/stx-libtool2: comparison FileSelectionBrowser.st

equal deleted inserted replaced

-:20cbba6d7e96
+:d3995881fa13
 !
 documentation
 "
-documentation to be added.
+The FileSelectionBrowser allows you to browse in file directories
+and to select files in order to load file contents or to save
+something to files.
+[start with:]
+FileSelectionBrowser open
 [author:]
-Thomas Zwick
+Thomas Zwick, eXept Software AG
 "
 ! !
 !FileSelectionBrowser class methodsFor:'instance creation'!
-request: aTitle fileFilters: fileFilters
-"self request: 'Select A File' fileFilters: #('.*')"
-^self new
-title: aTitle;
-listOfFileFilters: fileFilters;
-open
-!
 request: aTitle fileName: aFileName inDirectory: dir withFileFilters: fileFilters
+"
-"self
+self
 request: 'Select Your Profile File'
 fileName: '.profile'
 inDirectory: Filename homeDirectory
-withFileFilters: #('.*')"
+withFileFilters: #('.*')
+"
 ^self new
 title: aTitle;
 fileName: aFileName;
 directory: dir;
 listOfFileFilters: fileFilters;
 open
 !
-request: aTitle pathName: aPath fileFilters: fileFilters
+request: aTitle fileName: aFileName withFileFilters: fileFilters
+"
-"self request: 'Select A File' pathName: '' fileFilters: #('.*')"
+self
+request: 'Select Your Profile File'
+fileName: '/etc/fstab'
+withFileFilters: #('*')
+"
 ^self new
 title: aTitle;
-fileName: aPath;
+fileName: aFileName;
 listOfFileFilters: fileFilters;
 open
 !
+request: aTitle pathName: aPath withFileFilters: fileFilters
+"
+self request: 'Select A File' pathName: '/etc' fileFilters: #('*.conf')
+"
+^self new
+title: aTitle;
+directory: aPath;
+listOfFileFilters: fileFilters;
+open
+!
+request: aTitle withFileFilters: fileFilters
+"
+self request: 'Select A File' fileFilters: #('.*')
+"
+^self new
+title: aTitle;
+listOfFileFilters: fileFilters;
+open
+!
 requestFileName
+"
-"self requestFileName"
+self requestFileName
+"
 ^self new title: 'Select A File'; open
 ! !
 ! !
 !FileSelectionBrowser class methodsFor:'interface specs'!
 windowSpec
-"this window spec was automatically generated by the ST/X UIPainter"
+"This resource specification was automatically generated
+by the UIPainter of ST/X."
-"do not manually edit this - the painter/builder may not be able to
-handle the specification if its corrupted."
+"Do not manually edit this!! If it is corrupted,
+the UIPainter may not be able to read the specification."
 "
 UIPainter new openOnClass:FileSelectionBrowser andSelector:#windowSpec
 FileSelectionBrowser new openInterface:#windowSpec
-"
+FileSelectionBrowser open
-"FileSelectionBrowser open"
+"
 <resource: #canvas>
 ^
 #(#FullSpec
-#'window:'
+#window:
 #(#WindowSpec
-#'name:' 'File Selection Browser'
+#name: 'File Selection Browser'
-#'layout:' #(#LayoutFrame 248 0 226 0 847 0 575 0)
+#layout: #(#LayoutFrame 379 0 259 0 978 0 608 0)
-#'label:' 'File Selection Browser'
+#label: 'File Selection Browser'
-#'min:' #(#Point 10 10)
+#min: #(#Point 10 10)
-#'max:' #(#Point 1152 900)
+#max: #(#Point 1152 900)
-#'bounds:' #(#Rectangle 248 226 848 576)
+#bounds: #(#Rectangle 379 259 979 609)
-#'usePreferredExtent:' false
+#usePreferredExtent: false
 )
-#'component:'
+#component:
 #(#SpecCollection
-#'collection:'
+#collection:
 #(
 #(#VariableHorizontalPanelSpec
-#'name:' 'panel'
+#name: 'panel'
-#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)
+#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)
-#'component:'
+#component:
 #(#SpecCollection
-#'collection:'
+#collection:
 #(
 #(#ViewSpec
-#'name:' 'view1'
+#name: 'view1'
-#'component:'
+#component:
 #(#SpecCollection
-#'collection:'
+#collection:
 #(
 #(#FileSelectionTreeSpec
-#'name:' 'directoryTreeView'
+#name: 'directoryTreeView'
-#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
+#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
-#'model:' #selectionOfDirectory
+#model: #selectionOfDirectory
-#'hasHorizontalScrollBar:' true
+#hasHorizontalScrollBar: true
-#'hasVerticalScrollBar:' true
+#hasVerticalScrollBar: true
-#'miniScrollerHorizontal:' true
+#miniScrollerHorizontal: true
-#'showDirectoryIndicatorForRoot:' false
+#showDirectoryIndicatorForRoot: false
-#'showDirectoryIndicator:' true
+#showDirectoryIndicator: true
-#'valueChangeSelector:' #readDirectory
+#valueChangeSelector: #readDirectory
-#'hierarchicalList:' #rootOfDirectory
+#hierarchicalList: #rootOfDirectory
-#'itemClass:' 'Directory'
+#itemClass: 'Directory'
 )
 #(#InputFieldSpec
-#'name:' 'directoryInputField'
+#name: 'directoryInputField'
-#'layout:' #(#LayoutFrame 2 0.0 -22 1 0 1.0 0 1)
+#layout: #(#LayoutFrame 2 0.0 -22 1 0 1.0 0 1)
-#'model:' #selectionOfDirectory
+#model: #selectionOfDirectory
-#'immediateAccept:' false
+#immediateAccept: false
 )
 )
 )
 )
 #(#ViewSpec
-#'name:' 'view2'
+#name: 'view2'
-#'component:'
+#component:
 #(#SpecCollection
-#'collection:'
+#collection:
 #(
 #(#InputFieldSpec
-#'name:' 'EditField'
+#name: 'EditField'
-#'layout:' #(#LayoutFrame 1 0.0 -22 1 -2 1.0 0 1)
+#layout: #(#LayoutFrame 1 0.0 -22 1 -2 1.0 0 1)
-#'model:' #valueOfFileName
+#model: #valueOfFileName
-#'acceptOnReturn:' false
+#acceptOnReturn: false
-#'acceptOnTab:' false
+#acceptOnTab: false
 )
 #(#SubCanvasSpec
-#'name:' 'subCanvas1'
+#name: 'subCanvas1'
-#'layout:' #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -25 1.0)
+#layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -25 1.0)
-#'clientHolder:' #directoryView
+#clientHolder: #directoryView
 )
 )
 )
 )
 )
 )
-#'handles:' #(#Any 0.5 1.0)
+#handles: #(#Any 0.5 1.0)
 )
 #(#UISubSpecification
-#'name:' 'SubSpecification'
+#name: 'SubSpecification'
-#'layout:' #(#LayoutFrame 2 0.0 -32 1 0 1.0 -8 1.0)
+#layout: #(#LayoutFrame 2 0.0 -32 1 0 1.0 -8 1.0)
-#'majorKey:' #ToolApplicationModel
+#majorKey: #ToolApplicationModel
-#'minorKey:' #windowSpecForCommitWithoutChannels
+#minorKey: #windowSpecForCommitWithoutChannels
 )
 )
 )
 )
 ! !
 !FileSelectionBrowser methodsFor:'accessing'!
 directory: aDirectory
-directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename name
+directory := (aDirectory ? Filename currentDirectory) asFilename asAbsoluteFilename name
 !
 directoryView
 ^directoryView ? (directoryView := DirectoryView new)
 fileName: aFileName
 self valueOfFileName value: (aFileName ? '') asFilename baseName.
 directory := directory ? ((aFileName ? '') asFilename directoryName).
 !
 listOfFileFilters: anArray
 listOfFileFilters := anArray
 readDirectory
 self directoryTreeView selection notNil
 ifTrue:
 [
 directoryView directory: self selectionOfDirectory value; readDirectory.
-directory isNil ifTrue: [self class lastSelection: self selectionOfDirectory value]
+self class lastSelection notNil ifTrue: [self class lastSelection: self selectionOfDirectory value]
 ]
 ! !
 !FileSelectionBrowser methodsFor:'startup / release'!
 directoryView fileDoubleClickAction: [:aFileName |self fileDoubleClicked: aFileName asFilename baseName].
 directoryView fileFilterSelectAction: [:fileFilter|
 self valueOfFileName value: (
 ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.',
 (fileFilter copy reverse readStream upTo: $.) reverse)].
-self directoryTreeView selectPathname: directory ? self class lastSelection ? '/'.
+self directoryTreeView selectPathname: directory ? self class lastSelection ? Filename currentDirectory asAbsoluteFilename name.
 self directoryInputField entryCompletionBlock:
 [:f|
 |completedDirectory|
 (completedDirectory := Filename

changeset 745	d3995881fa13
parent 626	402a50b931d5
child 871	45c6d4418ae6