Commit f750f857 authored by Stefan Tauner's avatar Stefan Tauner
Browse files

Add constructor parameter to determine height resizeability of FIJIModalDialog

parent 319a45d9
......@@ -52,11 +52,14 @@ sub Populate {
my $markuptext = delete $args->{'-markuptext'};
my $scrollable = delete $args->{'-scrollable'};
my $wraplength = delete $args->{'-wraplength'};
my $resizeable_y = delete $args->{'-resizeable_y'};
$self->SUPER::Populate($args);
my $buttons = $self->buttons();
$scrollable = 1 if !defined($scrollable);
# Enable resizability if not overridden by user for scrollable dialogs
$resizeable_y = 1 if !defined($resizeable_y) && $scrollable;
Tk::FIJIUtils::set_icon($self);
......@@ -92,10 +95,10 @@ sub Populate {
'-side' => 'top',
);
$self->resizable(0, 1); # Fix window's width
$self->resizable(0, $resizeable_y);
} else {
$msg_parent = $self;
$self->resizable(0, 0); # Fix window's size
$self->resizable(0, $resizeable_y);
}
if (defined $markuptext) {
# For markup txt we use Tk::Text.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment