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

13
collects/mred/mred.ss
View File

@ -2553,9 +2553,10 @@
(sequence (apply super-init args))))
(define text%
(lock-contract-mixin
(class100 (lock-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%))))
([line-spacing 1.0]
[tab-stops null]
[auto-wrap #f])
(rename (super-auto-wrap auto-wrap)
@ -2571,13 +2572,13 @@
(sequence (super-init line-spacing tab-stops)
(when auto-wrap
(super-auto-wrap #t)))))))
(super-auto-wrap #t)))))
(define pasteboard%
(es-contract-mixin
(class100 (make-editor-buffer% wx:pasteboard% #f (lambda () pasteboard%)) ()
(class100 (es-contract-mixin (make-editor-buffer% wx:pasteboard% #f (lambda () pasteboard%))) ()
(override
[-format-filter (lambda (f) 'standard)])
(sequence (super-init)))))
(sequence (super-init))))
(define editor-snip% (class100 wx:editor-snip% ([editor #f]
[with-border? #t]