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;
|
