[therion] New developement snapshot.

[John Pybus]

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