+ added unit mitmisc

git-svn-id: trunk@49594 -

.gitattributes

@@ -10147,6 +10147,8 @@ packages/x11/src/deckeysym.pp svneol=native#text/plain
 packages/x11/src/fontconfig.pas svneol=native#text/pascal
 packages/x11/src/hpkeysym.pp svneol=native#text/plain
 packages/x11/src/keysym.pp svneol=native#text/plain
+packages/x11/src/mitmisc.pp svneol=native#text/plain
+packages/x11/src/mitmiscconst.inc svneol=native#text/plain
 packages/x11/src/randr.inc svneol=native#text/plain
 packages/x11/src/sunkeysym.pp svneol=native#text/plain
 packages/x11/src/x.pp svneol=native#text/plain

packages/x11/fpmake.pp

@@ -140,6 +140,12 @@ begin
     T.Dependencies.AddUnit('fontconfig');
     T:=P.Targets.AddUnit('xext.pas');
     T.Dependencies.AddUnit('xlib');
+    T:=P.Targets.AddUnit('mitmisc.pp');
+      with T.Dependencies do
+        begin
+          AddInclude('mitmiscconst.inc');
+          AddUnit('xlib');
+        end;
 
 {$ifndef ALLPACKAGES}
     Run;

packages/x11/src/mitmisc.pp

@@ -0,0 +1,73 @@
+(************************************************************
+
+Copyright 1989, 1998  The Open Group
+
+Permission to use, copy, modify, distribute, and sell this software and its
+documentation for any purpose is hereby granted without fee, provided that
+the above copyright notice appear in all copies and that both that
+copyright notice and this permission notice appear in supporting
+documentation.
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of The Open Group shall not be
+used in advertising or otherwise to promote the sale, use or other dealings
+in this Software without prior written authorization from The Open Group.
+
+********************************************************)
+
+(* RANDOM CRUFT! THIS HAS NO OFFICIAL X CONSORTIUM OR X PROJECT TEAM BLESSING *)
+
+unit mitmisc;
+
+interface
+
+uses
+  ctypes, xlib;
+
+const
+  libXext = 'Xext';
+
+{$I mitmiscconst.inc}
+
+function XMITMiscQueryExtension(
+    dpy: PDisplay;
+    event_basep,
+    error_basep: Pcint
+): TBoolResult; cdecl; external libXext;
+
+function XMITMiscSetBugMode(
+    dpy: PDisplay;
+    onOff: TBool
+): TStatus; cdecl; external libXext;
+
+function XMITMiscGetBugMode(
+    dpy: PDisplay
+): TBoolResult; cdecl; external libXext;
+
+{ boolean overload for the TBool parameter }
+
+function XMITMiscSetBugMode(
+    dpy: PDisplay;
+    onOff: Boolean
+): TStatus;
+
+implementation
+
+function XMITMiscSetBugMode(
+    dpy: PDisplay;
+    onOff: Boolean
+): TStatus;
+begin
+  XMITMiscSetBugMode := XMITMiscSetBugMode(dpy,Ord(onOff));
+end;
+
+end.

packages/x11/src/mitmiscconst.inc

@@ -0,0 +1,34 @@
+(************************************************************
+
+Copyright 1989, 1998  The Open Group
+
+Permission to use, copy, modify, distribute, and sell this software and its
+documentation for any purpose is hereby granted without fee, provided that
+the above copyright notice appear in all copies and that both that
+copyright notice and this permission notice appear in supporting
+documentation.
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of The Open Group shall not be
+used in advertising or otherwise to promote the sale, use or other dealings
+in this Software without prior written authorization from The Open Group.
+
+********************************************************)
+
+(* RANDOM CRUFT! THIS HAS NO OFFICIAL X CONSORTIUM OR X PROJECT TEAM BLESSING *)
+
+
+const
+  MITMiscNumberEvents = 0;
+  MITMiscNumberErrors = 0;
+
+  MITMISCNAME = 'MIT-SUNDRY-NONSTANDARD';