# # # add_file "mtn-browse-large.png" # content [728ea80e88438538ff8e15098f761808320fd1d1] # # add_file "mtn-browse.svg" # content [60cd0b8c9b798134cd4e6443f4985bc7fedc20cd] # # patch "ComboAutoCompletion.pm" # from [2acc9ad8ef8ac0c2baba340449aaf332e0b14bfb] # to [e834a5d7ef5b66632cc65b252a2eaa215d35a317] # # patch "mtn-browse" # from [d76ff1eab8e1e12e1c97e898143c6c226a2325b1] # to [afac3c8857a6b966adf2b4d3040d5348e21d418d] # # patch "mtn-browse.glade" # from [b87a22f4310537a066635f9e4aa8554dd053f606] # to [3e8b88ffa5f961df8231705c8e1b25c4029ff920] # # patch "mtn-browse.png" # from [015b81c2dde37dcaaa342238356ecc0b2fc3240b] # to [edd8e19e1e9e41b5b34ba8a964a64ffd042a47ce] # # set "mtn-browse-large.png" # attr "mtn:manual_merge" # value "true" # ============================================================ # mtn-browse-large.png is binary ============================================================ --- mtn-browse.svg 60cd0b8c9b798134cd4e6443f4985bc7fedc20cd +++ mtn-browse.svg 60cd0b8c9b798134cd4e6443f4985bc7fedc20cd @@ -0,0 +1,382 @@ + + + + + + + image/svg+xml + + Monotone Logo + May 20 2006 + + + Graydon Hoare + + + + + + + + http://mkweb.bcgsc.ca/rat/images/raton3700 + + This is a derivative work of an image under not-completely-clear license, but it is published with a statement permitting "unrestricted" use, distribution and modification. + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + ============================================================ --- ComboAutoCompletion.pm 2acc9ad8ef8ac0c2baba340449aaf332e0b14bfb +++ ComboAutoCompletion.pm e834a5d7ef5b66632cc65b252a2eaa215d35a317 @@ -1,10 +1,10 @@ ############################################################################## # # File Name - ComboAutoCompletion.pm # # Description - The combo box auto-completion utilities module for the # mtn-browse application. This module contains assorted -# routines that implement auto-completion for alll branch and +# routines that implement auto-completion for all branch and # revision combo boxes. # # Author - A.E.Cooper. ============================================================ --- mtn-browse d76ff1eab8e1e12e1c97e898143c6c226a2325b1 +++ mtn-browse afac3c8857a6b966adf2b4d3040d5348e21d418d @@ -105,10 +105,15 @@ my $window_type = "main_window"; my $window_type = "main_window"; +# the large logo used for the about dialog window. + +my $large_logo; + # ***** FUNCTIONAL PROTOTYPES FOR THIS FILE ***** # Private routines. +sub about_activate_cb($$); sub advanced_find_button_clicked_cb($$); sub annotate_button_clicked_cb($$); sub close_toolbutton_clicked_cb($$); @@ -125,6 +130,7 @@ sub properties_toolbutton_clicked_cb($$) sub open_toolbutton_clicked_cb($$); sub preferences_toolbutton_clicked_cb($$); sub properties_toolbutton_clicked_cb($$); +sub quit_activate_cb($$); sub revision_change_history_button_clicked_cb($$); sub revision_change_log_button_clicked_cb($$); sub save_as_button_clicked_cb($$); @@ -244,6 +250,81 @@ sub view_button_clicked_cb($$); # ############################################################################## # +# Routine - quit_activate_cb +# +# Description - Callback routine called when the user selects the quit file +# menu option. +# +# Data - $widget : The widget object that received the signal. +# $browser : The browser instance that is associated with +# this widget. +# +############################################################################## + + + +sub quit_activate_cb($$) +{ + + my($widget, $browser) = @_; + + return if ($browser->{in_cb}); + local $browser->{in_cb} = 1; + + # Hide all the windows, close all the database handles and then exit Gtk2. + + WindowManager->instance()->cond_find + (undef, + sub { + my $instance = $_[0]; + $instance->{window}->hide() if ($instance->{window}->mapped()); + $instance->{mtn} = undef if (exists($instance->{mtn})); + return; + }); + Gtk2->main_quit(); + +} +# +############################################################################## +# +# Routine - about_activate_cb +# +# Description - Callback routine called when the user selects the about +# help menu option. +# +# Data - $widget : The widget object that received the signal. +# $browser : The browser instance that is associated with +# this widget. +# +############################################################################## + + + +sub about_activate_cb($$) +{ + + my($widget, $browser) = @_; + + return if ($browser->{in_cb}); + local $browser->{in_cb} = 1; + + $large_logo = Gtk2::Gdk::Pixbuf->new_from_file + (LIB_PATH . "/UI/mtn-browse-large.png") + if (! defined($large_logo)); + Gnome2::About->new + ("mtn-browse", + "0.1b", + "Copyright \xa9 2007-2009 Anthony Cooper", + "A graphical front-end browser for Monotone VCS databases", + ["Anthony Cooper "], + "TBD", + "TBD", + $large_logo)->run(); + +} +# +############################################################################## +# # Routine - new_toolbutton_clicked_cb # # Description - Callback routine called when the user clicks on the ============================================================ --- mtn-browse.glade b87a22f4310537a066635f9e4aa8554dd053f606 +++ mtn-browse.glade 3e8b88ffa5f961df8231705c8e1b25c4029ff920 @@ -39,7 +39,7 @@ True - + True GNOMEUIINFO_MENU_FILE_TREE @@ -52,7 +52,7 @@ GNOMEUIINFO_MENU_NEW_ITEM _New True - + @@ -60,27 +60,19 @@ True GNOMEUIINFO_MENU_OPEN_ITEM - + - + True - GNOMEUIINFO_MENU_SAVE_ITEM - + GNOMEUIINFO_MENU_CLOSE_ITEM + - - True - GNOMEUIINFO_MENU_SAVE_AS_ITEM - - - - - True @@ -90,7 +82,7 @@ True GNOMEUIINFO_MENU_EXIT_ITEM - + @@ -99,7 +91,7 @@ - + True GNOMEUIINFO_MENU_EDIT_TREE @@ -107,62 +99,10 @@ - - True - GNOMEUIINFO_MENU_CUT_ITEM - - - - - - - True - GNOMEUIINFO_MENU_COPY_ITEM - - - - - - - True - GNOMEUIINFO_MENU_PASTE_ITEM - - - - - - - True - GNOMEUIINFO_MENU_CLEAR_ITEM - - - - - - - True - - - - - - True - GNOMEUIINFO_MENU_PROPERTIES_ITEM - - - - - - - True - - - - True GNOMEUIINFO_MENU_PREFERENCES_ITEM - + @@ -171,20 +111,8 @@ - + True - GNOMEUIINFO_MENU_VIEW_TREE - - - - - - - - - - - True GNOMEUIINFO_MENU_HELP_TREE @@ -194,7 +122,7 @@ True GNOMEUIINFO_MENU_ABOUT_ITEM - + ============================================================ # mtn-browse.png is binary