summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-19 17:31:42 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-19 17:31:42 +0000
commit25f65beed0677fa247c513705dbf538225f979c4 (patch)
treee0ec937937cba2d6279e97b3b7036fe0856d5bb2 /perl-install/my_gtk.pm
parenta0b5f74447cc699c43c354cb6397ed554605729b (diff)
downloaddrakx-25f65beed0677fa247c513705dbf538225f979c4.tar
drakx-25f65beed0677fa247c513705dbf538225f979c4.tar.gz
drakx-25f65beed0677fa247c513705dbf538225f979c4.tar.bz2
drakx-25f65beed0677fa247c513705dbf538225f979c4.tar.xz
drakx-25f65beed0677fa247c513705dbf538225f979c4.zip
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm64
1 files changed, 32 insertions, 32 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 5f9159df5..30406cac0 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -40,7 +40,7 @@ sub main($;$) {
do {
local $::setstep = 1;
- Gtk->main
+ Gtk->main
} while ($o->{retval} && $f && !&$f());
$o->destroy;
$o->{retval}
@@ -51,7 +51,7 @@ sub show($) {
$o->{rwindow}->show;
$o->{rwindow}->grab_add if $my_gtk::grab || $o->{grab};
}
-sub destroy($) {
+sub destroy($) {
my ($o) = @_;
$o->{rwindow}->grab_remove if $my_gtk::grab || $o->{grab};
$o->{rwindow}->destroy;
@@ -69,16 +69,16 @@ sub sync($) {
sub flush(;$) {
Gtk->main_iteration while Gtk->events_pending;
}
-sub bigsize($) {
- $_[0]{rwindow}->set_usize(600,400);
+sub bigsize($) {
+ $_[0]{rwindow}->set_usize(600,400);
}
-sub gtkshow($) { $_[0]->show; $_[0] }
-sub gtkdestroy($) { $_[0] and $_[0]->destroy }
+sub gtkshow($) { $_[0]->show; $_[0] }
+sub gtkdestroy($) { $_[0] and $_[0]->destroy }
sub gtkset_usize($$$) { $_[0]->set_usize($_[1],$_[2]); $_[0] }
-sub gtkset_justify($$) { $_[0]->set_justify($_[1]); $_[0] }
-sub gtkset_active($$) { $_[0]->set_active($_[1]); $_[0] }
+sub gtkset_justify($$) { $_[0]->set_justify($_[1]); $_[0] }
+sub gtkset_active($$) { $_[0]->set_active($_[1]); $_[0] }
sub gtksignal_connect($@) {
my $w = shift;
@@ -88,7 +88,7 @@ sub gtksignal_connect($@) {
sub gtkpack($@) {
my $box = shift;
foreach (@_) {
- my $l = $_;
+ my $l = $_;
ref $l or $l = new Gtk::Label($l);
$box->pack_start($l, 1, 1, 0);
$l->show;
@@ -98,7 +98,7 @@ sub gtkpack($@) {
sub gtkpack_($@) {
my $box = shift;
for (my $i = 0; $i < @_; $i += 2) {
- my $l = $_[$i + 1];
+ my $l = $_[$i + 1];
ref $l or $l = new Gtk::Label($l);
$box->pack_start($l, $_[$i], 1, 0);
$l->show;
@@ -107,10 +107,10 @@ sub gtkpack_($@) {
}
sub gtkappend($@) {
my $w = shift;
- foreach (@_) {
- my $l = $_;
+ foreach (@_) {
+ my $l = $_;
ref $l or $l = new Gtk::Label($l);
- $w->append($l);
+ $w->append($l);
$l->show;
}
$w
@@ -118,7 +118,7 @@ sub gtkappend($@) {
sub gtkadd($@) {
my $w = shift;
foreach (@_) {
- my $l = $_;
+ my $l = $_;
ref $l or $l = new Gtk::Label($l);
$w->add($l);
$l->show;
@@ -155,7 +155,7 @@ sub gtkset_background {
my $color = gtkcolor($r, $g, $b);
$gc->set_foreground($color);
$root->set_background($color);
-
+
my ($h, $w) = $root->get_size;
$root->draw_rectangle($gc, 1, 0, 0, $w, $h);
}
@@ -283,13 +283,13 @@ sub _create_window($$) {
my $w = new Gtk::DrawingArea;
$w->set_usize($border, $border);
$w->set_events(['exposure_mask']);
- $w->signal_connect_after(expose_event =>
+ $w->signal_connect_after(expose_event =>
sub { $w->window->draw_rectangle($w->style->black_gc, 1, 0, 0, @{$w->allocation}[2,3]); 1 }
);
$w->show;
$w;
};
-
+
$t->attach(&$new(), 0, 1, 0, 3, [], , ["expand","fill"], 0, 0);
$t->attach(&$new(), 1, 2, 0, 1, ["expand","fill"], [], 0, 0);
$t->attach($f, 1, 2, 1, 2, ["expand","fill"], ["expand","fill"], 0, 0);
@@ -305,7 +305,7 @@ sub _create_window($$) {
$w->set_uposition(@{$my_gtk::force_position || $o->{force_position}}) if $my_gtk::force_position || $o->{force_position};
$w->signal_connect(size_allocate => sub {
- my ($wi, $he) = @{$_[1]}[2,3];
+ my ($wi, $he) = @{$_[1]}[2,3];
my ($X, $Y, $Wi, $He) = @{$my_gtk::force_center || $o->{force_center}};
$w->set_uposition(max(0, $X + ($Wi - $wi) / 2), max(0, $Y + ($He - $he) / 2));
}) if ($my_gtk::force_center || $o->{force_center}) && !($my_gtk::force_position || $o->{force_position}) ;
@@ -352,8 +352,8 @@ sub _ask_from_list($$$$) {
my (@widgets, $timeout, $curr);
my $leave = sub { $o->{retval} = $l->[$curr]; Gtk->main_quit };
- my $select = sub {
- $list->focus_row($_[0]);
+ my $select = sub {
+ $list->focus_row($_[0]);
$list->select_row($_[0], 0);
$list->moveto($_[0], 0, 0.5, 0);
};
@@ -368,7 +368,7 @@ sub _ask_from_list($$$$) {
my $c = chr $e->{keyval};
Gtk->timeout_remove($timeout) if $timeout; $timeout = '';
-
+
if ($e->{keyval} >= 0x100) {
&$leave if $c eq "\r" || $c eq "\x8d";
$starting_word = '';
@@ -377,7 +377,7 @@ sub _ask_from_list($$$$) {
$curr++ if $starting_word eq '' || $starting_word eq $c;
$starting_word .= $c unless $starting_word eq $c;
-
+
my $word = quotemeta $starting_word;
my $j; for ($j = 0; $j < @$l; $j++) {
$l->[($j + $curr) % @$l] =~ /^$word/i and last;
@@ -385,21 +385,21 @@ sub _ask_from_list($$$$) {
$j == @$l ?
$starting_word = '' :
&$select(($j + $curr) % @$l);
-
+
$w->{timeout} = $timeout = Gtk->timeout_add($forgetTime, sub { $timeout = $starting_word = ''; 0 } );
}
1;
});
$list->set_selection_mode('browse');
- gtkadd($o->{window},
- gtkpack($o->create_box_with_title(@$messages),
+ gtkadd($o->{window},
+ gtkpack($o->create_box_with_title(@$messages),
@$l > 15 ? gtkset_usize(createScrolledWindow($list), 200, 280) : $list));
$o->sync; #- otherwise the moveto is not done
map_index {
$list->append($_);
- &$select($::i) if $def && $_ eq $def;
+ &$select($::i) if $def && $_ eq $def;
} @$l;
$list->grab_focus;
@@ -463,9 +463,9 @@ sub _ask_file($$) {
#- my $id = $w->signal_connect(key_press_event => sub {
#- my ($w, $e) = @_;
#- my $c = chr $e->{keyval};
-#-
+#-
#- Gtk->timeout_remove($timeout) if $timeout; $timeout = '';
-#-
+#-
#- if ($e->{keyval} >= 0x100) {
#- if ($c eq "\r" || $c eq "\x8d") {
#- $list->select_item($i);
@@ -474,14 +474,14 @@ sub _ask_file($$) {
#- } else {
#- my $curr = $i + bool($starting_word eq '' || $starting_word eq $c);
#- $starting_word .= $c unless $starting_word eq $c;
-#-
+#-
#- my $j; for ($j = 0; $j < @$l; $j++) {
#- $l->[($j + $curr) % @$l] =~ /^$starting_word/i and last;
#- }
#- $j == @$l ?
#- $starting_word = '' :
#- $widgets[($j + $curr) % @$l]->grab_focus;
-#-
+#-
#- $w->{timeout} = $timeout = Gtk->timeout_add($forgetTime, sub { $timeout = $starting_word = ''; 0 } );
#- }
#- 1;
@@ -500,8 +500,8 @@ sub _ask_file($$) {
#- $list;
#- }
#- };
-#- gtkadd($o->{window},
-#- gtkpack($o->create_box_with_title(@$messages),
+#- gtkadd($o->{window},
+#- gtkpack($o->create_box_with_title(@$messages),
#- $scroll_win));
#- $widgets[$def]->grab_focus;
#-