diff options
| -rwxr-xr-x | control-center | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/control-center b/control-center index d27edaa1..e7270e7e 100755 --- a/control-center +++ b/control-center @@ -345,12 +345,12 @@ gtkadd($window_global, 0, gtkpack_(Gtk2::VBox->new(0, 0), 0, my $fixed_left = gtkset_name(Gtk2::Fixed->new, 'mcc'), # default left background - 1, gtksignal_connect(gtkset_size_request(Gtk2::DrawingArea->new(), -1, -1), + 1, gtksignal_connect(gtkset_size_request(Gtk2::DrawingArea->new, -1, -1), realize => sub { set_back_pixbuf($_[0], rtl_gtkcreate_pixbuf('mcc-left-back-middle')) }), 0, rtl_gtkcreate_img('mcc-left-back-bottom') ), 1, gtkpack_(Gtk2::VBox->new(0, 0), - 0, gtksignal_connect(gtkset_size_request(Gtk2::DrawingArea->new(), -1, 1), + 0, gtksignal_connect(gtkset_size_request(Gtk2::DrawingArea->new, -1, 1), realize => sub { set_back_pixbuf($_[0], gtkcreate_pixbuf('mcc-right-bottom')) }), 1, gtkset_name( gtkadd(my $emb_frame = Gtk2::EventBox->new, @@ -377,7 +377,7 @@ gtkadd($window_global, 'mcc'), 1, my $notebook_global = gtkset_name(Gtk2::Notebook->new, 'mcc'), 0, gtkset_name(my $w_exp = create_scrolled_window(gtkset_shadow_type(gtkset_size_request(gtkset_border_width($exp_frame = Gtk2::Frame->new(N("Logs")), 5), -1, 120), 'etched_in'), [ 'never', 'never' ], 'none'), 'mcc'), - 0, gtksignal_connect(gtkset_size_request(Gtk2::DrawingArea->new(), -1, 1), + 0, gtksignal_connect(gtkset_size_request(Gtk2::DrawingArea->new, -1, 1), realize => sub { set_back_pixbuf($_[0], gtkcreate_pixbuf('mcc-right-bottom')) }), ) @@ -418,7 +418,7 @@ evil command line.")) ], add2notebook($notebook_global, "", create_scrolled_window(gtkset_size_request(gtkset_border_width($summary, 40), 50, 50), ), - ""); + ); use POSIX qw(:sys_utsname_h :math_h :sys_wait_h :unistd_h); @@ -493,7 +493,7 @@ foreach (@tree) { $darea_left->modify_font($fonts[$curr_state]); ($lines, $widths, $heights) = (get_text_coord($text, $darea_left, $d_width-$left_txt_offset-$right_text_offset, $d_height, 0, 0, 0, 0))[2..4]; - my $offset = -($d_height - string_height($darea_left, $lines->[0]) * (listlength(@$lines) +0.2)) / 2 ; # text lines are offsetted + my $offset = -($d_height - string_height($darea_left, $lines->[0]) * (listlength(@$lines) + 0.2)) / 2; # text lines are offsetted mapn { $dbl_area_left[$curr_state]->draw_layout($darea_left->style->black_gc, $_[1]+$left_txt_offset, $_[2]-$offset, $darea_left->create_pango_layout($_[0])); } $lines, $widths, $heights; @@ -545,7 +545,7 @@ foreach (@tree) { my ($label, $tag) = @$_; my $text = $exec_hash->{$label}[3]; die "$label 's icon is missing" if !$exec_hash->{$label} && $::testing; - my $event_box = gtkadd(Gtk2::EventBox->new(), gtkcreate_img($tag)); + my $event_box = gtkadd(Gtk2::EventBox->new, gtkcreate_img($tag)); $event_box->set_events([ 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]); # FIXME: do ->set_pixbuf() on {enter,leave}_events $event_box->signal_connect(realize => sub { $event_box->window->set_cursor($cursor_hand) }); @@ -564,7 +564,6 @@ foreach (@tree) { my $_w_ret = create_scrolled_window(gtkset_border_width($tbl, 5), [ 'never', 'automatic' ], 'none' ), - "" ); # $w_ret->vscrollbar->set_size_request(19, undef); } @@ -835,7 +834,7 @@ sub splash_warning { sub new_dialog { my ($title, $o_no_button) = @_; - my $dialog = gtkset_border_width(Gtk2::Dialog->new(), 10); + my $dialog = gtkset_border_width(Gtk2::Dialog->new, 10); $dialog->set_transient_for($window_global); $dialog->set_position('center-on-parent'); $dialog->set_title($title); @@ -894,7 +893,7 @@ sub about_mdk_cc() { if ($translator_name ne "~ * ~ " && 0) { $list->append_set(undef, [ 0 => $_->[0], 1 => $_->[1] ]) foreach [ '', '' ], [ N("Translator: "), $translator_name, $translator_email ]; } - $list->get_selection()->set_mode('none'); + $list->get_selection->set_mode('none'); gtkpack_($window_about->vbox, -r "$themes_dir/$theme/splash_screen_about.png" ? |