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

changed text% and pastebard% so they have the right names now

Browse Source 
original commit: 0e0281fd782b1197064977a6b5cfcf3412009a72
This commit is contained in:
Robby Findler 2003-10-08 03:49:36 +00:00
parent 653b00734b
commit 50b5d3d094
1 changed files with 25 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
collects/mred/mred.ss
View File

@ -2553,31 +2553,32 @@
(sequence (apply super-init args)))) (sequence (apply super-init args))))
(define text% (define text%
(lock-contract-mixin (class100 (lock-contract-mixin
(es-contract-mixin (es-contract-mixin
(class100 (make-editor-buffer% wx:text% #t (lambda () text%)) ([line-spacing 1.0] (make-editor-buffer% wx:text% #t (lambda () text%))))
[tab-stops null] ([line-spacing 1.0]
[auto-wrap #f]) [tab-stops null]
(rename (super-auto-wrap auto-wrap) [auto-wrap #f])
(super-set-file-format set-file-format) (rename (super-auto-wrap auto-wrap)
(super-get-file-format get-file-format) (super-set-file-format set-file-format)
(super-set-position set-position)) (super-get-file-format get-file-format)
(override (super-set-position set-position))
[-get-file-format (lambda () (override
(super-get-file-format))] [-get-file-format (lambda ()
[-set-file-format (lambda (format) (super-get-file-format))]
(super-set-file-format format) [-set-file-format (lambda (format)
(super-set-position 0 0))]) (super-set-file-format format)
(super-set-position 0 0))])
(sequence (super-init line-spacing tab-stops)
(when auto-wrap
(super-auto-wrap #t)))))
(sequence (super-init line-spacing tab-stops)
(when auto-wrap
(super-auto-wrap #t)))))))
(define pasteboard% (define pasteboard%
(es-contract-mixin (class100 (es-contract-mixin (make-editor-buffer% wx:pasteboard% #f (lambda () pasteboard%))) ()
(class100 (make-editor-buffer% wx:pasteboard% #f (lambda () pasteboard%)) () (override
(override [-format-filter (lambda (f) 'standard)])
[-format-filter (lambda (f) 'standard)]) (sequence (super-init))))
(sequence (super-init)))))
(define editor-snip% (class100 wx:editor-snip% ([editor #f] (define editor-snip% (class100 wx:editor-snip% ([editor #f]
[with-border? #t] [with-border? #t]