[MacPerl-Toolbox] dialog item error

["Noe Dinnerstein: President, BodhiSoftWare" <norbu108@tuna.net>]

I'm setting up a dialog box with the following code segment:

 $dlg = MacDialog->new(
	 Rect->new(50,50,450,155),    # dialog rectangle
  	'Search ACIP CD',            # dialog title
	1,                           # is visible
	movableDBoxProc(),           # window style
	0,                           # has go away box?
	[ kButtonDialogItem(),
  	 Rect->new(300, 30,380,50),  'Cancel'],
  	 [ kButtonDialogItem(),
  	   Rect->new(300, 70, 380,90),'Search'],
 	 [kStaticTextDialogItem(),
   	  Rect->new(10, 10, 220, 30),
     	'Search Any or All Directories'],
 	 [ kEditTextDialogItem(),
   	  Rect->new(15,50,180,65), 'chos'],
	 ) or die "Error setting up dialog box:$^E";

#-----Define dialog items

SetDialogCancelItem  ($dlg->window(), 1) or die "failed setting Cancel: $^E";
SetDialogDefaultItem ($dlg->window(), 2) or die "failed setting Search: $^E";
SelectDialogItemText ($dlg->window(), 4) or die "failed to set Dialog item
text:  $^E  ";

I get the following error:


# failed setting Search: Error in parameter list / Not an existing volume,
and no default volume / Bad positioning information / Bad drive number (OS
error -50).
File 'DorjeJigje:Programming:MacPerl Ÿ:Noe's Perl Stuff:SearchACIP'; Line 50

What am I doing wrong?





Noe


                  (-,-)
                   (- )                  ======        ====
                /       \                      // \\        II  <>
             @ \#   #/@          \ \     \\  \\      II
           @   /   /\  \  @         \ \__//   \\    II  <>
            @   \/    \/  @            ---         \\  II
                @  @    @                                \\II
                                                                \\



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