3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Some GUI fixes after the recent contributions

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-03-03 21:25:26 +01:00
parent 6b31563b70
commit e8c64924db
2 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lib/Slic3r/GUI/SkeinPanel.pm
View file

@ -114,9 +114,9 @@ sub new {
$make_tab->([qw(notes)], [qw(extrusion output)]),
);
$tabpanel->AddPage($tabs[0], "Printing");
$tabpanel->AddPage($tabs[0], "Print");
$tabpanel->AddPage($tabs[1], "Cooling");
$tabpanel->AddPage($tabs[2], "Extruding");
$tabpanel->AddPage($tabs[2], "Printer and Filament");
$tabpanel->AddPage($tabs[3], "GCODE");
$tabpanel->AddPage($tabs[4], "Advanced");
@ -144,13 +144,16 @@ sub new {
my $font = Wx::Font->new(10, wxDEFAULT, wxNORMAL, wxNORMAL);
my $update_sizer = Wx::BoxSizer->new(wxVERTICAL);
my $text = Wx::StaticText->new($self, -1, "Version $Slic3r::VERSION");
$text->SetFont($font);
$update_sizer->Add($text, 0, wxALIGN_CENTRE);
{
my $text = Wx::StaticText->new($self, -1, "Version $Slic3r::VERSION");
$text->SetFont($font);
$update_sizer->Add($text, 0, wxALIGN_CENTER);
my $link = Wx::HyperlinkCtrl->new($self, -1, "Check for updates", "http://slic3r.org/");
$link->SetFont($font);
$update_sizer->Add($link, 0, wxALIGN_CENTRE);
#my $link = Wx::HyperlinkCtrl->new($self, -1, "Check for updates at slic3r.org", "http://slic3r.org/");
my $link = Wx::StaticText->new($self, -1, "Check for updates at http://slic3r.org/");
$link->SetFont($font);
$update_sizer->Add($link, 0, wxALIGN_CENTER);
}
$buttons_sizer->Add($update_sizer, 0, wxEXPAND);

1
lib/Slic3r/Polygon.pm
View file

@ -113,6 +113,7 @@ sub subdivide {
$num_points++ if $len % $max_length;
# $num_points is the number of points to add between $i-1 and $i
next if $num_points == -1;
my $spacing = $len / ($num_points + 1);
my @new_points = map Slic3r::Point->new($_),
map Slic3r::Geometry::point_along_segment($self->[$i-1], $self->[$i], $spacing * $_),