Revision: 77980
http://sourceforge.net/p/brlcad/code/77980
Author: starseeker
Date: 2020-12-17 15:00:25 +0000 (Thu, 17 Dec 2020)
Log Message:
-----------
Ah. open_cmd_win was missing the global identification of mged_gui, so the
state setting wasn't happening correctly.
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-17 14:57:56 UTC (rev
77979)
+++ brlcad/trunk/src/tclscripts/mged/openw.tcl 2020-12-17 15:00:25 UTC (rev
77980)
@@ -262,16 +262,6 @@
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
@@ -447,8 +437,6 @@
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
@@ -2642,8 +2630,9 @@
}
proc open_cmd_win {id} {
+ global mged_gui
+
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
