editorWidget.p
| 1 |
/**static widgets: fill-in, editor**/ |
|---|---|
| 2 |
define variable name as char view-as fill-in size 20 by 1 label "name" initial "name1". |
| 3 |
define variable description as char view-as editor size 20 by 2 inner-lines 2 |
| 4 |
inner-chars 20 label "description" initial "first line1.~nsecond line2.". |
| 5 |
|
| 6 |
define button UpdateButton label "Update". |
| 7 |
define button ExitButton label "Exit". |
| 8 |
|
| 9 |
define frame aframe |
| 10 |
name at row 2 column 2 |
| 11 |
description at row 10 column 2 |
| 12 |
UpdateButton at row 16 column 30 |
| 13 |
ExitButton at row 16 column 40 |
| 14 |
with side-labels. |
| 15 |
|
| 16 |
on choose of UpdateButton |
| 17 |
do: |
| 18 |
assign name. |
| 19 |
assign description. |
| 20 |
Message "name: " + name + " description: " + description |
| 21 |
view-as alert-box title "Warning.". |
| 22 |
end. |
| 23 |
|
| 24 |
Message "The default values are~n name: " + name + "~n and description: " + description |
| 25 |
view-as alert-box title "Warning.". |
| 26 |
display name description with frame aframe. |
| 27 |
enable all with frame aframe. |
| 28 |
wait-for choose of ExitButton. |