[q-lang-cvs] qcalc qcalc.q,1.196,1.197

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

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

Modified Files:
	qcalc.q 
Log Message:
bugfixes

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.196
retrieving revision 1.197
diff -C2 -d -r1.196 -r1.197
*** qcalc.q	28 Nov 2007 08:18:37 -0000	1.196
--- qcalc.q	28 Nov 2007 08:25:55 -0000	1.197
***************
*** 2841,2846 ****
  		      (qt_val "QTableItem" "Never");
  
  pixmap_gui (I,J) X:QtObject (S,A,B)
! 		= qt X SET PM ||
  		  qt X "setAlignment" (alignment A) ||
  		  qt X "setScaledContents" (B=1)
--- 2841,2850 ----
  		      (qt_val "QTableItem" "Never");
  
+ def NULLMOV = qt_new "QMovie" ();
+ 
  pixmap_gui (I,J) X:QtObject (S,A,B)
! 		= qt X "setPixmap" NULLPM ||
! 		  qt X "setMovie" NULLMOV ||
! 		  qt X SET PM ||
  		  qt X "setAlignment" (alignment A) ||
  		  qt X "setScaledContents" (B=1)