suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DrRacket printing: disable date and filename banner

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-19 06:32:01 -07:00
parent 676066f103
commit f662ea5322
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drracket/private/unit.rkt
View File

@ -752,8 +752,8 @@ module browser threading seems wrong.
(define/override (on-paint before dc left top right bottom dx dy draw-caret) (define/override (on-paint before dc left top right bottom dx dy draw-caret)
(super on-paint before dc left top right bottom dx dy draw-caret) (super on-paint before dc left top right bottom dx dy draw-caret)
;; For printing, put date and filename in the top margin: ;; [Disabled] For printing, put date and filename in the top margin:
(when (and before (is-printing?)) (when (and #f before (is-printing?))
(let ([h (box 0)] (let ([h (box 0)]
[w (box 0)]) [w (box 0)])
(send (current-ps-setup) get-editor-margin w h) (send (current-ps-setup) get-editor-margin w h)