From 7bb4d7d961d2856f235db861c93a4838ae7b4f50 Mon Sep 17 00:00:00 2001
From: Elliot Lee <sopwith@src.gnome.org>
Date: Wed, 17 Jun 1998 05:12:27 +0000
Subject: [PATCH] Fixed functions with no arguments

---
 gtk/genmarshal.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gtk/genmarshal.pl b/gtk/genmarshal.pl
index 7738ca0531..033f9b251f 100755
--- a/gtk/genmarshal.pl
+++ b/gtk/genmarshal.pl
@@ -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]), ";
   }