monotone

monotone Commit Details

Date:2009-01-18 20:58:28 (10 years 5 months ago)
Author:Tony Cooper
Branch:net.venge.monotone.contrib.mtn-browse
Commit:c132b8d1b73347305a6873c9dc578026c7aca73e
Parents: a676e2d666b088c8801f0023cbb0eff84782fb12
Message:Now use constants for the app name and version number. Also corrected a file

path.
Changes:
Mlib/perl/Globals.pm (2 diffs)
Mmtn-browse (2 diffs)

File differences

lib/perl/Globals.pm
5353
5454
5555
56
56
5757
58
58
59
5960
6061
6162
......
115116
116117
117118
119
118120
119121
120122
# ***** 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.
our %EXPORT_TAGS = (constants => [qw(ALL_CHANGED
APPLICATION_NAME
APPLICATION_VERSION
BRANCH
BRANCH_CHANGED
DATABASE_CHANGED
mtn-browse
175175
176176
177177
178
179
178
179
180180
181181
182182
......
392392
393393
394394
395
395
396396
397397
398
399
398
399
400400
401401
402402
# 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);
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 <support\@coosoft.plus.com>"],

Archive Download the corresponding diff file

Branches

Tags

Quick Links:     www.monotone.ca    -     Downloads    -     Documentation    -     Wiki    -     Code Forge    -     Build Status