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. */
|
