1886 keepLyt := withLayout. |
1886 keepLyt := withLayout. |
1887 keepPos := true. |
1887 keepPos := true. |
1888 |
1888 |
1889 menu := Menu new. |
1889 menu := Menu new. |
1890 menu receiver: self. |
1890 menu receiver: self. |
1891 menu addItem:(MenuItem label:'Box' itemValue:[spec := ViewSpec new]). |
1891 menu addItemLabel:'Box' value:[spec := ViewSpec new]. |
1892 menu addItem:(MenuItem label:'TBox' itemValue:[spec := TBoxSpec new]). |
1892 menu addItemLabel:'TBox' value:[spec := TBoxSpec new]. |
1893 menu addItem:(MenuItem label:'FramedBox' itemValue:[spec := FramedBoxSpec new]). |
1893 menu addItemLabel:'FramedBox' value:[spec := FramedBoxSpec new]. |
1894 |
1894 |
1895 menu addItem:(MenuItem |
1895 menu addItemLabel:'HorizontalPanel' |
1896 label:'HorizontalPanel' |
1896 value:[ |
1897 itemValue:[ |
1897 keepLyt := keepPos := false. |
1898 keepLyt := keepPos := false. |
1898 spec := HorizontalPanelViewSpec new. |
1899 spec := HorizontalPanelViewSpec new. |
1899 spec horizontalLayout: #leftSpace verticalLayout: #fit. |
1900 spec horizontalLayout: #leftSpace verticalLayout: #fit. |
1900 ]. |
1901 ]). |
1901 menu addItemLabel:'VerticalPanel' |
1902 menu addItem:(MenuItem |
1902 value:[ |
1903 label:'VerticalPanel' |
1903 keepLyt := keepPos := false. |
1904 itemValue:[ |
1904 spec := VerticalPanelViewSpec new. |
1905 keepLyt := keepPos := false. |
1905 spec horizontalLayout: #fit verticalLayout: #topSpace. |
1906 spec := VerticalPanelViewSpec new. |
1906 ]. |
1907 spec horizontalLayout: #fit verticalLayout: #topSpace. |
|
1908 ]). |
|
1909 |
1907 |
1910 menu startUp. |
1908 menu startUp. |
1911 spec isNil ifTrue:[^ self]. |
1909 spec isNil ifTrue:[^ self]. |
1912 |
1910 |
1913 minViews := self minClosedViewSetFor:(self selection). |
1911 minViews := self minClosedViewSetFor:(self selection). |