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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88

{
  $Id: statusbar.pp,v 1.3 2002/09/07 15:42:58 peter Exp $
 
  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 := PChar(buff); //changing type from ansistring to PGChar == PChar
      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.