[q-lang-cvs] qcalc qcalc.q,1.103,1.104

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

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

Modified Files:
	qcalc.q 
Log Message:
cosmetic changes

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.103
retrieving revision 1.104
diff -C2 -d -r1.103 -r1.104
*** qcalc.q	7 Nov 2007 05:31:09 -0000	1.103
--- qcalc.q	7 Nov 2007 05:34:08 -0000	1.104
***************
*** 577,583 ****
  		    if (I,J)<>current_cell
  		    where (I,J) = qt_data X;
  		= check_focus (N+1) X
  		    if not is_nil X where X:QtObject = qt_parent X
! 		    if N <= 4; // check for a maximum of 4 levels
  
  /* Timer processing. */
--- 577,585 ----
  		    if (I,J)<>current_cell
  		    where (I,J) = qt_data X;
+ // check for a maximum of 5 levels; this should be good enough for most
+ // purposes
  		= check_focus (N+1) X
  		    if not is_nil X where X:QtObject = qt_parent X
! 		    if N < 5;
  
  /* Timer processing. */