statusbar

pascal:

{

  $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.

¿Ya le viste algún error? Dejanos tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress elimina los tags HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios.

Otro punto antes de comentar, Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

Si es lenguaje C [c]Código en C[/c]
Si es lenguaje Pascal [pascal]Aquí dentro el código de Pascal[/pascal].

De esta manera el código sale coloreado.

Otro punto importante para muchos que sienten que se les ignora: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el último párrafo.

Para poner los símbolos de las librerías sin que desaparezcan, debes escribir los símbolos de mayor > y menor qué < con su entidad HTML correspondiente, así como el símbolo de &

Mayor qué: >
Mayor qué: <
Este símbolo & : &

Mis Algoritmos se reserva el derecho de alterar, publicar o no los comentarios así como cambiar estas reglas de uso.

Si estas de acuerdo, adelante puedes comentar :)

P.D. No le hago tareas a nadie, mejor hagan la mía :P