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

369.9

Browse Source 
svn: r5902

original commit: 34d00a000cef03e898d68ce139539d255a544004
This commit is contained in:
Matthew Flatt 2007-04-09 08:34:00 +00:00
parent c01f7ca4b1
commit 1703e06c3d
3 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mred/private/editor.ss
View File

@ -356,13 +356,13 @@
(unless (memq type '(text pasteboard)) (unless (memq type '(text pasteboard))
(raise-type-error (who->name '(method editor<%> on-new-box)) "symbol: text or pasteboard" type)) (raise-type-error (who->name '(method editor<%> on-new-box)) "symbol: text or pasteboard" type))
(make-object editor-snip% (make-object editor-snip%
(let ([e (make-object (cond (let ([e (make-object (cond
[(eq? type 'pasteboard) pasteboard%] [(eq? type 'pasteboard) pasteboard%]
[else text%]))]) [else text%]))])
(send e set-keymap (get-keymap)) (send e set-keymap (get-keymap))
(send e set-style-list (get-style-list)) (send e set-style-list (get-style-list))
(send e set-max-undo-history (get-max-undo-history)) (send e set-max-undo-history (get-max-undo-history))
e))))]) e))))])
(apply super-make-object args))) (apply super-make-object args)))

2
collects/mred/private/kernel.ss
View File

@ -1336,6 +1336,8 @@
set-inset set-inset
get-margin get-margin
set-margin set-margin
style-background-used?
use-style-background
border-visible? border-visible?
show-border show-border
set-align-top-line set-align-top-line

5
doc/release-notes/mred/HISTORY
View File

@ -1,3 +1,8 @@
Version 369.9
Added use-background-style and background-style-used? methods
to editor-snip%; changes the editor-snip WXME format
Version 369.6 Version 369.6
WXME file format changed to include a #reader() prefix WXME file format changed to include a #reader() prefix