diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-18 02:45:58 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-12-20 10:25:03 +0100 |
| commit | 37f3b1c36446f1ec88293cfc0be1d41b6d627bb8 (patch) | |
| tree | 8315f3fba7b8209c267b591b7ab2c62775d420b7 /control-center | |
| parent | aa44065fd26b2785b8ac67b2d99b1ecb4c97c04d (diff) | |
| download | control-center-37f3b1c36446f1ec88293cfc0be1d41b6d627bb8.tar control-center-37f3b1c36446f1ec88293cfc0be1d41b6d627bb8.tar.gz control-center-37f3b1c36446f1ec88293cfc0be1d41b6d627bb8.tar.bz2 control-center-37f3b1c36446f1ec88293cfc0be1d41b6d627bb8.tar.xz control-center-37f3b1c36446f1ec88293cfc0be1d41b6d627bb8.zip | |
use (my|u)gtk3 instead of *tk2
Diffstat (limited to 'control-center')
| -rwxr-xr-x | control-center | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/control-center b/control-center index 83fa92ad..4baaebd4 100755 --- a/control-center +++ b/control-center @@ -36,8 +36,8 @@ POSIX::sigprocmask(SIG_BLOCK, POSIX::SigSet->new(SIGCHLD)); # i18n: IMPORTANT: to get correct namespace (drakconf instead of libDrakX) BEGIN { unshift @::textdomains, 'drakconf' } -use mygtk2 qw(gtknew); -use ugtk2 qw(:create :dialogs :helpers :wrappers); +use mygtk3 qw(gtknew); +use ugtk3 qw(:create :dialogs :helpers :wrappers); use Gtk2::WebKit; use MDV::Control_Center; @@ -86,7 +86,7 @@ foreach (@ARGV) { add_icon_path("$themes_dir/$theme/"); add_icon_path("$themes_dir/default") if $theme ne 'default'; # fall back if theme miss some icons -mygtk2::import_style_ressources(); +mygtk3::import_style_ressources(); my $rc = find { -r $_ } ("$themes_dir/$theme/gtkrc", if_($theme ne 'default', "$themes_dir/default/gtkrc")); Gtk2::Rc->parse($rc) if -r $rc; @@ -582,8 +582,8 @@ if (scalar glob_("$more_wizard_dir/*.conf")) { # let build the GUI -my $align = mygtk2::text_direction_rtl() ? "right" : "left"; -my $align2 = mygtk2::text_direction_rtl() ? "right" : "left"; +my $align = mygtk3::text_direction_rtl() ? "right" : "left"; +my $align2 = mygtk3::text_direction_rtl() ? "right" : "left"; # main window : @@ -593,7 +593,7 @@ my ($timeout, %check_boxes, $emb_socket); # set default size: my $window_global = gtkset_size_request(Gtk2::Window->new('toplevel'), $min_width, $min_height); -mygtk2::register_main_window($window_global); +mygtk3::register_main_window($window_global); if ($geometry) { @h{qw(HEIGTH WIDTH)} = $geometry =~ /(\d+)x(\d+)/; @@ -844,7 +844,7 @@ sub build_widget_element { }; # FIX ME: DO THIS AGAIN: $tool_feedback{$label} = sub {}; #sub { $event_box->window && $event_box->window->set_cursor($hand_cursor) }; - my $real_icon = $icon ? '<IMG SRC="' . mygtk2::_find_imgfile($icon) . '">' : ''; + my $real_icon = $icon ? '<IMG SRC="' . mygtk3::_find_imgfile($icon) . '">' : ''; my @widgets = ( qq(<TD class="img">$real_icon</TD>), qq(<TD style="text-align: $align"><DIV>) @@ -879,8 +879,8 @@ foreach (@tree) { my $my_index = $index++; - my $square_icon_uri = mygtk2::_find_imgfile('cadre-ic'); - my $back_img = mygtk2::_find_imgfile('right-white-background_right_part_768.png'); + my $square_icon_uri = mygtk3::_find_imgfile('cadre-ic'); + my $back_img = mygtk3::_find_imgfile('right-white-background_right_part_768.png'); my $string = join("\n", qq(<HTML> <HEAD> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> @@ -933,7 +933,7 @@ foreach (@tree) { margin-right: 10px; } ), - if_(mygtk2::text_direction_rtl(), " a { direction: rtl; unicode-bidi: embed }"), qq( + if_(mygtk3::text_direction_rtl(), " a { direction: rtl; unicode-bidi: embed }"), qq( a:link {color:black; text-decoration:none } a:visited {color:black; text-decoration:none } a:hover {color:grey } @@ -951,14 +951,14 @@ foreach (@tree) { my $section; foreach my $subtree (@subtrees) { $string .= $section++ ? "<hr NOSHADE>\n" : '<div ID="top_margin"></div>'; - my $title = mygtk2::asteriskize($subtree->{title}); + my $title = mygtk3::asteriskize($subtree->{title}); $string .= qq( <div ID="title">$title</div> <TABLE BORDER=0 WIDTH="100%" ID="block"> ); if (@{$subtree->{list}} % 2) { my @widgets = (pop @{$subtree->{list}}, ""); - @widgets = reverse @widgets if mygtk2::text_direction_rtl(); + @widgets = reverse @widgets if mygtk3::text_direction_rtl(); push @{$subtree->{list}}, @widgets; } $string .= join("\n", @@ -1065,7 +1065,7 @@ $wait_darea->signal_connect(expose_event => sub { return unless $run_pixbuf; # some people got an expose event before we start an embedded tool return unless $wait_darea->{size}; $wait_darea->{layout} ||= $wait_darea->create_pango_layout(N("Loading... Please wait")); - my $pixbuf = $run_pixbufs{$run_counter} ||= mygtk2::_pixbuf_render_alpha($run_pixbuf, $run_counter); + my $pixbuf = $run_pixbufs{$run_counter} ||= mygtk3::_pixbuf_render_alpha($run_pixbuf, $run_counter); if (!$wait_darea->{first_expose}) { $wait_darea->{first_expose} = 1; my $size = $wait_darea->{size}; @@ -1331,7 +1331,7 @@ sub kill_logdrake() { } sub quit_global() { - return 1 if mygtk2::quit_popup(); + return 1 if mygtk3::quit_popup(); if (@pid_launched) { &kill_children(); @@ -1557,7 +1557,7 @@ sub create_packtable2 { sub render_shiner { my ($pixbuf, $shine_value) = @_; - my $new_pixbuf = (mygtk2::_new_alpha_pixbuf($pixbuf))[2]; + my $new_pixbuf = (mygtk3::_new_alpha_pixbuf($pixbuf))[2]; $pixbuf->saturate_and_pixelate($new_pixbuf, $shine_value, 0); $new_pixbuf; } |