UIPainter.st
changeset 437 6317d2f08662
parent 394 1933896da0c3
child 440 1198f19712ff
--- a/UIPainter.st	Mon Jan 19 12:08:57 1998 +0100
+++ b/UIPainter.st	Mon Jan 19 12:57:09 1998 +0100
@@ -676,11 +676,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Tree-View'
-              #'layout:' #(#LayoutFrame 30 0 56 0 543 0 516 0)
+              #'layout:' #(#LayoutFrame 61 0 445 0 574 0 905 0)
               #'label:' 'Tree-View'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1160 870)
-              #'bounds:' #(#Rectangle 30 56 544 517)
+              #'bounds:' #(#Rectangle 61 445 575 906)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -707,7 +707,7 @@
                               #'tabable:' true
                               #'menu:' #menuChangeHierarchy
                               #'showSeparatingLines:' true
-                              #'extent:' #(#Point 103 32)
+                              #'extent:' #(#Point 120 30)
                           )
                            #(#MenuPanelSpec
                               #'name:' 'menuAlignment'
@@ -716,7 +716,7 @@
                               #'tabable:' true
                               #'menu:' #menuAlignment
                               #'showSeparatingLines:' true
-                              #'extent:' #(#Point 233 32)
+                              #'extent:' #(#Point 244 30)
                           )
                            #(#HorizontalPanelViewSpec
                               #'name:' 'panelViewButtons'
@@ -831,7 +831,7 @@
                                                             #'tabable:' true
                                                             #'model:' #cancel
                                                             #'enableChannel:' #modifiedChannel
-                                                            #'extent:' #(#Point 164 24)
+                                                            #'extent:' #(#Point 166 24)
                                                         )
                                                          #(#ActionButtonSpec
                                                             #'name:' 'acceptButton'
@@ -840,7 +840,7 @@
                                                             #'tabable:' true
                                                             #'model:' #accept
                                                             #'enableChannel:' #modifiedChannel
-                                                            #'extent:' #(#Point 165 24)
+                                                            #'extent:' #(#Point 167 24)
                                                         )
                                                       )
                                                   )
@@ -872,8 +872,6 @@
               )
           )
       )
-
-    "Modified: / 31.10.1997 / 18:35:20 / cg"
 ! !
 
 !UIPainter class methodsFor:'menu specs'!
@@ -898,78 +896,67 @@
            #(
              #(#MenuItem
                 #'label:' 'align left'
+                #'isButton:' true
                 #'value:' #alignSelectionLeft
                 #'activeHelpKey:' #alignSelectionLeft
-                #'labelImage:' 
-                 #(#ResourceRetriever
-                    nil #iconAlignL
-                )
+                #'labelImage:' #(#ResourceRetriever nil #iconAlignL)
             )
              #(#MenuItem
                 #'label:' 'align right'
+                #'isButton:' true
                 #'value:' #alignSelectionRight
                 #'activeHelpKey:' #alignSelectionRight
-                #'labelImage:' 
-                 #(#ResourceRetriever
-                    nil #iconAlignR
-                )
+                #'labelImage:' #(#ResourceRetriever nil #iconAlignR)
             )
              #(#MenuItem
                 #'label:' 'align left & right'
+                #'isButton:' true
                 #'value:' #alignSelectionLeftAndRight
                 #'activeHelpKey:' #alignSelectionLeftAndRight
-                #'labelImage:' 
-                 #(#ResourceRetriever
-                    nil #iconAlignLR
-                )
+                #'labelImage:' #(#ResourceRetriever nil #iconAlignLR)
+            )
+             #(#MenuItem
+                #'label:' '-'
             )
              #(#MenuItem
                 #'label:' 'align top'
+                #'isButton:' true
                 #'value:' #alignSelectionTop
                 #'activeHelpKey:' #alignSelectionTop
-                #'labelImage:' 
-                 #(#ResourceRetriever
-                    nil #iconAlignT
-                )
+                #'labelImage:' #(#ResourceRetriever nil #iconAlignT)
             )
              #(#MenuItem
                 #'label:' 'align bottom'
+                #'isButton:' true
                 #'value:' #alignSelectionBottom
                 #'activeHelpKey:' #alignSelectionBottom
-                #'labelImage:' 
-                 #(#ResourceRetriever
-                    nil #iconAlignB
-                )
+                #'labelImage:' #(#ResourceRetriever nil #iconAlignB)
             )
              #(#MenuItem
                 #'label:' 'align top & bottom'
+                #'isButton:' true
                 #'value:' #alignSelectionTopAndBottom
                 #'activeHelpKey:' #alignSelectionTopAndBottom
-                #'labelImage:' 
-                 #(#ResourceRetriever
-                    nil #iconAlignTB
-                )
+                #'labelImage:' #(#ResourceRetriever nil #iconAlignTB)
+            )
+             #(#MenuItem
+                #'label:' '-'
             )
              #(#MenuItem
                 #'label:' 'align centered horizontal'
+                #'isButton:' true
                 #'value:' #alignSelectionCenterHor
                 #'activeHelpKey:' #alignSelectionCenterHor
-                #'labelImage:' 
-                 #(#ResourceRetriever
-                    nil #iconAlignCenterH
-                )
+                #'labelImage:' #(#ResourceRetriever nil #iconAlignCenterH)
             )
              #(#MenuItem
                 #'label:' 'align centered vertical'
+                #'isButton:' true
                 #'value:' #alignSelectionCenterVer
                 #'activeHelpKey:' #alignSelectionCenterVer
-                #'labelImage:' 
-                 #(#ResourceRetriever
-                    nil #iconAlignCenterV
-                )
+                #'labelImage:' #(#ResourceRetriever nil #iconAlignCenterV)
             )
-          )
-          #( 3 3 )
+          ) nil
           nil
       )
 !
@@ -1248,22 +1235,26 @@
            #(
              #(#MenuItem
                 #'label:' 'stepUp'
+                #'isButton:' true
                 #'value:' #doStepUp
                 #'labelImage:' #(#ResourceRetriever #UIPainter #iconStepUp)
             )
              #(#MenuItem
                 #'label:' 'stepDown'
+                #'isButton:' true
                 #'value:' #doStepDown
                 #'labelImage:' #(#ResourceRetriever #UIPainter #iconStepDown)
             )
              #(#MenuItem
                 #'label:' 'stepIn'
+                #'isButton:' true
                 #'value:' #doStepIn
                 #'enabled:' #canMoveSelectionIntoContainer
                 #'labelImage:' #(#ResourceRetriever #UIPainter #iconStepIn)
             )
              #(#MenuItem
                 #'label:' 'stepOut'
+                #'isButton:' true
                 #'value:' #doStepOut
                 #'enabled:' #canMoveSelectionOutOfContainer
                 #'labelImage:' #(#ResourceRetriever #UIPainter #iconStepOut)