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

another fix from Ryan, plus one that didn't get committed before

Browse Source 
svn: r14479
This commit is contained in:
Matthew Flatt 2009-04-09 21:29:51 +00:00
parent bd9d17c94f
commit 0657fc52cf
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/private/wxme/editor-canvas.ss
View File

@ -184,6 +184,9 @@
(define xmargin 5) (define xmargin 5)
(define ymargin 5) (define ymargin 5)
(define/public (set-wheel-step v) (set! wheel-amt v))
(define/public (get-wheel-step) wheel-amt)
(set! noloop? #t) (set! noloop? #t)
(init parent x y width height (init parent x y width height
name style name style

4
collects/mred/private/wxme/style.ss
View File

@ -423,7 +423,7 @@
#t))])))) #t))]))))
(def/public (equal [style-delta% delta-in]) (def/public (equal? [style-delta% delta-in])
(define-syntax-rule (same? fld) (define-syntax-rule (same? fld)
(and (eq? (-on fld) ((-don fld) delta-in)) (and (eq? (-on fld) ((-don fld) delta-in))
(eq? (-off fld) ((-doff fld) delta-in)))) (eq? (-off fld) ((-doff fld) delta-in))))
@ -943,7 +943,7 @@
(and (not (send s get-s-name)) (and (not (send s get-s-name))
(not (send s get-s-join-shift-style)) (not (send s get-s-join-shift-style))
(eq? (send s get-s-base-style) base-style) (eq? (send s get-s-base-style) base-style)
(send delta equal (send s get-s-nonjoin-delta)) (send delta equal? (send s get-s-nonjoin-delta))
s)) s))
;; Create style ;; Create style