#!/usr/bin/perl --
##
##
## perltidy -olq  -csc -csci=3 -cscl="sub : BEGIN END " -otr -opr -ce 
+-nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if " -otr -opr 
+-ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if while " -otr
+ -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
#!/usr/bin/perl --
use strict;
use warnings;

use Tk;
use Tk::NoteBook;

my $mw = MainWindow->new( -title => "Testing" );

$mw->Button( -text => "Open", -command => \&open )
  ->pack( -anchor => 'center', -side => "left" );
$mw->Button( -text => "Save", -command => \&save )
  ->pack( -anchor => 'center', -side => "left" );

our $nb = $mw->NoteBook( -background => 'white', -inactivebackground =
+> 'grey', )
  ->pack( -expand => 1, -fill => 'both' );
my $maintab = "Main Window";
my $frame   = $nb->add( $maintab, -label => $maintab );
my $txt     = $frame->Text( -width => 240, -height => 50 )->pack();

MainLoop;

sub file_open {
    my @types = (
        [ "Log files",  [qw/.log/] ],
        [ "Text files", [qw/.txt/] ],
        [ "All files", '*' ],
    );

    my $aref = $mw->getOpenFile(
        -filetypes  => \@types,
        -initialdir => '.',
        -multiple   => 1
    );
    return( $aref );
} ## end sub file_open

sub open {
    my $file_array = &file_open;
    print "\n";
    print join( "\n", @$file_array );
    print "\n";
    for my $tab ( @$file_array ) {
        my $frame = $nb->add( $tab, -label => $tab );
        $txt = $frame->Text( -width => 240, -height => 50 )->pack();
        open FR, "<$tab" or die "Cant open file:$!\n";
        my $content = join "", <FR>;
        $txt->insert( 'end', "$content" );
        close( FR );
    }
} ## end sub open

sub save {
    my $page = $nb->raised();
    my $content = $txt->get( "1.0", "end" );
    print "\nsaving content= $content\n";
    warn "I REFUSE TO WRITE TO page($page) ";
#~     open FW, ">$page" or die "Cant Write to file:$!\n";
#~     print FW $content;
#~     close( FW );
} ## end sub save
[download]