suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Move symbol predicates to their own file.

Browse Source 
original commit: 398add4e29e047f5e9570223b0fa047293f7554b
This commit is contained in:
Sam Tobin-Hochstadt 2010-12-15 15:18:56 -05:00
parent 95fd314cad
commit c14577558e
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mred/private/wxme/wx.rkt
View File

@ -1,22 +1,14 @@
#lang scheme/base #lang scheme/base
(require "../kernel.ss") (require "../kernel.ss" "symbol-predicates.rkt")
(define the-clipboard (get-the-clipboard)) (define the-clipboard (get-the-clipboard))
(define the-x-selection-clipboard (get-the-x-selection)) (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) (define (size? v) (and (exact-positive-integer? v)
(byte? v))) (byte? v)))
(provide event% (provide (all-from-out "symbol-predicates.rkt")
event%
mouse-event% mouse-event%
key-event% key-event%
timer% timer%