--- a/UIPainterView.st Mon Mar 09 21:40:30 1998 +0100
+++ b/UIPainterView.st Mon Mar 09 21:41:42 1998 +0100
@@ -897,14 +897,13 @@
"setup attributes
"
super initialize.
-
superclassName := 'ApplicationModel'.
className := 'NewApplication'.
methodName := 'windowSpec'.
categoryName := 'Applications'.
HandCursor := Cursor leftHand.
- self backgroundColor: self class defaultViewBackgroundColor
+ self backgroundColor: self class defaultViewBackgroundColor.
!
setupFromSpec:specOrSpecArray
@@ -1092,14 +1091,9 @@
"
|next name size|
- aSpecOrString isString ifFalse:[name := aSpecOrString className asString]
+ aSpecOrString isString ifFalse:[name := aSpecOrString userFriendlyName]
ifTrue:[name := aSpecOrString].
- (name endsWith:'Spec') ifTrue:[
- name := name copyFrom:1 to:(name size - 4).
- ] ifFalse:[
- name := name copy
- ].
size := name size + 1.
next := 0.