[Therion] xtherion

[Wookey]

+++ cawa sorix [2013-01-11 20:37 +0100]:
> Hello all,
> 
> I look for why there is different between linux and windows, it seems
> on linux, tcltk add extension at the end of the name if there is not a
> "." on the name.
> 
> I wrote the patch bellow :
> 
> 
> --- therion/xtherion/te.tcl
> +++ therion/xtherion/te.tcl
> @@ -649,11 +649,12 @@
>    global xth
> 
>    if {$dialogid} {
>      set fname [tk_getOpenFile -filetypes $xth(app,te,filetypes) \
>        -parent $xth(gui,main) \
> -      -initialdir $xth(gui,initdir) -defaultextension $xth(app,te,fileext)]
> +      -initialdir $xth(gui,initdir) ]
> +               #-defaultextension $xth(app,te,fileext)]
>    }
> 
>    if {[string length $fname] == 0} {
>      return 0
>    } else {
> 
> If you can test on linux :)

Thanks for doing that. I tested here with 5.3.11-2 and it had this
issue Marco noticed. I applied the above patch and built 5.3.11-3 and
that does indeed fix it.

Is there any reason why this might break anything? Should I just
upload it to unstable?

Wookey
-- 
Principal hats:  Linaro, Emdebian, Wookware, Balloonboard, ARM
http://wookware.org/