equal
deleted
inserted
replaced
1199 stream nextPutAll: |
1199 stream nextPutAll: |
1200 aMethodName, '\' withCRs, |
1200 aMethodName, '\' withCRs, |
1201 (ResourceSpecEditor codeGenerationCommentForClass:UIHelpTool) withCRs, |
1201 (ResourceSpecEditor codeGenerationCommentForClass:UIHelpTool) withCRs, |
1202 '\\' withCRs, |
1202 '\\' withCRs, |
1203 ' "\' withCRs, |
1203 ' "\' withCRs, |
1204 ' UIHelpTool openOnClass:', theClass name asString ,' |
1204 ' UIHelpTool openOnClass:', theClass name asString ,' |
1205 " |
1205 " |
1206 |
1206 |
1207 <resource: #help> |
1207 <resource: #help> |
1208 |
1208 |
1209 ^ super ', aMethodName, ' addPairsFrom:#( |
1209 ^ super ', aMethodName, ' addPairsFrom:#( |
1217 stream nextPutLine:(aKeyItem helpKey storeString). |
1217 stream nextPutLine:(aKeyItem helpKey storeString). |
1218 stream nextPutLine:(helpText storeString); cr. |
1218 stream nextPutLine:(helpText storeString); cr. |
1219 ]. |
1219 ]. |
1220 stream nextPutLine:')'. |
1220 stream nextPutLine:')'. |
1221 |
1221 |
1222 Compiler |
1222 Compiler |
1223 compile:(stream contents) |
1223 compile:(stream contents) |
1224 forClass:theClass class |
1224 forClass:theClass class |
1225 inCategory:'help specs'. |
1225 inCategory:'help specs'. |
1226 |
1226 |
1227 self modified:false. |
1227 self modified:false. |
1228 ! ! |
1228 ! ! |
1229 |
1229 |