equal
deleted
inserted
replaced
21 COPYRIGHT (c) 1991 by Claus Gittinger |
21 COPYRIGHT (c) 1991 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 An EnterField with a name. |
24 An EnterField with a name. |
25 |
25 |
26 $Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.1 1994-08-05 01:24:02 claus Exp $ |
26 $Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.2 1994-10-10 03:13:24 claus Exp $ |
27 written winter 91 by claus |
27 written winter 91 by claus |
28 '! |
28 '! |
29 |
29 |
30 !LabelledEnterField methodsFor:'initialization'! |
30 !LabelledEnterField methodsFor:'initialization'! |
31 |
31 |
47 "LabelledEnterField new realize" |
47 "LabelledEnterField new realize" |
48 ! ! |
48 ! ! |
49 |
49 |
50 !LabelledEnterField methodsFor:'accessing'! |
50 !LabelledEnterField methodsFor:'accessing'! |
51 |
51 |
|
52 disable |
|
53 textField disable |
|
54 ! |
|
55 |
52 label:aString |
56 label:aString |
53 labelField label:aString |
57 labelField label:aString |
|
58 ! |
|
59 |
|
60 contents |
|
61 ^ textField contents |
54 ! |
62 ! |
55 |
63 |
56 contents:aString |
64 contents:aString |
57 textField contents:aString |
65 textField contents:aString |
58 ! ! |
66 ! ! |