[gtk-server] Re: clisp, gtk-server & glade-2.10
- From: Peter van Eerten <administrator@xxxxxxxxxxxxxx>
- To: gtk-server@xxxxxxxxxxxxx
- Date: Thu, 04 May 2006 16:58:41 +0200
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:
