[q-lang-cvs] qcalc qcalc.q,1.180,1.181

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv16913

Modified Files:
	qcalc.q 
Log Message:
improve realtime latencies by reducing the timer interval

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.180
retrieving revision 1.181
diff -C2 -d -r1.180 -r1.181
*** qcalc.q	23 Nov 2007 22:36:56 -0000	1.180
--- qcalc.q	23 Nov 2007 23:12:47 -0000	1.181
***************
*** 178,182 ****
    TIMER = qt_new "QTimer" MAIN,
    _ = qt_connect TIMER (SIGNAL "timeout()") CONN (SLOT "timer()") ||
!   qt TIMER "start" 300,
    // some pixmaps
    [FLAG, RES, TASKB, TASKA, NULLPM] = map (qt_new "QPixmap")
--- 178,182 ----
    TIMER = qt_new "QTimer" MAIN,
    _ = qt_connect TIMER (SIGNAL "timeout()") CONN (SLOT "timer()") ||
!   qt TIMER "start" 100,
    // some pixmaps
    [FLAG, RES, TASKB, TASKA, NULLPM] = map (qt_new "QPixmap")
***************
*** 2135,2139 ****
  		  mark_spans SPANS ||
  		  statusmsg "Done" ||
! 		  qt TIMER "start" 300 ||
  		  ()
  		    where OLD_KEYS = keys $ get CELLS,
--- 2135,2139 ----
  		  mark_spans SPANS ||
  		  statusmsg "Done" ||
! 		  qt TIMER "start" 100 ||
  		  ()
  		    where OLD_KEYS = keys $ get CELLS,