## xgripe.pkg
#
# Code used to report 'impossible' errors and such throughout xclient;
# it is also exported for use by users of the xclient.sublibrary.
# Internal users include:
#
# src/lib/x-kit/xclient/pkg/wire/display.pkg# src/lib/x-kit/xclient/pkg/wire/value-to-wire.pkg# src/lib/x-kit/xclient/pkg/wire/xsocket.pkg# src/lib/x-kit/xclient/pkg/wire/wire-to-value.pkg# src/lib/x-kit/xclient/pkg/iccc/iccc-property.pkg# src/lib/x-kit/xclient/pkg/iccc/window-property.pkg# src/lib/x-kit/xclient/pkg/stuff/xlogger.pkg# src/lib/x-kit/xclient/pkg/window/window.pkg# src/lib/x-kit/xclient/pkg/window/xsession.pkg# src/lib/x-kit/xclient/pkg/window/selection-imp.pkg# src/lib/x-kit/xclient/pkg/window/draw-imp.pkg# src/lib/x-kit/xclient/pkg/window/font-imp.pkg# src/lib/x-kit/xclient/pkg/window/topwindow-to-widget-router.pkg# src/lib/x-kit/xclient/pkg/window/xsocket-to-topwindow-router.pkg# src/lib/x-kit/xclient/pkg/window/pen-to-gcontext-imp.pkg# src/lib/x-kit/xclient/pkg/window/window-property-imp.pkg# src/lib/x-kit/xclient/pkg/window/keysym.pkg# src/lib/x-kit/xclient/pkg/window/rw-pixmap.pkg# src/lib/x-kit/xclient/pkg/window/cs-pixmap.pkg# Compiled by:
# src/lib/x-kit/xclient/xclient-internals.sublibstipulate
package f = file;
herein
package xgripe {
exception XERROR String;
fun impossible string = raise exception (XERROR string);
fun xerror string = raise exception (XERROR string);
no_warning = REF FALSE;
fun warning s
=
if *no_warning ();
else f::write (f::stderr, s);
fi;
};
end;
## COPYRIGHT (c) 1990, 1991 by John H. Reppy. See COPYRIGHT file for details.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2012,
## released under Gnu Public Licence version 3.