Revision: 54465
http://brlcad.svn.sourceforge.net/brlcad/?rev=54465&view=rev
Author: r_weiss
Date: 2013-02-21 22:21:56 +0000 (Thu, 21 Feb 2013)
Log Message:
-----------
Update to mged 'lc' command to prevent the display from hanging for large lists.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/mged/lc.tcl
Modified: brlcad/trunk/src/tclscripts/mged/lc.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/mged/lc.tcl 2013-02-21 20:22:51 UTC (rev
54464)
+++ brlcad/trunk/src/tclscripts/mged/lc.tcl 2013-02-21 22:21:56 UTC (rev
54465)
@@ -44,7 +44,10 @@
# 'FileName' the path will be the 'current directory'.
#
+set lc_done_flush 0
+
proc lc {args} {
+ global lc_done_flush
set name_cnt 0
set error_cnt 0
set find_duplicates_flag_cnt 0
@@ -408,6 +411,8 @@
puts stdout [format "%-*s %-*s %-*s %-*s %s" $w1 "ID" $w2 "MAT" $w3
"LOS" $w4 "REGION" "PARENT"]
foreach line2 $lines2 {
puts stdout "$line2"
+ after 1 { set lc_done_flush [flush stdout] }
+ vwait lc_done_flush
}
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_feb
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
