hg/stx-libtool: comparison FileDialog.st

equal deleted inserted replaced

-:25c2a13f00c5
+:184cea584be5
+"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 2002 by eXept Software AG
 All Rights Reserved
 This software is furnished under a license and may be used
 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' }"
+"{ NameSpace: Smalltalk }"
 SimpleDialog subclass:#FileDialog
 	instanceVariableNames:'aspects treeBrowser directory pattern filterHolder initialText
 		multipleSelect doubleClickAction cancelLabelHolder okLabelHolder
 		startFilename result filterField filenameField viewFiles
 "
 !
 examples
 "
+usually direct access to FileDialog is not recommended;
+please use the Dialog interface, which is able to dispatch to
+alternative file choosers if the settings say so
+(native dialogs, for example):
 [exBegin]
-FileDialog open
+|fileOrNil|
+fileOrNil := Dialog requestFileName:'Choose a File'.
+Transcript showCR:fileOrNil
 [exEnd]
+simple examples:
 [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]
+[exBegin]
+|fd|
+fd := FileDialog new.
+fd multipleSelect:true.
+fd browseMenuItemVisible:false.
+fd open
+[exEnd]
 Adding custom components:
 [exBegin]
-DialogBox aboutToOpenBoxNotificationSignal handle:[:ex |
+Dialog modifyingBoxWith:[:dialog |
 | fmtBox |
 fmtBox := ComboListView new.
 fmtBox list: #('Comma Separated Values (.csv)'
 'Microsoft Excel (.xls)'
 'Microsoft Excel XML (.xlsx)') .
 fmtBox model:'Select...' asValue.
-ex application addComponent: fmtBox.
+dialog application addComponent: fmtBox.
-ex proceed.
 ] do:[
 Dialog requestFileName: 'Save file as...'
 ]
 [exEnd]
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: windowSpec
 window:
 (WindowSpec
 label: 'FileDialog'
 name: 'FileDialog'
 min: (Point 10 10)
 bounds: (Rectangle 0 0 400 400)
 menu: mainMenu
 performer: treeBrowser
 )
 component:
 (SpecCollection
 collection: (
 (VerticalPanelViewSpec
 name: 'FilePanel'
 layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
 horizontalLayout: fit
 verticalLayout: bottomFit
 horizontalSpace: 0
 verticalSpace: 3
 elementsChangeSize: true
 component:
 (SpecCollection
 collection: (
 (ViewSpec
 name: 'FilePart'
 component:
 (SpecCollection
 collection: (
 (MenuPanelSpec
 name: 'ToolBar1'
 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 40 0)
 tabable: true
 menu: toolBarMenu
 textDefault: true
 )
 (VariableHorizontalPanelSpec
 name: 'DeviceAndFilterPanel'
 layout: (LayoutFrame 0 0 40 0 0 1 70 0)
 level: 1
 showHandle: true
 component:
 (SpecCollection
 collection: (
 (ViewSpec
 name: 'Box1'
 component:
 (SpecCollection
 collection: (
 (ComboListSpec
 name: 'ComboList1'
 layout: (LayoutFrame 1 0 1 0.0 -1 1 -1 1)
 visibilityChannel: driveSelectorVisible
 model: selectedDeviceDrive
 comboList: listOfDeviceDrives
 useIndex: false
 hidePullDownMenuButton: false
-)
 )
+)
-)
 )
-(ViewSpec
+)
-name: 'Box2'
+(ViewSpec
-component:
+name: 'Box2'
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(LabelSpec
+collection: (
-label: 'Filter:'
+(LabelSpec
-name: 'FilterLabel'
+label: 'Filter:'
-layout: (LayoutFrame 1 0 2 0 59 0 -2 1)
+name: 'FilterLabel'
-translateLabel: true
+layout: (LayoutFrame 1 0 2 0 59 0 -2 1)
-adjust: right
+translateLabel: true
-)
+adjust: right
-(InputFieldSpec
-name: 'FilterEntryField'
-layout: (LayoutFrame 60 0 -27 1 -2 1 -2 1)
-model: filterHolder
-immediateAccept: true
-acceptOnReturn: true
-acceptOnTab: true
-acceptOnLostFocus: true
-acceptOnPointerLeave: false
-postBuildCallback: postBuildFilterField:
-)
 )
+(InputFieldSpec
-)
+name: 'FilterEntryField'
-)
+layout: (LayoutFrame 60 0 -27 1 -2 1 -2 1)
+model: filterHolder
+immediateAccept: true
+acceptOnReturn: true
+acceptOnTab: true
+acceptOnLostFocus: true
+acceptOnPointerLeave: false
+postBuildCallback: postBuildFilterField:
+)
+)
+)
 )
+)
+)
+handles: (Any 0.29729729729729998 1.0)
+)
+(SubCanvasSpec
+name: 'DirectoryTreeBrowser'
+layout: (LayoutFrame 0 0.0 70 0 0 1.0 -30 1)
+tabable: true
+hasHorizontalScrollBar: false
+hasVerticalScrollBar: false
+majorKey: DirectoryTreeBrowser
+subAspectHolders:
+(Array
-)
+(SubChannelInfoSpec
-handles: (Any 0.2972972972973 1.0)
+subAspect: filterModel
-)
+aspect: filterHolder
-(SubCanvasSpec
+)
-name: 'DirectoryTreeBrowser'
+(SubChannelInfoSpec
-layout: (LayoutFrame 0 0.0 70 0 0 1.0 -30 1)
+subAspect: rootHolder
-tabable: true
+aspect: rootDirectoryHolder
-hasHorizontalScrollBar: false
+)
-hasVerticalScrollBar: false
-majorKey: DirectoryTreeBrowser
+(SubChannelInfoSpec
-subAspectHolders:
+subAspect: showHiddenFiles
-(Array
+aspect: showHiddenFiles
+)
-(SubChannelInfoSpec
+)
-subAspect: filterModel
+createNewApplication: true
-aspect: filterHolder
+createNewBuilder: true
-)
+postBuildCallback: postBuildTreeBrowser:
-(SubChannelInfoSpec
-subAspect: rootHolder
-aspect: rootDirectoryHolder
-)
-(SubChannelInfoSpec
-subAspect: showHiddenFiles
-aspect: showHiddenFiles
-)
-)
-createNewApplication: true
-createNewBuilder: true
-postBuildCallback: postBuildTreeBrowser:
-)
-(LabelSpec
-label: 'Filename:'
-name: 'FilenameLabel'
-layout: (LayoutFrame 3 0 -25 1 90 0 -1 1)
-translateLabel: true
-labelChannel: filenameLabelHolder
-adjust: left
-)
-(FilenameInputFieldSpec
-name: 'FilenameEntryField'
-layout: (LayoutFrame 90 0 -25 1 -2 1 -1 1)
-tabable: true
-model: filenameHolder
-immediateAccept: false
-acceptOnPointerLeave: false
-hasKeyboardFocusInitially: true
-postBuildCallback: postBuildFileNameField:
-)
 )
+(LabelSpec
-)
+label: 'Filename:'
-extent: (Point 400 370)
+name: 'FilenameLabel'
-)
+layout: (LayoutFrame 3 0 -25 1 90 0 -1 1)
+translateLabel: true
+labelChannel: filenameLabelHolder
+adjust: left
+)
+(FilenameInputFieldSpec
+name: 'FilenameEntryField'
+layout: (LayoutFrame 90 0 -25 1 -2 1 -1 1)
+tabable: true
+model: filenameHolder
+immediateAccept: false
+acceptOnPointerLeave: true
+hasKeyboardFocusInitially: true
+postBuildCallback: postBuildFileNameField:
+)
+)
+)
+extent: (Point 400 370)
 )
