Eskil

Check-in [a74fe171f4]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Initialise prettyPrint var.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a74fe171f42402a5ef42363e0c3eb65888a8fefd
User & Date: peter 2005-03-23 22:57:19.000
Context
2005-03-24
20:43
Moved global settings to Pref/diff as apropriate. check-in: 99d147d198 user: peter tags: trunk
2005-03-23
22:57
Initialise prettyPrint var. check-in: a74fe171f4 user: peter tags: trunk
2005-02-20
16:03
CompareFiles was renamed. check-in: 77aa9a507d user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/print.tcl.
︙︙
293
294
295
296
297
298
299

300
301
302
303
304
305
306


# Create a print dialog.
proc doPrint {top {quiet 0}} {
    if {![info exists ::grayLevel1]} {
        set ::grayLevel1 0.6
        set ::grayLevel2 0.8
        set ::wideLines 0

    }
    if {$quiet} {
        PrintDiffs $top 1
        return
    }

    destroy .pr








>








293
294
295
296
297
298
299
300
301
302
303
304
305
306
307


# Create a print dialog.
proc doPrint {top {quiet 0}} {
    if {![info exists ::grayLevel1]} {
        set ::grayLevel1 0.6
        set ::grayLevel2 0.8
        set ::wideLines 0
        set ::prettyPrint ""
    }
    if {$quiet} {
        PrintDiffs $top 1
        return
    }

    destroy .pr
︙︙