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

Hi,

If you are using the files from http://dgym.homeunix.net/clisp-gtk2/ you will
find a mailaddress in here:

http://dgym.homeunix.net/clisp-gtk2/gtk-glade.lisp

First line.

Regards
Peter


Citeren CLisp <card.lemoine@xxxxxxxxxx>:

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


-- 
http://www.gtk-server.org

Other related posts: