From 6ddacd57a68dcdcbd15f337ff441eee09d695111 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 17 Feb 1999 00:05:36 +0000 Subject: [PATCH] ... original commit: fef84e6767dc50019e08a5215015ee7bfa787daa --- collects/framework/canvas.ss | 2 +- collects/framework/editor.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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])))])