Thank you for bothering to reply. The code below is just a bit of the definition of $G=$mw->DialogBox with most fields initially disabled. $G isn't displayed until requested by action in the main window.

if(not defined $G) {
    $G = $mw->DialogBox(title => "List",
        -buttons => ["Edit/Save", "Add Picture", "Exit"],
        -default_button=>"Exit", -cancel_button=>'Exit',
        -command=>\&handle_display_button);

#       lots of code here

    my $img2 = $mv->Photo('resized');
    $G->Label(-image=>'resized',
            -height=>400,
            -width=>600)->place(-x=>20, -y=>190);
    $lft= $G->Button(-image=>'left',
            -command=>[\&change_picture, 'down'],
             -relief=>'flat')->place(-x=>0, -y=>350);
    $rr = $Gems->Button(-image=>'right',
            -command=>[\&change_picture, 'up'],
            -relief=>'flat')->place(-x=>620, -y=>350);
    $scale = $G->Scale(-from=>0,
            -to=>$#Search_List,
            -variable=>\$sb_idx,
            -command=>\&Change_Record,
            -orient=>'horizontal',
            -length=>540)->place(-x=>50, -y=>600);
        
#    $G->positionfrom('program');
    $G->geometry('650x680+0+0');
#    $G->geometry('+0+0');
    $G->minsize(650,680);
    $G->maxsize(650,680);
}
$G->Show;
[download]

->geometry('650x680); gave it the size I wanted, but it started opening half off screen so I added '+pos+pos', but it didn't change anything, no matter what values I used. Every time it is shown it is always in the same place and I have to move it manually to see it in its entirety.