Hello Perlmonks,

I would like to open a series of dedicated text-editors from within my application.
Ptked is a nice example, but this does not work with tkx. I did several attempts, but gave up.
My last attempt to open a series of text-windows looks like this. Can someone tell me how to get the code running?
Thank you

This code is made running, but it is not running correctly. For starters, the menu does not appear. And I need to have a ondestroy function.

#!/opt/ActivePerl-5.10/bin/perl

use strict;
use Tkx;
Tkx::package_require("style");
Tkx::style__use("as", -priority => 70);


sub open_windows {
    for my $i ( 0 .. 5 ) {
        Create_Win($i);
    }
}

sub Create_Win {
    my ($i) = @_;
    my $mw_sp = Tkx::widget->new(".");
    my $sp = $mw_sp->new_toplevel();
    $sp->g_wm_title( $i );
#    $sp->OnDestroy( [ &Report_Des, $i ] );
    Tkx::package_require("BWidget"); # new_ScrolledWindow
    my $sw = $sp->new_ScrolledWindow();
    $sw->g_pack(
        -fill   => "both",
        -expand => 1,
    );
    $mw_sp->configure( -menu => mk_menu($mw_sp) );
}

open_windows();

Tkx::MainLoop();
exit;

sub mk_menu {
    my $mw_sp = shift;
    my $m = $mw_sp->new_menu();
    my $fm = $mw_sp->new_menu();
    $m->add_cascade(
        -label       => "File",
        -menu        => $fm,
    );
    $fm->add_command(
        -label => "Exit",
        -command => [\&Tkx::destroy, $mw_sp],
        );
}

sub Report_Des {
    my $i = shift;
    print "destroyed $i\n";
}
[download]