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 | 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
|
| ︙ |