equal
deleted
inserted
replaced
1116 |spec str code category cls mthd specCode| |
1116 |spec str code category cls mthd specCode| |
1117 |
1117 |
1118 spec := OrderedCollection new. |
1118 spec := OrderedCollection new. |
1119 |
1119 |
1120 self subViews do:[:aView| |
1120 self subViews do:[:aView| |
|
1121 |vSpec| |
|
1122 |
1121 aView ~~ inputView ifTrue:[ |
1123 aView ~~ inputView ifTrue:[ |
1122 spec add:(self fullSpecFor:aView) |
1124 "/ care for wrapped views ... |
|
1125 vSpec := self fullSpecFor:aView. |
|
1126 vSpec isNil ifTrue:[ |
|
1127 aView subViews size == 1 ifTrue:[ |
|
1128 vSpec := self fullSpecFor:(aView subViews first). |
|
1129 ] |
|
1130 ]. |
|
1131 vSpec isNil ifTrue:[ |
|
1132 self warn:'Oops - could not create spec for some view' |
|
1133 ]. |
|
1134 spec add:vSpec |
1123 ] |
1135 ] |
1124 ]. |
1136 ]. |
1125 |
1137 |
1126 spec := treeView generateFullSpecForComponents:spec named:methodName. |
1138 spec := treeView generateFullSpecForComponents:spec named:methodName. |
1127 str := WriteStream on:String new. |
1139 str := WriteStream on:String new. |