changed name

1 files changed, 345 insertions, 0 deletions

diff --git a/clock.pl b/clock.pl
new file mode 100755
index 00000000..4461c9d3
--- /dev/null
+++ b/clock.pl
@@ -0,0 +1,345 @@
+#!/usr/bin/perl
+
+use POSIX;
+use Gtk;
+use lib qw(/usr/lib/libDrakX);
+use interactive;
+use standalone;
+use timezone;
+init Gtk;
+Gtk->set_locale;
+#use strict;
+use MDK::Common;
+
+#-------------------------------------------------------------
+# i18n routines
+# IMPORTANT: next two routines have to be redefined here to
+#         get correct namespace (drakconf instead of libDrakX)
+#         (This version is now UTF8 compliant - Sg 2001-08-18)
+#-------------------------------------------------------------
+
+sub _ {
+    my $s = shift @_; my $t = translate($s);
+    sprintf $t, @_;
+}
+
+sub translate {
+    my ($s) = @_;
+    $s ? c::dgettext('drakconf', $s) : '';
+}
+
+$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
+my $in = vnew interactive('su');
+my $pixmap;
+my $radius;
+my $dRadians_hour;
+my $dRadians_min;
+my $dRadians_sec;
+my $Radian;
+my $timer;
+my ($midx, $midy);
+my $first=1;
+my $is24;
+my $h_old;
+my ($old_year, $old_month, $old_day);
+my $its_reset=0;
+my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
+my $vbox = new Gtk::VBox(0,0);
+$window->set_title(_("DrakClock"));
+$window->add($vbox);
+$window->signal_connect ( delete_event => \&quit_global );
+my $hbox = new Gtk::HBox(0,0);
+$vbox->pack_start($hbox, 1, 1, 0);
+my $vbox1 = new Gtk::VBox(0,0);
+$hbox->pack_start($vbox1, 1, 1, 0);
+my $calendar = new Gtk::Calendar;
+$vbox1->pack_start($calendar, 1, 1, 0);
+$calendar->signal_connect ( $_ => \&cal_changed )
+  foreach ('month-changed', 'day-selected', 'day-selected-double-click', 'prev-month', 'next-month', 'prev-year', 'next-year');
+
+my $button_time = new Gtk::Button _("Time Zone");
+$vbox1->pack_start($button_time, 0, 1, 10);
+$button_time->signal_connect ( clicked => sub {
+				   local $::isEmbedded = 0;
+				   $in->{timezone}={};
+				   add2hash($in->{timezone}, { timezone::read('') });
+				   my $timezone = $in->{timezone}{timezone};
+				   $in->{timezone}{timezone} = $in->ask_from_treelist(_("Timezone - DrakClock"), _("Which is your timezone?"), '/', [ timezone::getTimeZones('') ], $timezone);
+				   if( defined($in->{timezone}{timezone}) ){
+					   $in->{timezone}{UTC} = $in->ask_yesorno(_("GMT - DrakClock"), _("Is your hardware clock set to GMT?"), $in->{timezone}{UTC});
+					   timezone::write('', $in->{timezone});
+				   } else {
+					   $in->{timezone}{timezone} = $timezone;
+     }
+			       });
+my $vbox2 = new Gtk::VBox(0,0);
+$hbox->pack_start($vbox2, 1, 1, 0);
+my $drawing_area = new Gtk::DrawingArea;
+$drawing_area->size(300,300);
+$vbox2->pack_start($drawing_area, 1, 1, 0);
+$drawing_area->set_events(['button_press_mask', 'button_release_mask', "pointer_motion_mask" ]);
+$drawing_area->signal_connect ( expose_event => \&expose_event );
+$drawing_area->signal_connect ( configure_event => \&configure_event );
+$drawing_area->signal_connect ( button_press_event => sub { $pressed=1 });
+$drawing_area->signal_connect ( button_release_event => sub { $first=1; $pressed=0 });
+$drawing_area->signal_connect ( motion_notify_event => \&motion_event );
+
+my $hbox11 = new Gtk::HBox(1,0);
+$vbox2->pack_start($hbox11, 0, 0, 10);
+my $hbox2 = new Gtk::HBox(1,0);
+$hbox11->pack_start($hbox2, 0, 0, 0);
+my $adj_h = new Gtk::Adjustment 0.0, 0.0, 23.0, 1.0, 5.0, 0.0;
+my $spinner_h = new Gtk::SpinButton $adj_h, 0, 0;
+$hbox2->pack_start($spinner_h, 0, 0, 0);
+$spinner_h->set_wrap(1);
+$spinner_h->signal_connect ( activate => \&spinned);
+$spinner_h->signal_connect ( button_release_event => \&spinned);
+$spinner_h->signal_connect ( changed => \&changed );
+my $adj_m = new Gtk::Adjustment 0.0, 0.0, 59.0, 1.0, 5.0, 0.0;
+my $spinner_m = new Gtk::SpinButton $adj_m, 0, 0;
+$hbox2->pack_start($spinner_m, 0, 0, 0);
+$spinner_m->set_wrap(1);
+$spinner_m->signal_connect ( activate => \&spinned );
+$spinner_m->signal_connect ( button_release_event => \&spinned );
+my $adj_s = new Gtk::Adjustment 0.0, 0.0, 59.0, 1.0, 5.0, 0.0;
+my $spinner_s = new Gtk::SpinButton $adj_s, 0, 0;
+$hbox2->pack_start($spinner_s, 0, 0, 0);
+$spinner_s->set_wrap(1);
+$spinner_s->signal_connect ( activate => \&spinned );
+$spinner_s->signal_connect ( button_release_event => \&spinned );
+
+my $bbox = new Gtk::HButtonBox;
+$bbox->set_layout(-end);
+$vbox->pack_start($bbox, 0, 0, 5);
+my $button_ok = new Gtk::Button _("OK");
+$button_ok->signal_connect ( clicked => sub {
+				 my ($year, $month, $day) = $calendar->get_date;
+				 $month++;
+				 my ($hour, $min, $sec) = ($adj_h->get_value, $adj_m->get_value, $adj_s->get_value);
+				 $a = "date " .
+						  ($month<10 ? "0" : "") . $month .
+						  ($day<10 ? "0" : "") . $day .
+						  ($hour<10 ? "0" : "") . $hour .
+						  ($min<10 ? "0" : "") . $min .
+						  $year . "." .
+						  ($sec<10 ? "0" : "") . $sec;
+				 system($a);
+				 -e '/sbin/hwclock' and system('/sbin/hwclock --systohc');
+				 quit_global();
+			     });
+$bbox->add($button_ok );
+my $button_cancel = new Gtk::Button _("Cancel");
+my $button_reset = new Gtk::Button _("Reset");
+$button_cancel->signal_connect ( clicked => sub {
+				     quit_global();
+				     Gtk->timeout_remove($timer);
+				     $timer=Gtk->timeout_add(120, sub { time_to_rad(localtime(time)); Repaint($drawing_area) });
+				     time_to_rad(localtime(time)); Repaint($drawing_area);
+				     $calendar->select_month($old_month, $old_year);
+				     $calendar->select_day($old_day);
+				     $button_reset->set_sensitive(0);
+				 });
+$bbox->add($button_cancel );
+$button_reset->signal_connect ( clicked => sub {
+				    $its_reset=1;
+				    $timer=Gtk->timeout_add(120, sub { time_to_rad(localtime(time)); Repaint($drawing_area) });
+				    time_to_rad(localtime(time)); Repaint($drawing_area);
+				    $calendar->select_month($old_month, $old_year);
+				    $calendar->select_day($old_day);
+				    $button_reset->set_sensitive(0);
+				    $its_reset=0;
+				});
+$bbox->add($button_reset);
+
+$window->show_all;
+
+Gtk->main_iteration while Gtk->events_pending;
+$calendar->realize;
+(undef,undef,$h_old,$old_day,$old_month,$old_year) = localtime(time);
+$is24 = $h_old>12;
+$old_year += 1900;
+$calendar->select_month($old_month, $old_year);
+$calendar->select_day($old_day);
+$::isEmbedded and kill USR2, $::CCPID;
+$button_reset->set_sensitive(0);
+$timer=Gtk->timeout_add(120, sub { time_to_rad(localtime(time)); Repaint($drawing_area) });
+Gtk->main;
+
+sub cal_changed {
+    !$its_reset and $timer and Gtk->timeout_remove($timer);
+    $button_reset->set_sensitive(1);
+}
+
+sub changed {
+    if ($h_old > $adj_h->get_value && $adj_h->get_value < ($is24 ? 18 : 6) && $h_old > ($is24 ? 18 : 6) && $h_old < ($is24 ? 24 : 12)) {
+	$h_old= $adj_h->get_value;
+	$is24 = !$is24;
+    }
+    elsif ($h_old < $adj_h->get_value && $adj_h->get_value > ($is24 ? 18 : 6) && $h_old < ($is24 ? 18 : 6) && ($adj_h->get_value-$h_old !=12 )) {
+	$h_old= $adj_h->get_value;
+	$is24 = !$is24;
+    }
+    $h_old= $adj_h->get_value;
+}
+
+sub spinned {
+    Gtk->timeout_remove($timer);
+    $button_reset->set_sensitive(1);
+
+    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+    time_to_rad($adj_s->get_value,$adj_m->get_value,$adj_h->get_value,$mday,$mon,$year,$wday,$yday,$isdst);
+    Repaint($drawing_area);
+}
+
+sub motion_event {
+    my ($widget, $event) = @_;
+    $pressed or return;
+    if ($first) {
+	Gtk->timeout_remove($timer);
+	($Radian, $type) = determine_radian($event->{'x'}, $event->{'y'});
+	$button_reset->set_sensitive(1);
+    }
+
+    $$Radian=-atan2(($event->{'x'}-$midx),($event->{'y'}-$midy)) + $PI;
+
+    Repaint($widget);
+    rad_to_time();
+    $first=0;
+}
+
+sub determine_radian {
+    my ($x, $y) = @_;
+
+    my $res;
+    my $r;
+    my $i=0;
+    foreach (\$dRadians_hour, \$dRadians_min, \$dRadians_sec) {
+	my $d=sqrt ( ($x - ($midx + 7/10 * $radius * sin ($$_)))**2 + ($y - ($midy - 7/10 * $radius * cos ($$_)))**2 );
+	$res or $res=$d, $r=$_;
+	$d<$res and $res=$d, $r=$_, $i++;
+    }
+    ($r, $i);
+}
+
+sub quit_global {
+    $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0);
+}
+
+sub expose_event {
+my ($widget) = @_;
+$widget->window->draw_pixmap (
+			     $widget->style->fg_gc('normal'),
+			     $pixmap,
+			     0, 0, 0, 0,
+			     $widget->allocation->[2], $widget->allocation->[3]);
+}
+
+sub configure_event {
+    my ($widget) = @_;
+    $pixmap = new Gtk::Gdk::Pixmap ($widget->window,
+				    $widget->allocation->[2],
+				    $widget->allocation->[3],
+				    -1);
+    Repaint($widget);
+}
+
+sub rad_to_time {
+    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+    $adj_h->set_value(POSIX::floor($dRadians_hour * 6 / $PI) + ($is24 ? 12 : 0));
+    $adj_m->set_value(POSIX::floor($dRadians_min*30/$PI));
+    $adj_s->set_value(POSIX::floor($dRadians_sec*30/$PI));
+}
+
+sub time_to_rad {
+    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = @_;
+    $dRadians_hour = $hour % 12 * $PI / 6;
+    $dRadians_min = $min * $PI / 30;
+    $dRadians_sec = $sec * $PI / 30;
+    $adj_h->set_value($hour);
+    $adj_m->set_value($min);
+    $adj_s->set_value($sec);
+}
+
+sub Repaint {
+    my ($drawing_area) = @_;
+
+    my $dRadians_hour_real = POSIX::floor($dRadians_hour / $PI*6 ) * $PI/6.0 + $dRadians_min / 12;
+    my $dRadians_min_real = POSIX::floor($dRadians_min / $PI * 30 ) * $PI / 30;
+    my $dRadians_sec_real = $dRadians_sec;
+    $pixmap->draw_rectangle($drawing_area->style->white_gc, 1, 0, 0,
+			    $drawing_area->allocation->[2],
+			    $drawing_area->allocation->[3]);
+    $midx = $drawing_area->allocation->[2] / 2;
+    $midy = $drawing_area->allocation->[3] / 2;
+    $radius = $midx < $midy ? $midx -10 : $midy - 10;
+
+    my $nHour;
+    my $gray_gc = $drawing_area->style->bg_gc('normal');
+    my $black_gc = $drawing_area->style->black_gc;
+    foreach my $i ([\&DrawTickAt, 12], [\&DrawPointAt, 60]) { $i->[0]($pixmap, $black_gc, $gray_gc, $_, $midx, $midy) foreach (1..$i->[1]) }
+    my $now = time;
+    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+    my $dRadians;
+    foreach ([$gray_gc, 5], [$black_gc, 0]) {
+	DrawHour ($pixmap, $_->[0], $midx, $midy, $dRadians_hour_real, $_->[1]);
+	DrawMin ($pixmap, $_->[0], $midx, $midy, $dRadians_min_real, $_->[1]);
+	DrawSec ($pixmap, $_->[0], $midx, $midy, $dRadians_sec_real, $_->[1]);
+    }
+    $drawing_area->draw(undef);
+    1;
+}
+
+sub DrawSec {
+    my ($pixmap, $gc, $midx, $midy, $dRadians, $dec) = @_;
+    $pixmap->draw_line ($gc,
+			$midx+$dec, $midy+$dec,
+			$midx+$dec + (8/10 * $radius * sin ($dRadians)),
+			$midy+$dec - (8/10 * $radius * cos ($dRadians)))
+}
+
+sub DrawMin {
+    my ($pixmap, $gc, $midx, $midy, $dRadians, $dec) = @_;
+    $pixmap->draw_polygon ($gc, 1,
+			   $midx+$dec - 3/100 * $radius * sin ($dRadians),
+			   $midy+$dec + 3/100 * $radius * cos ($dRadians),
+			   $midx+$dec - 3/100 * $radius * sin ($dRadians+$PI/2),
+			   $midy+$dec + 3/100 * $radius * cos ($dRadians+$PI/2),
+			   $midx+$dec + 8/10 * $radius * sin ($dRadians),
+			   $midy+$dec - 8/10 * $radius * cos ($dRadians),
+			   $midx+$dec + 3/100 * $radius * sin ($dRadians+$PI/2),
+			   $midy+$dec - 3/100 * $radius * cos ($dRadians+$PI/2));
+}
+
+sub DrawHour {
+    my ($pixmap, $gc, $midx, $midy, $dRadians, $dec) = @_;
+    $pixmap->draw_polygon ($gc, 1,
+			   $midx+$dec - 5/100 * $radius * sin ($dRadians),
+			   $midy+$dec + 5/100 * $radius * cos ($dRadians),
+			   $midx+$dec - 5/100 * $radius * sin ($dRadians+$PI/2),
+			   $midy+$dec + 5/100 * $radius * cos ($dRadians+$PI/2),
+			   $midx+$dec + 7/10 * $radius * sin ($dRadians),
+			   $midy+$dec - 7/10 * $radius * cos ($dRadians),
+			   $midx+$dec + 5/100 * $radius * sin ($dRadians+$PI/2),
+			   $midy+$dec - 5/100 * $radius * cos ($dRadians+$PI/2));
+}
+
+sub DrawTickAt {
+    my ($pixmap, $black_gc, $gray_gc, $nHour, $cx, $cy) = @_;
+    my $dRadians = $nHour * $PI / 6.0;
+
+    $pixmap->draw_line ($_->[0],
+			$cx+$_->[1] + 9/10 * $radius * sin ($dRadians),
+			$cy+$_->[1] - 9/10 * $radius * cos ($dRadians),
+			$cx+$_->[1] + 1 * $radius * sin ($dRadians),
+			$cy+$_->[1] - 1 * $radius * cos ($dRadians))
+      foreach ([$gray_gc, 5], [$black_gc, 0]);
+}
+
+sub DrawPointAt {
+    my ($pixmap, $black_gc, $gray_gc, $nHour, $cx, $cy) = @_;
+    my $dRadians = $nHour * $PI / 30;
+
+    $pixmap->draw_point ($black_gc,
+			$cx + 95/100 * $radius * sin ($dRadians),
+			$cy - 95/100 * $radius * cos ($dRadians))
+}