[gtk-server] Re: clisp, gtk-server & glade-2.10

Thank you very much for your answers.

Le Jeudi 4 Mai 2006 13:25, Peter van Eerten a écrit :
> Hi,
>
> This line with GtkScript actually does create a scale with float intervals:
>
> range$ = gtk_hscale_new_with_range(0.5, 1.5, 0.1)
>
OK

> Or with newLISP:
> .................. 
> The range appears without any problem, and has float intervals with a step
> of 0.1. Attached a screenshot. Therefore I think your issue is not
> GTK-server related but CLisp related. Please verify that CLisp really is
> sending float values, and not strings or integers.
>

All right, one can verified below that get-mult-prop-value(...) returns float 
values ... but in the clisp sense (test suite below). That is the question.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CL-USER> (setq toto (make-hash-table :test 'equal))
#S(HASH-TABLE :TEST FASTHASH-EQUAL)
CL-USER> (setf (gethash "adjust" toto) "0 5 128 0 0")
->"0 5 128 0 0"
CL-USER> (defun get-strm-mult-prop (prop-name props)
            (setq strm-props (make-string-input-stream
                              (gethash prop-name props 0))))
->GET-STRM-MULT-PROP
CL-USER> (defun get-mult-prop-values (strm-prop list-prop)
            (if (not (listen strm-prop))
                list-prop
                (get-mult-prop-values
                 strm-prop (cons (read strm-prop) list-prop))))
->GET-MULT-PROP-VALUES
CL-USER> (coerce (cadddr (get-mult-prop-values
                           (get-strm-mult-prop "adjust" toto) ()))
                  'single-float)
->5.0
;;;;;;;;;

> (Unfortunately I am not sure how this works in CLisp. Maybe you better
> contact the original author of the CLisp GTK package you are using, which
> is Jim Bailey.)
>

I'd like. Do you know how to manage ?

> Regards
> Peter
>
> > >>>>>>>>>>>>>>>...
kind regards
Alain

Other related posts: