From 07c2bee46b4b7644bca49665cdd32ccb1943559a Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 8 Dec 2004 14:07:21 +0000 Subject: Refresh interface at each window change. --- gurpmi | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'gurpmi') diff --git a/gurpmi b/gurpmi index c083bd42..890c5ff4 100644 --- a/gurpmi +++ b/gurpmi @@ -70,6 +70,11 @@ sub add_button_box { $_->set_alignment(0.5, 0.5), $hbox->add($_) foreach @buttons; } +sub sync { + $mainw->show; + Gtk2->main_iteration while Gtk2->events_pending; +} + #- sets the window to a please-wait message sub wait_label { my $wait_vbox = Gtk2::VBox->new(0, 5); @@ -77,11 +82,7 @@ sub wait_label { $wait_label->set_alignment(0.5, 0.5); $wait_vbox->pack_start($wait_label, 1, 1, 0); change_mainw($wait_vbox); -} - -sub sync { - $mainw->show; - Gtk2->main_iteration while Gtk2->events_pending; + sync(); } #- Parse command line -- cgit v1.2.1