Anonymous user
Simple windowed application: Difference between revisions
Added gForth/tk
m (→{{header|Phix}}: added personal tag) |
(Added gForth/tk) |
||
Line 1,365:
=={{header|Forth}}==
===with MINOS===
{{works with|bigFORTH}}
{{libheader|MINOS}}
Line 1,380 ⟶ 1,381:
===The same with Theseus===
{{works with|bigFORTH}}
{{libheader|Theseus}}
<lang forth>#! xbigforth
Line 1,417 ⟶ 1,419:
script? [IF] main [THEN]
previous previous previous</lang>
===with Tk/wish===
{{works with|gforth|0.7.3}}
{{libheader|Tk}}
Creates a GUI with 'wish' from tk library. Uses pipes on standard input and output (created throw linux system calls).
<lang forth>0 value tk-in
0 value tk-out
variable #clicks
0 #clicks !
: wish{ \ send command to wish
tk-in to outfile-id ;
: }wish \ finish command to wish
tk-in flush-file throw
stdout to outfile-id ;
: add-one 1 #clicks +! ;
: update-wish wish{ .\" .label configure -text \"clicks: " #clicks @ . .\" \"" cr }wish ;
: counting
begin
tk-out key-file
dup '+' = if add-one update-wish then \ add one if '+' received
4 = until ; \ until Ctrl-D, wish exit
: initiating
s" mkfifo tk-in tk-out" system
s" wish <tk-in >tk-out &" system
s" tk-in" w/o open-file throw to tk-in
s" tk-out" r/o open-file throw to tk-out
wish{ .\" pack [ label .label -text \"There have been no clicks yet\" ] " cr }wish
wish{ .\" pack [ button .click -text \"Click Me\" -command { puts \"+\" } ] " cr }wish ;
: cleaning
tk-in close-file
tk-out close-file
s" rm tk-in tk-out" system ;
initiating counting cleaning</lang>
=={{header|FreeBASIC}}==
| |||