Evaluated proc chekbox args {set out ""; foreach item $args { set a "   \x02\x03\x34/\n\x02\[\x03\x34\\/\x03] $item\n \n"; if {[rpick {1 0}] == 1} { set a [regsub -all {(\\|/)} $a { }] }; append out $a }; . $out }