[q-lang-cvs] qcalc qcalc.q,1.95,1.96

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

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

Modified Files:
	qcalc.q 
Log Message:
only update the current cell when necessary

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.95
retrieving revision 1.96
diff -C2 -d -r1.95 -r1.96
*** qcalc.q	6 Nov 2007 18:52:45 -0000	1.95
--- qcalc.q	6 Nov 2007 19:02:06 -0000	1.96
***************
*** 868,873 ****
  
  gui_update X (I,J) _ if global and then not get REDIT:
! 		= qt TABLE "setCurrentCell" (I,J) ||
! 		  qt TABLE "clearSelection" () ||
  		  process_gui (I,J) X || digest_loop;
  
--- 868,874 ----
  
  gui_update X (I,J) _ if global and then not get REDIT:
! 		= if (I,J)<>current_cell then
! 		    (qt TABLE "setCurrentCell" (I,J) ||
! 		     qt TABLE "clearSelection" ()) ||
  		  process_gui (I,J) X || digest_loop;