author | Claus Gittinger <cg@exept.de> |
Tue, 09 Mar 1999 16:56:38 +0100 | |
changeset 1050 | 355a8ff451b6 |
parent 1049 | 12fc1891232a |
child 1051 | 148c81e896ac |
UIPainterView.st | file | annotate | diff | comparison | revisions |
--- a/UIPainterView.st Mon Mar 08 12:23:10 1999 +0100 +++ b/UIPainterView.st Tue Mar 09 16:56:38 1999 +0100 @@ -1153,7 +1153,7 @@ , '\\ "\' , (' UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\'). - (cls isSubclassOf:ApplicationModel) ifTrue:[ + (cls notNil and:[cls isSubclassOf:ApplicationModel]) ifTrue:[ code := code , (' ' , className , ' new openInterface:#' , methodName , '\'). ].