# HG changeset patch
# User ca
# Date 1020832622 -7200
# Node ID 3282f44c5ca4721e7dc85d3becaac2907d862927
# Parent  0833cfacf787eba079a3e42c2578025f7eaf0fb3
*** empty log message ***

diff -r 0833cfacf787 -r 3282f44c5ca4 UIPainter.st
--- a/UIPainter.st	Tue May 07 12:06:58 2002 +0200
+++ b/UIPainter.st	Wed May 08 06:37:02 2002 +0200
@@ -842,7 +842,7 @@
           #name: 'GUI Painter'
           #min: #(#Point 560 460)
           #max: #(#Point 1160 870)
-          #bounds: #(#Rectangle 16 46 624 569)
+          #bounds: #(#Rectangle 9 298 617 821)
           #menu: #menu
         )
         #component: 
@@ -881,76 +881,9 @@
                        #(#MenuPanelSpec
                           #name: 'menuToolbar2View'
                           #layout: #(#LayoutFrame -1 0.0 -2 0 -1 1.0 30 0)
-                          #enableChannel: #canMoveOrAlignSelection
                           #tabable: true
                           #menu: #menuToolbar2
                         )
-                       #(#HorizontalPanelViewSpec
-                          #name: 'horizontalPanelView1'
-                          #layout: #(#LayoutFrame -163 1 -1 0 -35 1.0 28 0)
-                          #horizontalLayout: #fit
-                          #verticalLayout: #fit
-                          #horizontalSpace: 0
-                          #verticalSpace: 0
-                          #component: 
-                         #(#SpecCollection
-                            #collection: #(
-                             #(#ArrowButtonSpec
-                                #name: 'MoveLeftButton'
-                                #activeHelpKey: #changePositionLeft
-                                #tabable: true
-                                #model: #moveSelectionLeft
-                                #enableChannel: #canMoveOrAlignSelection
-                                #isTriggerOnDown: true
-                                #direction: #left
-                                #useDefaultExtent: true
-                              )
-                             #(#ArrowButtonSpec
-                                #name: 'MoveRightButton'
-                                #activeHelpKey: #changePositionRight
-                                #tabable: true
-                                #model: #moveSelectionRight
-                                #enableChannel: #canMoveOrAlignSelection
-                                #isTriggerOnDown: true
-                                #actionValue: ''
-                                #direction: #right
-                                #useDefaultExtent: true
-                              )
-                             #(#ArrowButtonSpec
-                                #name: 'MoveDownButton'
-                                #activeHelpKey: #changePositionDown
-                                #tabable: true
-                                #model: #moveSelectionDown
-                                #enableChannel: #canMoveOrAlignSelection
-                                #isTriggerOnDown: true
-                                #actionValue: ''
-                                #direction: #down
-                                #useDefaultExtent: true
-                              )
-                             #(#ArrowButtonSpec
-                                #name: 'MoveUpButton'
-                                #activeHelpKey: #changePositionUp
-                                #tabable: true
-                                #model: #moveSelectionUp
-                                #enableChannel: #canMoveOrAlignSelection
-                                #isTriggerOnDown: true
-                                #actionValue: ''
-                                #direction: #up
-                                #useDefaultExtent: true
-                              )
-                             )
-                           
-                          )
-                        )
-                       #(#ActionButtonSpec
-                          #label: 'helpIcon'
-                          #name: 'openWidgetDocumentationButton'
-                          #layout: #(#LayoutFrame -28 1 -1 0 0 1 28 0)
-                          #activeHelpKey: #editOpenSpecDocumentation
-                          #hasCharacterOrientedLabel: false
-                          #tabable: true
-                          #model: #doOpenWidgetDocumentation
-                        )
                        #(#NoteBookViewSpec
                           #name: 'noteBook'
                           #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -30 1.0)
@@ -1899,58 +1832,113 @@
 
     <resource: #menu>
 
