#REFACTORING by cg draft
authorClaus Gittinger <cg@exept.de>
Wed, 19 Feb 2020 21:01:21 +0100
changeset 3856 c026f6bf687d
parent 3855 0cc52b04a4a5
child 3857 87004a92aba2
#REFACTORING by cg class: UIPainterView changed: #groupSelectionWithLayout:
UIPainterView.st
--- a/UIPainterView.st	Thu Feb 13 22:06:12 2020 +0100
+++ b/UIPainterView.st	Wed Feb 19 21:01:21 2020 +0100
@@ -1888,24 +1888,22 @@
 
     menu := Menu new.
     menu receiver: self.
-    menu addItem:(MenuItem label:'Box' itemValue:[spec := ViewSpec new]).
-    menu addItem:(MenuItem label:'TBox' itemValue:[spec := TBoxSpec new]).
-    menu addItem:(MenuItem label:'FramedBox' itemValue:[spec := FramedBoxSpec new]).
-
-    menu addItem:(MenuItem 
-                    label:'HorizontalPanel'
-                    itemValue:[
-                        keepLyt := keepPos := false.
-                        spec := HorizontalPanelViewSpec new.
-                        spec horizontalLayout: #leftSpace verticalLayout: #fit.
-                    ]).
-    menu addItem:(MenuItem 
-                    label:'VerticalPanel'
-                    itemValue:[
-                        keepLyt := keepPos := false.
-                        spec := VerticalPanelViewSpec new.
-                        spec horizontalLayout: #fit verticalLayout: #topSpace.
-                    ]).
+    menu addItemLabel:'Box' value:[spec := ViewSpec new].
+    menu addItemLabel:'TBox' value:[spec := TBoxSpec new].
+    menu addItemLabel:'FramedBox' value:[spec := FramedBoxSpec new].
+
+    menu addItemLabel:'HorizontalPanel'
+         value:[
+             keepLyt := keepPos := false.
+             spec := HorizontalPanelViewSpec new.
+             spec horizontalLayout: #leftSpace verticalLayout: #fit.
+         ].
+    menu addItemLabel:'VerticalPanel'
+         value:[
+             keepLyt := keepPos := false.
+             spec := VerticalPanelViewSpec new.
+             spec horizontalLayout: #fit verticalLayout: #topSpace.
+         ].
 
     menu startUp.
     spec isNil ifTrue:[^ self].