Changeset 1246
- Timestamp:
- 11/26/06 14:17:06
- Files:
-
- trunk/tools/gtypeinterface-h-file-to-c-file.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/tools/gtypeinterface-h-file-to-c-file.pl
r1245 r1246 1 1 #! /usr/bin/perl 2 2 3 my $typename = "MyType";3 my $typename = $ARGV[0]; 4 4 # my %methods = (); 5 5 my %interfaces = (); … … 220 220 221 221 print ("\t\ttype = g_type_register_static (G_TYPE_OBJECT,\n"); 222 print ("\t\t\t\" .$typename.\",\n");222 print ("\t\t\t\"".$typename."\",\n"); 223 223 print ("\t\t\t&info, 0);\n\n"); 224 224
