CreateCommand question

Hello,

I am working on a Perl/Tkx app and trying to use the Tcl module's 
CreateCommand call to feed a Perl subroutine directly to the Tcl 
interpreter. There is no documentation on how to do this directly from 
Tkx so I've done a bit of code diving into the module's internals.

This is what I've come up with, but it's not working well:

#get Tkx's interpreter instance rather than creating a new interpreter; 
this is undocumented but should work
my $interp = Tkx::i::interp;

#next, pass a Perl subroutine to the Tcl interpreter

$interp->CreateCommand("", \&scriptSetDir, "", "", "");
sub scriptSetDir {

     my $dname = shift;
     &selectFileSystem($dname);

}

This call produces no output:

Tkx::eval("scriptSetDir", "/Users/kevin");

Any suggestions as to what I am doing wrong?

Kevin

-- 
Kevin Walzer
Code by Kevin/Mobile Code by Kevin
http://www.codebykevin.com
http://www.wtmobilesoftware.com