[q-lang-cvs] qcalc calclib.q,1.33,1.34

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

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

Modified Files:
	calclib.q 
Log Message:
add another action button example

Index: calclib.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/calclib.q,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** calclib.q	16 Nov 2007 10:14:50 -0000	1.33
--- calclib.q	16 Nov 2007 12:45:03 -0000	1.34
***************
*** 586,591 ****
  
  yyaction (I:Int,J:Int)
! 		= setval (I,J) Y
! 		    where 'X = get YYACT!(I,J), Y = catch fail X;
  
  yyclearaction (I:Int,J:Int)
--- 586,592 ----
  
  yyaction (I:Int,J:Int)
! 		= YYKEY := () || setval (I,J) Y
! 		    where 'X = get YYACT!(I,J),
! 		      Y = YYKEY := (I,J) || catch fail X;
  
  yyclearaction (I:Int,J:Int)