[agtk-devel] Multitrans with activetcl/8.4.6.0

[Magnus N. <ma...@sp...>]

Hi,
I tried MultiTrans with activetcl/8.4.6.0 since I was trying to add some 
functions from the xml-package that's included there.
That made the script complain about the tkTextSetCursor command that's 
used in AGAPPS/tcl/agtk/ag-text.tcl.

This command is not a public tcl command and it's no longer supported in 
the activetcl distributions. Neither is any of the tk[A-Z]* commands as 
far as I know.

So instead of lines like:
tkTextSetCursor $w [expr $index + 1].end

change to:
 $w mark set last [expr $index + 1].end

I've tried it both with activetcl/8.4.6.0 and activetcl/8.4.1.0 and it's 
working as far as I know.

/Magnus

-- 
Magnus Nordstrand             ma...@sp...
Centre for Speech Technology  Tel:  +46 8 790 8965
KTH                           Fax:  +46 8 790 7854
S-100 44 STOCKHOLM            Cell: +4670 491 3673