[gtkada] Overwriting Size_Request

[Martin Klaiber]

Hi,

I need an Entry-Object which is not that wide by default as Gtk_GEntry.
Overwriting Size_Request gives no effect here. Does someone know what's
wrong with my code?

  -- Spec ---------
  
  type Num_Entry_Record is new Gtk_Entry_Record with null record;
  ...
  procedure Size_Request (Num_Entry   : access Num_Entry_Record;
                          Requisition : in out Gtk_Requisition);


  -- Body ---------
  
  procedure Size_Request (Num_Entry   : access Num_Entry_Record;
                          Requisition : in out Gtk_Requisition) is
  begin
    Requisition := Get_Child_Requisition (Num_Entry);
    Requisition.Width := 30;
    Gtk.Handlers.Emit_Stop_By_Name (Num_Entry, "size_request");
  end Size_Request;
	  
Thanks, Martin