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

49
collects/mred/mred.ss
View File

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