[gtkada] Possible problem in Glib.Properties

[Manuel Op de Coul]

Thanks, it's working now. I changed it similar to this.
After use, the settings object needs to be Unref'ed.

   function Get_Settings (Widget : access Gtk_Widget_Record'Class) return
GObject
   is
      function Internal (Widget : System.Address) return System.Address;
      pragma Import (C, Internal, "gtk_widget_get_settings");
      R : GObject;
   begin
      R := new GObject_Record;
      Initialize(R);
      Set_Object(R, Internal (Get_Object (Widget)));
      return R;
   end Get_Settings;

Manuel