Topic: Enable/disable DCL textbox with radio buttons

[Matt__W]

I'm venturing into my old stomping grounds and can't remember/figure out how to change the editable state of a text box when a radio button is selected.

I have 2 radio buttons (Yes & No).  When I click on No I want a text box to become enabled.  When I click on Yes I want the text box to become DISabled.  I know I need to use MODE_TILE = 1 or 0 but I can't remember how to put it to work.

A little help please?

[MP]

It works counter to one's intuition, mode_tile 0 = enabled, 1 = disabled, e.g. (mode_tile "key" 0) ;; enabled.

[Matt__W]

It works counter to one's intuition, mode_tile 0 = enabled, 1 = disabled, e.g. (mode_tile "key" 0) ;; enabled.

I know that much.  I just can't remember/figure out how to make it do what I want.  (OOCG thread)

[Lee Mac]

Apply those mode_tile expressions within the action_tile statements for your radio_buttons.

i.e.

Code: [Select]

(action_tile "radio_button_1" "(mode_tile \"text_box_1\" (atoi $value))")
Or

Code: [Select]

(action_tile "radio_button_1" "(mode_tile \"text_box_1\" (- 1 (atoi $value)))")
Depending on the behaviour you are looking for...

It works counter to one's intuition...

Made all the more confusing since set_tile is the 'right' way around..

[CAB]

Also consider

Code: [Select]

(action_tile "radio_button_ON" "(mode_tile \"text_box_1\" 0)")
(action_tile "radio_button_OFF" "(mode_tile \"text_box_1\" 1)")

[Matt__W]

Thanks everyone!

[Matt__W]

For the record... here's what I ended up doing.

Code: [Select]

(action_tile "optYes" "(setq strYes 1) (UpdateTextBoxes))")
(action_tile "optNo"  "(setq strYes 0) (UpdateTextBoxes))")

Code: [Select]

(defun UpdateTextBoxes ( / )
   (if (= strYes 1)
      (progn
         (mode_tile "txtLength" 1)
         (mode_tile "txtWidth" 1)
      )
      (progn
         (mode_tile "txtLength" 0)
         (mode_tile "txtWidth" 0)
      )
   )
)

[MP]

Sans the global:

Code: [Select]

(action_tile "optYes" "(UpdateTextBoxes 1)")
(action_tile "optNo"  "(UpdateTextBoxes 0)")

Code: [Select]

(defun UpdateTextBoxes ( strYes )
    (mode_tile "txtLength" strYes )
    (mode_tile "txtWidth" strYes )
)
PS: Ib4 Lee.

[Matt__W]

Good catch.   


I haven't done LSP in what seems like years.  Thanks again!

[CAB]

If it's a Yes/No usually a check box is used. Just the way I usually do it.

[Lee Mac]

PS: Ib4 Lee.