equal
deleted
inserted
replaced
959 doToggleTest |
959 doToggleTest |
960 workView testMode:(workView testMode not) |
960 workView testMode:(workView testMode not) |
961 ! |
961 ! |
962 |
962 |
963 doWindowSpec |
963 doWindowSpec |
964 |code v| |
964 |code code2 v| |
965 |
965 |
966 code := workView generateWindowSpecMethodSource. |
966 code := workView generateWindowSpecMethodSource. |
967 code := code , workView generateAspectMethods. |
967 "/ code2 := workView generateAspectMethods. |
|
968 code2 notNil ifTrue:[ |
|
969 code := code , code2. |
|
970 ]. |
|
971 |
968 v := CodeView open. |
972 v := CodeView open. |
969 v contents:code. |
973 v contents:code. |
970 v label:'windowSpec'. |
974 v label:'windowSpec'. |
971 ^ self |
975 ^ self |
972 |
976 |