Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
22
Task/Hello-world-Graphical/Pascal/hello-world-graphical.pas
Normal file
22
Task/Hello-world-Graphical/Pascal/hello-world-graphical.pas
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
program HelloWorldGraphical;
|
||||
|
||||
uses
|
||||
glib2, gdk2, gtk2;
|
||||
|
||||
var
|
||||
window: PGtkWidget;
|
||||
|
||||
begin
|
||||
gtk_init(@argc, @argv);
|
||||
|
||||
window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
|
||||
|
||||
gtk_window_set_title (GTK_WINDOW (window), 'Goodbye, World');
|
||||
g_signal_connect (G_OBJECT (window),
|
||||
'delete-event',
|
||||
G_CALLBACK (@gtk_main_quit),
|
||||
NULL);
|
||||
gtk_widget_show_all (window);
|
||||
|
||||
gtk_main();
|
||||
end.
|
||||
Loading…
Add table
Add a link
Reference in a new issue