mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-03 01:33:40 +02:00
98 lines
3.1 KiB
ObjectPascal
98 lines
3.1 KiB
ObjectPascal
{
|
|
|
|
This file extracted from the GTK 1.2 tutorial.
|
|
Section 3.3
|
|
|
|
Converted from C to Pascal by Thomas E. Payne
|
|
}
|
|
program tut3_3;
|
|
|
|
{$mode objfpc}
|
|
|
|
uses
|
|
glib,gdk,gtk,sysutils;
|
|
|
|
procedure callback(widget : pGtkWidget ; data: pgpointer ); cdecl;
|
|
begin
|
|
writeln('Hello again - '+PAnsiChar(data)+' was pressed');
|
|
end;
|
|
|
|
function delete_event (widget : pGtkWidget ; event: pGdkEvent; data: pgpointer ): integer; cdecl;
|
|
begin
|
|
gtk_main_quit();
|
|
delete_event:=0;
|
|
end;
|
|
|
|
var
|
|
window, button, box1 : pGtkWidget;//GtkWidget is the storage type for widgets
|
|
|
|
begin
|
|
// This is called in all GTK applications. Arguments are parsed
|
|
// from the command line and are returned to the application.
|
|
gtk_init (@argc, @argv);
|
|
|
|
// create a new window
|
|
window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
|
|
|
|
// This is a new call, this just sets the title of our
|
|
// new window to "Hello Buttons!" */
|
|
gtk_window_set_title (GTK_WINDOW (window), 'Hello Buttons!');
|
|
|
|
// Here we just set a handler for delete_event that immediately
|
|
// exits GTK. */
|
|
gtk_signal_connect (pGTKOBJECT (window), 'delete_event',
|
|
GTK_SIGNAL_FUNC (@delete_event), NIL);
|
|
|
|
// Sets the border width of the window.
|
|
gtk_container_set_border_width (GTK_CONTAINER (window), 10);
|
|
|
|
// We create a box to pack widgets into. This is described in detail
|
|
// in the "packing" section. The box is not really visible, it
|
|
// is just used as a tool to arrange widgets. */
|
|
box1 := gtk_hbox_new(FALSE, 0);
|
|
|
|
// Put the box into the main window. */
|
|
gtk_container_add (GTK_CONTAINER (window), box1);
|
|
|
|
// Creates a new button with the label "Button 1".
|
|
button := gtk_button_new_with_label ('Button 1');
|
|
|
|
// Now when the button is clicked, we call the "callback" function
|
|
// with a pointer to "button 1" as its argument */
|
|
gtk_signal_connect (pGTKOBJECT (button), 'clicked',
|
|
GTK_SIGNAL_FUNC (@callback), PAnsiChar('Button 1'));
|
|
|
|
// Instead of gtk_container_add, we pack this button into the invisible
|
|
// box, which has been packed into the window. */
|
|
gtk_box_pack_start(GTK_BOX(box1), button, TRUE, TRUE, 0);
|
|
|
|
// Always remember this step, this tells GTK that our preparation for
|
|
// this button is complete, and it can now be displayed. */
|
|
gtk_widget_show (button);
|
|
|
|
// Do these same steps again to create a second button */
|
|
button := gtk_button_new_with_label ('Button 2');
|
|
|
|
// Call the same callback function with a different argument,
|
|
// passing a pointer to "button 2" instead. */
|
|
gtk_signal_connect (GTK_OBJECT (button), 'clicked',
|
|
GTK_SIGNAL_FUNC (@callback), PAnsiChar('Button 2'));
|
|
|
|
gtk_box_pack_start(GTK_BOX(box1), button, TRUE, TRUE, 0);
|
|
|
|
// The order in which we show the buttons is not really important, but I
|
|
// recommend showing the window last, so it all pops up at once. */
|
|
gtk_widget_show(button);
|
|
|
|
gtk_widget_show(box1);
|
|
|
|
|
|
// and the window
|
|
gtk_widget_show (window);
|
|
|
|
// All GTK applications must have a gtk_main(). Control ends here
|
|
// and waits for an event to occur (like a key press or
|
|
// mouse event).
|
|
gtk_main ();
|
|
end.
|