2012-07-13 21:46:39 +00:00
|
|
|
package Slic3r::GUI::AboutDialog;
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use utf8;
|
|
|
|
|
|
|
|
|
|
use Wx qw(:font :html :misc :sizer :systemsettings);
|
|
|
|
|
use Wx::Event qw(EVT_HTML_LINK_CLICKED);
|
2012-07-14 09:58:58 +00:00
|
|
|
use Wx::Print;
|
2012-07-13 21:46:39 +00:00
|
|
|
use Wx::Html;
|
|
|
|
|
use base 'Wx::Dialog';
|
|
|
|
|
|
|
|
|
|
sub new {
|
|
|
|
|
my $class = shift;
|
|
|
|
|
my ($parent) = @_;
|
|
|
|
|
my $self = $class->SUPER::new($parent, -1, 'About Slic3r', wxDefaultPosition, [600, 270]);
|
|
|
|
|
|
|
|
|
|
$self->SetBackgroundColour(Wx::wxWHITE);
|
|
|
|
|
my $hsizer = Wx::BoxSizer->new(wxHORIZONTAL);
|
|
|
|
|
$self->SetSizer($hsizer);
|
|
|
|
|
|
|
|
|
|
# logo
|
|
|
|
|
my $logo = Slic3r::GUI::AboutDialog::Logo->new($self, -1, wxDefaultPosition, wxDefaultSize);
|
|
|
|
|
$logo->SetBackgroundColour(Wx::wxWHITE);
|
|
|
|
|
$hsizer->Add($logo, 0, wxEXPAND | wxLEFT | wxRIGHT, 30);
|
|
|
|
|
|
|
|
|
|
my $vsizer = Wx::BoxSizer->new(wxVERTICAL);
|
|
|
|
|
$hsizer->Add($vsizer, 1, wxEXPAND, 0);
|
|
|
|
|
|
|
|
|
|
# title
|
|
|
|
|
my $title = Wx::StaticText->new($self, -1, 'Slic3r', wxDefaultPosition, wxDefaultSize);
|
|
|
|
|
my $title_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
|
|
|
|
|
$title_font->SetWeight(wxFONTWEIGHT_BOLD);
|
|
|
|
|
$title_font->SetFamily(wxFONTFAMILY_ROMAN);
|
|
|
|
|
$title_font->SetPointSize(24);
|
|
|
|
|
$title->SetFont($title_font);
|
|
|
|
|
$vsizer->Add($title, 0, wxALIGN_LEFT | wxTOP, 30);
|
|
|
|
|
|
|
|
|
|
# version
|
|
|
|
|
my $version = Wx::StaticText->new($self, -1, "Version $Slic3r::VERSION", wxDefaultPosition, wxDefaultSize);
|
|
|
|
|
my $version_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
|
|
|
|
|
$version_font->SetPointSize(&Wx::wxMSW ? 9 : 11);
|
|
|
|
|
$version->SetFont($version_font);
|
|
|
|
|
$vsizer->Add($version, 0, wxALIGN_LEFT | wxBOTTOM, 10);
|
|
|
|
|
|
|
|
|
|
# text
|
|
|
|
|
my $text =
|
|
|
|
|
'<html>' .
|
|
|
|
|
'<body bgcolor="#ffffff" link="#808080">' .
|
|
|
|
|
'<font color="#808080">' .
|
|
|
|
|
'Copyright © 2011-2012 Alessandro Ranellucci. All rights reserved. ' .
|
|
|
|
|
'<a href="http://slic3r.org/">Slic3r</a> is licensed under the ' .
|
|
|
|
|
'<a href="http://www.gnu.org/licenses/agpl-3.0.html">GNU Affero General Public License, version 3</a>.' .
|
|
|
|
|
'<br /><br /><br />' .
|
|
|
|
|
'Slic3r logo designed by Corey Daniels, <a href="http://www.famfamfam.com/lab/icons/silk/">Silk Icon Set</a> designed by Mark James. ' .
|
|
|
|
|
'Contributions by Henrik Brix Andersen, Nicolas Dandrimont, Mark Hindess and numerous others.' .
|
|
|
|
|
'</font>' .
|
|
|
|
|
'</body>' .
|
|
|
|
|
'</html>';
|
|
|
|
|
my $html = Wx::HtmlWindow->new($self, -1, wxDefaultPosition, wxDefaultSize, wxHW_SCROLLBAR_NEVER);
|
|
|
|
|
my $font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
|
|
|
|
|
my $size = &Wx::wxMSW ? 8 : 10;
|
|
|
|
|
$html->SetFonts($font->GetFaceName, $font->GetFaceName, [$size, $size, $size, $size, $size, $size, $size]);
|
|
|
|
|
$html->SetBorders(2);
|
|
|
|
|
$html->SetPage($text);
|
|
|
|
|
$vsizer->Add($html, 1, wxEXPAND | wxALIGN_LEFT | wxRIGHT | wxBOTTOM, 20);
|
|
|
|
|
EVT_HTML_LINK_CLICKED($self, $html, \&link_clicked);
|
|
|
|
|
|
|
|
|
|
return $self;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub link_clicked {
|
|
|
|
|
my ($self, $event) = @_;
|
|
|
|
|
|
|
|
|
|
Wx::LaunchDefaultBrowser($event->GetLinkInfo->GetHref);
|
|
|
|
|
$event->Skip(0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
package Slic3r::GUI::AboutDialog::Logo;
|
|
|
|
|
use Wx qw(:bitmap :dc);
|
|
|
|
|
use Wx::Event qw(EVT_PAINT);
|
|
|
|
|
use base 'Wx::Panel';
|
|
|
|
|
|
|
|
|
|
sub new {
|
|
|
|
|
my $class = shift;
|
|
|
|
|
my $self = $class->SUPER::new(@_);
|
|
|
|
|
|
|
|
|
|
$self->{logo} = Wx::Bitmap->new("$Slic3r::var/Slic3r_192px.png", wxBITMAP_TYPE_PNG);
|
|
|
|
|
$self->SetMinSize(Wx::Size->new($self->{logo}->GetWidth, $self->{logo}->GetHeight));
|
|
|
|
|
|
|
|
|
|
EVT_PAINT($self, \&repaint);
|
|
|
|
|
|
|
|
|
|
return $self;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub repaint {
|
|
|
|
|
my ($self, $event) = @_;
|
|
|
|
|
|
|
|
|
|
my $dc = Wx::PaintDC->new($self);
|
|
|
|
|
$dc->SetBackgroundMode(wxTRANSPARENT);
|
|
|
|
|
|
|
|
|
|
my $size = $self->GetSize;
|
|
|
|
|
my $logo_w = $self->{logo}->GetWidth;
|
|
|
|
|
my $logo_h = $self->{logo}->GetHeight;
|
|
|
|
|
$dc->DrawBitmap($self->{logo}, ($size->GetWidth - $logo_w) / 2, ($size->GetHeight - $logo_h) / 2, 1);
|
|
|
|
|
|
|
|
|
|
$event->Skip;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
1;
|
