clipboard_stream.p
| 1 |
def var i as int. |
|---|---|
| 2 |
def stream clippy. |
| 3 |
|
| 4 |
def button b1. |
| 5 |
|
| 6 |
def frame f1 b1. |
| 7 |
|
| 8 |
|
| 9 |
enable all with frame f1. |
| 10 |
|
| 11 |
on choose of b1 do: |
| 12 |
output stream clippy to "clipboard" PAGED PAGE-SIZE 3 CONVERT SOURCE "ISO8859-1" TARGET "UTF-8". |
| 13 |
do i = 1 to 60: |
| 14 |
put stream clippy "Line " i "~r~n" SKIP. |
| 15 |
end. |
| 16 |
|
| 17 |
pause message "check the system clipboard buffer". |
| 18 |
do i = 61 to 220: |
| 19 |
put stream clippy "Line " i "~r~n". |
| 20 |
end. |
| 21 |
|
| 22 |
output stream clippy close. |
| 23 |
end. |
| 24 |
|
| 25 |
wait-for close of current-window. |