hg/stx-libtool: comparison FileDialog.st

equal deleted inserted replaced

-:1b7c88d91de8
+:204da2f7db8e
 		startFilename result filterField filenameField viewFiles
 		filenameLabelHolder isLoadDialog newDirectoryVisibilityHolder
 		appendButtonVisibleHolder appendWasPressed
 		buttonPanelVisibleHolder appendLabelHolder browseVisibleHolder
 		selectedDeviceDrive listOfDeviceDrives rootDirectoryHolder
-		initialRoot'
+		initialRoot verticalView'
 	classVariableNames:'LastExtent'
 	poolDictionaries:''
 	category:'Interface-Tools-File'
 !
 fd := FileDialog new.
 fd multipleSelect:true.
 fd open
 [exEnd]
+Adding custom components:
+[exBegin]
+DialogBox aboutToOpenBoxNotificationSignal handle:[:ex |
+| 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.
+ex proceed.
+] do:[
+Dialog requestFileName: 'Save file as...'
+]
+[exEnd]
 "
 !
 todo
 "
 window:
 (WindowSpec
 label: 'FileDialog'
 name: 'FileDialog'
 min: (Point 10 10)
-bounds: (Rectangle 0 0 407 400)
+bounds: (Rectangle 0 0 400 400)
 menu: mainMenu
 performer: treeBrowser
 )
 component:
 (SpecCollection
 collection: (
-(ViewSpec
+(VerticalPanelViewSpec
-name: 'FilePart'
+name: 'VerticalPanel'
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -32 1.0)
+layout: (LayoutFrame 0 0 0 0 0 1 -32 1)
+horizontalLayout: fit
+verticalLayout: topSpaceFit
+horizontalSpace: 0
+verticalSpace: 3
+elementsChangeSize: true
 component:
 (SpecCollection
 collection: (
-(MenuPanelSpec
+(ViewSpec
-name: 'ToolBar1'
+name: 'FilePart'
-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
+(MenuPanelSpec
-name: 'Box1'
+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: (
-(ComboListSpec
+(ViewSpec
-name: 'ComboList1'
+name: 'Box1'
-layout: (LayoutFrame 1 0 1 0.0 -1 1 -1 1)
+component:
-visibilityChannel: driveSelectorVisible
+(SpecCollection
-model: selectedDeviceDrive
+collection: (
-comboList: listOfDeviceDrives
+(ComboListSpec
-useIndex: false
+name: 'ComboList1'
-hidePullDownMenuButton: false
+layout: (LayoutFrame 1 0 1 0.0 -1 1 -1 1)
+visibilityChannel: driveSelectorVisible
+model: selectedDeviceDrive
+comboList: listOfDeviceDrives
+useIndex: false
+hidePullDownMenuButton: false
+)
+)
+)
+)
+(ViewSpec
+name: 'Box2'
+component:
+(SpecCollection
+collection: (
+(LabelSpec
+label: 'Filter:'
+name: 'FilterLabel'
+layout: (LayoutFrame 1 0 2 0 59 0 -2 1)
+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:
+)
+)
+)
 )
 )
 )
+handles: (Any 0.2972972972973 1.0)
 )
-(ViewSpec
+(SubCanvasSpec
-name: 'Box2'
+name: 'DirectoryTreeBrowser'
-component:
+layout: (LayoutFrame 0 0.0 70 0 0 1.0 -30 1)
-(SpecCollection
+tabable: true
-collection: (
+hasHorizontalScrollBar: false
-(LabelSpec
+hasVerticalScrollBar: false
-label: 'Filter:'
+majorKey: DirectoryTreeBrowser
-name: 'FilterLabel'
+subAspectHolders:
-layout: (LayoutFrame 1 0 2 0 59 0 -2 1)
+(Array
-translateLabel: true
-adjust: right
+(SubChannelInfoSpec
-)
+subAspect: filterModel
-(InputFieldSpec
+aspect: filterHolder
-name: 'FilterEntryField'
+)
-layout: (LayoutFrame 60 0 -27 1 -2 1 -2 1)
+(SubChannelInfoSpec
-model: filterHolder
+subAspect: rootHolder
-immediateAccept: true
+aspect: rootDirectoryHolder
-acceptOnReturn: true
+)
-acceptOnTab: true
-acceptOnLostFocus: true
+(SubChannelInfoSpec
-acceptOnPointerLeave: false
+subAspect: showHiddenFiles
-postBuildCallback: postBuildFilterField:
+aspect: showHiddenFiles
 )
-)
 )
+createNewApplication: true
+createNewBuilder: true
+postBuildCallback: postBuildTreeBrowser:
+)
+(LabelSpec
+label: 'Filename:'
+name: 'FilenameLabel'
+layout: (LayoutFrame 3 0 -25 1 73 0 -1 1)
+translateLabel: true
+labelChannel: filenameLabelHolder
+adjust: left
+)
+(FilenameInputFieldSpec
+name: 'FilenameEntryField'
+layout: (LayoutFrame 70 0 -25 1 -4 1 -1 1)
+tabable: true
+model: filenameHolder
+immediateAccept: false
+acceptOnPointerLeave: false
+hasKeyboardFocusInitially: true
+postBuildCallback: postBuildFileNameField:
 )
 )
 )
-handles: (Any 0.2972972972973 1.0)
+extent: (Point 400 362)
-)
-(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
-subAspect: filterModel
-aspect: filterHolder
-)
-(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 73 0 -1 1)
-translateLabel: true
-labelChannel: filenameLabelHolder
-adjust: left
-)
-(FilenameInputFieldSpec
-name: 'FilenameEntryField'
-layout: (LayoutFrame 70 0 -25 1 -4 1 -1 1)
-tabable: true
-model: filenameHolder
-immediateAccept: false
-acceptOnPointerLeave: false
-hasKeyboardFocusInitially: true
-postBuildCallback: postBuildFileNameField:
 )
 )
 )
+postBuildCallback: postBuildVerticalView:
 )
 (HorizontalPanelViewSpec
 name: 'ButtonPanel'
 layout: (LayoutFrame 0 0.0 -32 1 0 1 0 1)
 visibilityChannel: buttonPanelVisibleHolder
 name: 'cancelButton'
 translateLabel: true
 labelChannel: cancelLabelHolder
 tabable: true
 model: doCancel
-extent: (Point 131 22)
+extent: (Point 129 22)
 )
 (ActionButtonSpec
 label: 'Append'
 name: 'appendButton'
 visibilityChannel: appendButtonVisibleHolder
 translateLabel: true
 labelChannel: appendLabelHolder
 tabable: true
 model: appendPressed
-extent: (Point 132 22)
+extent: (Point 129 22)
 )
 (ActionButtonSpec
 label: 'OK'
 name: 'okButton'
 translateLabel: true
 labelChannel: okLabelHolder
 tabable: true
 model: okPressed
 isDefault: true
-extent: (Point 132 22)
+extent: (Point 130 22)
 )
 )
 )
 )
 ^ super update:something with:aParameter from:changedObject
 "Modified: / 14-02-2011 / 17:54:35 / cg"
 ! !
