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
|
