equal
deleted
inserted
replaced
895 |
895 |
896 initialize |
896 initialize |
897 "setup attributes |
897 "setup attributes |
898 " |
898 " |
899 super initialize. |
899 super initialize. |
900 |
|
901 superclassName := 'ApplicationModel'. |
900 superclassName := 'ApplicationModel'. |
902 className := 'NewApplication'. |
901 className := 'NewApplication'. |
903 methodName := 'windowSpec'. |
902 methodName := 'windowSpec'. |
904 categoryName := 'Applications'. |
903 categoryName := 'Applications'. |
905 HandCursor := Cursor leftHand. |
904 HandCursor := Cursor leftHand. |
906 |
905 |
907 self backgroundColor: self class defaultViewBackgroundColor |
906 self backgroundColor: self class defaultViewBackgroundColor. |
908 ! |
907 ! |
909 |
908 |
910 setupFromSpec:specOrSpecArray |
909 setupFromSpec:specOrSpecArray |
911 |spec builder| |
910 |spec builder| |
912 |
911 |
1090 uniqueNameFor:aSpecOrString |
1089 uniqueNameFor:aSpecOrString |
1091 "generate and return an unique name for a class |
1090 "generate and return an unique name for a class |
1092 " |
1091 " |
1093 |next name size| |
1092 |next name size| |
1094 |
1093 |
1095 aSpecOrString isString ifFalse:[name := aSpecOrString className asString] |
1094 aSpecOrString isString ifFalse:[name := aSpecOrString userFriendlyName] |
1096 ifTrue:[name := aSpecOrString]. |
1095 ifTrue:[name := aSpecOrString]. |
1097 |
1096 |
1098 (name endsWith:'Spec') ifTrue:[ |
|
1099 name := name copyFrom:1 to:(name size - 4). |
|
1100 ] ifFalse:[ |
|
1101 name := name copy |
|
1102 ]. |
|
1103 size := name size + 1. |
1097 size := name size + 1. |
1104 next := 0. |
1098 next := 0. |
1105 |
1099 |
1106 treeView propertiesDo:[:p| |
1100 treeView propertiesDo:[:p| |
1107 |n| |
1101 |n| |