> Here's a brief example:
>
> sub scriptSetDir {
> my $dname = shift;
> &selectFileSystem("$dname");
> return "Set directory as $dname\n";
>
> }
...
> The first two args above are the IPC event codes used by
> the Apple OS to register what events/commands my app will
> handle. The third, which maps the Perl command to the
> "main::'" namespace, fires the Perl-level data processing
> pieces but not the updates to the Tkx UI.
Do I understand correctly that all is working fine except that your
UI is not updated during that modal window?
Maybe your perl data updates subroutine should invoke $int->update
in some correct places? (just wild guess, sometimes this is not possible)
If not, please provide more excerpts from the code to see the details
of the problem.
For the record, the tk commands to select file/dir do work fine for me:
my $res = $int->call( 'tk_getOpenFile', ...)
my $res = $int->tk_chooseDirectory(
-initialdir => $initdir,
-title => "$oname directory for '--$oname'",
-mustexist => ($otype eq 'idir' ? 1 : 0),
);
Regards,
Vadim.
