equal
deleted
inserted
replaced
21 |
21 |
22 TextRuler comment:' |
22 TextRuler comment:' |
23 COPYRIGHT (c) 1991 by Claus Gittinger |
23 COPYRIGHT (c) 1991 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.10 1995-02-27 10:42:53 claus Exp $ |
26 $Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.11 1995-07-03 02:35:33 claus Exp $ |
27 written oct 91 by claus |
27 written oct 91 by claus |
28 '! |
28 '! |
29 |
29 |
30 !TextRuler class methodsFor:'documentation'! |
30 !TextRuler class methodsFor:'documentation'! |
31 |
31 |
383 !TextRuler methodsFor:'initializing'! |
383 !TextRuler methodsFor:'initializing'! |
384 |
384 |
385 initialize |
385 initialize |
386 |leftAlignToggle alignToggle centerToggle rightAlignToggle |
386 |leftAlignToggle alignToggle centerToggle rightAlignToggle |
387 leftTabButton centerTabButton rightTabButton decimalTabButton |
387 leftTabButton centerTabButton rightTabButton decimalTabButton |
388 lineSpacingField panel1 panel2 panel3 scaleHeight h group| |
388 lineSpacingField panel1 panel3 scaleHeight h group| |
389 |
389 |
390 super initialize. |
390 super initialize. |
391 |
391 |
392 scaleHeight := (font height) * 2. |
392 scaleHeight := (font height) * 2. |
393 self height:(scaleHeight * 3). |
393 self height:(scaleHeight * 3). |