Anonymous user
Window creation: Difference between revisions
Add Seed7 example
m (→{{libheader|Gtk2}}: Gtk2 -> Perl/Gtk2) |
(Add Seed7 example) |
||
Line 1,818:
}
}</lang>
=={{header|Seed7}}==
Seed7 has a graphics library ([http://seed7.sourceforge.net/libraries/draw.htm draw.s7i]),
which is operating system independend.
Seed7 programs run on all supported operating systems without a change.
The program below opens a small window.
The program waits until a key is pressed and exits.
<lang seed7>$ include "seed7_05.s7i";
include "draw.s7i";
include "keybd.s7i";
const proc: main is func
begin
screen(200, 200);
KEYBOARD := GRAPH_KEYBOARD;
ignore(getc(KEYBOARD));
end func;</lang>
=={{header|Smalltalk}}==
| |||