[q-lang-cvs] qcalc qcalc.q,1.174,1.175

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

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. */