fpc/packages/gtk1/examples/statusbar.pp

{

  Converted from C to Pascal by Artur Bac with liitle additions changes
  <[email protected]>
  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.