luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Modified the toolkit add_selection procedure to take an extra 

optional argument that is a callback function, so that the act
of selecting something from the drop-down menu can cause things
to happen such as changing the GUI window contents for the item
selected.
This commit is contained in:
Tim Edwards 2022-12-14 17:38:19 -05:00
parent e5813f51fa
commit edecd81046
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tcltk/toolkit.tcl
View File

@ -1162,9 +1162,13 @@ proc magic::add_message {pname ptext parameters {color blue}} {
#---------------------------------------------------------- #----------------------------------------------------------
# Add a selectable-list parameter to the gencell window # Add a selectable-list parameter to the gencell window
# Added 12/14/2022: Optional argument "func" specifies a
# callback procedure to trigger when a menu item is
# selected.
#---------------------------------------------------------- #----------------------------------------------------------
proc magic::add_selectlist {pname ptext all_values parameters {itext ""}} { proc magic::add_selectlist {pname ptext all_values parameters {itext ""} \
{func {}}} {
if [dict exists $parameters $pname] { if [dict exists $parameters $pname] {
set value [dict get $parameters $pname] set value [dict get $parameters $pname]
@ -1180,9 +1184,11 @@ proc magic::add_selectlist {pname ptext all_values parameters {itext ""}} {
grid .params.edits.${pname}_sel -row $numrows -column 1 -sticky wns grid .params.edits.${pname}_sel -row $numrows -column 1 -sticky wns
menu .params.edits.${pname}_sel.menu -tearoff 0 menu .params.edits.${pname}_sel.menu -tearoff 0
foreach item ${all_values} { foreach item ${all_values} {
set cmdtxt ".params.edits.${pname}_sel configure -text $item"
if {$func != {}} {set cmdtxt "$cmdtxt ; $func"}
.params.edits.${pname}_sel.menu add radio -label $item \ .params.edits.${pname}_sel.menu add radio -label $item \
-variable magic::${pname}_val -value $item \ -variable magic::${pname}_val -value $item \
-command ".params.edits.${pname}_sel configure -text $item" -command $cmdtxt
} }
set magic::${pname}_val $value set magic::${pname}_val $value
} }