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)
|
