Ok button only respond the second click

Sometimes the OK button only responds the second time I click on it.

I'm not sure any more why this happens. I think it happens after editing an
edit_box.

Any idea? Someone?

M

 

Sometimes the OK button only responds the second time I click on it.<<<

What are you doing with the action tile that's associated with the "accept"?

Bill

 

After Done dialog 1 writing contents to a file.

(defun sin_par ( / dbl dbc)
(if (setq dbl (load_dialog "a_sin")) (setq dbn (new_dialog "sin_par" dbl))
(exit))
(set_tile "kop" "Symbool insert parameters") ; SymBoolNaam
(set_tile "sbn" H_cadsnm) ; SymBoolNaam
(set_tile "sbo" (nth 2 (assoc H_cadsnm sgl))) ; SymBool Offset afstand
(set_tile "sbb" (nth 3 (assoc H_cadsnm sgl))) ; SymBool Breek afstand
(set_tile "sbr" (nth 4 (assoc H_cadsnm sgl))) ; SymBool Rotatie
(set_tile "sbk" (nth 5 (assoc H_cadsnm sgl))) ; SymBool LaagKleur
(action_tile "sbo" "(setq sgl (subst (subst $value (nth 2 (assoc H_cadsnm
sgl)) (assoc H_cadsnm sgl)) (assoc H_cadsnm sgl) sgl))")
(action_tile "sbb" "(setq sgl (subst (subst $value (nth 3 (assoc H_cadsnm
sgl)) (assoc H_cadsnm sgl)) (assoc H_cadsnm sgl) sgl))")
(action_tile "sbr" "(setq sgl (subst (subst $value (nth 4 (assoc H_cadsnm
sgl)) (assoc H_cadsnm sgl)) (assoc H_cadsnm sgl) sgl))")
(action_tile "sbk" "(setq sgl (subst (subst $value (nth 5 (assoc H_cadsnm
sgl)) (assoc H_cadsnm sgl)) (assoc H_cadsnm sgl) sgl))")
(action_tile "cancel" "(done_dialog 0)")
(action_tile "accept" "(done_dialog 1)")
(setq dbc (start_dialog)) (unload_dialog dbl)
(if (= dbc 1)
(if (not (equal (cdr cml) sgl))
(progn
(setq bst (open (strcat H_cadprg "hlp\\A_sin.par") "w"))
(foreach itm (car cml) (princ itm bst) (if (= itm (last (car cml)))
(princ "\n" bst) (princ " ;" bst)))
(foreach itm sgl (foreach val itm (princ val bst) (if (/= val (last
itm)) (princ " ;" bst))) (princ "\n" bst))
(close bst)
) )
)
)

 

Looks normal.

Can you show me the DCL file?

Bill

 

Here the DCL code;

sin_par : dialog { key = "kop";

: row {
: column { fixed_width = 60;
: text { label = "Symboolnaam : "; }
: text { label = "Lijn offset : "; }
: text { label = "Lijn breek : "; }
: text { label = "Rotatie : "; }
: text { label = "Laagkleur : "; }
}
: column {
: text { key = "sbn"; edit_width = 20; fixed_width_font = true; }
: edit_box { key = "sbo"; edit_width = 20; }
: edit_box { key = "sbb"; edit_width = 20; }
: edit_box { key = "sbr"; edit_width = 20; }
: edit_box { key = "sbk"; edit_width = 20; }
}
}

ok_cancel;

}

 

Marcel,

The okay and cancel buttons work fine here.

You check your variables for validity.

HTH

Bill

 

Marcel,
I did notice that:

(if (setq dbl (load_dialog "sin_par")) ;I had to change this to "sin_par".
(setq dbn (new_dialog "sin_par" dbl))
(exit))

Bill

 

Thats correct. Here it is part of a DCL file.

By the way. What do you mean with HTH.

M

 

Bill, since your such a good help to me, mabe you have an answer to this
one.

How can (atof "0.25") result in 0.0?

_2$ (atof "0.25")
0.0

Earlier I posted this under "Strange result" But don't think the replies I
got are sufficient.

M

 

By the way. What do you mean with HTH.<<<

Hope that helps.

Bill

 

This is unfamiliar to me.

What is the _2$ ?

Is that a menu macro?

Bill

 

Bill,

Thats te commandline in the vlisp console;

_$ (atof 0.25)
; error: bad argument type: stringp 0.0
_1$ (atof "0.25") <- Here _1$ afer the error
0.0 <- again the wrong result
_1$

HTH too ; )

M

 

I see!

But not with me. It does work when vlide is shutdown.
I cannot find any settings in the environment options of vlide.

I guess you don't know the answer?

M