From 074ba4e70e0cf68cdfd74187154e849deb72424a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 5 Sep 2010 07:22:59 -0600
Subject: [PATCH] [PATCH 123/326] bell

---
 collects/mred/private/wx/cocoa/procs.rkt | 7 +++++--
 collects/mred/private/wx/cocoa/utils.rkt | 3 +++
 collects/mred/private/wx/gtk/procs.rkt   | 4 +++-
 3 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/collects/mred/private/wx/cocoa/procs.rkt b/collects/mred/private/wx/cocoa/procs.rkt
index 2b4cc3db7a..ecf789e19b 100644
--- a/collects/mred/private/wx/cocoa/procs.rkt
+++ b/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")
@@ -105,8 +106,10 @@
   (let ([f (tell #:type _NSRect (tell NSScreen mainScreen) frame)])
     (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))
 
diff --git a/collects/mred/private/wx/cocoa/utils.rkt b/collects/mred/private/wx/cocoa/utils.rkt
index f57c7c4871..37c1712c1b 100644
--- a/collects/mred/private/wx/cocoa/utils.rkt
+++ b/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))
diff --git a/collects/mred/private/wx/gtk/procs.rkt b/collects/mred/private/wx/gtk/procs.rkt
index 83bda61800..229e4d2a68 100644
--- a/collects/mred/private/wx/gtk/procs.rkt
+++ b/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?)