← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/libgtkada2/intrepid

« back to all changes in this revision

Viewing changes to src/glib-glade.adb

  • Committer: Bazaar Package Importer
  • Author(s): Luca Falavigna
  • Date: 2008-08-11 09:46:51 UTC
  • mfrom: (6.1.1 squeeze)
  • Revision ID: james.westby@ubuntu.com-20080811094651-9mjd6acwa98ffw5c
Tags: 2.12.0-2ubuntu1
Add lpia to supported architectures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/glib-glade.adb
929
929
               Query (Id, Q);
930
930
               Returned := Return_Type (Q);
931
931
 
932
 
               Rename := Add_Signal
933
 
                 (Top,
934
 
                  new String'(Handler),
935
 
                  new String'(Name),
936
 
                  Class,
937
 
                  new String'(Orig_Class));
 
932
               if Object = "" then
 
933
                  Rename := Add_Signal
 
934
                    (Top,
 
935
                     new String'(Handler),
 
936
                     new String'(Name),
 
937
                     Class,
 
938
                     new String'(Orig_Class));
 
939
               else
 
940
                  Rename := Add_Signal
 
941
                    (Top,
 
942
                     new String'(Handler),
 
943
                     new String'(Name),
 
944
                     new String'("Gtk_Widget"),
 
945
                     new String'(Orig_Class));
 
946
               end if;
938
947
 
939
948
               if Returned <= GType_None and then Class.all /= "GtkWidget" then
940
949
                  Add_Signal_Instantiation (Class, Rename);
942
951
 
943
952
               if Returned > GType_None then
944
953
                  Put (File, "   Return_Callback.");
 
954
               elsif Object /= "" then
 
955
                  Put (File, "   Widget_Callback.");
945
956
               else
946
957
                  Put
947
958
                    (File, "   " &
978
989
 
979
990
               if Params (Q)'Length = 0 then
980
991
                  New_Line (File);
981
 
                  Put (File, "      " &
982
 
                       To_Ada (Class (Class'First + 3 .. Class'Last)) &
983
 
                       "_Callback.To_Marshaller (" & To_Ada (Handler)
 
992
                  Put (File, "      ");
 
993
                  if Object /= "" then
 
994
                     Put (File, "Widget");
 
995
                  else
 
996
                     Put
 
997
                       (File, To_Ada (Class (Class'First + 3 .. Class'Last)));
 
998
                  end if;
 
999
                  Put (File, "_Callback.To_Marshaller (" & To_Ada (Handler)
984
1000
                       & "'Access)");
985
1001
               else
986
1002
                  Put (File, " " & To_Ada (Handler) & "'Access");