| Language: |
|
| Pastebin: | 92424 |
| Author: | middayc |
| Subject: | test gui client for lua server |
| Created: | 2008-07-25 07:31:51 |
Download and save
Toggle line numbers
| 1 | REBOL [ ]
| | 2 |
| | 3 |
| | 4 | con: open/direct/lines/no-wait tcp://localhost:9049
| | 5 |
| | 6 | view/new win: layout [ text "type news here and press ENTER"
| | 7 | entry: field [ insert con entry/text entry/text: "" focus entry ]
| | 8 | news: info "" 400x400
| | 9 | button "quit" [ close con unview halt ]
| | 10 | ]
| | 11 |
| | 12 | show win
| | 13 |
| | 14 |
| | 15 | forever [
| | 16 | wait con
| | 17 | foreach msg any [copy con []] [
| | 18 | append news/text join msg newline
| | 19 | ]
| | 20 | show news
| | 21 | ]
| | 22 |
|
|
| Thread: |
|
Tip: Click the line numbers to toggle highliting on that line.
Note: You can prefix a line with "@@@" to highlight it.