Skip to content
Snippets Groups Projects
Commit edd27a8c authored by David Flitney's avatar David Flitney
Browse files

*** empty log message ***

parent 848c5cc2
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 14 additions and 14 deletions
fdt.tcl
+ 14
− 14
View file @ edd27a8c
...@@ -964,20 +964,20 @@ proc fdt:select_tool { w tool } { ...@@ -964,20 +964,20 @@ proc fdt:select_tool { w tool } {
proc fdt_monitor { w cmd } { proc fdt_monitor { w cmd } {
puts "$cmd" puts "$cmd"
# set oldcursor [ $w configure -cursor { watch red white } ] set oldcursor [ $w configure -cursor { watch red white } ]
# catch { catch {
# update idletasks update idletasks
# set fd [ open "|$cmd" r ] set fd [ open "|$cmd" r ]
# while { ( [ gets $fd line ] >= 0 ) } { while { ( [ gets $fd line ] >= 0 ) } {
# update idletasks update idletasks
# puts $line puts $line
# } }
# close $fd close $fd
# } junk } junk
# $w configure -cursor $oldcursor $w configure -cursor $oldcursor
# if { $junk != "" } { if { $junk != "" } {
# MxPause "Errors: $junk" MxPause "Errors: $junk"
# } }
puts "Done!" puts "Done!"
} }
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment