From 1bf7884280885ea2abfd326330557c800ad13d8a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 3 Aug 2010 16:37:49 -0600
Subject: [PATCH] postscript-dc% interactive and landscape

original commit: 16f15b0cad7e3edafe06119c71660e6254f2b1b5
---
 collects/mred/private/filedialog.rkt    | 4 +++-
 collects/mred/private/wx/cocoa/item.rkt | 4 ++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/collects/mred/private/filedialog.rkt b/collects/mred/private/filedialog.rkt
index a3d06564..9babd087 100644
--- a/collects/mred/private/filedialog.rkt
+++ b/collects/mred/private/filedialog.rkt
@@ -52,7 +52,9 @@
 	(raise-type-error who "list of 2-string lists" filters))
       (let* ([std? (memq 'common style)]
              [style (if std? (remq 'common style) style)])
-        (if (or std? (eq? (system-type) 'unix))
+        (if (or std? 
+                #t ; for now, always use the manually constructed dialog
+                (eq? (system-type) 'unix))
           (send (new path-dialog%
                   [put?      put?]
                   [dir?      dir?]
diff --git a/collects/mred/private/wx/cocoa/item.rkt b/collects/mred/private/wx/cocoa/item.rkt
index 54c3d34c..571295bf 100644
--- a/collects/mred/private/wx/cocoa/item.rkt
+++ b/collects/mred/private/wx/cocoa/item.rkt
@@ -27,12 +27,12 @@
   (define/public (get-cocoa-control) (get-cocoa))
 
   (define/override (enable on?)
-    (tellv (get-cocoa) setEnabled: #:type _BOOL on?))
+    (tellv (get-cocoa-control) setEnabled: #:type _BOOL on?))
   (define/override (is-window-enabled?)
     (tell #:type _BOOL (get-cocoa-control) isEnabled))
 
   (define/override (gets-focus?)
-    (tell #:type _BOOL (get-cocoa) canBecomeKeyView))
+    (tell #:type _BOOL (get-cocoa-control) canBecomeKeyView))
 
   (define/public (command e)
     (callback this e))