[gtk-server] Re: clisp, gtk-server & glade-2.10
- From: CLisp <card.lemoine@xxxxxxxxxx>
- To: gtk-server@xxxxxxxxxxxxx
- Date: Thu, 4 May 2006 16:29:13 +0200
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: