Display2 update:

[eos/hostdependX86MAC64.git] / lib / CommandEntry.wish

diff --git a/lib/CommandEntry.wish b/lib/CommandEntry.wish
index 9fcca27..94d0d11 100644 (file)
--- a/lib/CommandEntry.wish
+++ b/lib/CommandEntry.wish
@@ -9,8 +9,8 @@
 proc CommandEntry { name label width command args } {
 
        set f [ frame $name ]
-       label $name.label -text $label -anchor w 
-       #label $name.label -text $label -width [ expr $width*20 ] -anchor w 
+       #label $name.label -text $label -anchor w 
+       label $name.label -text $label -width [ expr $width * 7 ] -anchor w 
        #label $name.label -text $label -width 20 -anchor w
        #labelframe $name -text $label -labelanchor w
 
@@ -55,7 +55,9 @@ proc CommandEntryWithSelectionEntrySet { name var } {
 #
 proc CommandEntryWithUpDown { name label width command var delta args } {
        frame $name
-       label $name.label -text $label -width $width -anchor w
+       #label $name.label -text $label -width $width -anchor w
+       label $name.label -text $label -width [ expr $width * 6 ] -anchor w
+       #label $name.label -text $label -anchor w
        label $name.space -text " "
        eval { entry $name.entry -relief sunken -textvar $var } $args