From 398add4e29e047f5e9570223b0fa047293f7554b 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. --- collects/mred/private/wxme/symbol-predicates.rkt | 13 +++++++++++++ collects/mred/private/wxme/wx.rkt | 14 +++----------- 2 files changed, 16 insertions(+), 11 deletions(-) create mode 100644 collects/mred/private/wxme/symbol-predicates.rkt diff --git a/collects/mred/private/wxme/symbol-predicates.rkt b/collects/mred/private/wxme/symbol-predicates.rkt new file mode 100644 index 0000000000..27bc0e38de --- /dev/null +++ b/collects/mred/private/wxme/symbol-predicates.rkt @@ -0,0 +1,13 @@ +#lang racket/base + +(provide (all-defined-out)) + +(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))) \ No newline at end of file diff --git a/collects/mred/private/wxme/wx.rkt b/collects/mred/private/wxme/wx.rkt index fd248acff1..4ab20d6c39 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%