equal
deleted
inserted
replaced
1132 , '!!' , '\\' |
1132 , '!!' , '\\' |
1133 |
1133 |
1134 , methodName , '\' |
1134 , methodName , '\' |
1135 , ((ResourceSpecEditor codeGenerationCommentForClass: UIPainter) replChar:$!! withString:'!!!!') |
1135 , ((ResourceSpecEditor codeGenerationCommentForClass: UIPainter) replChar:$!! withString:'!!!!') |
1136 , '\\ "\' |
1136 , '\\ "\' |
1137 , (' UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\') |
1137 , (' UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\'). |
1138 , (' ' , className , ' new openInterface:#' , methodName , '\') |
1138 |
|
1139 (cls isSubclassOf:ApplicationModel) ifTrue:[ |
|
1140 code := code |
|
1141 , (' ' , className , ' new openInterface:#' , methodName , '\'). |
|
1142 ]. |
|
1143 |
|
1144 code := code |
1139 ,(methodName = 'windowSpec' |
1145 ,(methodName = 'windowSpec' |
1140 ifTrue:[' ' , className , ' open\'] ifFalse: ['']) |
1146 ifTrue:[' ' , className , ' open\'] ifFalse: ['']) |
1141 , ' "\'. |
1147 , ' "\'. |
1142 |
1148 |
1143 code := code |
1149 code := code |
1149 , '!! !!' |
1155 , '!! !!' |
1150 , '\\'. |
1156 , '\\'. |
1151 |
1157 |
1152 ^ code withCRs |
1158 ^ code withCRs |
1153 |
1159 |
1154 "Modified: 5.9.1995 / 21:01:35 / claus" |
1160 "Modified: / 5.9.1995 / 21:01:35 / claus" |
1155 "Modified: 24.6.1997 / 19:12:44 / cg" |
1161 "Modified: / 15.10.1998 / 11:29:53 / cg" |
1156 ! ! |
1162 ! ! |
1157 |
1163 |
1158 !UIPainterView methodsFor:'grid manipulation'! |
1164 !UIPainterView methodsFor:'grid manipulation'! |
1159 |
1165 |
1160 newGrid |
1166 newGrid |