Re^3: Tk window location Win 7

#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11114006
use warnings;
use Tk;
use Tk::DialogBox;

my $mw = MainWindow->new;
$mw->geometry( '300x300+600+300' );

my $G = $mw->DialogBox(
  -popover => undef, -popanchor => 'nw', -overanchor => 'nw');
$G->minsize(650,680);
$G->maxsize(650,680);

$mw->Button(-text => 'Open Dialog Box', -command => sub { $G->Show },
  )->pack;

MainLoop;
[download]

Comment on Re^3: Tk window location Win 7 Download Code

Replies are listed 'Best First'.
Re^4: Tk window location Win 7 by Anonymous Monk on Mar 11, 2020 at 03:07 UTC
Thank you, that did the trick	[reply]