460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
|
label .pr.hsl -anchor w -text "Header Size"
spinbox .pr.hss -textvariable ::Pref(printHeaderSize) \
-from 5 -to 16 -width 3
label .pr.cll -anchor w -text "Chars per line"
entry .pr.cle -textvariable ::Pref(printCharsPerLine) -width 4
frame .pr.clf
set values [lsort -uniq -integer [list 80 [CountCharsPerLine]]]
foreach value $values {
radiobutton .pr.clf.$value -variable ::Pref(printCharsPerLine) \
-value $value -text $value
pack .pr.clf.$value -side left
}
label .pr.fnl -anchor w -text "File name"
|
|
|
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
|
label .pr.hsl -anchor w -text "Header Size"
spinbox .pr.hss -textvariable ::Pref(printHeaderSize) \
-from 5 -to 16 -width 3
label .pr.cll -anchor w -text "Chars per line"
entry .pr.cle -textvariable ::Pref(printCharsPerLine) -width 4
frame .pr.clf
set values [lsort -unique -integer [list 80 [CountCharsPerLine $top]]]
foreach value $values {
radiobutton .pr.clf.$value -variable ::Pref(printCharsPerLine) \
-value $value -text $value
pack .pr.clf.$value -side left
}
label .pr.fnl -anchor w -text "File name"
|