equal
deleted
inserted
replaced
19 |
19 |
20 EnterBox2 comment:' |
20 EnterBox2 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/libwidg/EnterBox2.st,v 1.5 1994-08-07 13:21:33 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.6 1994-08-23 23:37:01 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !EnterBox2 class methodsFor:'documentation '! |
27 !EnterBox2 class methodsFor:'documentation '! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.5 1994-08-07 13:21:33 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.6 1994-08-23 23:37:01 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
78 self ok2Pressed |
78 self ok2Pressed |
79 ] |
79 ] |
80 in:buttonPanel. |
80 in:buttonPanel. |
81 okButton isReturnButton:false. |
81 okButton isReturnButton:false. |
82 okButton2 isReturnButton:true. |
82 okButton2 isReturnButton:true. |
|
83 okButton2 cursor:(Cursor thumbsUp). |
|
84 |
83 self resize. |
85 self resize. |
84 enterField leaveAction:[:key | self ok2Pressed] |
86 enterField leaveAction:[:key | self ok2Pressed] |
85 ! ! |
87 ! ! |
86 |
88 |
87 !EnterBox2 methodsFor:'realization'! |
89 !EnterBox2 methodsFor:'realization'! |