Gui
 

hi, i want add a panel under Fluent to communicate with a my udf, i use this program but they do'nt work

(if(not(rp-var-object 'udf/valeur1)) (rp-var-define 'udf/valeur1 50 'real #f)) (if(not(rp-var-object 'udf/valeur2)) (rp-var-define 'udf/valeur2 2 'integer #f))

(define gui-udf-entree

(let((panel #f) (valeur1) (valeur2))

(define(update-cb . args) (cx-set-real-entry valeur1 (rpgetvar 'udf/valeur1)) (cx-set-integer-entry valeur2 (rpgetvar 'udf/valeur2)) ) (define(apply-cb . args) (rpsetvar 'udf/valeur1 (cx-show-real-entry valeur1)) (rpsetvar 'udf/valeur2 (cx-show-integer-entry valeur2)) )

(define gui-udf-entree

(let((panel #f) (valeur1) (valeur2))

(define(update-cb . args) (cx-set-real-entry valeur1 (rpgetvar 'udf/valeur1)) (cx-set-integer-entry valeur2 (rpgetvar 'udf/valeur2)) ) (define(apply-cb . args) (rpsetvar 'udf/valeur1 (cx-show-real-entry valeur1)) (rpsetvar 'udf/valeur2 (cx-show-integer-entry valeur2)) )

(lambda args (if(not panel) (begin (set! panel(cx-create-panel "Donnees pour l'UDF" apply-cb update-cb)) (set! panel(cx-create-real-entry panel "entrer valeur1" 'right-of 0 below 0 ))

(set! panel(cx-create-real-entry panel "entrer valeur2" 'right-of 0 below valeur1 ))

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

(cx-add-item"User-Defined" "Donnees de l'UDF..."U #f cx-client?gui-entree)

Re: Gui *NM*
 

Re: Gui
 

you need to put #include "udf.h" at the start. Look up the fluent udf user guide.

Re: Gui
 

i have #include "udf.h" it is part of the program which I added to a program which work without problem

Re: Gui
 

the only thing you can do is take time tom compare it to working code until you find a problem. Also depends whether it compiles or not.