Implement beep in server

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/back/trunk@13764 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,11 @@
+2002-06-03  Adam Fedor  <fedor@gnu.org>
+
+	* Source/win32/WIN32Server.m (-beep): Implement
+	* Source/winlib/WIN32Context.m (-NSBeep): Remove.
+
+	* Source/x11/XGServer.m (-beep): Implement.
+	* Source/xlib/XGContext.m (-NSBeep): Remove.
+
 2002-06-02  Fred Kiefer <FredKiefer@gmx.de>
 
 	* Source/win32/WIN32Server.m

Source/win32/WIN32Server.m

@@ -213,6 +213,11 @@ LRESULT CALLBACK MainWndProc(HWND hwnd, UINT uMsg,
   return (void *)win;
 }
 
+- (void) beep
+{
+  Beep(400, 500);
+}  
+
 @end
 
 static inline

Source/winlib/WIN32Context.m

@@ -80,9 +80,4 @@
   [gstate setOffset: NSMakePoint(x, y)];
 }
 
-- (void) NSBeep
-{
-  Beep(400, 500);
-}
-
 @end

Source/x11/XGServer.m

@@ -506,4 +506,9 @@ extern int XGErrorHandler(Display *display, XErrorEvent *err);
     [[GSCurrentContext() class] waitAllContexts];
 }
 
+- (void) beep
+{
+  XBell(dpy, 50);
+}
+
 @end

Source/xlib/XGContext.m

@@ -122,11 +122,6 @@
   return nil;
 }
 
-- (void) NSBeep
-{
-  XBell([(XGServer *)server xDisplay], 50);
-}
-
 @end
 
 @implementation XGContext (Ops)