Revision: 77979
http://sourceforge.net/p/brlcad/code/77979
Author: starseeker
Date: 2020-12-17 14:57:56 +0000 (Thu, 17 Dec 2020)
Log Message:
-----------
Checkpoint some Tcl/Tk tracing logic to try and debug an unexpected behavior
with variable setting.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/mged/openw.tcl
Modified: brlcad/trunk/src/tclscripts/mged/openw.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/mged/openw.tcl 2020-12-16 16:29:15 UTC (rev
77978)
+++ brlcad/trunk/src/tclscripts/mged/openw.tcl 2020-12-17 14:57:56 UTC (rev
77979)
@@ -262,6 +262,16 @@
set ::tk::Priv(cad_dialog) .mged_dialog
}
+proc tracer_read {varname args} {
+ upvar #0 $varname var
+ tk_messageBox -message "tracer_read: $varname $var"
+}
+
+proc tracer_write {varname args} {
+ upvar #0 $varname var
+ tk_messageBox -message "tracer_write: $varname $var"
+}
+
proc gui { args } {
global tmp_hoc
global mged_gui
@@ -437,6 +447,8 @@
set mged_gui($id,comb) $comb
set mged_gui($id,show_cmd) $scw
+ trace add variable mged_gui($id,show_cmd) write "tracer_write
mged_gui($id,show_cmd)"
+ trace add variable mged_gui($id,show_cmd) read "tracer_read
mged_gui($id,show_cmd)"
set mged_gui($id,show_dm) $sgw
set mged_gui($id,show_status) $mged_default(status_bar)
set mged_gui($id,apply_to) 0
@@ -2631,6 +2643,7 @@
proc open_cmd_win {id} {
set mged_gui($id,show_cmd) 1
+ tk_messageBox -message "mged_gui($id,show_cmd): $mged_gui($id,show_cmd)"
wm deiconify .$id
raise .$id
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
