#BUGFIX by cg draft
authorClaus Gittinger <cg@exept.de>
Wed, 13 Sep 2017 10:15:21 +0200
changeset 3490 e3b6106384a8
parent 3489 ed003c06c33b
child 3491 c1333ee85336
#BUGFIX by cg class: FileSelectionBrowser class changed: #loadImageFileNameFilters #windowSpec
FileSelectionBrowser.st
--- 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'!