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

postscript-dc% interactive and landscape

Browse Source 
original commit: 16f15b0cad7e3edafe06119c71660e6254f2b1b5
This commit is contained in:
Matthew Flatt 2010-08-03 16:37:49 -06:00
parent 55f34df7de
commit 1bf7884280
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/filedialog.rkt
View File

@ -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?]

4
collects/mred/private/wx/cocoa/item.rkt
View File

@ -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))