1852 keepLyt := withLayout. |
1852 keepLyt := withLayout. |
1853 keepPos := true. |
1853 keepPos := true. |
1854 |
1854 |
1855 menu := Menu new. |
1855 menu := Menu new. |
1856 menu receiver: self. |
1856 menu receiver: self. |
1857 menu addItem:(MenuItem label:'Box' value:[spec := ViewSpec new]). |
1857 menu addItem:(MenuItem label:'Box' itemValue:[spec := ViewSpec new]). |
1858 menu addItem:(MenuItem label:'TBox' value:[spec := TBoxSpec new]). |
1858 menu addItem:(MenuItem label:'TBox' itemValue:[spec := TBoxSpec new]). |
1859 menu addItem:(MenuItem label:'FramedBox' value:[spec := FramedBoxSpec new]). |
1859 menu addItem:(MenuItem label:'FramedBox' itemValue:[spec := FramedBoxSpec new]). |
1860 |
1860 |
1861 menu addItem:(MenuItem label:'HorizontalPanel' |
1861 menu addItem:(MenuItem |
1862 value:[ |
1862 label:'HorizontalPanel' |
|
1863 itemValue:[ |
1863 keepLyt := keepPos := false. |
1864 keepLyt := keepPos := false. |
1864 spec := HorizontalPanelViewSpec new. |
1865 spec := HorizontalPanelViewSpec new. |
1865 spec verticalLayout: #fit. |
1866 spec verticalLayout: #fit. |
1866 spec horizontalLayout: #leftSpace. |
1867 spec horizontalLayout: #leftSpace. |
1867 ]). |
1868 ]). |
1868 menu addItem:(MenuItem label:'VerticalPanel' |
1869 menu addItem:(MenuItem |
1869 value:[ |
1870 label:'VerticalPanel' |
|
1871 itemValue:[ |
1870 keepLyt := keepPos := false. |
1872 keepLyt := keepPos := false. |
1871 spec := VerticalPanelViewSpec new. |
1873 spec := VerticalPanelViewSpec new. |
1872 spec verticalLayout: #topSpace. |
1874 spec verticalLayout: #topSpace. |
1873 spec horizontalLayout: #fit. |
1875 spec horizontalLayout: #fit. |
1874 ]). |
1876 ]). |