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

...

Browse Source 
original commit: fef84e6767dc50019e08a5215015ee7bfa787daa
This commit is contained in:
Robby Findler 1999-02-17 00:05:36 +00:00
parent 9b7686f63f
commit 6ddacd57a6
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/canvas.ss
View File

@ -48,7 +48,7 @@
(cond
[(not width?) (fallback)]
[(let ([prev (send s previous)])
(and (not prev)
(and prev
(member 'hard-newline (send prev get-flags))))
(set-box! left-edge-box 0)]
[else (fallback)]))

2
collects/framework/editor.ss
View File

@ -114,7 +114,7 @@
(let ([admin (send edit get-admin)])
(cond
[(is-a? admin editor-snip-editor-admin%)
(send (send (send admin get-snip) get-admin) get-media)]
(send (send (send admin get-snip) get-admin) get-editor)]
;; assume that any non-media-snip
;; administrator doesn't have embedded edits.
[else #f])))])