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

fixed order of arguments bug

Browse Source 
svn: r6166
This commit is contained in:
Robby Findler 2007-05-07 01:30:59 +00:00
parent 82ec65680d
commit d0dcbc5102
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/private/frame.ss
View File

@ -1397,15 +1397,15 @@
(define text-mixin (define text-mixin
(mixin (-editor<%>) (text<%>) (mixin (-editor<%>) (text<%>)
(define/override (get-editor<%>) (class->interface text%)) (define/override (get-editor<%>) (class->interface text%))
(init (editor% text:keymap%)) (init (filename #f) (editor% text:keymap%))
(super-new (editor% editor%)))) (super-new (filename filename) (editor% editor%))))
(define pasteboard<%> (interface (-editor<%>))) (define pasteboard<%> (interface (-editor<%>)))
(define pasteboard-mixin (define pasteboard-mixin
(mixin (-editor<%>) (pasteboard<%>) (mixin (-editor<%>) (pasteboard<%>)
(define/override get-editor<%> (λ () (class->interface pasteboard%))) (define/override get-editor<%> (λ () (class->interface pasteboard%)))
(init (editor% pasteboard:keymap%)) (init (filename #f) (editor% pasteboard:keymap%))
(super-new (editor% editor%)))) (super-new (filename filename) (editor% editor%))))
(define delegate<%> (define delegate<%>
(interface (status-line<%> text<%>) (interface (status-line<%> text<%>)

2
collects/framework/private/preferences.ss
View File

@ -76,8 +76,6 @@ the state transitions / contracts are:
vs vs
fail-func))) fail-func)))
;; ppanel-tree = ;; ppanel-tree =
;; (union (make-ppanel-leaf string (union #f panel) (panel -> panel)) ;; (union (make-ppanel-leaf string (union #f panel) (panel -> panel))
;; (make-ppanel-interior string (union #f panel) (listof panel-tree))) ;; (make-ppanel-interior string (union #f panel) (listof panel-tree)))