diff --git a/VERSION b/VERSION index a02617f8..4c8517f7 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -8.3.563 +8.3.564 diff --git a/tcltk/toolkit.tcl b/tcltk/toolkit.tcl index 220759e1..e349703b 100644 --- a/tcltk/toolkit.tcl +++ b/tcltk/toolkit.tcl @@ -1153,7 +1153,10 @@ proc magic::add_entry {pname ptext parameters} { #---------------------------------------------------------- # Default entry callback, without any dependencies. Each -# parameter changed +# parameter changed causes an update to the dialog. Also +# add default callbacks on checkboxes and choice menus, +# using a null function which does not get executed, but +# the dialog gets updated afterward. #---------------------------------------------------------- proc magic::add_check_callbacks {gencell_type library} { @@ -1166,6 +1169,12 @@ proc magic::add_check_callbacks {gencell_type library} { bind $w \ "magic::update_dialog {} $pname $gencell_type $library" } + if {[regexp {\.params\.body\.area\.edits\.(.+)_sel} $w valid pname]} { + magic::add_dependency \{\} $gencell_type $library $pname + } + if {[regexp {\.params\.body\.area\.edits\.(.+)_chk} $w valid pname]} { + magic::add_dependency \{\} $gencell_type $library $pname + } } }