class: UIPainterView
authorClaus Gittinger <cg@exept.de>
Fri, 21 Jun 2013 02:40:11 +0200
changeset 3021 3cdebdf0071d
parent 3020 7ee98e6a7aab
child 3022 4cdf177f5976
class: UIPainterView changed: #groupSelectionWithLayout: MenuItem label:value: (obsolete) -> MenuItem label:itemValue:
UIPainterView.st
--- a/UIPainterView.st	Fri Jun 21 00:50:10 2013 +0200
+++ b/UIPainterView.st	Fri Jun 21 02:40:11 2013 +0200
@@ -1854,19 +1854,21 @@
 
     menu := Menu new.
     menu receiver: self.
-    menu addItem:(MenuItem label:'Box' value:[spec := ViewSpec new]).
-    menu addItem:(MenuItem label:'TBox' value:[spec := TBoxSpec new]).
-    menu addItem:(MenuItem label:'FramedBox' value:[spec := FramedBoxSpec new]).
-
-    menu addItem:(MenuItem label:'HorizontalPanel'
-                    value:[
+    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 verticalLayout: #fit.
                         spec horizontalLayout: #leftSpace.
                     ]).
-    menu addItem:(MenuItem label:'VerticalPanel'
-                    value:[
+    menu addItem:(MenuItem 
+                    label:'VerticalPanel'
+                    itemValue:[
                         keepLyt := keepPos := false.
                         spec := VerticalPanelViewSpec new.
                         spec verticalLayout: #topSpace.