From 560f03ba7a642654d75055bfb0b9062d4c481f66 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 18 Jan 2013 19:00:47 +0100 Subject: convert from mygtk2 to ugtk2 (needed for next commits) --- perl-install/unused/migrate-ugtk2-to-mygtk2.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/unused') diff --git a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl index ccd0faaee..620ff4578 100755 --- a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl +++ b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl @@ -200,8 +200,8 @@ sub dorepl_new { } sub dorepl { - s/gtkdestroy\(/mygtk2::may_destroy(/ || - s/gtkset_background\(/mygtk2::set_root_window_background(/ || + s/gtkdestroy\(/mygtk3::may_destroy(/ || + s/gtkset_background\(/mygtk3::set_root_window_background(/ || s/gtkset_tip\($re,\s*($re),\s*($re)\)/gtkset($1, tip => $2)/ || s/gtkset_size_request\(($re),\s*($re), ($re)\)/"gtkset($1" . ($2 && $2 ne '-1' ? ", width => $2" : '') . ($3 && $3 ne '-1' ? ", height => $3" : '') . ')'/e || s/gtkset_(modal)\(($re),\s*($re)\)/gtkset($2, $1 => $3)/ || -- cgit v1.2.1