[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] macperl::DoAppleScript Doesn't Problem solved & lesson learned



The problem is outlined in the code below.  The lesson I learned is twofold=
=3D
: 1: adequate error response from the system (which I never really did get,=
=3D
 just vague responses like "applescript error"
2: dot yer t's and cross yer i's

Now if I can just figure out how to script the IDE to switch targets...but =
=3D
that's a problem for another day and list!

Thanks to everyone for their help.

Eric

>
>=3D09my $skript =3D3D <<END_OF_APPLESCRIPT;
>=3D09
>
>=3D09
>=3D09display dialog "here1"
>=3D09tell application "CodeWarrior IDE 4.0"
>=3D09display dialog "here2"
>=3D09activate
>=3D09open $project_path converting yes
           ^^^^^^^^^^^^

The problem is here, $project_path should be in quotes since perl is interp=
=3D
olating the variable, not passing it (duh!).


>=3D09set theAccessPaths to Get Preferences from panel "access paths"
>=3D09set theUserPaths to User Paths of theAccessPaths
>=3D09set pow to {{name:":::::xpcom:base:", recursive:true, origin:project =
re=3D
lative}}
>=3D09set theUserPaths to theUserPaths & pow
>=3D09set User Paths of theAccessPaths to pow
>=3D09
>=3D09Set Preferences of panel "access paths" to theAccessPaths
>=3D09close project
>=3D09end tell
>=3D09
>END_OF_APPLESCRIPT
>=3D09
>=3D09system ("flush");
>=3D09MacPerl::DoAppleScript($skript);
>
>WaitNextEvent();
>
>
>
># =3D3D=3D3D=3D3D=3D3D=3D3D Want to unsubscribe from this list?
># =3D3D=3D3D=3D3D=3D3D=3D3D Send mail with body "unsubscribe" to
>macperl-request@macperl.org
>
>



# =3D3D=3D3D=3D3D=3D3D=3D3D Want to unsubscribe from this list?
# =3D3D=3D3D=3D3D=3D3D=3D3D Send mail with body "unsubscribe" to macperl-re=
quest@macp=3D
erl.org