Eskil

Diff
Login
Annotate Patch Side-by-side Diff

Differences From Artifact [54aa4b514b]:

To Artifact [bd04538a63]:

︙
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

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" -padx 5\
    button .pr.b1 -text "Print to File" \
            -command "destroy .pr; update; PrintDiffs $top"
    button .pr.b2 -text "Cancel" -padx 5 \
    button .pr.b2 -text "Cancel" -command {destroy .pr}
            -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 .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

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" -padx 5\
    button .pr.b1 -text "Print to File" \
            -command "destroy .pr; update; PrintDiffs $top 0 1"
    button .pr.b2 -text "Cancel" -padx 5 \
    button .pr.b2 -text "Cancel" -command {destroy .pr}
            -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
    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
}