well by this method I still have 2 windows on screen#!/usr/bin/perl use strict; use warnings; use Tk; my $win = new MainWindow; my $b1 = $win -> Button (-text=>"next", -command=>\&nextwin) -> pack() +; sub nextwin { my $win2 = $win->Toplevel(); my $b2 = $win2 -> Button (-text=>"quit", -command=>sub { exit }) -> pa +ck(); } MainLoop;
In reply to Re^2: perlTk opening new window
by wisemonkey
in thread perlTk opening new window
by wisemonkey
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |