Display current version in GUI

This commit is contained in:
Alessandro Ranellucci 2011-11-13 22:57:58 +01:00
parent 60f6ce363e
commit d47a7bebbc
2 changed files with 3 additions and 1 deletions

View File

@ -3,6 +3,8 @@ package Slic3r;
use strict;
use warnings;
our $VERSION = "0.0.5";
our $debug = 0;
sub debugf {
printf @_ if $debug;

View File

@ -97,7 +97,7 @@ sub new {
$buttons_sizer->Add($load_button, 0);
EVT_BUTTON($self, $load_button, \&load_config);
my $text = Wx::StaticText->new($self, -1, "Remember to check for updates at http://slic3r.org/", Wx::wxDefaultPosition, Wx::wxDefaultSize, wxALIGN_RIGHT);
my $text = Wx::StaticText->new($self, -1, "Remember to check for updates at http://slic3r.org/\nVersion: $Slic3r::VERSION", Wx::wxDefaultPosition, Wx::wxDefaultSize, wxALIGN_RIGHT);
my $font = Wx::Font->new(10, wxDEFAULT, wxNORMAL, wxNORMAL);
$text->SetFont($font);
$buttons_sizer->Add($text, 1, wxEXPAND | wxALIGN_RIGHT);