equal
deleted
inserted
replaced
19 |
19 |
20 LabelledEnterField comment:' |
20 LabelledEnterField comment:' |
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 $Header: /cvs/stx/stx/libwidg2/Attic/LEnterFld.st,v 1.5 1995-05-03 00:42:42 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg2/Attic/LEnterFld.st,v 1.6 1995-05-07 00:18:17 claus Exp $ |
25 written winter 91 by claus |
25 written winter 91 by claus |
26 '! |
26 '! |
27 |
27 |
28 !LabelledEnterField class methodsFor:'documentation'! |
28 !LabelledEnterField class methodsFor:'documentation'! |
29 |
29 |
34 " |
34 " |
35 ! |
35 ! |
36 |
36 |
37 version |
37 version |
38 " |
38 " |
39 $Header: /cvs/stx/stx/libwidg2/Attic/LEnterFld.st,v 1.5 1995-05-03 00:42:42 claus Exp $ |
39 $Header: /cvs/stx/stx/libwidg2/Attic/LEnterFld.st,v 1.6 1995-05-07 00:18:17 claus Exp $ |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 copyright |
43 copyright |
44 " |
44 " |
72 - labelField width) @ (textField heightIncludingBorder)]. |
72 - labelField width) @ (textField heightIncludingBorder)]. |
73 |
73 |
74 " |
74 " |
75 forward keyboard input to the enterField |
75 forward keyboard input to the enterField |
76 " |
76 " |
77 self delegate:(KeyboardForwarder from:self to:textField) |
77 self delegate:(KeyboardForwarder from:self toView:textField) |
78 |
78 |
79 " |
79 " |
80 LabelledEnterField new realize |
80 LabelledEnterField new realize |
81 " |
81 " |
82 ! ! |
82 ! ! |