equal
deleted
inserted
replaced
1046 (cls := self resolveName:className) isNil ifTrue:[ |
1046 (cls := self resolveName:className) isNil ifTrue:[ |
1047 self warn:'Class ', className asString, ' does not exist!!'. |
1047 self warn:'Class ', className asString, ' does not exist!!'. |
1048 ^ code |
1048 ^ code |
1049 ]. |
1049 ]. |
1050 |
1050 |
1051 specArray := treeView generateFullSpecForComponents:#(). |
1051 specArray := treeView generateFullSpecForComponents:#() named:nil. |
1052 fullSpec := specArray decodeAsLiteralArray. |
1052 fullSpec := specArray decodeAsLiteralArray. |
1053 winSpec := fullSpec window. |
1053 winSpec := fullSpec window. |
1054 menuSelector := winSpec menu. |
1054 menuSelector := winSpec menu. |
1055 |
1055 |
1056 menuSelector isNil ifTrue:[ |
1056 menuSelector isNil ifTrue:[ |
1119 self subViews do:[:aView| |
1119 self subViews do:[:aView| |
1120 aView ~~ inputView ifTrue:[ |
1120 aView ~~ inputView ifTrue:[ |
1121 spec add:(self fullSpecFor:aView) |
1121 spec add:(self fullSpecFor:aView) |
1122 ] |
1122 ] |
1123 ]. |
1123 ]. |
1124 spec := treeView generateFullSpecForComponents:spec. |
1124 |
|
1125 spec := treeView generateFullSpecForComponents:spec named:methodName. |
1125 str := WriteStream on:String new. |
1126 str := WriteStream on:String new. |
1126 UISpecification prettyPrintSpecArray:spec on:str indent:5. |
1127 UISpecification prettyPrintSpecArray:spec on:str indent:5. |
1127 specCode := str contents. |
1128 specCode := str contents. |
1128 |
1129 |
1129 (specCode includes:$!!) ifTrue:[ |
1130 (specCode includes:$!!) ifTrue:[ |