PB scheme GUI
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 |
All times are GMT -4. The time now is 09:43. |