[q-lang-cvs] qcalc qcalc.q,1.145,1.146

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

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

Modified Files:
	qcalc.q 
Log Message:
set word wrap on all custom table items

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.145
retrieving revision 1.146
diff -C2 -d -r1.145 -r1.146
*** qcalc.q	15 Nov 2007 09:54:05 -0000	1.145
--- qcalc.q	15 Nov 2007 10:15:48 -0000	1.146
***************
*** 927,932 ****
  
  spanned_table_item (I,J) (N,M)
! 		= qt IT "setSpan" (N,M) ||
! 		  qt IT "setWordWrap" (N>1) || IT
  		    if not is_nil IT
  		    where (I0,J0) = real_index (I,J),
--- 927,931 ----
  
  spanned_table_item (I,J) (N,M)
! 		= qt IT "setSpan" (N,M) || IT
  		    if not is_nil IT
  		    where (I0,J0) = real_index (I,J),
***************
*** 937,940 ****
--- 936,940 ----
  		= qt TABLE "setItem" (I,J,IT) ||
  		  qt IT "setSpan" (N,M) ||
+ 		  qt IT "setWordWrap" true ||
  		  insert_cells ((I,J),IT) || IT
  		    if not is_nil IT