Author Topic: :paragraph formatting  (Read 4916 times)

0 Members and 1 Guest are viewing this topic.

hmspe

  • Bull Frog
  • Posts: 336
:paragraph formatting
« on: September 25, 2009, 09:55:02 AM »
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?

Code: [Select]
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 ;
                  }
"Science is the belief in the ignorance of experts." - Richard Feynman

adalea03

  • Guest
Re: :paragraph formatting
« Reply #1 on: January 13, 2010, 01:49:57 PM »

You'll prolly want to reformat , but see if this fits the bill.

Code: [Select]
//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 {
:column {
:row {
:text_part {label="To calculate voltage drop";}}
:row {
: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;}

Tony

xyp1964

  • Guest
Re: :paragraph formatting
« Reply #2 on: February 04, 2011, 10:51:41 AM »
VIEW
« Last Edit: February 04, 2011, 10:55:09 AM by xyp1964 »

xiaxiang

  • Guest
Re: :paragraph formatting
« Reply #3 on: February 23, 2011, 01:41:02 AM »
Nice one,院长.