[MacPerl] ToolBox modules

[Sveinbjorn Thordarson <paladeen@soth.zoneit.com>]

Hi there

I'm playing around a lot with the MacPerl MacOS toolbox modules, and
I've encountered a problem that I cannot understand.   Here's the
relevant code:

FSpOpenResFile('myRes.rsrc', '') or CouldNotLoadResources;
$myPic = RGetResource("PICT", 128);
$pic = new PicHandle($myPic);


$dialog = MacColorDialog->new
(
$rect,
$title, 
1, 
movableDBoxProc(),
0,
[kPictureDialogItem(),    Rect->new(0, 0, 425, 325),             $myPic],
[kButtonDialogItem(),     Rect->new(250, 280, 320, 300),       'Cancel'],
[kButtonDialogItem(),     Rect->new(340, 280, 400, 300),           'OK']
)

I'm using Mac::QuickDraw, Mac::Dialogs, Mac::Windows and the whole
shebang..(no, not the line =)
However, when I run this MacPerl quits with an error message, says an
error of type 2 occured.

What's wrong with the code? The rects for the image, dialog and
everything is completely right.

Sveinbjorn Thordarson

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org