+)
-)
-postBuildCallback: postBuildVerticalPanelView:
+)
-)
+postBuildCallback: postBuildVerticalPanelView:
-(HorizontalPanelViewSpec
+)
-name: 'ButtonPanel'
+(HorizontalPanelViewSpec
-layout: (LayoutFrame 0 0.0 -30 1 0 1 0 1)
+name: 'ButtonPanel'
-visibilityChannel: buttonPanelVisibleHolder
+layout: (LayoutFrame 0 0.0 -30 1 0 1 0 1)
-horizontalLayout: fitSpace
+visibilityChannel: buttonPanelVisibleHolder
-verticalLayout: center
+horizontalLayout: fitSpace
-horizontalSpace: 3
+verticalLayout: center
-verticalSpace: 3
+horizontalSpace: 3
-reverseOrderIfOKAtLeft: true
+verticalSpace: 3
-component:
+reverseOrderIfOKAtLeft: true
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(ActionButtonSpec
+collection: (
-label: 'Cancel'
+(ActionButtonSpec
-name: 'cancelButton'
+label: 'Cancel'
-translateLabel: true
+name: 'cancelButton'
-labelChannel: cancelLabelHolder
+translateLabel: true
-tabable: true
+labelChannel: cancelLabelHolder
-model: doCancel
+tabable: true
-extent: (Point 129 25)
+model: doCancel
-)
+extent: (Point 128 28)
-(ActionButtonSpec
+usePreferredHeight: true
-label: 'Append'
-name: 'appendButton'
-visibilityChannel: appendButtonVisibleHolder
-translateLabel: true
-labelChannel: appendLabelHolder
-tabable: true
-model: appendPressed
-extent: (Point 129 25)
-)
-(ActionButtonSpec
-label: 'OK'
-name: 'okButton'
-translateLabel: true
-labelChannel: okLabelHolder
-tabable: true
-model: okPressed
-isDefault: true
-extent: (Point 130 25)
-)
 )
+(ActionButtonSpec
-)
+label: 'Append'
-keepSpaceForOSXResizeHandleH: true
+name: 'appendButton'
-)
+visibilityChannel: appendButtonVisibleHolder
+translateLabel: true
+labelChannel: appendLabelHolder
+tabable: true
+model: appendPressed
+extent: (Point 128 28)
+usePreferredHeight: true
+)
+(ActionButtonSpec
+label: 'OK'
+name: 'okButton'
+translateLabel: true
+labelChannel: okLabelHolder
+tabable: true
+model: okPressed
+isDefault: true
+extent: (Point 128 28)
+usePreferredHeight: true
+)
+)
+)
+keepSpaceForOSXResizeHandleH: true
 )
