#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Sat, 17 Nov 2018 00:40:25 +0100
changeset 18527 73668c197c16
parent 18526 eee03612c7d2
child 18528 1f4c7873dc21
#FEATURE by cg class: FileDialog class changed: #windowSpec
FileDialog.st
--- a/FileDialog.st	Fri Nov 16 16:14:30 2018 +0100
+++ b/FileDialog.st	Sat Nov 17 00:40:25 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -794,10 +792,12 @@
     ^ 
     #(FullSpec
        name: windowSpec
+       uuid: '7a45b8ee-e9f6-11e8-8cdd-b8f6b1108e05'
        window: 
       (WindowSpec
          label: 'FileDialog'
          name: 'FileDialog'
+         uuid: '686277b6-e9f6-11e8-8cdd-b8f6b1108e05'
          min: (Point 10 10)
          bounds: (Rectangle 0 0 460 482)
          menu: mainMenu
@@ -809,6 +809,7 @@
           (VerticalPanelViewSpec
              name: 'FilePanel'
              layout: (LayoutFrame 0 0 0 0 0 1 -40 1)
+             uuid: '6862e00c-e9f6-11e8-8cdd-b8f6b1108e05'
              horizontalLayout: fit
              verticalLayout: bottomFit
              horizontalSpace: 0
@@ -819,12 +820,14 @@
                collection: (
                 (ViewSpec
                    name: 'FilePart'
+                   uuid: '6862e340-e9f6-11e8-8cdd-b8f6b1108e05'
                    component: 
                   (SpecCollection
                      collection: (
                       (MenuPanelSpec
                          name: 'ToolBar1'
                          layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 40 0)
+                         uuid: '6862e46c-e9f6-11e8-8cdd-b8f6b1108e05'
                          tabable: true
                          menu: toolBarMenu
                          textDefault: true
@@ -832,6 +835,7 @@
                       (VariableHorizontalPanelSpec
                          name: 'DeviceAndFilterPanel'
                          layout: (LayoutFrame 0 0 40 0 0 1 70 0)
+                         uuid: '6862e674-e9f6-11e8-8cdd-b8f6b1108e05'
                          level: 1
                          showHandle: true
                          component: 
@@ -839,12 +843,14 @@
                            collection: (
                             (ViewSpec
                                name: 'Box1'
+                               uuid: '6862e7f0-e9f6-11e8-8cdd-b8f6b1108e05'
                                component: 
                               (SpecCollection
                                  collection: (
                                   (ComboListSpec
                                      name: 'ComboList1'
                                      layout: (LayoutFrame 1 0 1 0.0 -1 1 -1 1)
+                                     uuid: '6862e9e4-e9f6-11e8-8cdd-b8f6b1108e05'
                                      visibilityChannel: driveSelectorVisible
                                      model: selectedDeviceDrive
                                      comboList: listOfDeviceDrives
@@ -857,6 +863,7 @@
                              )
                             (ViewSpec
                                name: 'Box2'
+                               uuid: '6862ec82-e9f6-11e8-8cdd-b8f6b1108e05'
                                component: 
                               (SpecCollection
                                  collection: (
@@ -864,12 +871,14 @@
                                      label: 'Filter:'
                                      name: 'FilterLabel'
                                      layout: (LayoutFrame 1 0 2 0 59 0 -2 1)
+                                     uuid: '6862ed9a-e9f6-11e8-8cdd-b8f6b1108e05'
                                      translateLabel: true
                                      adjust: right
                                    )
                                   (InputFieldSpec
                                      name: 'FilterEntryField'
                                      layout: (LayoutFrame 60 0 -27 1 -2 1 -2 1)
+                                     uuid: '6862ef8e-e9f6-11e8-8cdd-b8f6b1108e05'
                                      model: filterHolder
                                      immediateAccept: true
                                      acceptOnReturn: true
@@ -890,6 +899,7 @@
                       (SubCanvasSpec
                          name: 'DirectoryTreeBrowser'
                          layout: (LayoutFrame 0 0.0 70 0 0 1.0 -34 1)
+                         uuid: '6862f1d2-e9f6-11e8-8cdd-b8f6b1108e05'
                          tabable: true
                          hasHorizontalScrollBar: false
                          hasVerticalScrollBar: false
@@ -919,6 +929,7 @@
                          label: 'Filename:'
                          name: 'FilenameLabel'
                          layout: (LayoutFrame 3 0 -28 1 110 0 -1 1)
+                         uuid: '6862f5b0-e9f6-11e8-8cdd-b8f6b1108e05'
                          translateLabel: true
                          labelChannel: filenameLabelHolder
                          adjust: left
@@ -926,6 +937,7 @@
                       (FilenameInputFieldSpec
                          name: 'FilenameEntryField'
                          layout: (LayoutFrame 110 0 -28 1 -2 1 -1 1)
+                         uuid: '6862f6be-e9f6-11e8-8cdd-b8f6b1108e05'
                          tabable: true
                          model: filenameHolder
                          immediateAccept: false
@@ -946,6 +958,7 @@
           (HorizontalPanelViewSpec
              name: 'ButtonPanel'
              layout: (LayoutFrame 0 0.0 -34 1 -16 1 0 1)
+             uuid: '6862f89e-e9f6-11e8-8cdd-b8f6b1108e05'
              visibilityChannel: buttonPanelVisibleHolder
              horizontalLayout: fitSpace
              verticalLayout: center
@@ -958,35 +971,35 @@
                 (ActionButtonSpec
                    label: 'Cancel'
                    name: 'cancelButton'
+                   uuid: '6862f9e8-e9f6-11e8-8cdd-b8f6b1108e05'
                    translateLabel: true
                    labelChannel: cancelLabelHolder
                    tabable: true
                    model: doCancel
-                   extent: (Point 142 32)
-                   usePreferredHeight: true
+                   extent: (Point 143 30)
                  )
                 (ActionButtonSpec
                    label: 'Append'
                    name: 'appendButton'
+                   uuid: '6862fba0-e9f6-11e8-8cdd-b8f6b1108e05'
                    visibilityChannel: appendButtonVisibleHolder
                    translateLabel: true
                    labelChannel: appendLabelHolder
                    tabable: true
                    model: appendPressed
-                   extent: (Point 143 32)
-                   usePreferredHeight: true
+                   extent: (Point 144 30)
                  )
                 (ActionButtonSpec
                    label: 'OK'
                    name: 'okButton'
+                   uuid: '6862fce0-e9f6-11e8-8cdd-b8f6b1108e05'
                    translateLabel: true
                    labelChannel: okLabelHolder
                    tabable: true
                    model: okPressed
                    enableChannel: okLabelEnabled
                    isDefault: true
-                   extent: (Point 143 32)
-                   usePreferredHeight: true
+                   extent: (Point 144 30)
                  )
                 )