mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-29 04:26:12 +02:00
29 lines
666 B
ObjectPascal
29 lines
666 B
ObjectPascal
{$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.
|