# # # patch "lib/perl/ChangeLog.pm" # from [79b78168931e8809076ba30d50f61cb446dbca3a] # to [d008a33667f2a051a93218bd74ba436873b5c3dd] # # patch "lib/ui/mtn-browse.glade" # from [f9155626bd73dc13b653b81af23f1026d5966574] # to [0b0b5d1ad1ce334a5422bf67b73959e67369fa82] # # patch "mtn-browse" # from [ad6906ebbf70055556cb96bd444546fd5d892935] # to [7e2b1ca16f48f6642ef5de18ea1d1557cb433e3f] # ============================================================ --- lib/perl/ChangeLog.pm 79b78168931e8809076ba30d50f61cb446dbca3a +++ lib/perl/ChangeLog.pm d008a33667f2a051a93218bd74ba436873b5c3dd @@ -107,7 +107,7 @@ sub display_change_log($$;$$) $instance = get_change_log_window(); $instance->{changelog_buffer}->set_text(""); - $instance->{window}->set_title(__x("Revision {rev}", + $instance->{window}->set_title(__x("Change Log For {rev}", rev => ($tag ? $tag : $revision_id))); $mtn->certs(address@hidden, $revision_id); $mtn->get_revision(address@hidden, $revision_id); ============================================================ --- lib/ui/mtn-browse.glade f9155626bd73dc13b653b81af23f1026d5966574 +++ lib/ui/mtn-browse.glade 0b0b5d1ad1ce334a5422bf67b73959e67369fa82 @@ -64,7 +64,7 @@ - + True gtk-new 1 @@ -107,7 +107,7 @@ - + True gtk-quit 1 @@ -153,6 +153,61 @@ + + True + _Contents + True + + + + + + True + gtk-help + 1 + 0.5 + 0.5 + 0 + 0 + + + + + + + + True + + + + + + True + _Home Page + True + + + + + True + gtk-home + 1 + 0.5 + 0.5 + 0 + 0 + + + + + + + + True + + + + True GNOMEUIINFO_MENU_ABOUT_ITEM @@ -191,7 +246,7 @@ True - New browser + New browser window gtk-new True True @@ -312,7 +367,7 @@ True - Help + Display help contents page gtk-help True True ============================================================ --- mtn-browse ad6906ebbf70055556cb96bd444546fd5d892935 +++ mtn-browse 7e2b1ca16f48f6642ef5de18ea1d1557cb433e3f @@ -132,6 +132,7 @@ sub help_toolbutton_clicked_cb($$); sub find_files_button_clicked_cb($$); sub get_browser_window(;$$$$$); sub help_toolbutton_clicked_cb($$); +sub home_page_activate_cb($$); sub main_window_delete_event_cb($$$); sub manifest_browser_treeview_cursor_changed_cb($$); sub manifest_browser_treeview_row_activated_cb($$$$); @@ -394,6 +395,50 @@ sub quit_activate_cb($$) # ############################################################################## # +# Routine - home_page_activate_cb +# +# Description - Callback routine called when the user selects the home page +# help menu option. +# +# Data - $widget : The widget object that received the signal. +# $browser : The browser instance that is associated with +# this widget. +# +############################################################################## + + + +sub home_page_activate_cb($$) +{ + + my($widget, $browser) = @_; + + return if ($browser->{in_cb}); + local $browser->{in_cb} = 1; + + eval + { + Gnome2::URL->show("http://www.coosoft.plus.com/software.html"); + }; + if ($@ ne "") + { + my $dialog = Gtk2::MessageDialog->new_with_markup + ($browser->{window}, + ["modal"], + "warning", + "close", + __x("Gnome cannot display Monotone Browser's\n" + . "home page. Gnome gave:\n" + . "{gnome_error_message}", + gnome_error_message => $@)); + $dialog->run(); + $dialog->destroy(); + } + +} +# +############################################################################## +# # Routine - about_activate_cb # # Description - Callback routine called when the user selects the about @@ -677,16 +722,8 @@ sub help_toolbutton_clicked_cb($$) return if ($browser->{in_cb}); local $browser->{in_cb} = 1; - # Gnome2::Help->display("mtn-browse.xml"); + Gnome2::Help->display("mtn-browse.xml"); - my $dialog = Gtk2::MessageDialog->new($browser->{window}, - ["modal"], - "info", - "close", - __("Not implemented.")); - $dialog->run(); - $dialog->destroy(); - } # ##############################################################################