Added Bell command to be able to beep.

Rev: lib/modules/Protocols.pmod/X.pmod/Requests.pmod:1.20
Rev: lib/modules/Protocols.pmod/X.pmod/Xlib.pmod:1.23

lib/modules/Protocols.pmod/X.pmod/Requests.pmod

@@ -741,6 +741,15 @@ class CreateColormap
   }
 }
 
+class Bell {
+  inherit request;
+  constant reqType = 104;
+  
+  int volume;
+
+  string to_string() { return build_request("", volume); }
+}
+
 class AllocColor
 {
   inherit request;

lib/modules/Protocols.pmod/X.pmod/Xlib.pmod

@@ -946,4 +946,16 @@ class Display
     send_request(req);
     return Types.Cursor(this_object(), req->cid);
   }
+  
+  object Bell_req(int volume)
+  {
+    object req=Requests.Bell();
+    req->volume=volume;
+    return req;
+  }
+  
+  void Bell(int volume)
+  {
+    send_request(Bell_req(volume));
+  }
 }