diff --git a/collects/framework/canvas.ss b/collects/framework/canvas.ss index 50c4f353..9d587908 100644 --- a/collects/framework/canvas.ss +++ b/collects/framework/canvas.ss @@ -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)])) diff --git a/collects/framework/editor.ss b/collects/framework/editor.ss index 36a5c6bb..05bc62df 100644 --- a/collects/framework/editor.ss +++ b/collects/framework/editor.ss @@ -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])))])