445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
|
radiobutton .pr.r4 -text "C" -variable diff(prettyPrint) -value "c"
frame .pr.fs
radiobutton .pr.fs.r1 -text "80 char" -variable Pref(wideLines) -value 0
radiobutton .pr.fs.r2 -text "95 char" -variable Pref(wideLines) -value 1
pack .pr.fs.r1 .pr.fs.r2 -side left -padx 10
button .pr.b1 -text "Print to File" -padx 5\
-command "destroy .pr; update; PrintDiffs $top"
button .pr.b2 -text "Cancel" -padx 5 \
-command {destroy .pr}
grid .pr.l1 - - -sticky we
grid .pr.l2 - - -sticky we
grid .pr.s1 - - -sticky we
grid .pr.s2 - - -sticky we
grid .pr.f - - -sticky we
grid .pr.fs - - -sticky we
grid .pr.b1 x .pr.b2 -sticky we -padx 5 -pady 5
grid columnconfigure .pr {0 2} -uniform a
grid columnconfigure .pr 1 -weight 1
pack .pr.r1 .pr.r2 .pr.r3 .pr.r4 -in .pr.f -side left -fill x -expand 1
}
# Count the length of a line during a text dump
|
|
|
<
|
|
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
|
radiobutton .pr.r4 -text "C" -variable diff(prettyPrint) -value "c"
frame .pr.fs
radiobutton .pr.fs.r1 -text "80 char" -variable Pref(wideLines) -value 0
radiobutton .pr.fs.r2 -text "95 char" -variable Pref(wideLines) -value 1
pack .pr.fs.r1 .pr.fs.r2 -side left -padx 10
button .pr.b1 -text "Print to File" \
-command "destroy .pr; update; PrintDiffs $top"
button .pr.b2 -text "Cancel" -command {destroy .pr}
grid .pr.l1 - - -sticky we
grid .pr.l2 - - -sticky we
grid .pr.s1 - - -sticky we
grid .pr.s2 - - -sticky we
grid .pr.f - - -sticky we
grid .pr.fs - - -sticky we
grid .pr.b1 x .pr.b2 -sticky we -padx 5 -pady 5 -ipadx 5
grid columnconfigure .pr {0 2} -uniform a
grid columnconfigure .pr 1 -weight 1
pack .pr.r1 .pr.r2 .pr.r3 .pr.r4 -in .pr.f -side left -fill x -expand 1
}
# Count the length of a line during a text dump
|
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
|
-command [list BrowsePrintFileName $top .pr.fne]
if {$::diff($top,printFile) eq ""} {
set ::diff($top,printFile) "~/eskil.pdf"
}
frame .pr.fb
button .pr.b1 -text "Print to File" -padx 5\
-command "destroy .pr; update; PrintDiffs $top 0 1"
button .pr.b2 -text "Cancel" -padx 5 \
-command {destroy .pr}
pack .pr.b1 -in .pr.fb -side left -padx 3 -pady 3
pack .pr.b2 -in .pr.fb -side right -padx 3 -pady 3
grid .pr.hsl .pr.hss -sticky we -padx 3 -pady 3
grid .pr.cll .pr.cle .pr.clf -sticky we -padx 3 -pady 3
grid .pr.fnl .pr.fne - .pr.fnb -sticky we -padx 3 -pady 3
grid .pr.fb - - - -sticky we -padx 3 -pady 3
grid columnconfigure .pr 2 -weight 1
}
|
|
|
<
|
|
|
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
|
-command [list BrowsePrintFileName $top .pr.fne]
if {$::diff($top,printFile) eq ""} {
set ::diff($top,printFile) "~/eskil.pdf"
}
frame .pr.fb
button .pr.b1 -text "Print to File" \
-command "destroy .pr; update; PrintDiffs $top 0 1"
button .pr.b2 -text "Cancel" -command {destroy .pr}
pack .pr.b1 -in .pr.fb -side left -padx 3 -pady 3 -ipadx 5
pack .pr.b2 -in .pr.fb -side right -padx 3 -pady 3 -ipadx 5
grid .pr.hsl .pr.hss -sticky we -padx 3 -pady 3
grid .pr.cll .pr.cle .pr.clf -sticky we -padx 3 -pady 3
grid .pr.fnl .pr.fne - .pr.fnb -sticky we -padx 3 -pady 3
grid .pr.fb - - - -sticky we -padx 3 -pady 3
grid columnconfigure .pr 2 -weight 1
}
|