[therion] New developement snapshot.

[Stacho Mudrak]

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
>
>