[q-lang-cvs] qcalc qcalc.q,1.209,1.210

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

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

Modified Files:
	qcalc.q 
Log Message:
bugfix: add missing word wrap flag for label elements

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.209
retrieving revision 1.210
diff -C2 -d -r1.209 -r1.210
*** qcalc.q	1 Dec 2007 09:31:52 -0000	1.209
--- qcalc.q	1 Dec 2007 23:39:38 -0000	1.210
***************
*** 2812,2816 ****
  label_gui (I,J) () (S,A)
  		= qt X "setBackgroundMode" (qt_val "Qt" "PaletteBase") ||
! 		  qt X "setAlignment" (alignment A) ||
  		  qt TABLE "setCellWidget" (I,J,X) || IT
  		    if not is_nil IT and then not is_nil X
--- 2812,2817 ----
  label_gui (I,J) () (S,A)
  		= qt X "setBackgroundMode" (qt_val "Qt" "PaletteBase") ||
! 		  qt X "setAlignment"
! 		  (alignment A or qt_val "Qt" "WordBreak") ||
  		  qt TABLE "setCellWidget" (I,J,X) || IT
  		    if not is_nil IT and then not is_nil X