From: Debian Astro Team Date: Mon, 26 Mar 2018 17:44:32 +0200 Subject: Relax the loaded Itcl version. This means that Itcl 4 can be used. Also, it removes a call to [fvPref save] which causes a crach with Itcl 4. Bug: https://core.tcl.tk/itcl/tktview?name=15f7db53b9 --- ftools/guis/fv/class/fvWinKeeper.tcl | 2 +- tcltk/pow/PowInit.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ftools/guis/fv/class/fvWinKeeper.tcl b/ftools/guis/fv/class/fvWinKeeper.tcl index e184d7e..c7fdfc0 100644 --- a/ftools/guis/fv/class/fvWinKeeper.tcl +++ b/ftools/guis/fv/class/fvWinKeeper.tcl @@ -148,7 +148,7 @@ itcl::body fvWinKeeper::constructor {args} { if { $xpaFlag == "NOT_AVAILABLE" } { # $itk_component(displayFrame) entryconfigure 0 -state disabled set ::fvPref::imgDisplayer "POW" - fvPref save + #fvPref save } } else { $itk_component(displayFrame) entryconfigure 0 -state normal diff --git a/tcltk/pow/PowInit.c b/tcltk/pow/PowInit.c index a851c8f..9c48651 100644 --- a/tcltk/pow/PowInit.c +++ b/tcltk/pow/PowInit.c @@ -108,7 +108,7 @@ int Pow_Init(Tcl_Interp *interp_instance) { return TCL_ERROR; } - Tcl_PkgRequire(interp, "Itcl", "3.0", 0); + Tcl_PkgRequire(interp, "Itcl", NULL, 0); #if defined(MAC_TCL) && defined(PLUGIN)