From 1c6a710fd32189bf36d8070848500353249e761a Mon Sep 17 00:00:00 2001 From: Renaud Chaillat Date: Thu, 6 Sep 2001 15:30:17 +0000 Subject: added step number in between next and back buttons --- mdkonline | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/mdkonline b/mdkonline index fec5c465..e6435bc7 100755 --- a/mdkonline +++ b/mdkonline @@ -85,10 +85,11 @@ $Main_Window->set_usize(540, 430); $Main_Window->realize(); $Main_Window->signal_connect( "delete_event", \>k_main_quit); -my $Button_Next= new Gtk::Button(" " . _("Next") . " 2/".$nb_pages." > "); -my $Button_End= new Gtk::Button(" " . _("Finish") . " "); -my $Button_SkipWiz= new Gtk::Button(" " ._("Quit") . " "); -my $Button_Prev= new Gtk::Button(" < " . _("Back") . " "); +my $Step_Label = new Gtk::Label(" 1/".$nb_pages." "); +my $Button_Next = new Gtk::Button(" " . _("Next") . " 2/".$nb_pages." > "); +my $Button_End = new Gtk::Button(" " . _("Finish") . " "); +my $Button_SkipWiz = new Gtk::Button(" " ._("Quit") . " "); +my $Button_Prev = new Gtk::Button(" < " . _("Back") . " "); my $notebook_global = new Gtk::Notebook; $Button_End->show(); $notebook_global->set_show_border($false); @@ -101,6 +102,7 @@ $vbox->pack_start(new Gtk::HSeparator, 0, 0, 1); my $hbox= new Gtk::HBox(0,5); $vbox->pack_start($hbox, 0, 0, 1); $hbox->pack_end($Button_Next, 0, 1, 0); +$hbox->pack_end($Step_Label, 0, 1, 0); $hbox->pack_end($Button_Prev, 0, 1, 0); $Button_SkipWiz->signal_connect( clicked => \&confirm_quit); $hbox->pack_start($Button_SkipWiz, 0, 1, 0); @@ -163,6 +165,7 @@ sub on_next_clicked { # Update the buttons labels $Button_Next->child->set(" "._("Next")." ".($page+2)."/".$nb_pages." > "); $Button_Prev->child->set(" < ".$page."/".$nb_pages." "._("Back")." "); + $Step_Label->set(" ".($page+1)."/".$nb_pages." "); } sub on_prev_clicked { @@ -193,12 +196,13 @@ sub on_prev_clicked { } # Update the buttons labels - $Button_Next->child->set(_("Next")." ".($page+2)."/".$nb_pages." > "); - if ($page-1 >0) { + $Button_Next->child->set(" "._("Next")." ".($page+2)."/".$nb_pages." > "); + if ($page > 0) { $Button_Prev->child->set(" < ".$page."/".$nb_pages." "._("Back")." "); } else { $Button_Prev->child->set(" < "._("Back")." "); } + $Step_Label->set(" ".($page+1)."/".$nb_pages." "); } sub subscribe_mdkonline() { -- cgit v1.2.1