summaryrefslogtreecommitdiffstats
path: root/perl-install/unused
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-01-18 19:00:47 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:32 +0100
commit560f03ba7a642654d75055bfb0b9062d4c481f66 (patch)
tree30dd18f6f7399490ddaa22cfab5e548c116b1aef /perl-install/unused
parent2982650bb08f0d49fa74e396a1ea5d23a6048213 (diff)
downloaddrakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar
drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar.gz
drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar.bz2
drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar.xz
drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.zip
convert from mygtk2 to ugtk2
(needed for next commits)
Diffstat (limited to 'perl-install/unused')
-rwxr-xr-xperl-install/unused/migrate-ugtk2-to-mygtk2.pl4
1 files changed, 2 insertions, 2 deletions
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)/ ||