clipboard_basic.p
| 1 |
/**clipboard **/ |
|---|---|
| 2 |
define variable copy as character label "Copy from" |
| 3 |
view-as editor size-chars 48 by 6. |
| 4 |
define variable paste as character label "Put here" |
| 5 |
view-as editor size-chars 48 by 6 no-word-wrap. |
| 6 |
|
| 7 |
define button b1 label "Exit". |
| 8 |
|
| 9 |
form |
| 10 |
b1 |
| 11 |
skip(1) |
| 12 |
copy |
| 13 |
skip(1) |
| 14 |
paste |
| 15 |
with frame f1 side-labels column 1 row 1. |
| 16 |
|
| 17 |
copy = "hello ~n 4GL ~n world!". |
| 18 |
display b1 copy paste with frame f1. |
| 19 |
enable all with frame f1. |
| 20 |
wait-for choose of b1. |