juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-17 02:22:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make window resizable

Browse Source
This commit is contained in:
Alessandro Ranellucci
2012-06-18 11:26:21 +02:00
parent 19a78de82f
commit f38f2f139e
6 changed files with 26 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/Slic3r/GUI/Tab.pm
View File

@@ -101,6 +101,7 @@ sub new {
},
{
title => 'Cooling thresholds',
label_width => 250,
options => [qw(fan_below_layer_time slowdown_below_layer_time min_print_speed)],
},
]);
@@ -132,11 +133,7 @@ sub new {
{
title => 'Post-processing scripts',
no_labels => 1,
options => [qw(post_process)], # this is not the right place for duplicate_distance
},
{
title => 'Other',
options => [qw(duplicate_distance)], # this is not the right place for duplicate_distance
options => [qw(post_process)],
},
]);
@@ -149,6 +146,10 @@ sub new {
title => 'Flow',
options => [qw(bridge_flow_ratio)],
},
{
title => 'Other',
options => [qw(duplicate_distance)],
},
]);
return $self;
@@ -227,13 +228,15 @@ package Slic3r::GUI::Tab::Page;
use Wx qw(:sizer :progressdialog);
use Wx::Event qw();
use base 'Wx::Panel';
use base 'Wx::ScrolledWindow';
sub new {
my $class = shift;
my ($parent, %params) = @_;
my $self = $class->SUPER::new($parent, -1);
$self->SetScrollbars(1, 1, 1, 1);
$self->{vsizer} = Wx::BoxSizer->new(&Wx::wxVERTICAL);
$self->SetSizer($self->{vsizer});
@@ -247,7 +250,7 @@ sub new {
sub append_optgroup {
my $self = shift;
my $optgroup = Slic3r::GUI::OptionsGroup->new($self, @_, label_width => 200);
my $optgroup = Slic3r::GUI::OptionsGroup->new($self, label_width => 200, @_);
$self->{vsizer}->Add($optgroup, 0, wxEXPAND | wxALL, 5);
}