Simple windowed application: Difference between revisions
Content added Content deleted
m (deleted <nowiki> tags) |
(Added PicoLisp) |
||
Line 928: | Line 928: | ||
});</lang> |
});</lang> |
||
=={{header|PicoLisp}}== |
|||
The standard PicoLisp GUI is HTTP based. Connect your browser to |
|||
http://localhost:8080 after starting the following script. |
|||
<lang PicoLisp>#!bin/picolisp lib.l |
|||
(load "ext.l" "lib/http.l" "lib/xhtml.l" "lib/form.l") |
|||
(zero *Count) |
|||
(de start () |
|||
(app) |
|||
(action |
|||
(html 0 "Clicks" NIL NIL |
|||
(form NIL |
|||
(gui '(+Init +TextField) "There have been no clicks yet") |
|||
(----) |
|||
(gui '(+JS +Button) "click me" |
|||
'(set> (field -1) |
|||
(pack "Clicked " (inc '*Count) " times") ) ) ) ) ) ) |
|||
(server 8080 "@start") |
|||
(wait)</lang> |
|||
=={{header|PureBasic}}== |
=={{header|PureBasic}}== |