From e53bb72e700808aefd6c0986ddd55cccc7906804 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 22 Mar 2004 14:19:52 +0000 Subject: Look & feel enhancement in order to have a smoother GUI (Robert Vojta, #9141) : - when not embedded, add 5 pixels border around the whole GUI - add border around frames contents --- perl-install/standalone/drakclock | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock index ac982e158..9aeccc57e 100755 --- a/perl-install/standalone/drakclock +++ b/perl-install/standalone/drakclock @@ -68,16 +68,16 @@ my (undef, undef, $h_old, $old_day, $old_month, $old_year) = localtime(time()); my @image_size = (300, 300); -$my_win->{window}->add(gtkpack_(Gtk2::VBox->new, +$my_win->{window}->add(gtkpack_(gtkset_border_width(Gtk2::VBox->new, $::isEmbedded ? 0 : 5), 1, gtkpack_(Gtk2::HBox->new, 1, gtkpack_(Gtk2::VBox->new, 0, $calendar, 0, gtkadd(gtkset_shadow_type(Gtk2::Frame->new(N("Timezone")), 'etched_in'), - gtkpack__(Gtk2::VBox->new, + gtkpack_(gtkset_border_width(Gtk2::VBox->new, 5), $label_timezone, $button_time)), 1, gtkadd(gtkset_shadow_type(Gtk2::Frame->new(N("Network Time Protocol")), 'etched_in'), - gtkpack_(Gtk2::VBox->new, + gtkpack_(gtkset_border_width(Gtk2::VBox->new, 5), 0, Gtk2::Label->new(N("Your computer can synchronize its clock\n with a remote time server using NTP")), 0, gtksignal_connect(gtkset_active($check_ntp = Gtk2::CheckButton->new(N("Enable Network Time Protocol")), $mode), clicked => sub { $mode = !$mode; @@ -86,7 +86,7 @@ $my_win->{window}->add(gtkpack_(Gtk2::VBox->new, install_ntp(); } }), - 0, gtkpack_($hb_ntp = Gtk2::HBox->new, + 0, gtkpack_(gtkset_border_width($hb_ntp = Gtk2::HBox->new, 5), 0, Gtk2::Label->new(N("Server:")), 1, $combo_ntpserver = Gtk2::Combo->new ) -- cgit v1.2.1