diff options
| author | Dewey Garrett <dgarrett@panix.com> | 2014-02-24 21:23:10 -0700 |
|---|---|---|
| committer | Dewey Garrett <dgarrett@panix.com> | 2014-02-24 21:23:10 -0700 |
| commit | 5f2266363ee37a6b0231c490474442f9a5245e05 (patch) | |
| tree | 13e228f612d1e22e4048355d278f45970a72e72c | |
| parent | d13839780e9b21516e8198fb2a4bd0ddd69be3ca (diff) | |
| download | linuxcnc-5f2266363ee37a6b0231c490474442f9a5245e05.tar.gz linuxcnc-5f2266363ee37a6b0231c490474442f9a5245e05.zip | |
sim_pin: accomodate longer pin names
| -rwxr-xr-x | scripts/sim_pin | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/scripts/sim_pin b/scripts/sim_pin index 68321b0bd..c7e86b35a 100755 --- a/scripts/sim_pin +++ b/scripts/sim_pin @@ -43,10 +43,10 @@ proc add_item_to_gui {id itemname} { set vf $::SP(vframe) set f [frame ${vf}.f$id -borderwidth 3 -relief ridge] - pack [label $f.hdr -width 20 -bg lightgray -fg blue \ + pack [label $f.hdr -bg lightgray -fg blue \ -borderwidth 0 -relief raised \ -text "$::SP($id,itemname)"] \ - -fill both -expand 1 + -fill x -expand 1 switch $::SP($id,itemtype) { bit {add_bit_item_to_gui $f $id} @@ -68,14 +68,14 @@ proc add_bit_item_to_gui {f id} { pack [label $f.b \ -text "$::SP($id,mode)" \ -borderwidth 4 -relief raised ] \ - -fill both -expand 1 + -fill x -expand 1 set ::SP($id,button) $f.b bind $::SP($id,button) <ButtonRelease-1> [list b_release $id] bind $::SP($id,button) <ButtonPress-1> [list b_press $id] - pack [label $f.l -width 20 -bg $color -fg black \ + pack [label $f.l -bg $color -fg black \ -text "$::SP(prefix)$value"] \ - -fill both -expand 1 + -fill x -expand 1 set ::SP($id,label) $f.l pack [radiobutton $f.p -text OnePulse \ @@ -96,7 +96,7 @@ proc add_bit_item_to_gui {f id} { -command [list bit_mode $id] \ -variable ::SP($id,mode)] \ -fill x -expand 0 - pack $f -side top + pack $f -side top -fill x -expand 0 } ;# add_bit_item_to_gui proc add_number_item_to_gui {f id} { @@ -106,18 +106,18 @@ proc add_number_item_to_gui {f id} { -text "Set" \ -relief raised -bd 4 \ -command [list b_press $id] ]\ - -fill both -expand 1 + -fill x -expand 1 set e [entry $f.e \ -justify right \ -textvariable ::SP($id,entry)] pack $e -fill x -expand 0 bind $e <Return> [list b_press $id] - pack [label $f.l -width 20 -bg $color -fg black \ + pack [label $f.l -bg $color -fg black \ -anchor w \ -text "$::SP(prefix)$value"] \ - -fill both -expand 1 + -fill x -expand 1 set ::SP($id,label) $f.l - pack $f -side top + pack $f -side top -fill x -expand 0 } ;# add_number_item_to_gui proc exact_name {name line} { |