----- Original Message -----
From: "Fabio D'Alfonso" <[email protected]>
To: "Sisyphus" <[email protected]>
Cc: <[email protected]>
Sent: Tuesday, January 17, 2012 8:33 PM
Subject: Re: [Perldl] Close Dialog On /GW Device PGPLOT
Hi,
this code :
use PGPLOT;
$dev = '/GW';
pgbegin(0,$dev,0,0);
sleep(2);
pgend;
does not show the popup on my pc.
It does for me - though the pop-up won't appear until you hit "Enter" at the
prompt in the cmd.exe console (to acknowledge the "Type <RETURN> for next
page:" message).
Anyway, as I said in my other email, if the aim is to eradicate the pop-up
from the PDL::Graphics::PGPLOT scripts, just change the one occurrence of
'pgclos;' in PDL/Graphics/PGPLOT/Window.pm to:
pgclos() unless (uc($self->{Device}) eq '/GW');
That should eliminate the popup for scripts such as:
######################
use warnings;
use PDL;
use PDL::Graphics::PGPLOT;
$a = rfits("m51.fits");
dev($^O =~ /MSWin32/ ? '/GW' : '/XSERVE');
imag $a;
######################
Does it ?
Does that change then create other problems ?
Cheers,
Rob
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
