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