Still a work-in-progress, ignore

-Yosh

tools/pdbgen/pdb.pl

@@ -42,7 +42,7 @@ package Gimp::CodeGen::pdb;
 		 },
     image     => {
 		     name => 'IMAGE',
-		     type => 'GImage *', 
+		     type => 'GimpImage *', 
 		     id_func => 'pdb_id_to_image',
 		     id_ret_func => 'pdb_image_to_id ($var)',
 		     id_headers => [ qw("procedural_db.h") ]
@@ -66,7 +66,8 @@ package Gimp::CodeGen::pdb;
 		     type => 'GimpDrawable *',
 		     id_func => 'gimp_drawable_get_ID',
 		     id_ret_func => 'drawable_ID (GIMP_DRAWABLE ($var))',
-		     id_headers => [ qw("drawable.h") ]
+		     id_headers => [ qw("drawable.h") ],
+		     gimage => 'drawable_gimage (GIMP_DRAWABLE ($var))'
 		 },
     selection => {
 		     name => 'SELECTION',

tools/pdbgen/pdb/channel_ops.pdb

@@ -34,9 +34,8 @@ HELP
     $date = '1997';
 
     @inargs = (
-	&std_image_arg,
 	{ name => 'drawable', type => 'drawable',
-	  desc => 'The drawable to offset' },
+	  desc => 'The drawable to offset', gimage => 1 },
 	{ name => 'wrap_around', type => 'boolean',
 	  desc => 'wrap image around or fill vacated regions' },
 	{ name => 'fill_type', type => 'enum GimpOffsetType',

tools/pdbgen/stddefs.pdb

@@ -6,7 +6,7 @@ sub std_pdb_misc {
     $date = '1995-1996';
 }
 
-sub std_image_arg {
+sub std_image_arg () {
     {
 	name => 'image',	
 	type => 'image',

tools/pdbgen/util.pl

@@ -17,15 +17,18 @@
 
 package Gimp::CodeGen::util;
 
+use File::Copy cp;
+use File::Compare cmp;
+
 $DEBUG_OUTPUT = 1;
 
 sub write_file {
     my $file = shift; my $realfile = $file;
     $realfile =~ s/\.tmp\.\d+$//;
     if (-e $realfile) {
-	if (`diff $realfile $file`) {
-	    `cp $realfile $realfile~` if $DEBUG_OUTPUT;
-	    `cp $file $realfile`;
+	if (cmp($realfile, $file)) {
+	    cp($realfile, "$realfile~") if $DEBUG_OUTPUT;
+	    cp($file, $realfile);
 	    print "Wrote $realfile\n";
 	}
 	else {