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

rename internal method to avoid conflict with corrected editor<%>

Browse Source 
svn: r14866
This commit is contained in:
Matthew Flatt 2009-05-19 12:26:17 +00:00
parent e5f52cbc89
commit 67a8ebecdb
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/drscheme/private/text.ss
View File

@ -9,12 +9,12 @@
(interface (scheme:text<%>) (interface (scheme:text<%>)
printing-on printing-on
printing-off printing-off
is-printing?)) is-printing-on?))
(define text% (define text%
(class* scheme:text% (text<%>) (class* scheme:text% (text<%>)
(define printing? #f) (define printing? #f)
(define/public (is-printing?) printing?) (define/public (is-printing-on?) printing?)
(define/public (printing-on) (set! printing? #t)) (define/public (printing-on) (set! printing? #t))
(define/public (printing-off) (set! printing? #f)) (define/public (printing-off) (set! printing? #f))
; (rename [super-on-paint on-paint]) ; (rename [super-on-paint on-paint])