--- 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].