equal
deleted
inserted
replaced
136 openOn:firstText label:firstLabel and:secondText label:secondLabel |
136 openOn:firstText label:firstLabel and:secondText label:secondLabel |
137 "open up a view showing firstText and secondText side-by-side, |
137 "open up a view showing firstText and secondText side-by-side, |
138 and labels for both views. |
138 and labels for both views. |
139 This does not make much sense for unrelated texts - of course." |
139 This does not make much sense for unrelated texts - of course." |
140 |
140 |
141 |top v l1 l2| |
141 |top| |
142 |
142 |
143 top := StandardSystemView label:'two texts'. |
143 top := StandardSystemView label:'two texts'. |
144 |
144 |
145 self openOn:firstText |
145 self openOn:firstText |
146 label:firstLabel |
146 label:firstLabel |
161 "Modified: 15.8.1996 / 19:46:38 / cg" |
161 "Modified: 15.8.1996 / 19:46:38 / cg" |
162 ! |
162 ! |
163 |
163 |
164 openOn:firstText label:firstLabel and:secondText label:secondLabel in:aView |
164 openOn:firstText label:firstLabel and:secondText label:secondLabel in:aView |
165 "open up a view showing firstText and secondText side-by-side, |
165 "open up a view showing firstText and secondText side-by-side, |
166 and labels for both views. |
166 and labels for both views. Return the (wrapped) diff-view. |
167 This does not make much sense for unrelated texts - of course." |
167 This does not make much sense for unrelated texts - of course." |
168 |
168 |
169 |hvs scr l1 l2| |
169 |hvs scr l1 l2| |
170 |
170 |
171 hvs := HVScrollableView |
171 hvs := HVScrollableView |
189 ]. |
189 ]. |
190 scr text1:firstText text2:secondText. |
190 scr text1:firstText text2:secondText. |
191 scr addNextPreviousButtons. |
191 scr addNextPreviousButtons. |
192 scr moveToNextChanged. |
192 scr moveToNextChanged. |
193 |
193 |
|
194 ^ scr. |
194 ! ! |
195 ! ! |
195 |
196 |
196 !TwoColumnTextView class methodsFor:'specification'! |
197 !TwoColumnTextView class methodsFor:'specification'! |
197 |
198 |
198 numberOfViews |
199 numberOfViews |
340 ! ! |
341 ! ! |
341 |
342 |
342 !TwoColumnTextView class methodsFor:'documentation'! |
343 !TwoColumnTextView class methodsFor:'documentation'! |
343 |
344 |
344 version |
345 version |
345 ^ '$Header: /cvs/stx/stx/libwidg2/Attic/2ColTxtV.st,v 1.18 1999-07-09 14:57:18 cg Exp $'! ! |
346 ^ '$Header: /cvs/stx/stx/libwidg2/Attic/2ColTxtV.st,v 1.19 1999-09-04 14:33:16 cg Exp $'! ! |