package Pm_1148798_dummy_tk_mod;

use strict;
use warnings;

sub run {
    my ($class, $script_F, $text_ST, $script_buttons) = @_;

    my $temp_F = $script_F->Frame->pack;
    $temp_F->Label(-text => 'Dummy Frame for Testing Purposes')->pack;
    $temp_F->Button(-text => 'Done', -command => sub {
        $temp_F->destroy;
        $script_F->configure(-height => 1);
        $_->configure(-state => 'normal') for @$script_buttons;
    })->pack;

    $text_ST->insert(end => "Dummy line 1\n");
    $text_ST->insert(end => "Dummy line 2\n");
}

1;