FilenameInputField added
authorClaus Gittinger <cg@exept.de>
Sun, 03 Sep 2000 18:43:57 +0200
changeset 1408 c3cf368bccf1
parent 1407 5b6ce9f1988e
child 1409 176ae89e0b31
FilenameInputField added
UISelectionPanel.st
--- a/UISelectionPanel.st	Sun Sep 03 17:43:45 2000 +0200
+++ b/UISelectionPanel.st	Sun Sep 03 18:43:57 2000 +0200
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libtool2' }"
+
 ApplicationModel subclass:#UISelectionPanel
 	instanceVariableNames:'gallery userClass userSpecs userLabels majorSelection
 		clipBoardSpec'
@@ -1252,14 +1254,9 @@
        #(#WindowSpec
           #label: 'Texts'
           #name: 'Texts'
-          #layout: #(#LayoutFrame 164 0 305 0 602 0 447 0)
-          #level: 0
           #min: #(#Point 10 10)
           #max: #(#Point 1280 1024)
-          #bounds: #(#Rectangle 164 305 603 448)
-          #usePreferredExtent: false
-          #returnIsOKInDialog: true
-          #escapeIsCancelInDialog: true
+          #bounds: #(#Rectangle 12 22 451 202)
         )
         #component: 
        #(#SpecCollection
@@ -1279,6 +1276,12 @@
            #(#InputFieldSpec
               #name: 'Entry Field'
               #layout: #(#LayoutFrame 3 0 113 0 208 0 135 0)
+              #acceptOnPointerLeave: false
+            )
+           #(#FilenameInputFieldSpec
+              #name: 'Filename Entry Field'
+              #layout: #(#LayoutFrame 3 0 141 0 208 0 163 0)
+              #acceptOnPointerLeave: false
             )
            #(#LabelSpec
               #label: 'Label'