From af94e11d19ff99d0d06ad72b6a75333b4d48ad7c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 19 May 2009 23:58:50 +0000 Subject: [PATCH] fix trampoline fix svn: r14877 --- collects/mred/private/wxcanvas.ss | 2 +- collects/mred/private/wxme/editor-canvas.ss | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mred/private/wxcanvas.ss b/collects/mred/private/wxcanvas.ss index 5eb8efe4b3..806328a5a7 100644 --- a/collects/mred/private/wxcanvas.ss +++ b/collects/mred/private/wxcanvas.ss @@ -224,7 +224,7 @@ 0 0 #t #t))) (inherit editor-canvas-on-scroll) (define/override (on-scroll e) - (if (or (eq? 'msw (system-type)) + (if (or (eq? 'windows (system-type)) (eq? 'macosx (system-type))) (queue-window-callback this diff --git a/collects/mred/private/wxme/editor-canvas.ss b/collects/mred/private/wxme/editor-canvas.ss index 7f76ceae94..479337ac73 100644 --- a/collects/mred/private/wxme/editor-canvas.ss +++ b/collects/mred/private/wxme/editor-canvas.ss @@ -351,13 +351,13 @@ (thunk))) (define/override (on-set-focus) - (if (eq? 'msw (system-type)) + (if (eq? 'windows (system-type)) (queue-window-callback this (lambda () (on-focus #t))) (on-focus #t))) (define/override (on-kill-focus) - (if (eq? 'msw (system-type)) + (if (eq? 'windows (system-type)) (queue-window-callback this (lambda () (on-focus #f)))