Topic: (if (not (equal ........problem, need help.

[AIberto]

Hi Theswamp's friend
I have a problem. need help.

call: (setq bb (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\tools\\Hotkey" "no.1"))
Return: "test"

"KEYNAME" IS A KEY FROM DCL
:edit_box {
    key = "KEYNAME" ;
    label = "COMMAND" ;
    width = 15 ;
}

I Enter  test  to edit_box
call this

Code: [Select]

(if (not (equal bb (get_tile "KEYNAME")))(prompt "\Does not SAME."))
Always prompt "Does not SAME",  why ?

[ymg]

Alberto,

What does (get_tile "KEYNAME") returns ?

ymg

[AIberto]

Alberto,

What does (get_tile "KEYNAME") returns ?

ymg

It's returns 'nil" , 

OK. problem is be resolved.

Code: [Select]

(setq bb (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\tools\\Hotkey" "no.1"))
(setq cc (get_tile "KEYNAME"))
(if (not (equal bb cc))(prompt "\Does not SAME."))