[q-lang-cvs] qcalc qcalc.q,1.154,1.155

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

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

Modified Files:
	qcalc.q 
Log Message:
make the Return key do something appropriate with chekboxes and buttons

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.154
retrieving revision 1.155
diff -C2 -d -r1.154 -r1.155
*** qcalc.q	16 Nov 2007 08:59:23 -0000	1.154
--- qcalc.q	16 Nov 2007 10:41:36 -0000	1.155
***************
*** 2720,2723 ****
--- 2720,2726 ----
  gui_enter (I,J) X
  where C:String = gui_class X:
+ 		= // toggle a checkbox item
+ 		  qt X "setChecked" $ not qt X "isChecked" ()
+ 		    if C = "MyCheckBox";
  		= // enter a new item in an editable combobox
  		  if all (<>S) L then
***************
*** 2738,2741 ****
--- 2741,2747 ----
  		      Y = min MAX $ (Y0-MIN) div STEP*STEP+MIN
  		    if C = "MySpinBox";
+ where "QPushButton" = class_name X: // press a GUI button
+ 		= qt X "toggle" () if qt X "isToggleButton" ();
+ 		= qt X "animateClick" () otherwise;
  
  /* Special actions on GUI elements. */