[q-lang-cvs] qcalc calclib.q,1.56,1.57

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

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

Modified Files:
	calclib.q 
Log Message:
bugfixes

Index: calclib.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/calclib.q,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -d -r1.56 -r1.57
*** calclib.q	4 Dec 2007 00:52:17 -0000	1.56
--- calclib.q	4 Dec 2007 09:49:24 -0000	1.57
***************
*** 225,229 ****
  checkbox (S:String,INIT:Bool)
  		= printf "\f+++ Checkbox: %s %s\n" (str (I,J),str (S,INIT)) ||
! 		  flush || INIT
  		    where (I,J) = get YYKEY;
  
--- 225,229 ----
  checkbox (S:String,INIT:Bool)
  		= printf "\f+++ Checkbox: %s %s\n" (str (I,J),str (S,INIT)) ||
! 		  flush || yyset (I,J) INIT
  		    where (I,J) = get YYKEY;
  
***************
*** 231,235 ****
  combobox (L:List,INIT:String)
  		= printf "\f+++ Combobox: %s %s\n" (str (I,J),str (L,INIT)) ||
! 		  flush || INIT
  		    if all isstr L
  		    where (I,J) = get YYKEY;
--- 231,235 ----
  combobox (L:List,INIT:String)
  		= printf "\f+++ Combobox: %s %s\n" (str (I,J),str (L,INIT)) ||
! 		  flush || yyset (I,J) INIT
  		    if all isstr L
  		    where (I,J) = get YYKEY;
***************
*** 239,243 ****
  comboedit (L:List,INIT:String)
  		= printf "\f+++ Comboedit: %s %s\n" (str (I,J),str (L,INIT)) ||
! 		  flush || INIT
  		    if all isstr L
  		    where (I,J) = get YYKEY;
--- 239,243 ----
  comboedit (L:List,INIT:String)
  		= printf "\f+++ Comboedit: %s %s\n" (str (I,J),str (L,INIT)) ||
! 		  flush || yyset (I,J) INIT
  		    if all isstr L
  		    where (I,J) = get YYKEY;
***************
*** 247,251 ****
  pushbutton (S:String,ICON:String)
  		= printf "\f+++ Pushbutton: %s %s\n"
! 		  (str (I,J),str (S,ICON)) || false
  		    where (I,J) = get YYKEY;
  
--- 247,251 ----
  pushbutton (S:String,ICON:String)
  		= printf "\f+++ Pushbutton: %s %s\n"
! 		  (str (I,J),str (S,ICON)) || yyset (I,J) false
  		    where (I,J) = get YYKEY;
  
***************
*** 256,260 ****
  togglebutton (S:String,ICON:String,INIT:Bool)
  		= printf "\f+++ Togglebutton: %s %s\n"
! 		  (str (I,J),str (S,ICON,INIT)) || INIT
  		    where (I,J) = get YYKEY;
  
--- 256,260 ----
  togglebutton (S:String,ICON:String,INIT:Bool)
  		= printf "\f+++ Togglebutton: %s %s\n"
! 		  (str (I,J),str (S,ICON,INIT)) || yyset (I,J) INIT
  		    where (I,J) = get YYKEY;
  
***************
*** 278,282 ****
  		= printf "\f+++ Slider: %s %s\n"
  		  (str (I,J),str (MIN,MAX,STEP,INIT,VERT)) ||
! 		  flush || INIT
  		    where (I,J) = get YYKEY;
  
--- 278,282 ----
  		= printf "\f+++ Slider: %s %s\n"
  		  (str (I,J),str (MIN,MAX,STEP,INIT,VERT)) ||
! 		  flush || yyset (I,J) INIT
  		    where (I,J) = get YYKEY;
  
***************
*** 362,366 ****
  		  (str (I,J),
  		   str (MIN,MAX,STEP,INIT,SPECIAL,PREF,SUFF,V2T,T2V)) ||
! 		  flush || INIT
  		    where (I,J) = get YYKEY;
  
--- 362,366 ----
  		  (str (I,J),
  		   str (MIN,MAX,STEP,INIT,SPECIAL,PREF,SUFF,V2T,T2V)) ||
! 		  flush || yyset (I,J) INIT
  		    where (I,J) = get YYKEY;