--- a/FileSelectionBrowser.st Mon Sep 11 09:08:17 2017 +0200
+++ b/FileSelectionBrowser.st Wed Sep 13 10:15:21 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1997 by eXept Software AG
All Rights Reserved
@@ -196,11 +194,11 @@
loadImageFileNameFilters
^ OrderedCollection
withAll: #(
- '*.png ; *.gif ; *.bmp ; *.tif ; *.tiff ; *.xpm ; *.xbm ; *.jpeg ; *.jpg'
+ '*.png ; *.gif ; *.bmp ; *.tif ; *.tiff ; *.xpm ; *.xbm ; *.jpeg ; *.jpg ; *.ico'
'*'
)
- "Modified: / 12.9.1998 / 17:23:42 / cg"
+ "Modified: / 13-09-2017 / 10:06:23 / cg"
!
projectFileNameFilters
@@ -240,92 +238,94 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'File Selection Browser'
- #name: 'File Selection Browser'
- #min: #(#Point 10 10)
- #bounds: #(#Rectangle 18 51 618 401)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableHorizontalPanelSpec
- #name: 'panel'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'view1'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#FileSelectionTreeSpec
- #name: 'directoryTreeView'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
- #model: #selectionOfDirectory
- #menu: #treeMenu
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #showDirectoryIndicatorForRoot: false
- #showDirectoryIndicator: true
- #valueChangeSelector: #readDirectory
- #hierarchicalList: #rootOfDirectory
- #highlightMode: #line
- #itemClass: 'Directory'
- )
- #(#InputFieldSpec
- #name: 'directoryInputField'
- #layout: #(#LayoutFrame 2 0.0 -22 1 0 1.0 0 1)
- #model: #selectionOfDirectory
- #immediateAccept: false
- #acceptOnPointerLeave: false
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'File Selection Browser'
+ name: 'File Selection Browser'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 697 523)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VariableHorizontalPanelSpec
+ name: 'panel'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0)
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'view1'
+ component:
+ (SpecCollection
+ collection: (
+ (FileSelectionTreeSpec
+ name: 'directoryTreeView'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
+ model: selectionOfDirectory
+ menu: treeMenu
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ showDirectoryIndicatorForRoot: false
+ showDirectoryIndicator: true
+ valueChangeSelector: readDirectory
+ hierarchicalList: rootOfDirectory
+ highlightMode: line
+ itemClass: 'Directory'
)
-
- )
- )
- #(#ViewSpec
- #name: 'view2'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#InputFieldSpec
- #name: 'EditField'
- #layout: #(#LayoutFrame 1 0.0 -22 1 -2 1.0 0 1)
- #model: #valueOfFileName
- #acceptOnReturn: false
- #acceptOnTab: false
- #acceptOnPointerLeave: false
- )
- #(#SubCanvasSpec
- #name: 'subCanvas1'
- #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -25 1.0)
- #clientHolder: #directoryView
- )
+ (InputFieldSpec
+ name: 'directoryInputField'
+ layout: (LayoutFrame 2 0.0 -22 1 0 1.0 0 1)
+ model: selectionOfDirectory
+ immediateAccept: false
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'view2'
+ component:
+ (SpecCollection
+ collection: (
+ (InputFieldSpec
+ name: 'EditField'
+ layout: (LayoutFrame 1 0.0 -22 1 -2 1.0 0 1)
+ model: valueOfFileName
+ acceptOnReturn: false
+ acceptOnTab: false
+ acceptOnPointerLeave: false
)
-
- )
- )
+ (SubCanvasSpec
+ name: 'subCanvas1'
+ layout: (LayoutFrame 1 0.0 0 0.0 0 1.0 -25 1.0)
+ clientHolder: directoryView
+ createNewBuilder: false
+ )
+ )
+
+ )
)
-
- )
- #handles: #(#Any 0.5 1.0)
- )
- #(#UISubSpecification
- #name: 'SubSpecification'
- #layout: #(#LayoutFrame 2 0.0 -32 1 0 1.0 0 1.0)
- #majorKey: #ToolApplicationModel
- #minorKey: #windowSpecForCommitWithoutChannels
- )
+ )
+
+ )
+ handles: (Any 0.5 1.0)
)
-
- )
- )
+ (UISubSpecification
+ name: 'SubSpecification'
+ layout: (LayoutFrame 2 0.0 -37 1 -16 1.0 0 1.0)
+ majorKey: ToolApplicationModel
+ minorKey: windowSpecForCommitWithoutChannels
+ keepSpaceForOSXResizeHandleH: true
+ )
+ )
+
+ )
+ )
! !
!FileSelectionBrowser class methodsFor:'menu specs'!