Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv26124
Modified Files:
qcalc.q
Log Message:
bugfixes
Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.206
retrieving revision 1.207
diff -C2 -d -r1.206 -r1.207
*** qcalc.q 30 Nov 2007 21:47:07 -0000 1.206
--- qcalc.q 30 Nov 2007 22:23:43 -0000 1.207
***************
*** 1232,1241 ****
if (I,J) = real_index (I,J):
= // clean up GUI element in the inferior process
! gui_clear (I,J) || clear_cell1 (I,J) ||
// make sure that edit mode is cleared, too
if eq (real_index (I1,J1)) (I,J) then
qt TABLE "setEditMode" (qt_val "QTable" "NotEditing",I1,J1)
! where X:QtObject = gui_elem (I,J),
! (I1,J1) = current_edited;
= clear_cell1 (I,J) otherwise;
--- 1232,1243 ----
if (I,J) = real_index (I,J):
= // clean up GUI element in the inferior process
! gui_clear X (I,J) || clear_cell1 (I,J) ||
// make sure that edit mode is cleared, too
if eq (real_index (I1,J1)) (I,J) then
qt TABLE "setEditMode" (qt_val "QTable" "NotEditing",I1,J1)
! where (I1,J1) = current_edited,
! X:QtObject = gui_elem (I,J);
! = gui_clear X (I,J) || clear_cell1 (I,J)
! where X:QtObject = gui_elem (I,J);
= clear_cell1 (I,J) otherwise;
|
