equal
deleted
inserted
replaced
3197 requestSelector:aString initialAnswer:initial |
3197 requestSelector:aString initialAnswer:initial |
3198 "launch a Dialog, which allows user to enter a method selector. |
3198 "launch a Dialog, which allows user to enter a method selector. |
3199 Return the entered string (may be empty string) or nil (if cancel was pressed). |
3199 Return the entered string (may be empty string) or nil (if cancel was pressed). |
3200 The entryField does selectorCompletion on TAB." |
3200 The entryField does selectorCompletion on TAB." |
3201 |
3201 |
|
3202 ^ self requestSelector:aString okLabel:nil initialAnswer:initial |
|
3203 |
|
3204 " |
|
3205 Dialog |
|
3206 requestSelector:'enter a selector:' |
|
3207 initialAnswer:'at:p' |
|
3208 " |
|
3209 ! |
|
3210 |
|
3211 requestSelector:aString okLabel:okLabel initialAnswer:initial |
|
3212 "launch a Dialog, which allows user to enter a method selector. |
|
3213 Return the entered string (may be empty string) or nil (if cancel was pressed). |
|
3214 The entryField does selectorCompletion on TAB." |
|
3215 |
3202 ^ self |
3216 ^ self |
3203 request:aString |
3217 request:aString |
3204 displayAt:nil |
3218 displayAt:nil |
3205 centered:nil |
3219 centered:nil |
3206 action:nil |
3220 action:nil |
3207 initialAnswer:initial |
3221 initialAnswer:initial |
3208 okLabel:nil |
3222 okLabel:okLabel |
3209 cancelLabel:nil |
3223 cancelLabel:nil |
3210 title:nil |
3224 title:nil |
3211 onCancel:nil |
3225 onCancel:nil |
3212 list:nil |
3226 list:nil |
3213 initialSelection:nil |
3227 initialSelection:nil |
7142 ! ! |
7156 ! ! |
7143 |
7157 |
7144 !DialogBox class methodsFor:'documentation'! |
7158 !DialogBox class methodsFor:'documentation'! |
7145 |
7159 |
7146 version |
7160 version |
7147 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.173 2001-10-18 13:03:31 cg Exp $' |
7161 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.174 2001-11-07 10:00:43 cg Exp $' |
7148 ! ! |
7162 ! ! |
7149 DialogBox initialize! |
7163 DialogBox initialize! |