Select Code to Download

# Calculate dimensions of message for pane, etc. Then
# configure widget to that height and width.
sub size_widget_for_string {
...
    # Configure the widget.
    $wgt->configure( -width => $wdth, -height => $hght );
}