-    ^
-     
-       #(#Menu
-          
-	   #(
-	     #(#MenuItem
-		#label: 'Align Left'
-		#isButton: true
-		#value: #alignSelectionLeft
-		#activeHelpKey: #alignSelectionLeft
-		#labelImage: #(#ResourceRetriever nil #iconAlignL)
-	    )
-	     #(#MenuItem
-		#label: 'Align Right'
-		#isButton: true
-		#value: #alignSelectionRight
-		#activeHelpKey: #alignSelectionRight
-		#labelImage: #(#ResourceRetriever nil #iconAlignR)
-	    )
-	     #(#MenuItem
-		#label: 'Align Left & Right'
-		#isButton: true
-		#value: #alignSelectionLeftAndRight
-		#activeHelpKey: #alignSelectionLeftAndRight
-		#labelImage: #(#ResourceRetriever nil #iconAlignLR)
-	    )
-	     #(#MenuItem
-		#label: ''
-	    )
-	     #(#MenuItem
-		#label: 'Align Top'
-		#isButton: true
-		#value: #alignSelectionTop
-		#activeHelpKey: #alignSelectionTop
-		#labelImage: #(#ResourceRetriever nil #iconAlignT)
-	    )
-	     #(#MenuItem
-		#label: 'Align Bottom'
-		#isButton: true
-		#value: #alignSelectionBottom
-		#activeHelpKey: #alignSelectionBottom
-		#labelImage: #(#ResourceRetriever nil #iconAlignB)
-	    )
-	     #(#MenuItem
-		#label: 'Align Top & Bottom'
-		#isButton: true
-		#value: #alignSelectionTopAndBottom
-		#activeHelpKey: #alignSelectionTopAndBottom
-		#labelImage: #(#ResourceRetriever nil #iconAlignTB)
-	    )
-	  ) nil
-	  nil
+    ^ 
+     #(#Menu
+        #(
+         #(#MenuItem
+            #label: 'Align Left'
+            #isButton: true
+            #value: #alignSelectionLeft
+            #activeHelpKey: #alignSelectionLeft
+            #enabled: #canMoveOrAlignSelection
+            #labelImage: #(#ResourceRetriever nil #iconAlignL)
+          )
+         #(#MenuItem
+            #label: 'Align Right'
+            #isButton: true
+            #value: #alignSelectionRight
+            #activeHelpKey: #alignSelectionRight
+            #enabled: #canMoveOrAlignSelection
+            #labelImage: #(#ResourceRetriever nil #iconAlignR)
+          )
+         #(#MenuItem
+            #label: 'Align Left & Right'
+            #isButton: true
+            #value: #alignSelectionLeftAndRight
+            #activeHelpKey: #alignSelectionLeftAndRight
+            #enabled: #canMoveOrAlignSelection
+            #labelImage: #(#ResourceRetriever nil #iconAlignLR)
+          )
+         #(#MenuItem
+            #label: ''
+          )
+         #(#MenuItem
+            #label: 'Align Top'
+            #isButton: true
+            #value: #alignSelectionTop
+            #activeHelpKey: #alignSelectionTop
+            #enabled: #canMoveOrAlignSelection
+            #labelImage: #(#ResourceRetriever nil #iconAlignT)
+          )
+         #(#MenuItem
+            #label: 'Align Bottom'
+            #isButton: true
+            #value: #alignSelectionBottom
+            #activeHelpKey: #alignSelectionBottom
+            #enabled: #canMoveOrAlignSelection
+            #labelImage: #(#ResourceRetriever nil #iconAlignB)
+          )
+         #(#MenuItem
+            #label: 'Align Top & Bottom'
+            #isButton: true
+            #value: #alignSelectionTopAndBottom
+            #activeHelpKey: #alignSelectionTopAndBottom
+            #enabled: #canMoveOrAlignSelection
+            #labelImage: #(#ResourceRetriever nil #iconAlignTB)
+          )
+         #(#MenuItem
+            #label: ''
+          )
+         #(#MenuItem
+            #label: 'Move Left'
+            #isButton: true
+            #triggerOnDown: true
+            #hideMenuOnActivated: false
+            #value: #moveSelectionLeft
+            #activeHelpKey: #changePositionLeft
+            #enabled: #canMoveOrAlignSelection
+            #labelImage: #(#ResourceRetriever #ArrowButton #LeftArrowForm)
+          )
+         #(#MenuItem
+            #label: 'Move Right'
+            #isButton: true
+            #triggerOnDown: true
+            #hideMenuOnActivated: false
+            #value: #moveSelectionRight
+            #activeHelpKey: #changePositionRight
+            #enabled: #canMoveOrAlignSelection
+            #labelImage: #(#ResourceRetriever #ArrowButton #RightArrowForm)
+          )
+         #(#MenuItem
+            #label: 'Move Up'
+            #isButton: true
+            #triggerOnDown: true
+            #value: #moveSelectionUp
+            #activeHelpKey: #changePositionUp
+            #enabled: #canMoveOrAlignSelection
+            #labelImage: #(#ResourceRetriever #ArrowButton #UpArrowForm)
+          )
+         #(#MenuItem
+            #label: 'Move Down'
+            #isButton: true
+            #triggerOnDown: true
+            #value: #moveSelectionDown
+            #activeHelpKey: #changePositionDown
+            #enabled: #canMoveOrAlignSelection
+            #labelImage: #(#ResourceRetriever #ArrowButton #DownArrowForm)
+          )
+         #(#MenuItem
+            #label: 'Widget Documentation'
+            #translateLabel: true
+            #isButton: true
+            #startGroup: #right
+            #value: #doOpenWidgetDocumentation
+            #activeHelpKey: #editOpenSpecDocumentation
+            #labelImage: #(#ResourceRetriever #Icon #helpIcon)
+          )
+         )
+        nil
+        nil
       )
 ! !