[q-lang-cvs] qcalc qcalc.q,1.129,1.130

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

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

Modified Files:
	qcalc.q 
Log Message:
bugfixes

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.129
retrieving revision 1.130
diff -C2 -d -r1.129 -r1.130
*** qcalc.q	12 Nov 2007 12:18:47 -0000	1.129
--- qcalc.q	12 Nov 2007 16:19:09 -0000	1.130
***************
*** 1087,1090 ****
--- 1087,1094 ----
  edit_cell (I,J)	= get_table_item (I,J) || qt TABLE "editCell" (I,J);
  
+ end_edit ACCEPT (I,J)
+ 		= qt TABLE "endEdit" (I,J,ACCEPT,false) ||
+ 		  qt TABLE "setEditMode" (qt_val "QTable" "NotEditing",I,J);
+ 
  /* Provide temporary storage for unformatted and edited cell contents. */
  
***************
*** 1136,1140 ****
  		  process (I,J) S || save_undo (I,J) ||
  		  updatemsg (I,J) || digest_loop
! 		    where S = cell_text (I,J);
  
  edit _ _ ()
--- 1140,1144 ----
  		  process (I,J) S || save_undo (I,J) ||
  		  updatemsg (I,J) || digest_loop
! 		    where S = cell_text (I,J), _ = LAST_EDIT := ();
  
  edit _ _ ()
***************
*** 1165,1169 ****
  		    if is_gui_elem (I,J);
  		= EDITED := true ||
! 		  recursive (qt TABLE "endEdit" (I,J,true,false)) ||
  		  finish_edit true (I,J)
  		    if qt TABLE "isEditing" () and then
--- 1169,1173 ----
  		    if is_gui_elem (I,J);
  		= EDITED := true ||
! 		  recursive (end_edit true (I,J)) ||
  		  finish_edit true (I,J)
  		    if qt TABLE "isEditing" () and then
***************
*** 1189,1193 ****
  			qt TABLE "isEditing" ());
  
! cancel _ _ _	= qt TABLE "endEdit" (I,J,false,false) ||
  		  finish_edit false (I,J)
  		    if not is_gui_elem (I,J) and then
--- 1193,1197 ----
  			qt TABLE "isEditing" ());
  
! cancel _ _ _	= end_edit false (I,J) ||
  		  finish_edit false (I,J)
  		    if not is_gui_elem (I,J) and then
***************
*** 1206,1210 ****
  
  check_editing	= EDITED := true ||
! 		  recursive (qt TABLE "endEdit" (I,J,true,false)) ||
  		  finish_edit true (I,J)
  		   if not is_gui_elem (I,J)
--- 1210,1214 ----
  
  check_editing	= EDITED := true ||
! 		  recursive (end_edit true (I,J)) ||
  		  finish_edit true (I,J)
  		   if not is_gui_elem (I,J)