Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
care for as-yet-unspecified class in show-spec menu item.
authorClaus Gittinger <cg@exept.de>
Tue, 09 Mar 1999 16:56:38 +0100
changeset 1050 355a8ff451b6
parent 1049 12fc1891232a
child 1051 148c81e896ac
care for as-yet-unspecified class in show-spec menu item.
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 , '\').
     ].
hg/stx-libtool2