Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv7991
Modified Files:
qcalc.q
Log Message:
fix keyboard focus of special GUI widgets
Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.174
retrieving revision 1.175
diff -C2 -d -r1.174 -r1.175
*** qcalc.q 23 Nov 2007 00:52:01 -0000 1.174
--- qcalc.q 23 Nov 2007 09:39:02 -0000 1.175
***************
*** 1344,1352 ****
if not qt TABLE "isEditing" ();
! updatemsg (I,J) = statusmsg $ sprintf "%s%d = %s" (colstr J,I+1,S)
where (S,_,_) = get EVAL!(I,J);
= statusmsg $ sprintf "%s%d" (colstr J,I+1)
otherwise;
/* These are related to the script editor. */
--- 1344,1360 ----
if not qt TABLE "isEditing" ();
! updatemsg (I,J) = focus_widget (I,J) ||
! statusmsg $ sprintf "%s%d = %s" (colstr J,I+1,S)
where (S,_,_) = get EVAL!(I,J);
= statusmsg $ sprintf "%s%d" (colstr J,I+1)
otherwise;
+ /* Set the focus to a GUI widget (actually its focus proxy, if available). */
+
+ focus_widget (I,J)
+ = qt X "setFocus" ()
+ if not is_nil X
+ where X:QtObject = qt TABLE "cellWidget" (I,J);
+
/* These are related to the script editor. */
|
