Hello. I'm writing a GUI project using Strawberry Perl 5.12.3 and pTk 804.03. It is designed to run on Windows. I'm having a problem with DialogBox not positioning correctly in a multiple monitor environment. Everything I position with "show", "place", or "pack" works fine. But when I display a DialogBox on the left monitor it appears on the main monitor instead. To be more specific, it seems that "Show" doesn't like negative horizontal coordinates, replacing them with 0 instead. I've searched but have not found this problem mentioned elsewhere, except once back in 2002. So I'm thinking that there must be something I'm missing or others would have mentioned it since. Thanks for any help! 

    use strict;
    use warnings;
    use 5.012;
    use Tk;
    use Tk::DialogBox;

    my $mw = MainWindow->new;
    $mw->geometry('200x200+-300+300');    # Note the -300 horiz coord

    $mw->DialogBox(-buttons => [ 'OK' ])
    ->Show(-popover => $mw);

    MainLoop;

[download]

In reply to Tk multiple monitor problem by JohnRS

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.