[q-lang-cvs] qcalc qcalc.q,1.207,1.208

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

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

Modified Files:
	qcalc.q 
Log Message:
bugfixes

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.207
retrieving revision 1.208
diff -C2 -d -r1.207 -r1.208
*** qcalc.q	30 Nov 2007 22:23:43 -0000	1.207
--- qcalc.q	1 Dec 2007 08:54:53 -0000	1.208
***************
*** 2798,2804 ****
  mytaskwindow_gui (I,J)
  		= qt X "setBackgroundMode" (qt_val "Qt" "PaletteBase") ||
! 		  send_expr '(yywin (I,J) ID) ||
! 		  qt TABLE "setCellWidget" (I,J,X) || IT
! 		    where ID = qt X "winId" ()
  		    if not is_nil IT and then not is_nil X
  		    where X:QtObject = qt_object "QWidget" TABLE
--- 2798,2804 ----
  mytaskwindow_gui (I,J)
  		= qt X "setBackgroundMode" (qt_val "Qt" "PaletteBase") ||
! 		  qt TABLE "setCellWidget" (I,J,X) ||
! 		  // make sure to get the window id *after* setCellWidget()
! 		  send_expr '(yywin (I,J) ~(qt X "winId" ())) || IT
  		    if not is_nil IT and then not is_nil X
  		    where X:QtObject = qt_object "QWidget" TABLE