# # # patch "lib/perl/Globals.pm" # from [5736414955655d3062fb66214c44e351a260e3db] # to [a04f24cb8cead0f1284698ec95eab6a82d41e327] # # patch "mtn-browse" # from [51c9bf1e2a4390c90708b62af8a58f8b785e13c6] # to [5e8e62c785b3bcd0573e7c355ca3bc567e32a1d8] # ============================================================ --- lib/perl/Globals.pm 5736414955655d3062fb66214c44e351a260e3db +++ lib/perl/Globals.pm a04f24cb8cead0f1284698ec95eab6a82d41e327 @@ -53,9 +53,10 @@ use warnings; # ***** GLOBAL DATA DECLARATIONS ***** -# Constant for the name of this application. +# Constants for the name and version of this application. -use constant APPLICATION_NAME => "mtn-browse"; +use constant APPLICATION_NAME => "mtn-browse"; +use constant APPLICATION_VERSION => 0.51; # Constants used to represent the different groups of widgets. @@ -115,6 +116,7 @@ our %EXPORT_TAGS = (constants => [qw(ALL our %EXPORT_TAGS = (constants => [qw(ALL_CHANGED APPLICATION_NAME + APPLICATION_VERSION BRANCH BRANCH_CHANGED DATABASE_CHANGED ============================================================ --- mtn-browse 51c9bf1e2a4390c90708b62af8a58f8b785e13c6 +++ mtn-browse 5e8e62c785b3bcd0573e7c355ca3bc567e32a1d8 @@ -175,8 +175,8 @@ sub view_button_clicked_cb($$); # Initialise stuff. - Gnome2::Program->init("mtn-browse", - 0.51, + Gnome2::Program->init(APPLICATION_NAME, + APPLICATION_VERSION, undef, app_datadir => PREFIX_DIR . "/share"); setup_sigchld_handler(\&sigchld_handler); @@ -392,11 +392,11 @@ sub about_activate_cb($$) local $browser->{in_cb} = 1; $large_logo = Gtk2::Gdk::Pixbuf->new_from_file - (LIB_DIR . "/UI/mtn-browse-large.png") + (LIB_DIR . "/ui/mtn-browse-large.png") if (! defined($large_logo)); Gnome2::About->new - ("mtn-browse", - "0.51", + (APPLICATION_NAME, + APPLICATION_VERSION, __("Copyright \xa9 2007-2009 Anthony Cooper"), __("A graphical front-end browser for Monotone VCS databases"), ["Anthony Cooper "],