diff -r f67b97bc683a -r a8fe5e15220b UIPainter.st --- a/UIPainter.st Mon Nov 05 16:48:27 2001 +0100 +++ b/UIPainter.st Mon Nov 05 18:26:34 2001 +0100 @@ -2146,28 +2146,31 @@ |spec cls meta sel| (self resolveName:specClass) isNil ifTrue:[ - self askForSaving ifFalse: [^self] + self askForSaving ifFalse: [^self] ]. spec := self specTool specification. cls := spec majorKey. cls isNil ifTrue:[ - cls := specClass. + cls := specClass. ]. (cls := self resolveName:cls inClass:(Smalltalk at: specClass asSymbol)) isNil ifTrue:[ - spec majorKey isNil ifTrue:[ - ^ self warn:'Cannot find class (no majorKey specified)'. - ]. - ^ self warn:'Cannot find class ', spec majorKey asBoldText, '!!'. + spec majorKey isNil ifTrue:[ + ^ self warn:'Cannot find class (no majorKey specified).'. + ]. + ^ self warn:('Cannot find class ', spec majorKey asBoldText, '.'). ]. sel := spec minorKey. meta := cls class whichClassIncludesSelector:sel. meta isNil ifTrue:[ - ^ self warn:'Cannot find selector #', (sel ? '') asBoldText, ' in class ', cls name asBoldText, '!!' + ^ self warn:'Cannot find selector #', (sel ? '') asBoldText, ' in class ', cls name asBoldText, '!!' ]. - self class openOnClass:meta soleInstance andSelector:spec minorKey. - + self class + openOnClass:meta soleInstance + andSelector:spec minorKey. + + "Modified: / 5.11.2001 / 16:51:46 / cg" ! openTabListEditor