equal
deleted
inserted
replaced
2171 tableSelector := columnHolder value. |
2171 tableSelector := columnHolder value. |
2172 |
2172 |
2173 tableSelector := tableSelector size ~~ 0 ifTrue:[tableSelector asSymbol] |
2173 tableSelector := tableSelector size ~~ 0 ifTrue:[tableSelector asSymbol] |
2174 ifFalse:[nil]. |
2174 ifFalse:[nil]. |
2175 |
2175 |
2176 (tableSelector notNil and:[cls class implements:tableSelector]) ifTrue:[ |
2176 (tableSelector notNil and:[cls class includesSelector:tableSelector]) ifTrue:[ |
2177 editor openModalOnClass:cls andSelector:tableSelector |
2177 editor openModalOnClass:cls andSelector:tableSelector |
2178 ] ifFalse:[ |
2178 ] ifFalse:[ |
2179 columns := specTool specification columns. |
2179 columns := specTool specification columns. |
2180 |
2180 |
2181 columns size ~~ 0 ifTrue:[ |
2181 columns size ~~ 0 ifTrue:[ |
3402 selector:specSelector. |
3402 selector:specSelector. |
3403 ]. |
3403 ]. |
3404 |
3404 |
3405 again ifFalse:[ |
3405 again ifFalse:[ |
3406 ((Smalltalk at:specClass asSymbol) notNil |
3406 ((Smalltalk at:specClass asSymbol) notNil |
3407 and:[ (Smalltalk at:specClass asSymbol) class implements:specSelector ]) |
3407 and:[ (Smalltalk at:specClass asSymbol) class includesSelector:specSelector ]) |
3408 ifTrue:[ |
3408 ifTrue:[ |
3409 (self confirm:('%1 already implements %2. Overwrite ?' bindWith:specClass with:specSelector)) |
3409 (self confirm:('%1 already implements %2. Overwrite ?' bindWith:specClass with:specSelector)) |
3410 ifFalse:[ |
3410 ifFalse:[ |
3411 again := true. |
3411 again := true. |
3412 ]. |
3412 ]. |
3701 self helpTool installHelpSpecsOnClass:specClass. |
3701 self helpTool installHelpSpecsOnClass:specClass. |
3702 |
3702 |
3703 self updateInfoLabel. |
3703 self updateInfoLabel. |
3704 modified := false. |
3704 modified := false. |
3705 painter resetModification. |
3705 painter resetModification. |
3706 (cls class implements: specSelector) ifTrue:[ |
3706 (cls class includesSelector: specSelector) ifTrue:[ |
3707 self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:. |
3707 self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:. |
3708 ]. |
3708 ]. |
3709 |
|
3710 ! |
3709 ! |
3711 |
3710 |
3712 doSaveAs |
3711 doSaveAs |
3713 "opens a ResourceSelectionBrowser for saving the window spec on a class" |
3712 "opens a ResourceSelectionBrowser for saving the window spec on a class" |
3714 |
3713 |