[gtkada] Patch for Glade HScale/VScale top widget name generation

[Marc A. Criley]

Glade generates an incorrect name for the top-level widget for HScale
and VScale controls.  It's a 1-line fix, and the patch follows:


--- gtk_generates.adb.old	2003-11-27 13:38:30.000000000 -0500
+++ gtk_generates.adb	2003-11-27 13:55:37.000000000 -0500
@@ -1503,7 +1503,7 @@
       Name  : constant String := Get_Name (N);
       Class : constant String := Get_Class (N);
       Top_Widget : constant Node_Ptr := Find_Top_Widget (N);
-      Top   : constant String := Get_Name (Top_Widget);
+      Top   : constant String := To_Ada (Get_Name (Top_Widget));
       function Build_Vscale return Glib.GType;
       pragma Import (C, Build_Vscale, "gtk_vscale_get_type");
       function Build_Hscale return Glib.GType;




Marc A. Criley
mc at mckae.com

McKae Technologies      www.mckae.com
"The Efficient Production of High Quality Software"