AuroraMiddleware/gtk2
1
0
Fork 0
forked from AuroraMiddleware/gtk
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed functions with no arguments

Browse Source
This commit is contained in:
Elliot Lee 1998-06-17 05:12:27 +00:00
parent ed1e531c36
commit 7bb4d7d961
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gtk/genmarshal.pl
View File

@ -54,7 +54,7 @@ while(chomp($aline = <IL>)) {
.$retval."__".join("_",@params).")(GtkObject *object, ";
$argn = 1;
foreach $it(@params) { print OS $trans{$it}." arg".$argn++.",\n"; }
foreach $it(@params) { if($it ne "NONE") {print OS $trans{$it}." arg".$argn++.",\n"; } }
print OS "gpointer user_data);\n";
print OS "void gtk_marshal_".$retval."__".join("_",@params)."(GtkObject *object, GtkSignalFunc func, gpointer func_data, GtkArg *args)\n";
@ -71,6 +71,7 @@ while(chomp($aline = <IL>)) {
print OS "(* rfunc)(object, ";
for($i = 0; $i < (scalar @params); $i++) {
($params[$i] eq "NONE") && next;
print OS "GTK_VALUE_".$params[$i]."(args[$i]), ";
}