Eskil

Differences From Artifact [04bc07e07d]:

• File src/print.tcl — part of check-in [6e24d8a072] at 2005-02-20 14:57:05 on branch trunk — Moved stuff to this file. (user: peter size: 11702)

To Artifact [a314a28a5c]:

• File src/print.tcl — part of check-in [a74fe171f4] at 2005-03-23 22:57:19 on branch trunk — Initialise prettyPrint var. (user: peter size: 11731)

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