Make window resizable

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

View file

@ -16,7 +16,7 @@ our $Options = {
cli => 'notes=s',
type => 's',
multiline => 1,
width => 450,
full_width => 1,
height => 130,
serialize => sub { join '\n', split /\R/, $_[0] },
deserialize => sub { join "\n", split /\\n/, $_[0] },
@ -33,7 +33,7 @@ our $Options = {
label => 'Output filename format',
cli => 'output-filename-format=s',
type => 's',
width => 300,
full_width => 1,
},
# printer options
@ -319,7 +319,7 @@ our $Options = {
cli => 'start-gcode=s',
type => 's',
multiline => 1,
width => 350,
full_width => 1,
height => 120,
serialize => sub { join '\n', split /\R+/, $_[0] },
deserialize => sub { join "\n", split /\\n/, $_[0] },
@ -329,7 +329,7 @@ our $Options = {
cli => 'end-gcode=s',
type => 's',
multiline => 1,
width => 350,
full_width => 1,
height => 120,
serialize => sub { join '\n', split /\R+/, $_[0] },
deserialize => sub { join "\n", split /\\n/, $_[0] },
@ -339,7 +339,7 @@ our $Options = {
cli => 'layer-gcode=s',
type => 's',
multiline => 1,
width => 350,
full_width => 1,
height => 50,
serialize => sub { join '\n', split /\R+/, $_[0] },
deserialize => sub { join "\n", split /\\n/, $_[0] },
@ -349,7 +349,7 @@ our $Options = {
cli => 'post-process=s@',
type => 's@',
multiline => 1,
width => 350,
full_width => 1,
height => 60,
serialize => sub { join '; ', @{$_[0]} },
deserialize => sub { [ split /\s*;\s*/, $_[0] ] },
@ -416,12 +416,14 @@ our $Options = {
sidetext => 'approximate seconds',
cli => 'fan-below-layer-time=i',
type => 'i',
width => 60,
},
'slowdown_below_layer_time' => {
label => 'Slow down if layer print time is below',
sidetext => 'approximate seconds',
cli => 'slowdown-below-layer-time=i',
type => 'i',
width => 60,
},
'min_print_speed' => {
label => 'Min print speed',