[gtkada] Putting an XMP graphic on a button

[Grein, Christoph]

> Ah I was a bit confused at first. Try add: 
> 
> >     Gtk.Pixmap.Gtk_New (Graphic, Pixmap, Mask);
> >     Gtk.Button.Add (F_Smedit.Current_State_Scroll_Up, Graphic);
> 
> Show (F_Smedit.Current_State_Scroll_Up)
> 
> >   end Set_Button_Pixmap;
> 
> And put the call in position (2)