fpcsrc/packages/gtk2/examples/gettingstarted/gettingstarted.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

program GettingStarted;

{$mode objfpc}{$H+}

uses
  GTK2;

var
  MainWindow: PGtkWidget;

begin
  gtk_init (@argc, @argv);

  MainWindow := gtk_window_new (GTK_WINDOW_TOPLEVEL);
  gtk_widget_show  (MainWindow);

  gtk_main;
end.