[PATCH 123/326] bell

collects/mred/private/wx/cocoa/procs.rkt

@@ -4,6 +4,7 @@
          racket/draw
          ffi/unsafe
          ffi/unsafe/objc
+         "utils.rkt"
          "types.rkt"
          "../../lock.rkt"
          "../common/handlers.rkt")
@@ -106,7 +107,9 @@
     (set-box! xb (->long (NSSize-width (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) 
   (tellv NSCursor setHiddenUntilMouseMoves: #:type _BOOL #t))
 

collects/mred/private/wx/cocoa/utils.rkt

@@ -10,6 +10,7 @@
          define-cocoa
          define-cf
          define-appserv
+         define-appkit
          define-mz
          as-objc-allocation
          retain release
@@ -21,10 +22,12 @@
 (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 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-cf cf-lib)
 (define-ffi-definer define-appserv appserv-lib)
+(define-ffi-definer define-appkit appkit-lib)
 
 (define (objc-delete v)
   (tellv v release))

collects/mred/private/wx/gtk/procs.rkt

@@ -113,7 +113,9 @@
     (set-box! h (gdk_screen_get_height s))))
 (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-unimplemented is-color-display?)