From c14577558e290e8b73d5000c1b965b5df37feebe Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 15 Dec 2010 15:18:56 -0500 Subject: [PATCH] Move symbol predicates to their own file. original commit: 398add4e29e047f5e9570223b0fa047293f7554b --- collects/mred/private/wxme/wx.rkt | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/collects/mred/private/wxme/wx.rkt b/collects/mred/private/wxme/wx.rkt index fd248acf..4ab20d6c 100644 --- a/collects/mred/private/wxme/wx.rkt +++ b/collects/mred/private/wxme/wx.rkt @@ -1,22 +1,14 @@ #lang scheme/base -(require "../kernel.ss") +(require "../kernel.ss" "symbol-predicates.rkt") (define the-clipboard (get-the-clipboard)) (define the-x-selection-clipboard (get-the-x-selection)) -(define (family-symbol? s) - (memq s '(default decorative roman script - swiss modern symbol system))) -(define (style-symbol? s) - (memq s '(normal italic slant))) -(define (weight-symbol? s) - (memq s '(normal bold light))) -(define (smoothing-symbol? s) - (memq s '(default smoothed unsmoothed partly-smoothed))) (define (size? v) (and (exact-positive-integer? v) (byte? v))) -(provide event% +(provide (all-from-out "symbol-predicates.rkt") + event% mouse-event% key-event% timer%