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

[PATCH 123/326] bell

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-05 07:22:59 -06:00
parent f21920c8e9
commit 074ba4e70e
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/private/wx/cocoa/procs.rkt
View File

@ -4,6 +4,7 @@
racket/draw racket/draw
ffi/unsafe ffi/unsafe
ffi/unsafe/objc ffi/unsafe/objc
"utils.rkt"
"types.rkt" "types.rkt"
"../../lock.rkt" "../../lock.rkt"
"../common/handlers.rkt") "../common/handlers.rkt")
@ -105,8 +106,10 @@
(let ([f (tell #:type _NSRect (tell NSScreen mainScreen) frame)]) (let ([f (tell #:type _NSRect (tell NSScreen mainScreen) frame)])
(set-box! xb (->long (NSSize-width (NSRect-size f)))) (set-box! xb (->long (NSSize-width (NSRect-size f))))
(set-box! yb (->long (NSSize-height (NSRect-size f)))))) (set-box! yb (->long (NSSize-height (NSRect-size f))))))
(define (bell) (void)) (define-appkit NSBeep (_fun -> _void))
(define (bell) (NSBeep))
(define (hide-cursor) (define (hide-cursor)
(tellv NSCursor setHiddenUntilMouseMoves: #:type _BOOL #t)) (tellv NSCursor setHiddenUntilMouseMoves: #:type _BOOL #t))

3
collects/mred/private/wx/cocoa/utils.rkt
View File

@ -10,6 +10,7 @@
define-cocoa define-cocoa
define-cf define-cf
define-appserv define-appserv
define-appkit
define-mz define-mz
as-objc-allocation as-objc-allocation
retain release retain release
@ -21,10 +22,12 @@
(define cocoa-lib (ffi-lib (format "/System/Library/Frameworks/Cocoa.framework/Cocoa"))) (define cocoa-lib (ffi-lib (format "/System/Library/Frameworks/Cocoa.framework/Cocoa")))
(define cf-lib (ffi-lib (format "/System/Library/Frameworks/CoreFoundation.framework/CoreFoundation"))) (define cf-lib (ffi-lib (format "/System/Library/Frameworks/CoreFoundation.framework/CoreFoundation")))
(define appserv-lib (ffi-lib (format "/System/Library/Frameworks/ApplicationServices.framework/ApplicationServices"))) (define appserv-lib (ffi-lib (format "/System/Library/Frameworks/ApplicationServices.framework/ApplicationServices")))
(define appkit-lib (ffi-lib (format "/System/Library/Frameworks/AppKit.framework/AppKit")))
(define-ffi-definer define-cocoa cocoa-lib) (define-ffi-definer define-cocoa cocoa-lib)
(define-ffi-definer define-cf cf-lib) (define-ffi-definer define-cf cf-lib)
(define-ffi-definer define-appserv appserv-lib) (define-ffi-definer define-appserv appserv-lib)
(define-ffi-definer define-appkit appkit-lib)
(define (objc-delete v) (define (objc-delete v)
(tellv v release)) (tellv v release))

4
collects/mred/private/wx/gtk/procs.rkt
View File

@ -113,7 +113,9 @@
(set-box! h (gdk_screen_get_height s)))) (set-box! h (gdk_screen_get_height s))))
(define (get-display-depth) 32) (define (get-display-depth) 32)
(define-unimplemented bell) (define-gdk gdk_display_beep (_fun _GdkDisplay -> _void))
(define (bell) (gdk_display_beep (gdk_display_get_default)))
(define (hide-cursor) (void)) (define (hide-cursor) (void))
(define-unimplemented is-color-display?) (define-unimplemented is-color-display?)