equal
deleted
inserted
replaced
3433 "return a dialog asking for multiline text. |
3433 "return a dialog asking for multiline text. |
3434 The box is not shown yet, for further customization" |
3434 The box is not shown yet, for further customization" |
3435 |
3435 |
3436 ^ self |
3436 ^ self |
3437 forRequestText:title |
3437 forRequestText:title |
3438 editViewClass:EditTextView |
3438 editViewClass:editViewClass |
3439 lines:numLines columns:numCols |
3439 lines:numLines columns:numCols |
3440 initialAnswer:initialText |
3440 initialAnswer:initialText |
3441 setupWith: |
3441 setupWith: |
3442 [:textView :dialog| |
3442 [:textView :dialog| |
3443 initialText notEmptyOrNil ifTrue:[ |
3443 initialText notEmptyOrNil ifTrue:[ |
10051 ! ! |
10051 ! ! |
10052 |
10052 |
10053 !DialogBox class methodsFor:'documentation'! |
10053 !DialogBox class methodsFor:'documentation'! |
10054 |
10054 |
10055 version |
10055 version |
10056 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.347 2014-02-03 10:33:03 cg Exp $' |
10056 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.348 2014-02-08 11:31:21 cg Exp $' |
10057 ! |
10057 ! |
10058 |
10058 |
10059 version_CVS |
10059 version_CVS |
10060 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.347 2014-02-03 10:33:03 cg Exp $' |
10060 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.348 2014-02-08 11:31:21 cg Exp $' |
10061 ! ! |
10061 ! ! |
10062 |
10062 |
10063 |
10063 |
10064 DialogBox initialize! |
10064 DialogBox initialize! |