is_enabled
Enabled/Disabled.
This attribute specifies whether a tile is initially grayed out.
(Unavailable.)
Possible values are: true or false. (default: true).
DCL Code Sample
lisp49g : dialog { //dialog name
label = "is_enabled"; //give it a label
: boxed_radio_row { //define boxed radio row
label = "Choose :"; //give it a label
: radio_button { //define radio button
label = "&Large"; //give it a label
key = "rb1"; //give it a name
value = "1"; //make it default
} //end radio button
: radio_button { //define radio button
label = "&Small"; //give it a label
key = "rb2"; //give it a name
} //end radio button
} //end boxed radio row
: boxed_radio_row { //define boxed radio row
: radio_button { //define radio button
label = "&Big"; //give it a label
key = "rb3"; //give it a name
value = "1"; //make it default
} //end radio button
: radio_button { //define radio button
label = "&Very Big"; //give it a label
key = "rb4"; //give it a name
} //end radio button
} //end boxed radio row
: boxed_radio_row { //define boxed radio row
: radio_button { //define radio button
label = "&Small"; //give it a label
key = "rb5"; //give it a name
is_enabled = false; //switch off
} //end radio button
: radio_button { //define radio button
label = "&Very Small"; //give it a label
key = "rb6"; //give it a name
value = "1"; //make it default
is_enabled = false; //switch off
} //end radio button
} //end boxed radio row
spacer; //define spacer
ok_cancel ; //predefined OK/Cancel button
} //end dialog
AutoLisp Coding:
(defun C:lisp49g ()
;define function
(setq dcl_id (load_dialog "lisp49g.dcl"))
;load dialog
(if (not (new_dialog "lisp49g" dcl_id)
;test for dialog
);not
(exit)
;exit if no dialog
);if
(action_tile "rb2"
"(mode_tile \"rb3\" 1)
(mode_tile \"rb4\" 1)
(mode_tile \"rb5\" 0)
(mode_tile \"rb6\"0)"
)
(action_tile "rb1"
"(mode_tile \"rb3\" 0)
(mode_tile \"rb4\" 0)
(mode_tile \"rb5\" 1)
(mode_tile \"rb6\" 1)"
)
(action_tile
"accept"
;if O.K. pressed
"(done_dialog) (setq userclick T)"
;close dialog, set flag
);action tile
(action_tile
"cancel"
;if cancel button pressed
"(done_dialog) (setq userclick nil)"
;close dialog, lower flag
);action_tile
(start_dialog)
;start dialog
(unload_dialog dcl_id)
;unload
(princ)
);defun
(princ)
|