#UI_ENHANCEMENT by mawalch draft
authormawalch
Wed, 28 Feb 2018 16:32:25 +0100
changeset 3545 b3e0ca689991
parent 3544 5d127d65ea3e
child 3546 4ee729a8a483
#UI_ENHANCEMENT by mawalch class: MenuEditor class changed: #windowSpec Fix bad position of buttons.
MenuEditor.st
--- a/MenuEditor.st	Tue Feb 27 12:01:16 2018 +0100
+++ b/MenuEditor.st	Wed Feb 28 16:32:25 2018 +0100
@@ -479,109 +479,118 @@
 
     <resource: #canvas>
 
-    ^
-     #(FullSpec
-	name: windowSpec
-	window:
-       (WindowSpec
-	  label: 'Menu Editor'
-	  name: 'Menu Editor'
-	  min: (Point 550 385)
-	  bounds: (Rectangle 0 0 574 473)
-	  menu: menu
-	  icon: defaultIcon
-	  returnIsOKInDialog: false
-	  escapeIsCancelInDialog: false
-	)
-	component:
-       (SpecCollection
-	  collection: (
-	   (MenuPanelSpec
-	      name: 'toolbar'
-	      layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
-	      tabable: true
-	      menu: toolbar
-	      showSeparatingLines: true
-	    )
-	   (VariableHorizontalPanelSpec
-	      name: 'mainPanel'
-	      layout: (LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
-	      component:
-	     (SpecCollection
-		collection: (
-		 (HierarchicalListViewSpec
-		    name: 'ListOfItemsView'
-		    model: selectionHolder
-		    menu: editMenu
-		    hasHorizontalScrollBar: true
-		    hasVerticalScrollBar: true
-		    miniScrollerHorizontal: true
-		    miniScrollerVertical: true
-		    listModel: listOfItems
-		    multipleSelectOk: true
-		    useIndex: false
-		    highlightMode: label
-		    doubleClickSelector: indicatorClickedAt:
-		    selectConditionSelector: canSelect:
-		    showLeftIndicators: false
-		    indicatorSelector: indicatorClickedAt:
-		    properties:
-		   (PropertyListDictionary
-		      dropSelector: doDrop:
-		      dragArgument: nil
-		      dropObjectSelector: dropObjects
-		      overSelector: dropOver:
-		      dropArgument: nil
-		      leaveSelector: dropLeave:
-		      canDropSelector: canDrop:
-		      enterSelector: dropEnter:
-		    )
-		    postBuildCallback: postBuildListOfItemsView:
-		  )
-		 (ViewSpec
-		    name: 'Box'
-		    level: -1
-		    component:
-		   (SpecCollection
-		      collection: (
-		       (NoteBookViewSpec
-			  name: 'NoteBook'
-			  layout: (LayoutFrame 1 0.0 0 0.0 1 1.0 -30 1.0)
-			  enableChannel: hasSingleSelectionChannel
-			  tabable: true
-			  model: tabHolder
-			  menu: listOfTabs
-			  fitLastRow: false
-			  translateLabel: true
-			  canvas: wizardHolder
-			  keepCanvasAlive: true
-			  postBuildCallback: postBuildNoteBook:
-			)
-		       (UISubSpecification
-			  name: 'SubSpecification'
-			  layout: (LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
-			  majorKey: ToolApplicationModel
-			  minorKey: windowSpecForCommit
-			)
-		       )
-
-		    )
-		  )
-		 )
-
-	      )
-	      handles: (Any 0.300493 1.0)
-	    )
-	   (UISubSpecification
-	      name: 'infoBarSubSpec'
-	      layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
-	      majorKey: ToolApplicationModel
-	      minorKey: windowSpecForInfoBar
-	    )
-	   )
-
-	)
-      )
+    ^ 
+    #(FullSpec
+       name: windowSpec
+       uuid: '7d4bc1c6-2067-11b2-b33d-3065ec8abe8a'
+       window: 
+      (WindowSpec
+         label: 'Menu Editor'
+         name: 'Menu Editor'
+         uuid: '7d4bc6f8-2067-11b2-b33d-3065ec8abe8a'
+         min: (Point 550 385)
+         bounds: (Rectangle 0 0 574 473)
+         menu: menu
+         icon: defaultIcon
+         returnIsOKInDialog: false
+         escapeIsCancelInDialog: false
+       )
+       component: 
+      (SpecCollection
+         collection: (
+          (MenuPanelSpec
+             name: 'toolbar'
+             layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+             uuid: '7d4bcc98-2067-11b2-b33d-3065ec8abe8a'
+             tabable: true
+             menu: toolbar
+             showSeparatingLines: true
+           )
+          (VariableHorizontalPanelSpec
+             name: 'mainPanel'
+             layout: (LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
+             uuid: '7d4bd2ba-2067-11b2-b33d-3065ec8abe8a'
+             component: 
+            (SpecCollection
+               collection: (
+                (HierarchicalListViewSpec
+                   name: 'ListOfItemsView'
+                   uuid: '7d4bd7ba-2067-11b2-b33d-3065ec8abe8a'
+                   model: selectionHolder
+                   menu: editMenu
+                   hasHorizontalScrollBar: true
+                   hasVerticalScrollBar: true
+                   miniScrollerHorizontal: true
+                   miniScrollerVertical: true
+                   listModel: listOfItems
+                   multipleSelectOk: true
+                   useIndex: false
+                   highlightMode: label
+                   doubleClickSelector: indicatorClickedAt:
+                   selectConditionSelector: canSelect:
+                   showLeftIndicators: false
+                   indicatorSelector: indicatorClickedAt:
+                   postBuildCallback: postBuildListOfItemsView:
+                   properties: 
+                  (PropertyListDictionary
+                     dropSelector: doDrop:
+                     dragArgument: nil
+                     overSelector: dropOver:
+                     canDropSelector: canDrop:
+                     dropObjectSelector: dropObjects
+                     enterSelector: dropEnter:
+                     dropArgument: nil
+                     leaveSelector: dropLeave:
+                   )
+                 )
+                (ViewSpec
+                   name: 'Box'
+                   uuid: '7d4be156-2067-11b2-b33d-3065ec8abe8a'
+                   level: -1
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (NoteBookViewSpec
+                         name: 'NoteBook'
+                         layout: (LayoutFrame 1 0.0 0 0.0 1 1.0 -39 1.0)
+                         uuid: '7d4be430-2067-11b2-b33d-3065ec8abe8a'
+                         enableChannel: hasSingleSelectionChannel
+                         tabable: true
+                         model: tabHolder
+                         menu: listOfTabs
+                         fitLastRow: false
+                         translateLabel: true
+                         canvas: wizardHolder
+                         keepCanvasAlive: true
+                         postBuildCallback: postBuildNoteBook:
+                       )
+                      (UISubSpecification
+                         name: 'SubSpecification'
+                         layout: (LayoutFrame 2 0.0 -35 1.0 -2 1.0 -2 1.0)
+                         uuid: '7d4beab6-2067-11b2-b33d-3065ec8abe8a'
+                         majorKey: ToolApplicationModel
+                         minorKey: windowSpecForCommit
+                       )
+                      )
+                    
+                   )
+                 )
+                )
+              
+             )
+             handles: (Any 0.29999999999999999 1.0)
+           )
+          (UISubSpecification
+             name: 'infoBarSubSpec'
+             layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
+             uuid: '7d4bee30-2067-11b2-b33d-3065ec8abe8a'
+             majorKey: ToolApplicationModel
+             minorKey: windowSpecForInfoBar
+           )
+          )
+        
+       )
+     )
 ! !
 
 !MenuEditor class methodsFor:'menu specs'!