UIPainterView.st
changeset 1050 355a8ff451b6
parent 1039 99a4be876840
child 1058 243d945b1daf
equal deleted inserted replaced
1049:12fc1891232a 1050:355a8ff451b6
  1151             , methodName , '\'
  1151             , methodName , '\'
  1152             , ((ResourceSpecEditor codeGenerationCommentForClass: UIPainter) replChar:$!! withString:'!!!!')
  1152             , ((ResourceSpecEditor codeGenerationCommentForClass: UIPainter) replChar:$!! withString:'!!!!')
  1153             , '\\    "\'
  1153             , '\\    "\'
  1154             , ('     UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\').
  1154             , ('     UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\').
  1155 
  1155 
  1156     (cls isSubclassOf:ApplicationModel) ifTrue:[
  1156     (cls notNil and:[cls isSubclassOf:ApplicationModel]) ifTrue:[
  1157         code := code
  1157         code := code
  1158             , ('     ' , className , ' new openInterface:#' , methodName , '\').
  1158             , ('     ' , className , ' new openInterface:#' , methodName , '\').
  1159     ].
  1159     ].
  1160 
  1160 
  1161     code := code
  1161     code := code