#17 font size & undefined window size

[Doug Burke]

1) Uninitialised vars when creating a plot:

Use of uninitialized value at
/data/ciao/doug_temporary/perl5/5.00503/lib/sun4-solaris/PDL/Graphics/PGPLOT/Window.pm
line 1666.
Use of uninitialized value at
/data/ciao/doug_temporary/perl5/5.00503/lib/sun4-solaris/PDL/Graphics/PGPLOT/Window.pm
line 1666.

Changing

if ( $aspect && 0 == $width )
{
}

to

$aspect = 0 unless defined $aspect;
$width = 0 unless defined $width;
if ( $aspect && 0 == $width )
{
}

seems to do the trick (well, it stops the complaints -
whether it's correct is another matter)

2) Char Size problem

The following produces axis labels smaller than the
numbers:

$win =
PDL::Graphics::PGPLOT::Window->new({dev=>'/xserve',charsize=>2});
$win->env(0,10,0,10);
$win->label_axes("Bob","Fred","and Barney too");

Fraid I don't have time to try and track down this one.

Doug
(as an aside I couldn't seem to access the bugs page
when logged on)

[Doug Burke]

Logged In: YES
user_id=7154

I've added my fix for #1 to CVS

[Jarle Brinchmann]

Logged In: YES
user_id=2045

This bug is considered fixed, after Doug fixed the first
part, and I have now fixed the second. The problem was that
defaults set when calling new were not actually set unless
the device was a hardcopy one. Now any setting of Font,
CharSize, LineWidth or Colour when opening a new device will
be the defaults for that device until it is closed.