#BUGFIX by cg
class: AbstractFileBrowser
changed: #currentFileNameHolder
endless loop if file not present.
"
COPYRIGHT (c) 2011 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
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 }"
FileDialog subclass:#FileDialogWithPreview
instanceVariableNames:'imagePreview'
classVariableNames:''
poolDictionaries:''
category:'Interface-Tools-File'
!
!FileDialogWithPreview class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 2011 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
!
documentation
"
a FileDialog with image preview
"
! !
!FileDialogWithPreview class methodsFor:'interface specs'!
windowSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:FileDialogWithPreview andSelector:#windowSpec
FileDialogWithPreview new openInterface:#windowSpec
FileDialogWithPreview open
"
<resource: #canvas>
^
#(FullSpec
name: windowSpec
window:
(WindowSpec
label: 'FileDialog'
name: 'FileDialog'
min: (Point 10 10)
bounds: (Rectangle 0 0 407 607)
menu: mainMenu
performer: treeBrowser
)
component:
(SpecCollection
collection: (
(VariableVerticalPanelSpec
name: 'FilePanel'
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
showHandle: true
handlePosition: center
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'
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.29999999999999999 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
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 120 0 -1 1)
translateLabel: true
labelChannel: filenameLabelHolder
adjust: left
)
(FilenameInputFieldSpec
name: 'FilenameEntryField'
layout: (LayoutFrame 120 0 -25 1 -4 1 -1 1)
tabable: true
model: filenameHolder
immediateAccept: false
acceptOnPointerLeave: false
hasKeyboardFocusInitially: true
postBuildCallback: postBuildFileNameField:
)
)
)
)
(ViewSpec
name: 'PreviewBox'
visibilityChannel: previewVisibleHolder
component:
(SpecCollection
collection: (
(ArbitraryComponentSpec
name: 'ArbitraryComponent1'
layout: (LayoutFrame 0 0 0 0 0 1 0 1)
visibilityChannel: imageViewVisible
hasHorizontalScrollBar: true
hasVerticalScrollBar: true
miniScrollerHorizontal: true
miniScrollerVertical: true
hasBorder: false
component: ImageView
postBuildCallback: postBuildImageView:
)
)
)
)
)
)
handles: (Any 0.75 1.0)
postBuildCallback: postBuildVerticalPanelView:
)
(HorizontalPanelViewSpec
name: 'ButtonPanel'
layout: (LayoutFrame 0 0.0 -30 1 -16 1 0 1)
visibilityChannel: buttonPanelVisibleHolder
horizontalLayout: fitSpace
verticalLayout: center
horizontalSpace: 3
verticalSpace: 3
reverseOrderIfOKAtLeft: true
component:
(SpecCollection
collection: (
(ActionButtonSpec
label: 'Cancel'
name: 'cancelButton'
translateLabel: true
labelChannel: cancelLabelHolder
tabable: true
model: doCancel
extent: (Point 125 25)
)
(ActionButtonSpec
label: 'Append'
name: 'appendButton'
visibilityChannel: appendButtonVisibleHolder
translateLabel: true
labelChannel: appendLabelHolder
tabable: true
model: appendPressed
extent: (Point 125 25)
)
(ActionButtonSpec
label: 'OK'
name: 'okButton'
translateLabel: true
labelChannel: okLabelHolder
tabable: true
model: okPressed
isDefault: true
extent: (Point 125 25)
)
)
)
keepSpaceForOSXResizeHandleH: true
)
)
)
)
! !
!FileDialogWithPreview class methodsFor:'plugIn spec'!
aspectSelectors
"This resource specification was automatically generated
by the UIPainter of ST/X."
"Do not manually edit this. If it is corrupted,
the UIPainter may not be able to read the specification."
"Return a description of exported aspects;
these can be connected to aspects of an embedding application
(if this app is embedded in a subCanvas)."
^ #(
#filenameHolder
#filterHolder
#rootDirectoryHolder
).
! !
!FileDialogWithPreview methodsFor:'change & update'!
fileSelectionChanged
|fn mime image|
super fileSelectionChanged.
((fn := self filenameHolder value) notNil and:[ fn exists ]) ifTrue:[
(mime := fn mimeTypeFromName) notNil ifTrue:[
mime isImageType ifTrue:[
image := Image fromFile:fn.
imagePreview image:image.
].
].
].
"Created: / 14-02-2011 / 18:00:39 / cg"
! !
!FileDialogWithPreview methodsFor:'initialization'!
postBuildImageView:aView
imagePreview := aView
"Created: / 14-02-2011 / 18:08:05 / cg"
! !
!FileDialogWithPreview class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !