Robert White wrote:
>Some problem in the sample files.
>sorry if you know about these. But fix that first one!
>-----------
>dc.pl
>Usage Error in SetTextColor
>says its looking for a handle,color combination but
>in cmeta.pl
>and in dc.pl
>its getting $W->SetTextColor($r, $g, $b);
>Note:
> in dc.pl this happens in a loop.
>I had to force a Reset to get out of it. :-(((
whoops! sorry...
with build 220 colors used to be expressed as one value
(in hexadecimal, BBGGRR) or 3 values for red, green
and blue.
with build 301, they can be expressed either as a single
value, or as a list reference with 3 values, so the line
above should change to:
$W->SetTextColor( [$r, $g, $b] );
>--------
>
>listbox.pl
>$W->PostQuitMessage(0); isn't working on the Close button.
>The Button works ok, prints the 'quit' that I stuck in there.
>and it works if you hit it First after startup..... but
>if I Add or Move something it doesn't.
duh... it works for me :-(
>--------
>listview.pl
>Line 16 change
> -height => 200, -width => 300,
>to
> -height => 350, -width => 300,
>so can see the buttons.
>Line 20
> The imagelist items, the icons?, don't show.
the icons are the one.bmp, two.bmp and three.bmp
files, and they should be in the same directory as
the script; note, however, that they're only big
icons, there are no small icons...
>-----------
>pmx.pl
> line 913
> AboutWindow_Resize(); errors, needs x,y in there,
>and should be
> $AboutWindow->Resize();
>and actually don't need it *anyway*.
you're wrong here, AboutWindow_Resize() does not need
x,y. $AboutWindow->Resize() does, instead.
but then you're right, you don't need it anyway, and
it can be safely removed.
>----------
>podview.pl options don't seem to do anything
that's an issue. the first version I wrote used a custom
routine to parse pod files and put them in the RichEdit
control (it's still there, but is called OldLoadPod);
that way I had the control about fonts and colors.
but later I wrote a much more performant Pod::RTF module
(based on the core Pod::Text module by Tom Christiansen,
and actually rewritten by Martin Hosken) and I lost the
fonts/colors part. I'll add it there as soon as I can :-)
>-----------
>treeview.pl
> tried this but can't get anything out of it.
>my $t=$TV->SelectedItem();
>$TV->getItem($t);
> nothing as a hash, 0 as scalar,
>Would like some help on that one as it
>was what started me off.
the correct name is GetItem (uppercase G). this works
for me:
my $node = $TV->SelectedItem();
my %t = $TV->GetItem($node);
foreach my $k (keys %t) {
print "$k => $t{$k}\n";
}
>And that's all I have time for today.
thank you very much, Robert, for your corrections.
please keep signaling bugs when you have time :-)
I know, samples are a little mess actually, and I'm
sorry about it; consider it a side-effect of the
Beta version ;-)
cheers,
Aldo Calpini
<[EMAIL PROTECTED]>
