equal
deleted
inserted
replaced
2209 ]. |
2209 ]. |
2210 (cls isNil or:[(cls := self resolveName:cls) isNil]) ifTrue:[ |
2210 (cls isNil or:[(cls := self resolveName:cls) isNil]) ifTrue:[ |
2211 spec majorKey isNil ifTrue:[ |
2211 spec majorKey isNil ifTrue:[ |
2212 ^ self warn:'Cannot find class (no majorKey specified)'. |
2212 ^ self warn:'Cannot find class (no majorKey specified)'. |
2213 ]. |
2213 ]. |
2214 ^ self warn:'Cannot find class'. |
2214 ^ self warn:'Cannot find class ', spec majorKey asBoldText, '!!'. |
2215 ]. |
2215 ]. |
2216 sel := spec minorKey. |
2216 sel := spec minorKey. |
2217 meta := cls class whichClassIncludesSelector:sel. |
2217 meta := cls class whichClassIncludesSelector:sel. |
2218 meta isNil ifTrue:[ |
2218 meta isNil ifTrue:[ |
2219 ^ self warn:'Cannot find ''', sel, ''' in class ''', cls name, '''' |
2219 ^ self warn:'Cannot find selector #', (sel ? '') asBoldText, ' in class ', cls name asBoldText, '!!' |
2220 ]. |
2220 ]. |
2221 |
2221 |
2222 self class openOnClass:meta soleInstance andSelector:spec minorKey. |
2222 self class openOnClass:meta soleInstance andSelector:spec minorKey. |
2223 |
2223 |
2224 "Created: / 6.2.1998 / 13:03:59 / stefan" |
2224 "Created: / 6.2.1998 / 13:03:59 / stefan" |
3319 |spec| |
3319 |spec| |
3320 |
3320 |
3321 spec := WindowSpec new. |
3321 spec := WindowSpec new. |
3322 |
3322 |
3323 spec fromView:(self canvas topView) callBack:nil. |
3323 spec fromView:(self canvas topView) callBack:nil. |
3324 spec name:(listOfNodes at:1) name string. |
|
3325 |
3324 |
3326 windowSpec notNil ifTrue:[ |
3325 windowSpec notNil ifTrue:[ |
3327 spec copyValuesFromSpec:windowSpec |
3326 spec copyValuesFromSpec:windowSpec |
3328 ]. |
3327 ]. |
3329 ^ spec |
3328 ^ spec |