From 20f753dec4fa15abc9e7bd685d6666a3ce2e20e7 Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Wed, 24 Mar 2010 14:21:08 +0000 Subject: added progress bar git-svn-id: https://svn.helsinki.at/rhimport/trunk@25 7c65635b-ec39-4f67-a626-873dbafdd612 diff --git a/gui_callbacks.pm b/gui_callbacks.pm index 917534f..10d3881 100644 --- a/gui_callbacks.pm +++ b/gui_callbacks.pm @@ -53,4 +53,18 @@ sub on_b_showcarts_clicked ::show_used_carts_gui(); } +sub on_co_dropbox_changed +{ + my ($widget, $data) = @_; + + ::clear_status_gui(); +} + +sub on_filechooser_selection_changed +{ + my ($widget, $data) = @_; + + ::clear_status_gui(); +} + 1; diff --git a/rhimport b/rhimport index 26cea0f..5f5dfa0 100755 --- a/rhimport +++ b/rhimport @@ -48,18 +48,20 @@ GetOptions ("help!" => \$HELP, "keep-carts!" => \$KEEPCARTS, "dropbox=s" => \$DROPBOX, "list-allowed!" => \$LISTALLOWED, - ); + ) or die(); if($HELP) { print << "EOF"; usage: $0 --file