--- a/FileBrowserV2.st Thu Oct 30 14:36:10 2003 +0100
+++ b/FileBrowserV2.st Thu Oct 30 16:14:36 2003 +0100
@@ -470,278 +470,278 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: #FileBrowser
- #name: #FileBrowser
- #min: #(#Point 10 10)
- #bounds: #(#Rectangle 16 52 816 652)
- #menu: #mainMenu
- #icon: #applicationIcon
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: FileBrowser
+ name: FileBrowser
+ min: (Point 10 10)
+ bounds: (Rectangle 16 42 1113 635)
+ menu: mainMenu
+ icon: applicationIcon
)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'FilenameEntryFieldBox'
- #layout: #(#LayoutFrame 0 0 30 0 0 1 55 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:
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'FilenameEntryFieldBox'
+ layout: (LayoutFrame 0 0 30 0 0 1 55 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: #left
- #verticalLayout: #fit
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ComboListSpec
- #name: 'ComboList1'
- #visibilityChannel: #driveSelectorVisible
- #model: #selectedDeviceDrive
- #comboList: #listOfDeviceDrives
- #useIndex: false
- #extent: #(#Point 100 23)
+ (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
+ extent: (Point 53 23)
)
- #(#VariableHorizontalPanelSpec
- #name: 'VariableHorizontalPanel1'
- #level: 0
- #showHandle: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#NonScrollableArbitraryComponentSpec
- #name: 'NonScrollableArbitraryComponent1'
- #component: #FilenameEditFieldV2
- #postBuildCallback: #postBuildEditField:
+ (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:
+ (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
+ (ComboBoxSpec
+ name: 'FilterSelectionBox'
+ layout: (LayoutFrame 40 0 0 0 0 1 0 1)
+ model: filterModel
+ immediateAccept: true
+ acceptOnPointerLeave: false
+ comboList: filterListModel
)
)
)
- #postBuildCallback: #postBuildPathViewBox:
+ postBuildCallback: postBuildPathViewBox:
)
)
)
- #extent: #(#Point 783 23)
- #handles: #(#Any 0.770115 1.0)
- #postBuildCallback: #postBuildPathViewBox:
+ handles: (Any 0.774936 1.0)
+ postBuildCallback: postBuildPathViewBox:
+ useDefaultExtent: true
)
)
)
- #postBuildCallback: #postBuildPathViewBox:
+ postBuildCallback: postBuildPathViewBox:
)
)
)
)
- #(#'FileBrowserV2UISpecifications::PanelSpec'
- #name: 'BrowserBox'
- #layout: #(#LayoutFrame 0 0.0 55 0.0 0 1.0 -20 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:
+ (#'FileBrowserV2UISpecifications::PanelSpec'
+ name: 'BrowserBox'
+ layout: (LayoutFrame 0 0.0 55 0.0 0 1.0 -20 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
+ (SubCanvasSpec
+ name: 'DirectoryContentsBrowser'
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: DirectoryContentsBrowser
+ createNewApplication: true
+ createNewBuilder: true
)
)
)
- #handles: #(#Any 0.225 1.0)
+ handles: (Any 0.225 1.0)
)
- #(#SubCanvasSpec
- #name: 'FileApplicationNoteBook'
- #tabable: false
- #hasHorizontalScrollBar: false
- #hasVerticalScrollBar: false
- #majorKey: #FileApplicationNoteBook
- #createNewApplication: true
- #createNewBuilder: true
+ (SubCanvasSpec
+ name: 'FileApplicationNoteBook'
+ tabable: false
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: FileApplicationNoteBook
+ createNewApplication: true
+ createNewBuilder: true
)
)
)
- #handles: #(#Any 0.5 1.0)
+ handles: (Any 0.5 1.0)
)
- #(#ViewSpec
- #name: 'Box2'
- #layout: #(#LayoutFrame 0 0 -20 1 0 1 0 1)
- #level: 0
- #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
- #style: #(#FontDescription #helvetica #medium #roman 10)
+ (ViewSpec
+ name: 'Box2'
+ layout: (LayoutFrame 0 0 -20 1 0 1 0 1)
+ level: 0
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'NotifyLabel'
+ name: 'NotifyLabel'
+ layout: (LayoutFrame 0 0 1 0.0 -220 1 1 1.0)
+ style: (FontDescription helvetica medium roman 10)
+ level: -1
+ translateLabel: true
+ labelChannel: notifyChannel
+ adjust: left
)
- #(#ProgressIndicatorSpec
- #name: 'ProgressIndicator1'
- #layout: #(#LayoutFrame -260 1 4 0 -220 1 -4 1)
- #visibilityChannel: #activityVisibilityChannel
- #backgroundColor: #(#Color 0.0 66.6667 66.6667)
- #isActivityIndicator: true
+ (ProgressIndicatorSpec
+ name: 'ProgressIndicator1'
+ layout: (LayoutFrame -260 1 4 0 -220 1 -4 1)
+ visibilityChannel: activityVisibilityChannel
+ backgroundColor: (Color 0.0 66.6667 66.6667)
+ isActivityIndicator: true
)
- #(#LabelSpec
- #label: 'Shown Files'
- #name: 'ShownFilesLabel'
- #layout: #(#LayoutFrame -220 1 1 0.0 -60 1 1 1.0)
- #level: -1
- #translateLabel: true
- #labelChannel: #shownFiles
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #right
+ (LabelSpec
+ label: 'Shown Files'
+ name: 'ShownFilesLabel'
+ layout: (LayoutFrame -220 1 1 0.0 -60 1 1 1.0)
+ style: (FontDescription helvetica medium roman 10)
+ level: -1
+ translateLabel: true
+ labelChannel: shownFiles
+ adjust: right
)
- #(#LabelSpec
- #label: 'M'
- #name: 'ModeLabel'
- #layout: #(#LayoutFrame -60 1 1 0.0 -50 1 1 1.0)
- #level: -1
- #translateLabel: true
- #labelChannel: #modeLabelHolder
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #right
+ (LabelSpec
+ label: 'M'
+ name: 'ModeLabel'
+ layout: (LayoutFrame -60 1 1 0.0 -50 1 1 1.0)
+ style: (FontDescription helvetica medium roman 10)
+ level: -1
+ translateLabel: true
+ labelChannel: modeLabelHolder
+ adjust: right
)
- #(#LabelSpec
- #label: 'L'
- #name: 'LineLabel'
- #layout: #(#LayoutFrame -50 1 1 0.0 -20 1 1 1.0)
- #level: -1
- #translateLabel: true
- #labelChannel: #cursorLineLabelHolder
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #right
+ (LabelSpec
+ label: 'L'
+ name: 'LineLabel'
+ layout: (LayoutFrame -50 1 1 0.0 -20 1 1 1.0)
+ style: (FontDescription helvetica medium roman 10)
+ 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)
- #level: -1
- #translateLabel: true
- #labelChannel: #cursorColLabelHolder
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #right
+ (LabelSpec
+ label: 'C'
+ name: 'ColLabel'
+ layout: (LayoutFrame -20 1 1 0.0 0 1 1 1.0)
+ style: (FontDescription helvetica medium roman 10)
+ level: -1
+ translateLabel: true
+ labelChannel: cursorColLabelHolder
+ adjust: right
)
)
)
)
- #(#LabelSpec
- #label: 'Preview'
- #name: 'PreviewLabel'
- #layout: #(#LayoutFrame 0 0.5 39 0 100 0.5 61 0)
- #level: 0
- #borderWidth: 1
- #visibilityChannel: #previewVisibleHolder
- #backgroundColor: #(#Color 86.9993 86.9993 86.9993)
- #translateLabel: true
+ (LabelSpec
+ label: 'Preview'
+ name: 'PreviewLabel'
+ layout: (LayoutFrame 0 0.5 39 0 100 0.5 61 0)
+ level: 0
+ borderWidth: 1
+ visibilityChannel: previewVisibleHolder
+ backgroundColor: (Color 86.9993 86.9993 86.9993)
+ translateLabel: true
)
- #(#ArbitraryComponentSpec
- #name: 'Preview'
- #layout: #(#LayoutFrame 0 0.5 63 0 -147 1 -319 1)
- #level: 1
- #visibilityChannel: #previewVisibleHolder
- #hasBorder: false
- #component: #ImageView
+ (ArbitraryComponentSpec
+ name: 'Preview'
+ layout: (LayoutFrame 0 0.5 63 0 -147 1 -319 1)
+ level: 1
+ visibilityChannel: previewVisibleHolder
+ hasBorder: false
+ component: ImageView
)
- #(#ViewSpec
- #name: 'ToolbarBox'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
- #level: 0
- #visibilityChannel: #toolBarVisibleHolder
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'hideToolBarIcon'
- #name: 'HideToolBarButton'
- #layout: #(#LayoutFrame 0 0 0 0 13 0 30 0)
- #activeHelpKey: #hideToolBar
- #hasCharacterOrientedLabel: false
- #translateLabel: true
- #model: #hideToolbar
- #postBuildCallback: #hideToolBarButtonCreated:
+ (ViewSpec
+ name: 'ToolbarBox'
+ layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+ level: 0
+ visibilityChannel: toolBarVisibleHolder
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'hideToolBarIcon'
+ name: 'HideToolBarButton'
+ layout: (LayoutFrame 0 0 0 0 13 0 30 0)
+ activeHelpKey: hideToolBar
+ hasCharacterOrientedLabel: false
+ translateLabel: true
+ model: hideToolbar
+ postBuildCallback: hideToolBarButtonCreated:
)
- #(#MenuPanelSpec
- #name: 'ToolBar'
- #layout: #(#LayoutFrame 13 0 0 0 0 1 30 0)
- #menu: #toolBarMainMenu
- #textDefault: true
+ (MenuPanelSpec
+ name: 'ToolBar'
+ layout: (LayoutFrame 13 0 0 0 0 1 30 0)
+ menu: toolBarMainMenu
+ textDefault: true
)
)
@@ -1614,7 +1614,7 @@
!FileBrowserV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.93 2003-10-15 09:38:49 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.94 2003-10-30 15:14:36 penk Exp $'
! !
FileBrowserV2 initialize!