#!/usr/bin/perl
use strict;
use Tk;
my $mw = MainWindow->new( -bg => 'white' );
$mw->geometry('400x400' . '+100+100');
my $frame1 = $mw->Frame(
-height => 30,
-bg => 'lightblue',
)->pack( -fill => 'x', -side => 'top' );
my $frame;
my $button = $frame1->Button(
-text => 'Open window',
-command => sub { open_w($frame) },
)->pack;
$frame = $mw->Frame(
-container => 1,
-bg => 'white',
-relief => 'sunken',
-bd => 2,
)->pack( -fill => 'y', -side => 'left' );
MainLoop();
sub open_w {
my ($f) = @_;
my $id = sprintf hex $f->id;
my $t = $mw->Toplevel( -use => $id );
system("xterm -into $id &");
}
|