You've already forked lazarus-ccr
0ccec5aa6e
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2011 8e941d3f-bd1b-0410-a28a-d453659cc2b4
49 lines
1.1 KiB
ObjectPascal
49 lines
1.1 KiB
ObjectPascal
program HelloWorld;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, Math, GLib2, GObject2, Gtk3;
|
|
|
|
// these procedures are signal handlers. they are called when a signal is emitted
|
|
procedure Gtk_Window_Destroy(Sender: PGtkWidget; user_data: gpointer); cdecl;
|
|
begin
|
|
if gtk_main_level > 0 then
|
|
gtk_main_quit;
|
|
end;
|
|
|
|
procedure Button_Click(Sender: PGtkWidget; user_data: gpointer); cdecl;
|
|
begin
|
|
gtk_main_quit;
|
|
end;
|
|
|
|
procedure CreateWidgets;
|
|
var
|
|
Win: PGtkWindow;
|
|
Button: PGtkButton;
|
|
begin
|
|
// first create window
|
|
Win := TGtkWindow.new(GTK_WINDOW_TOPLEVEL);
|
|
Win^.set_title('Hello World!');
|
|
Win^.set_size_request(300,200);
|
|
|
|
//then create a button and add it to the window
|
|
Button := TGtkButton.new_with_label('Quit');
|
|
Win^.add(PGtkWidget(Button));
|
|
|
|
// now connect signals
|
|
g_signal_connect_data(Win, 'destroy', TGCallback(@Gtk_Window_Destroy), nil, nil, 0);
|
|
g_signal_connect_data(Button, 'clicked', TGCallback(@Button_Click), nil, nil, 0);
|
|
|
|
Win^.show_all;
|
|
end;
|
|
|
|
|
|
begin
|
|
SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);
|
|
gtk_init(@argc, @argv);
|
|
CreateWidgets;
|
|
gtk_main;
|
|
end.
|
|
|