Hi,
the second could do what I think, but I do not see the output on the window.

Using
dev($^O =~ /MSWin32/ ? '/GW' : '/XSERVE');
imag  $a;

I get the image on the window, while using the code you suggested (both versions) I do not get the image on the window.

Could you help ?

Thanks

Fabio D'Alfonso
'Enabling Business Through IT'
cell.  +39.348.059.40.22 *
web: www.fabiodalfonso.com
email: [email protected]
linkedin: www.linkedin.com/in/fabiodalfonso
twitter: www.twitter.com/#!/fabio_dalfonso

fax: +39.06.874.599.581
BlackBerry® Wireless Enabled Address.

* Hidden  numbers are automatically rejected by the phone

On 1/15/2012 2:05 AM, Sisyphus wrote:

----- Original Message ----- From: "Fabio D'Alfonso" <[email protected]>
To: <[email protected]>
Sent: Saturday, January 14, 2012 9:15 PM
Subject: [Perldl] Close Dialog On /GW Device PGPLOT


Hi all,
I am starting to use PDL for my work.
I have a trivial question about the  PGPLOT graphic device on Windows. Is it possible to suppless the "Close"  dialog?


This script produces the pop-up for me:

use PDL::Graphics::PGPLOT::Window;
$win = pgwin( dev=> '/GW');
sleep(2);
$win->close; # script exits and window closes when pop-up is clicked

But this one doesn't:

use PGPLOT;
$dev = '/GW';
pgbegin(0,$dev,1,1);
sleep(2);
pgclose; # script exits, /gw device still open.

However, in both cases the window needs to be closed with a mouseclick.

I don't know if there's anything there that helps - but understanding why that difference exists looks like a good starting point as regards the removal of that pop-up box.

Cheers,
Rob
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl

Reply via email to