blob: faaae7fdc683c4bd2e5d2833b29040864b6e3dc0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
{$mode objfpc}{$h+}
program GtkDef;
uses sysutils, // exception
FPgtkExt, // Application, TFPgtkApplication
settingsrec,
GTKEditor; // Mainwindow: TGtkEditorWindow
begin
try
Log ('Creating application');
application := TFPgtkApplication.Create;
Log ('Setting mainwindow');
application.MainWindow := TGtkEditorWindow.Create;
Log ('Running GTK');
application.Run;
Log ('Everything Closed');
application.Free;
Log ('Cleaned up everything');
except
on e : Exception do
begin
writeln ('UNEXPECTED ERROR: ', e.message);
ShowMessage ('UNEXPECTED ERROR ', e.message);
end;
end;
end.
|
