diff options
-rwxr-xr-x | rhimport | 13 |
1 files changed, 9 insertions, 4 deletions
@@ -337,10 +337,15 @@ sub show_used_carts_gui() $l_status->set_label("Carts: $low_cart - $high_cart"); } -# my $usedcartswin = $guixml->get_widget('usedcartswin'); -# $usedcartswin or die "can't find Widget"; -# $usedcartswin->resize(640,480); -# $usedcartswin->show; + my $usedcartswin = Gtk2::Window->new(); + $usedcartswin or die "can't open new window"; + $usedcartswin->resize(640,480); + if($low_cart eq $high_cart) { + $usedcartswin->set_title("Cart: $low_cart"); + } else { + $usedcartswin->set_title("Carts: $low_cart - $high_cart"); + } + $usedcartswin->show; } sub clear_status_gui() |