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

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

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

Modified Files:
	qcalc.q 
Log Message:
disable tab focus on special GUI elements

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.155
retrieving revision 1.156
diff -C2 -d -r1.155 -r1.156
*** qcalc.q	16 Nov 2007 10:41:36 -0000	1.155
--- qcalc.q	16 Nov 2007 10:57:14 -0000	1.156
***************
*** 2431,2435 ****
  
  pushbutton_gui (I,J) () (TEXT,ICON)
! 		= qt_connect X (SIGNAL "pressed()") X (SLOT "guiUpdate()") ||
  		  qt_connect X (SIGNAL "released()") X (SLOT "guiUpdate()") ||
  		  qt TABLE "setCellWidget" (I,J,X) || IT
--- 2431,2436 ----
  
  pushbutton_gui (I,J) () (TEXT,ICON)
! 		= qt X "setFocusPolicy" (qt_val "QWidget" "ClickFocus") ||
! 		  qt_connect X (SIGNAL "pressed()") X (SLOT "guiUpdate()") ||
  		  qt_connect X (SIGNAL "released()") X (SLOT "guiUpdate()") ||
  		  qt TABLE "setCellWidget" (I,J,X) || IT
***************
*** 2455,2459 ****
  
  actionbutton_gui (I,J) () (TEXT,ICON,INIT)
! 		= qt X "setFlat" true ||
  		  qt_connect X (SIGNAL "clicked()") X (SLOT "guiUpdate()") ||
  		  qt TABLE "setCellWidget" (I,J,X) || IT
--- 2456,2461 ----
  
  actionbutton_gui (I,J) () (TEXT,ICON,INIT)
! 		= qt X "setFocusPolicy" (qt_val "QWidget" "ClickFocus") ||
! 		  qt X "setFlat" true ||
  		  qt_connect X (SIGNAL "clicked()") X (SLOT "guiUpdate()") ||
  		  qt TABLE "setCellWidget" (I,J,X) || IT
***************
*** 2479,2483 ****
  
  togglebutton_gui (I,J) () (TEXT,ICON,INIT)
! 		= qt X "setToggleButton" true ||
  		  qt X "setOn" INIT ||
  		  qt_connect X (SIGNAL "toggled(bool)")
--- 2481,2486 ----
  
  togglebutton_gui (I,J) () (TEXT,ICON,INIT)
! 		= qt X "setFocusPolicy" (qt_val "QWidget" "ClickFocus") ||
! 		  qt X "setToggleButton" true ||
  		  qt X "setOn" INIT ||
  		  qt_connect X (SIGNAL "toggled(bool)")
***************
*** 2506,2510 ****
  
  taskbutton_gui (I,J) () (TEXT,INIT)
! 		= qt X "setToggleButton" true ||
  		  qt X "setFlat" true ||
  		  qt X "setOn" INIT ||
--- 2509,2514 ----
  
  taskbutton_gui (I,J) () (TEXT,INIT)
! 		= qt X "setFocusPolicy" (qt_val "QWidget" "ClickFocus") ||
! 		  qt X "setToggleButton" true ||
  		  qt X "setFlat" true ||
  		  qt X "setOn" INIT ||
***************
*** 2527,2531 ****
  
  spinbox_gui (I,J) () (MIN,MAX,STEP,INIT,SPECIAL,PREF,SUFF,V2T,T2V)
! 		= // FIXME: implement more appropriate validation here
  		  // currently we just switch it off
  		  qt X "setValidator" nil ||
--- 2531,2536 ----
  
  spinbox_gui (I,J) () (MIN,MAX,STEP,INIT,SPECIAL,PREF,SUFF,V2T,T2V)
! 		= qt X "setFocusPolicy" (qt_val "QWidget" "ClickFocus") ||
! 		  // FIXME: implement more appropriate validation here
  		  // currently we just switch it off
  		  qt X "setValidator" nil ||
***************
*** 2559,2563 ****
  
  slider_gui (I,J) () (MIN,MAX,STEP,INIT,VERT)
! 		= qt X "setLineStep" STEP ||
  		  qt_connect X (SIGNAL "valueChanged(int)")
  		  X (SLOT "guiUpdate()") ||
--- 2564,2569 ----
  
  slider_gui (I,J) () (MIN,MAX,STEP,INIT,VERT)
! 		= qt X "setFocusPolicy" (qt_val "QWidget" "ClickFocus") ||
! 		  qt X "setLineStep" STEP ||
  		  qt_connect X (SIGNAL "valueChanged(int)")
  		  X (SLOT "guiUpdate()") ||