equal
deleted
inserted
replaced
23 |
23 |
24 Label comment:' |
24 Label comment:' |
25 COPYRIGHT (c) 1989 by Claus Gittinger |
25 COPYRIGHT (c) 1989 by Claus Gittinger |
26 All Rights Reserved |
26 All Rights Reserved |
27 |
27 |
28 $Header: /cvs/stx/stx/libwidg/Label.st,v 1.31 1995-09-07 12:45:12 claus Exp $ |
28 $Header: /cvs/stx/stx/libwidg/Label.st,v 1.32 1995-09-18 10:38:42 claus Exp $ |
29 '! |
29 '! |
30 |
30 |
31 !Label class methodsFor:'documentation'! |
31 !Label class methodsFor:'documentation'! |
32 |
32 |
33 copyright |
33 copyright |
44 " |
44 " |
45 ! |
45 ! |
46 |
46 |
47 version |
47 version |
48 " |
48 " |
49 $Header: /cvs/stx/stx/libwidg/Label.st,v 1.31 1995-09-07 12:45:12 claus Exp $ |
49 $Header: /cvs/stx/stx/libwidg/Label.st,v 1.32 1995-09-18 10:38:42 claus Exp $ |
50 " |
50 " |
51 ! |
51 ! |
52 |
52 |
53 documentation |
53 documentation |
54 " |
54 " |
993 |
993 |
994 verticalSpace:aNumber |
994 verticalSpace:aNumber |
995 "set the number of pixels by which the logo |
995 "set the number of pixels by which the logo |
996 is vertically inset from the border" |
996 is vertically inset from the border" |
997 |
997 |
998 vSpace := aNumber |
998 vSpace := aNumber. |
|
999 self newLayout |
999 ! |
1000 ! |
1000 |
1001 |
1001 horizontalSpace:aNumber |
1002 horizontalSpace:aNumber |
1002 "set the number of pixels by which the logo |
1003 "set the number of pixels by which the logo |
1003 is horizontally inset from the border" |
1004 is horizontally inset from the border" |
1004 |
1005 |
1005 hSpace := aNumber |
1006 hSpace := aNumber. |
|
1007 self newLayout |
1006 ! |
1008 ! |
1007 |
1009 |
1008 font:aFont |
1010 font:aFont |
1009 "set the font - if I'm not realized and not fixedSize, adjust my size" |
1011 "set the font - if I'm not realized and not fixedSize, adjust my size" |
1010 |
1012 |