changeset 68 | 889c3877baf0 |
parent 65 | 7342110f7938 |
child 72 | a5a7054e2b7d |
--- a/UIPainter.st Fri Feb 28 13:25:51 1997 +0100 +++ b/UIPainter.st Fri Feb 28 18:03:28 1997 +0100 @@ -961,10 +961,14 @@ ! doWindowSpec - |code v| + |code code2 v| code := workView generateWindowSpecMethodSource. - code := code , workView generateAspectMethods. +"/ code2 := workView generateAspectMethods. + code2 notNil ifTrue:[ + code := code , code2. + ]. + v := CodeView open. v contents:code. v label:'windowSpec'.