diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 21:37:47 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 21:37:47 +0000 |
| commit | f9478b224cbd6fc7bce23ebff158e350d2f507e6 (patch) | |
| tree | 486a474f42e6167675a181086051f4e887dbc9a5 /perl_checker_fake_packages | |
| parent | 3b2df483b3e489f35fa7d48697db325c35df546e (diff) | |
| download | perl-MDK-Common-f9478b224cbd6fc7bce23ebff158e350d2f507e6.tar perl-MDK-Common-f9478b224cbd6fc7bce23ebff158e350d2f507e6.tar.gz perl-MDK-Common-f9478b224cbd6fc7bce23ebff158e350d2f507e6.tar.bz2 perl-MDK-Common-f9478b224cbd6fc7bce23ebff158e350d2f507e6.tar.xz perl-MDK-Common-f9478b224cbd6fc7bce23ebff158e350d2f507e6.zip | |
fix missing functions from GC
Diffstat (limited to 'perl_checker_fake_packages')
| -rw-r--r-- | perl_checker_fake_packages/Gtk2.pm | 2 | ||||
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm index 3ed5e4c..72aa0a0 100644 --- a/perl_checker_fake_packages/Gtk2.pm +++ b/perl_checker_fake_packages/Gtk2.pm @@ -2550,6 +2550,8 @@ sub Gtk2::set_resizable { my ($_DUMMY0, $_DUMMY1) = @_ } sub Gtk2::set_resize_mode { my ($_container, $_resize_mode) = @_ } sub Gtk2::set_response_sensitive { my ($_dialog, $_response_id, $_setting) = @_ } sub Gtk2::set_rgb { my ($_gc, $_red, $_green, $_blue) = @_ } +sub Gtk2::set_rgb_bg_color { my ($_gc, $_color) = @_ } +sub Gtk2::set_rgb_fg_color { my ($_gc, $_color) = @_ } sub Gtk2::set_right_margin { my ($_text_view, $_right_margin) = @_ } sub Gtk2::set_role { my ($_window, $_role) = @_ } sub Gtk2::set_row_height { my ($_clist, $_height) = @_ } diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl index 12362a0..580972d 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -127,7 +127,7 @@ sub gtk2 { my ($trimlast) = $file =~ /([A-Z]\w+)\.c$/; while ($trimlast =~ s/([a-z])([A-Z])/$1_$2/) {} - $trimlast =~ s/^G([A-Z])/$1/; #- glib case + $file =~ /\bGC\b/ or $trimlast =~ s/^G([A-Z])/$1/; #- glib case $file =~ m|Gdk/Event/src| and $trimlast = "event_$trimlast"; #- gdkevent case $trimlast = lc($trimlast); #- skip functions that will not be exported anyway because don't follow the naming scheme |