//==============================================================================================================//
//==========================================>>> Original DCL code: <<<==========================================//
// Radios
Radios_Test : dialog // practicing with radio buttons
{
label = "Radio buttons Excercise";
: row
{
: column
{
: boxed_radio_column // As you can see boxed_radio_column / boxed_radio_row are used to gather a number of radio_buttons, where only one option is valid from these
{
label = "Type";
alignment = top;
: radio_button { label = "A"; key = "A"; value = 1; }
: radio_button { label = "B"; key = "B"; }
: radio_button { label = "C"; key = "C"; }
}
: boxed_radio_column
{
label = "Orientation";
alignment = bottom;
: radio_button { label = "Landscape"; key = "L"; value = 1; }
: radio_button { label = "Portrait"; key = "P"; }
}
}
: boxed_radio_column
{
label = "Size";
alignment = centered;
: radio_button { label = "1"; key = "1"; }
: radio_button { label = "2"; key = "2"; }
: radio_button { label = "3"; key = "3"; }
: radio_button { label = "4"; key = "4"; value = 1; }
: radio_button { label = "5"; key = "5"; }
}
}
spacer;
: row
{
: button { label = "Okay"; key = "OK"; alignment = left; fixed_width = true; }
: button { label = "Cancel"; is_cancel = true; alignment = right; fixed_width = true; }
}
}
On_Off : dialog
{
label = "On/Off Excercise";
: toggle
{
label = "Toggle On/Off";
key = "Toggle";
value = 1;
alignment = centered;
}
: popup_list
{
key = "Pop_Lst";
value = "On Off"; // How to populate the popup_list - from the lisp code I guess ??
width = 11.42;
fixed_width = true;
}
: boxed_radio_row
{
label = "Choose status";
alignment = centered;
: radio_button { label = "On"; key = "On_Radio_Button"; value = 1; }
: radio_button { label = "Off"; key = "Off_Radio_Button"; }
}
: boxed_row
{
label = "Choose button";
: button { label = "On"; key = "On_Button"; is_default = true; }
: button { label = "Off"; key = "Off_Button"; }
}
spacer;
ok_cancel;
}
//==============================================================================================================//
;==============================================================================================================;
;======================================>>> String Formatted DCL code: <<<======================================;
""
""
""
"// Radios"
""
"Radios_Test : dialog // practicing with radio buttons"
"{"
" label = \"Radio buttons Excercise\";"
" : row"
" {"
" : column"
" {"
" : boxed_radio_column // As you can see boxed_radio_column / boxed_radio_row are used to gather a number of radio_buttons, where only one option is valid from these"
" {"
" label = \"Type\";"
" alignment = top;"
" : radio_button { label = \"A\"; key = \"A\"; value = 1; }"
" : radio_button { label = \"B\"; key = \"B\"; }"
" : radio_button { label = \"C\"; key = \"C\"; }"
" }"
" : boxed_radio_column"
" {"
" label = \"Orientation\";"
" alignment = bottom;"
" : radio_button { label = \"Landscape\"; key = \"L\"; value = 1; }"
" : radio_button { label = \"Portrait\"; key = \"P\"; }"
" }"
" }"
" : boxed_radio_column"
" {"
" label = \"Size\";"
" alignment = centered;"
" : radio_button { label = \"1\"; key = \"1\"; }"
" : radio_button { label = \"2\"; key = \"2\"; }"
" : radio_button { label = \"3\"; key = \"3\"; }"
" : radio_button { label = \"4\"; key = \"4\"; value = 1; }"
" : radio_button { label = \"5\"; key = \"5\"; }"
" }"
" }"
" spacer;"
" : row"
" {"
" : button { label = \"Okay\"; key = \"OK\"; alignment = left; fixed_width = true; }"
" : button { label = \"Cancel\"; is_cancel = true; alignment = right; fixed_width = true; }"
" }"
"}"
""
""
"On_Off : dialog"
"{"
" label = \"On/Off Excercise\";"
" : toggle"
" {"
" label = \"Toggle On/Off\";"
" key = \"Toggle\";"
" value = 1;"
" alignment = centered;"
" }"
" : popup_list "
" {"
" key = \"Pop_Lst\";"
" value = \"On Off\"; // How to populate the popup_list - from the lisp code I guess ??"
" width = 11.42;"
" fixed_width = true;"
" }"
" : boxed_radio_row"
" {"
" label = \"Choose status\";"
" alignment = centered;"
" : radio_button { label = \"On\"; key = \"On_Radio_Button\"; value = 1; }"
" : radio_button { label = \"Off\"; key = \"Off_Radio_Button\"; }"
" }"
" : boxed_row"
" {"
" label = \"Choose button\";"
" : button { label = \"On\"; key = \"On_Button\"; is_default = true; }"
" : button { label = \"Off\"; key = \"Off_Button\"; }"
" }"
" spacer;"
" ok_cancel;"
"}"
""
;==============================================================================================================;