+!FileDialog methodsFor:'construction-adding'!
+addComponent: aView
+verticalView addComponent: aView
+"Created: / 03-06-2013 / 17:47:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 !FileDialog methodsFor:'event handling'!
 appendWasPressed
 "valid after the dialog has been closed: true if append was pressed"
 treeBrowser showHiddenFiles value:true.
 "Modified: / 24-08-2010 / 16:07:16 / sr"
 !
+postBuildVerticalView:aView
+verticalView := aView.
+"Created: / 03-06-2013 / 17:41:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
 postBuildWith:aBuilder
 treeBrowser multipleSelect:multipleSelect.
 appendWasPressed := false.
 (aBuilder componentAt:'cancelButton') cursor:(Cursor thumbsDown).
 "filenameHolder contains the initial file name, or nil"
 self startFilename:self filenameHolder value.
 treeBrowser currentFileNameHolder value:(Array with:self startFilename).
 !
-postOpenWith:aBuilder
+preOpenWith:aBuilder
-|lastExtent|
+| h |
-super postOpenWith:aBuilder.
+"Increase height of the window so height of the file part
-treeBrowser currentFileNameHolder value:(OrderedCollection with:self startFilename).
+remain the same"
+h := 0.
-lastExtent := self class lastExtent.
+verticalView subViews from:2 do:[:view|
-lastExtent notNil ifTrue:[
+h := h + view preferredHeight.
-self window topView extent:lastExtent.
+].
-].
+aBuilder window height: aBuilder window height + h.
-self window label:self initialText.
+"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
-^ '$Id: FileDialog.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.117 2013-06-03 18:41:12 +0100 vrany Exp $'
 !
 version_CVS
-^ '�Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.116 2011/04/04 08:09:15 stefan Exp �'
+^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.117 2013-06-03 18:41:12 +0100 vrany Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'

branch	jv
changeset 12818	204da2f7db8e
parent 12431	9f0c59c742d5
child 12819	0ce340e972c4