sub WaitForDocumentCompleteForPopup { #$Frames

Description: Handles popup windows. This subroutine is now called internally in SAM.pm.  You should not need to use it.

How To:

Raise a popup window

Cookbook recipe

use strict;
use Win32::OLE;
use Win32::SAM;
#use Win32::Slingshot;

$| = 1;
my $URL = 'http://samie.sourceforge.net/popupframes/basepage.html';
my $seconds;
my $item;
$Win32::OLE::Warn = 0;

StartIE();
$seconds = Navigate($URL);
print "Clicking Link one\n";
$seconds = ClickLink("Link one","popup");
print "Clicking Link two\n";
$seconds = ClickLink("Link two","popup");
print "Clicking Link three\n";
$seconds = ClickLink("Link three","popup");
SetEditBox("basepage","This is cool basepage");
SetEditBox("popup1","This is cool1");
SetEditBox("popup2","This is cool2");
SetEditBox("popup3","This is cool3");
$seconds = ClickLink("Close Window","popup");