[q-lang-cvs] qcalc qcalc.q,1.68,1.69

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

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

Modified Files:
	qcalc.q 
Log Message:
added delete operation, as suggested by Eddie Rucker

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.68
retrieving revision 1.69
diff -C2 -d -r1.68 -r1.69
*** qcalc.q	3 Nov 2007 22:37:45 -0000	1.68
--- qcalc.q	3 Nov 2007 23:22:56 -0000	1.69
***************
*** 57,60 ****
--- 57,61 ----
     "editReturn()",	accept2;
     "editCancel()",	cancel;
+    "editDel()",		del;
     "editCut()",		cut;
     "editCopy()",	copy;
***************
*** 885,888 ****
--- 886,901 ----
  		    if qt TABW "currentPageIndex" () = 1;
  
+ del _ _ _ if global:
+ 		= EDITED := get EDITED or else not null CELLS ||
+ 		  update_title ||
+ 		  clear_sel CELLS ||
+ 		  save_undo CELLS ||
+ 		  clearmsg
+ 		    where SEL = check_editing || selection,
+ 		      CELLS = sel_cells SEL
+ 		    if qt TABW "currentPageIndex" () = 0;
+ 		= qt EDIT "del" ()
+ 		    if qt TABW "currentPageIndex" () = 1;
+ 
  cut _ _ _ if global:
  		= EDITED := get EDITED or else not null CELLS ||