Commit 4d2c8469 authored by Stefan Tauner's avatar Stefan Tauner
Browse files

Make modal dialogs non-resizable

parent c0084d7a
......@@ -101,11 +101,20 @@ sub Populate {
}
$t->configure(-state => 'disabled');
} elsif (defined $text) {
my $lbl = $self->add('Label', -text => $text, -justify => 'left', )->pack(-side => 'right');
my $lbl = $self->add('Label',
-text => $text,
-justify => 'left',
)->pack(
-side => 'right',
-fill => 'both',
-expand => 1
);
$lbl->configure(-wraplength => $wraplength) if (defined $wraplength);
} else {
$logger->debug("Neither text nor markuptext given for modal dialog");
}
$self->resizable(0, 0); # Fix window's size
}
......
Supports Markdown
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