equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libwidg' }" |
12 "{ Package: 'stx:libwidg' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 EnterBox subclass:#EnterBox2 |
16 EnterBox subclass:#EnterBox2 |
15 instanceVariableNames:'okButton2 okAction2' |
17 instanceVariableNames:'okButton2 okAction2' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
38 " |
40 " |
39 Historic note: |
41 Historic note: |
40 originally, ST/X had separate classes for the various entry methods; |
42 originally, ST/X had separate classes for the various entry methods; |
41 there were YesNoBox, EnterBox, InfoBox and so on. |
43 there were YesNoBox, EnterBox, InfoBox and so on. |
42 In the meantime, the DialogBox class (and therefore its alias: Dialog) |
44 In the meantime, the DialogBox class (and therefore its alias: Dialog) |
43 is going to duplicate most funcionality found in these classes. |
45 is going to duplicate most functionality found in these classes. |
44 |
46 |
45 In the future, those existing subclasses' functionality is going to |
47 In the future, those existing subclasses' functionality is going to |
46 be moved fully into Dialog, and the subclasses will be replaced by dummy |
48 be moved fully into Dialog, and the subclasses will be replaced by dummy |
47 delegators. (They will be kept for backward compatibility, though). |
49 delegators. (They will be kept for backward compatibility, though). |
48 |
50 |
65 ! ! |
67 ! ! |
66 |
68 |
67 !EnterBox2 class methodsFor:'instance creation'! |
69 !EnterBox2 class methodsFor:'instance creation'! |
68 |
70 |
69 title:titleString okText1:text1 okText2:text2 abortText:abortText |
71 title:titleString okText1:text1 okText2:text2 abortText:abortText |
70 action1:block1 action2:block2 |
72 action1:block1 action2:block2 |
71 "create and return a new EnterBox-with-2 buttons |
73 "create and return a new EnterBox-with-2 buttons |
72 and define its text, button-labels and actions" |
74 and define its text, button-labels and actions" |
73 |
75 |
74 ^ (super title:titleString |
76 ^ (super title:titleString |
75 okText:text1 |
77 okText:text1 |
76 abortText:abortText |
78 abortText:abortText |
77 action:block1) okText2:text2 action2:block2 |
79 action:block1) okText2:text2 action2:block2 |
78 ! ! |
80 ! ! |
79 |
81 |
80 !EnterBox2 methodsFor:'accessing'! |
82 !EnterBox2 methodsFor:'accessing'! |
81 |
83 |
82 action2:aBlock |
84 action2:aBlock |
150 ! ! |
152 ! ! |
151 |
153 |
152 !EnterBox2 class methodsFor:'documentation'! |
154 !EnterBox2 class methodsFor:'documentation'! |
153 |
155 |
154 version |
156 version |
155 ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.27 2013-08-29 10:28:00 cg Exp $' |
157 ^ '$Header$' |
156 ! ! |
158 ! ! |
157 |
159 |