use

use strict ;

use

use warnings FATAL => qw ( all ) ;

use

use File :: Find ;

use

use File :: Path ;

use

use Tkx ;

use

use Tkx :: LabEntry ;

use

use Carp ;

use

use YAML qw ( DumpFile LoadFile ) ;

use

use File :: Basename qw ( basename ) ;

my

my $VERSION = '' ;

my

my % s ;

my

my %labFrame ;

my

my %frame ;

my

my %labEntry ;

my

my %button ;

my

my %mainWindow ;

my

my @errors ;

my

my @output ;

my

my $settingFile = $0 . '.settings' ;

my

my $errorFile = $0 . '.errors' ;

sub

sub buildGui

if

carp ( ) if $s { debug } ;

sub

sub addSizeGrip

my

my $sizeGrip = $mainWindow { mw } -> new_ttk__sizegrip ;

'right'

$sizeGrip -> g_pack ( - side => 'right' ) ;

sub

sub addMainWindow

if

carp ( ) if $s { debug } ;

new

$mainWindow { mw } = Tkx :: widget -> new ( '.' ) ;