+)
-)
 )
+)
 ! !
 !FileDialog class methodsFor:'menu specs'!
 mainMenu
 activeHelpKey: openFileBrowser
 label: 'Browse'
 itemValue: doBrowseDirectory
 translateLabel: true
 isButton: true
-isVisible: browseVisibleHolder
+isVisible: browsemenuItemVisibleHolder
 labelImage: (ResourceRetriever ToolbarIconLibrary startFileBrowserIcon)
 )
 )
 nil
 nil
 ! !
 !FileDialog methodsFor:'aspects'!
 appendButtonVisibleHolder
+"if set, an additional 'append' button is shown
+(to let user append to a file, instead of overwriting the file)"
 appendButtonVisibleHolder isNil ifTrue:[
 appendButtonVisibleHolder := false asValue.
 ].
 ^ appendButtonVisibleHolder
 !
 ]
 ].
 ^ nil
 !
-browseVisibleHolder
+browseMenuItemVisible:aBoolean
+"controls if an 'open filebrowser' menu item is to be shown in the toolbar"
+self browseMenuItemVisibleHolder value:aBoolean
+!
+browseMenuItemVisibleHolder
+"controls if an 'open filebrowser' menu item is to be shown in the toolbar"
 browseVisibleHolder isNil ifTrue:[
 browseVisibleHolder := true "false" asValue.
 ].
 ^ browseVisibleHolder.
+!
+browseVisibleHolder
+"controls if an 'open filebrowser' menu item is to be shown in the toolbar"
+<resource: #obsolete>
+^ self browseMenuItemVisibleHolder.
 !
 buttonPanelVisibleHolder
 buttonPanelVisibleHolder isNil ifTrue:[
 buttonPanelVisibleHolder := true asValue.
 "/            newVPanelHeight := verticalPanelView preferredHeight374
 "/            aBuilder window height: aBuilder window height + sumH.
 "/        ].
 ].
+treeBrowser currentFileNameHolder value:(Array with:self startFilename).
 "Created: / 03-06-2013 / 18:19:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 rememberExtent
 self class lastExtent:self window topView extent.
 ! !
 !FileDialog class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.130 2013-07-24 21:01:27 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.134 2015-02-27 15:30:48 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.130 2013-07-24 21:01:27 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.134 2015-02-27 15:30:48 cg Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'
 !
 version_SVN
-^ '$Id: FileDialog.st,v 1.130 2013-07-24 21:01:27 cg Exp $'
+^ '$Id: FileDialog.st,v 1.134 2015-02-27 15:30:48 cg Exp $'
 ! !

branch	jv
changeset 15566	184cea584be5
parent 13289	cc75e3cd0362
parent 15451	62459e7da660
child 15726	42395c00ce64