From d0dcbc51028ccdca2bf65dc93aaec3ebf59d5fb5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 7 May 2007 01:30:59 +0000 Subject: [PATCH] fixed order of arguments bug svn: r6166 --- collects/framework/private/frame.ss | 8 ++++---- collects/framework/private/preferences.ss | 2 -- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index f3e388e1ce..6564373211 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -1397,15 +1397,15 @@ (define text-mixin (mixin (-editor<%>) (text<%>) (define/override (get-editor<%>) (class->interface text%)) - (init (editor% text:keymap%)) - (super-new (editor% editor%)))) + (init (filename #f) (editor% text:keymap%)) + (super-new (filename filename) (editor% editor%)))) (define pasteboard<%> (interface (-editor<%>))) (define pasteboard-mixin (mixin (-editor<%>) (pasteboard<%>) (define/override get-editor<%> (λ () (class->interface pasteboard%))) - (init (editor% pasteboard:keymap%)) - (super-new (editor% editor%)))) + (init (filename #f) (editor% pasteboard:keymap%)) + (super-new (filename filename) (editor% editor%)))) (define delegate<%> (interface (status-line<%> text<%>) diff --git a/collects/framework/private/preferences.ss b/collects/framework/private/preferences.ss index 05473dc9fb..e51e1ceb4b 100644 --- a/collects/framework/private/preferences.ss +++ b/collects/framework/private/preferences.ss @@ -76,8 +76,6 @@ the state transitions / contracts are: vs fail-func))) - - ;; ppanel-tree = ;; (union (make-ppanel-leaf string (union #f panel) (panel -> panel)) ;; (make-ppanel-interior string (union #f panel) (listof panel-tree)))