added dismiss button
authorClaus Gittinger <cg@exept.de>
Thu, 02 Oct 1997 13:33:34 +0200
changeset 323 8b98ae257e5c
parent 322 15310b9a9b27
child 324 2898d6c12330
added dismiss button
UISelectionPanel.st
--- a/UISelectionPanel.st	Sun Sep 21 01:04:50 1997 +0200
+++ b/UISelectionPanel.st	Thu Oct 02 13:33:34 1997 +0200
@@ -340,11 +340,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Buttons'
-              #'layout:' #(#LayoutFrame 96 0 48 0 574 0 247 0)
+              #'layout:' #(#LayoutFrame 104 0 416 0 582 0 615 0)
               #'label:' 'Buttons'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1280 1024)
-              #'bounds:' #(#Rectangle 96 48 575 248)
+              #'bounds:' #(#Rectangle 104 416 583 616)
           )
           #'component:' 
            #(#SpecCollection
@@ -425,9 +425,17 @@
                     #'label:' 'help'
                     #'model:' #help
                 )
+                 #(#ActionButtonSpec
+                    #'name:' 'actionButton1'
+                    #'layout:' #(#LayoutFrame 20 0 139 0 119 0 161 0)
+                    #'label:' 'dismiss'
+                    #'model:' #closeRequest
+                )
               )
           )
       )
+
+    "Modified: 2.10.1997 / 12:32:19 / cg"
 !
 
 standardCanvas