mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 08:07:54 +02:00
88 lines
2.4 KiB
ObjectPascal
88 lines
2.4 KiB
ObjectPascal
{
|
|
|
|
Converted from C to Pascal by Artur Bac with liitle additions changes
|
|
<arturbac@poczta.onet.pl>
|
|
Reda Poland
|
|
}
|
|
{$MODE objfpc}
|
|
{$H+}
|
|
{$S+}
|
|
{$HINTS ON}
|
|
{$ifdef win32}
|
|
{$define extdecl := stdcall;}
|
|
{$APPTYPE GUI}
|
|
{$endif}
|
|
{$ifdef unix}
|
|
{$define extdecl := cdecl;}
|
|
{$endif}
|
|
|
|
Program statusbar;
|
|
Uses glib,gtk;
|
|
Type
|
|
PGInt = ^gint;
|
|
Var
|
|
status_bar : PGtkWidget;
|
|
count : longint;
|
|
Procedure push_item( widget : PGtkWidget;
|
|
data : PGInt); cdecl;
|
|
Var
|
|
buff : ansistring;
|
|
ptr_buff : PGChar;
|
|
Begin
|
|
Inc(count);
|
|
Str(count,buff);
|
|
buff := 'Item ' + buff;
|
|
|
|
Ptr_buff := PAnsiChar(buff); //changing type from ansistring to PGChar == PAnsiChar
|
|
gtk_statusbar_push(GTK_STATUSBAR(status_bar), data^, Ptr_buff);
|
|
End;
|
|
Procedure pop_item( widget : PGtkWidget;
|
|
data : PGint); cdecl; //i used pointer to gint , not gpointer becouse we can
|
|
// read value directly from an adress specified in data
|
|
Begin
|
|
gtk_statusbar_pop( GTK_STATUSBAR(status_bar), data^);
|
|
End;
|
|
|
|
Var
|
|
window,
|
|
vbox,
|
|
button1,button2 : PGtkWidget;
|
|
|
|
context_id : gint;
|
|
Begin
|
|
gtk_set_locale ();
|
|
gtk_init (@argc, @argv);
|
|
gtk_rc_init;
|
|
count:=1;
|
|
//* create a new window
|
|
window := gtk_window_new(GTK_WINDOW_TOPLEVEL);
|
|
gtk_widget_set_usize( GTK_WIDGET (window), 200, 100); // GTK_WIDGET == PGtkWidget
|
|
gtk_window_set_title(GTK_WINDOW (window), 'GTK Statusbar Example');
|
|
|
|
vbox := gtk_vbox_new(FALSE, 1);
|
|
gtk_container_add(GTK_CONTAINER(window), vbox);
|
|
|
|
status_bar := gtk_statusbar_new();
|
|
gtk_box_pack_start (GTK_BOX (vbox), status_bar, TRUE, TRUE, 0);
|
|
|
|
context_id := gtk_statusbar_get_context_id(
|
|
GTK_STATUSBAR(status_bar), 'Statusbar example');
|
|
|
|
button1 := gtk_button_new_with_label('push item');
|
|
gtk_box_pack_start(GTK_BOX(vbox), button1, TRUE, TRUE, 2);
|
|
|
|
button2 := gtk_button_new_with_label('pop last item');
|
|
gtk_box_pack_start(GTK_BOX(vbox), button2, TRUE, TRUE, 2);
|
|
|
|
|
|
gtk_signal_connect(GTK_OBJECT (window), 'delete_event',
|
|
Gtk_Signal_Func (@gtk_exit), NULL);
|
|
gtk_signal_connect(GTK_OBJECT(button1), 'clicked',
|
|
GTK_SIGNAL_FUNC (@push_item), @context_id );
|
|
gtk_signal_connect(GTK_OBJECT(button2), 'clicked',
|
|
GTK_SIGNAL_FUNC (@pop_item), @context_id );
|
|
|
|
gtk_widget_show_all (window);
|
|
gtk_main ();
|
|
End.
|