PB scheme GUI

Pierre-Louis

I'm now trying to run a scheme file for a GUI so that I could be able to change constants in a UDF file without recompilating it. Each time I try to load it, FLUENT returns an error "unbound variable", I'm working with Windows and it seems to run with LINUX.

Here is the scheme : (if(not(rp-var-object 'udf/pinh))(rp-var-define 'udf/pinh 50 'real #f)) (if(not(rp-var-object 'udf/pino))(rp-var-define 'udf/pino 50 'real #f))

(define gui-udf-entree (let((panel #f) (pinh) (pino))

(define (update-cb . args) (cx-set-real-entry pinh (rpgetvar 'udf/pinh)) (cx-set-real-entry pino (rpgetvar 'udf/pino)) )

(define (apply-cb . args) (rpsetvar 'udf/pinh (cx-show-real-entry pinh)) (rpsetvar 'udf/pino (cx-show-real-entry pino)) )

(lambda args (if (not panel) (begin (set! panel (cx-create-panel "Pressions intérieures" apply-cb update-cb)) (set! pinh (cx-create-real-entry panel "Pression intérieure Hydrogène" 'right-of 0 'below 0 )) (set! pino (cx-create-real-entry panel "Pression intérieure Oxygène" 'right-of 0 'below 0 ))

)) (cx-show-panel panel))))

(cx-add-item "User-Defined""Données de l'UDF..."#\U #f cx-client? gui-udf-entree)

Can you see where the problem is and why does it work with Linux and not Windows. Thank you Pierre-Louis