--- a/FileBrowserV2.st Fri Jul 04 15:19:12 2014 +0200
+++ b/FileBrowserV2.st Sat Jul 05 10:15:06 2014 +0200
@@ -393,389 +393,389 @@
the UIPainter may not be able to read the specification."
"
- UIPainter new openOnClass:FileBrowserV3 andSelector:#windowSpec
- FileBrowserV3 new openInterface:#windowSpec
- FileBrowserV3 open
+ UIPainter new openOnClass:FileBrowserV2 andSelector:#windowSpec
+ FileBrowserV2 new openInterface:#windowSpec
+ FileBrowserV2 open
"
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: FileBrowser
- name: FileBrowser
- min: (Point 10 10)
- bounds: (Rectangle 0 0 800 600)
- menu: mainMenu
- icon: defaultIcon
- )
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'ToolbarBox'
- layout: (LayoutFrame 0 0 0 0 0 1 40 0)
- level: 0
- visibilityChannel: toolBarVisibleHolder
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'hideToolBarIcon'
- name: 'HideToolBarButton'
- layout: (LayoutFrame 0 0 0 0 13 0 40 0)
- activeHelpKey: hideToolBar
- hasCharacterOrientedLabel: false
- translateLabel: true
- model: hideToolbar
- postBuildCallback: hideToolBarButtonCreated:
- )
- (MenuPanelSpec
- name: 'ToolBar'
- layout: (LayoutFrame 13 0 0 0 0 1 40 0)
- menu: toolBarMainMenu
- textDefault: true
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: FileBrowser
+ name: FileBrowser
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 800 600)
+ menu: mainMenu
+ icon: defaultIcon
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'ToolbarBox'
+ layout: (LayoutFrame 0 0 0 0 0 1 40 0)
+ level: 0
+ visibilityChannel: toolBarVisibleHolder
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'hideToolBarIcon'
+ name: 'HideToolBarButton'
+ layout: (LayoutFrame 0 0 0 0 13 0 40 0)
+ activeHelpKey: hideToolBar
+ hasCharacterOrientedLabel: false
+ translateLabel: true
+ model: hideToolbar
+ postBuildCallback: hideToolBarButtonCreated:
+ )
+ (MenuPanelSpec
+ name: 'ToolBar'
+ layout: (LayoutFrame 13 0 0 0 0 1 40 0)
+ menu: toolBarMainMenu
+ textDefault: true
)
-
- )
- )
- (ViewSpec
- name: 'BookmarkBar'
- layout: (LayoutFrame 0 0 40 0 0 1 66 0)
- visibilityChannel: bookmarkBarVisibleHolder
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'hideToolBarIcon'
- name: 'Button1'
- layout: (LayoutFrame 0 0 0 0 13 0 0 1)
- activeHelpKey: hideBookmarks
- hasCharacterOrientedLabel: false
- translateLabel: true
- model: hideBookmarkBar
- postBuildCallback: hideToolBarButtonCreated:
- )
- (SubCanvasSpec
- name: 'Bookmarks'
- layout: (LayoutFrame 13 0 0 0 0 1 0 1)
- level: 1
- hasHorizontalScrollBar: false
- hasVerticalScrollBar: false
- miniScrollerHorizontal: false
- majorKey: BookmarkBar
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: bookmarkHolder
- aspect: bookmarkHolder
- )
- (SubChannelInfoSpec
- subAspect: bookmarksHolder
- aspect: bookmarkListHolder
- )
- )
- createNewApplication: true
- createNewBuilder: true
- )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'BookmarkBar'
+ layout: (LayoutFrame 0 0 40 0 0 1 66 0)
+ visibilityChannel: bookmarkBarVisibleHolder
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'hideToolBarIcon'
+ name: 'Button1'
+ layout: (LayoutFrame 0 0 0 0 13 0 0 1)
+ activeHelpKey: hideBookmarks
+ hasCharacterOrientedLabel: false
+ translateLabel: true
+ model: hideBookmarkBar
+ postBuildCallback: hideToolBarButtonCreated:
+ )
+ (SubCanvasSpec
+ name: 'Bookmarks'
+ layout: (LayoutFrame 13 0 0 0 0 1 0 1)
+ level: 1
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ miniScrollerHorizontal: false
+ majorKey: BookmarkBar
+ subAspectHolders:
+ (Array
+
+ (SubChannelInfoSpec
+ subAspect: bookmarkHolder
+ aspect: bookmarkHolder
+ )
+ (SubChannelInfoSpec
+ subAspect: bookmarksHolder
+ aspect: bookmarkListHolder
+ )
+ )
+ createNewApplication: true
+ createNewBuilder: true
)
-
- )
- )
- (ViewSpec
- name: 'FilenameEntryFieldBox'
- layout: (LayoutFrame 0 0 67 0 0 1 92 0)
- "/ level: 0
- visibilityChannel: filenameEntryFieldVisibleHolder
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'hideFilenameEntryFieldIcon'
- name: 'HideFilenameEntryFieldButton'
- layout: (LayoutFrame 0 0 0 0 13 0 0 1)
- activeHelpKey: hideFilenameEntryField
- hasCharacterOrientedLabel: false
- translateLabel: true
- model: hideFilenameEntryField
- postBuildCallback: hideFilenameEntryFieldButtonCreated:
- )
- (HorizontalPanelViewSpec
- name: 'HorizontalPanel1'
- layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
- level: 1
- horizontalLayout: leftFit
- verticalLayout: fit
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ComboListSpec
- name: 'ComboList1'
- visibilityChannel: driveSelectorVisible
- model: selectedDeviceDrive
- comboList: listOfDeviceDrives
- useIndex: false
- hidePullDownMenuButton: false
- extent: (Point 53 23)
- )
- (VariableHorizontalPanelSpec
- name: 'VariableHorizontalPanel1'
- level: 0
- showHandle: true
- component:
- (SpecCollection
- collection: (
- (NonScrollableArbitraryComponentSpec
- name: 'NonScrollableArbitraryComponent1'
- component: FilenameEditFieldV2
- postBuildCallback: postBuildEditField:
- )
- (ViewSpec
- name: 'FilterBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Filter:'
- name: 'Filter'
- layout: (LayoutFrame 0 0 0 0 40 0 0 1)
- translateLabel: true
- adjust: left
- postBuildCallback: postBuildPathViewBox:
- )
- (ComboBoxSpec
- name: 'FilterSelectionBox'
- layout: (LayoutFrame 40 0 0 0 0 1 0 1)
- model: filterModel
- immediateAccept: true
- acceptOnPointerLeave: false
- comboList: filterListModel
- )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'FilenameEntryFieldBox'
+ layout: (LayoutFrame 0 0 67 0 0 1 92 0)
+ visibilityChannel: filenameEntryFieldVisibleHolder
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'hideFilenameEntryFieldIcon'
+ name: 'HideFilenameEntryFieldButton'
+ layout: (LayoutFrame 0 0 0 0 13 0 0 1)
+ activeHelpKey: hideFilenameEntryField
+ hasCharacterOrientedLabel: false
+ translateLabel: true
+ model: hideFilenameEntryField
+ postBuildCallback: hideFilenameEntryFieldButtonCreated:
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
+ level: 1
+ horizontalLayout: leftFit
+ verticalLayout: fit
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ComboListSpec
+ name: 'ComboList1'
+ visibilityChannel: driveSelectorVisible
+ model: selectedDeviceDrive
+ comboList: listOfDeviceDrives
+ useIndex: false
+ hidePullDownMenuButton: false
+ extent: (Point 53 23)
+ )
+ (VariableHorizontalPanelSpec
+ name: 'VariableHorizontalPanel1'
+ level: 0
+ showHandle: true
+ component:
+ (SpecCollection
+ collection: (
+ (NonScrollableArbitraryComponentSpec
+ name: 'NonScrollableArbitraryComponent1'
+ component: FilenameEditFieldV2
+ postBuildCallback: postBuildEditField:
+ )
+ (ViewSpec
+ name: 'FilterBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Filter:'
+ name: 'Filter'
+ layout: (LayoutFrame 0 0 0 0 40 0 0 1)
+ translateLabel: true
+ adjust: left
+ postBuildCallback: postBuildPathViewBox:
)
-
- )
- postBuildCallback: postBuildPathViewBox:
- )
+ (ComboBoxSpec
+ name: 'FilterSelectionBox'
+ layout: (LayoutFrame 40 0 0 0 0 1 0 1)
+ model: filterModel
+ immediateAccept: true
+ acceptOnPointerLeave: false
+ comboList: filterListModel
+ )
+ )
+
+ )
+ postBuildCallback: postBuildPathViewBox:
)
-
- )
- handles: (Any 0.774936 1.0)
- postBuildCallback: postBuildPathViewBox:
- useDefaultExtent: true
- )
+ )
+
+ )
+ handles: (Any 0.77493599999999996 1.0)
+ postBuildCallback: postBuildPathViewBox:
+ useDefaultExtent: true
)
-
- )
- postBuildCallback: postBuildPathViewBox:
- )
+ )
+
+ )
+ postBuildCallback: postBuildPathViewBox:
)
-
- )
- )
- (#'FileBrowserV2UISpecifications::PanelSpec'
- name: 'BrowserBox'
- layout: (LayoutFrame 0 0.0 92 0.0 0 1.0 -26 1.0)
- level: 0
- showHandle: true
- snapMode: both
- whichView: last
- orientation: vertical
- visibility: viewNoteBookApplicationHolder
- component:
- (SpecCollection
- collection: (
- (#'FileBrowserV2UISpecifications::PanelSpec'
- name: 'HorizontalPanel'
- level: 0
- snapMode: both
- whichView: first
- orientation: horizontal
- visibility: showDirectoryTree
- component:
- (SpecCollection
- collection: (
- (SubCanvasSpec
- name: 'DirectoryTreeBrowser'
- hasHorizontalScrollBar: false
- hasVerticalScrollBar: false
- majorKey: DirectoryTreeBrowser
- createNewApplication: true
- createNewBuilder: true
- postBuildCallback: postBuildDirectoryTree:
- )
- (SubCanvasSpec
- name: 'DirectoryContentsBrowser'
- hasHorizontalScrollBar: false
- hasVerticalScrollBar: false
- majorKey: DirectoryContentsBrowser
- createNewApplication: true
- createNewBuilder: true
- )
+ )
+
+ )
+ )
+ (#'FileBrowserV2UISpecifications::PanelSpec'
+ name: 'BrowserBox'
+ layout: (LayoutFrame 0 0.0 92 0.0 0 1.0 -26 1.0)
+ level: 0
+ showHandle: true
+ snapMode: both
+ whichView: last
+ orientation: vertical
+ visibility: viewNoteBookApplicationHolder
+ component:
+ (SpecCollection
+ collection: (
+ (#'FileBrowserV2UISpecifications::PanelSpec'
+ name: 'HorizontalPanel'
+ level: 0
+ snapMode: both
+ whichView: first
+ orientation: horizontal
+ visibility: showDirectoryTree
+ component:
+ (SpecCollection
+ collection: (
+ (SubCanvasSpec
+ name: 'DirectoryTreeBrowser'
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: DirectoryTreeBrowser
+ createNewApplication: true
+ createNewBuilder: true
+ postBuildCallback: postBuildDirectoryTree:
+ )
+ (SubCanvasSpec
+ name: 'DirectoryContentsBrowser'
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: DirectoryContentsBrowser
+ createNewApplication: true
+ createNewBuilder: true
)
-
- )
- handles: (Any 0.225 1.0)
- )
- (SubCanvasSpec
- name: 'FileApplicationNoteBook'
- tabable: false
- hasHorizontalScrollBar: false
- hasVerticalScrollBar: false
- majorKey: FileApplicationNoteBook
- createNewApplication: true
- createNewBuilder: true
- )
+ )
+
+ )
+ handles: (Any 0.22500000000000001 1.0)
+ )
+ (SubCanvasSpec
+ name: 'FileApplicationNoteBook'
+ tabable: false
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: FileApplicationNoteBook
+ createNewApplication: true
+ createNewBuilder: true
+ )
+ )
+
+ )
+ handles: (Any 0.5 1.0)
+ )
+ (ViewSpec
+ name: 'InfoBox'
+ layout: (LayoutFrame 0 0 -26 1 0 1 0 1)
+ level: 0
+ visibilityChannel: infoBarVisibleHolder
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'NotifyLabel'
+ name: 'NotifyLabel'
+ layout: (LayoutFrame 0 0 1 0.0 -220 1 1 1.0)
+ level: -1
+ translateLabel: true
+ labelChannel: notifyChannel
+ adjust: left
+ )
+ (LabelSpec
+ label: 'encoding'
+ name: 'EncodingLabel'
+ layout: (LayoutFrame -318 1 2 0.0 -235 1 0 1.0)
+ activeHelpKey: encodingLabel
+ level: 0
+ labelChannel: fileEncodingHolder
+ adjust: right
+ menu: encodingMenu
+ )
+ (LabelSpec
+ name: 'FileEncodingLockedLabel'
+ layout: (LayoutFrame -235 1 2 0.0 -220 1 20 0.0)
+ activeHelpKey: encodingLockedLabel
+ level: 0
+ labelChannel: fileEncodingLockImageHolder
+ adjust: right
+ menu: encodingMenu
)
-
- )
- handles: (Any 0.5 1.0)
- )
- (ViewSpec
- name: 'InfoBox'
- layout: (LayoutFrame 0 0 -26 1 0 1 0 1)
- level: 0
- visibilityChannel: infoBarVisibleHolder
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'NotifyLabel'
- name: 'NotifyLabel'
- layout: (LayoutFrame 0 0 1 0.0 -220 1 1 1.0)
- level: -1
- translateLabel: true
- labelChannel: notifyChannel
- adjust: left
- )
- (LabelSpec
- label: 'encoding'
- name: 'EncodingLabel'
- layout: (LayoutFrame -318 1 2 0.0 -235 1 0 1.0)
- activeHelpKey: encodingLabel
- level: 0
- labelChannel: fileEncodingHolder
- adjust: right
- menu: encodingMenu
- )
- (LabelSpec
- name: 'FileEncodingLockedLabel'
- layout: (LayoutFrame -235 1 2 0.0 -220 1 20 0.0)
- activeHelpKey: encodingLockedLabel
- level: 0
- labelChannel: fileEncodingLockImageHolder
- adjust: right
- menu: encodingMenu
- )
- (LabelSpec
- label: 'Shown Files'
- name: 'ShownFilesLabel'
- layout: (LayoutFrame -220 1 1 0.0 -65 1 1 1.0)
- activeHelpKey: numberOfFiles
- level: -1
- translateLabel: true
- labelChannel: shownFiles
- adjust: right
- )
- (ViewSpec
- name: 'ProgressIndicatorBox'
- layout: (LayoutFrame -220 1 1 0.0 -65 1 1 1.0)
- level: -1
- visibilityChannel: activityVisibilityChannel
- component:
- (SpecCollection
- collection: (
- (ProgressIndicatorSpec
- name: 'ProgressIndicator1'
- layout: (LayoutFrame 5 0.0 -7 0.5 -5 1.0 7 0.5)
- backgroundColor: (Color 0.0 66.6666666666667 66.6666666666667)
- isActivityIndicator: true
- )
+ (LabelSpec
+ label: 'Shown Files'
+ name: 'ShownFilesLabel'
+ layout: (LayoutFrame -220 1 1 0.0 -65 1 1 1.0)
+ activeHelpKey: numberOfFiles
+ level: -1
+ translateLabel: true
+ labelChannel: shownFiles
+ adjust: right
+ )
+ (ViewSpec
+ name: 'ProgressIndicatorBox'
+ layout: (LayoutFrame -220 1 1 0.0 -65 1 1 1.0)
+ level: -1
+ visibilityChannel: activityVisibilityChannel
+ component:
+ (SpecCollection
+ collection: (
+ (ProgressIndicatorSpec
+ name: 'ProgressIndicator1'
+ layout: (LayoutFrame 5 0.0 -7 0.5 -5 1.0 7 0.5)
+ backgroundColor: (Color 0.0 66.666666666666671 66.666666666666671)
+ isActivityIndicator: true
)
-
- )
- )
- (LabelSpec
- name: 'BusyLabel'
- layout: (LayoutFrame -220 1 1 0.0 -65 1 1 1.0)
- activeHelpKey: modeLabel
- level: -1
- visibilityChannel: busyLabelVisibleHolder
- translateLabel: true
- labelChannel: busyLabelHolder
- adjust: right
- )
- (LabelSpec
- label: 'M'
- name: 'ModeLabel'
- layout: (LayoutFrame -65 1 1 0.0 -55 1 1 1.0)
- activeHelpKey: modeLabel
- level: -1
- translateLabel: true
- labelChannel: modeLabelHolder
- adjust: right
- postBuildCallback: postBuildEditModeInfoLabel:
- )
- (LabelSpec
- label: 'L'
- name: 'LineLabel'
- layout: (LayoutFrame -55 1 1 0.0 -20 1 1 1.0)
- activeHelpKey: lineLabel
- level: -1
- translateLabel: true
- labelChannel: cursorLineLabelHolder
- adjust: right
- )
- (LabelSpec
- label: 'C'
- name: 'ColLabel'
- layout: (LayoutFrame -20 1 1 0.0 0 1 1 1.0)
- activeHelpKey: columnLabel
- level: -1
- translateLabel: true
- labelChannel: cursorColLabelHolder
- adjust: right
- )
+ )
+
+ )
+ )
+ (LabelSpec
+ name: 'BusyLabel'
+ layout: (LayoutFrame -220 1 1 0.0 -65 1 1 1.0)
+ activeHelpKey: modeLabel
+ level: -1
+ visibilityChannel: busyLabelVisibleHolder
+ translateLabel: true
+ labelChannel: busyLabelHolder
+ adjust: right
+ )
+ (LabelSpec
+ label: 'M'
+ name: 'ModeLabel'
+ layout: (LayoutFrame -65 1 1 0.0 -55 1 1 1.0)
+ activeHelpKey: modeLabel
+ level: -1
+ translateLabel: true
+ labelChannel: modeLabelHolder
+ adjust: right
+ postBuildCallback: postBuildEditModeInfoLabel:
+ )
+ (LabelSpec
+ label: 'L'
+ name: 'LineLabel'
+ layout: (LayoutFrame -55 1 1 0.0 -20 1 1 1.0)
+ activeHelpKey: lineLabel
+ level: -1
+ translateLabel: true
+ labelChannel: cursorLineLabelHolder
+ adjust: right
)
-
- )
- )
- (LabelSpec
- label: 'Preview'
- name: 'PreviewLabel'
- layout: (LayoutFrame 0 0.5 93 0 100 0.5 115 0)
- level: 0
- borderWidth: 1
- visibilityChannel: previewVisibleHolder
- backgroundColor: (Color 86.9993133440147 86.9993133440147 86.9993133440147)
- translateLabel: true
- )
- (ArbitraryComponentSpec
- name: 'Preview'
- layout: (LayoutFrame 0 0.5 116 0 -147 1 -266 1)
- level: 1
- visibilityChannel: previewVisibleHolder
- hasBorder: false
- component: ImageView
- )
- (ActionButtonSpec
- label: 'closePreviewButtonImage'
- name: 'ClosePreviewButton'
- layout: (LayoutFrame -169 1 94 0 -147 1 116 0)
- visibilityChannel: previewVisibleHolder
- hasCharacterOrientedLabel: false
- translateLabel: true
- )
+ (LabelSpec
+ label: 'C'
+ name: 'ColLabel'
+ layout: (LayoutFrame -20 1 1 0.0 0 1 1 1.0)
+ activeHelpKey: columnLabel
+ level: -1
+ translateLabel: true
+ labelChannel: cursorColLabelHolder
+ adjust: right
+ )
+ )
+
+ )
+ keepSpaceForOSXResizeHandleH: true
)
-
- )
- )
+ (LabelSpec
+ label: 'Preview'
+ name: 'PreviewLabel'
+ layout: (LayoutFrame 0 0.5 93 0 100 0.5 115 0)
+ level: 0
+ borderWidth: 1
+ visibilityChannel: previewVisibleHolder
+ backgroundColor: (Color 86.999313344014652 86.999313344014652 86.999313344014652)
+ translateLabel: true
+ )
+ (ArbitraryComponentSpec
+ name: 'Preview'
+ layout: (LayoutFrame 0 0.5 116 0 -147 1 -266 1)
+ level: 1
+ visibilityChannel: previewVisibleHolder
+ hasBorder: false
+ component: ImageView
+ )
+ (ActionButtonSpec
+ label: 'closePreviewButtonImage'
+ name: 'ClosePreviewButton'
+ layout: (LayoutFrame -169 1 94 0 -147 1 116 0)
+ visibilityChannel: previewVisibleHolder
+ hasCharacterOrientedLabel: false
+ translateLabel: true
+ )
+ )
+
+ )
+ )
! !
!FileBrowserV2 class methodsFor:'menu specs'!
@@ -2587,11 +2587,11 @@
!FileBrowserV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.223 2014-07-03 16:09:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.224 2014-07-05 08:15:06 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.223 2014-07-03 16:09:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.224 2014-07-05 08:15:06 cg Exp $'
! !