equal
deleted
inserted
replaced
1922 "opens a Table Column Editor on current widget" |
1922 "opens a Table Column Editor on current widget" |
1923 |
1923 |
1924 |cls loadedFromClass loadedFromSpec editor tableColumnsOrSelector| |
1924 |cls loadedFromClass loadedFromSpec editor tableColumnsOrSelector| |
1925 |
1925 |
1926 (cls := self resolveName:specClass) isNil ifTrue:[ |
1926 (cls := self resolveName:specClass) isNil ifTrue:[ |
1927 self askForSaving ifFalse: [^self] |
1927 self askForSaving ifFalse: [^self]. |
|
1928 cls := self resolveName:specClass. |
1928 ]. |
1929 ]. |
1929 |
1930 |
1930 loadedFromSpec := loadedFromClass := false. |
1931 loadedFromSpec := loadedFromClass := false. |
1931 editor := DataSetBuilder new. |
1932 editor := DataSetBuilder new. |
1932 editor masterApplication:self. |
1933 editor masterApplication:self. |
1971 "opens a Menu Editor on current widget" |
1972 "opens a Menu Editor on current widget" |
1972 |
1973 |
1973 |cls selectorOrMenu editor selectedSpec spec| |
1974 |cls selectorOrMenu editor selectedSpec spec| |
1974 |
1975 |
1975 (cls := self resolveName:specClass) isNil ifTrue:[ |
1976 (cls := self resolveName:specClass) isNil ifTrue:[ |
1976 self askForSaving ifFalse: [^self] |
1977 self askForSaving ifFalse: [^self]. |
|
1978 cls := self resolveName:specClass. |
1977 ]. |
1979 ]. |
1978 |
1980 |
1979 cls notNil ifTrue:[ |
1981 cls notNil ifTrue:[ |
1980 spec := self specTool specification. |
1982 spec := self specTool specification. |
1981 (selectorOrMenu := spec menuSelector) notNil ifTrue:[ |
1983 (selectorOrMenu := spec menuSelector) notNil ifTrue:[ |
2045 openSubSpecGUIPainter |
2047 openSubSpecGUIPainter |
2046 "opens a GUI Painter on the current subspecification" |
2048 "opens a GUI Painter on the current subspecification" |
2047 |
2049 |
2048 |spec cls meta sel| |
2050 |spec cls meta sel| |
2049 |
2051 |
|
2052 (self resolveName:specClass) isNil ifTrue:[ |
|
2053 self askForSaving ifFalse: [^self] |
|
2054 ]. |
|
2055 |
2050 spec := self specTool specification. |
2056 spec := self specTool specification. |
2051 cls := spec majorKey. |
2057 cls := spec majorKey. |
2052 cls isNil ifTrue:[ |
2058 cls isNil ifTrue:[ |
2053 cls := specClass. |
2059 cls := specClass. |
2054 ]. |
2060 ]. |
2055 (cls := self resolveName:cls inClass:(Smalltalk at: specClass)) isNil ifTrue:[ |
2061 (cls := self resolveName:cls inClass:(Smalltalk at: specClass asSymbol)) isNil ifTrue:[ |
2056 spec majorKey isNil ifTrue:[ |
2062 spec majorKey isNil ifTrue:[ |
2057 ^ self warn:'Cannot find class (no majorKey specified)'. |
2063 ^ self warn:'Cannot find class (no majorKey specified)'. |
2058 ]. |
2064 ]. |
2059 ^ self warn:'Cannot find class ', spec majorKey asBoldText, '!!'. |
2065 ^ self warn:'Cannot find class ', spec majorKey asBoldText, '!!'. |
2060 ]. |
2066 ]. |