I have an existing DCL box that I'm trying to add to. The addition is optional, so I want to add text next to a textbox with instructions. When I use :paragraph there's a lot of white space added to the end of the text_part labels which is changing the width of the overall dcl box. I've been through afralisp and several other tutorials but find nothing related to this. Width settings don't seem to help. To see the original DCL box comment out the :boxed_column section that's about 30 lines from the end. I've spent a couple of hours trying different things and I'm making no progress. Am I missing something, or is this just a quirk of DCL?
dcl_settings : default_dcl_settings { audit_level = 3; }
faultCUAL: dialog {
label = "Fault Calculations" ;
:column
{
:row
{
:boxed_column
{
label = "AFC" ;
: edit_box
{
key = "AFC" ;
action = "(setq AFC $value) (test_vals)" ;
}
}
:boxed_column
{
label = "Voltage" ;
: edit_box
{
key = "volts" ;
action = "(setq voltage $value) (test_vals)" ;
}
}
:boxed_column
{
label = "Length" ;
: edit_box
{
key = "clen" ;
action = "(setq conduit_length $value) (test_vals)" ;
}
}
}
:row
{
:column
{
:boxed_radio_row
{
label = "Conductors" ;
fixed_width = true ;
width = 29;
key = "type" ;
:radio_button
{
key = "CU" ;
width = 13 ;
label = "Copper" ;
value = "1" ;
}
: radio_button
{
key = "AL" ;
width = 13 ;
label = "Aluminum" ;
}
}
:boxed_radio_row
{
label = "Phase" ;
fixed_width = true ;
width = 29;
key = "phases" ;
:radio_button
{
key = "1ph" ;
width = 13 ;
label = "Single" ;
}
: radio_button
{
key = "3ph" ;
width = 13 ;
label = "Three" ;
value = "1" ;
}
}
}
:boxed_radio_column
{
label = "Conduit" ;
fixed_width = true ;
width = 13;
key = "conduit" ;
: radio_button
{
key = "steel" ;
label = "Steel" ;
}
: radio_button
{
key = "PVC" ;
label = "PVC" ;
value = "1" ;
}
: radio_button
{
key = "cable" ;
label = "Cable" ;
}
}
}
:row
{
:boxed_radio_column
{
label = "Sets" ;
fixed_width = true ;
width = 13;
key = "sets" ;
: radio_button
{
key = "set1" ;
label = "1 set" ;
value = "1" ;
action = "(set_small 1)" ;
}
: radio_button
{
key = "set2" ;
label = "2 sets" ;
action = "(set_small 2)" ;
}
: radio_button
{
key = "set3" ;
label = "3 sets" ;
action = "(set_small 3)" ;
}
: radio_button
{
key = "set4" ;
label = "4 sets" ;
action = "(set_small 4)" ;
}
: radio_button
{
key = "set5" ;
label = "5 sets" ;
action = "(set_small 5)" ;
}
: radio_button
{
key = "set6" ;
label = "6 sets" ;
action = "(set_small 6)" ;
}
: radio_button
{
key = "set7" ;
label = "7 sets" ;
action = "(set_small 7)" ;
}
}
:boxed_column
{
label = "AWG or KCMIL" ;
fixed_width = true ;
width = 29;
:row
{
:radio_column
{
key = "AWGcol1" ;
: radio_button
{
key = "ws14" ;
label = "#14 " ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws12" ;
label = "#12" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws10" ;
label = "#10" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws8" ;
label = "#8" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws6" ;
label = "#6" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws4" ;
label = "#4" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws3" ;
label = "#3" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws2" ;
label = "#2" ;
action = "(set_radios $key)" ;
}
}
:radio_column
{
key = "AWGcol2" ;
: radio_button
{
key = "ws1" ;
label = "#1" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws0" ;
label = "#1/0" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws00" ;
label = "#2/0" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws000" ;
label = "#3/0" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws0000" ;
label = "#4/0" ;
action = "(set_radios $key)" ;
}
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
spacer_1;
}
:radio_column
{
key = "AWGcol3" ;
: radio_button
{
key = "ws250" ;
label = "250" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws300" ;
label = "300" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws350" ;
label = "350" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws400" ;
label = "400" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws500" ;
label = "500" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws600" ;
label = "600" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws750" ;
label = "750" ;
action = "(set_radios $key)" ;
}
: radio_button
{
key = "ws1000" ;
label = "1000" ;
action = "(set_radios $key)" ;
}
}
}
}
}
}
// comment from here
:boxed_column
{
label = "Voltage drop";
:row
{
: paragraph
{
: text_part
{
label = "To calculate voltage drop" ;
}
: text_part
{
label = "enter the maximum amperage" ;
}
}
:column
{
fixed_width = true;
width = 13 ;
: edit_box
{
key = "amps" ;
action = "(setq amps $value) (test_vals)" ;
}
}
}
}
// comment to here
ok_cancel ;
}