--- a/UIPainter.st Sat Feb 21 19:07:24 1998 +0100
+++ b/UIPainter.st Sat Feb 21 19:24:50 1998 +0100
@@ -2211,12 +2211,12 @@
spec majorKey isNil ifTrue:[
^ self warn:'Cannot find class (no majorKey specified)'.
].
- ^ self warn:'Cannot find class'.
+ ^ self warn:'Cannot find class ', spec majorKey asBoldText, '!!'.
].
sel := spec minorKey.
meta := cls class whichClassIncludesSelector:sel.
meta isNil ifTrue:[
- ^ self warn:'Cannot find ''', sel, ''' in class ''', cls name, ''''
+ ^ self warn:'Cannot find selector #', (sel ? '') asBoldText, ' in class ', cls name asBoldText, '!!'
].
self class openOnClass:meta soleInstance andSelector:spec minorKey.
@@ -3321,7 +3321,6 @@
spec := WindowSpec new.
spec fromView:(self canvas topView) callBack:nil.
- spec name:(listOfNodes at:1) name string.
windowSpec notNil ifTrue:[
spec copyValuesFromSpec:windowSpec