Isn't it just because of old version of TCL? S. John Pybus wrote:
Stacho Mudrak wrote:
Martin Sluka wrote:
At 10:34 +0100 21.2.2005, Stacho Mudrak wrote: *******************************************
Waiting for feedback and comments :)
May you, please, publish any short example, how it works? TIA
I've tried your Tornala example with xtherion from the dev snapshot. When I try to insert the .xvi image I get:
------- bad search mode "-integer": must be -exact, -glob, or -regexp bad search mode "-integer": must be -exact, -glob, or -regexp while executing "lsearch -integer $xth(me,imgs,xlist) $imgx" (procedure "xth_me_imgs_xvi_create" line 62) invoked from within "xth_me_imgs_xvi_create $imgx" (procedure "xth_me_image_insert" line 176) invoked from within "xth_me_image_insert $xth(ctrl,me,images,posx) $xth(ctrl,me,images,posy) {} 0 {}" ("uplevel" body line 1) invoked from within "uplevel \#0 $cmd" (procedure "Button::_release" line 19) invoked from within "Button::_release .xth.me.af.ctrl.cf11.f.ic.insp" (command bound to event) -------
And moving around the canvas gives:
------- bad index "": must be integer or end?-integer? bad index "": must be integer or end?-integer? while executing "lindex $xth(me,imgs,xlist) $iidx" (procedure "xth_me_image_select" line 22) invoked from within "xth_me_image_select [lsearch $xth(me,imgs,xlist) $imgx]" (procedure "xth_me_image_choose" line 3) invoked from within "xth_me_image_choose $imgx" (procedure "xth_me_area_end_drag" line 10) invoked from within "xth_me_area_end_drag 20 "0" 459 389" (command bound to event) -------
$ rpm -q tcl tcl-8.3.5-88
John