From d38999c7bebd6451afcb1e41ec4491f7537b47b8 Mon Sep 17 00:00:00 2001 From: Johannes Schindelin Date: Thu, 26 Mar 2009 17:48:59 +0100 Subject: [PATCH] Remove Tcl/Tk development files Signed-off-by: Johannes Schindelin --- mingw/include/X11/X.h | 677 --- mingw/include/X11/Xatom.h | 79 - mingw/include/X11/Xfuncproto.h | 60 - mingw/include/X11/Xlib.h | 1205 ------ mingw/include/X11/Xutil.h | 855 ---- mingw/include/X11/cursorfont.h | 79 - mingw/include/X11/keysym.h | 35 - mingw/include/X11/keysymdef.h | 1169 ----- mingw/include/jpegtcl.h | 158 - mingw/include/jpegtclDecls.h | 468 --- mingw/include/jpegtclDeclsMask.h | 58 - mingw/include/jpegtclDeclsUnmask.h | 51 - mingw/include/tcl.h | 2454 ----------- mingw/include/tclDecls.h | 6548 ----------------------------- mingw/include/tclPlatDecls.h | 141 - mingw/include/tclTomMath.h | 845 ---- mingw/include/tclTomMathDecls.h | 789 ---- mingw/include/tifftcl.h | 157 - mingw/include/tifftclDecls.h | 1212 ------ mingw/include/tifftclDeclsMask.h | 154 - mingw/include/tifftclDeclsUnmask.h | 147 - mingw/include/tk.h | 1600 ------- mingw/include/tkDecls.h | 3098 -------------- mingw/include/tkIntXlibDecls.h | 2241 ---------- mingw/include/tkPlatDecls.h | 253 -- mingw/include/tkimg.h | 193 - mingw/include/tkimgDecls.h | 233 - mingw/include/tommath_class.h | 999 ----- mingw/include/tommath_superclass.h | 76 - mingw/include/zlibtcl.h | 156 - mingw/include/zlibtclDecls.h | 373 -- mingw/include/zlibtclDeclsMask.h | 48 - mingw/include/zlibtclDeclsUnmask.h | 41 - mingw/lib/Img1.3/jpegtclstub10.a | Bin 848 -> 0 bytes mingw/lib/Img1.3/tifftclstub361.a | Bin 848 -> 0 bytes mingw/lib/Img1.3/tkimgstub13.a | Bin 766 -> 0 bytes mingw/lib/Img1.3/zlibtclstub121.a | Bin 848 -> 0 bytes mingw/lib/jpegtclConfig.sh | 57 - mingw/lib/libtcl85.a | Bin 501274 -> 0 bytes mingw/lib/libtclstub85.a | Bin 1968 -> 0 bytes mingw/lib/libtk85.a | Bin 350996 -> 0 bytes mingw/lib/libtkstub85.a | Bin 2414 -> 0 bytes mingw/lib/tclConfig.sh | 182 - mingw/lib/tifftclConfig.sh | 57 - mingw/lib/tk8.5/demos/README | 46 - mingw/lib/tk8.5/demos/anilabel.tcl | 162 - mingw/lib/tk8.5/demos/aniwave.tcl | 106 - mingw/lib/tk8.5/demos/arrow.tcl | 239 -- mingw/lib/tk8.5/demos/bind.tcl | 80 - mingw/lib/tk8.5/demos/bitmap.tcl | 54 - mingw/lib/tk8.5/demos/browse | 68 - mingw/lib/tk8.5/demos/button.tcl | 49 - mingw/lib/tk8.5/demos/check.tcl | 73 - mingw/lib/tk8.5/demos/clrpick.tcl | 56 - mingw/lib/tk8.5/demos/colors.tcl | 101 - mingw/lib/tk8.5/demos/combo.tcl | 64 - mingw/lib/tk8.5/demos/cscroll.tcl | 110 - mingw/lib/tk8.5/demos/ctext.tcl | 147 - mingw/lib/tk8.5/demos/dialog1.tcl | 15 - mingw/lib/tk8.5/demos/dialog2.tcl | 19 - mingw/lib/tk8.5/demos/en.msg | 97 - mingw/lib/tk8.5/demos/entry1.tcl | 36 - mingw/lib/tk8.5/demos/entry2.tcl | 48 - mingw/lib/tk8.5/demos/entry3.tcl | 187 - mingw/lib/tk8.5/demos/filebox.tcl | 80 - mingw/lib/tk8.5/demos/floor.tcl | 1368 ------ mingw/lib/tk8.5/demos/form.tcl | 40 - mingw/lib/tk8.5/demos/goldberg.tcl | 1833 -------- mingw/lib/tk8.5/demos/hello | 24 - mingw/lib/tk8.5/demos/hscale.tcl | 47 - mingw/lib/tk8.5/demos/icon.tcl | 53 - mingw/lib/tk8.5/demos/image1.tcl | 37 - mingw/lib/tk8.5/demos/image2.tcl | 110 - mingw/lib/tk8.5/demos/images/earth.gif | Bin 51712 -> 0 bytes mingw/lib/tk8.5/demos/images/earthris.gif | Bin 6343 -> 0 bytes mingw/lib/tk8.5/demos/images/face.xbm | 173 - mingw/lib/tk8.5/demos/images/flagdown.xbm | 27 - mingw/lib/tk8.5/demos/images/flagup.xbm | 27 - mingw/lib/tk8.5/demos/images/gray25.xbm | 6 - mingw/lib/tk8.5/demos/images/letters.xbm | 27 - mingw/lib/tk8.5/demos/images/noletter.xbm | 27 - mingw/lib/tk8.5/demos/images/pattern.xbm | 6 - mingw/lib/tk8.5/demos/images/tcllogo.gif | Bin 2341 -> 0 bytes mingw/lib/tk8.5/demos/images/teapot.ppm | 31 - mingw/lib/tk8.5/demos/items.tcl | 286 -- mingw/lib/tk8.5/demos/ixset | 331 -- mingw/lib/tk8.5/demos/knightstour.tcl | 257 -- mingw/lib/tk8.5/demos/label.tcl | 41 - mingw/lib/tk8.5/demos/labelframe.tcl | 78 - mingw/lib/tk8.5/demos/license.terms | 39 - mingw/lib/tk8.5/demos/mclist.tcl | 98 - mingw/lib/tk8.5/demos/menu.tcl | 163 - mingw/lib/tk8.5/demos/menubu.tcl | 92 - mingw/lib/tk8.5/demos/msgbox.tcl | 65 - mingw/lib/tk8.5/demos/nl.msg | 125 - mingw/lib/tk8.5/demos/paned1.tcl | 34 - mingw/lib/tk8.5/demos/paned2.tcl | 76 - mingw/lib/tk8.5/demos/pendulum.tcl | 196 - mingw/lib/tk8.5/demos/plot.tcl | 99 - mingw/lib/tk8.5/demos/puzzle.tcl | 84 - mingw/lib/tk8.5/demos/radio.tcl | 68 - mingw/lib/tk8.5/demos/rmt | 213 - mingw/lib/tk8.5/demos/rolodex | 206 - mingw/lib/tk8.5/demos/ruler.tcl | 173 - mingw/lib/tk8.5/demos/sayings.tcl | 46 - mingw/lib/tk8.5/demos/search.tcl | 141 - mingw/lib/tk8.5/demos/spin.tcl | 55 - mingw/lib/tk8.5/demos/square | 62 - mingw/lib/tk8.5/demos/states.tcl | 45 - mingw/lib/tk8.5/demos/style.tcl | 157 - mingw/lib/tk8.5/demos/tclIndex | 67 - mingw/lib/tk8.5/demos/tcolor | 360 -- mingw/lib/tk8.5/demos/text.tcl | 88 - mingw/lib/tk8.5/demos/textpeer.tcl | 64 - mingw/lib/tk8.5/demos/timer | 50 - mingw/lib/tk8.5/demos/toolbar.tcl | 106 - mingw/lib/tk8.5/demos/tree.tcl | 96 - mingw/lib/tk8.5/demos/ttkbut.tcl | 87 - mingw/lib/tk8.5/demos/ttkmenu.tcl | 56 - mingw/lib/tk8.5/demos/ttknote.tcl | 64 - mingw/lib/tk8.5/demos/ttkpane.tcl | 109 - mingw/lib/tk8.5/demos/ttkprogress.tcl | 49 - mingw/lib/tk8.5/demos/twind.tcl | 327 -- mingw/lib/tk8.5/demos/unicodeout.tcl | 94 - mingw/lib/tk8.5/demos/vscale.tcl | 48 - mingw/lib/tk8.5/demos/widget | 733 ---- mingw/lib/tkConfig.sh | 89 - mingw/lib/tkimgConfig.sh | 57 - mingw/lib/zlibtclConfig.sh | 57 - src/tcltk/fileList-tcl.txt | 10 - src/tcltk/fileList-tk.txt | 97 - src/tcltk/fileList-tkImg.txt | 22 - 132 files changed, 38581 deletions(-) delete mode 100644 mingw/include/X11/X.h delete mode 100644 mingw/include/X11/Xatom.h delete mode 100644 mingw/include/X11/Xfuncproto.h delete mode 100644 mingw/include/X11/Xlib.h delete mode 100644 mingw/include/X11/Xutil.h delete mode 100644 mingw/include/X11/cursorfont.h delete mode 100644 mingw/include/X11/keysym.h delete mode 100644 mingw/include/X11/keysymdef.h delete mode 100644 mingw/include/jpegtcl.h delete mode 100644 mingw/include/jpegtclDecls.h delete mode 100644 mingw/include/jpegtclDeclsMask.h delete mode 100644 mingw/include/jpegtclDeclsUnmask.h delete mode 100644 mingw/include/tcl.h delete mode 100644 mingw/include/tclDecls.h delete mode 100644 mingw/include/tclPlatDecls.h delete mode 100644 mingw/include/tclTomMath.h delete mode 100644 mingw/include/tclTomMathDecls.h delete mode 100644 mingw/include/tifftcl.h delete mode 100644 mingw/include/tifftclDecls.h delete mode 100644 mingw/include/tifftclDeclsMask.h delete mode 100644 mingw/include/tifftclDeclsUnmask.h delete mode 100644 mingw/include/tk.h delete mode 100644 mingw/include/tkDecls.h delete mode 100644 mingw/include/tkIntXlibDecls.h delete mode 100644 mingw/include/tkPlatDecls.h delete mode 100644 mingw/include/tkimg.h delete mode 100644 mingw/include/tkimgDecls.h delete mode 100644 mingw/include/tommath_class.h delete mode 100644 mingw/include/tommath_superclass.h delete mode 100644 mingw/include/zlibtcl.h delete mode 100644 mingw/include/zlibtclDecls.h delete mode 100644 mingw/include/zlibtclDeclsMask.h delete mode 100644 mingw/include/zlibtclDeclsUnmask.h delete mode 100644 mingw/lib/Img1.3/jpegtclstub10.a delete mode 100644 mingw/lib/Img1.3/tifftclstub361.a delete mode 100644 mingw/lib/Img1.3/tkimgstub13.a delete mode 100644 mingw/lib/Img1.3/zlibtclstub121.a delete mode 100644 mingw/lib/jpegtclConfig.sh delete mode 100644 mingw/lib/libtcl85.a delete mode 100644 mingw/lib/libtclstub85.a delete mode 100644 mingw/lib/libtk85.a delete mode 100644 mingw/lib/libtkstub85.a delete mode 100644 mingw/lib/tclConfig.sh delete mode 100644 mingw/lib/tifftclConfig.sh delete mode 100644 mingw/lib/tk8.5/demos/README delete mode 100644 mingw/lib/tk8.5/demos/anilabel.tcl delete mode 100644 mingw/lib/tk8.5/demos/aniwave.tcl delete mode 100644 mingw/lib/tk8.5/demos/arrow.tcl delete mode 100644 mingw/lib/tk8.5/demos/bind.tcl delete mode 100644 mingw/lib/tk8.5/demos/bitmap.tcl delete mode 100644 mingw/lib/tk8.5/demos/browse delete mode 100644 mingw/lib/tk8.5/demos/button.tcl delete mode 100644 mingw/lib/tk8.5/demos/check.tcl delete mode 100644 mingw/lib/tk8.5/demos/clrpick.tcl delete mode 100644 mingw/lib/tk8.5/demos/colors.tcl delete mode 100644 mingw/lib/tk8.5/demos/combo.tcl delete mode 100644 mingw/lib/tk8.5/demos/cscroll.tcl delete mode 100644 mingw/lib/tk8.5/demos/ctext.tcl delete mode 100644 mingw/lib/tk8.5/demos/dialog1.tcl delete mode 100644 mingw/lib/tk8.5/demos/dialog2.tcl delete mode 100644 mingw/lib/tk8.5/demos/en.msg delete mode 100644 mingw/lib/tk8.5/demos/entry1.tcl delete mode 100644 mingw/lib/tk8.5/demos/entry2.tcl delete mode 100644 mingw/lib/tk8.5/demos/entry3.tcl delete mode 100644 mingw/lib/tk8.5/demos/filebox.tcl delete mode 100644 mingw/lib/tk8.5/demos/floor.tcl delete mode 100644 mingw/lib/tk8.5/demos/form.tcl delete mode 100644 mingw/lib/tk8.5/demos/goldberg.tcl delete mode 100644 mingw/lib/tk8.5/demos/hello delete mode 100644 mingw/lib/tk8.5/demos/hscale.tcl delete mode 100644 mingw/lib/tk8.5/demos/icon.tcl delete mode 100644 mingw/lib/tk8.5/demos/image1.tcl delete mode 100644 mingw/lib/tk8.5/demos/image2.tcl delete mode 100644 mingw/lib/tk8.5/demos/images/earth.gif delete mode 100644 mingw/lib/tk8.5/demos/images/earthris.gif delete mode 100644 mingw/lib/tk8.5/demos/images/face.xbm delete mode 100644 mingw/lib/tk8.5/demos/images/flagdown.xbm delete mode 100644 mingw/lib/tk8.5/demos/images/flagup.xbm delete mode 100644 mingw/lib/tk8.5/demos/images/gray25.xbm delete mode 100644 mingw/lib/tk8.5/demos/images/letters.xbm delete mode 100644 mingw/lib/tk8.5/demos/images/noletter.xbm delete mode 100644 mingw/lib/tk8.5/demos/images/pattern.xbm delete mode 100644 mingw/lib/tk8.5/demos/images/tcllogo.gif delete mode 100644 mingw/lib/tk8.5/demos/images/teapot.ppm delete mode 100644 mingw/lib/tk8.5/demos/items.tcl delete mode 100644 mingw/lib/tk8.5/demos/ixset delete mode 100644 mingw/lib/tk8.5/demos/knightstour.tcl delete mode 100644 mingw/lib/tk8.5/demos/label.tcl delete mode 100644 mingw/lib/tk8.5/demos/labelframe.tcl delete mode 100644 mingw/lib/tk8.5/demos/license.terms delete mode 100644 mingw/lib/tk8.5/demos/mclist.tcl delete mode 100644 mingw/lib/tk8.5/demos/menu.tcl delete mode 100644 mingw/lib/tk8.5/demos/menubu.tcl delete mode 100644 mingw/lib/tk8.5/demos/msgbox.tcl delete mode 100644 mingw/lib/tk8.5/demos/nl.msg delete mode 100644 mingw/lib/tk8.5/demos/paned1.tcl delete mode 100644 mingw/lib/tk8.5/demos/paned2.tcl delete mode 100644 mingw/lib/tk8.5/demos/pendulum.tcl delete mode 100644 mingw/lib/tk8.5/demos/plot.tcl delete mode 100644 mingw/lib/tk8.5/demos/puzzle.tcl delete mode 100644 mingw/lib/tk8.5/demos/radio.tcl delete mode 100644 mingw/lib/tk8.5/demos/rmt delete mode 100644 mingw/lib/tk8.5/demos/rolodex delete mode 100644 mingw/lib/tk8.5/demos/ruler.tcl delete mode 100644 mingw/lib/tk8.5/demos/sayings.tcl delete mode 100644 mingw/lib/tk8.5/demos/search.tcl delete mode 100644 mingw/lib/tk8.5/demos/spin.tcl delete mode 100644 mingw/lib/tk8.5/demos/square delete mode 100644 mingw/lib/tk8.5/demos/states.tcl delete mode 100644 mingw/lib/tk8.5/demos/style.tcl delete mode 100644 mingw/lib/tk8.5/demos/tclIndex delete mode 100644 mingw/lib/tk8.5/demos/tcolor delete mode 100644 mingw/lib/tk8.5/demos/text.tcl delete mode 100644 mingw/lib/tk8.5/demos/textpeer.tcl delete mode 100644 mingw/lib/tk8.5/demos/timer delete mode 100644 mingw/lib/tk8.5/demos/toolbar.tcl delete mode 100644 mingw/lib/tk8.5/demos/tree.tcl delete mode 100644 mingw/lib/tk8.5/demos/ttkbut.tcl delete mode 100644 mingw/lib/tk8.5/demos/ttkmenu.tcl delete mode 100644 mingw/lib/tk8.5/demos/ttknote.tcl delete mode 100644 mingw/lib/tk8.5/demos/ttkpane.tcl delete mode 100644 mingw/lib/tk8.5/demos/ttkprogress.tcl delete mode 100644 mingw/lib/tk8.5/demos/twind.tcl delete mode 100644 mingw/lib/tk8.5/demos/unicodeout.tcl delete mode 100644 mingw/lib/tk8.5/demos/vscale.tcl delete mode 100644 mingw/lib/tk8.5/demos/widget delete mode 100644 mingw/lib/tkConfig.sh delete mode 100644 mingw/lib/tkimgConfig.sh delete mode 100644 mingw/lib/zlibtclConfig.sh diff --git a/mingw/include/X11/X.h b/mingw/include/X11/X.h deleted file mode 100644 index bdc4f136a5..0000000000 --- a/mingw/include/X11/X.h +++ /dev/null @@ -1,677 +0,0 @@ -/* - * $XConsortium: X.h,v 1.66 88/09/06 15:55:56 jim Exp $ - */ - -/* Definitions for the X window system likely to be used by applications */ - -#ifndef X_H -#define X_H - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ -#define X_PROTOCOL 11 /* current protocol version */ -#define X_PROTOCOL_REVISION 0 /* current minor version */ - -#if defined(MAC_OSX_TK) -# define Cursor XCursor -# define Region XRegion -#endif - -/* Resources */ - -#ifdef _WIN64 -typedef __int64 XID; -#else -typedef unsigned long XID; -#endif - -typedef XID Window; -typedef XID Drawable; -typedef XID Font; -typedef XID Pixmap; -typedef XID Cursor; -typedef XID Colormap; -typedef XID GContext; -typedef XID KeySym; - -typedef unsigned long Mask; - -typedef unsigned long Atom; - -typedef unsigned long VisualID; - -typedef unsigned long Time; - -typedef unsigned long KeyCode; /* In order to use IME, the Macintosh needs - * to pack 3 bytes into the keyCode field in - * the XEvent. In the real X.h, a KeyCode is - * defined as a short, which wouldn't be big - * enough. */ - -/***************************************************************** - * RESERVED RESOURCE AND CONSTANT DEFINITIONS - *****************************************************************/ - -#define None 0L /* universal null resource or null atom */ - -#define ParentRelative 1L /* background pixmap in CreateWindow - and ChangeWindowAttributes */ - -#define CopyFromParent 0L /* border pixmap in CreateWindow - and ChangeWindowAttributes - special VisualID and special window - class passed to CreateWindow */ - -#define PointerWindow 0L /* destination window in SendEvent */ -#define InputFocus 1L /* destination window in SendEvent */ - -#define PointerRoot 1L /* focus window in SetInputFocus */ - -#define AnyPropertyType 0L /* special Atom, passed to GetProperty */ - -#define AnyKey 0L /* special Key Code, passed to GrabKey */ - -#define AnyButton 0L /* special Button Code, passed to GrabButton */ - -#define AllTemporary 0L /* special Resource ID passed to KillClient */ - -#define CurrentTime 0L /* special Time */ - -#define NoSymbol 0L /* special KeySym */ - -/***************************************************************** - * EVENT DEFINITIONS - *****************************************************************/ - -/* Input Event Masks. Used as event-mask window attribute and as arguments - to Grab requests. Not to be confused with event names. */ - -#define NoEventMask 0L -#define KeyPressMask (1L<<0) -#define KeyReleaseMask (1L<<1) -#define ButtonPressMask (1L<<2) -#define ButtonReleaseMask (1L<<3) -#define EnterWindowMask (1L<<4) -#define LeaveWindowMask (1L<<5) -#define PointerMotionMask (1L<<6) -#define PointerMotionHintMask (1L<<7) -#define Button1MotionMask (1L<<8) -#define Button2MotionMask (1L<<9) -#define Button3MotionMask (1L<<10) -#define Button4MotionMask (1L<<11) -#define Button5MotionMask (1L<<12) -#define ButtonMotionMask (1L<<13) -#define KeymapStateMask (1L<<14) -#define ExposureMask (1L<<15) -#define VisibilityChangeMask (1L<<16) -#define StructureNotifyMask (1L<<17) -#define ResizeRedirectMask (1L<<18) -#define SubstructureNotifyMask (1L<<19) -#define SubstructureRedirectMask (1L<<20) -#define FocusChangeMask (1L<<21) -#define PropertyChangeMask (1L<<22) -#define ColormapChangeMask (1L<<23) -#define OwnerGrabButtonMask (1L<<24) - -/* Event names. Used in "type" field in XEvent structures. Not to be -confused with event masks above. They start from 2 because 0 and 1 -are reserved in the protocol for errors and replies. */ - -#define KeyPress 2 -#define KeyRelease 3 -#define ButtonPress 4 -#define ButtonRelease 5 -#define MotionNotify 6 -#define EnterNotify 7 -#define LeaveNotify 8 -#define FocusIn 9 -#define FocusOut 10 -#define KeymapNotify 11 -#define Expose 12 -#define GraphicsExpose 13 -#define NoExpose 14 -#define VisibilityNotify 15 -#define CreateNotify 16 -#define DestroyNotify 17 -#define UnmapNotify 18 -#define MapNotify 19 -#define MapRequest 20 -#define ReparentNotify 21 -#define ConfigureNotify 22 -#define ConfigureRequest 23 -#define GravityNotify 24 -#define ResizeRequest 25 -#define CirculateNotify 26 -#define CirculateRequest 27 -#define PropertyNotify 28 -#define SelectionClear 29 -#define SelectionRequest 30 -#define SelectionNotify 31 -#define ColormapNotify 32 -#define ClientMessage 33 -#define MappingNotify 34 -#define LASTEvent 35 /* must be bigger than any event # */ - - -/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer, - state in various key-, mouse-, and button-related events. */ - -#define ShiftMask (1<<0) -#define LockMask (1<<1) -#define ControlMask (1<<2) -#define Mod1Mask (1<<3) -#define Mod2Mask (1<<4) -#define Mod3Mask (1<<5) -#define Mod4Mask (1<<6) -#define Mod5Mask (1<<7) - -/* modifier names. Used to build a SetModifierMapping request or - to read a GetModifierMapping request. These correspond to the - masks defined above. */ -#define ShiftMapIndex 0 -#define LockMapIndex 1 -#define ControlMapIndex 2 -#define Mod1MapIndex 3 -#define Mod2MapIndex 4 -#define Mod3MapIndex 5 -#define Mod4MapIndex 6 -#define Mod5MapIndex 7 - - -/* button masks. Used in same manner as Key masks above. Not to be confused - with button names below. */ - -#define Button1Mask (1<<8) -#define Button2Mask (1<<9) -#define Button3Mask (1<<10) -#define Button4Mask (1<<11) -#define Button5Mask (1<<12) - -#define AnyModifier (1<<15) /* used in GrabButton, GrabKey */ - - -/* button names. Used as arguments to GrabButton and as detail in ButtonPress - and ButtonRelease events. Not to be confused with button masks above. - Note that 0 is already defined above as "AnyButton". */ - -#define Button1 1 -#define Button2 2 -#define Button3 3 -#define Button4 4 -#define Button5 5 - -/* Notify modes */ - -#define NotifyNormal 0 -#define NotifyGrab 1 -#define NotifyUngrab 2 -#define NotifyWhileGrabbed 3 - -#define NotifyHint 1 /* for MotionNotify events */ - -/* Notify detail */ - -#define NotifyAncestor 0 -#define NotifyVirtual 1 -#define NotifyInferior 2 -#define NotifyNonlinear 3 -#define NotifyNonlinearVirtual 4 -#define NotifyPointer 5 -#define NotifyPointerRoot 6 -#define NotifyDetailNone 7 - -/* Visibility notify */ - -#define VisibilityUnobscured 0 -#define VisibilityPartiallyObscured 1 -#define VisibilityFullyObscured 2 - -/* Circulation request */ - -#define PlaceOnTop 0 -#define PlaceOnBottom 1 - -/* protocol families */ - -#define FamilyInternet 0 -#define FamilyDECnet 1 -#define FamilyChaos 2 - -/* Property notification */ - -#define PropertyNewValue 0 -#define PropertyDelete 1 - -/* Color Map notification */ - -#define ColormapUninstalled 0 -#define ColormapInstalled 1 - -/* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes */ - -#define GrabModeSync 0 -#define GrabModeAsync 1 - -/* GrabPointer, GrabKeyboard reply status */ - -#define GrabSuccess 0 -#define AlreadyGrabbed 1 -#define GrabInvalidTime 2 -#define GrabNotViewable 3 -#define GrabFrozen 4 - -/* AllowEvents modes */ - -#define AsyncPointer 0 -#define SyncPointer 1 -#define ReplayPointer 2 -#define AsyncKeyboard 3 -#define SyncKeyboard 4 -#define ReplayKeyboard 5 -#define AsyncBoth 6 -#define SyncBoth 7 - -/* Used in SetInputFocus, GetInputFocus */ - -#define RevertToNone (int)None -#define RevertToPointerRoot (int)PointerRoot -#define RevertToParent 2 - -/***************************************************************** - * ERROR CODES - *****************************************************************/ - -#define Success 0 /* everything's okay */ -#define BadRequest 1 /* bad request code */ -#define BadValue 2 /* int parameter out of range */ -#define BadWindow 3 /* parameter not a Window */ -#define BadPixmap 4 /* parameter not a Pixmap */ -#define BadAtom 5 /* parameter not an Atom */ -#define BadCursor 6 /* parameter not a Cursor */ -#define BadFont 7 /* parameter not a Font */ -#define BadMatch 8 /* parameter mismatch */ -#define BadDrawable 9 /* parameter not a Pixmap or Window */ -#define BadAccess 10 /* depending on context: - - key/button already grabbed - - attempt to free an illegal - cmap entry - - attempt to store into a read-only - color map entry. - - attempt to modify the access control - list from other than the local host. - */ -#define BadAlloc 11 /* insufficient resources */ -#define BadColor 12 /* no such colormap */ -#define BadGC 13 /* parameter not a GC */ -#define BadIDChoice 14 /* choice not in range or already used */ -#define BadName 15 /* font or color name doesn't exist */ -#define BadLength 16 /* Request length incorrect */ -#define BadImplementation 17 /* server is defective */ - -#define FirstExtensionError 128 -#define LastExtensionError 255 - -/***************************************************************** - * WINDOW DEFINITIONS - *****************************************************************/ - -/* Window classes used by CreateWindow */ -/* Note that CopyFromParent is already defined as 0 above */ - -#define InputOutput 1 -#define InputOnly 2 - -/* Window attributes for CreateWindow and ChangeWindowAttributes */ - -#define CWBackPixmap (1L<<0) -#define CWBackPixel (1L<<1) -#define CWBorderPixmap (1L<<2) -#define CWBorderPixel (1L<<3) -#define CWBitGravity (1L<<4) -#define CWWinGravity (1L<<5) -#define CWBackingStore (1L<<6) -#define CWBackingPlanes (1L<<7) -#define CWBackingPixel (1L<<8) -#define CWOverrideRedirect (1L<<9) -#define CWSaveUnder (1L<<10) -#define CWEventMask (1L<<11) -#define CWDontPropagate (1L<<12) -#define CWColormap (1L<<13) -#define CWCursor (1L<<14) - -/* ConfigureWindow structure */ - -#define CWX (1<<0) -#define CWY (1<<1) -#define CWWidth (1<<2) -#define CWHeight (1<<3) -#define CWBorderWidth (1<<4) -#define CWSibling (1<<5) -#define CWStackMode (1<<6) - - -/* Bit Gravity */ - -#define ForgetGravity 0 -#define NorthWestGravity 1 -#define NorthGravity 2 -#define NorthEastGravity 3 -#define WestGravity 4 -#define CenterGravity 5 -#define EastGravity 6 -#define SouthWestGravity 7 -#define SouthGravity 8 -#define SouthEastGravity 9 -#define StaticGravity 10 - -/* Window gravity + bit gravity above */ - -#define UnmapGravity 0 - -/* Used in CreateWindow for backing-store hint */ - -#define NotUseful 0 -#define WhenMapped 1 -#define Always 2 - -/* Used in GetWindowAttributes reply */ - -#define IsUnmapped 0 -#define IsUnviewable 1 -#define IsViewable 2 - -/* Used in ChangeSaveSet */ - -#define SetModeInsert 0 -#define SetModeDelete 1 - -/* Used in ChangeCloseDownMode */ - -#define DestroyAll 0 -#define RetainPermanent 1 -#define RetainTemporary 2 - -/* Window stacking method (in configureWindow) */ - -#define Above 0 -#define Below 1 -#define TopIf 2 -#define BottomIf 3 -#define Opposite 4 - -/* Circulation direction */ - -#define RaiseLowest 0 -#define LowerHighest 1 - -/* Property modes */ - -#define PropModeReplace 0 -#define PropModePrepend 1 -#define PropModeAppend 2 - -/***************************************************************** - * GRAPHICS DEFINITIONS - *****************************************************************/ - -/* graphics functions, as in GC.alu */ - -#define GXclear 0x0 /* 0 */ -#define GXand 0x1 /* src AND dst */ -#define GXandReverse 0x2 /* src AND NOT dst */ -#define GXcopy 0x3 /* src */ -#define GXandInverted 0x4 /* NOT src AND dst */ -#define GXnoop 0x5 /* dst */ -#define GXxor 0x6 /* src XOR dst */ -#define GXor 0x7 /* src OR dst */ -#define GXnor 0x8 /* NOT src AND NOT dst */ -#define GXequiv 0x9 /* NOT src XOR dst */ -#define GXinvert 0xa /* NOT dst */ -#define GXorReverse 0xb /* src OR NOT dst */ -#define GXcopyInverted 0xc /* NOT src */ -#define GXorInverted 0xd /* NOT src OR dst */ -#define GXnand 0xe /* NOT src OR NOT dst */ -#define GXset 0xf /* 1 */ - -/* LineStyle */ - -#define LineSolid 0 -#define LineOnOffDash 1 -#define LineDoubleDash 2 - -/* capStyle */ - -#define CapNotLast 0 -#define CapButt 1 -#define CapRound 2 -#define CapProjecting 3 - -/* joinStyle */ - -#define JoinMiter 0 -#define JoinRound 1 -#define JoinBevel 2 - -/* fillStyle */ - -#define FillSolid 0 -#define FillTiled 1 -#define FillStippled 2 -#define FillOpaqueStippled 3 - -/* fillRule */ - -#define EvenOddRule 0 -#define WindingRule 1 - -/* subwindow mode */ - -#define ClipByChildren 0 -#define IncludeInferiors 1 - -/* SetClipRectangles ordering */ - -#define Unsorted 0 -#define YSorted 1 -#define YXSorted 2 -#define YXBanded 3 - -/* CoordinateMode for drawing routines */ - -#define CoordModeOrigin 0 /* relative to the origin */ -#define CoordModePrevious 1 /* relative to previous point */ - -/* Polygon shapes */ - -#define Complex 0 /* paths may intersect */ -#define Nonconvex 1 /* no paths intersect, but not convex */ -#define Convex 2 /* wholly convex */ - -/* Arc modes for PolyFillArc */ - -#define ArcChord 0 /* join endpoints of arc */ -#define ArcPieSlice 1 /* join endpoints to center of arc */ - -/* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into - GC.stateChanges */ - -#define GCFunction (1L<<0) -#define GCPlaneMask (1L<<1) -#define GCForeground (1L<<2) -#define GCBackground (1L<<3) -#define GCLineWidth (1L<<4) -#define GCLineStyle (1L<<5) -#define GCCapStyle (1L<<6) -#define GCJoinStyle (1L<<7) -#define GCFillStyle (1L<<8) -#define GCFillRule (1L<<9) -#define GCTile (1L<<10) -#define GCStipple (1L<<11) -#define GCTileStipXOrigin (1L<<12) -#define GCTileStipYOrigin (1L<<13) -#define GCFont (1L<<14) -#define GCSubwindowMode (1L<<15) -#define GCGraphicsExposures (1L<<16) -#define GCClipXOrigin (1L<<17) -#define GCClipYOrigin (1L<<18) -#define GCClipMask (1L<<19) -#define GCDashOffset (1L<<20) -#define GCDashList (1L<<21) -#define GCArcMode (1L<<22) - -#define GCLastBit 22 -/***************************************************************** - * FONTS - *****************************************************************/ - -/* used in QueryFont -- draw direction */ - -#define FontLeftToRight 0 -#define FontRightToLeft 1 - -#define FontChange 255 - -/***************************************************************** - * IMAGING - *****************************************************************/ - -/* ImageFormat -- PutImage, GetImage */ - -#define XYBitmap 0 /* depth 1, XYFormat */ -#define XYPixmap 1 /* depth == drawable depth */ -#define ZPixmap 2 /* depth == drawable depth */ - -/***************************************************************** - * COLOR MAP STUFF - *****************************************************************/ - -/* For CreateColormap */ - -#define AllocNone 0 /* create map with no entries */ -#define AllocAll 1 /* allocate entire map writeable */ - - -/* Flags used in StoreNamedColor, StoreColors */ - -#define DoRed (1<<0) -#define DoGreen (1<<1) -#define DoBlue (1<<2) - -/***************************************************************** - * CURSOR STUFF - *****************************************************************/ - -/* QueryBestSize Class */ - -#define CursorShape 0 /* largest size that can be displayed */ -#define TileShape 1 /* size tiled fastest */ -#define StippleShape 2 /* size stippled fastest */ - -/***************************************************************** - * KEYBOARD/POINTER STUFF - *****************************************************************/ - -#define AutoRepeatModeOff 0 -#define AutoRepeatModeOn 1 -#define AutoRepeatModeDefault 2 - -#define LedModeOff 0 -#define LedModeOn 1 - -/* masks for ChangeKeyboardControl */ - -#define KBKeyClickPercent (1L<<0) -#define KBBellPercent (1L<<1) -#define KBBellPitch (1L<<2) -#define KBBellDuration (1L<<3) -#define KBLed (1L<<4) -#define KBLedMode (1L<<5) -#define KBKey (1L<<6) -#define KBAutoRepeatMode (1L<<7) - -#define MappingSuccess 0 -#define MappingBusy 1 -#define MappingFailed 2 - -#define MappingModifier 0 -#define MappingKeyboard 1 -#define MappingPointer 2 - -/***************************************************************** - * SCREEN SAVER STUFF - *****************************************************************/ - -#define DontPreferBlanking 0 -#define PreferBlanking 1 -#define DefaultBlanking 2 - -#define DisableScreenSaver 0 -#define DisableScreenInterval 0 - -#define DontAllowExposures 0 -#define AllowExposures 1 -#define DefaultExposures 2 - -/* for ForceScreenSaver */ - -#define ScreenSaverReset 0 -#define ScreenSaverActive 1 - -/***************************************************************** - * HOSTS AND CONNECTIONS - *****************************************************************/ - -/* for ChangeHosts */ - -#define HostInsert 0 -#define HostDelete 1 - -/* for ChangeAccessControl */ - -#define EnableAccess 1 -#define DisableAccess 0 - -/* Display classes used in opening the connection - * Note that the statically allocated ones are even numbered and the - * dynamically changeable ones are odd numbered */ - -#define StaticGray 0 -#define GrayScale 1 -#define StaticColor 2 -#define PseudoColor 3 -#define TrueColor 4 -#define DirectColor 5 - - -/* Byte order used in imageByteOrder and bitmapBitOrder */ - -#define LSBFirst 0 -#define MSBFirst 1 - -#if defined(MAC_OSX_TK) -# undef Cursor -# undef Region -#endif - -#endif /* X_H */ diff --git a/mingw/include/X11/Xatom.h b/mingw/include/X11/Xatom.h deleted file mode 100644 index 485a4236db..0000000000 --- a/mingw/include/X11/Xatom.h +++ /dev/null @@ -1,79 +0,0 @@ -#ifndef XATOM_H -#define XATOM_H 1 - -/* THIS IS A GENERATED FILE - * - * Do not change! Changing this file implies a protocol change! - */ - -#define XA_PRIMARY ((Atom) 1) -#define XA_SECONDARY ((Atom) 2) -#define XA_ARC ((Atom) 3) -#define XA_ATOM ((Atom) 4) -#define XA_BITMAP ((Atom) 5) -#define XA_CARDINAL ((Atom) 6) -#define XA_COLORMAP ((Atom) 7) -#define XA_CURSOR ((Atom) 8) -#define XA_CUT_BUFFER0 ((Atom) 9) -#define XA_CUT_BUFFER1 ((Atom) 10) -#define XA_CUT_BUFFER2 ((Atom) 11) -#define XA_CUT_BUFFER3 ((Atom) 12) -#define XA_CUT_BUFFER4 ((Atom) 13) -#define XA_CUT_BUFFER5 ((Atom) 14) -#define XA_CUT_BUFFER6 ((Atom) 15) -#define XA_CUT_BUFFER7 ((Atom) 16) -#define XA_DRAWABLE ((Atom) 17) -#define XA_FONT ((Atom) 18) -#define XA_INTEGER ((Atom) 19) -#define XA_PIXMAP ((Atom) 20) -#define XA_POINT ((Atom) 21) -#define XA_RECTANGLE ((Atom) 22) -#define XA_RESOURCE_MANAGER ((Atom) 23) -#define XA_RGB_COLOR_MAP ((Atom) 24) -#define XA_RGB_BEST_MAP ((Atom) 25) -#define XA_RGB_BLUE_MAP ((Atom) 26) -#define XA_RGB_DEFAULT_MAP ((Atom) 27) -#define XA_RGB_GRAY_MAP ((Atom) 28) -#define XA_RGB_GREEN_MAP ((Atom) 29) -#define XA_RGB_RED_MAP ((Atom) 30) -#define XA_STRING ((Atom) 31) -#define XA_VISUALID ((Atom) 32) -#define XA_WINDOW ((Atom) 33) -#define XA_WM_COMMAND ((Atom) 34) -#define XA_WM_HINTS ((Atom) 35) -#define XA_WM_CLIENT_MACHINE ((Atom) 36) -#define XA_WM_ICON_NAME ((Atom) 37) -#define XA_WM_ICON_SIZE ((Atom) 38) -#define XA_WM_NAME ((Atom) 39) -#define XA_WM_NORMAL_HINTS ((Atom) 40) -#define XA_WM_SIZE_HINTS ((Atom) 41) -#define XA_WM_ZOOM_HINTS ((Atom) 42) -#define XA_MIN_SPACE ((Atom) 43) -#define XA_NORM_SPACE ((Atom) 44) -#define XA_MAX_SPACE ((Atom) 45) -#define XA_END_SPACE ((Atom) 46) -#define XA_SUPERSCRIPT_X ((Atom) 47) -#define XA_SUPERSCRIPT_Y ((Atom) 48) -#define XA_SUBSCRIPT_X ((Atom) 49) -#define XA_SUBSCRIPT_Y ((Atom) 50) -#define XA_UNDERLINE_POSITION ((Atom) 51) -#define XA_UNDERLINE_THICKNESS ((Atom) 52) -#define XA_STRIKEOUT_ASCENT ((Atom) 53) -#define XA_STRIKEOUT_DESCENT ((Atom) 54) -#define XA_ITALIC_ANGLE ((Atom) 55) -#define XA_X_HEIGHT ((Atom) 56) -#define XA_QUAD_WIDTH ((Atom) 57) -#define XA_WEIGHT ((Atom) 58) -#define XA_POINT_SIZE ((Atom) 59) -#define XA_RESOLUTION ((Atom) 60) -#define XA_COPYRIGHT ((Atom) 61) -#define XA_NOTICE ((Atom) 62) -#define XA_FONT_NAME ((Atom) 63) -#define XA_FAMILY_NAME ((Atom) 64) -#define XA_FULL_NAME ((Atom) 65) -#define XA_CAP_HEIGHT ((Atom) 66) -#define XA_WM_CLASS ((Atom) 67) -#define XA_WM_TRANSIENT_FOR ((Atom) 68) - -#define XA_LAST_PREDEFINED ((Atom) 68) -#endif /* XATOM_H */ diff --git a/mingw/include/X11/Xfuncproto.h b/mingw/include/X11/Xfuncproto.h deleted file mode 100644 index a59379b3b6..0000000000 --- a/mingw/include/X11/Xfuncproto.h +++ /dev/null @@ -1,60 +0,0 @@ -/* $XConsortium: Xfuncproto.h,v 1.7 91/05/13 20:49:21 rws Exp $ */ -/* - * Copyright 1989, 1991 by the Massachusetts Institute of Technology - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that both that - * copyright notice and this permission notice appear in supporting - * documentation, and that the name of M.I.T. not be used in advertising - * or publicity pertaining to distribution of the software without specific, - * written prior permission. M.I.T. makes no representations about the - * suitability of this software for any purpose. It is provided "as is" - * without express or implied warranty. - * - */ - -/* Definitions to make function prototypes manageable */ - -#ifndef _XFUNCPROTO_H_ -#define _XFUNCPROTO_H_ - -#ifndef NeedFunctionPrototypes -#define NeedFunctionPrototypes 1 -#endif /* NeedFunctionPrototypes */ - -#ifndef NeedVarargsPrototypes -#define NeedVarargsPrototypes 0 -#endif /* NeedVarargsPrototypes */ - -#if NeedFunctionPrototypes - -#ifndef NeedNestedPrototypes -#define NeedNestedPrototypes 1 -#endif /* NeedNestedPrototypes */ - -#ifndef _Xconst -#define _Xconst const -#endif /* _Xconst */ - -#ifndef NeedWidePrototypes -#ifdef NARROWPROTO -#define NeedWidePrototypes 0 -#else -#define NeedWidePrototypes 1 /* default to make interropt. easier */ -#endif -#endif /* NeedWidePrototypes */ - -#endif /* NeedFunctionPrototypes */ - -#ifdef __cplusplus -#define _XFUNCPROTOBEGIN extern "C" { -#define _XFUNCPROTOEND } -#endif - -#ifndef _XFUNCPROTOBEGIN -#define _XFUNCPROTOBEGIN -#define _XFUNCPROTOEND -#endif /* _XFUNCPROTOBEGIN */ - -#endif /* _XFUNCPROTO_H_ */ diff --git a/mingw/include/X11/Xlib.h b/mingw/include/X11/Xlib.h deleted file mode 100644 index 3af3682ad7..0000000000 --- a/mingw/include/X11/Xlib.h +++ /dev/null @@ -1,1205 +0,0 @@ -/* $XConsortium: Xlib.h,v 11.221 93/07/02 14:13:28 gildea Exp $ */ -/* - * Copyright 1985, 1986, 1987, 1991 by the Massachusetts Institute of Technology - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that both that - * copyright notice and this permission notice appear in supporting - * documentation, and that the name of M.I.T. not be used in advertising - * or publicity pertaining to distribution of the software without specific, - * written prior permission. M.I.T. makes no representations about the - * suitability of this software for any purpose. It is provided "as is" - * without express or implied warranty. - * - * X Window System is a Trademark of MIT. - * - */ - - -/* - * Xlib.h - Header definition and support file for the C subroutine - * interface library (Xlib) to the X Window System Protocol (V11). - * Structures and symbols starting with "_" are private to the library. - */ -#ifndef _XLIB_H_ -#define _XLIB_H_ - -#define XlibSpecificationRelease 5 - -#if !defined(MAC_OSX_TK) -# include -#endif -#ifdef MAC_OSX_TK -# include -# define Cursor XCursor -# define Region XRegion -#endif - -/* applications should not depend on these two headers being included! */ -#include - -#ifndef X_WCHAR -#ifdef X_NOT_STDC_ENV -#define X_WCHAR -#endif -#endif - -#ifndef X_WCHAR -#include -#else -/* replace this with #include or typedef appropriate for your system */ -typedef unsigned long wchar_t; -#endif - -typedef char *XPointer; - -#define Bool int -#if defined(MAC_OSX_TK) -/* Use define rather than typedef, since may need to undefine this later */ -#define Status int -#else -typedef int Status; -#endif -#define True 1 -#define False 0 - -#define QueuedAlready 0 -#define QueuedAfterReading 1 -#define QueuedAfterFlush 2 - -#define ConnectionNumber(dpy) ((dpy)->fd) -#define RootWindow(dpy, scr) (((dpy)->screens[(scr)]).root) -#define DefaultScreen(dpy) ((dpy)->default_screen) -#define DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) -#define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual) -#define DefaultGC(dpy, scr) (((dpy)->screens[(scr)]).default_gc) -#define BlackPixel(dpy, scr) (((dpy)->screens[(scr)]).black_pixel) -#define WhitePixel(dpy, scr) (((dpy)->screens[(scr)]).white_pixel) -#define AllPlanes ((unsigned long)~0L) -#define QLength(dpy) ((dpy)->qlen) -#define DisplayWidth(dpy, scr) (((dpy)->screens[(scr)]).width) -#define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height) -#define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth) -#define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight) -#define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth) -#define DisplayCells(dpy, scr) (DefaultVisual((dpy), (scr))->map_entries) -#define ScreenCount(dpy) ((dpy)->nscreens) -#define ServerVendor(dpy) ((dpy)->vendor) -#define ProtocolVersion(dpy) ((dpy)->proto_major_version) -#define ProtocolRevision(dpy) ((dpy)->proto_minor_version) -#define VendorRelease(dpy) ((dpy)->release) -#define DisplayString(dpy) ((dpy)->display_name) -#define DefaultDepth(dpy, scr) (((dpy)->screens[(scr)]).root_depth) -#define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap) -#define BitmapUnit(dpy) ((dpy)->bitmap_unit) -#define BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) -#define BitmapPad(dpy) ((dpy)->bitmap_pad) -#define ImageByteOrder(dpy) ((dpy)->byte_order) -#define NextRequest(dpy) ((dpy)->request + 1) -#define LastKnownRequestProcessed(dpy) ((dpy)->request) - -/* macros for screen oriented applications (toolkit) */ -#define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)])) -#define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) -#define DisplayOfScreen(s) ((s)->display) -#define RootWindowOfScreen(s) ((s)->root) -#define BlackPixelOfScreen(s) ((s)->black_pixel) -#define WhitePixelOfScreen(s) ((s)->white_pixel) -#define DefaultColormapOfScreen(s)((s)->cmap) -#define DefaultDepthOfScreen(s) ((s)->root_depth) -#define DefaultGCOfScreen(s) ((s)->default_gc) -#define DefaultVisualOfScreen(s)((s)->root_visual) -#define WidthOfScreen(s) ((s)->width) -#define HeightOfScreen(s) ((s)->height) -#define WidthMMOfScreen(s) ((s)->mwidth) -#define HeightMMOfScreen(s) ((s)->mheight) -#define PlanesOfScreen(s) ((s)->root_depth) -#define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) -#define MinCmapsOfScreen(s) ((s)->min_maps) -#define MaxCmapsOfScreen(s) ((s)->max_maps) -#define DoesSaveUnders(s) ((s)->save_unders) -#define DoesBackingStore(s) ((s)->backing_store) -#define EventMaskOfScreen(s) ((s)->root_input_mask) - -/* - * Extensions need a way to hang private data on some structures. - */ -typedef struct _XExtData { - int number; /* number returned by XRegisterExtension */ - struct _XExtData *next; /* next item on list of data for structure */ - int (*free_private)(); /* called to free private storage */ - XPointer private_data; /* data private to this extension. */ -} XExtData; - -/* - * This file contains structures used by the extension mechanism. - */ -typedef struct { /* public to extension, cannot be changed */ - int extension; /* extension number */ - int major_opcode; /* major op-code assigned by server */ - int first_event; /* first event number for the extension */ - int first_error; /* first error number for the extension */ -} XExtCodes; - -/* - * Data structure for retrieving info about pixmap formats. - */ - -typedef struct { - int depth; - int bits_per_pixel; - int scanline_pad; -} XPixmapFormatValues; - - -/* - * Data structure for setting graphics context. - */ -typedef struct { - int function; /* logical operation */ - unsigned long plane_mask;/* plane mask */ - unsigned long foreground;/* foreground pixel */ - unsigned long background;/* background pixel */ - int line_width; /* line width */ - int line_style; /* LineSolid, LineOnOffDash, LineDoubleDash */ - int cap_style; /* CapNotLast, CapButt, - CapRound, CapProjecting */ - int join_style; /* JoinMiter, JoinRound, JoinBevel */ - int fill_style; /* FillSolid, FillTiled, - FillStippled, FillOpaeueStippled */ - int fill_rule; /* EvenOddRule, WindingRule */ - int arc_mode; /* ArcChord, ArcPieSlice */ - Pixmap tile; /* tile pixmap for tiling operations */ - Pixmap stipple; /* stipple 1 plane pixmap for stipping */ - int ts_x_origin; /* offset for tile or stipple operations */ - int ts_y_origin; - Font font; /* default text font for text operations */ - int subwindow_mode; /* ClipByChildren, IncludeInferiors */ - Bool graphics_exposures;/* boolean, should exposures be generated */ - int clip_x_origin; /* origin for clipping */ - int clip_y_origin; - Pixmap clip_mask; /* bitmap clipping; other calls for rects */ - int dash_offset; /* patterned/dashed line information */ - char dashes; -} XGCValues; - -/* - * Graphics context. The contents of this structure are implementation - * dependent. A GC should be treated as opaque by application code. - */ - -typedef XGCValues *GC; - -/* - * Visual structure; contains information about colormapping possible. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - VisualID visualid; /* visual id of this visual */ -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ class of screen (monochrome, etc.) */ -#else - int class; /* class of screen (monochrome, etc.) */ -#endif - unsigned long red_mask, green_mask, blue_mask; /* mask values */ - int bits_per_rgb; /* log base 2 of distinct color values */ - int map_entries; /* color map entries */ -} Visual; - -/* - * Depth structure; contains information for each possible depth. - */ -typedef struct { - int depth; /* this depth (Z) of the depth */ - int nvisuals; /* number of Visual types at this depth */ - Visual *visuals; /* list of visuals possible at this depth */ -} Depth; - -/* - * Information about the screen. The contents of this structure are - * implementation dependent. A Screen should be treated as opaque - * by application code. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - struct _XDisplay *display;/* back pointer to display structure */ - Window root; /* Root window id. */ - int width, height; /* width and height of screen */ - int mwidth, mheight; /* width and height of in millimeters */ - int ndepths; /* number of depths possible */ - Depth *depths; /* list of allowable depths on the screen */ - int root_depth; /* bits per pixel */ - Visual *root_visual; /* root visual */ - GC default_gc; /* GC for the root root visual */ - Colormap cmap; /* default color map */ - unsigned long white_pixel; - unsigned long black_pixel; /* White and Black pixel values */ - int max_maps, min_maps; /* max and min color maps */ - int backing_store; /* Never, WhenMapped, Always */ - Bool save_unders; - long root_input_mask; /* initial root input mask */ -} Screen; - -/* - * Format structure; describes ZFormat data the screen will understand. - */ -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - int depth; /* depth of this image format */ - int bits_per_pixel; /* bits/pixel at this depth */ - int scanline_pad; /* scanline must padded to this multiple */ -} ScreenFormat; - -/* - * Data structure for setting window attributes. - */ -typedef struct { - Pixmap background_pixmap; /* background or None or ParentRelative */ - unsigned long background_pixel; /* background pixel */ - Pixmap border_pixmap; /* border of the window */ - unsigned long border_pixel; /* border pixel value */ - int bit_gravity; /* one of bit gravity values */ - int win_gravity; /* one of the window gravity values */ - int backing_store; /* NotUseful, WhenMapped, Always */ - unsigned long backing_planes;/* planes to be preseved if possible */ - unsigned long backing_pixel;/* value to use in restoring planes */ - Bool save_under; /* should bits under be saved? (popups) */ - long event_mask; /* set of events that should be saved */ - long do_not_propagate_mask; /* set of events that should not propagate */ - Bool override_redirect; /* boolean value for override-redirect */ - Colormap colormap; /* color map to be associated with window */ - Cursor cursor; /* cursor to be displayed (or None) */ -} XSetWindowAttributes; - -typedef struct { - int x, y; /* location of window */ - int width, height; /* width and height of window */ - int border_width; /* border width of window */ - int depth; /* depth of window */ - Visual *visual; /* the associated visual structure */ - Window root; /* root of screen containing window */ -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ InputOutput, InputOnly*/ -#else - int class; /* InputOutput, InputOnly*/ -#endif - int bit_gravity; /* one of bit gravity values */ - int win_gravity; /* one of the window gravity values */ - int backing_store; /* NotUseful, WhenMapped, Always */ - unsigned long backing_planes;/* planes to be preserved if possible */ - unsigned long backing_pixel;/* value to be used when restoring planes */ - Bool save_under; /* boolean, should bits under be saved? */ - Colormap colormap; /* color map to be associated with window */ - Bool map_installed; /* boolean, is color map currently installed*/ - int map_state; /* IsUnmapped, IsUnviewable, IsViewable */ - long all_event_masks; /* set of events all people have interest in*/ - long your_event_mask; /* my event mask */ - long do_not_propagate_mask; /* set of events that should not propagate */ - Bool override_redirect; /* boolean value for override-redirect */ - Screen *screen; /* back pointer to correct screen */ -} XWindowAttributes; - -/* - * Data structure for host setting; getting routines. - * - */ - -typedef struct { - int family; /* for example FamilyInternet */ - int length; /* length of address, in bytes */ - char *address; /* pointer to where to find the bytes */ -} XHostAddress; - -/* - * Data structure for "image" data, used by image manipulation routines. - */ -typedef struct _XImage { - int width, height; /* size of image */ - int xoffset; /* number of pixels offset in X direction */ - int format; /* XYBitmap, XYPixmap, ZPixmap */ - char *data; /* pointer to image data */ - int byte_order; /* data byte order, LSBFirst, MSBFirst */ - int bitmap_unit; /* quant. of scanline 8, 16, 32 */ - int bitmap_bit_order; /* LSBFirst, MSBFirst */ - int bitmap_pad; /* 8, 16, 32 either XY or ZPixmap */ - int depth; /* depth of image */ - int bytes_per_line; /* accelarator to next line */ - int bits_per_pixel; /* bits per pixel (ZPixmap) */ - unsigned long red_mask; /* bits in z arrangment */ - unsigned long green_mask; - unsigned long blue_mask; - XPointer obdata; /* hook for the object routines to hang on */ - struct funcs { /* image manipulation routines */ - struct _XImage *(*create_image)(); -#if NeedFunctionPrototypes - int (*destroy_image) (struct _XImage *); - unsigned long (*get_pixel) (struct _XImage *, int, int); - int (*put_pixel) (struct _XImage *, int, int, unsigned long); - struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int); - int (*add_pixel) (struct _XImage *, long); -#else - int (*destroy_image)(); - unsigned long (*get_pixel)(); - int (*put_pixel)(); - struct _XImage *(*sub_image)(); - int (*add_pixel)(); -#endif - } f; -} XImage; - -/* - * Data structure for XReconfigureWindow - */ -typedef struct { - int x, y; - int width, height; - int border_width; - Window sibling; - int stack_mode; -} XWindowChanges; - -/* - * Data structure used by color operations - */ -typedef struct { - unsigned long pixel; - unsigned short red, green, blue; - char flags; /* do_red, do_green, do_blue */ - char pad; -} XColor; - -/* - * Data structures for graphics operations. On most machines, these are - * congruent with the wire protocol structures, so reformatting the data - * can be avoided on these architectures. - */ -typedef struct { - short x1, y1, x2, y2; -} XSegment; - -typedef struct { - short x, y; -} XPoint; - -typedef struct { - short x, y; - unsigned short width, height; -} XRectangle; - -typedef struct { - short x, y; - unsigned short width, height; - short angle1, angle2; -} XArc; - - -/* Data structure for XChangeKeyboardControl */ - -typedef struct { - int key_click_percent; - int bell_percent; - int bell_pitch; - int bell_duration; - int led; - int led_mode; - int key; - int auto_repeat_mode; /* On, Off, Default */ -} XKeyboardControl; - -/* Data structure for XGetKeyboardControl */ - -typedef struct { - int key_click_percent; - int bell_percent; - unsigned int bell_pitch, bell_duration; - unsigned long led_mask; - int global_auto_repeat; - char auto_repeats[32]; -} XKeyboardState; - -/* Data structure for XGetMotionEvents. */ - -typedef struct { - Time time; - short x, y; -} XTimeCoord; - -/* Data structure for X{Set,Get}ModifierMapping */ - -typedef struct { - int max_keypermod; /* The server's max # of keys per modifier */ - KeyCode *modifiermap; /* An 8 by max_keypermod array of modifiers */ -} XModifierKeymap; - - -/* - * Display datatype maintaining display specific data. - * The contents of this structure are implementation dependent. - * A Display should be treated as opaque by application code. - */ -typedef struct _XDisplay { - XExtData *ext_data; /* hook for extension to hang data */ - struct _XFreeFuncs *free_funcs; /* internal free functions */ - int fd; /* Network socket. */ - int conn_checker; /* ugly thing used by _XEventsQueued */ - int proto_major_version;/* maj. version of server's X protocol */ - int proto_minor_version;/* minor version of servers X protocol */ - char *vendor; /* vendor of the server hardware */ - XID resource_base; /* resource ID base */ - XID resource_mask; /* resource ID mask bits */ - XID resource_id; /* allocator current ID */ - int resource_shift; /* allocator shift to correct bits */ - XID (*resource_alloc)(); /* allocator function */ - int byte_order; /* screen byte order, LSBFirst, MSBFirst */ - int bitmap_unit; /* padding and data requirements */ - int bitmap_pad; /* padding requirements on bitmaps */ - int bitmap_bit_order; /* LeastSignificant or MostSignificant */ - int nformats; /* number of pixmap formats in list */ - ScreenFormat *pixmap_format; /* pixmap format list */ - int vnumber; /* Xlib's X protocol version number. */ - int release; /* release of the server */ - struct _XSQEvent *head, *tail; /* Input event queue. */ - int qlen; /* Length of input event queue */ - unsigned long request; /* sequence number of last request. */ - char *last_req; /* beginning of last request, or dummy */ - char *buffer; /* Output buffer starting address. */ - char *bufptr; /* Output buffer index pointer. */ - char *bufmax; /* Output buffer maximum+1 address. */ - unsigned max_request_size; /* maximum number 32 bit words in request*/ - struct _XrmHashBucketRec *db; - int (*synchandler)(); /* Synchronization handler */ - char *display_name; /* "host:display" string used on this connect*/ - int default_screen; /* default screen for operations */ - int nscreens; /* number of screens on this server*/ - Screen *screens; /* pointer to list of screens */ - unsigned long motion_buffer; /* size of motion buffer */ - unsigned long flags; /* internal connection flags */ - int min_keycode; /* minimum defined keycode */ - int max_keycode; /* maximum defined keycode */ - KeySym *keysyms; /* This server's keysyms */ - XModifierKeymap *modifiermap; /* This server's modifier keymap */ - int keysyms_per_keycode;/* number of rows */ - char *xdefaults; /* contents of defaults from server */ - char *scratch_buffer; /* place to hang scratch buffer */ - unsigned long scratch_length; /* length of scratch buffer */ - int ext_number; /* extension number on this display */ - struct _XExten *ext_procs; /* extensions initialized on this display */ - /* - * the following can be fixed size, as the protocol defines how - * much address space is available. - * While this could be done using the extension vector, there - * may be MANY events processed, so a search through the extension - * list to find the right procedure for each event might be - * expensive if many extensions are being used. - */ - Bool (*event_vec[128])(); /* vector for wire to event */ - Status (*wire_vec[128])(); /* vector for event to wire */ - KeySym lock_meaning; /* for XLookupString */ - struct _XLockInfo *lock; /* multi-thread state, display lock */ - struct _XInternalAsync *async_handlers; /* for internal async */ - unsigned long bigreq_size; /* max size of big requests */ - struct _XLockPtrs *lock_fns; /* pointers to threads functions */ - /* things above this line should not move, for binary compatibility */ - struct _XKeytrans *key_bindings; /* for XLookupString */ - Font cursor_font; /* for XCreateFontCursor */ - struct _XDisplayAtoms *atoms; /* for XInternAtom */ - unsigned int mode_switch; /* keyboard group modifiers */ - struct _XContextDB *context_db; /* context database */ - Bool (**error_vec)(); /* vector for wire to error */ - /* - * Xcms information - */ - struct { - XPointer defaultCCCs; /* pointer to an array of default XcmsCCC */ - XPointer clientCmaps; /* pointer to linked list of XcmsCmapRec */ - XPointer perVisualIntensityMaps; - /* linked list of XcmsIntensityMap */ - } cms; - struct _XIMFilter *im_filters; - struct _XSQEvent *qfree; /* unallocated event queue elements */ - unsigned long next_event_serial_num; /* inserted into next queue elt */ - int (*savedsynchandler)(); /* user synchandler when Xlib usurps */ -} Display; - -#if NeedFunctionPrototypes /* prototypes require event type definitions */ -#undef _XEVENT_ -#endif -#ifndef _XEVENT_ - -#define XMaxTransChars 4 - -/* - * Definitions of specific events. - */ -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window it is reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - unsigned int keycode; /* detail */ - Bool same_screen; /* same screen flag */ - char trans_chars[XMaxTransChars]; - /* translated characters */ - int nbytes; -} XKeyEvent; -typedef XKeyEvent XKeyPressedEvent; -typedef XKeyEvent XKeyReleasedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window it is reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - unsigned int button; /* detail */ - Bool same_screen; /* same screen flag */ -} XButtonEvent; -typedef XButtonEvent XButtonPressedEvent; -typedef XButtonEvent XButtonReleasedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - unsigned int state; /* key or button mask */ - char is_hint; /* detail */ - Bool same_screen; /* same screen flag */ -} XMotionEvent; -typedef XMotionEvent XPointerMovedEvent; - -typedef struct { - int type; /* of event */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* "event" window reported relative to */ - Window root; /* root window that the event occured on */ - Window subwindow; /* child window */ - Time time; /* milliseconds */ - int x, y; /* pointer x, y coordinates in event window */ - int x_root, y_root; /* coordinates relative to root */ - int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ - int detail; - /* - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual - */ - Bool same_screen; /* same screen flag */ - Bool focus; /* boolean focus */ - unsigned int state; /* key or button mask */ -} XCrossingEvent; -typedef XCrossingEvent XEnterWindowEvent; -typedef XCrossingEvent XLeaveWindowEvent; - -typedef struct { - int type; /* FocusIn or FocusOut */ - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* window of event */ - int mode; /* NotifyNormal, NotifyGrab, NotifyUngrab */ - int detail; - /* - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual, NotifyPointer, - * NotifyPointerRoot, NotifyDetailNone - */ -} XFocusChangeEvent; -typedef XFocusChangeEvent XFocusInEvent; -typedef XFocusChangeEvent XFocusOutEvent; - -/* generated on EnterWindow and FocusIn when KeyMapState selected */ -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - char key_vector[32]; -} XKeymapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int x, y; - int width, height; - int count; /* if non-zero, at least this many more */ -} XExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Drawable drawable; - int x, y; - int width, height; - int count; /* if non-zero, at least this many more */ - int major_code; /* core is CopyArea or CopyPlane */ - int minor_code; /* not defined in the core */ -} XGraphicsExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Drawable drawable; - int major_code; /* core is CopyArea or CopyPlane */ - int minor_code; /* not defined in the core */ -} XNoExposeEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int state; /* Visibility state */ -} XVisibilityEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; /* parent of the window */ - Window window; /* window id of window created */ - int x, y; /* window location */ - int width, height; /* size of window */ - int border_width; /* border width */ - Bool override_redirect; /* creation should be overridden */ -} XCreateWindowEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; -} XDestroyWindowEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Bool from_configure; -} XUnmapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Bool override_redirect; /* boolean, is override set... */ -} XMapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; -} XMapRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - Window parent; - int x, y; - Bool override_redirect; -} XReparentEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int x, y; - int width, height; - int border_width; - Window above; - Bool override_redirect; -} XConfigureEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int x, y; -} XGravityEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - int width, height; -} XResizeRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; - int x, y; - int width, height; - int border_width; - Window above; - int detail; /* Above, Below, TopIf, BottomIf, Opposite */ - unsigned long value_mask; -} XConfigureRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window event; - Window window; - int place; /* PlaceOnTop, PlaceOnBottom */ -} XCirculateEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window parent; - Window window; - int place; /* PlaceOnTop, PlaceOnBottom */ -} XCirculateRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom atom; - Time time; - int state; /* NewValue, Deleted */ -} XPropertyEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom selection; - Time time; -} XSelectionClearEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window owner; - Window requestor; - Atom selection; - Atom target; - Atom property; - Time time; -} XSelectionRequestEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window requestor; - Atom selection; - Atom target; - Atom property; /* ATOM or None */ - Time time; -} XSelectionEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Colormap colormap; /* COLORMAP or None */ -#if defined(__cplusplus) || defined(c_plusplus) - Bool c_new; /* C++ */ -#else - Bool new; -#endif - int state; /* ColormapInstalled, ColormapUninstalled */ -} XColormapEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; - Atom message_type; - int format; - union { - char b[20]; - short s[10]; - long l[5]; - } data; -} XClientMessageEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display; /* Display the event was read from */ - Window window; /* unused */ - int request; /* one of MappingModifier, MappingKeyboard, - MappingPointer */ - int first_keycode; /* first keycode */ - int count; /* defines range of change w. first_keycode*/ -} XMappingEvent; - -typedef struct { - int type; - Display *display; /* Display the event was read from */ - XID resourceid; /* resource id */ - unsigned long serial; /* serial number of failed request */ - unsigned char error_code; /* error code of failed request */ - unsigned char request_code; /* Major op-code of failed request */ - unsigned char minor_code; /* Minor op-code of failed request */ -} XErrorEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server */ - Bool send_event; /* true if this came from a SendEvent request */ - Display *display;/* Display the event was read from */ - Window window; /* window on which event was requested in event mask */ -} XAnyEvent; - -/* - * this union is defined so Xlib can always use the same sized - * event structure internally, to avoid memory fragmentation. - */ -typedef union _XEvent { - int type; /* must not be changed; first element */ - XAnyEvent xany; - XKeyEvent xkey; - XButtonEvent xbutton; - XMotionEvent xmotion; - XCrossingEvent xcrossing; - XFocusChangeEvent xfocus; - XExposeEvent xexpose; - XGraphicsExposeEvent xgraphicsexpose; - XNoExposeEvent xnoexpose; - XVisibilityEvent xvisibility; - XCreateWindowEvent xcreatewindow; - XDestroyWindowEvent xdestroywindow; - XUnmapEvent xunmap; - XMapEvent xmap; - XMapRequestEvent xmaprequest; - XReparentEvent xreparent; - XConfigureEvent xconfigure; - XGravityEvent xgravity; - XResizeRequestEvent xresizerequest; - XConfigureRequestEvent xconfigurerequest; - XCirculateEvent xcirculate; - XCirculateRequestEvent xcirculaterequest; - XPropertyEvent xproperty; - XSelectionClearEvent xselectionclear; - XSelectionRequestEvent xselectionrequest; - XSelectionEvent xselection; - XColormapEvent xcolormap; - XClientMessageEvent xclient; - XMappingEvent xmapping; - XErrorEvent xerror; - XKeymapEvent xkeymap; - long pad[24]; -} XEvent; -#endif - -#define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) - -/* - * per character font metric information. - */ -typedef struct { - short lbearing; /* origin to left edge of raster */ - short rbearing; /* origin to right edge of raster */ - short width; /* advance to next char's origin */ - short ascent; /* baseline to top edge of raster */ - short descent; /* baseline to bottom edge of raster */ - unsigned short attributes; /* per char flags (not predefined) */ -} XCharStruct; - -/* - * To allow arbitrary information with fonts, there are additional properties - * returned. - */ -typedef struct { - Atom name; - unsigned long card32; -} XFontProp; - -typedef struct { - XExtData *ext_data; /* hook for extension to hang data */ - Font fid; /* Font id for this font */ - unsigned direction; /* hint about direction the font is painted */ - unsigned min_char_or_byte2;/* first character */ - unsigned max_char_or_byte2;/* last character */ - unsigned min_byte1; /* first row that exists */ - unsigned max_byte1; /* last row that exists */ - Bool all_chars_exist;/* flag if all characters have non-zero size*/ - unsigned default_char; /* char to print for undefined character */ - int n_properties; /* how many properties there are */ - XFontProp *properties; /* pointer to array of additional properties*/ - XCharStruct min_bounds; /* minimum bounds over all existing char*/ - XCharStruct max_bounds; /* maximum bounds over all existing char*/ - XCharStruct *per_char; /* first_char to last_char information */ - int ascent; /* log. extent above baseline for spacing */ - int descent; /* log. descent below baseline for spacing */ -} XFontStruct; - -/* - * PolyText routines take these as arguments. - */ -typedef struct { - char *chars; /* pointer to string */ - int nchars; /* number of characters */ - int delta; /* delta between strings */ - Font font; /* font to print it in, None don't change */ -} XTextItem; - -typedef struct { /* normal 16 bit characters are two bytes */ - unsigned char byte1; - unsigned char byte2; -} XChar2b; - -typedef struct { - XChar2b *chars; /* two byte characters */ - int nchars; /* number of characters */ - int delta; /* delta between strings */ - Font font; /* font to print it in, None don't change */ -} XTextItem16; - - -typedef union { Display *display; - GC gc; - Visual *visual; - Screen *screen; - ScreenFormat *pixmap_format; - XFontStruct *font; } XEDataObject; - -typedef struct { - XRectangle max_ink_extent; - XRectangle max_logical_extent; -} XFontSetExtents; - -typedef struct _XFontSet *XFontSet; - -typedef struct { - char *chars; - int nchars; - int delta; - XFontSet font_set; -} XmbTextItem; - -typedef struct { - wchar_t *chars; - int nchars; - int delta; - XFontSet font_set; -} XwcTextItem; - -typedef void (*XIMProc)(); - -typedef struct _XIM *XIM; -typedef struct _XIC *XIC; - -typedef unsigned long XIMStyle; - -typedef struct { - unsigned short count_styles; - XIMStyle *supported_styles; -} XIMStyles; - -#define XIMPreeditArea 0x0001L -#define XIMPreeditCallbacks 0x0002L -#define XIMPreeditPosition 0x0004L -#define XIMPreeditNothing 0x0008L -#define XIMPreeditNone 0x0010L -#define XIMStatusArea 0x0100L -#define XIMStatusCallbacks 0x0200L -#define XIMStatusNothing 0x0400L -#define XIMStatusNone 0x0800L - -#define XNVaNestedList "XNVaNestedList" -#define XNClientWindow "clientWindow" -#define XNInputStyle "inputStyle" -#define XNFocusWindow "focusWindow" -#define XNResourceName "resourceName" -#define XNResourceClass "resourceClass" -#define XNGeometryCallback "geometryCallback" -#define XNFilterEvents "filterEvents" -#define XNPreeditStartCallback "preeditStartCallback" -#define XNPreeditDoneCallback "preeditDoneCallback" -#define XNPreeditDrawCallback "preeditDrawCallback" -#define XNPreeditCaretCallback "preeditCaretCallback" -#define XNPreeditAttributes "preeditAttributes" -#define XNStatusStartCallback "statusStartCallback" -#define XNStatusDoneCallback "statusDoneCallback" -#define XNStatusDrawCallback "statusDrawCallback" -#define XNStatusAttributes "statusAttributes" -#define XNArea "area" -#define XNAreaNeeded "areaNeeded" -#define XNSpotLocation "spotLocation" -#define XNColormap "colorMap" -#define XNStdColormap "stdColorMap" -#define XNForeground "foreground" -#define XNBackground "background" -#define XNBackgroundPixmap "backgroundPixmap" -#define XNFontSet "fontSet" -#define XNLineSpace "lineSpace" -#define XNCursor "cursor" - -#define XBufferOverflow -1 -#define XLookupNone 1 -#define XLookupChars 2 -#define XLookupKeySym 3 -#define XLookupBoth 4 - -#if NeedFunctionPrototypes -typedef void *XVaNestedList; -#else -typedef XPointer XVaNestedList; -#endif - -typedef struct { - XPointer client_data; - XIMProc callback; -} XIMCallback; - -typedef unsigned long XIMFeedback; - -#define XIMReverse 1 -#define XIMUnderline (1<<1) -#define XIMHighlight (1<<2) -#define XIMPrimary (1<<5) -#define XIMSecondary (1<<6) -#define XIMTertiary (1<<7) - -typedef struct _XIMText { - unsigned short length; - XIMFeedback *feedback; - Bool encoding_is_wchar; - union { - char *multi_byte; - wchar_t *wide_char; - } string; -} XIMText; - -typedef struct _XIMPreeditDrawCallbackStruct { - int caret; /* Cursor offset within pre-edit string */ - int chg_first; /* Starting change position */ - int chg_length; /* Length of the change in character count */ - XIMText *text; -} XIMPreeditDrawCallbackStruct; - -typedef enum { - XIMForwardChar, XIMBackwardChar, - XIMForwardWord, XIMBackwardWord, - XIMCaretUp, XIMCaretDown, - XIMNextLine, XIMPreviousLine, - XIMLineStart, XIMLineEnd, - XIMAbsolutePosition, - XIMDontChange -} XIMCaretDirection; - -typedef enum { - XIMIsInvisible, /* Disable caret feedback */ - XIMIsPrimary, /* UI defined caret feedback */ - XIMIsSecondary /* UI defined caret feedback */ -} XIMCaretStyle; - -typedef struct _XIMPreeditCaretCallbackStruct { - int position; /* Caret offset within pre-edit string */ - XIMCaretDirection direction; /* Caret moves direction */ - XIMCaretStyle style; /* Feedback of the caret */ -} XIMPreeditCaretCallbackStruct; - -typedef enum { - XIMTextType, - XIMBitmapType -} XIMStatusDataType; - -typedef struct _XIMStatusDrawCallbackStruct { - XIMStatusDataType type; - union { - XIMText *text; - Pixmap bitmap; - } data; -} XIMStatusDrawCallbackStruct; - -typedef int (*XErrorHandler) ( /* WARNING, this type not in Xlib spec */ -#if NeedFunctionPrototypes - Display* /* display */, - XErrorEvent* /* error_event */ -#endif -); - -_XFUNCPROTOBEGIN - - - -#include "tkIntXlibDecls.h" - -_XFUNCPROTOEND - -#if defined(MAC_OSX_TK) -# undef Cursor -# undef Region -#endif - -#endif /* _XLIB_H_ */ diff --git a/mingw/include/X11/Xutil.h b/mingw/include/X11/Xutil.h deleted file mode 100644 index e42ed5d6d5..0000000000 --- a/mingw/include/X11/Xutil.h +++ /dev/null @@ -1,855 +0,0 @@ -/* $XConsortium: Xutil.h,v 11.73 91/07/30 16:21:37 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -#ifndef _XUTIL_H_ -#define _XUTIL_H_ - -/* You must include before including this file */ - -#if defined(MAC_OSX_TK) -# define Region XRegion -#endif - -/* - * Bitmask returned by XParseGeometry(). Each bit tells if the corresponding - * value (x, y, width, height) was found in the parsed string. - */ -#define NoValue 0x0000 -#define XValue 0x0001 -#define YValue 0x0002 -#define WidthValue 0x0004 -#define HeightValue 0x0008 -#define AllValues 0x000F -#define XNegative 0x0010 -#define YNegative 0x0020 - -/* - * new version containing base_width, base_height, and win_gravity fields; - * used with WM_NORMAL_HINTS. - */ -typedef struct { - long flags; /* marks which fields in this structure are defined */ - int x, y; /* obsolete for new window mgrs, but clients */ - int width, height; /* should set so old wm's don't mess up */ - int min_width, min_height; - int max_width, max_height; - int width_inc, height_inc; - struct { - int x; /* numerator */ - int y; /* denominator */ - } min_aspect, max_aspect; - int base_width, base_height; /* added by ICCCM version 1 */ - int win_gravity; /* added by ICCCM version 1 */ -} XSizeHints; - -/* - * The next block of definitions are for window manager properties that - * clients and applications use for communication. - */ - -/* flags argument in size hints */ -#define USPosition (1L << 0) /* user specified x, y */ -#define USSize (1L << 1) /* user specified width, height */ - -#define PPosition (1L << 2) /* program specified position */ -#define PSize (1L << 3) /* program specified size */ -#define PMinSize (1L << 4) /* program specified minimum size */ -#define PMaxSize (1L << 5) /* program specified maximum size */ -#define PResizeInc (1L << 6) /* program specified resize increments */ -#define PAspect (1L << 7) /* program specified min and max aspect ratios */ -#define PBaseSize (1L << 8) /* program specified base for incrementing */ -#define PWinGravity (1L << 9) /* program specified window gravity */ - -/* obsolete */ -#define PAllHints (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect) - - - -typedef struct { - long flags; /* marks which fields in this structure are defined */ - Bool input; /* does this application rely on the window manager to - get keyboard input? */ - int initial_state; /* see below */ - Pixmap icon_pixmap; /* pixmap to be used as icon */ - Window icon_window; /* window to be used as icon */ - int icon_x, icon_y; /* initial position of icon */ - Pixmap icon_mask; /* icon mask bitmap */ - XID window_group; /* id of related window group */ - /* this structure may be extended in the future */ -} XWMHints; - -/* definition for flags of XWMHints */ - -#define InputHint (1L << 0) -#define StateHint (1L << 1) -#define IconPixmapHint (1L << 2) -#define IconWindowHint (1L << 3) -#define IconPositionHint (1L << 4) -#define IconMaskHint (1L << 5) -#define WindowGroupHint (1L << 6) -#define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \ -IconPositionHint|IconMaskHint|WindowGroupHint) - -/* definitions for initial window state */ -#define WithdrawnState 0 /* for windows that are not mapped */ -#define NormalState 1 /* most applications want to start this way */ -#define IconicState 3 /* application wants to start as an icon */ - -/* - * Obsolete states no longer defined by ICCCM - */ -#define DontCareState 0 /* don't know or care */ -#define ZoomState 2 /* application wants to start zoomed */ -#define InactiveState 4 /* application believes it is seldom used; */ - /* some wm's may put it on inactive menu */ - - -/* - * new structure for manipulating TEXT properties; used with WM_NAME, - * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. - */ -typedef struct { - unsigned char *value; /* same as Property routines */ - Atom encoding; /* prop type */ - int format; /* prop data format: 8, 16, or 32 */ - unsigned long nitems; /* number of data items in value */ -} XTextProperty; - -#define XNoMemory -1 -#define XLocaleNotSupported -2 -#define XConverterNotFound -3 - -typedef enum { - XStringStyle, /* STRING */ - XCompoundTextStyle, /* COMPOUND_TEXT */ - XTextStyle, /* text in owner's encoding (current locale)*/ - XStdICCTextStyle /* STRING, else COMPOUND_TEXT */ -} XICCEncodingStyle; - -typedef struct { - int min_width, min_height; - int max_width, max_height; - int width_inc, height_inc; -} XIconSize; - -typedef struct { - char *res_name; - char *res_class; -} XClassHint; - -/* - * These macros are used to give some sugar to the image routines so that - * naive people are more comfortable with them. - */ -#define XDestroyImage(ximage) \ - ((*((ximage)->f.destroy_image))((ximage))) -#define XGetPixel(ximage, x, y) \ - ((*((ximage)->f.get_pixel))((ximage), (x), (y))) -#define XPutPixel(ximage, x, y, pixel) \ - ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) -#define XSubImage(ximage, x, y, width, height) \ - ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) -#define XAddPixel(ximage, value) \ - ((*((ximage)->f.add_pixel))((ximage), (value))) - -/* - * Compose sequence status structure, used in calling XLookupString. - */ -typedef struct _XComposeStatus { - XPointer compose_ptr; /* state table pointer */ - int chars_matched; /* match state */ -} XComposeStatus; - -/* - * Keysym macros, used on Keysyms to test for classes of symbols - */ -#define IsKeypadKey(keysym) \ - (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal)) - -#define IsCursorKey(keysym) \ - (((unsigned)(keysym) >= XK_Home) && ((unsigned)(keysym) < XK_Select)) - -#define IsPFKey(keysym) \ - (((unsigned)(keysym) >= XK_KP_F1) && ((unsigned)(keysym) <= XK_KP_F4)) - -#define IsFunctionKey(keysym) \ - (((unsigned)(keysym) >= XK_F1) && ((unsigned)(keysym) <= XK_F35)) - -#define IsMiscFunctionKey(keysym) \ - (((unsigned)(keysym) >= XK_Select) && ((unsigned)(keysym) <= XK_Break)) - -#define IsModifierKey(keysym) \ - ((((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) \ - || ((unsigned)(keysym) == XK_Mode_switch) \ - || ((unsigned)(keysym) == XK_Num_Lock)) -/* - * opaque reference to Region data type - */ -typedef struct _XRegion *Region; - -/* Return values from XRectInRegion() */ - -#define RectangleOut 0 -#define RectangleIn 1 -#define RectanglePart 2 - - -/* - * Information used by the visual utility routines to find desired visual - * type from the many visuals a display may support. - */ - -typedef struct { - Visual *visual; - VisualID visualid; - int screen; - int depth; -#if defined(__cplusplus) || defined(c_plusplus) - int c_class; /* C++ */ -#else - int class; -#endif - unsigned long red_mask; - unsigned long green_mask; - unsigned long blue_mask; - int colormap_size; - int bits_per_rgb; -} XVisualInfo; - -#define VisualNoMask 0x0 -#define VisualIDMask 0x1 -#define VisualScreenMask 0x2 -#define VisualDepthMask 0x4 -#define VisualClassMask 0x8 -#define VisualRedMaskMask 0x10 -#define VisualGreenMaskMask 0x20 -#define VisualBlueMaskMask 0x40 -#define VisualColormapSizeMask 0x80 -#define VisualBitsPerRGBMask 0x100 -#define VisualAllMask 0x1FF - -/* - * This defines a window manager property that clients may use to - * share standard color maps of type RGB_COLOR_MAP: - */ -typedef struct { - Colormap colormap; - unsigned long red_max; - unsigned long red_mult; - unsigned long green_max; - unsigned long green_mult; - unsigned long blue_max; - unsigned long blue_mult; - unsigned long base_pixel; - VisualID visualid; /* added by ICCCM version 1 */ - XID killid; /* added by ICCCM version 1 */ -} XStandardColormap; - -#define ReleaseByFreeingColormap ((XID) 1L) /* for killid field above */ - - -/* - * return codes for XReadBitmapFile and XWriteBitmapFile - */ -#define BitmapSuccess 0 -#define BitmapOpenFailed 1 -#define BitmapFileInvalid 2 -#define BitmapNoMemory 3 - -/**************************************************************** - * - * Context Management - * - ****************************************************************/ - - -/* Associative lookup table return codes */ - -#define XCSUCCESS 0 /* No error. */ -#define XCNOMEM 1 /* Out of memory */ -#define XCNOENT 2 /* No entry in table */ - -typedef int XContext; - -#define XUniqueContext() ((XContext) XrmUniqueQuark()) -#define XStringToContext(string) ((XContext) XrmStringToQuark(string)) - -_XFUNCPROTOBEGIN - -/* The following declarations are alphabetized. */ - -extern XClassHint *XAllocClassHint ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XIconSize *XAllocIconSize ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XSizeHints *XAllocSizeHints ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XStandardColormap *XAllocStandardColormap ( -#if NeedFunctionPrototypes - void -#endif -); - -extern XWMHints *XAllocWMHints ( -#if NeedFunctionPrototypes - void -#endif -); - -extern void XClipBox( -#if NeedFunctionPrototypes - Region /* r */, - XRectangle* /* rect_return */ -#endif -); - -extern Region XCreateRegion( -#if NeedFunctionPrototypes - void -#endif -); - -extern char *XDefaultString( -#if NeedFunctionPrototypes - void -#endif -); - -extern int XDeleteContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */ -#endif -); - -extern void XDestroyRegion( -#if NeedFunctionPrototypes - Region /* r */ -#endif -); - -extern void XEmptyRegion( -#if NeedFunctionPrototypes - Region /* r */ -#endif -); - -extern void XEqualRegion( -#if NeedFunctionPrototypes - Region /* r1 */, - Region /* r2 */ -#endif -); - -extern int XFindContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */, - XPointer* /* data_return */ -#endif -); - -extern Status XGetClassHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XClassHint* /* class_hints_return */ -#endif -); - -extern Status XGetIconSizes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XIconSize** /* size_list_return */, - int* /* count_return */ -#endif -); - -extern Status XGetNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */ -#endif -); - -extern Status XGetRGBColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap** /* stdcmap_return */, - int* /* count_return */, - Atom /* property */ -#endif -); - -extern Status XGetSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - Atom /* property */ -#endif -); - -extern Status XGetStandardColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* colormap_return */, - Atom /* property */ -#endif -); - -extern Status XGetTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* window */, - XTextProperty* /* text_prop_return */, - Atom /* property */ -#endif -); - - -extern Status XGetWMClientMachine( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern XWMHints *XGetWMHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */ -#endif -); - -extern Status XGetWMIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern Status XGetWMName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern Status XGetWMNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - long* /* supplied_return */ -#endif -); - -extern Status XGetWMSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints_return */, - long* /* supplied_return */, - Atom /* property */ -#endif -); - -extern Status XGetZoomHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* zhints_return */ -#endif -); - -extern void XIntersectRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XLookupString( -#if NeedFunctionPrototypes - XKeyEvent* /* event_struct */, - char* /* buffer_return */, - int /* bytes_buffer */, - KeySym* /* keysym_return */, - XComposeStatus* /* status_in_out */ -#endif -); - -extern Status XMatchVisualInfo( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen */, - int /* depth */, - int /* class */, - XVisualInfo* /* vinfo_return */ -#endif -); - -extern void XOffsetRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* dx */, - int /* dy */ -#endif -); - -extern Bool XPointInRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* x */, - int /* y */ -#endif -); - -extern Region XPolygonRegion( -#if NeedFunctionPrototypes - XPoint* /* points */, - int /* n */, - int /* fill_rule */ -#endif -); - -extern int XRectInRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* x */, - int /* y */, - unsigned int /* width */, - unsigned int /* height */ -#endif -); - -extern int XSaveContext( -#if NeedFunctionPrototypes - Display* /* display */, - XID /* rid */, - XContext /* context */, - _Xconst char* /* data */ -#endif -); - -extern void XSetClassHint( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XClassHint* /* class_hints */ -#endif -); - -extern void XSetIconSizes( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XIconSize* /* size_list */, - int /* count */ -#endif -); - -extern void XSetNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetRGBColormaps( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* stdcmaps */, - int /* count */, - Atom /* property */ -#endif -); - -extern void XSetSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */, - Atom /* property */ -#endif -); - -extern void XSetStandardProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */, - _Xconst char* /* icon_name */, - Pixmap /* icon_pixmap */, - char** /* argv */, - int /* argc */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */, - Atom /* property */ -#endif -); - -extern void XSetWMHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XWMHints* /* wm_hints */ -#endif -); - -extern void XSetWMIconName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */ -#endif -); - -extern void XSetWMName( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* text_prop */ -#endif -); - -extern void XSetWMNormalHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */ -#endif -); - -extern void XSetWMProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XTextProperty* /* window_name */, - XTextProperty* /* icon_name */, - char** /* argv */, - int /* argc */, - XSizeHints* /* normal_hints */, - XWMHints* /* wm_hints */, - XClassHint* /* class_hints */ -#endif -); - -extern void XmbSetWMProperties( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - _Xconst char* /* window_name */, - _Xconst char* /* icon_name */, - char** /* argv */, - int /* argc */, - XSizeHints* /* normal_hints */, - XWMHints* /* wm_hints */, - XClassHint* /* class_hints */ -#endif -); - -extern void XSetWMSizeHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* hints */, - Atom /* property */ -#endif -); - -extern void XSetRegion( -#if NeedFunctionPrototypes - Display* /* display */, - GC /* gc */, - Region /* r */ -#endif -); - -extern void XSetStandardColormap( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XStandardColormap* /* colormap */, - Atom /* property */ -#endif -); - -extern void XSetZoomHints( -#if NeedFunctionPrototypes - Display* /* display */, - Window /* w */, - XSizeHints* /* zhints */ -#endif -); - -extern void XShrinkRegion( -#if NeedFunctionPrototypes - Region /* r */, - int /* dx */, - int /* dy */ -#endif -); - -extern void XSubtractRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XmbTextListToTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - char** /* list */, - int /* count */, - XICCEncodingStyle /* style */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern int XwcTextListToTextProperty( -#if NeedFunctionPrototypes - Display* /* display */, - wchar_t** /* list */, - int /* count */, - XICCEncodingStyle /* style */, - XTextProperty* /* text_prop_return */ -#endif -); - -extern void XwcFreeStringList( -#if NeedFunctionPrototypes - wchar_t** /* list */ -#endif -); - -extern Status XTextPropertyToStringList( -#if NeedFunctionPrototypes - XTextProperty* /* text_prop */, - char*** /* list_return */, - int* /* count_return */ -#endif -); - -extern int XmbTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* /* display */, - XTextProperty* /* text_prop */, - char*** /* list_return */, - int* /* count_return */ -#endif -); - -extern int XwcTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* /* display */, - XTextProperty* /* text_prop */, - wchar_t*** /* list_return */, - int* /* count_return */ -#endif -); - -extern void XUnionRectWithRegion( -#if NeedFunctionPrototypes - XRectangle* /* rectangle */, - Region /* src_region */, - Region /* dest_region_return */ -#endif -); - -extern void XUnionRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -extern int XWMGeometry( -#if NeedFunctionPrototypes - Display* /* display */, - int /* screen_number */, - _Xconst char* /* user_geometry */, - _Xconst char* /* default_geometry */, - unsigned int /* border_width */, - XSizeHints* /* hints */, - int* /* x_return */, - int* /* y_return */, - int* /* width_return */, - int* /* height_return */, - int* /* gravity_return */ -#endif -); - -extern void XXorRegion( -#if NeedFunctionPrototypes - Region /* sra */, - Region /* srb */, - Region /* dr_return */ -#endif -); - -_XFUNCPROTOEND - -#if defined(MAC_OSX_TK) -# undef Region -#endif - -#endif /* _XUTIL_H_ */ diff --git a/mingw/include/X11/cursorfont.h b/mingw/include/X11/cursorfont.h deleted file mode 100644 index 617274fa80..0000000000 --- a/mingw/include/X11/cursorfont.h +++ /dev/null @@ -1,79 +0,0 @@ -/* $XConsortium: cursorfont.h,v 1.2 88/09/06 16:44:27 jim Exp $ */ -#define XC_num_glyphs 154 -#define XC_X_cursor 0 -#define XC_arrow 2 -#define XC_based_arrow_down 4 -#define XC_based_arrow_up 6 -#define XC_boat 8 -#define XC_bogosity 10 -#define XC_bottom_left_corner 12 -#define XC_bottom_right_corner 14 -#define XC_bottom_side 16 -#define XC_bottom_tee 18 -#define XC_box_spiral 20 -#define XC_center_ptr 22 -#define XC_circle 24 -#define XC_clock 26 -#define XC_coffee_mug 28 -#define XC_cross 30 -#define XC_cross_reverse 32 -#define XC_crosshair 34 -#define XC_diamond_cross 36 -#define XC_dot 38 -#define XC_dotbox 40 -#define XC_double_arrow 42 -#define XC_draft_large 44 -#define XC_draft_small 46 -#define XC_draped_box 48 -#define XC_exchange 50 -#define XC_fleur 52 -#define XC_gobbler 54 -#define XC_gumby 56 -#define XC_hand1 58 -#define XC_hand2 60 -#define XC_heart 62 -#define XC_icon 64 -#define XC_iron_cross 66 -#define XC_left_ptr 68 -#define XC_left_side 70 -#define XC_left_tee 72 -#define XC_leftbutton 74 -#define XC_ll_angle 76 -#define XC_lr_angle 78 -#define XC_man 80 -#define XC_middlebutton 82 -#define XC_mouse 84 -#define XC_pencil 86 -#define XC_pirate 88 -#define XC_plus 90 -#define XC_question_arrow 92 -#define XC_right_ptr 94 -#define XC_right_side 96 -#define XC_right_tee 98 -#define XC_rightbutton 100 -#define XC_rtl_logo 102 -#define XC_sailboat 104 -#define XC_sb_down_arrow 106 -#define XC_sb_h_double_arrow 108 -#define XC_sb_left_arrow 110 -#define XC_sb_right_arrow 112 -#define XC_sb_up_arrow 114 -#define XC_sb_v_double_arrow 116 -#define XC_shuttle 118 -#define XC_sizing 120 -#define XC_spider 122 -#define XC_spraycan 124 -#define XC_star 126 -#define XC_target 128 -#define XC_tcross 130 -#define XC_top_left_arrow 132 -#define XC_top_left_corner 134 -#define XC_top_right_corner 136 -#define XC_top_side 138 -#define XC_top_tee 140 -#define XC_trek 142 -#define XC_ul_angle 144 -#define XC_umbrella 146 -#define XC_ur_angle 148 -#define XC_watch 150 -#define XC_xterm 152 diff --git a/mingw/include/X11/keysym.h b/mingw/include/X11/keysym.h deleted file mode 100644 index a8f1408982..0000000000 --- a/mingw/include/X11/keysym.h +++ /dev/null @@ -1,35 +0,0 @@ -/* $XConsortium: keysym.h,v 1.13 91/03/13 20:09:49 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -/* default keysyms */ -#define XK_MISCELLANY -#define XK_LATIN1 -#define XK_LATIN2 -#define XK_LATIN3 -#define XK_LATIN4 -#define XK_GREEK - -#include diff --git a/mingw/include/X11/keysymdef.h b/mingw/include/X11/keysymdef.h deleted file mode 100644 index b22d41b338..0000000000 --- a/mingw/include/X11/keysymdef.h +++ /dev/null @@ -1,1169 +0,0 @@ -/* $XConsortium: keysymdef.h,v 1.15 93/04/02 10:57:36 rws Exp $ */ - -/*********************************************************** -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, -and the Massachusetts Institute of Technology, Cambridge, Massachusetts. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Digital or MIT not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING -ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL -DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR -ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, -WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, -ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -SOFTWARE. - -******************************************************************/ - -#define XK_VoidSymbol 0xFFFFFF /* void symbol */ - -#ifdef XK_MISCELLANY -/* - * TTY Functions, cleverly chosen to map to ascii, for convenience of - * programming, but could have been arbitrary (at the cost of lookup - * tables in client code. - */ - -#define XK_BackSpace 0xFF08 /* back space, back char */ -#define XK_Tab 0xFF09 -#define XK_Linefeed 0xFF0A /* Linefeed, LF */ -#define XK_Clear 0xFF0B -#define XK_Return 0xFF0D /* Return, enter */ -#define XK_Pause 0xFF13 /* Pause, hold */ -#define XK_Scroll_Lock 0xFF14 -#define XK_Sys_Req 0xFF15 -#define XK_Escape 0xFF1B -#define XK_Delete 0xFFFF /* Delete, rubout */ - - - -/* International & multi-key character composition */ - -#define XK_Multi_key 0xFF20 /* Multi-key character compose */ - -/* Japanese keyboard support */ - -#define XK_Kanji 0xFF21 /* Kanji, Kanji convert */ -#define XK_Muhenkan 0xFF22 /* Cancel Conversion */ -#define XK_Henkan_Mode 0xFF23 /* Start/Stop Conversion */ -#define XK_Henkan 0xFF23 /* Alias for Henkan_Mode */ -#define XK_Romaji 0xFF24 /* to Romaji */ -#define XK_Hiragana 0xFF25 /* to Hiragana */ -#define XK_Katakana 0xFF26 /* to Katakana */ -#define XK_Hiragana_Katakana 0xFF27 /* Hiragana/Katakana toggle */ -#define XK_Zenkaku 0xFF28 /* to Zenkaku */ -#define XK_Hankaku 0xFF29 /* to Hankaku */ -#define XK_Zenkaku_Hankaku 0xFF2A /* Zenkaku/Hankaku toggle */ -#define XK_Touroku 0xFF2B /* Add to Dictionary */ -#define XK_Massyo 0xFF2C /* Delete from Dictionary */ -#define XK_Kana_Lock 0xFF2D /* Kana Lock */ -#define XK_Kana_Shift 0xFF2E /* Kana Shift */ -#define XK_Eisu_Shift 0xFF2F /* Alphanumeric Shift */ -#define XK_Eisu_toggle 0xFF30 /* Alphanumeric toggle */ - -/* Cursor control & motion */ - -#define XK_Home 0xFF50 -#define XK_Left 0xFF51 /* Move left, left arrow */ -#define XK_Up 0xFF52 /* Move up, up arrow */ -#define XK_Right 0xFF53 /* Move right, right arrow */ -#define XK_Down 0xFF54 /* Move down, down arrow */ -#define XK_Prior 0xFF55 /* Prior, previous */ -#define XK_Page_Up 0xFF55 -#define XK_Next 0xFF56 /* Next */ -#define XK_Page_Down 0xFF56 -#define XK_End 0xFF57 /* EOL */ -#define XK_Begin 0xFF58 /* BOL */ - -/* Special Windows keyboard keys */ - -#define XK_Win_L 0xFF5B /* Left-hand Windows */ -#define XK_Win_R 0xFF5C /* Right-hand Windows */ -#define XK_App 0xFF5D /* Menu key */ - -/* Misc Functions */ - -#define XK_Select 0xFF60 /* Select, mark */ -#define XK_Print 0xFF61 -#define XK_Execute 0xFF62 /* Execute, run, do */ -#define XK_Insert 0xFF63 /* Insert, insert here */ -#define XK_Undo 0xFF65 /* Undo, oops */ -#define XK_Redo 0xFF66 /* redo, again */ -#define XK_Menu 0xFF67 -#define XK_Find 0xFF68 /* Find, search */ -#define XK_Cancel 0xFF69 /* Cancel, stop, abort, exit */ -#define XK_Help 0xFF6A /* Help, ? */ -#define XK_Break 0xFF6B -#define XK_Mode_switch 0xFF7E /* Character set switch */ -#define XK_script_switch 0xFF7E /* Alias for mode_switch */ -#define XK_Num_Lock 0xFF7F - -/* Keypad Functions, keypad numbers cleverly chosen to map to ascii */ - -#define XK_KP_Space 0xFF80 /* space */ -#define XK_KP_Tab 0xFF89 -#define XK_KP_Enter 0xFF8D /* enter */ -#define XK_KP_F1 0xFF91 /* PF1, KP_A, ... */ -#define XK_KP_F2 0xFF92 -#define XK_KP_F3 0xFF93 -#define XK_KP_F4 0xFF94 -#define XK_KP_Home 0xFF95 -#define XK_KP_Left 0xFF96 -#define XK_KP_Up 0xFF97 -#define XK_KP_Right 0xFF98 -#define XK_KP_Down 0xFF99 -#define XK_KP_Prior 0xFF9A -#define XK_KP_Page_Up 0xFF9A -#define XK_KP_Next 0xFF9B -#define XK_KP_Page_Down 0xFF9B -#define XK_KP_End 0xFF9C -#define XK_KP_Begin 0xFF9D -#define XK_KP_Insert 0xFF9E -#define XK_KP_Delete 0xFF9F -#define XK_KP_Equal 0xFFBD /* equals */ -#define XK_KP_Multiply 0xFFAA -#define XK_KP_Add 0xFFAB -#define XK_KP_Separator 0xFFAC /* separator, often comma */ -#define XK_KP_Subtract 0xFFAD -#define XK_KP_Decimal 0xFFAE -#define XK_KP_Divide 0xFFAF - -#define XK_KP_0 0xFFB0 -#define XK_KP_1 0xFFB1 -#define XK_KP_2 0xFFB2 -#define XK_KP_3 0xFFB3 -#define XK_KP_4 0xFFB4 -#define XK_KP_5 0xFFB5 -#define XK_KP_6 0xFFB6 -#define XK_KP_7 0xFFB7 -#define XK_KP_8 0xFFB8 -#define XK_KP_9 0xFFB9 - - - -/* - * Auxilliary Functions; note the duplicate definitions for left and right - * function keys; Sun keyboards and a few other manufactures have such - * function key groups on the left and/or right sides of the keyboard. - * We've not found a keyboard with more than 35 function keys total. - */ - -#define XK_F1 0xFFBE -#define XK_F2 0xFFBF -#define XK_F3 0xFFC0 -#define XK_F4 0xFFC1 -#define XK_F5 0xFFC2 -#define XK_F6 0xFFC3 -#define XK_F7 0xFFC4 -#define XK_F8 0xFFC5 -#define XK_F9 0xFFC6 -#define XK_F10 0xFFC7 -#define XK_F11 0xFFC8 -#define XK_L1 0xFFC8 -#define XK_F12 0xFFC9 -#define XK_L2 0xFFC9 -#define XK_F13 0xFFCA -#define XK_L3 0xFFCA -#define XK_F14 0xFFCB -#define XK_L4 0xFFCB -#define XK_F15 0xFFCC -#define XK_L5 0xFFCC -#define XK_F16 0xFFCD -#define XK_L6 0xFFCD -#define XK_F17 0xFFCE -#define XK_L7 0xFFCE -#define XK_F18 0xFFCF -#define XK_L8 0xFFCF -#define XK_F19 0xFFD0 -#define XK_L9 0xFFD0 -#define XK_F20 0xFFD1 -#define XK_L10 0xFFD1 -#define XK_F21 0xFFD2 -#define XK_R1 0xFFD2 -#define XK_F22 0xFFD3 -#define XK_R2 0xFFD3 -#define XK_F23 0xFFD4 -#define XK_R3 0xFFD4 -#define XK_F24 0xFFD5 -#define XK_R4 0xFFD5 -#define XK_F25 0xFFD6 -#define XK_R5 0xFFD6 -#define XK_F26 0xFFD7 -#define XK_R6 0xFFD7 -#define XK_F27 0xFFD8 -#define XK_R7 0xFFD8 -#define XK_F28 0xFFD9 -#define XK_R8 0xFFD9 -#define XK_F29 0xFFDA -#define XK_R9 0xFFDA -#define XK_F30 0xFFDB -#define XK_R10 0xFFDB -#define XK_F31 0xFFDC -#define XK_R11 0xFFDC -#define XK_F32 0xFFDD -#define XK_R12 0xFFDD -#define XK_F33 0xFFDE -#define XK_R13 0xFFDE -#define XK_F34 0xFFDF -#define XK_R14 0xFFDF -#define XK_F35 0xFFE0 -#define XK_R15 0xFFE0 - -/* Modifiers */ - -#define XK_Shift_L 0xFFE1 /* Left shift */ -#define XK_Shift_R 0xFFE2 /* Right shift */ -#define XK_Control_L 0xFFE3 /* Left control */ -#define XK_Control_R 0xFFE4 /* Right control */ -#define XK_Caps_Lock 0xFFE5 /* Caps lock */ -#define XK_Shift_Lock 0xFFE6 /* Shift lock */ - -#define XK_Meta_L 0xFFE7 /* Left meta */ -#define XK_Meta_R 0xFFE8 /* Right meta */ -#define XK_Alt_L 0xFFE9 /* Left alt */ -#define XK_Alt_R 0xFFEA /* Right alt */ -#define XK_Super_L 0xFFEB /* Left super */ -#define XK_Super_R 0xFFEC /* Right super */ -#define XK_Hyper_L 0xFFED /* Left hyper */ -#define XK_Hyper_R 0xFFEE /* Right hyper */ -#endif /* XK_MISCELLANY */ - -/* - * Latin 1 - * Byte 3 = 0 - */ -#ifdef XK_LATIN1 -#define XK_space 0x020 -#define XK_exclam 0x021 -#define XK_quotedbl 0x022 -#define XK_numbersign 0x023 -#define XK_dollar 0x024 -#define XK_percent 0x025 -#define XK_ampersand 0x026 -#define XK_apostrophe 0x027 -#define XK_quoteright 0x027 /* deprecated */ -#define XK_parenleft 0x028 -#define XK_parenright 0x029 -#define XK_asterisk 0x02a -#define XK_plus 0x02b -#define XK_comma 0x02c -#define XK_minus 0x02d -#define XK_period 0x02e -#define XK_slash 0x02f -#define XK_0 0x030 -#define XK_1 0x031 -#define XK_2 0x032 -#define XK_3 0x033 -#define XK_4 0x034 -#define XK_5 0x035 -#define XK_6 0x036 -#define XK_7 0x037 -#define XK_8 0x038 -#define XK_9 0x039 -#define XK_colon 0x03a -#define XK_semicolon 0x03b -#define XK_less 0x03c -#define XK_equal 0x03d -#define XK_greater 0x03e -#define XK_question 0x03f -#define XK_at 0x040 -#define XK_A 0x041 -#define XK_B 0x042 -#define XK_C 0x043 -#define XK_D 0x044 -#define XK_E 0x045 -#define XK_F 0x046 -#define XK_G 0x047 -#define XK_H 0x048 -#define XK_I 0x049 -#define XK_J 0x04a -#define XK_K 0x04b -#define XK_L 0x04c -#define XK_M 0x04d -#define XK_N 0x04e -#define XK_O 0x04f -#define XK_P 0x050 -#define XK_Q 0x051 -#define XK_R 0x052 -#define XK_S 0x053 -#define XK_T 0x054 -#define XK_U 0x055 -#define XK_V 0x056 -#define XK_W 0x057 -#define XK_X 0x058 -#define XK_Y 0x059 -#define XK_Z 0x05a -#define XK_bracketleft 0x05b -#define XK_backslash 0x05c -#define XK_bracketright 0x05d -#define XK_asciicircum 0x05e -#define XK_underscore 0x05f -#define XK_grave 0x060 -#define XK_quoteleft 0x060 /* deprecated */ -#define XK_a 0x061 -#define XK_b 0x062 -#define XK_c 0x063 -#define XK_d 0x064 -#define XK_e 0x065 -#define XK_f 0x066 -#define XK_g 0x067 -#define XK_h 0x068 -#define XK_i 0x069 -#define XK_j 0x06a -#define XK_k 0x06b -#define XK_l 0x06c -#define XK_m 0x06d -#define XK_n 0x06e -#define XK_o 0x06f -#define XK_p 0x070 -#define XK_q 0x071 -#define XK_r 0x072 -#define XK_s 0x073 -#define XK_t 0x074 -#define XK_u 0x075 -#define XK_v 0x076 -#define XK_w 0x077 -#define XK_x 0x078 -#define XK_y 0x079 -#define XK_z 0x07a -#define XK_braceleft 0x07b -#define XK_bar 0x07c -#define XK_braceright 0x07d -#define XK_asciitilde 0x07e - -#define XK_nobreakspace 0x0a0 -#define XK_exclamdown 0x0a1 -#define XK_cent 0x0a2 -#define XK_sterling 0x0a3 -#define XK_currency 0x0a4 -#define XK_yen 0x0a5 -#define XK_brokenbar 0x0a6 -#define XK_section 0x0a7 -#define XK_diaeresis 0x0a8 -#define XK_copyright 0x0a9 -#define XK_ordfeminine 0x0aa -#define XK_guillemotleft 0x0ab /* left angle quotation mark */ -#define XK_notsign 0x0ac -#define XK_hyphen 0x0ad -#define XK_registered 0x0ae -#define XK_macron 0x0af -#define XK_degree 0x0b0 -#define XK_plusminus 0x0b1 -#define XK_twosuperior 0x0b2 -#define XK_threesuperior 0x0b3 -#define XK_acute 0x0b4 -#define XK_mu 0x0b5 -#define XK_paragraph 0x0b6 -#define XK_periodcentered 0x0b7 -#define XK_cedilla 0x0b8 -#define XK_onesuperior 0x0b9 -#define XK_masculine 0x0ba -#define XK_guillemotright 0x0bb /* right angle quotation mark */ -#define XK_onequarter 0x0bc -#define XK_onehalf 0x0bd -#define XK_threequarters 0x0be -#define XK_questiondown 0x0bf -#define XK_Agrave 0x0c0 -#define XK_Aacute 0x0c1 -#define XK_Acircumflex 0x0c2 -#define XK_Atilde 0x0c3 -#define XK_Adiaeresis 0x0c4 -#define XK_Aring 0x0c5 -#define XK_AE 0x0c6 -#define XK_Ccedilla 0x0c7 -#define XK_Egrave 0x0c8 -#define XK_Eacute 0x0c9 -#define XK_Ecircumflex 0x0ca -#define XK_Ediaeresis 0x0cb -#define XK_Igrave 0x0cc -#define XK_Iacute 0x0cd -#define XK_Icircumflex 0x0ce -#define XK_Idiaeresis 0x0cf -#define XK_ETH 0x0d0 -#define XK_Eth 0x0d0 /* deprecated */ -#define XK_Ntilde 0x0d1 -#define XK_Ograve 0x0d2 -#define XK_Oacute 0x0d3 -#define XK_Ocircumflex 0x0d4 -#define XK_Otilde 0x0d5 -#define XK_Odiaeresis 0x0d6 -#define XK_multiply 0x0d7 -#define XK_Ooblique 0x0d8 -#define XK_Ugrave 0x0d9 -#define XK_Uacute 0x0da -#define XK_Ucircumflex 0x0db -#define XK_Udiaeresis 0x0dc -#define XK_Yacute 0x0dd -#define XK_THORN 0x0de -#define XK_Thorn 0x0de /* deprecated */ -#define XK_ssharp 0x0df -#define XK_agrave 0x0e0 -#define XK_aacute 0x0e1 -#define XK_acircumflex 0x0e2 -#define XK_atilde 0x0e3 -#define XK_adiaeresis 0x0e4 -#define XK_aring 0x0e5 -#define XK_ae 0x0e6 -#define XK_ccedilla 0x0e7 -#define XK_egrave 0x0e8 -#define XK_eacute 0x0e9 -#define XK_ecircumflex 0x0ea -#define XK_ediaeresis 0x0eb -#define XK_igrave 0x0ec -#define XK_iacute 0x0ed -#define XK_icircumflex 0x0ee -#define XK_idiaeresis 0x0ef -#define XK_eth 0x0f0 -#define XK_ntilde 0x0f1 -#define XK_ograve 0x0f2 -#define XK_oacute 0x0f3 -#define XK_ocircumflex 0x0f4 -#define XK_otilde 0x0f5 -#define XK_odiaeresis 0x0f6 -#define XK_division 0x0f7 -#define XK_oslash 0x0f8 -#define XK_ugrave 0x0f9 -#define XK_uacute 0x0fa -#define XK_ucircumflex 0x0fb -#define XK_udiaeresis 0x0fc -#define XK_yacute 0x0fd -#define XK_thorn 0x0fe -#define XK_ydiaeresis 0x0ff -#endif /* XK_LATIN1 */ - -/* - * Latin 2 - * Byte 3 = 1 - */ - -#ifdef XK_LATIN2 -#define XK_Aogonek 0x1a1 -#define XK_breve 0x1a2 -#define XK_Lstroke 0x1a3 -#define XK_Lcaron 0x1a5 -#define XK_Sacute 0x1a6 -#define XK_Scaron 0x1a9 -#define XK_Scedilla 0x1aa -#define XK_Tcaron 0x1ab -#define XK_Zacute 0x1ac -#define XK_Zcaron 0x1ae -#define XK_Zabovedot 0x1af -#define XK_aogonek 0x1b1 -#define XK_ogonek 0x1b2 -#define XK_lstroke 0x1b3 -#define XK_lcaron 0x1b5 -#define XK_sacute 0x1b6 -#define XK_caron 0x1b7 -#define XK_scaron 0x1b9 -#define XK_scedilla 0x1ba -#define XK_tcaron 0x1bb -#define XK_zacute 0x1bc -#define XK_doubleacute 0x1bd -#define XK_zcaron 0x1be -#define XK_zabovedot 0x1bf -#define XK_Racute 0x1c0 -#define XK_Abreve 0x1c3 -#define XK_Lacute 0x1c5 -#define XK_Cacute 0x1c6 -#define XK_Ccaron 0x1c8 -#define XK_Eogonek 0x1ca -#define XK_Ecaron 0x1cc -#define XK_Dcaron 0x1cf -#define XK_Dstroke 0x1d0 -#define XK_Nacute 0x1d1 -#define XK_Ncaron 0x1d2 -#define XK_Odoubleacute 0x1d5 -#define XK_Rcaron 0x1d8 -#define XK_Uring 0x1d9 -#define XK_Udoubleacute 0x1db -#define XK_Tcedilla 0x1de -#define XK_racute 0x1e0 -#define XK_abreve 0x1e3 -#define XK_lacute 0x1e5 -#define XK_cacute 0x1e6 -#define XK_ccaron 0x1e8 -#define XK_eogonek 0x1ea -#define XK_ecaron 0x1ec -#define XK_dcaron 0x1ef -#define XK_dstroke 0x1f0 -#define XK_nacute 0x1f1 -#define XK_ncaron 0x1f2 -#define XK_odoubleacute 0x1f5 -#define XK_udoubleacute 0x1fb -#define XK_rcaron 0x1f8 -#define XK_uring 0x1f9 -#define XK_tcedilla 0x1fe -#define XK_abovedot 0x1ff -#endif /* XK_LATIN2 */ - -/* - * Latin 3 - * Byte 3 = 2 - */ - -#ifdef XK_LATIN3 -#define XK_Hstroke 0x2a1 -#define XK_Hcircumflex 0x2a6 -#define XK_Iabovedot 0x2a9 -#define XK_Gbreve 0x2ab -#define XK_Jcircumflex 0x2ac -#define XK_hstroke 0x2b1 -#define XK_hcircumflex 0x2b6 -#define XK_idotless 0x2b9 -#define XK_gbreve 0x2bb -#define XK_jcircumflex 0x2bc -#define XK_Cabovedot 0x2c5 -#define XK_Ccircumflex 0x2c6 -#define XK_Gabovedot 0x2d5 -#define XK_Gcircumflex 0x2d8 -#define XK_Ubreve 0x2dd -#define XK_Scircumflex 0x2de -#define XK_cabovedot 0x2e5 -#define XK_ccircumflex 0x2e6 -#define XK_gabovedot 0x2f5 -#define XK_gcircumflex 0x2f8 -#define XK_ubreve 0x2fd -#define XK_scircumflex 0x2fe -#endif /* XK_LATIN3 */ - - -/* - * Latin 4 - * Byte 3 = 3 - */ - -#ifdef XK_LATIN4 -#define XK_kra 0x3a2 -#define XK_kappa 0x3a2 /* deprecated */ -#define XK_Rcedilla 0x3a3 -#define XK_Itilde 0x3a5 -#define XK_Lcedilla 0x3a6 -#define XK_Emacron 0x3aa -#define XK_Gcedilla 0x3ab -#define XK_Tslash 0x3ac -#define XK_rcedilla 0x3b3 -#define XK_itilde 0x3b5 -#define XK_lcedilla 0x3b6 -#define XK_emacron 0x3ba -#define XK_gcedilla 0x3bb -#define XK_tslash 0x3bc -#define XK_ENG 0x3bd -#define XK_eng 0x3bf -#define XK_Amacron 0x3c0 -#define XK_Iogonek 0x3c7 -#define XK_Eabovedot 0x3cc -#define XK_Imacron 0x3cf -#define XK_Ncedilla 0x3d1 -#define XK_Omacron 0x3d2 -#define XK_Kcedilla 0x3d3 -#define XK_Uogonek 0x3d9 -#define XK_Utilde 0x3dd -#define XK_Umacron 0x3de -#define XK_amacron 0x3e0 -#define XK_iogonek 0x3e7 -#define XK_eabovedot 0x3ec -#define XK_imacron 0x3ef -#define XK_ncedilla 0x3f1 -#define XK_omacron 0x3f2 -#define XK_kcedilla 0x3f3 -#define XK_uogonek 0x3f9 -#define XK_utilde 0x3fd -#define XK_umacron 0x3fe -#endif /* XK_LATIN4 */ - -/* - * Katakana - * Byte 3 = 4 - */ - -#ifdef XK_KATAKANA -#define XK_overline 0x47e -#define XK_kana_fullstop 0x4a1 -#define XK_kana_openingbracket 0x4a2 -#define XK_kana_closingbracket 0x4a3 -#define XK_kana_comma 0x4a4 -#define XK_kana_conjunctive 0x4a5 -#define XK_kana_middledot 0x4a5 /* deprecated */ -#define XK_kana_WO 0x4a6 -#define XK_kana_a 0x4a7 -#define XK_kana_i 0x4a8 -#define XK_kana_u 0x4a9 -#define XK_kana_e 0x4aa -#define XK_kana_o 0x4ab -#define XK_kana_ya 0x4ac -#define XK_kana_yu 0x4ad -#define XK_kana_yo 0x4ae -#define XK_kana_tsu 0x4af -#define XK_kana_tu 0x4af /* deprecated */ -#define XK_prolongedsound 0x4b0 -#define XK_kana_A 0x4b1 -#define XK_kana_I 0x4b2 -#define XK_kana_U 0x4b3 -#define XK_kana_E 0x4b4 -#define XK_kana_O 0x4b5 -#define XK_kana_KA 0x4b6 -#define XK_kana_KI 0x4b7 -#define XK_kana_KU 0x4b8 -#define XK_kana_KE 0x4b9 -#define XK_kana_KO 0x4ba -#define XK_kana_SA 0x4bb -#define XK_kana_SHI 0x4bc -#define XK_kana_SU 0x4bd -#define XK_kana_SE 0x4be -#define XK_kana_SO 0x4bf -#define XK_kana_TA 0x4c0 -#define XK_kana_CHI 0x4c1 -#define XK_kana_TI 0x4c1 /* deprecated */ -#define XK_kana_TSU 0x4c2 -#define XK_kana_TU 0x4c2 /* deprecated */ -#define XK_kana_TE 0x4c3 -#define XK_kana_TO 0x4c4 -#define XK_kana_NA 0x4c5 -#define XK_kana_NI 0x4c6 -#define XK_kana_NU 0x4c7 -#define XK_kana_NE 0x4c8 -#define XK_kana_NO 0x4c9 -#define XK_kana_HA 0x4ca -#define XK_kana_HI 0x4cb -#define XK_kana_FU 0x4cc -#define XK_kana_HU 0x4cc /* deprecated */ -#define XK_kana_HE 0x4cd -#define XK_kana_HO 0x4ce -#define XK_kana_MA 0x4cf -#define XK_kana_MI 0x4d0 -#define XK_kana_MU 0x4d1 -#define XK_kana_ME 0x4d2 -#define XK_kana_MO 0x4d3 -#define XK_kana_YA 0x4d4 -#define XK_kana_YU 0x4d5 -#define XK_kana_YO 0x4d6 -#define XK_kana_RA 0x4d7 -#define XK_kana_RI 0x4d8 -#define XK_kana_RU 0x4d9 -#define XK_kana_RE 0x4da -#define XK_kana_RO 0x4db -#define XK_kana_WA 0x4dc -#define XK_kana_N 0x4dd -#define XK_voicedsound 0x4de -#define XK_semivoicedsound 0x4df -#define XK_kana_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_KATAKANA */ - -/* - * Arabic - * Byte 3 = 5 - */ - -#ifdef XK_ARABIC -#define XK_Arabic_comma 0x5ac -#define XK_Arabic_semicolon 0x5bb -#define XK_Arabic_question_mark 0x5bf -#define XK_Arabic_hamza 0x5c1 -#define XK_Arabic_maddaonalef 0x5c2 -#define XK_Arabic_hamzaonalef 0x5c3 -#define XK_Arabic_hamzaonwaw 0x5c4 -#define XK_Arabic_hamzaunderalef 0x5c5 -#define XK_Arabic_hamzaonyeh 0x5c6 -#define XK_Arabic_alef 0x5c7 -#define XK_Arabic_beh 0x5c8 -#define XK_Arabic_tehmarbuta 0x5c9 -#define XK_Arabic_teh 0x5ca -#define XK_Arabic_theh 0x5cb -#define XK_Arabic_jeem 0x5cc -#define XK_Arabic_hah 0x5cd -#define XK_Arabic_khah 0x5ce -#define XK_Arabic_dal 0x5cf -#define XK_Arabic_thal 0x5d0 -#define XK_Arabic_ra 0x5d1 -#define XK_Arabic_zain 0x5d2 -#define XK_Arabic_seen 0x5d3 -#define XK_Arabic_sheen 0x5d4 -#define XK_Arabic_sad 0x5d5 -#define XK_Arabic_dad 0x5d6 -#define XK_Arabic_tah 0x5d7 -#define XK_Arabic_zah 0x5d8 -#define XK_Arabic_ain 0x5d9 -#define XK_Arabic_ghain 0x5da -#define XK_Arabic_tatweel 0x5e0 -#define XK_Arabic_feh 0x5e1 -#define XK_Arabic_qaf 0x5e2 -#define XK_Arabic_kaf 0x5e3 -#define XK_Arabic_lam 0x5e4 -#define XK_Arabic_meem 0x5e5 -#define XK_Arabic_noon 0x5e6 -#define XK_Arabic_ha 0x5e7 -#define XK_Arabic_heh 0x5e7 /* deprecated */ -#define XK_Arabic_waw 0x5e8 -#define XK_Arabic_alefmaksura 0x5e9 -#define XK_Arabic_yeh 0x5ea -#define XK_Arabic_fathatan 0x5eb -#define XK_Arabic_dammatan 0x5ec -#define XK_Arabic_kasratan 0x5ed -#define XK_Arabic_fatha 0x5ee -#define XK_Arabic_damma 0x5ef -#define XK_Arabic_kasra 0x5f0 -#define XK_Arabic_shadda 0x5f1 -#define XK_Arabic_sukun 0x5f2 -#define XK_Arabic_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_ARABIC */ - -/* - * Cyrillic - * Byte 3 = 6 - */ -#ifdef XK_CYRILLIC -#define XK_Serbian_dje 0x6a1 -#define XK_Macedonia_gje 0x6a2 -#define XK_Cyrillic_io 0x6a3 -#define XK_Ukrainian_ie 0x6a4 -#define XK_Ukranian_je 0x6a4 /* deprecated */ -#define XK_Macedonia_dse 0x6a5 -#define XK_Ukrainian_i 0x6a6 -#define XK_Ukranian_i 0x6a6 /* deprecated */ -#define XK_Ukrainian_yi 0x6a7 -#define XK_Ukranian_yi 0x6a7 /* deprecated */ -#define XK_Cyrillic_je 0x6a8 -#define XK_Serbian_je 0x6a8 /* deprecated */ -#define XK_Cyrillic_lje 0x6a9 -#define XK_Serbian_lje 0x6a9 /* deprecated */ -#define XK_Cyrillic_nje 0x6aa -#define XK_Serbian_nje 0x6aa /* deprecated */ -#define XK_Serbian_tshe 0x6ab -#define XK_Macedonia_kje 0x6ac -#define XK_Byelorussian_shortu 0x6ae -#define XK_Cyrillic_dzhe 0x6af -#define XK_Serbian_dze 0x6af /* deprecated */ -#define XK_numerosign 0x6b0 -#define XK_Serbian_DJE 0x6b1 -#define XK_Macedonia_GJE 0x6b2 -#define XK_Cyrillic_IO 0x6b3 -#define XK_Ukrainian_IE 0x6b4 -#define XK_Ukranian_JE 0x6b4 /* deprecated */ -#define XK_Macedonia_DSE 0x6b5 -#define XK_Ukrainian_I 0x6b6 -#define XK_Ukranian_I 0x6b6 /* deprecated */ -#define XK_Ukrainian_YI 0x6b7 -#define XK_Ukranian_YI 0x6b7 /* deprecated */ -#define XK_Cyrillic_JE 0x6b8 -#define XK_Serbian_JE 0x6b8 /* deprecated */ -#define XK_Cyrillic_LJE 0x6b9 -#define XK_Serbian_LJE 0x6b9 /* deprecated */ -#define XK_Cyrillic_NJE 0x6ba -#define XK_Serbian_NJE 0x6ba /* deprecated */ -#define XK_Serbian_TSHE 0x6bb -#define XK_Macedonia_KJE 0x6bc -#define XK_Byelorussian_SHORTU 0x6be -#define XK_Cyrillic_DZHE 0x6bf -#define XK_Serbian_DZE 0x6bf /* deprecated */ -#define XK_Cyrillic_yu 0x6c0 -#define XK_Cyrillic_a 0x6c1 -#define XK_Cyrillic_be 0x6c2 -#define XK_Cyrillic_tse 0x6c3 -#define XK_Cyrillic_de 0x6c4 -#define XK_Cyrillic_ie 0x6c5 -#define XK_Cyrillic_ef 0x6c6 -#define XK_Cyrillic_ghe 0x6c7 -#define XK_Cyrillic_ha 0x6c8 -#define XK_Cyrillic_i 0x6c9 -#define XK_Cyrillic_shorti 0x6ca -#define XK_Cyrillic_ka 0x6cb -#define XK_Cyrillic_el 0x6cc -#define XK_Cyrillic_em 0x6cd -#define XK_Cyrillic_en 0x6ce -#define XK_Cyrillic_o 0x6cf -#define XK_Cyrillic_pe 0x6d0 -#define XK_Cyrillic_ya 0x6d1 -#define XK_Cyrillic_er 0x6d2 -#define XK_Cyrillic_es 0x6d3 -#define XK_Cyrillic_te 0x6d4 -#define XK_Cyrillic_u 0x6d5 -#define XK_Cyrillic_zhe 0x6d6 -#define XK_Cyrillic_ve 0x6d7 -#define XK_Cyrillic_softsign 0x6d8 -#define XK_Cyrillic_yeru 0x6d9 -#define XK_Cyrillic_ze 0x6da -#define XK_Cyrillic_sha 0x6db -#define XK_Cyrillic_e 0x6dc -#define XK_Cyrillic_shcha 0x6dd -#define XK_Cyrillic_che 0x6de -#define XK_Cyrillic_hardsign 0x6df -#define XK_Cyrillic_YU 0x6e0 -#define XK_Cyrillic_A 0x6e1 -#define XK_Cyrillic_BE 0x6e2 -#define XK_Cyrillic_TSE 0x6e3 -#define XK_Cyrillic_DE 0x6e4 -#define XK_Cyrillic_IE 0x6e5 -#define XK_Cyrillic_EF 0x6e6 -#define XK_Cyrillic_GHE 0x6e7 -#define XK_Cyrillic_HA 0x6e8 -#define XK_Cyrillic_I 0x6e9 -#define XK_Cyrillic_SHORTI 0x6ea -#define XK_Cyrillic_KA 0x6eb -#define XK_Cyrillic_EL 0x6ec -#define XK_Cyrillic_EM 0x6ed -#define XK_Cyrillic_EN 0x6ee -#define XK_Cyrillic_O 0x6ef -#define XK_Cyrillic_PE 0x6f0 -#define XK_Cyrillic_YA 0x6f1 -#define XK_Cyrillic_ER 0x6f2 -#define XK_Cyrillic_ES 0x6f3 -#define XK_Cyrillic_TE 0x6f4 -#define XK_Cyrillic_U 0x6f5 -#define XK_Cyrillic_ZHE 0x6f6 -#define XK_Cyrillic_VE 0x6f7 -#define XK_Cyrillic_SOFTSIGN 0x6f8 -#define XK_Cyrillic_YERU 0x6f9 -#define XK_Cyrillic_ZE 0x6fa -#define XK_Cyrillic_SHA 0x6fb -#define XK_Cyrillic_E 0x6fc -#define XK_Cyrillic_SHCHA 0x6fd -#define XK_Cyrillic_CHE 0x6fe -#define XK_Cyrillic_HARDSIGN 0x6ff -#endif /* XK_CYRILLIC */ - -/* - * Greek - * Byte 3 = 7 - */ - -#ifdef XK_GREEK -#define XK_Greek_ALPHAaccent 0x7a1 -#define XK_Greek_EPSILONaccent 0x7a2 -#define XK_Greek_ETAaccent 0x7a3 -#define XK_Greek_IOTAaccent 0x7a4 -#define XK_Greek_IOTAdiaeresis 0x7a5 -#define XK_Greek_OMICRONaccent 0x7a7 -#define XK_Greek_UPSILONaccent 0x7a8 -#define XK_Greek_UPSILONdieresis 0x7a9 -#define XK_Greek_OMEGAaccent 0x7ab -#define XK_Greek_accentdieresis 0x7ae -#define XK_Greek_horizbar 0x7af -#define XK_Greek_alphaaccent 0x7b1 -#define XK_Greek_epsilonaccent 0x7b2 -#define XK_Greek_etaaccent 0x7b3 -#define XK_Greek_iotaaccent 0x7b4 -#define XK_Greek_iotadieresis 0x7b5 -#define XK_Greek_iotaaccentdieresis 0x7b6 -#define XK_Greek_omicronaccent 0x7b7 -#define XK_Greek_upsilonaccent 0x7b8 -#define XK_Greek_upsilondieresis 0x7b9 -#define XK_Greek_upsilonaccentdieresis 0x7ba -#define XK_Greek_omegaaccent 0x7bb -#define XK_Greek_ALPHA 0x7c1 -#define XK_Greek_BETA 0x7c2 -#define XK_Greek_GAMMA 0x7c3 -#define XK_Greek_DELTA 0x7c4 -#define XK_Greek_EPSILON 0x7c5 -#define XK_Greek_ZETA 0x7c6 -#define XK_Greek_ETA 0x7c7 -#define XK_Greek_THETA 0x7c8 -#define XK_Greek_IOTA 0x7c9 -#define XK_Greek_KAPPA 0x7ca -#define XK_Greek_LAMDA 0x7cb -#define XK_Greek_LAMBDA 0x7cb -#define XK_Greek_MU 0x7cc -#define XK_Greek_NU 0x7cd -#define XK_Greek_XI 0x7ce -#define XK_Greek_OMICRON 0x7cf -#define XK_Greek_PI 0x7d0 -#define XK_Greek_RHO 0x7d1 -#define XK_Greek_SIGMA 0x7d2 -#define XK_Greek_TAU 0x7d4 -#define XK_Greek_UPSILON 0x7d5 -#define XK_Greek_PHI 0x7d6 -#define XK_Greek_CHI 0x7d7 -#define XK_Greek_PSI 0x7d8 -#define XK_Greek_OMEGA 0x7d9 -#define XK_Greek_alpha 0x7e1 -#define XK_Greek_beta 0x7e2 -#define XK_Greek_gamma 0x7e3 -#define XK_Greek_delta 0x7e4 -#define XK_Greek_epsilon 0x7e5 -#define XK_Greek_zeta 0x7e6 -#define XK_Greek_eta 0x7e7 -#define XK_Greek_theta 0x7e8 -#define XK_Greek_iota 0x7e9 -#define XK_Greek_kappa 0x7ea -#define XK_Greek_lamda 0x7eb -#define XK_Greek_lambda 0x7eb -#define XK_Greek_mu 0x7ec -#define XK_Greek_nu 0x7ed -#define XK_Greek_xi 0x7ee -#define XK_Greek_omicron 0x7ef -#define XK_Greek_pi 0x7f0 -#define XK_Greek_rho 0x7f1 -#define XK_Greek_sigma 0x7f2 -#define XK_Greek_finalsmallsigma 0x7f3 -#define XK_Greek_tau 0x7f4 -#define XK_Greek_upsilon 0x7f5 -#define XK_Greek_phi 0x7f6 -#define XK_Greek_chi 0x7f7 -#define XK_Greek_psi 0x7f8 -#define XK_Greek_omega 0x7f9 -#define XK_Greek_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_GREEK */ - -/* - * Technical - * Byte 3 = 8 - */ - -#ifdef XK_TECHNICAL -#define XK_leftradical 0x8a1 -#define XK_topleftradical 0x8a2 -#define XK_horizconnector 0x8a3 -#define XK_topintegral 0x8a4 -#define XK_botintegral 0x8a5 -#define XK_vertconnector 0x8a6 -#define XK_topleftsqbracket 0x8a7 -#define XK_botleftsqbracket 0x8a8 -#define XK_toprightsqbracket 0x8a9 -#define XK_botrightsqbracket 0x8aa -#define XK_topleftparens 0x8ab -#define XK_botleftparens 0x8ac -#define XK_toprightparens 0x8ad -#define XK_botrightparens 0x8ae -#define XK_leftmiddlecurlybrace 0x8af -#define XK_rightmiddlecurlybrace 0x8b0 -#define XK_topleftsummation 0x8b1 -#define XK_botleftsummation 0x8b2 -#define XK_topvertsummationconnector 0x8b3 -#define XK_botvertsummationconnector 0x8b4 -#define XK_toprightsummation 0x8b5 -#define XK_botrightsummation 0x8b6 -#define XK_rightmiddlesummation 0x8b7 -#define XK_lessthanequal 0x8bc -#define XK_notequal 0x8bd -#define XK_greaterthanequal 0x8be -#define XK_integral 0x8bf -#define XK_therefore 0x8c0 -#define XK_variation 0x8c1 -#define XK_infinity 0x8c2 -#define XK_nabla 0x8c5 -#define XK_approximate 0x8c8 -#define XK_similarequal 0x8c9 -#define XK_ifonlyif 0x8cd -#define XK_implies 0x8ce -#define XK_identical 0x8cf -#define XK_radical 0x8d6 -#define XK_includedin 0x8da -#define XK_includes 0x8db -#define XK_intersection 0x8dc -#define XK_union 0x8dd -#define XK_logicaland 0x8de -#define XK_logicalor 0x8df -#define XK_partialderivative 0x8ef -#define XK_function 0x8f6 -#define XK_leftarrow 0x8fb -#define XK_uparrow 0x8fc -#define XK_rightarrow 0x8fd -#define XK_downarrow 0x8fe -#endif /* XK_TECHNICAL */ - -/* - * Special - * Byte 3 = 9 - */ - -#ifdef XK_SPECIAL -#define XK_blank 0x9df -#define XK_soliddiamond 0x9e0 -#define XK_checkerboard 0x9e1 -#define XK_ht 0x9e2 -#define XK_ff 0x9e3 -#define XK_cr 0x9e4 -#define XK_lf 0x9e5 -#define XK_nl 0x9e8 -#define XK_vt 0x9e9 -#define XK_lowrightcorner 0x9ea -#define XK_uprightcorner 0x9eb -#define XK_upleftcorner 0x9ec -#define XK_lowleftcorner 0x9ed -#define XK_crossinglines 0x9ee -#define XK_horizlinescan1 0x9ef -#define XK_horizlinescan3 0x9f0 -#define XK_horizlinescan5 0x9f1 -#define XK_horizlinescan7 0x9f2 -#define XK_horizlinescan9 0x9f3 -#define XK_leftt 0x9f4 -#define XK_rightt 0x9f5 -#define XK_bott 0x9f6 -#define XK_topt 0x9f7 -#define XK_vertbar 0x9f8 -#endif /* XK_SPECIAL */ - -/* - * Publishing - * Byte 3 = a - */ - -#ifdef XK_PUBLISHING -#define XK_emspace 0xaa1 -#define XK_enspace 0xaa2 -#define XK_em3space 0xaa3 -#define XK_em4space 0xaa4 -#define XK_digitspace 0xaa5 -#define XK_punctspace 0xaa6 -#define XK_thinspace 0xaa7 -#define XK_hairspace 0xaa8 -#define XK_emdash 0xaa9 -#define XK_endash 0xaaa -#define XK_signifblank 0xaac -#define XK_ellipsis 0xaae -#define XK_doubbaselinedot 0xaaf -#define XK_onethird 0xab0 -#define XK_twothirds 0xab1 -#define XK_onefifth 0xab2 -#define XK_twofifths 0xab3 -#define XK_threefifths 0xab4 -#define XK_fourfifths 0xab5 -#define XK_onesixth 0xab6 -#define XK_fivesixths 0xab7 -#define XK_careof 0xab8 -#define XK_figdash 0xabb -#define XK_leftanglebracket 0xabc -#define XK_decimalpoint 0xabd -#define XK_rightanglebracket 0xabe -#define XK_marker 0xabf -#define XK_oneeighth 0xac3 -#define XK_threeeighths 0xac4 -#define XK_fiveeighths 0xac5 -#define XK_seveneighths 0xac6 -#define XK_trademark 0xac9 -#define XK_signaturemark 0xaca -#define XK_trademarkincircle 0xacb -#define XK_leftopentriangle 0xacc -#define XK_rightopentriangle 0xacd -#define XK_emopencircle 0xace -#define XK_emopenrectangle 0xacf -#define XK_leftsinglequotemark 0xad0 -#define XK_rightsinglequotemark 0xad1 -#define XK_leftdoublequotemark 0xad2 -#define XK_rightdoublequotemark 0xad3 -#define XK_prescription 0xad4 -#define XK_minutes 0xad6 -#define XK_seconds 0xad7 -#define XK_latincross 0xad9 -#define XK_hexagram 0xada -#define XK_filledrectbullet 0xadb -#define XK_filledlefttribullet 0xadc -#define XK_filledrighttribullet 0xadd -#define XK_emfilledcircle 0xade -#define XK_emfilledrect 0xadf -#define XK_enopencircbullet 0xae0 -#define XK_enopensquarebullet 0xae1 -#define XK_openrectbullet 0xae2 -#define XK_opentribulletup 0xae3 -#define XK_opentribulletdown 0xae4 -#define XK_openstar 0xae5 -#define XK_enfilledcircbullet 0xae6 -#define XK_enfilledsqbullet 0xae7 -#define XK_filledtribulletup 0xae8 -#define XK_filledtribulletdown 0xae9 -#define XK_leftpointer 0xaea -#define XK_rightpointer 0xaeb -#define XK_club 0xaec -#define XK_diamond 0xaed -#define XK_heart 0xaee -#define XK_maltesecross 0xaf0 -#define XK_dagger 0xaf1 -#define XK_doubledagger 0xaf2 -#define XK_checkmark 0xaf3 -#define XK_ballotcross 0xaf4 -#define XK_musicalsharp 0xaf5 -#define XK_musicalflat 0xaf6 -#define XK_malesymbol 0xaf7 -#define XK_femalesymbol 0xaf8 -#define XK_telephone 0xaf9 -#define XK_telephonerecorder 0xafa -#define XK_phonographcopyright 0xafb -#define XK_caret 0xafc -#define XK_singlelowquotemark 0xafd -#define XK_doublelowquotemark 0xafe -#define XK_cursor 0xaff -#endif /* XK_PUBLISHING */ - -/* - * APL - * Byte 3 = b - */ - -#ifdef XK_APL -#define XK_leftcaret 0xba3 -#define XK_rightcaret 0xba6 -#define XK_downcaret 0xba8 -#define XK_upcaret 0xba9 -#define XK_overbar 0xbc0 -#define XK_downtack 0xbc2 -#define XK_upshoe 0xbc3 -#define XK_downstile 0xbc4 -#define XK_underbar 0xbc6 -#define XK_jot 0xbca -#define XK_quad 0xbcc -#define XK_uptack 0xbce -#define XK_circle 0xbcf -#define XK_upstile 0xbd3 -#define XK_downshoe 0xbd6 -#define XK_rightshoe 0xbd8 -#define XK_leftshoe 0xbda -#define XK_lefttack 0xbdc -#define XK_righttack 0xbfc -#endif /* XK_APL */ - -/* - * Hebrew - * Byte 3 = c - */ - -#ifdef XK_HEBREW -#define XK_hebrew_doublelowline 0xcdf -#define XK_hebrew_aleph 0xce0 -#define XK_hebrew_bet 0xce1 -#define XK_hebrew_beth 0xce1 /* deprecated */ -#define XK_hebrew_gimel 0xce2 -#define XK_hebrew_gimmel 0xce2 /* deprecated */ -#define XK_hebrew_dalet 0xce3 -#define XK_hebrew_daleth 0xce3 /* deprecated */ -#define XK_hebrew_he 0xce4 -#define XK_hebrew_waw 0xce5 -#define XK_hebrew_zain 0xce6 -#define XK_hebrew_zayin 0xce6 /* deprecated */ -#define XK_hebrew_chet 0xce7 -#define XK_hebrew_het 0xce7 /* deprecated */ -#define XK_hebrew_tet 0xce8 -#define XK_hebrew_teth 0xce8 /* deprecated */ -#define XK_hebrew_yod 0xce9 -#define XK_hebrew_finalkaph 0xcea -#define XK_hebrew_kaph 0xceb -#define XK_hebrew_lamed 0xcec -#define XK_hebrew_finalmem 0xced -#define XK_hebrew_mem 0xcee -#define XK_hebrew_finalnun 0xcef -#define XK_hebrew_nun 0xcf0 -#define XK_hebrew_samech 0xcf1 -#define XK_hebrew_samekh 0xcf1 /* deprecated */ -#define XK_hebrew_ayin 0xcf2 -#define XK_hebrew_finalpe 0xcf3 -#define XK_hebrew_pe 0xcf4 -#define XK_hebrew_finalzade 0xcf5 -#define XK_hebrew_finalzadi 0xcf5 /* deprecated */ -#define XK_hebrew_zade 0xcf6 -#define XK_hebrew_zadi 0xcf6 /* deprecated */ -#define XK_hebrew_qoph 0xcf7 -#define XK_hebrew_kuf 0xcf7 /* deprecated */ -#define XK_hebrew_resh 0xcf8 -#define XK_hebrew_shin 0xcf9 -#define XK_hebrew_taw 0xcfa -#define XK_hebrew_taf 0xcfa /* deprecated */ -#define XK_Hebrew_switch 0xFF7E /* Alias for mode_switch */ -#endif /* XK_HEBREW */ - diff --git a/mingw/include/jpegtcl.h b/mingw/include/jpegtcl.h deleted file mode 100644 index d959183399..0000000000 --- a/mingw/include/jpegtcl.h +++ /dev/null @@ -1,158 +0,0 @@ -/* - * jpegtcl.h -- - * - * Interface to libjpeg. - * - * Copyright (c) 2002 Andreas Kupries - * - * Zveno Pty Ltd makes this software and associated documentation - * available free of charge for any purpose. You may make copies - * of the software but you must include all of this notice on any copy. - * - * Zveno Pty Ltd does not warrant that this software is error free - * or fit for any purpose. Zveno Pty Ltd disclaims any liability for - * all claims, expenses, losses, damages and costs any user may incur - * as a result of using, copying or modifying the software. - * - * $Id: jpegtcl.h,v 1.3 2004/06/03 21:54:43 andreas_kupries Exp $ - * - */ - -#ifndef __JPEGTCL_H__ -#define __JPEGTCL_H__ - -#include -#include "tcl.h" - -#define JPEGTCL_MAJOR_VERSION 1 -#define JPEGTCL_MINOR_VERSION 0 -#define JPEGTCL_RELEASE_LEVEL TCL_RELEASE -#define JPEGTCL_RELEASE_SERIAL 0 - -#define JPEGTCL_VERSION "1.0" -#define JPEGTCL_PATCH_LEVEL "1.0" - -/* - * Used to block the rest of this header file from resource compilers so - * we can just get the version info. - */ -#ifndef RC_INVOKED - -/* TIP 27 update. If CONST84 is not defined we are compiling against a - * core before 8.4 and have to disable some CONST'ness. - */ - -#ifndef CONST84 -# define CONST84 -#endif - -/* - * Fix the Borland bug that's in the EXTERN macro from tcl.h. - */ -#ifndef TCL_EXTERN -# undef DLLIMPORT -# undef DLLEXPORT -# if defined(STATIC_BUILD) -# define DLLIMPORT -# define DLLEXPORT -# elif (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) || (defined(__GNUC__) && defined(__declspec)))) || (defined(MAC_TCL) && FUNCTION_DECLSPEC) -# define DLLIMPORT __declspec(dllimport) -# define DLLEXPORT __declspec(dllexport) -# elif defined(__BORLANDC__) -# define OLDBORLAND 1 -# define DLLIMPORT __import -# define DLLEXPORT __export -# else -# define DLLIMPORT -# define DLLEXPORT -# endif - /* Avoid name mangling from C++ compilers. */ -# ifdef __cplusplus -# define TCL_EXTRNC extern "C" -# else -# define TCL_EXTRNC extern -# endif - /* Pre-5.5 Borland requires the attributes be placed after the */ - /* return type. */ -# ifdef OLDBORLAND -# define TCL_EXTERN(RTYPE) TCL_EXTRNC RTYPE TCL_STORAGE_CLASS -# else -# define TCL_EXTERN(RTYPE) TCL_EXTRNC TCL_STORAGE_CLASS RTYPE -# endif -#endif - - - -/* - * These macros are used to control whether functions are being declared for - * import or export in Windows, - * They map to no-op declarations on non-Windows systems. - * Assumes that tcl.h defines DLLEXPORT & DLLIMPORT correctly. - * The default build on windows is for a DLL, which causes the DLLIMPORT - * and DLLEXPORT macros to be nonempty. To build a static library, the - * macro STATIC_BUILD should be defined before the inclusion of tcl.h - * - * If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the - * name of a library we are building, is set on the compile line for sources - * that are to be placed in the library. When this macro is set, the - * storage class will be set to DLLEXPORT. At the end of the header file, the - * storage class will be reset to DLLIMPORt. - */ - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_jpegtcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_JPEGTCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - *---------------------------------------------------------------------------- - * C API for Jpegtcl generic layer - *---------------------------------------------------------------------------- - */ - -/* - *---------------------------------------------------------------------------- - * Function prototypes for publically accessible routines - *---------------------------------------------------------------------------- - */ - -#include "jpegtclDecls.h" - -/* - *---------------------------------------------------------------------------- - * Function prototypes for stub initialization. - *---------------------------------------------------------------------------- - */ - -#ifdef USE_JPEGTCL_STUBS -EXTERN CONST char * -Jpegtcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, CONST char *version, int exact)); -#else - -/* - * When not using stubs, make it a macro. - */ - -#define Jpegtcl_InitStubs(interp, version, exact) \ - Tcl_PkgRequire(interp, "jpegtcl", version, exact) -#endif - - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ -#endif /* __JPEGTCL_H__ */ diff --git a/mingw/include/jpegtclDecls.h b/mingw/include/jpegtclDecls.h deleted file mode 100644 index cf7d5e81bf..0000000000 --- a/mingw/include/jpegtclDecls.h +++ /dev/null @@ -1,468 +0,0 @@ -/* - * jpegtclDecls.h -- - * - * Declarations of functions in the platform independent public JPEGTCL API. - * - */ - -#ifndef _JPEGTCLDECLS -#define _JPEGTCLDECLS - -/* - * WARNING: The contents of this file is automatically generated by the - * genStubs.tcl script. Any modifications to the function declarations - * below should be made in the jpegtcl.decls script. - */ - -#include - -/* undef Tcl macros that conflict with libjpeg stuff (sigh) */ -#undef EXTERN - -#include -#include <../jpeglib.h> -#include <../jerror.h> -#include - -/* - * And recreate the definition of "tcl.h", we need it below. - */ - -#undef EXTERN -#ifdef __cplusplus -# define EXTERN extern "C" TCL_STORAGE_CLASS -#else -# define EXTERN extern TCL_STORAGE_CLASS -#endif - - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN struct jpeg_error_mgr * jpeg_std_error _ANSI_ARGS_(( - struct jpeg_error_mgr * err)); -/* 1 */ -EXTERN void jpeg_CreateCompress _ANSI_ARGS_(( - j_compress_ptr cinfo, int version, - size_t structsize)); -/* 2 */ -EXTERN void jpeg_CreateDecompress _ANSI_ARGS_(( - j_decompress_ptr cinfo, int version, - size_t structsize)); -/* 3 */ -EXTERN void jpeg_destroy_compress _ANSI_ARGS_(( - j_compress_ptr cinfo)); -/* 4 */ -EXTERN void jpeg_destroy_decompress _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 5 */ -EXTERN void jpeg_stdio_dest _ANSI_ARGS_((j_compress_ptr cinfo, - FILE * outfile)); -/* 6 */ -EXTERN void jpeg_stdio_src _ANSI_ARGS_((j_decompress_ptr cinfo, - FILE * infile)); -/* 7 */ -EXTERN void jpeg_set_defaults _ANSI_ARGS_((j_compress_ptr cinfo)); -/* 8 */ -EXTERN void jpeg_set_colorspace _ANSI_ARGS_(( - j_compress_ptr cinfo, - J_COLOR_SPACE colorspace)); -/* 9 */ -EXTERN void jpeg_default_colorspace _ANSI_ARGS_(( - j_compress_ptr cinfo)); -/* 10 */ -EXTERN void jpeg_set_quality _ANSI_ARGS_((j_compress_ptr cinfo, - int quality, boolean force_baseline)); -/* 11 */ -EXTERN void jpeg_set_linear_quality _ANSI_ARGS_(( - j_compress_ptr cinfo, int scale_factor, - boolean force_baseline)); -/* 12 */ -EXTERN void jpeg_add_quant_table _ANSI_ARGS_(( - j_compress_ptr cinfo, int which_tbl, - const unsigned int * basic_table, - int scale_factor, boolean force_baseline)); -/* 13 */ -EXTERN int jpeg_quality_scaling _ANSI_ARGS_((int quality)); -/* 14 */ -EXTERN void jpeg_simple_progression _ANSI_ARGS_(( - j_compress_ptr cinfo)); -/* 15 */ -EXTERN void jpeg_suppress_tables _ANSI_ARGS_(( - j_compress_ptr cinfo, boolean suppress)); -/* 16 */ -EXTERN JQUANT_TBL * jpeg_alloc_quant_table _ANSI_ARGS_(( - j_common_ptr cinfo)); -/* 17 */ -EXTERN JHUFF_TBL * jpeg_alloc_huff_table _ANSI_ARGS_(( - j_common_ptr cinfo)); -/* 18 */ -EXTERN void jpeg_start_compress _ANSI_ARGS_(( - j_compress_ptr cinfo, - boolean write_all_tables)); -/* 19 */ -EXTERN JDIMENSION jpeg_write_scanlines _ANSI_ARGS_(( - j_compress_ptr cinfo, JSAMPARRAY scanlines, - JDIMENSION num_lines)); -/* 20 */ -EXTERN void jpeg_finish_compress _ANSI_ARGS_(( - j_compress_ptr cinfo)); -/* 21 */ -EXTERN JDIMENSION jpeg_write_raw_data _ANSI_ARGS_(( - j_compress_ptr cinfo, JSAMPIMAGE data, - JDIMENSION num_lines)); -/* 22 */ -EXTERN void jpeg_write_marker _ANSI_ARGS_((j_compress_ptr cinfo, - int marker, const JOCTET * dataptr, - unsigned int datalen)); -/* 23 */ -EXTERN void jpeg_write_m_header _ANSI_ARGS_(( - j_compress_ptr cinfo, int marker, - unsigned int datalen)); -/* 24 */ -EXTERN void jpeg_write_m_byte _ANSI_ARGS_((j_compress_ptr cinfo, - int val)); -/* 25 */ -EXTERN void jpeg_write_tables _ANSI_ARGS_((j_compress_ptr cinfo)); -/* 26 */ -EXTERN int jpeg_read_header _ANSI_ARGS_((j_decompress_ptr cinfo, - boolean require_image)); -/* 27 */ -EXTERN boolean jpeg_start_decompress _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 28 */ -EXTERN JDIMENSION jpeg_read_scanlines _ANSI_ARGS_(( - j_decompress_ptr cinfo, JSAMPARRAY scanlines, - JDIMENSION max_lines)); -/* 29 */ -EXTERN boolean jpeg_finish_decompress _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 30 */ -EXTERN JDIMENSION jpeg_read_raw_data _ANSI_ARGS_(( - j_decompress_ptr cinfo, JSAMPIMAGE data, - JDIMENSION max_lines)); -/* 31 */ -EXTERN boolean jpeg_has_multiple_scans _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 32 */ -EXTERN boolean jpeg_start_output _ANSI_ARGS_(( - j_decompress_ptr cinfo, int scan_number)); -/* 33 */ -EXTERN boolean jpeg_finish_output _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 34 */ -EXTERN boolean jpeg_input_complete _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 35 */ -EXTERN void jpeg_new_colormap _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 36 */ -EXTERN int jpeg_consume_input _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 37 */ -EXTERN void jpeg_calc_output_dimensions _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 38 */ -EXTERN void jpeg_save_markers _ANSI_ARGS_(( - j_decompress_ptr cinfo, int marker_code, - unsigned int length_limit)); -/* 39 */ -EXTERN void jpeg_set_marker_processor _ANSI_ARGS_(( - j_decompress_ptr cinfo, int marker_code, - jpeg_marker_parser_method routine)); -/* 40 */ -EXTERN jvirt_barray_ptr * jpeg_read_coefficients _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 41 */ -EXTERN void jpeg_write_coefficients _ANSI_ARGS_(( - j_compress_ptr cinfo, - jvirt_barray_ptr * coef_arrays)); -/* 42 */ -EXTERN void jpeg_copy_critical_parameters _ANSI_ARGS_(( - j_decompress_ptr srcinfo, - j_compress_ptr dstinfo)); -/* 43 */ -EXTERN void jpeg_abort_compress _ANSI_ARGS_(( - j_compress_ptr cinfo)); -/* 44 */ -EXTERN void jpeg_abort_decompress _ANSI_ARGS_(( - j_decompress_ptr cinfo)); -/* 45 */ -EXTERN void jpeg_abort _ANSI_ARGS_((j_common_ptr cinfo)); -/* 46 */ -EXTERN void jpeg_destroy _ANSI_ARGS_((j_common_ptr cinfo)); -/* 47 */ -EXTERN boolean jpeg_resync_to_restart _ANSI_ARGS_(( - j_decompress_ptr cinfo, int desired)); - -typedef struct JpegtclStubs { - int magic; - struct JpegtclStubHooks *hooks; - - struct jpeg_error_mgr * (*jpeg_std_error) _ANSI_ARGS_((struct jpeg_error_mgr * err)); /* 0 */ - void (*jpeg_CreateCompress) _ANSI_ARGS_((j_compress_ptr cinfo, int version, size_t structsize)); /* 1 */ - void (*jpeg_CreateDecompress) _ANSI_ARGS_((j_decompress_ptr cinfo, int version, size_t structsize)); /* 2 */ - void (*jpeg_destroy_compress) _ANSI_ARGS_((j_compress_ptr cinfo)); /* 3 */ - void (*jpeg_destroy_decompress) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 4 */ - void (*jpeg_stdio_dest) _ANSI_ARGS_((j_compress_ptr cinfo, FILE * outfile)); /* 5 */ - void (*jpeg_stdio_src) _ANSI_ARGS_((j_decompress_ptr cinfo, FILE * infile)); /* 6 */ - void (*jpeg_set_defaults) _ANSI_ARGS_((j_compress_ptr cinfo)); /* 7 */ - void (*jpeg_set_colorspace) _ANSI_ARGS_((j_compress_ptr cinfo, J_COLOR_SPACE colorspace)); /* 8 */ - void (*jpeg_default_colorspace) _ANSI_ARGS_((j_compress_ptr cinfo)); /* 9 */ - void (*jpeg_set_quality) _ANSI_ARGS_((j_compress_ptr cinfo, int quality, boolean force_baseline)); /* 10 */ - void (*jpeg_set_linear_quality) _ANSI_ARGS_((j_compress_ptr cinfo, int scale_factor, boolean force_baseline)); /* 11 */ - void (*jpeg_add_quant_table) _ANSI_ARGS_((j_compress_ptr cinfo, int which_tbl, const unsigned int * basic_table, int scale_factor, boolean force_baseline)); /* 12 */ - int (*jpeg_quality_scaling) _ANSI_ARGS_((int quality)); /* 13 */ - void (*jpeg_simple_progression) _ANSI_ARGS_((j_compress_ptr cinfo)); /* 14 */ - void (*jpeg_suppress_tables) _ANSI_ARGS_((j_compress_ptr cinfo, boolean suppress)); /* 15 */ - JQUANT_TBL * (*jpeg_alloc_quant_table) _ANSI_ARGS_((j_common_ptr cinfo)); /* 16 */ - JHUFF_TBL * (*jpeg_alloc_huff_table) _ANSI_ARGS_((j_common_ptr cinfo)); /* 17 */ - void (*jpeg_start_compress) _ANSI_ARGS_((j_compress_ptr cinfo, boolean write_all_tables)); /* 18 */ - JDIMENSION (*jpeg_write_scanlines) _ANSI_ARGS_((j_compress_ptr cinfo, JSAMPARRAY scanlines, JDIMENSION num_lines)); /* 19 */ - void (*jpeg_finish_compress) _ANSI_ARGS_((j_compress_ptr cinfo)); /* 20 */ - JDIMENSION (*jpeg_write_raw_data) _ANSI_ARGS_((j_compress_ptr cinfo, JSAMPIMAGE data, JDIMENSION num_lines)); /* 21 */ - void (*jpeg_write_marker) _ANSI_ARGS_((j_compress_ptr cinfo, int marker, const JOCTET * dataptr, unsigned int datalen)); /* 22 */ - void (*jpeg_write_m_header) _ANSI_ARGS_((j_compress_ptr cinfo, int marker, unsigned int datalen)); /* 23 */ - void (*jpeg_write_m_byte) _ANSI_ARGS_((j_compress_ptr cinfo, int val)); /* 24 */ - void (*jpeg_write_tables) _ANSI_ARGS_((j_compress_ptr cinfo)); /* 25 */ - int (*jpeg_read_header) _ANSI_ARGS_((j_decompress_ptr cinfo, boolean require_image)); /* 26 */ - boolean (*jpeg_start_decompress) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 27 */ - JDIMENSION (*jpeg_read_scanlines) _ANSI_ARGS_((j_decompress_ptr cinfo, JSAMPARRAY scanlines, JDIMENSION max_lines)); /* 28 */ - boolean (*jpeg_finish_decompress) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 29 */ - JDIMENSION (*jpeg_read_raw_data) _ANSI_ARGS_((j_decompress_ptr cinfo, JSAMPIMAGE data, JDIMENSION max_lines)); /* 30 */ - boolean (*jpeg_has_multiple_scans) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 31 */ - boolean (*jpeg_start_output) _ANSI_ARGS_((j_decompress_ptr cinfo, int scan_number)); /* 32 */ - boolean (*jpeg_finish_output) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 33 */ - boolean (*jpeg_input_complete) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 34 */ - void (*jpeg_new_colormap) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 35 */ - int (*jpeg_consume_input) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 36 */ - void (*jpeg_calc_output_dimensions) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 37 */ - void (*jpeg_save_markers) _ANSI_ARGS_((j_decompress_ptr cinfo, int marker_code, unsigned int length_limit)); /* 38 */ - void (*jpeg_set_marker_processor) _ANSI_ARGS_((j_decompress_ptr cinfo, int marker_code, jpeg_marker_parser_method routine)); /* 39 */ - jvirt_barray_ptr * (*jpeg_read_coefficients) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 40 */ - void (*jpeg_write_coefficients) _ANSI_ARGS_((j_compress_ptr cinfo, jvirt_barray_ptr * coef_arrays)); /* 41 */ - void (*jpeg_copy_critical_parameters) _ANSI_ARGS_((j_decompress_ptr srcinfo, j_compress_ptr dstinfo)); /* 42 */ - void (*jpeg_abort_compress) _ANSI_ARGS_((j_compress_ptr cinfo)); /* 43 */ - void (*jpeg_abort_decompress) _ANSI_ARGS_((j_decompress_ptr cinfo)); /* 44 */ - void (*jpeg_abort) _ANSI_ARGS_((j_common_ptr cinfo)); /* 45 */ - void (*jpeg_destroy) _ANSI_ARGS_((j_common_ptr cinfo)); /* 46 */ - boolean (*jpeg_resync_to_restart) _ANSI_ARGS_((j_decompress_ptr cinfo, int desired)); /* 47 */ -} JpegtclStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern JpegtclStubs *jpegtclStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_JPEGTCL_STUBS) && !defined(USE_JPEGTCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef jpeg_std_error -#define jpeg_std_error \ - (jpegtclStubsPtr->jpeg_std_error) /* 0 */ -#endif -#ifndef jpeg_CreateCompress -#define jpeg_CreateCompress \ - (jpegtclStubsPtr->jpeg_CreateCompress) /* 1 */ -#endif -#ifndef jpeg_CreateDecompress -#define jpeg_CreateDecompress \ - (jpegtclStubsPtr->jpeg_CreateDecompress) /* 2 */ -#endif -#ifndef jpeg_destroy_compress -#define jpeg_destroy_compress \ - (jpegtclStubsPtr->jpeg_destroy_compress) /* 3 */ -#endif -#ifndef jpeg_destroy_decompress -#define jpeg_destroy_decompress \ - (jpegtclStubsPtr->jpeg_destroy_decompress) /* 4 */ -#endif -#ifndef jpeg_stdio_dest -#define jpeg_stdio_dest \ - (jpegtclStubsPtr->jpeg_stdio_dest) /* 5 */ -#endif -#ifndef jpeg_stdio_src -#define jpeg_stdio_src \ - (jpegtclStubsPtr->jpeg_stdio_src) /* 6 */ -#endif -#ifndef jpeg_set_defaults -#define jpeg_set_defaults \ - (jpegtclStubsPtr->jpeg_set_defaults) /* 7 */ -#endif -#ifndef jpeg_set_colorspace -#define jpeg_set_colorspace \ - (jpegtclStubsPtr->jpeg_set_colorspace) /* 8 */ -#endif -#ifndef jpeg_default_colorspace -#define jpeg_default_colorspace \ - (jpegtclStubsPtr->jpeg_default_colorspace) /* 9 */ -#endif -#ifndef jpeg_set_quality -#define jpeg_set_quality \ - (jpegtclStubsPtr->jpeg_set_quality) /* 10 */ -#endif -#ifndef jpeg_set_linear_quality -#define jpeg_set_linear_quality \ - (jpegtclStubsPtr->jpeg_set_linear_quality) /* 11 */ -#endif -#ifndef jpeg_add_quant_table -#define jpeg_add_quant_table \ - (jpegtclStubsPtr->jpeg_add_quant_table) /* 12 */ -#endif -#ifndef jpeg_quality_scaling -#define jpeg_quality_scaling \ - (jpegtclStubsPtr->jpeg_quality_scaling) /* 13 */ -#endif -#ifndef jpeg_simple_progression -#define jpeg_simple_progression \ - (jpegtclStubsPtr->jpeg_simple_progression) /* 14 */ -#endif -#ifndef jpeg_suppress_tables -#define jpeg_suppress_tables \ - (jpegtclStubsPtr->jpeg_suppress_tables) /* 15 */ -#endif -#ifndef jpeg_alloc_quant_table -#define jpeg_alloc_quant_table \ - (jpegtclStubsPtr->jpeg_alloc_quant_table) /* 16 */ -#endif -#ifndef jpeg_alloc_huff_table -#define jpeg_alloc_huff_table \ - (jpegtclStubsPtr->jpeg_alloc_huff_table) /* 17 */ -#endif -#ifndef jpeg_start_compress -#define jpeg_start_compress \ - (jpegtclStubsPtr->jpeg_start_compress) /* 18 */ -#endif -#ifndef jpeg_write_scanlines -#define jpeg_write_scanlines \ - (jpegtclStubsPtr->jpeg_write_scanlines) /* 19 */ -#endif -#ifndef jpeg_finish_compress -#define jpeg_finish_compress \ - (jpegtclStubsPtr->jpeg_finish_compress) /* 20 */ -#endif -#ifndef jpeg_write_raw_data -#define jpeg_write_raw_data \ - (jpegtclStubsPtr->jpeg_write_raw_data) /* 21 */ -#endif -#ifndef jpeg_write_marker -#define jpeg_write_marker \ - (jpegtclStubsPtr->jpeg_write_marker) /* 22 */ -#endif -#ifndef jpeg_write_m_header -#define jpeg_write_m_header \ - (jpegtclStubsPtr->jpeg_write_m_header) /* 23 */ -#endif -#ifndef jpeg_write_m_byte -#define jpeg_write_m_byte \ - (jpegtclStubsPtr->jpeg_write_m_byte) /* 24 */ -#endif -#ifndef jpeg_write_tables -#define jpeg_write_tables \ - (jpegtclStubsPtr->jpeg_write_tables) /* 25 */ -#endif -#ifndef jpeg_read_header -#define jpeg_read_header \ - (jpegtclStubsPtr->jpeg_read_header) /* 26 */ -#endif -#ifndef jpeg_start_decompress -#define jpeg_start_decompress \ - (jpegtclStubsPtr->jpeg_start_decompress) /* 27 */ -#endif -#ifndef jpeg_read_scanlines -#define jpeg_read_scanlines \ - (jpegtclStubsPtr->jpeg_read_scanlines) /* 28 */ -#endif -#ifndef jpeg_finish_decompress -#define jpeg_finish_decompress \ - (jpegtclStubsPtr->jpeg_finish_decompress) /* 29 */ -#endif -#ifndef jpeg_read_raw_data -#define jpeg_read_raw_data \ - (jpegtclStubsPtr->jpeg_read_raw_data) /* 30 */ -#endif -#ifndef jpeg_has_multiple_scans -#define jpeg_has_multiple_scans \ - (jpegtclStubsPtr->jpeg_has_multiple_scans) /* 31 */ -#endif -#ifndef jpeg_start_output -#define jpeg_start_output \ - (jpegtclStubsPtr->jpeg_start_output) /* 32 */ -#endif -#ifndef jpeg_finish_output -#define jpeg_finish_output \ - (jpegtclStubsPtr->jpeg_finish_output) /* 33 */ -#endif -#ifndef jpeg_input_complete -#define jpeg_input_complete \ - (jpegtclStubsPtr->jpeg_input_complete) /* 34 */ -#endif -#ifndef jpeg_new_colormap -#define jpeg_new_colormap \ - (jpegtclStubsPtr->jpeg_new_colormap) /* 35 */ -#endif -#ifndef jpeg_consume_input -#define jpeg_consume_input \ - (jpegtclStubsPtr->jpeg_consume_input) /* 36 */ -#endif -#ifndef jpeg_calc_output_dimensions -#define jpeg_calc_output_dimensions \ - (jpegtclStubsPtr->jpeg_calc_output_dimensions) /* 37 */ -#endif -#ifndef jpeg_save_markers -#define jpeg_save_markers \ - (jpegtclStubsPtr->jpeg_save_markers) /* 38 */ -#endif -#ifndef jpeg_set_marker_processor -#define jpeg_set_marker_processor \ - (jpegtclStubsPtr->jpeg_set_marker_processor) /* 39 */ -#endif -#ifndef jpeg_read_coefficients -#define jpeg_read_coefficients \ - (jpegtclStubsPtr->jpeg_read_coefficients) /* 40 */ -#endif -#ifndef jpeg_write_coefficients -#define jpeg_write_coefficients \ - (jpegtclStubsPtr->jpeg_write_coefficients) /* 41 */ -#endif -#ifndef jpeg_copy_critical_parameters -#define jpeg_copy_critical_parameters \ - (jpegtclStubsPtr->jpeg_copy_critical_parameters) /* 42 */ -#endif -#ifndef jpeg_abort_compress -#define jpeg_abort_compress \ - (jpegtclStubsPtr->jpeg_abort_compress) /* 43 */ -#endif -#ifndef jpeg_abort_decompress -#define jpeg_abort_decompress \ - (jpegtclStubsPtr->jpeg_abort_decompress) /* 44 */ -#endif -#ifndef jpeg_abort -#define jpeg_abort \ - (jpegtclStubsPtr->jpeg_abort) /* 45 */ -#endif -#ifndef jpeg_destroy -#define jpeg_destroy \ - (jpegtclStubsPtr->jpeg_destroy) /* 46 */ -#endif -#ifndef jpeg_resync_to_restart -#define jpeg_resync_to_restart \ - (jpegtclStubsPtr->jpeg_resync_to_restart) /* 47 */ -#endif - -#endif /* defined(USE_JPEGTCL_STUBS) && !defined(USE_JPEGTCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _JPEGTCLDECLS */ - diff --git a/mingw/include/jpegtclDeclsMask.h b/mingw/include/jpegtclDeclsMask.h deleted file mode 100644 index 317bd46f13..0000000000 --- a/mingw/include/jpegtclDeclsMask.h +++ /dev/null @@ -1,58 +0,0 @@ -#ifdef WIN32 -/* - * While the definitions in the original header are technically the - * same as the definitions in 'zlibDecls.h' on Windows they are not, - * in a small detail: DLLEXPORT vs. DLLIMPORT. As our artificial - * definitions do the right thing we use the macro definitions below - * to move the original definitionsd out of the way. We do retain the - * inclusion of all the type definitions, etc. - */ -#define jpeg_std_error __mask_jpeg_std_error -#define jpeg_CreateCompress __mask_jpeg_CreateCompress -#define jpeg_CreateDecompress __mask_jpeg_CreateDecompress -#define jpeg_destroy_compress __mask_jpeg_destroy_compress -#define jpeg_destroy_decompress __mask_jpeg_destroy_decompress -#define jpeg_stdio_dest __mask_jpeg_stdio_dest -#define jpeg_stdio_src __mask_jpeg_stdio_src -#define jpeg_set_defaults __mask_jpeg_set_defaults -#define jpeg_set_colorspace __mask_jpeg_set_colorspace -#define jpeg_default_colorspace __mask_jpeg_default_colorspace -#define jpeg_set_quality __mask_jpeg_set_quality -#define jpeg_set_linear_quality __mask_jpeg_set_linear_quality -#define jpeg_add_quant_table __mask_jpeg_add_quant_table -#define jpeg_quality_scaling __mask_jpeg_quality_scaling -#define jpeg_simple_progression __mask_jpeg_simple_progression -#define jpeg_suppress_tables __mask_jpeg_suppress_tables -#define jpeg_alloc_quant_table __mask_jpeg_alloc_quant_table -#define jpeg_alloc_huff_table __mask_jpeg_alloc_huff_table -#define jpeg_start_compress __mask_jpeg_start_compress -#define jpeg_write_scanlines __mask_jpeg_write_scanlines -#define jpeg_finish_compress __mask_jpeg_finish_compress -#define jpeg_write_raw_data __mask_jpeg_write_raw_data -#define jpeg_write_marker __mask_jpeg_write_marker -#define jpeg_write_m_header __mask_jpeg_write_m_header -#define jpeg_write_m_byte __mask_jpeg_write_m_byte -#define jpeg_write_tables __mask_jpeg_write_tables -#define jpeg_read_header __mask_jpeg_read_header -#define jpeg_start_decompress __mask_jpeg_start_decompress -#define jpeg_read_scanlines __mask_jpeg_read_scanlines -#define jpeg_finish_decompress __mask_jpeg_finish_decompress -#define jpeg_read_raw_data __mask_jpeg_read_raw_data -#define jpeg_has_multiple_scans __mask_jpeg_has_multiple_scans -#define jpeg_start_output __mask_jpeg_start_output -#define jpeg_finish_output __mask_jpeg_finish_output -#define jpeg_input_complete __mask_jpeg_input_complete -#define jpeg_new_colormap __mask_jpeg_new_colormap -#define jpeg_consume_input __mask_jpeg_consume_input -#define jpeg_calc_output_dimensions __mask_jpeg_calc_output_dimensions -#define jpeg_save_markers __mask_jpeg_save_markers -#define jpeg_set_marker_processor __mask_jpeg_set_marker_processor -#define jpeg_read_coefficients __mask_jpeg_read_coefficients -#define jpeg_write_coefficients __mask_jpeg_write_coefficients -#define jpeg_copy_critical_parameters __mask_jpeg_copy_critical_parameters -#define jpeg_abort_compress __mask_jpeg_abort_compress -#define jpeg_abort_decompress __mask_jpeg_abort_decompress -#define jpeg_abort __mask_jpeg_abort -#define jpeg_destroy __mask_jpeg_destroy -#define jpeg_resync_to_restart __mask_jpeg_resync_to_restart -#endif /* WIN32 */ diff --git a/mingw/include/jpegtclDeclsUnmask.h b/mingw/include/jpegtclDeclsUnmask.h deleted file mode 100644 index 6322ffed3f..0000000000 --- a/mingw/include/jpegtclDeclsUnmask.h +++ /dev/null @@ -1,51 +0,0 @@ -#ifdef WIN32 -/* Restore the usage of the original names */ -#undef jpeg_std_error -#undef jpeg_CreateCompress -#undef jpeg_CreateDecompress -#undef jpeg_destroy_compress -#undef jpeg_destroy_decompress -#undef jpeg_stdio_dest -#undef jpeg_stdio_src -#undef jpeg_set_defaults -#undef jpeg_set_colorspace -#undef jpeg_default_colorspace -#undef jpeg_set_quality -#undef jpeg_set_linear_quality -#undef jpeg_add_quant_table -#undef jpeg_quality_scaling -#undef jpeg_simple_progression -#undef jpeg_suppress_tables -#undef jpeg_alloc_quant_table -#undef jpeg_alloc_huff_table -#undef jpeg_start_compress -#undef jpeg_write_scanlines -#undef jpeg_finish_compress -#undef jpeg_write_raw_data -#undef jpeg_write_marker -#undef jpeg_write_m_header -#undef jpeg_write_m_byte -#undef jpeg_write_tables -#undef jpeg_read_header -#undef jpeg_start_decompress -#undef jpeg_read_scanlines -#undef jpeg_finish_decompress -#undef jpeg_read_raw_data -#undef jpeg_has_multiple_scans -#undef jpeg_start_output -#undef jpeg_finish_output -#undef jpeg_input_complete -#undef jpeg_new_colormap -#undef jpeg_consume_input -#undef jpeg_calc_output_dimensions -#undef jpeg_save_markers -#undef jpeg_set_marker_processor -#undef jpeg_read_coefficients -#undef jpeg_write_coefficients -#undef jpeg_copy_critical_parameters -#undef jpeg_abort_compress -#undef jpeg_abort_decompress -#undef jpeg_abort -#undef jpeg_destroy -#undef jpeg_resync_to_restart -#endif /* WIN32 */ diff --git a/mingw/include/tcl.h b/mingw/include/tcl.h deleted file mode 100644 index 4f37924c04..0000000000 --- a/mingw/include/tcl.h +++ /dev/null @@ -1,2454 +0,0 @@ -/* - * tcl.h -- - * - * This header file describes the externally-visible facilities of the - * Tcl interpreter. - * - * Copyright (c) 1987-1994 The Regents of the University of California. - * Copyright (c) 1993-1996 Lucent Technologies. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 by Scriptics Corporation. - * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tcl.h,v 1.254.2.6 2008/10/10 18:16:47 dgp Exp $ - */ - -#ifndef _TCL -#define _TCL - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * The following defines are used to indicate the various release levels. - */ - -#define TCL_ALPHA_RELEASE 0 -#define TCL_BETA_RELEASE 1 -#define TCL_FINAL_RELEASE 2 - -/* - * When version numbers change here, must also go into the following files and - * update the version numbers: - * - * library/init.tcl (1 LOC patch) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * win/tcl.m4 (not patchlevel) - * win/makefile.bc (not patchlevel) 2 LOC - * README (sections 0 and 2, with and without separator) - * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 1 LOC - * macosx/Tcl.pbproj/default.pbxuser (not patchlevel) 1 LOC - * macosx/Tcl.xcode/project.pbxproj (not patchlevel) 2 LOC - * macosx/Tcl.xcode/default.pbxuser (not patchlevel) 1 LOC - * macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC - * win/README (not patchlevel) (sections 0 and 2) - * unix/tcl.spec (1 LOC patch) - * tools/tcl.hpj.in (not patchlevel, for windows installer) - * tools/tcl.wse.in (for windows installer) - * tools/tclSplash.bmp (not patchlevel) - */ - -#define TCL_MAJOR_VERSION 8 -#define TCL_MINOR_VERSION 5 -#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TCL_RELEASE_SERIAL 5 - -#define TCL_VERSION "8.5" -#define TCL_PATCH_LEVEL "8.5.5" - -/* - * The following definitions set up the proper options for Windows compilers. - * We use this method because there is no autoconf equivalent. - */ - -#ifndef __WIN32__ -# if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined(__BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__)) -# define __WIN32__ -# ifndef WIN32 -# define WIN32 -# endif -# ifndef _WIN32 -# define _WIN32 -# endif -# endif -#endif - -/* - * STRICT: See MSDN Article Q83456 - */ - -#ifdef __WIN32__ -# ifndef STRICT -# define STRICT -# endif -#endif /* __WIN32__ */ - -/* - * Utility macros: STRINGIFY takes an argument and wraps it in "" (double - * quotation marks), JOIN joins two arguments. - */ - -#ifndef STRINGIFY -# define STRINGIFY(x) STRINGIFY1(x) -# define STRINGIFY1(x) #x -#endif -#ifndef JOIN -# define JOIN(a,b) JOIN1(a,b) -# define JOIN1(a,b) a##b -#endif - -/* - * A special definition used to allow this header file to be included from - * windows resource files so that they can obtain version information. - * RC_INVOKED is defined by default by the windows RC tool. - * - * Resource compilers don't like all the C stuff, like typedefs and function - * declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -/* - * Special macro to define mutexes, that doesn't do anything if we are not - * using threads. - */ - -#ifdef TCL_THREADS -#define TCL_DECLARE_MUTEX(name) static Tcl_Mutex name; -#else -#define TCL_DECLARE_MUTEX(name) -#endif - -/* - * Tcl's public routine Tcl_FSSeek() uses the values SEEK_SET, SEEK_CUR, and - * SEEK_END, all #define'd by stdio.h . - * - * Also, many extensions need stdio.h, and they've grown accustomed to tcl.h - * providing it for them rather than #include-ing it themselves as they - * should, so also for their sake, we keep the #include to be consistent with - * prior Tcl releases. - */ - -#include - -/* - * Support for functions with a variable number of arguments. - * - * The following TCL_VARARGS* macros are to support old extensions - * written for older versions of Tcl where the macros permitted - * support for the varargs.h system as well as stdarg.h . - * - * New code should just directly be written to use stdarg.h conventions. - */ - -#include -#ifndef TCL_NO_DEPRECATED -# define TCL_VARARGS(type, name) (type name, ...) -# define TCL_VARARGS_DEF(type, name) (type name, ...) -# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name) -#endif - -/* - * Macros used to declare a function to be exported by a DLL. Used by Windows, - * maps to no-op declarations on non-Windows systems. The default build on - * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be - * nonempty. To build a static library, the macro STATIC_BUILD should be - * defined. - * - * Note: when building static but linking dynamically to MSVCRT we must still - * correctly decorate the C library imported function. Use CRTIMPORT - * for this purpose. _DLL is defined by the compiler when linking to - * MSVCRT. - */ - -#if (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) || defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined(__declspec)))) -# define HAVE_DECLSPEC 1 -# ifdef STATIC_BUILD -# define DLLIMPORT -# define DLLEXPORT -# ifdef _DLL -# define CRTIMPORT __declspec(dllimport) -# else -# define CRTIMPORT -# endif -# else -# define DLLIMPORT __declspec(dllimport) -# define DLLEXPORT __declspec(dllexport) -# define CRTIMPORT __declspec(dllimport) -# endif -#else -# define DLLIMPORT -# if defined(__GNUC__) && __GNUC__ > 3 -# define DLLEXPORT __attribute__ ((visibility("default"))) -# else -# define DLLEXPORT -# endif -# define CRTIMPORT -#endif - -/* - * These macros are used to control whether functions are being declared for - * import or export. If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the name of - * a library we are building, is set on the compile line for sources that are - * to be placed in the library. When this macro is set, the storage class will - * be set to DLLEXPORT. At the end of the header file, the storage class will - * be reset to DLLIMPORT. - */ - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * Definitions that allow this header file to be used either with or without - * ANSI C features like function prototypes. - */ - -#undef _ANSI_ARGS_ -#undef CONST -#ifndef INLINE -# define INLINE -#endif - -#ifndef NO_CONST -# define CONST const -#else -# define CONST -#endif - -#ifndef NO_PROTOTYPES -# define _ANSI_ARGS_(x) x -#else -# define _ANSI_ARGS_(x) () -#endif - -#ifdef USE_NON_CONST -# ifdef USE_COMPAT_CONST -# error define at most one of USE_NON_CONST and USE_COMPAT_CONST -# endif -# define CONST84 -# define CONST84_RETURN -#else -# ifdef USE_COMPAT_CONST -# define CONST84 -# define CONST84_RETURN CONST -# else -# define CONST84 CONST -# define CONST84_RETURN CONST -# endif -#endif - -/* - * Make sure EXTERN isn't defined elsewhere - */ - -#ifdef EXTERN -# undef EXTERN -#endif /* EXTERN */ - -#ifdef __cplusplus -# define EXTERN extern "C" TCL_STORAGE_CLASS -#else -# define EXTERN extern TCL_STORAGE_CLASS -#endif - -/* - * The following code is copied from winnt.h. If we don't replicate it here, - * then can't be included after tcl.h, since tcl.h also defines - * VOID. This block is skipped under Cygwin and Mingw. - */ - -#if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID) -#ifndef VOID -#define VOID void -typedef char CHAR; -typedef short SHORT; -typedef long LONG; -#endif -#endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */ - -/* - * Macro to use instead of "void" for arguments that must have type "void *" - * in ANSI C; maps them to type "char *" in non-ANSI systems. - */ - -#ifndef NO_VOID -#define VOID void -#else -#define VOID char -#endif - -/* - * Miscellaneous declarations. - */ - -#ifndef _CLIENTDATA -# ifndef NO_VOID - typedef void *ClientData; -# else - typedef int *ClientData; -# endif -# define _CLIENTDATA -#endif - -/* - * Darwin specifc configure overrides (to support fat compiles, where - * configure runs only once for multiple architectures): - */ - -#ifdef __APPLE__ -# ifdef __LP64__ -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_IS_LONG 1 -# define TCL_CFG_DO64BIT 1 -# else /* !__LP64__ */ -# define TCL_WIDE_INT_TYPE long long -# undef TCL_WIDE_INT_IS_LONG -# undef TCL_CFG_DO64BIT -# endif /* __LP64__ */ -# undef HAVE_STRUCT_STAT64 -#endif /* __APPLE__ */ - -/* - * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, and define - * Tcl_WideUInt to be the unsigned variant of that type (assuming that where - * we have one, we can have the other.) - * - * Also defines the following macros: - * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a real - * 64-bit system.) - * Tcl_WideAsLong - forgetful converter from wideInt to long. - * Tcl_LongAsWide - sign-extending converter from long to wideInt. - * Tcl_WideAsDouble - converter from wideInt to double. - * Tcl_DoubleAsWide - converter from double to wideInt. - * - * The following invariant should hold for any long value 'longVal': - * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) - * - * Note on converting between Tcl_WideInt and strings. This implementation (in - * tclObj.c) depends on the function - * sprintf(...,"%" TCL_LL_MODIFIER "d",...). - */ - -#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) -# if defined(__GNUC__) -# define TCL_WIDE_INT_TYPE long long -# if defined(__WIN32__) && !defined(__CYGWIN__) -# define TCL_LL_MODIFIER "I64" -# else -# define TCL_LL_MODIFIER "L" -# endif -typedef struct stat Tcl_StatBuf; -# elif defined(__WIN32__) -# define TCL_WIDE_INT_TYPE __int64 -# ifdef __BORLANDC__ -typedef struct stati64 Tcl_StatBuf; -# define TCL_LL_MODIFIER "L" -# else /* __BORLANDC__ */ -# if _MSC_VER < 1400 || !defined(_M_IX86) -typedef struct _stati64 Tcl_StatBuf; -# else -typedef struct _stat64 Tcl_StatBuf; -# endif /* _MSC_VER < 1400 */ -# define TCL_LL_MODIFIER "I64" -# endif /* __BORLANDC__ */ -# else /* __WIN32__ */ -/* - * Don't know what platform it is and configure hasn't discovered what is - * going on for us. Try to guess... - */ -# ifdef NO_LIMITS_H -# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LONG -# else /* !NO_LIMITS_H */ -# include -# if (INT_MAX < LONG_MAX) -# define TCL_WIDE_INT_IS_LONG 1 -# else -# define TCL_WIDE_INT_TYPE long long -# endif -# endif /* NO_LIMITS_H */ -# endif /* __WIN32__ */ -#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */ -#ifdef TCL_WIDE_INT_IS_LONG -# undef TCL_WIDE_INT_TYPE -# define TCL_WIDE_INT_TYPE long -#endif /* TCL_WIDE_INT_IS_LONG */ - -typedef TCL_WIDE_INT_TYPE Tcl_WideInt; -typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt; - -#ifdef TCL_WIDE_INT_IS_LONG -typedef struct stat Tcl_StatBuf; -# define Tcl_WideAsLong(val) ((long)(val)) -# define Tcl_LongAsWide(val) ((long)(val)) -# define Tcl_WideAsDouble(val) ((double)((long)(val))) -# define Tcl_DoubleAsWide(val) ((long)((double)(val))) -# ifndef TCL_LL_MODIFIER -# define TCL_LL_MODIFIER "l" -# endif /* !TCL_LL_MODIFIER */ -#else /* TCL_WIDE_INT_IS_LONG */ -/* - * The next short section of defines are only done when not running on Windows - * or some other strange platform. - */ -# ifndef TCL_LL_MODIFIER -# ifdef HAVE_STRUCT_STAT64 -typedef struct stat64 Tcl_StatBuf; -# else -typedef struct stat Tcl_StatBuf; -# endif /* HAVE_STRUCT_STAT64 */ -# define TCL_LL_MODIFIER "ll" -# endif /* !TCL_LL_MODIFIER */ -# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val))) -# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val))) -# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val))) -# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val))) -#endif /* TCL_WIDE_INT_IS_LONG */ - -/* - * Data structures defined opaquely in this module. The definitions below just - * provide dummy types. A few fields are made visible in Tcl_Interp - * structures, namely those used for returning a string result from commands. - * Direct access to the result field is discouraged in Tcl 8.0. The - * interpreter result is either an object or a string, and the two values are - * kept consistent unless some C code sets interp->result directly. - * Programmers should use either the function Tcl_GetObjResult() or - * Tcl_GetStringResult() to read the interpreter's result. See the SetResult - * man page for details. - * - * Note: any change to the Tcl_Interp definition below must be mirrored in the - * "real" definition in tclInt.h. - * - * Note: Tcl_ObjCmdProc functions do not directly set result and freeProc. - * Instead, they set a Tcl_Obj member in the "real" structure that can be - * accessed with Tcl_GetObjResult() and Tcl_SetObjResult(). - */ - -typedef struct Tcl_Interp { - char *result; /* If the last command returned a string - * result, this points to it. */ - void (*freeProc) _ANSI_ARGS_((char *blockPtr)); - /* Zero means the string result is statically - * allocated. TCL_DYNAMIC means it was - * allocated with ckalloc and should be freed - * with ckfree. Other values give the address - * of function to invoke to free the result. - * Tcl_Eval must free it before executing next - * command. */ - int errorLine; /* When TCL_ERROR is returned, this gives the - * line number within the command where the - * error occurred (1 if first line). */ -} Tcl_Interp; - -typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler; -typedef struct Tcl_Channel_ *Tcl_Channel; -typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion; -typedef struct Tcl_Command_ *Tcl_Command; -typedef struct Tcl_Condition_ *Tcl_Condition; -typedef struct Tcl_Dict_ *Tcl_Dict; -typedef struct Tcl_EncodingState_ *Tcl_EncodingState; -typedef struct Tcl_Encoding_ *Tcl_Encoding; -typedef struct Tcl_Event Tcl_Event; -typedef struct Tcl_InterpState_ *Tcl_InterpState; -typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle; -typedef struct Tcl_Mutex_ *Tcl_Mutex; -typedef struct Tcl_Pid_ *Tcl_Pid; -typedef struct Tcl_RegExp_ *Tcl_RegExp; -typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; -typedef struct Tcl_ThreadId_ *Tcl_ThreadId; -typedef struct Tcl_TimerToken_ *Tcl_TimerToken; -typedef struct Tcl_Trace_ *Tcl_Trace; -typedef struct Tcl_Var_ *Tcl_Var; - -/* - * Definition of the interface to functions implementing threads. A function - * following this definition is given to each call of 'Tcl_CreateThread' and - * will be called as the main fuction of the new thread created by that call. - */ - -#if defined __WIN32__ -typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); -#else -typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); -#endif - -/* - * Threading function return types used for abstracting away platform - * differences when writing a Tcl_ThreadCreateProc. See the NewThread function - * in generic/tclThreadTest.c for it's usage. - */ - -#if defined __WIN32__ -# define Tcl_ThreadCreateType unsigned __stdcall -# define TCL_THREAD_CREATE_RETURN return 0 -#else -# define Tcl_ThreadCreateType void -# define TCL_THREAD_CREATE_RETURN -#endif - -/* - * Definition of values for default stacksize and the possible flags to be - * given to Tcl_CreateThread. - */ - -#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack */ -#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default behaviour */ -#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable */ - -/* - * Flag values passed to Tcl_StringCaseMatch. - */ - -#define TCL_MATCH_NOCASE (1<<0) - -/* - * Flag values passed to Tcl_GetRegExpFromObj. - */ - -#define TCL_REG_BASIC 000000 /* BREs (convenience) */ -#define TCL_REG_EXTENDED 000001 /* EREs */ -#define TCL_REG_ADVF 000002 /* advanced features in EREs */ -#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs) */ -#define TCL_REG_QUOTE 000004 /* no special characters, none */ -#define TCL_REG_NOCASE 000010 /* ignore case */ -#define TCL_REG_NOSUB 000020 /* don't care about subexpressions */ -#define TCL_REG_EXPANDED 000040 /* expanded format, white space & - * comments */ -#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */ -#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before */ -#define TCL_REG_NEWLINE 000300 /* newlines are line terminators */ -#define TCL_REG_CANMATCH 001000 /* report details on partial/limited - * matches */ - -/* - * Flags values passed to Tcl_RegExpExecObj. - */ - -#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */ -#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */ - -/* - * Structures filled in by Tcl_RegExpInfo. Note that all offset values are - * relative to the start of the match string, not the beginning of the entire - * string. - */ - -typedef struct Tcl_RegExpIndices { - long start; /* Character offset of first character in - * match. */ - long end; /* Character offset of first character after - * the match. */ -} Tcl_RegExpIndices; - -typedef struct Tcl_RegExpInfo { - int nsubs; /* Number of subexpressions in the compiled - * expression. */ - Tcl_RegExpIndices *matches; /* Array of nsubs match offset pairs. */ - long extendStart; /* The offset at which a subsequent match - * might begin. */ - long reserved; /* Reserved for later use. */ -} Tcl_RegExpInfo; - -/* - * Picky compilers complain if this typdef doesn't appear before the struct's - * reference in tclDecls.h. - */ - -typedef Tcl_StatBuf *Tcl_Stat_; -typedef struct stat *Tcl_OldStat_; - -/* - * When a TCL command returns, the interpreter contains a result from the - * command. Programmers are strongly encouraged to use one of the functions - * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's - * result. See the SetResult man page for details. Besides this result, the - * command function returns an integer code, which is one of the following: - * - * TCL_OK Command completed normally; the interpreter's result - * contains the command's result. - * TCL_ERROR The command couldn't be completed successfully; the - * interpreter's result describes what went wrong. - * TCL_RETURN The command requests that the current function return; - * the interpreter's result contains the function's - * return value. - * TCL_BREAK The command requests that the innermost loop be - * exited; the interpreter's result is meaningless. - * TCL_CONTINUE Go on to the next iteration of the current loop; the - * interpreter's result is meaningless. - */ - -#define TCL_OK 0 -#define TCL_ERROR 1 -#define TCL_RETURN 2 -#define TCL_BREAK 3 -#define TCL_CONTINUE 4 - -#define TCL_RESULT_SIZE 200 - -/* - * Flags to control what substitutions are performed by Tcl_SubstObj(): - */ - -#define TCL_SUBST_COMMANDS 001 -#define TCL_SUBST_VARIABLES 002 -#define TCL_SUBST_BACKSLASHES 004 -#define TCL_SUBST_ALL 007 - -/* - * Argument descriptors for math function callbacks in expressions: - */ - -typedef enum { - TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT -} Tcl_ValueType; - -typedef struct Tcl_Value { - Tcl_ValueType type; /* Indicates intValue or doubleValue is valid, - * or both. */ - long intValue; /* Integer value. */ - double doubleValue; /* Double-precision floating value. */ - Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ -} Tcl_Value; - -/* - * Forward declaration of Tcl_Obj to prevent an error when the forward - * reference to Tcl_Obj is encountered in the function types declared below. - */ - -struct Tcl_Obj; - -/* - * Function types defined by Tcl: - */ - -typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int code)); -typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask)); -typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data)); -typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, CONST84 char *argv[])); -typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc, - ClientData cmdClientData, int argc, CONST84 char *argv[])); -typedef int (Tcl_CmdObjTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int level, CONST char *command, - Tcl_Command commandInfo, int objc, struct Tcl_Obj * CONST * objv)); -typedef void (Tcl_CmdObjTraceDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_DupInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *srcPtr, - struct Tcl_Obj *dupPtr)); -typedef int (Tcl_EncodingConvertProc)_ANSI_ARGS_((ClientData clientData, - CONST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, - char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, - int *dstCharsPtr)); -typedef void (Tcl_EncodingFreeProc)_ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags)); -typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData, - int flags)); -typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr, - ClientData clientData)); -typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData, - int flags)); -typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask)); -typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); -typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr)); -typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp)); -typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr)); -typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv)); -typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_PackageUnloadProc) _ANSI_ARGS_((Tcl_Interp *interp, - int flags)); -typedef void (Tcl_PanicProc) _ANSI_ARGS_((CONST char *format, ...)); -typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, - Tcl_Channel chan, char *address, int port)); -typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); -typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, - struct Tcl_Obj *objPtr)); -typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); -typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, CONST84 char *part1, CONST84 char *part2, - int flags)); -typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, CONST char *oldName, CONST char *newName, - int flags)); -typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, - Tcl_FileProc *proc, ClientData clientData)); -typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd)); -typedef void (Tcl_AlertNotifierProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_ServiceModeHookProc) _ANSI_ARGS_((int mode)); -typedef ClientData (Tcl_InitNotifierProc) _ANSI_ARGS_((VOID)); -typedef void (Tcl_FinalizeNotifierProc) _ANSI_ARGS_((ClientData clientData)); -typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void)); - -/* - * The following structure represents a type of object, which is a particular - * internal representation for an object plus a set of functions that provide - * standard operations on objects of that type. - */ - -typedef struct Tcl_ObjType { - char *name; /* Name of the type, e.g. "int". */ - Tcl_FreeInternalRepProc *freeIntRepProc; - /* Called to free any storage for the type's - * internal rep. NULL if the internal rep does - * not need freeing. */ - Tcl_DupInternalRepProc *dupIntRepProc; - /* Called to create a new object as a copy of - * an existing object. */ - Tcl_UpdateStringProc *updateStringProc; - /* Called to update the string rep from the - * type's internal representation. */ - Tcl_SetFromAnyProc *setFromAnyProc; - /* Called to convert the object's internal rep - * to this type. Frees the internal rep of the - * old type. Returns TCL_ERROR on failure. */ -} Tcl_ObjType; - -/* - * One of the following structures exists for each object in the Tcl system. - * An object stores a value as either a string, some internal representation, - * or both. - */ - -typedef struct Tcl_Obj { - int refCount; /* When 0 the object will be freed. */ - char *bytes; /* This points to the first byte of the - * object's string representation. The array - * must be followed by a null byte (i.e., at - * offset length) but may also contain - * embedded null characters. The array's - * storage is allocated by ckalloc. NULL means - * the string rep is invalid and must be - * regenerated from the internal rep. Clients - * should use Tcl_GetStringFromObj or - * Tcl_GetString to get a pointer to the byte - * array as a readonly value. */ - int length; /* The number of bytes at *bytes, not - * including the terminating null. */ - Tcl_ObjType *typePtr; /* Denotes the object's type. Always - * corresponds to the type of the object's - * internal rep. NULL indicates the object has - * no internal rep (has no type). */ - union { /* The internal representation: */ - long longValue; /* - an long integer value */ - double doubleValue; /* - a double-precision floating value */ - VOID *otherValuePtr; /* - another, type-specific value */ - Tcl_WideInt wideValue; /* - a long long value */ - struct { /* - internal rep as two pointers */ - VOID *ptr1; - VOID *ptr2; - } twoPtrValue; - struct { /* - internal rep as a wide int, tightly - * packed fields */ - VOID *ptr; /* Pointer to digits */ - unsigned long value;/* Alloc, used, and signum packed into a - * single word */ - } ptrAndLongRep; - } internalRep; -} Tcl_Obj; - -/* - * Macros to increment and decrement a Tcl_Obj's reference count, and to test - * whether an object is shared (i.e. has reference count > 1). Note: clients - * should use Tcl_DecrRefCount() when they are finished using an object, and - * should never call TclFreeObj() directly. TclFreeObj() is only defined and - * made public in tcl.h to support Tcl_DecrRefCount's macro definition. Note - * also that Tcl_DecrRefCount() refers to the parameter "obj" twice. This - * means that you should avoid calling it with an expression that is expensive - * to compute or has side effects. - */ - -void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); -int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); - -/* - * The following structure contains the state needed by Tcl_SaveResult. No-one - * outside of Tcl should access any of these fields. This structure is - * typically allocated on the stack. - */ - -typedef struct Tcl_SavedResult { - char *result; - Tcl_FreeProc *freeProc; - Tcl_Obj *objResultPtr; - char *appendResult; - int appendAvl; - int appendUsed; - char resultSpace[TCL_RESULT_SIZE+1]; -} Tcl_SavedResult; - -/* - * The following definitions support Tcl's namespace facility. Note: the first - * five fields must match exactly the fields in a Namespace structure (see - * tclInt.h). - */ - -typedef struct Tcl_Namespace { - char *name; /* The namespace's name within its parent - * namespace. This contains no ::'s. The name - * of the global namespace is "" although "::" - * is an synonym. */ - char *fullName; /* The namespace's fully qualified name. This - * starts with ::. */ - ClientData clientData; /* Arbitrary value associated with this - * namespace. */ - Tcl_NamespaceDeleteProc *deleteProc; - /* Function invoked when deleting the - * namespace to, e.g., free clientData. */ - struct Tcl_Namespace *parentPtr; - /* Points to the namespace that contains this - * one. NULL if this is the global - * namespace. */ -} Tcl_Namespace; - -/* - * The following structure represents a call frame, or activation record. A - * call frame defines a naming context for a procedure call: its local scope - * (for local variables) and its namespace scope (used for non-local - * variables; often the global :: namespace). A call frame can also define the - * naming context for a namespace eval or namespace inscope command: the - * namespace in which the command's code should execute. The Tcl_CallFrame - * structures exist only while procedures or namespace eval/inscope's are - * being executed, and provide a Tcl call stack. - * - * A call frame is initialized and pushed using Tcl_PushCallFrame and popped - * using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be provided by the - * Tcl_PushCallFrame caller, and callers typically allocate them on the C call - * stack for efficiency. For this reason, Tcl_CallFrame is defined as a - * structure and not as an opaque token. However, most Tcl_CallFrame fields - * are hidden since applications should not access them directly; others are - * declared as "dummyX". - * - * WARNING!! The structure definition must be kept consistent with the - * CallFrame structure in tclInt.h. If you change one, change the other. - */ - -typedef struct Tcl_CallFrame { - Tcl_Namespace *nsPtr; - int dummy1; - int dummy2; - char *dummy3; - char *dummy4; - char *dummy5; - int dummy6; - char *dummy7; - char *dummy8; - int dummy9; - char *dummy10; - char *dummy11; - char *dummy12; -} Tcl_CallFrame; - -/* - * Information about commands that is returned by Tcl_GetCommandInfo and - * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based command - * function while proc is a traditional Tcl argc/argv string-based function. - * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and - * proc are non-NULL and can be called to execute the command. However, it may - * be faster to call one instead of the other. The member isNativeObjectProc - * is set to 1 if an object-based function was registered by - * Tcl_CreateObjCommand, and to 0 if a string-based function was registered by - * Tcl_CreateCommand. The other function is typically set to a compatibility - * wrapper that does string-to-object or object-to-string argument conversions - * then calls the other function. - */ - -typedef struct Tcl_CmdInfo { - int isNativeObjectProc; /* 1 if objProc was registered by a call to - * Tcl_CreateObjCommand; 0 otherwise. - * Tcl_SetCmdInfo does not modify this - * field. */ - Tcl_ObjCmdProc *objProc; /* Command's object-based function. */ - ClientData objClientData; /* ClientData for object proc. */ - Tcl_CmdProc *proc; /* Command's string-based function. */ - ClientData clientData; /* ClientData for string proc. */ - Tcl_CmdDeleteProc *deleteProc; - /* Function to call when command is - * deleted. */ - ClientData deleteData; /* Value to pass to deleteProc (usually the - * same as clientData). */ - Tcl_Namespace *namespacePtr;/* Points to the namespace that contains this - * command. Note that Tcl_SetCmdInfo will not - * change a command's namespace; use - * TclRenameCommand or Tcl_Eval (of 'rename') - * to do that. */ -} Tcl_CmdInfo; - -/* - * The structure defined below is used to hold dynamic strings. The only - * fields that clients should use are string and length, accessible via the - * macros Tcl_DStringValue and Tcl_DStringLength. - */ - -#define TCL_DSTRING_STATIC_SIZE 200 -typedef struct Tcl_DString { - char *string; /* Points to beginning of string: either - * staticSpace below or a malloced array. */ - int length; /* Number of non-NULL characters in the - * string. */ - int spaceAvl; /* Total number of bytes available for the - * string and its terminating NULL char. */ - char staticSpace[TCL_DSTRING_STATIC_SIZE]; - /* Space to use in common case where string is - * small. */ -} Tcl_DString; - -#define Tcl_DStringLength(dsPtr) ((dsPtr)->length) -#define Tcl_DStringValue(dsPtr) ((dsPtr)->string) -#define Tcl_DStringTrunc Tcl_DStringSetLength - -/* - * Definitions for the maximum number of digits of precision that may be - * specified in the "tcl_precision" variable, and the number of bytes of - * buffer space required by Tcl_PrintDouble. - */ - -#define TCL_MAX_PREC 17 -#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) - -/* - * Definition for a number of bytes of buffer space sufficient to hold the - * string representation of an integer in base 10 (assuming the existence of - * 64-bit integers). - */ - -#define TCL_INTEGER_SPACE 24 - -/* - * Flag values passed to Tcl_ConvertElement. - * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to - * use backslash quoting instead. - * TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. It - * is safe to leave the hash unquoted when the element is not the first - * element of a list, and this flag can be used by the caller to indicate - * that condition. - * (Careful! If you change these flag values be sure to change the definitions - * at the front of tclUtil.c). - */ - -#define TCL_DONT_USE_BRACES 1 -#define TCL_DONT_QUOTE_HASH 8 - -/* - * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow - * abbreviated strings. - */ - -#define TCL_EXACT 1 - -/* - * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv. - * WARNING: these bit choices must not conflict with the bit choices for - * evalFlag bits in tclInt.h! - * - * Meanings: - * TCL_NO_EVAL: Just record this command - * TCL_EVAL_GLOBAL: Execute script in global namespace - * TCL_EVAL_DIRECT: Do not compile this script - * TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensembles - * o Run in iPtr->lookupNsPtr or global namespace - * o Cut out of error traces - * o Don't reset the flags controlling ensemble - * error message rewriting. - */ -#define TCL_NO_EVAL 0x10000 -#define TCL_EVAL_GLOBAL 0x20000 -#define TCL_EVAL_DIRECT 0x40000 -#define TCL_EVAL_INVOKE 0x80000 - -/* - * Special freeProc values that may be passed to Tcl_SetResult (see the man - * page for details): - */ - -#define TCL_VOLATILE ((Tcl_FreeProc *) 1) -#define TCL_STATIC ((Tcl_FreeProc *) 0) -#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) - -/* - * Flag values passed to variable-related functions. - */ - -#define TCL_GLOBAL_ONLY 1 -#define TCL_NAMESPACE_ONLY 2 -#define TCL_APPEND_VALUE 4 -#define TCL_LIST_ELEMENT 8 -#define TCL_TRACE_READS 0x10 -#define TCL_TRACE_WRITES 0x20 -#define TCL_TRACE_UNSETS 0x40 -#define TCL_TRACE_DESTROYED 0x80 -#define TCL_INTERP_DESTROYED 0x100 -#define TCL_LEAVE_ERR_MSG 0x200 -#define TCL_TRACE_ARRAY 0x800 -#ifndef TCL_REMOVE_OBSOLETE_TRACES -/* Required to support old variable/vdelete/vinfo traces */ -#define TCL_TRACE_OLD_STYLE 0x1000 -#endif -/* Indicate the semantics of the result of a trace */ -#define TCL_TRACE_RESULT_DYNAMIC 0x8000 -#define TCL_TRACE_RESULT_OBJECT 0x10000 - -/* - * Flag values for ensemble commands. - */ - -#define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow - * unambiguous prefixes of commands or to - * require exact matches for command names. */ - -/* - * Flag values passed to command-related functions. - */ - -#define TCL_TRACE_RENAME 0x2000 -#define TCL_TRACE_DELETE 0x4000 - -#define TCL_ALLOW_INLINE_COMPILATION 0x20000 - -/* - * The TCL_PARSE_PART1 flag is deprecated and has no effect. The part1 is now - * always parsed whenever the part2 is NULL. (This is to avoid a common error - * when converting code to use the new object based APIs and forgetting to - * give the flag) - */ - -#ifndef TCL_NO_DEPRECATED -# define TCL_PARSE_PART1 0x400 -#endif - -/* - * Types for linked variables: - */ - -#define TCL_LINK_INT 1 -#define TCL_LINK_DOUBLE 2 -#define TCL_LINK_BOOLEAN 3 -#define TCL_LINK_STRING 4 -#define TCL_LINK_WIDE_INT 5 -#define TCL_LINK_CHAR 6 -#define TCL_LINK_UCHAR 7 -#define TCL_LINK_SHORT 8 -#define TCL_LINK_USHORT 9 -#define TCL_LINK_UINT 10 -#define TCL_LINK_LONG 11 -#define TCL_LINK_ULONG 12 -#define TCL_LINK_FLOAT 13 -#define TCL_LINK_WIDE_UINT 14 -#define TCL_LINK_READ_ONLY 0x80 - -/* - * Forward declarations of Tcl_HashTable and related types. - */ - -typedef struct Tcl_HashKeyType Tcl_HashKeyType; -typedef struct Tcl_HashTable Tcl_HashTable; -typedef struct Tcl_HashEntry Tcl_HashEntry; - -typedef unsigned int (Tcl_HashKeyProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - VOID *keyPtr)); -typedef int (Tcl_CompareHashKeysProc) _ANSI_ARGS_((VOID *keyPtr, - Tcl_HashEntry *hPtr)); -typedef Tcl_HashEntry *(Tcl_AllocHashEntryProc) _ANSI_ARGS_(( - Tcl_HashTable *tablePtr, VOID *keyPtr)); -typedef void (Tcl_FreeHashEntryProc) _ANSI_ARGS_((Tcl_HashEntry *hPtr)); - -/* - * This flag controls whether the hash table stores the hash of a key, or - * recalculates it. There should be no reason for turning this flag off as it - * is completely binary and source compatible unless you directly access the - * bucketPtr member of the Tcl_HashTableEntry structure. This member has been - * removed and the space used to store the hash value. - */ - -#ifndef TCL_HASH_KEY_STORE_HASH -# define TCL_HASH_KEY_STORE_HASH 1 -#endif - -/* - * Structure definition for an entry in a hash table. No-one outside Tcl - * should access any of these fields directly; use the macros defined below. - */ - -struct Tcl_HashEntry { - Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket, - * or NULL for end of chain. */ - Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */ -#if TCL_HASH_KEY_STORE_HASH - VOID *hash; /* Hash value, stored as pointer to ensure - * that the offsets of the fields in this - * structure are not changed. */ -#else - Tcl_HashEntry **bucketPtr; /* Pointer to bucket that points to first - * entry in this entry's chain: used for - * deleting the entry. */ -#endif - ClientData clientData; /* Application stores something here with - * Tcl_SetHashValue. */ - union { /* Key has one of these forms: */ - char *oneWordValue; /* One-word value for key. */ - Tcl_Obj *objPtr; /* Tcl_Obj * key value. */ - int words[1]; /* Multiple integer words for key. The actual - * size will be as large as necessary for this - * table's keys. */ - char string[4]; /* String for key. The actual size will be as - * large as needed to hold the key. */ - } key; /* MUST BE LAST FIELD IN RECORD!! */ -}; - -/* - * Flags used in Tcl_HashKeyType. - * - * TCL_HASH_KEY_RANDOMIZE_HASH - - * There are some things, pointers for example - * which don't hash well because they do not use - * the lower bits. If this flag is set then the - * hash table will attempt to rectify this by - * randomising the bits and then using the upper - * N bits as the index into the table. - * TCL_HASH_KEY_SYSTEM_HASH - If this flag is set then all memory internally - * allocated for the hash table that is not for an - * entry will use the system heap. - */ - -#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1 -#define TCL_HASH_KEY_SYSTEM_HASH 0x2 - -/* - * Structure definition for the methods associated with a hash table key type. - */ - -#define TCL_HASH_KEY_TYPE_VERSION 1 -struct Tcl_HashKeyType { - int version; /* Version of the table. If this structure is - * extended in future then the version can be - * used to distinguish between different - * structures. */ - int flags; /* Flags, see above for details. */ - Tcl_HashKeyProc *hashKeyProc; - /* Calculates a hash value for the key. If - * this is NULL then the pointer itself is - * used as a hash value. */ - Tcl_CompareHashKeysProc *compareKeysProc; - /* Compares two keys and returns zero if they - * do not match, and non-zero if they do. If - * this is NULL then the pointers are - * compared. */ - Tcl_AllocHashEntryProc *allocEntryProc; - /* Called to allocate memory for a new entry, - * i.e. if the key is a string then this could - * allocate a single block which contains - * enough space for both the entry and the - * string. Only the key field of the allocated - * Tcl_HashEntry structure needs to be filled - * in. If something else needs to be done to - * the key, i.e. incrementing a reference - * count then that should be done by this - * function. If this is NULL then Tcl_Alloc is - * used to allocate enough space for a - * Tcl_HashEntry and the key pointer is - * assigned to key.oneWordValue. */ - Tcl_FreeHashEntryProc *freeEntryProc; - /* Called to free memory associated with an - * entry. If something else needs to be done - * to the key, i.e. decrementing a reference - * count then that should be done by this - * function. If this is NULL then Tcl_Free is - * used to free the Tcl_HashEntry. */ -}; - -/* - * Structure definition for a hash table. Must be in tcl.h so clients can - * allocate space for these structures, but clients should never access any - * fields in this structure. - */ - -#define TCL_SMALL_HASH_TABLE 4 -struct Tcl_HashTable { - Tcl_HashEntry **buckets; /* Pointer to bucket array. Each element - * points to first entry in bucket's hash - * chain, or NULL. */ - Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE]; - /* Bucket array used for small tables (to - * avoid mallocs and frees). */ - int numBuckets; /* Total number of buckets allocated at - * **bucketPtr. */ - int numEntries; /* Total number of entries present in - * table. */ - int rebuildSize; /* Enlarge table when numEntries gets to be - * this large. */ - int downShift; /* Shift count used in hashing function. - * Designed to use high-order bits of - * randomized keys. */ - int mask; /* Mask value used in hashing function. */ - int keyType; /* Type of keys used in this table. It's - * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS, - * TCL_ONE_WORD_KEYS, or an integer giving the - * number of ints that is the size of the - * key. */ - Tcl_HashEntry *(*findProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - CONST char *key)); - Tcl_HashEntry *(*createProc) _ANSI_ARGS_((Tcl_HashTable *tablePtr, - CONST char *key, int *newPtr)); - Tcl_HashKeyType *typePtr; /* Type of the keys used in the - * Tcl_HashTable. */ -}; - -/* - * Structure definition for information used to keep track of searches through - * hash tables: - */ - -typedef struct Tcl_HashSearch { - Tcl_HashTable *tablePtr; /* Table being searched. */ - int nextIndex; /* Index of next bucket to be enumerated after - * present one. */ - Tcl_HashEntry *nextEntryPtr;/* Next entry to be enumerated in the current - * bucket. */ -} Tcl_HashSearch; - -/* - * Acceptable key types for hash tables: - * - * TCL_STRING_KEYS: The keys are strings, they are copied into the - * entry. - * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored - * in the entry. - * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied - * into the entry. - * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the - * pointer is stored in the entry. - * - * While maintaining binary compatability the above have to be distinct values - * as they are used to differentiate between old versions of the hash table - * which don't have a typePtr and new ones which do. Once binary compatability - * is discarded in favour of making more wide spread changes TCL_STRING_KEYS - * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be the - * same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is - * accessed from the entry and not the behaviour. - */ - -#define TCL_STRING_KEYS 0 -#define TCL_ONE_WORD_KEYS 1 -#define TCL_CUSTOM_TYPE_KEYS -2 -#define TCL_CUSTOM_PTR_KEYS -1 - -/* - * Structure definition for information used to keep track of searches through - * dictionaries. These fields should not be accessed by code outside - * tclDictObj.c - */ - -typedef struct { - void *next; /* Search position for underlying hash - * table. */ - int epoch; /* Epoch marker for dictionary being searched, - * or -1 if search has terminated. */ - Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. */ -} Tcl_DictSearch; - -/* - * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of - * events: - */ - -#define TCL_DONT_WAIT (1<<1) -#define TCL_WINDOW_EVENTS (1<<2) -#define TCL_FILE_EVENTS (1<<3) -#define TCL_TIMER_EVENTS (1<<4) -#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */ -#define TCL_ALL_EVENTS (~TCL_DONT_WAIT) - -/* - * The following structure defines a generic event for the Tcl event system. - * These are the things that are queued in calls to Tcl_QueueEvent and - * serviced later by Tcl_DoOneEvent. There can be many different kinds of - * events with different fields, corresponding to window events, timer events, - * etc. The structure for a particular event consists of a Tcl_Event header - * followed by additional information specific to that event. - */ - -struct Tcl_Event { - Tcl_EventProc *proc; /* Function to call to service this event. */ - struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */ -}; - -/* - * Positions to pass to Tcl_QueueEvent: - */ - -typedef enum { - TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK -} Tcl_QueuePosition; - -/* - * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier - * event routines. - */ - -#define TCL_SERVICE_NONE 0 -#define TCL_SERVICE_ALL 1 - -/* - * The following structure keeps is used to hold a time value, either as an - * absolute time (the number of seconds from the epoch) or as an elapsed time. - * On Unix systems the epoch is Midnight Jan 1, 1970 GMT. - */ - -typedef struct Tcl_Time { - long sec; /* Seconds. */ - long usec; /* Microseconds. */ -} Tcl_Time; - -typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); -typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); - -/* - * TIP #233 (Virtualized Time) - */ - -typedef void (Tcl_GetTimeProc) _ANSI_ARGS_((Tcl_Time *timebuf, - ClientData clientData)); -typedef void (Tcl_ScaleTimeProc) _ANSI_ARGS_((Tcl_Time *timebuf, - ClientData clientData)); - -/* - * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to - * indicate what sorts of events are of interest: - */ - -#define TCL_READABLE (1<<1) -#define TCL_WRITABLE (1<<2) -#define TCL_EXCEPTION (1<<3) - -/* - * Flag values to pass to Tcl_OpenCommandChannel to indicate the disposition - * of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, are also used in - * Tcl_GetStdChannel. - */ - -#define TCL_STDIN (1<<1) -#define TCL_STDOUT (1<<2) -#define TCL_STDERR (1<<3) -#define TCL_ENFORCE_MODE (1<<4) - -/* - * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel - * should be closed. - */ - -#define TCL_CLOSE_READ (1<<1) -#define TCL_CLOSE_WRITE (1<<2) - -/* - * Value to use as the closeProc for a channel that supports the close2Proc - * interface. - */ - -#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *)1) - -/* - * Channel version tag. This was introduced in 8.3.2/8.4. - */ - -#define TCL_CHANNEL_VERSION_1 ((Tcl_ChannelTypeVersion) 0x1) -#define TCL_CHANNEL_VERSION_2 ((Tcl_ChannelTypeVersion) 0x2) -#define TCL_CHANNEL_VERSION_3 ((Tcl_ChannelTypeVersion) 0x3) -#define TCL_CHANNEL_VERSION_4 ((Tcl_ChannelTypeVersion) 0x4) -#define TCL_CHANNEL_VERSION_5 ((Tcl_ChannelTypeVersion) 0x5) - -/* - * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc - */ - -#define TCL_CHANNEL_THREAD_INSERT (0) -#define TCL_CHANNEL_THREAD_REMOVE (1) - -/* - * Typedefs for the various operations in a channel type: - */ - -typedef int (Tcl_DriverBlockModeProc) _ANSI_ARGS_(( - ClientData instanceData, int mode)); -typedef int (Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData, - Tcl_Interp *interp)); -typedef int (Tcl_DriverClose2Proc) _ANSI_ARGS_((ClientData instanceData, - Tcl_Interp *interp, int flags)); -typedef int (Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData, - char *buf, int toRead, int *errorCodePtr)); -typedef int (Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData, - CONST84 char *buf, int toWrite, int *errorCodePtr)); -typedef int (Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData, - long offset, int mode, int *errorCodePtr)); -typedef int (Tcl_DriverSetOptionProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_Interp *interp, - CONST char *optionName, CONST char *value)); -typedef int (Tcl_DriverGetOptionProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_Interp *interp, - CONST84 char *optionName, Tcl_DString *dsPtr)); -typedef void (Tcl_DriverWatchProc) _ANSI_ARGS_(( - ClientData instanceData, int mask)); -typedef int (Tcl_DriverGetHandleProc) _ANSI_ARGS_(( - ClientData instanceData, int direction, - ClientData *handlePtr)); -typedef int (Tcl_DriverFlushProc) _ANSI_ARGS_((ClientData instanceData)); -typedef int (Tcl_DriverHandlerProc) _ANSI_ARGS_(( - ClientData instanceData, int interestMask)); -typedef Tcl_WideInt (Tcl_DriverWideSeekProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_WideInt offset, - int mode, int *errorCodePtr)); -/* - * TIP #218, Channel Thread Actions - */ -typedef void (Tcl_DriverThreadActionProc) _ANSI_ARGS_ (( - ClientData instanceData, int action)); -/* - * TIP #208, File Truncation (etc.) - */ -typedef int (Tcl_DriverTruncateProc) _ANSI_ARGS_(( - ClientData instanceData, Tcl_WideInt length)); - -/* - * struct Tcl_ChannelType: - * - * One such structure exists for each type (kind) of channel. It collects - * together in one place all the functions that are part of the specific - * channel type. - * - * It is recommend that the Tcl_Channel* functions are used to access elements - * of this structure, instead of direct accessing. - */ - -typedef struct Tcl_ChannelType { - char *typeName; /* The name of the channel type in Tcl - * commands. This storage is owned by channel - * type. */ - Tcl_ChannelTypeVersion version; - /* Version of the channel type. */ - Tcl_DriverCloseProc *closeProc; - /* Function to call to close the channel, or - * TCL_CLOSE2PROC if the close2Proc should be - * used instead. */ - Tcl_DriverInputProc *inputProc; - /* Function to call for input on channel. */ - Tcl_DriverOutputProc *outputProc; - /* Function to call for output on channel. */ - Tcl_DriverSeekProc *seekProc; - /* Function to call to seek on the channel. - * May be NULL. */ - Tcl_DriverSetOptionProc *setOptionProc; - /* Set an option on a channel. */ - Tcl_DriverGetOptionProc *getOptionProc; - /* Get an option from a channel. */ - Tcl_DriverWatchProc *watchProc; - /* Set up the notifier to watch for events on - * this channel. */ - Tcl_DriverGetHandleProc *getHandleProc; - /* Get an OS handle from the channel or NULL - * if not supported. */ - Tcl_DriverClose2Proc *close2Proc; - /* Function to call to close the channel if - * the device supports closing the read & - * write sides independently. */ - Tcl_DriverBlockModeProc *blockModeProc; - /* Set blocking mode for the raw channel. May - * be NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_2 channels or later - */ - Tcl_DriverFlushProc *flushProc; - /* Function to call to flush a channel. May be - * NULL. */ - Tcl_DriverHandlerProc *handlerProc; - /* Function to call to handle a channel event. - * This will be passed up the stacked channel - * chain. */ - /* - * Only valid in TCL_CHANNEL_VERSION_3 channels or later - */ - Tcl_DriverWideSeekProc *wideSeekProc; - /* Function to call to seek on the channel - * which can handle 64-bit offsets. May be - * NULL, and must be NULL if seekProc is - * NULL. */ - /* - * Only valid in TCL_CHANNEL_VERSION_4 channels or later - * TIP #218, Channel Thread Actions - */ - Tcl_DriverThreadActionProc *threadActionProc; - /* Function to call to notify the driver of - * thread specific activity for a channel. May - * be NULL. */ - - /* - * Only valid in TCL_CHANNEL_VERSION_5 channels or later - * TIP #208, File Truncation - */ - Tcl_DriverTruncateProc *truncateProc; - /* Function to call to truncate the underlying - * file to a particular length. May be NULL if - * the channel does not support truncation. */ -} Tcl_ChannelType; - -/* - * The following flags determine whether the blockModeProc above should set - * the channel into blocking or nonblocking mode. They are passed as arguments - * to the blockModeProc function in the above structure. - */ - -#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */ -#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking - * mode. */ - -/* - * Enum for different types of file paths. - */ - -typedef enum Tcl_PathType { - TCL_PATH_ABSOLUTE, - TCL_PATH_RELATIVE, - TCL_PATH_VOLUME_RELATIVE -} Tcl_PathType; - -/* - * The following structure is used to pass glob type data amongst the various - * glob routines and Tcl_FSMatchInDirectory. - */ - -typedef struct Tcl_GlobTypeData { - int type; /* Corresponds to bcdpfls as in 'find -t' */ - int perm; /* Corresponds to file permissions */ - Tcl_Obj *macType; /* Acceptable mac type */ - Tcl_Obj *macCreator; /* Acceptable mac creator */ -} Tcl_GlobTypeData; - -/* - * Type and permission definitions for glob command - */ - -#define TCL_GLOB_TYPE_BLOCK (1<<0) -#define TCL_GLOB_TYPE_CHAR (1<<1) -#define TCL_GLOB_TYPE_DIR (1<<2) -#define TCL_GLOB_TYPE_PIPE (1<<3) -#define TCL_GLOB_TYPE_FILE (1<<4) -#define TCL_GLOB_TYPE_LINK (1<<5) -#define TCL_GLOB_TYPE_SOCK (1<<6) -#define TCL_GLOB_TYPE_MOUNT (1<<7) - -#define TCL_GLOB_PERM_RONLY (1<<0) -#define TCL_GLOB_PERM_HIDDEN (1<<1) -#define TCL_GLOB_PERM_R (1<<2) -#define TCL_GLOB_PERM_W (1<<3) -#define TCL_GLOB_PERM_X (1<<4) - -/* - * Flags for the unload callback function - */ - -#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0) -#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1) - -/* - * Typedefs for the various filesystem operations: - */ - -typedef int (Tcl_FSStatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, Tcl_StatBuf *buf)); -typedef int (Tcl_FSAccessProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, int mode)); -typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) _ANSI_ARGS_(( - Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions)); -typedef int (Tcl_FSMatchInDirectoryProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *result, Tcl_Obj *pathPtr, CONST char *pattern, - Tcl_GlobTypeData * types)); -typedef Tcl_Obj * (Tcl_FSGetCwdProc) _ANSI_ARGS_((Tcl_Interp *interp)); -typedef int (Tcl_FSChdirProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSLstatProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - Tcl_StatBuf *buf)); -typedef int (Tcl_FSCreateDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSDeleteFileProc) _ANSI_ARGS_((Tcl_Obj *pathPtr)); -typedef int (Tcl_FSCopyDirectoryProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)); -typedef int (Tcl_FSCopyFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr)); -typedef int (Tcl_FSRemoveDirectoryProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - int recursive, Tcl_Obj **errorPtr)); -typedef int (Tcl_FSRenameFileProc) _ANSI_ARGS_((Tcl_Obj *srcPathPtr, - Tcl_Obj *destPathPtr)); -typedef void (Tcl_FSUnloadFileProc) _ANSI_ARGS_((Tcl_LoadHandle loadHandle)); -typedef Tcl_Obj * (Tcl_FSListVolumesProc) _ANSI_ARGS_((void)); -/* We have to declare the utime structure here. */ -struct utimbuf; -typedef int (Tcl_FSUtimeProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - struct utimbuf *tval)); -typedef int (Tcl_FSNormalizePathProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *pathPtr, int nextCheckpoint)); -typedef int (Tcl_FSFileAttrsGetProc) _ANSI_ARGS_((Tcl_Interp *interp, - int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); -typedef CONST char ** (Tcl_FSFileAttrStringsProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)); -typedef int (Tcl_FSFileAttrsSetProc) _ANSI_ARGS_((Tcl_Interp *interp, - int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr)); -typedef Tcl_Obj * (Tcl_FSLinkProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - Tcl_Obj *toPtr, int linkType)); -typedef int (Tcl_FSLoadFileProc) _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj *pathPtr, Tcl_LoadHandle *handlePtr, - Tcl_FSUnloadFileProc **unloadProcPtr)); -typedef int (Tcl_FSPathInFilesystemProc) _ANSI_ARGS_((Tcl_Obj *pathPtr, - ClientData *clientDataPtr)); -typedef Tcl_Obj * (Tcl_FSFilesystemPathTypeProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr)); -typedef Tcl_Obj * (Tcl_FSFilesystemSeparatorProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr)); -typedef void (Tcl_FSFreeInternalRepProc) _ANSI_ARGS_((ClientData clientData)); -typedef ClientData (Tcl_FSDupInternalRepProc) _ANSI_ARGS_(( - ClientData clientData)); -typedef Tcl_Obj * (Tcl_FSInternalToNormalizedProc) _ANSI_ARGS_(( - ClientData clientData)); -typedef ClientData (Tcl_FSCreateInternalRepProc) _ANSI_ARGS_(( - Tcl_Obj *pathPtr)); - -typedef struct Tcl_FSVersion_ *Tcl_FSVersion; - -/* - *---------------------------------------------------------------- - * Data structures related to hooking into the filesystem - *---------------------------------------------------------------- - */ - -/* - * Filesystem version tag. This was introduced in 8.4. - */ -#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1) - -/* - * struct Tcl_Filesystem: - * - * One such structure exists for each type (kind) of filesystem. It collects - * together in one place all the functions that are part of the specific - * filesystem. Tcl always accesses the filesystem through one of these - * structures. - * - * Not all entries need be non-NULL; any which are NULL are simply ignored. - * However, a complete filesystem should provide all of these functions. The - * explanations in the structure show the importance of each function. - */ - -typedef struct Tcl_Filesystem { - CONST char *typeName; /* The name of the filesystem. */ - int structureLength; /* Length of this structure, so future binary - * compatibility can be assured. */ - Tcl_FSVersion version; /* Version of the filesystem type. */ - Tcl_FSPathInFilesystemProc *pathInFilesystemProc; - /* Function to check whether a path is in this - * filesystem. This is the most important - * filesystem function. */ - Tcl_FSDupInternalRepProc *dupInternalRepProc; - /* Function to duplicate internal fs rep. May - * be NULL (but then fs is less efficient). */ - Tcl_FSFreeInternalRepProc *freeInternalRepProc; - /* Function to free internal fs rep. Must be - * implemented if internal representations - * need freeing, otherwise it can be NULL. */ - Tcl_FSInternalToNormalizedProc *internalToNormalizedProc; - /* Function to convert internal representation - * to a normalized path. Only required if the - * fs creates pure path objects with no - * string/path representation. */ - Tcl_FSCreateInternalRepProc *createInternalRepProc; - /* Function to create a filesystem-specific - * internal representation. May be NULL if - * paths have no internal representation, or - * if the Tcl_FSPathInFilesystemProc for this - * filesystem always immediately creates an - * internal representation for paths it - * accepts. */ - Tcl_FSNormalizePathProc *normalizePathProc; - /* Function to normalize a path. Should be - * implemented for all filesystems which can - * have multiple string representations for - * the same path object. */ - Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc; - /* Function to determine the type of a path in - * this filesystem. May be NULL. */ - Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc; - /* Function to return the separator - * character(s) for this filesystem. Must be - * implemented. */ - Tcl_FSStatProc *statProc; /* Function to process a 'Tcl_FSStat()' call. - * Must be implemented for any reasonable - * filesystem. */ - Tcl_FSAccessProc *accessProc; - /* Function to process a 'Tcl_FSAccess()' - * call. Must be implemented for any - * reasonable filesystem. */ - Tcl_FSOpenFileChannelProc *openFileChannelProc; - /* Function to process a - * 'Tcl_FSOpenFileChannel()' call. Must be - * implemented for any reasonable - * filesystem. */ - Tcl_FSMatchInDirectoryProc *matchInDirectoryProc; - /* Function to process a - * 'Tcl_FSMatchInDirectory()'. If not - * implemented, then glob and recursive copy - * functionality will be lacking in the - * filesystem. */ - Tcl_FSUtimeProc *utimeProc; /* Function to process a 'Tcl_FSUtime()' call. - * Required to allow setting (not reading) of - * times with 'file mtime', 'file atime' and - * the open-r/open-w/fcopy implementation of - * 'file copy'. */ - Tcl_FSLinkProc *linkProc; /* Function to process a 'Tcl_FSLink()' call. - * Should be implemented only if the - * filesystem supports links (reading or - * creating). */ - Tcl_FSListVolumesProc *listVolumesProc; - /* Function to list any filesystem volumes - * added by this filesystem. Should be - * implemented only if the filesystem adds - * volumes at the head of the filesystem. */ - Tcl_FSFileAttrStringsProc *fileAttrStringsProc; - /* Function to list all attributes strings - * which are valid for this filesystem. If not - * implemented the filesystem will not support - * the 'file attributes' command. This allows - * arbitrary additional information to be - * attached to files in the filesystem. */ - Tcl_FSFileAttrsGetProc *fileAttrsGetProc; - /* Function to process a - * 'Tcl_FSFileAttrsGet()' call, used by 'file - * attributes'. */ - Tcl_FSFileAttrsSetProc *fileAttrsSetProc; - /* Function to process a - * 'Tcl_FSFileAttrsSet()' call, used by 'file - * attributes'. */ - Tcl_FSCreateDirectoryProc *createDirectoryProc; - /* Function to process a - * 'Tcl_FSCreateDirectory()' call. Should be - * implemented unless the FS is read-only. */ - Tcl_FSRemoveDirectoryProc *removeDirectoryProc; - /* Function to process a - * 'Tcl_FSRemoveDirectory()' call. Should be - * implemented unless the FS is read-only. */ - Tcl_FSDeleteFileProc *deleteFileProc; - /* Function to process a 'Tcl_FSDeleteFile()' - * call. Should be implemented unless the FS - * is read-only. */ - Tcl_FSCopyFileProc *copyFileProc; - /* Function to process a 'Tcl_FSCopyFile()' - * call. If not implemented Tcl will fall back - * on open-r, open-w and fcopy as a copying - * mechanism, for copying actions initiated in - * Tcl (not C). */ - Tcl_FSRenameFileProc *renameFileProc; - /* Function to process a 'Tcl_FSRenameFile()' - * call. If not implemented, Tcl will fall - * back on a copy and delete mechanism, for - * rename actions initiated in Tcl (not C). */ - Tcl_FSCopyDirectoryProc *copyDirectoryProc; - /* Function to process a - * 'Tcl_FSCopyDirectory()' call. If not - * implemented, Tcl will fall back on a - * recursive create-dir, file copy mechanism, - * for copying actions initiated in Tcl (not - * C). */ - Tcl_FSLstatProc *lstatProc; /* Function to process a 'Tcl_FSLstat()' call. - * If not implemented, Tcl will attempt to use - * the 'statProc' defined above instead. */ - Tcl_FSLoadFileProc *loadFileProc; - /* Function to process a 'Tcl_FSLoadFile()' - * call. If not implemented, Tcl will fall - * back on a copy to native-temp followed by a - * Tcl_FSLoadFile on that temporary copy. */ - Tcl_FSGetCwdProc *getCwdProc; - /* Function to process a 'Tcl_FSGetCwd()' - * call. Most filesystems need not implement - * this. It will usually only be called once, - * if 'getcwd' is called before 'chdir'. May - * be NULL. */ - Tcl_FSChdirProc *chdirProc; /* Function to process a 'Tcl_FSChdir()' call. - * If filesystems do not implement this, it - * will be emulated by a series of directory - * access checks. Otherwise, virtual - * filesystems which do implement it need only - * respond with a positive return result if - * the dirName is a valid directory in their - * filesystem. They need not remember the - * result, since that will be automatically - * remembered for use by GetCwd. Real - * filesystems should carry out the correct - * action (i.e. call the correct system - * 'chdir' api). If not implemented, then 'cd' - * and 'pwd' will fail inside the - * filesystem. */ -} Tcl_Filesystem; - -/* - * The following definitions are used as values for the 'linkAction' flag to - * Tcl_FSLink, or the linkProc of any filesystem. Any combination of flags can - * be given. For link creation, the linkProc should create a link which - * matches any of the types given. - * - * TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link. - * TCL_CREATE_HARD_LINK - Create a hard link. - */ - -#define TCL_CREATE_SYMBOLIC_LINK 0x01 -#define TCL_CREATE_HARD_LINK 0x02 - -/* - * The following structure represents the Notifier functions that you can - * override with the Tcl_SetNotifier call. - */ - -typedef struct Tcl_NotifierProcs { - Tcl_SetTimerProc *setTimerProc; - Tcl_WaitForEventProc *waitForEventProc; - Tcl_CreateFileHandlerProc *createFileHandlerProc; - Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; - Tcl_InitNotifierProc *initNotifierProc; - Tcl_FinalizeNotifierProc *finalizeNotifierProc; - Tcl_AlertNotifierProc *alertNotifierProc; - Tcl_ServiceModeHookProc *serviceModeHookProc; -} Tcl_NotifierProcs; - -/* - * The following structure represents a user-defined encoding. It collects - * together all the functions that are used by the specific encoding. - */ - -typedef struct Tcl_EncodingType { - CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp". - * This name is the unique key for this - * encoding type. */ - Tcl_EncodingConvertProc *toUtfProc; - /* Function to convert from external encoding - * into UTF-8. */ - Tcl_EncodingConvertProc *fromUtfProc; - /* Function to convert from UTF-8 into - * external encoding. */ - Tcl_EncodingFreeProc *freeProc; - /* If non-NULL, function to call when this - * encoding is deleted. */ - ClientData clientData; /* Arbitrary value associated with encoding - * type. Passed to conversion functions. */ - int nullSize; /* Number of zero bytes that signify - * end-of-string in this encoding. This number - * is used to determine the source string - * length when the srcLen argument is - * negative. Must be 1 or 2. */ -} Tcl_EncodingType; - -/* - * The following definitions are used as values for the conversion control - * flags argument when converting text from one character set to another: - * - * TCL_ENCODING_START - Signifies that the source buffer is the first - * block in a (potentially multi-block) input - * stream. Tells the conversion function to reset - * to an initial state and perform any - * initialization that needs to occur before the - * first byte is converted. If the source buffer - * contains the entire input stream to be - * converted, this flag should be set. - * TCL_ENCODING_END - Signifies that the source buffer is the last - * block in a (potentially multi-block) input - * stream. Tells the conversion routine to - * perform any finalization that needs to occur - * after the last byte is converted and then to - * reset to an initial state. If the source - * buffer contains the entire input stream to be - * converted, this flag should be set. - * TCL_ENCODING_STOPONERROR - If set, then the converter will return - * immediately upon encountering an invalid byte - * sequence or a source character that has no - * mapping in the target encoding. If clear, then - * the converter will skip the problem, - * substituting one or more "close" characters in - * the destination buffer and then continue to - * convert the source. - */ - -#define TCL_ENCODING_START 0x01 -#define TCL_ENCODING_END 0x02 -#define TCL_ENCODING_STOPONERROR 0x04 - -/* - * The following data structures and declarations are for the new Tcl parser. - */ - -/* - * For each word of a command, and for each piece of a word such as a variable - * reference, one of the following structures is created to describe the - * token. - */ - -typedef struct Tcl_Token { - int type; /* Type of token, such as TCL_TOKEN_WORD; see - * below for valid types. */ - CONST char *start; /* First character in token. */ - int size; /* Number of bytes in token. */ - int numComponents; /* If this token is composed of other tokens, - * this field tells how many of them there are - * (including components of components, etc.). - * The component tokens immediately follow - * this one. */ -} Tcl_Token; - -/* - * Type values defined for Tcl_Token structures. These values are defined as - * mask bits so that it's easy to check for collections of types. - * - * TCL_TOKEN_WORD - The token describes one word of a command, - * from the first non-blank character of the word - * (which may be " or {) up to but not including - * the space, semicolon, or bracket that - * terminates the word. NumComponents counts the - * total number of sub-tokens that make up the - * word. This includes, for example, sub-tokens - * of TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD except - * that the word is guaranteed to consist of a - * single TCL_TOKEN_TEXT sub-token. - * TCL_TOKEN_TEXT - The token describes a range of literal text - * that is part of a word. NumComponents is - * always 0. - * TCL_TOKEN_BS - The token describes a backslash sequence that - * must be collapsed. NumComponents is always 0. - * TCL_TOKEN_COMMAND - The token describes a command whose result - * must be substituted into the word. The token - * includes the enclosing brackets. NumComponents - * is always 0. - * TCL_TOKEN_VARIABLE - The token describes a variable substitution, - * including the dollar sign, variable name, and - * array index (if there is one) up through the - * right parentheses. NumComponents tells how - * many additional tokens follow to represent the - * variable name. The first token will be a - * TCL_TOKEN_TEXT token that describes the - * variable name. If the variable is an array - * reference then there will be one or more - * additional tokens, of type TCL_TOKEN_TEXT, - * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and - * TCL_TOKEN_VARIABLE, that describe the array - * index; numComponents counts the total number - * of nested tokens that make up the variable - * reference, including sub-tokens of - * TCL_TOKEN_VARIABLE tokens. - * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of an - * expression, from the first non-blank character - * of the subexpression up to but not including - * the space, brace, or bracket that terminates - * the subexpression. NumComponents counts the - * total number of following subtokens that make - * up the subexpression; this includes all - * subtokens for any nested TCL_TOKEN_SUB_EXPR - * tokens. For example, a numeric value used as a - * primitive operand is described by a - * TCL_TOKEN_SUB_EXPR token followed by a - * TCL_TOKEN_TEXT token. A binary subexpression - * is described by a TCL_TOKEN_SUB_EXPR token - * followed by the TCL_TOKEN_OPERATOR token for - * the operator, then TCL_TOKEN_SUB_EXPR tokens - * for the left then the right operands. - * TCL_TOKEN_OPERATOR - The token describes one expression operator. - * An operator might be the name of a math - * function such as "abs". A TCL_TOKEN_OPERATOR - * token is always preceeded by one - * TCL_TOKEN_SUB_EXPR token for the operator's - * subexpression, and is followed by zero or more - * TCL_TOKEN_SUB_EXPR tokens for the operator's - * operands. NumComponents is always 0. - * TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD except - * that it marks a word that began with the - * literal character prefix "{*}". This word is - * marked to be expanded - that is, broken into - * words after substitution is complete. - */ - -#define TCL_TOKEN_WORD 1 -#define TCL_TOKEN_SIMPLE_WORD 2 -#define TCL_TOKEN_TEXT 4 -#define TCL_TOKEN_BS 8 -#define TCL_TOKEN_COMMAND 16 -#define TCL_TOKEN_VARIABLE 32 -#define TCL_TOKEN_SUB_EXPR 64 -#define TCL_TOKEN_OPERATOR 128 -#define TCL_TOKEN_EXPAND_WORD 256 - -/* - * Parsing error types. On any parsing error, one of these values will be - * stored in the error field of the Tcl_Parse structure defined below. - */ - -#define TCL_PARSE_SUCCESS 0 -#define TCL_PARSE_QUOTE_EXTRA 1 -#define TCL_PARSE_BRACE_EXTRA 2 -#define TCL_PARSE_MISSING_BRACE 3 -#define TCL_PARSE_MISSING_BRACKET 4 -#define TCL_PARSE_MISSING_PAREN 5 -#define TCL_PARSE_MISSING_QUOTE 6 -#define TCL_PARSE_MISSING_VAR_BRACE 7 -#define TCL_PARSE_SYNTAX 8 -#define TCL_PARSE_BAD_NUMBER 9 - -/* - * A structure of the following type is filled in by Tcl_ParseCommand. It - * describes a single command parsed from an input string. - */ - -#define NUM_STATIC_TOKENS 20 - -typedef struct Tcl_Parse { - CONST char *commentStart; /* Pointer to # that begins the first of one - * or more comments preceding the command. */ - int commentSize; /* Number of bytes in comments (up through - * newline character that terminates the last - * comment). If there were no comments, this - * field is 0. */ - CONST char *commandStart; /* First character in first word of - * command. */ - int commandSize; /* Number of bytes in command, including first - * character of first word, up through the - * terminating newline, close bracket, or - * semicolon. */ - int numWords; /* Total number of words in command. May be - * 0. */ - Tcl_Token *tokenPtr; /* Pointer to first token representing the - * words of the command. Initially points to - * staticTokens, but may change to point to - * malloc-ed space if command exceeds space in - * staticTokens. */ - int numTokens; /* Total number of tokens in command. */ - int tokensAvailable; /* Total number of tokens available at - * *tokenPtr. */ - int errorType; /* One of the parsing error types defined - * above. */ - - /* - * The fields below are intended only for the private use of the parser. - * They should not be used by functions that invoke Tcl_ParseCommand. - */ - - CONST char *string; /* The original command string passed to - * Tcl_ParseCommand. */ - CONST char *end; /* Points to the character just after the last - * one in the command string. */ - Tcl_Interp *interp; /* Interpreter to use for error reporting, or - * NULL. */ - CONST char *term; /* Points to character in string that - * terminated most recent token. Filled in by - * ParseTokens. If an error occurs, points to - * beginning of region where the error - * occurred (e.g. the open brace if the close - * brace is missing). */ - int incomplete; /* This field is set to 1 by Tcl_ParseCommand - * if the command appears to be incomplete. - * This information is used by - * Tcl_CommandComplete. */ - Tcl_Token staticTokens[NUM_STATIC_TOKENS]; - /* Initial space for tokens for command. This - * space should be large enough to accommodate - * most commands; dynamic space is allocated - * for very large commands that don't fit - * here. */ -} Tcl_Parse; - -/* - * The following definitions are the error codes returned by the conversion - * routines: - * - * TCL_OK - All characters were converted. - * TCL_CONVERT_NOSPACE - The output buffer would not have been large - * enough for all of the converted data; as many - * characters as could fit were converted though. - * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were - * the beginning of a multibyte sequence, but - * more bytes were needed to complete this - * sequence. A subsequent call to the conversion - * routine should pass the beginning of this - * unconverted sequence plus additional bytes - * from the source stream to properly convert the - * formerly split-up multibyte sequence. - * TCL_CONVERT_SYNTAX - The source stream contained an invalid - * character sequence. This may occur if the - * input stream has been damaged or if the input - * encoding method was misidentified. This error - * is reported only if TCL_ENCODING_STOPONERROR - * was specified. - * TCL_CONVERT_UNKNOWN - The source string contained a character that - * could not be represented in the target - * encoding. This error is reported only if - * TCL_ENCODING_STOPONERROR was specified. - */ - -#define TCL_CONVERT_MULTIBYTE -1 -#define TCL_CONVERT_SYNTAX -2 -#define TCL_CONVERT_UNKNOWN -3 -#define TCL_CONVERT_NOSPACE -4 - -/* - * The maximum number of bytes that are necessary to represent a single - * Unicode character in UTF-8. The valid values should be 3 or 6 (or perhaps 1 - * if we want to support a non-unicode enabled core). If 3, then Tcl_UniChar - * must be 2-bytes in size (UCS-2) (the default). If 6, then Tcl_UniChar must - * be 4-bytes in size (UCS-4). At this time UCS-2 mode is the default and - * recommended mode. UCS-4 is experimental and not recommended. It works for - * the core, but most extensions expect UCS-2. - */ - -#ifndef TCL_UTF_MAX -#define TCL_UTF_MAX 3 -#endif - -/* - * This represents a Unicode character. Any changes to this should also be - * reflected in regcustom.h. - */ - -#if TCL_UTF_MAX > 3 - /* - * unsigned int isn't 100% accurate as it should be a strict 4-byte value - * (perhaps wchar_t). 64-bit systems may have troubles. The size of this - * value must be reflected correctly in regcustom.h and - * in tclEncoding.c. - * XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode - * XXX: string rep that Tcl_UniChar represents. Changing the size - * XXX: of Tcl_UniChar is /not/ supported. - */ -typedef unsigned int Tcl_UniChar; -#else -typedef unsigned short Tcl_UniChar; -#endif - -/* - * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' to - * provide the system with the embedded configuration data. - */ - -typedef struct Tcl_Config { - CONST char *key; /* Configuration key to register. ASCII - * encoded, thus UTF-8 */ - CONST char *value; /* The value associated with the key. System - * encoding */ -} Tcl_Config; - -/* - * Flags for TIP#143 limits, detailing which limits are active in an - * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument. - */ - -#define TCL_LIMIT_COMMANDS 0x01 -#define TCL_LIMIT_TIME 0x02 - -/* - * Structure containing information about a limit handler to be called when a - * command- or time-limit is exceeded by an interpreter. - */ - -typedef void (Tcl_LimitHandlerProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp)); -typedef void (Tcl_LimitHandlerDeleteProc) _ANSI_ARGS_((ClientData clientData)); - -#ifndef MP_INT_DECLARED -typedef struct mp_int mp_int; -#define MP_INT_DECLARED -#endif -#ifndef MP_DIGIT_DECLARED -typedef unsigned long mp_digit; -#define MP_DIGIT_DECLARED -#endif - -/* - * The following constant is used to test for older versions of Tcl in the - * stubs tables. - * - * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different - * value since the stubs tables don't match. - */ - -#define TCL_STUB_MAGIC ((int)0xFCA3BACF) - -/* - * The following function is required to be defined in all stubs aware - * extensions. The function is actually implemented in the stub library, not - * the main Tcl library, although there is a trivial implementation in the - * main library in case an extension is statically linked into an application. - */ - -EXTERN CONST char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *version, int exact)); -EXTERN CONST char * TclTomMathInitializeStubs _ANSI_ARGS_(( - Tcl_Interp *interp, CONST char *version, - int epoch, int revision)); - -#ifndef USE_TCL_STUBS - -/* - * When not using stubs, make it a macro. - */ - -#define Tcl_InitStubs(interp, version, exact) \ - Tcl_PkgInitStubsCheck(interp, version, exact) - -#endif - - /* - * TODO - tommath stubs export goes here! - */ - - -/* - * Public functions that are not accessible via the stubs table. - * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] - */ - -EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, - Tcl_AppInitProc *appInitProc)); -EXTERN CONST char * Tcl_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *version, int exact)); -#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) -EXTERN void Tcl_GetMemoryInfo _ANSI_ARGS_((Tcl_DString *dsPtr)); -#endif - -/* - * Include the public function declarations that are accessible via the stubs - * table. - */ - -#include "tclDecls.h" - -/* - * Include platform specific public function declarations that are accessible - * via the stubs table. - */ - -#include "tclPlatDecls.h" - -/* - * The following declarations either map ckalloc and ckfree to malloc and - * free, or they map them to functions with all sorts of debugging hooks - * defined in tclCkalloc.c. - */ - -#ifdef TCL_MEM_DEBUG - -# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__) -# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__) -# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__) -# define attemptckalloc(x) Tcl_AttemptDbCkalloc(x, __FILE__, __LINE__) -# define attemptckrealloc(x,y) Tcl_AttemptDbCkrealloc((x), (y), __FILE__, __LINE__) - -#else /* !TCL_MEM_DEBUG */ - -/* - * If we are not using the debugging allocator, we should call the Tcl_Alloc, - * et al. routines in order to guarantee that every module is using the same - * memory allocator both inside and outside of the Tcl library. - */ - -# define ckalloc(x) Tcl_Alloc(x) -# define ckfree(x) Tcl_Free(x) -# define ckrealloc(x,y) Tcl_Realloc(x,y) -# define attemptckalloc(x) Tcl_AttemptAlloc(x) -# define attemptckrealloc(x,y) Tcl_AttemptRealloc(x,y) -# undef Tcl_InitMemory -# define Tcl_InitMemory(x) -# undef Tcl_DumpActiveMemory -# define Tcl_DumpActiveMemory(x) -# undef Tcl_ValidateAllMemory -# define Tcl_ValidateAllMemory(x,y) - -#endif /* !TCL_MEM_DEBUG */ - -#ifdef TCL_MEM_DEBUG -# define Tcl_IncrRefCount(objPtr) \ - Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_DecrRefCount(objPtr) \ - Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) -# define Tcl_IsShared(objPtr) \ - Tcl_DbIsShared(objPtr, __FILE__, __LINE__) -#else -# define Tcl_IncrRefCount(objPtr) \ - ++(objPtr)->refCount - /* - * Use do/while0 idiom for optimum correctness without compiler warnings - * http://c2.com/cgi/wiki?TrivialDoWhileLoop - */ -# define Tcl_DecrRefCount(objPtr) \ - do { if (--(objPtr)->refCount <= 0) TclFreeObj(objPtr); } while(0) -# define Tcl_IsShared(objPtr) \ - ((objPtr)->refCount > 1) -#endif - -/* - * Macros and definitions that help to debug the use of Tcl objects. When - * TCL_MEM_DEBUG is defined, the Tcl_New declarations are overridden to call - * debugging versions of the object creation functions. - */ - -#ifdef TCL_MEM_DEBUG -# undef Tcl_NewBignumObj -# define Tcl_NewBignumObj(val) \ - Tcl_DbNewBignumObj(val, __FILE__, __LINE__) -# undef Tcl_NewBooleanObj -# define Tcl_NewBooleanObj(val) \ - Tcl_DbNewBooleanObj(val, __FILE__, __LINE__) -# undef Tcl_NewByteArrayObj -# define Tcl_NewByteArrayObj(bytes, len) \ - Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__) -# undef Tcl_NewDoubleObj -# define Tcl_NewDoubleObj(val) \ - Tcl_DbNewDoubleObj(val, __FILE__, __LINE__) -# undef Tcl_NewIntObj -# define Tcl_NewIntObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# undef Tcl_NewListObj -# define Tcl_NewListObj(objc, objv) \ - Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__) -# undef Tcl_NewLongObj -# define Tcl_NewLongObj(val) \ - Tcl_DbNewLongObj(val, __FILE__, __LINE__) -# undef Tcl_NewObj -# define Tcl_NewObj() \ - Tcl_DbNewObj(__FILE__, __LINE__) -# undef Tcl_NewStringObj -# define Tcl_NewStringObj(bytes, len) \ - Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__) -# undef Tcl_NewWideIntObj -# define Tcl_NewWideIntObj(val) \ - Tcl_DbNewWideIntObj(val, __FILE__, __LINE__) -#endif /* TCL_MEM_DEBUG */ - -/* - * Macros for clients to use to access fields of hash entries: - */ - -#define Tcl_GetHashValue(h) ((h)->clientData) -#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value)) -#define Tcl_GetHashKey(tablePtr, h) \ - ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \ - (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \ - ? (h)->key.oneWordValue \ - : (h)->key.string)) - -/* - * Macros to use for clients to use to invoke find and create functions for - * hash tables: - */ - -#undef Tcl_FindHashEntry -#define Tcl_FindHashEntry(tablePtr, key) \ - (*((tablePtr)->findProc))(tablePtr, key) -#undef Tcl_CreateHashEntry -#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ - (*((tablePtr)->createProc))(tablePtr, key, newPtr) - -/* - * Macros that eliminate the overhead of the thread synchronization functions - * when compiling without thread support. - */ - -#ifndef TCL_THREADS -#undef Tcl_MutexLock -#define Tcl_MutexLock(mutexPtr) -#undef Tcl_MutexUnlock -#define Tcl_MutexUnlock(mutexPtr) -#undef Tcl_MutexFinalize -#define Tcl_MutexFinalize(mutexPtr) -#undef Tcl_ConditionNotify -#define Tcl_ConditionNotify(condPtr) -#undef Tcl_ConditionWait -#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) -#undef Tcl_ConditionFinalize -#define Tcl_ConditionFinalize(condPtr) -#endif /* TCL_THREADS */ - -#ifndef TCL_NO_DEPRECATED - /* - * Deprecated Tcl functions: - */ - -# undef Tcl_EvalObj -# define Tcl_EvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),0) -# undef Tcl_GlobalEvalObj -# define Tcl_GlobalEvalObj(interp,objPtr) \ - Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) - - /* - * These function have been renamed. The old names are deprecated, but we - * define these macros for backwards compatibilty. - */ - -# define Tcl_Ckalloc Tcl_Alloc -# define Tcl_Ckfree Tcl_Free -# define Tcl_Ckrealloc Tcl_Realloc -# define Tcl_Return Tcl_SetResult -# define Tcl_TildeSubst Tcl_TranslateFileName -# define panic Tcl_Panic -# define panicVA Tcl_PanicVA -#endif - -/* - * Convenience declaration of Tcl_AppInit for backwards compatibility. This - * function is not *implemented* by the tcl library, so the storage class is - * neither DLLEXPORT nor DLLIMPORT. - */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS - -EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TCL */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/mingw/include/tclDecls.h b/mingw/include/tclDecls.h deleted file mode 100644 index 865dd6c5b2..0000000000 --- a/mingw/include/tclDecls.h +++ /dev/null @@ -1,6548 +0,0 @@ -/* - * tclDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tclDecls.h,v 1.130 2007/12/13 15:23:16 dgp Exp $ - */ - -#ifndef _TCLDECLS -#define _TCLDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tcl.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#ifndef Tcl_PkgProvideEx_TCL_DECLARED -#define Tcl_PkgProvideEx_TCL_DECLARED -/* 0 */ -EXTERN int Tcl_PkgProvideEx (Tcl_Interp* interp, - CONST char* name, CONST char* version, - ClientData clientData); -#endif -#ifndef Tcl_PkgRequireEx_TCL_DECLARED -#define Tcl_PkgRequireEx_TCL_DECLARED -/* 1 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequireEx (Tcl_Interp * interp, - CONST char * name, CONST char * version, - int exact, ClientData * clientDataPtr); -#endif -#ifndef Tcl_Panic_TCL_DECLARED -#define Tcl_Panic_TCL_DECLARED -/* 2 */ -EXTERN void Tcl_Panic (CONST char * format, ...); -#endif -#ifndef Tcl_Alloc_TCL_DECLARED -#define Tcl_Alloc_TCL_DECLARED -/* 3 */ -EXTERN char * Tcl_Alloc (unsigned int size); -#endif -#ifndef Tcl_Free_TCL_DECLARED -#define Tcl_Free_TCL_DECLARED -/* 4 */ -EXTERN void Tcl_Free (char * ptr); -#endif -#ifndef Tcl_Realloc_TCL_DECLARED -#define Tcl_Realloc_TCL_DECLARED -/* 5 */ -EXTERN char * Tcl_Realloc (char * ptr, unsigned int size); -#endif -#ifndef Tcl_DbCkalloc_TCL_DECLARED -#define Tcl_DbCkalloc_TCL_DECLARED -/* 6 */ -EXTERN char * Tcl_DbCkalloc (unsigned int size, CONST char * file, - int line); -#endif -#ifndef Tcl_DbCkfree_TCL_DECLARED -#define Tcl_DbCkfree_TCL_DECLARED -/* 7 */ -EXTERN int Tcl_DbCkfree (char * ptr, CONST char * file, - int line); -#endif -#ifndef Tcl_DbCkrealloc_TCL_DECLARED -#define Tcl_DbCkrealloc_TCL_DECLARED -/* 8 */ -EXTERN char * Tcl_DbCkrealloc (char * ptr, unsigned int size, - CONST char * file, int line); -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_CreateFileHandler_TCL_DECLARED -#define Tcl_CreateFileHandler_TCL_DECLARED -/* 9 */ -EXTERN void Tcl_CreateFileHandler (int fd, int mask, - Tcl_FileProc * proc, ClientData clientData); -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_CreateFileHandler_TCL_DECLARED -#define Tcl_CreateFileHandler_TCL_DECLARED -/* 9 */ -EXTERN void Tcl_CreateFileHandler (int fd, int mask, - Tcl_FileProc * proc, ClientData clientData); -#endif -#endif /* MACOSX */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_DeleteFileHandler_TCL_DECLARED -#define Tcl_DeleteFileHandler_TCL_DECLARED -/* 10 */ -EXTERN void Tcl_DeleteFileHandler (int fd); -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_DeleteFileHandler_TCL_DECLARED -#define Tcl_DeleteFileHandler_TCL_DECLARED -/* 10 */ -EXTERN void Tcl_DeleteFileHandler (int fd); -#endif -#endif /* MACOSX */ -#ifndef Tcl_SetTimer_TCL_DECLARED -#define Tcl_SetTimer_TCL_DECLARED -/* 11 */ -EXTERN void Tcl_SetTimer (Tcl_Time * timePtr); -#endif -#ifndef Tcl_Sleep_TCL_DECLARED -#define Tcl_Sleep_TCL_DECLARED -/* 12 */ -EXTERN void Tcl_Sleep (int ms); -#endif -#ifndef Tcl_WaitForEvent_TCL_DECLARED -#define Tcl_WaitForEvent_TCL_DECLARED -/* 13 */ -EXTERN int Tcl_WaitForEvent (Tcl_Time * timePtr); -#endif -#ifndef Tcl_AppendAllObjTypes_TCL_DECLARED -#define Tcl_AppendAllObjTypes_TCL_DECLARED -/* 14 */ -EXTERN int Tcl_AppendAllObjTypes (Tcl_Interp * interp, - Tcl_Obj * objPtr); -#endif -#ifndef Tcl_AppendStringsToObj_TCL_DECLARED -#define Tcl_AppendStringsToObj_TCL_DECLARED -/* 15 */ -EXTERN void Tcl_AppendStringsToObj (Tcl_Obj * objPtr, ...); -#endif -#ifndef Tcl_AppendToObj_TCL_DECLARED -#define Tcl_AppendToObj_TCL_DECLARED -/* 16 */ -EXTERN void Tcl_AppendToObj (Tcl_Obj* objPtr, CONST char* bytes, - int length); -#endif -#ifndef Tcl_ConcatObj_TCL_DECLARED -#define Tcl_ConcatObj_TCL_DECLARED -/* 17 */ -EXTERN Tcl_Obj * Tcl_ConcatObj (int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_ConvertToType_TCL_DECLARED -#define Tcl_ConvertToType_TCL_DECLARED -/* 18 */ -EXTERN int Tcl_ConvertToType (Tcl_Interp * interp, - Tcl_Obj * objPtr, Tcl_ObjType * typePtr); -#endif -#ifndef Tcl_DbDecrRefCount_TCL_DECLARED -#define Tcl_DbDecrRefCount_TCL_DECLARED -/* 19 */ -EXTERN void Tcl_DbDecrRefCount (Tcl_Obj * objPtr, - CONST char * file, int line); -#endif -#ifndef Tcl_DbIncrRefCount_TCL_DECLARED -#define Tcl_DbIncrRefCount_TCL_DECLARED -/* 20 */ -EXTERN void Tcl_DbIncrRefCount (Tcl_Obj * objPtr, - CONST char * file, int line); -#endif -#ifndef Tcl_DbIsShared_TCL_DECLARED -#define Tcl_DbIsShared_TCL_DECLARED -/* 21 */ -EXTERN int Tcl_DbIsShared (Tcl_Obj * objPtr, CONST char * file, - int line); -#endif -#ifndef Tcl_DbNewBooleanObj_TCL_DECLARED -#define Tcl_DbNewBooleanObj_TCL_DECLARED -/* 22 */ -EXTERN Tcl_Obj * Tcl_DbNewBooleanObj (int boolValue, - CONST char * file, int line); -#endif -#ifndef Tcl_DbNewByteArrayObj_TCL_DECLARED -#define Tcl_DbNewByteArrayObj_TCL_DECLARED -/* 23 */ -EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj (CONST unsigned char * bytes, - int length, CONST char * file, int line); -#endif -#ifndef Tcl_DbNewDoubleObj_TCL_DECLARED -#define Tcl_DbNewDoubleObj_TCL_DECLARED -/* 24 */ -EXTERN Tcl_Obj * Tcl_DbNewDoubleObj (double doubleValue, - CONST char * file, int line); -#endif -#ifndef Tcl_DbNewListObj_TCL_DECLARED -#define Tcl_DbNewListObj_TCL_DECLARED -/* 25 */ -EXTERN Tcl_Obj * Tcl_DbNewListObj (int objc, Tcl_Obj *CONST * objv, - CONST char * file, int line); -#endif -#ifndef Tcl_DbNewLongObj_TCL_DECLARED -#define Tcl_DbNewLongObj_TCL_DECLARED -/* 26 */ -EXTERN Tcl_Obj * Tcl_DbNewLongObj (long longValue, CONST char * file, - int line); -#endif -#ifndef Tcl_DbNewObj_TCL_DECLARED -#define Tcl_DbNewObj_TCL_DECLARED -/* 27 */ -EXTERN Tcl_Obj * Tcl_DbNewObj (CONST char * file, int line); -#endif -#ifndef Tcl_DbNewStringObj_TCL_DECLARED -#define Tcl_DbNewStringObj_TCL_DECLARED -/* 28 */ -EXTERN Tcl_Obj * Tcl_DbNewStringObj (CONST char * bytes, int length, - CONST char * file, int line); -#endif -#ifndef Tcl_DuplicateObj_TCL_DECLARED -#define Tcl_DuplicateObj_TCL_DECLARED -/* 29 */ -EXTERN Tcl_Obj * Tcl_DuplicateObj (Tcl_Obj * objPtr); -#endif -#ifndef TclFreeObj_TCL_DECLARED -#define TclFreeObj_TCL_DECLARED -/* 30 */ -EXTERN void TclFreeObj (Tcl_Obj * objPtr); -#endif -#ifndef Tcl_GetBoolean_TCL_DECLARED -#define Tcl_GetBoolean_TCL_DECLARED -/* 31 */ -EXTERN int Tcl_GetBoolean (Tcl_Interp * interp, - CONST char * src, int * boolPtr); -#endif -#ifndef Tcl_GetBooleanFromObj_TCL_DECLARED -#define Tcl_GetBooleanFromObj_TCL_DECLARED -/* 32 */ -EXTERN int Tcl_GetBooleanFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, int * boolPtr); -#endif -#ifndef Tcl_GetByteArrayFromObj_TCL_DECLARED -#define Tcl_GetByteArrayFromObj_TCL_DECLARED -/* 33 */ -EXTERN unsigned char * Tcl_GetByteArrayFromObj (Tcl_Obj * objPtr, - int * lengthPtr); -#endif -#ifndef Tcl_GetDouble_TCL_DECLARED -#define Tcl_GetDouble_TCL_DECLARED -/* 34 */ -EXTERN int Tcl_GetDouble (Tcl_Interp * interp, CONST char * src, - double * doublePtr); -#endif -#ifndef Tcl_GetDoubleFromObj_TCL_DECLARED -#define Tcl_GetDoubleFromObj_TCL_DECLARED -/* 35 */ -EXTERN int Tcl_GetDoubleFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, double * doublePtr); -#endif -#ifndef Tcl_GetIndexFromObj_TCL_DECLARED -#define Tcl_GetIndexFromObj_TCL_DECLARED -/* 36 */ -EXTERN int Tcl_GetIndexFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, CONST84 char ** tablePtr, - CONST char * msg, int flags, int * indexPtr); -#endif -#ifndef Tcl_GetInt_TCL_DECLARED -#define Tcl_GetInt_TCL_DECLARED -/* 37 */ -EXTERN int Tcl_GetInt (Tcl_Interp * interp, CONST char * src, - int * intPtr); -#endif -#ifndef Tcl_GetIntFromObj_TCL_DECLARED -#define Tcl_GetIntFromObj_TCL_DECLARED -/* 38 */ -EXTERN int Tcl_GetIntFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, int * intPtr); -#endif -#ifndef Tcl_GetLongFromObj_TCL_DECLARED -#define Tcl_GetLongFromObj_TCL_DECLARED -/* 39 */ -EXTERN int Tcl_GetLongFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, long * longPtr); -#endif -#ifndef Tcl_GetObjType_TCL_DECLARED -#define Tcl_GetObjType_TCL_DECLARED -/* 40 */ -EXTERN Tcl_ObjType * Tcl_GetObjType (CONST char * typeName); -#endif -#ifndef Tcl_GetStringFromObj_TCL_DECLARED -#define Tcl_GetStringFromObj_TCL_DECLARED -/* 41 */ -EXTERN char * Tcl_GetStringFromObj (Tcl_Obj * objPtr, - int * lengthPtr); -#endif -#ifndef Tcl_InvalidateStringRep_TCL_DECLARED -#define Tcl_InvalidateStringRep_TCL_DECLARED -/* 42 */ -EXTERN void Tcl_InvalidateStringRep (Tcl_Obj * objPtr); -#endif -#ifndef Tcl_ListObjAppendList_TCL_DECLARED -#define Tcl_ListObjAppendList_TCL_DECLARED -/* 43 */ -EXTERN int Tcl_ListObjAppendList (Tcl_Interp * interp, - Tcl_Obj * listPtr, Tcl_Obj * elemListPtr); -#endif -#ifndef Tcl_ListObjAppendElement_TCL_DECLARED -#define Tcl_ListObjAppendElement_TCL_DECLARED -/* 44 */ -EXTERN int Tcl_ListObjAppendElement (Tcl_Interp * interp, - Tcl_Obj * listPtr, Tcl_Obj * objPtr); -#endif -#ifndef Tcl_ListObjGetElements_TCL_DECLARED -#define Tcl_ListObjGetElements_TCL_DECLARED -/* 45 */ -EXTERN int Tcl_ListObjGetElements (Tcl_Interp * interp, - Tcl_Obj * listPtr, int * objcPtr, - Tcl_Obj *** objvPtr); -#endif -#ifndef Tcl_ListObjIndex_TCL_DECLARED -#define Tcl_ListObjIndex_TCL_DECLARED -/* 46 */ -EXTERN int Tcl_ListObjIndex (Tcl_Interp * interp, - Tcl_Obj * listPtr, int index, - Tcl_Obj ** objPtrPtr); -#endif -#ifndef Tcl_ListObjLength_TCL_DECLARED -#define Tcl_ListObjLength_TCL_DECLARED -/* 47 */ -EXTERN int Tcl_ListObjLength (Tcl_Interp * interp, - Tcl_Obj * listPtr, int * lengthPtr); -#endif -#ifndef Tcl_ListObjReplace_TCL_DECLARED -#define Tcl_ListObjReplace_TCL_DECLARED -/* 48 */ -EXTERN int Tcl_ListObjReplace (Tcl_Interp * interp, - Tcl_Obj * listPtr, int first, int count, - int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_NewBooleanObj_TCL_DECLARED -#define Tcl_NewBooleanObj_TCL_DECLARED -/* 49 */ -EXTERN Tcl_Obj * Tcl_NewBooleanObj (int boolValue); -#endif -#ifndef Tcl_NewByteArrayObj_TCL_DECLARED -#define Tcl_NewByteArrayObj_TCL_DECLARED -/* 50 */ -EXTERN Tcl_Obj * Tcl_NewByteArrayObj (CONST unsigned char* bytes, - int length); -#endif -#ifndef Tcl_NewDoubleObj_TCL_DECLARED -#define Tcl_NewDoubleObj_TCL_DECLARED -/* 51 */ -EXTERN Tcl_Obj * Tcl_NewDoubleObj (double doubleValue); -#endif -#ifndef Tcl_NewIntObj_TCL_DECLARED -#define Tcl_NewIntObj_TCL_DECLARED -/* 52 */ -EXTERN Tcl_Obj * Tcl_NewIntObj (int intValue); -#endif -#ifndef Tcl_NewListObj_TCL_DECLARED -#define Tcl_NewListObj_TCL_DECLARED -/* 53 */ -EXTERN Tcl_Obj * Tcl_NewListObj (int objc, Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_NewLongObj_TCL_DECLARED -#define Tcl_NewLongObj_TCL_DECLARED -/* 54 */ -EXTERN Tcl_Obj * Tcl_NewLongObj (long longValue); -#endif -#ifndef Tcl_NewObj_TCL_DECLARED -#define Tcl_NewObj_TCL_DECLARED -/* 55 */ -EXTERN Tcl_Obj * Tcl_NewObj (void); -#endif -#ifndef Tcl_NewStringObj_TCL_DECLARED -#define Tcl_NewStringObj_TCL_DECLARED -/* 56 */ -EXTERN Tcl_Obj * Tcl_NewStringObj (CONST char * bytes, int length); -#endif -#ifndef Tcl_SetBooleanObj_TCL_DECLARED -#define Tcl_SetBooleanObj_TCL_DECLARED -/* 57 */ -EXTERN void Tcl_SetBooleanObj (Tcl_Obj * objPtr, int boolValue); -#endif -#ifndef Tcl_SetByteArrayLength_TCL_DECLARED -#define Tcl_SetByteArrayLength_TCL_DECLARED -/* 58 */ -EXTERN unsigned char * Tcl_SetByteArrayLength (Tcl_Obj * objPtr, int length); -#endif -#ifndef Tcl_SetByteArrayObj_TCL_DECLARED -#define Tcl_SetByteArrayObj_TCL_DECLARED -/* 59 */ -EXTERN void Tcl_SetByteArrayObj (Tcl_Obj * objPtr, - CONST unsigned char * bytes, int length); -#endif -#ifndef Tcl_SetDoubleObj_TCL_DECLARED -#define Tcl_SetDoubleObj_TCL_DECLARED -/* 60 */ -EXTERN void Tcl_SetDoubleObj (Tcl_Obj * objPtr, - double doubleValue); -#endif -#ifndef Tcl_SetIntObj_TCL_DECLARED -#define Tcl_SetIntObj_TCL_DECLARED -/* 61 */ -EXTERN void Tcl_SetIntObj (Tcl_Obj * objPtr, int intValue); -#endif -#ifndef Tcl_SetListObj_TCL_DECLARED -#define Tcl_SetListObj_TCL_DECLARED -/* 62 */ -EXTERN void Tcl_SetListObj (Tcl_Obj * objPtr, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_SetLongObj_TCL_DECLARED -#define Tcl_SetLongObj_TCL_DECLARED -/* 63 */ -EXTERN void Tcl_SetLongObj (Tcl_Obj * objPtr, long longValue); -#endif -#ifndef Tcl_SetObjLength_TCL_DECLARED -#define Tcl_SetObjLength_TCL_DECLARED -/* 64 */ -EXTERN void Tcl_SetObjLength (Tcl_Obj * objPtr, int length); -#endif -#ifndef Tcl_SetStringObj_TCL_DECLARED -#define Tcl_SetStringObj_TCL_DECLARED -/* 65 */ -EXTERN void Tcl_SetStringObj (Tcl_Obj* objPtr, CONST char* bytes, - int length); -#endif -#ifndef Tcl_AddErrorInfo_TCL_DECLARED -#define Tcl_AddErrorInfo_TCL_DECLARED -/* 66 */ -EXTERN void Tcl_AddErrorInfo (Tcl_Interp * interp, - CONST char * message); -#endif -#ifndef Tcl_AddObjErrorInfo_TCL_DECLARED -#define Tcl_AddObjErrorInfo_TCL_DECLARED -/* 67 */ -EXTERN void Tcl_AddObjErrorInfo (Tcl_Interp * interp, - CONST char * message, int length); -#endif -#ifndef Tcl_AllowExceptions_TCL_DECLARED -#define Tcl_AllowExceptions_TCL_DECLARED -/* 68 */ -EXTERN void Tcl_AllowExceptions (Tcl_Interp * interp); -#endif -#ifndef Tcl_AppendElement_TCL_DECLARED -#define Tcl_AppendElement_TCL_DECLARED -/* 69 */ -EXTERN void Tcl_AppendElement (Tcl_Interp * interp, - CONST char * element); -#endif -#ifndef Tcl_AppendResult_TCL_DECLARED -#define Tcl_AppendResult_TCL_DECLARED -/* 70 */ -EXTERN void Tcl_AppendResult (Tcl_Interp * interp, ...); -#endif -#ifndef Tcl_AsyncCreate_TCL_DECLARED -#define Tcl_AsyncCreate_TCL_DECLARED -/* 71 */ -EXTERN Tcl_AsyncHandler Tcl_AsyncCreate (Tcl_AsyncProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_AsyncDelete_TCL_DECLARED -#define Tcl_AsyncDelete_TCL_DECLARED -/* 72 */ -EXTERN void Tcl_AsyncDelete (Tcl_AsyncHandler async); -#endif -#ifndef Tcl_AsyncInvoke_TCL_DECLARED -#define Tcl_AsyncInvoke_TCL_DECLARED -/* 73 */ -EXTERN int Tcl_AsyncInvoke (Tcl_Interp * interp, int code); -#endif -#ifndef Tcl_AsyncMark_TCL_DECLARED -#define Tcl_AsyncMark_TCL_DECLARED -/* 74 */ -EXTERN void Tcl_AsyncMark (Tcl_AsyncHandler async); -#endif -#ifndef Tcl_AsyncReady_TCL_DECLARED -#define Tcl_AsyncReady_TCL_DECLARED -/* 75 */ -EXTERN int Tcl_AsyncReady (void); -#endif -#ifndef Tcl_BackgroundError_TCL_DECLARED -#define Tcl_BackgroundError_TCL_DECLARED -/* 76 */ -EXTERN void Tcl_BackgroundError (Tcl_Interp * interp); -#endif -#ifndef Tcl_Backslash_TCL_DECLARED -#define Tcl_Backslash_TCL_DECLARED -/* 77 */ -EXTERN char Tcl_Backslash (CONST char * src, int * readPtr); -#endif -#ifndef Tcl_BadChannelOption_TCL_DECLARED -#define Tcl_BadChannelOption_TCL_DECLARED -/* 78 */ -EXTERN int Tcl_BadChannelOption (Tcl_Interp * interp, - CONST char * optionName, - CONST char * optionList); -#endif -#ifndef Tcl_CallWhenDeleted_TCL_DECLARED -#define Tcl_CallWhenDeleted_TCL_DECLARED -/* 79 */ -EXTERN void Tcl_CallWhenDeleted (Tcl_Interp * interp, - Tcl_InterpDeleteProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_CancelIdleCall_TCL_DECLARED -#define Tcl_CancelIdleCall_TCL_DECLARED -/* 80 */ -EXTERN void Tcl_CancelIdleCall (Tcl_IdleProc * idleProc, - ClientData clientData); -#endif -#ifndef Tcl_Close_TCL_DECLARED -#define Tcl_Close_TCL_DECLARED -/* 81 */ -EXTERN int Tcl_Close (Tcl_Interp * interp, Tcl_Channel chan); -#endif -#ifndef Tcl_CommandComplete_TCL_DECLARED -#define Tcl_CommandComplete_TCL_DECLARED -/* 82 */ -EXTERN int Tcl_CommandComplete (CONST char * cmd); -#endif -#ifndef Tcl_Concat_TCL_DECLARED -#define Tcl_Concat_TCL_DECLARED -/* 83 */ -EXTERN char * Tcl_Concat (int argc, CONST84 char * CONST * argv); -#endif -#ifndef Tcl_ConvertElement_TCL_DECLARED -#define Tcl_ConvertElement_TCL_DECLARED -/* 84 */ -EXTERN int Tcl_ConvertElement (CONST char * src, char * dst, - int flags); -#endif -#ifndef Tcl_ConvertCountedElement_TCL_DECLARED -#define Tcl_ConvertCountedElement_TCL_DECLARED -/* 85 */ -EXTERN int Tcl_ConvertCountedElement (CONST char * src, - int length, char * dst, int flags); -#endif -#ifndef Tcl_CreateAlias_TCL_DECLARED -#define Tcl_CreateAlias_TCL_DECLARED -/* 86 */ -EXTERN int Tcl_CreateAlias (Tcl_Interp * slave, - CONST char * slaveCmd, Tcl_Interp * target, - CONST char * targetCmd, int argc, - CONST84 char * CONST * argv); -#endif -#ifndef Tcl_CreateAliasObj_TCL_DECLARED -#define Tcl_CreateAliasObj_TCL_DECLARED -/* 87 */ -EXTERN int Tcl_CreateAliasObj (Tcl_Interp * slave, - CONST char * slaveCmd, Tcl_Interp * target, - CONST char * targetCmd, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_CreateChannel_TCL_DECLARED -#define Tcl_CreateChannel_TCL_DECLARED -/* 88 */ -EXTERN Tcl_Channel Tcl_CreateChannel (Tcl_ChannelType * typePtr, - CONST char * chanName, - ClientData instanceData, int mask); -#endif -#ifndef Tcl_CreateChannelHandler_TCL_DECLARED -#define Tcl_CreateChannelHandler_TCL_DECLARED -/* 89 */ -EXTERN void Tcl_CreateChannelHandler (Tcl_Channel chan, int mask, - Tcl_ChannelProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_CreateCloseHandler_TCL_DECLARED -#define Tcl_CreateCloseHandler_TCL_DECLARED -/* 90 */ -EXTERN void Tcl_CreateCloseHandler (Tcl_Channel chan, - Tcl_CloseProc * proc, ClientData clientData); -#endif -#ifndef Tcl_CreateCommand_TCL_DECLARED -#define Tcl_CreateCommand_TCL_DECLARED -/* 91 */ -EXTERN Tcl_Command Tcl_CreateCommand (Tcl_Interp * interp, - CONST char * cmdName, Tcl_CmdProc * proc, - ClientData clientData, - Tcl_CmdDeleteProc * deleteProc); -#endif -#ifndef Tcl_CreateEventSource_TCL_DECLARED -#define Tcl_CreateEventSource_TCL_DECLARED -/* 92 */ -EXTERN void Tcl_CreateEventSource ( - Tcl_EventSetupProc * setupProc, - Tcl_EventCheckProc * checkProc, - ClientData clientData); -#endif -#ifndef Tcl_CreateExitHandler_TCL_DECLARED -#define Tcl_CreateExitHandler_TCL_DECLARED -/* 93 */ -EXTERN void Tcl_CreateExitHandler (Tcl_ExitProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_CreateInterp_TCL_DECLARED -#define Tcl_CreateInterp_TCL_DECLARED -/* 94 */ -EXTERN Tcl_Interp * Tcl_CreateInterp (void); -#endif -#ifndef Tcl_CreateMathFunc_TCL_DECLARED -#define Tcl_CreateMathFunc_TCL_DECLARED -/* 95 */ -EXTERN void Tcl_CreateMathFunc (Tcl_Interp * interp, - CONST char * name, int numArgs, - Tcl_ValueType * argTypes, - Tcl_MathProc * proc, ClientData clientData); -#endif -#ifndef Tcl_CreateObjCommand_TCL_DECLARED -#define Tcl_CreateObjCommand_TCL_DECLARED -/* 96 */ -EXTERN Tcl_Command Tcl_CreateObjCommand (Tcl_Interp * interp, - CONST char * cmdName, Tcl_ObjCmdProc * proc, - ClientData clientData, - Tcl_CmdDeleteProc * deleteProc); -#endif -#ifndef Tcl_CreateSlave_TCL_DECLARED -#define Tcl_CreateSlave_TCL_DECLARED -/* 97 */ -EXTERN Tcl_Interp * Tcl_CreateSlave (Tcl_Interp * interp, - CONST char * slaveName, int isSafe); -#endif -#ifndef Tcl_CreateTimerHandler_TCL_DECLARED -#define Tcl_CreateTimerHandler_TCL_DECLARED -/* 98 */ -EXTERN Tcl_TimerToken Tcl_CreateTimerHandler (int milliseconds, - Tcl_TimerProc * proc, ClientData clientData); -#endif -#ifndef Tcl_CreateTrace_TCL_DECLARED -#define Tcl_CreateTrace_TCL_DECLARED -/* 99 */ -EXTERN Tcl_Trace Tcl_CreateTrace (Tcl_Interp * interp, int level, - Tcl_CmdTraceProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteAssocData_TCL_DECLARED -#define Tcl_DeleteAssocData_TCL_DECLARED -/* 100 */ -EXTERN void Tcl_DeleteAssocData (Tcl_Interp * interp, - CONST char * name); -#endif -#ifndef Tcl_DeleteChannelHandler_TCL_DECLARED -#define Tcl_DeleteChannelHandler_TCL_DECLARED -/* 101 */ -EXTERN void Tcl_DeleteChannelHandler (Tcl_Channel chan, - Tcl_ChannelProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteCloseHandler_TCL_DECLARED -#define Tcl_DeleteCloseHandler_TCL_DECLARED -/* 102 */ -EXTERN void Tcl_DeleteCloseHandler (Tcl_Channel chan, - Tcl_CloseProc * proc, ClientData clientData); -#endif -#ifndef Tcl_DeleteCommand_TCL_DECLARED -#define Tcl_DeleteCommand_TCL_DECLARED -/* 103 */ -EXTERN int Tcl_DeleteCommand (Tcl_Interp * interp, - CONST char * cmdName); -#endif -#ifndef Tcl_DeleteCommandFromToken_TCL_DECLARED -#define Tcl_DeleteCommandFromToken_TCL_DECLARED -/* 104 */ -EXTERN int Tcl_DeleteCommandFromToken (Tcl_Interp * interp, - Tcl_Command command); -#endif -#ifndef Tcl_DeleteEvents_TCL_DECLARED -#define Tcl_DeleteEvents_TCL_DECLARED -/* 105 */ -EXTERN void Tcl_DeleteEvents (Tcl_EventDeleteProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteEventSource_TCL_DECLARED -#define Tcl_DeleteEventSource_TCL_DECLARED -/* 106 */ -EXTERN void Tcl_DeleteEventSource ( - Tcl_EventSetupProc * setupProc, - Tcl_EventCheckProc * checkProc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteExitHandler_TCL_DECLARED -#define Tcl_DeleteExitHandler_TCL_DECLARED -/* 107 */ -EXTERN void Tcl_DeleteExitHandler (Tcl_ExitProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteHashEntry_TCL_DECLARED -#define Tcl_DeleteHashEntry_TCL_DECLARED -/* 108 */ -EXTERN void Tcl_DeleteHashEntry (Tcl_HashEntry * entryPtr); -#endif -#ifndef Tcl_DeleteHashTable_TCL_DECLARED -#define Tcl_DeleteHashTable_TCL_DECLARED -/* 109 */ -EXTERN void Tcl_DeleteHashTable (Tcl_HashTable * tablePtr); -#endif -#ifndef Tcl_DeleteInterp_TCL_DECLARED -#define Tcl_DeleteInterp_TCL_DECLARED -/* 110 */ -EXTERN void Tcl_DeleteInterp (Tcl_Interp * interp); -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_DetachPids_TCL_DECLARED -#define Tcl_DetachPids_TCL_DECLARED -/* 111 */ -EXTERN void Tcl_DetachPids (int numPids, Tcl_Pid * pidPtr); -#endif -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ -#ifndef Tcl_DetachPids_TCL_DECLARED -#define Tcl_DetachPids_TCL_DECLARED -/* 111 */ -EXTERN void Tcl_DetachPids (int numPids, Tcl_Pid * pidPtr); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_DetachPids_TCL_DECLARED -#define Tcl_DetachPids_TCL_DECLARED -/* 111 */ -EXTERN void Tcl_DetachPids (int numPids, Tcl_Pid * pidPtr); -#endif -#endif /* MACOSX */ -#ifndef Tcl_DeleteTimerHandler_TCL_DECLARED -#define Tcl_DeleteTimerHandler_TCL_DECLARED -/* 112 */ -EXTERN void Tcl_DeleteTimerHandler (Tcl_TimerToken token); -#endif -#ifndef Tcl_DeleteTrace_TCL_DECLARED -#define Tcl_DeleteTrace_TCL_DECLARED -/* 113 */ -EXTERN void Tcl_DeleteTrace (Tcl_Interp * interp, - Tcl_Trace trace); -#endif -#ifndef Tcl_DontCallWhenDeleted_TCL_DECLARED -#define Tcl_DontCallWhenDeleted_TCL_DECLARED -/* 114 */ -EXTERN void Tcl_DontCallWhenDeleted (Tcl_Interp * interp, - Tcl_InterpDeleteProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_DoOneEvent_TCL_DECLARED -#define Tcl_DoOneEvent_TCL_DECLARED -/* 115 */ -EXTERN int Tcl_DoOneEvent (int flags); -#endif -#ifndef Tcl_DoWhenIdle_TCL_DECLARED -#define Tcl_DoWhenIdle_TCL_DECLARED -/* 116 */ -EXTERN void Tcl_DoWhenIdle (Tcl_IdleProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_DStringAppend_TCL_DECLARED -#define Tcl_DStringAppend_TCL_DECLARED -/* 117 */ -EXTERN char * Tcl_DStringAppend (Tcl_DString * dsPtr, - CONST char * bytes, int length); -#endif -#ifndef Tcl_DStringAppendElement_TCL_DECLARED -#define Tcl_DStringAppendElement_TCL_DECLARED -/* 118 */ -EXTERN char * Tcl_DStringAppendElement (Tcl_DString * dsPtr, - CONST char * element); -#endif -#ifndef Tcl_DStringEndSublist_TCL_DECLARED -#define Tcl_DStringEndSublist_TCL_DECLARED -/* 119 */ -EXTERN void Tcl_DStringEndSublist (Tcl_DString * dsPtr); -#endif -#ifndef Tcl_DStringFree_TCL_DECLARED -#define Tcl_DStringFree_TCL_DECLARED -/* 120 */ -EXTERN void Tcl_DStringFree (Tcl_DString * dsPtr); -#endif -#ifndef Tcl_DStringGetResult_TCL_DECLARED -#define Tcl_DStringGetResult_TCL_DECLARED -/* 121 */ -EXTERN void Tcl_DStringGetResult (Tcl_Interp * interp, - Tcl_DString * dsPtr); -#endif -#ifndef Tcl_DStringInit_TCL_DECLARED -#define Tcl_DStringInit_TCL_DECLARED -/* 122 */ -EXTERN void Tcl_DStringInit (Tcl_DString * dsPtr); -#endif -#ifndef Tcl_DStringResult_TCL_DECLARED -#define Tcl_DStringResult_TCL_DECLARED -/* 123 */ -EXTERN void Tcl_DStringResult (Tcl_Interp * interp, - Tcl_DString * dsPtr); -#endif -#ifndef Tcl_DStringSetLength_TCL_DECLARED -#define Tcl_DStringSetLength_TCL_DECLARED -/* 124 */ -EXTERN void Tcl_DStringSetLength (Tcl_DString * dsPtr, - int length); -#endif -#ifndef Tcl_DStringStartSublist_TCL_DECLARED -#define Tcl_DStringStartSublist_TCL_DECLARED -/* 125 */ -EXTERN void Tcl_DStringStartSublist (Tcl_DString * dsPtr); -#endif -#ifndef Tcl_Eof_TCL_DECLARED -#define Tcl_Eof_TCL_DECLARED -/* 126 */ -EXTERN int Tcl_Eof (Tcl_Channel chan); -#endif -#ifndef Tcl_ErrnoId_TCL_DECLARED -#define Tcl_ErrnoId_TCL_DECLARED -/* 127 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoId (void); -#endif -#ifndef Tcl_ErrnoMsg_TCL_DECLARED -#define Tcl_ErrnoMsg_TCL_DECLARED -/* 128 */ -EXTERN CONST84_RETURN char * Tcl_ErrnoMsg (int err); -#endif -#ifndef Tcl_Eval_TCL_DECLARED -#define Tcl_Eval_TCL_DECLARED -/* 129 */ -EXTERN int Tcl_Eval (Tcl_Interp * interp, CONST char * script); -#endif -#ifndef Tcl_EvalFile_TCL_DECLARED -#define Tcl_EvalFile_TCL_DECLARED -/* 130 */ -EXTERN int Tcl_EvalFile (Tcl_Interp * interp, - CONST char * fileName); -#endif -#ifndef Tcl_EvalObj_TCL_DECLARED -#define Tcl_EvalObj_TCL_DECLARED -/* 131 */ -EXTERN int Tcl_EvalObj (Tcl_Interp * interp, Tcl_Obj * objPtr); -#endif -#ifndef Tcl_EventuallyFree_TCL_DECLARED -#define Tcl_EventuallyFree_TCL_DECLARED -/* 132 */ -EXTERN void Tcl_EventuallyFree (ClientData clientData, - Tcl_FreeProc * freeProc); -#endif -#ifndef Tcl_Exit_TCL_DECLARED -#define Tcl_Exit_TCL_DECLARED -/* 133 */ -EXTERN void Tcl_Exit (int status); -#endif -#ifndef Tcl_ExposeCommand_TCL_DECLARED -#define Tcl_ExposeCommand_TCL_DECLARED -/* 134 */ -EXTERN int Tcl_ExposeCommand (Tcl_Interp * interp, - CONST char * hiddenCmdToken, - CONST char * cmdName); -#endif -#ifndef Tcl_ExprBoolean_TCL_DECLARED -#define Tcl_ExprBoolean_TCL_DECLARED -/* 135 */ -EXTERN int Tcl_ExprBoolean (Tcl_Interp * interp, - CONST char * expr, int * ptr); -#endif -#ifndef Tcl_ExprBooleanObj_TCL_DECLARED -#define Tcl_ExprBooleanObj_TCL_DECLARED -/* 136 */ -EXTERN int Tcl_ExprBooleanObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, int * ptr); -#endif -#ifndef Tcl_ExprDouble_TCL_DECLARED -#define Tcl_ExprDouble_TCL_DECLARED -/* 137 */ -EXTERN int Tcl_ExprDouble (Tcl_Interp * interp, - CONST char * expr, double * ptr); -#endif -#ifndef Tcl_ExprDoubleObj_TCL_DECLARED -#define Tcl_ExprDoubleObj_TCL_DECLARED -/* 138 */ -EXTERN int Tcl_ExprDoubleObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, double * ptr); -#endif -#ifndef Tcl_ExprLong_TCL_DECLARED -#define Tcl_ExprLong_TCL_DECLARED -/* 139 */ -EXTERN int Tcl_ExprLong (Tcl_Interp * interp, CONST char * expr, - long * ptr); -#endif -#ifndef Tcl_ExprLongObj_TCL_DECLARED -#define Tcl_ExprLongObj_TCL_DECLARED -/* 140 */ -EXTERN int Tcl_ExprLongObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, long * ptr); -#endif -#ifndef Tcl_ExprObj_TCL_DECLARED -#define Tcl_ExprObj_TCL_DECLARED -/* 141 */ -EXTERN int Tcl_ExprObj (Tcl_Interp * interp, Tcl_Obj * objPtr, - Tcl_Obj ** resultPtrPtr); -#endif -#ifndef Tcl_ExprString_TCL_DECLARED -#define Tcl_ExprString_TCL_DECLARED -/* 142 */ -EXTERN int Tcl_ExprString (Tcl_Interp * interp, - CONST char * expr); -#endif -#ifndef Tcl_Finalize_TCL_DECLARED -#define Tcl_Finalize_TCL_DECLARED -/* 143 */ -EXTERN void Tcl_Finalize (void); -#endif -#ifndef Tcl_FindExecutable_TCL_DECLARED -#define Tcl_FindExecutable_TCL_DECLARED -/* 144 */ -EXTERN void Tcl_FindExecutable (CONST char * argv0); -#endif -#ifndef Tcl_FirstHashEntry_TCL_DECLARED -#define Tcl_FirstHashEntry_TCL_DECLARED -/* 145 */ -EXTERN Tcl_HashEntry * Tcl_FirstHashEntry (Tcl_HashTable * tablePtr, - Tcl_HashSearch * searchPtr); -#endif -#ifndef Tcl_Flush_TCL_DECLARED -#define Tcl_Flush_TCL_DECLARED -/* 146 */ -EXTERN int Tcl_Flush (Tcl_Channel chan); -#endif -#ifndef Tcl_FreeResult_TCL_DECLARED -#define Tcl_FreeResult_TCL_DECLARED -/* 147 */ -EXTERN void Tcl_FreeResult (Tcl_Interp * interp); -#endif -#ifndef Tcl_GetAlias_TCL_DECLARED -#define Tcl_GetAlias_TCL_DECLARED -/* 148 */ -EXTERN int Tcl_GetAlias (Tcl_Interp * interp, - CONST char * slaveCmd, - Tcl_Interp ** targetInterpPtr, - CONST84 char ** targetCmdPtr, int * argcPtr, - CONST84 char *** argvPtr); -#endif -#ifndef Tcl_GetAliasObj_TCL_DECLARED -#define Tcl_GetAliasObj_TCL_DECLARED -/* 149 */ -EXTERN int Tcl_GetAliasObj (Tcl_Interp * interp, - CONST char * slaveCmd, - Tcl_Interp ** targetInterpPtr, - CONST84 char ** targetCmdPtr, int * objcPtr, - Tcl_Obj *** objv); -#endif -#ifndef Tcl_GetAssocData_TCL_DECLARED -#define Tcl_GetAssocData_TCL_DECLARED -/* 150 */ -EXTERN ClientData Tcl_GetAssocData (Tcl_Interp * interp, - CONST char * name, - Tcl_InterpDeleteProc ** procPtr); -#endif -#ifndef Tcl_GetChannel_TCL_DECLARED -#define Tcl_GetChannel_TCL_DECLARED -/* 151 */ -EXTERN Tcl_Channel Tcl_GetChannel (Tcl_Interp * interp, - CONST char * chanName, int * modePtr); -#endif -#ifndef Tcl_GetChannelBufferSize_TCL_DECLARED -#define Tcl_GetChannelBufferSize_TCL_DECLARED -/* 152 */ -EXTERN int Tcl_GetChannelBufferSize (Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelHandle_TCL_DECLARED -#define Tcl_GetChannelHandle_TCL_DECLARED -/* 153 */ -EXTERN int Tcl_GetChannelHandle (Tcl_Channel chan, - int direction, ClientData * handlePtr); -#endif -#ifndef Tcl_GetChannelInstanceData_TCL_DECLARED -#define Tcl_GetChannelInstanceData_TCL_DECLARED -/* 154 */ -EXTERN ClientData Tcl_GetChannelInstanceData (Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelMode_TCL_DECLARED -#define Tcl_GetChannelMode_TCL_DECLARED -/* 155 */ -EXTERN int Tcl_GetChannelMode (Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelName_TCL_DECLARED -#define Tcl_GetChannelName_TCL_DECLARED -/* 156 */ -EXTERN CONST84_RETURN char * Tcl_GetChannelName (Tcl_Channel chan); -#endif -#ifndef Tcl_GetChannelOption_TCL_DECLARED -#define Tcl_GetChannelOption_TCL_DECLARED -/* 157 */ -EXTERN int Tcl_GetChannelOption (Tcl_Interp * interp, - Tcl_Channel chan, CONST char * optionName, - Tcl_DString * dsPtr); -#endif -#ifndef Tcl_GetChannelType_TCL_DECLARED -#define Tcl_GetChannelType_TCL_DECLARED -/* 158 */ -EXTERN Tcl_ChannelType * Tcl_GetChannelType (Tcl_Channel chan); -#endif -#ifndef Tcl_GetCommandInfo_TCL_DECLARED -#define Tcl_GetCommandInfo_TCL_DECLARED -/* 159 */ -EXTERN int Tcl_GetCommandInfo (Tcl_Interp * interp, - CONST char * cmdName, Tcl_CmdInfo * infoPtr); -#endif -#ifndef Tcl_GetCommandName_TCL_DECLARED -#define Tcl_GetCommandName_TCL_DECLARED -/* 160 */ -EXTERN CONST84_RETURN char * Tcl_GetCommandName (Tcl_Interp * interp, - Tcl_Command command); -#endif -#ifndef Tcl_GetErrno_TCL_DECLARED -#define Tcl_GetErrno_TCL_DECLARED -/* 161 */ -EXTERN int Tcl_GetErrno (void); -#endif -#ifndef Tcl_GetHostName_TCL_DECLARED -#define Tcl_GetHostName_TCL_DECLARED -/* 162 */ -EXTERN CONST84_RETURN char * Tcl_GetHostName (void); -#endif -#ifndef Tcl_GetInterpPath_TCL_DECLARED -#define Tcl_GetInterpPath_TCL_DECLARED -/* 163 */ -EXTERN int Tcl_GetInterpPath (Tcl_Interp * askInterp, - Tcl_Interp * slaveInterp); -#endif -#ifndef Tcl_GetMaster_TCL_DECLARED -#define Tcl_GetMaster_TCL_DECLARED -/* 164 */ -EXTERN Tcl_Interp * Tcl_GetMaster (Tcl_Interp * interp); -#endif -#ifndef Tcl_GetNameOfExecutable_TCL_DECLARED -#define Tcl_GetNameOfExecutable_TCL_DECLARED -/* 165 */ -EXTERN CONST char * Tcl_GetNameOfExecutable (void); -#endif -#ifndef Tcl_GetObjResult_TCL_DECLARED -#define Tcl_GetObjResult_TCL_DECLARED -/* 166 */ -EXTERN Tcl_Obj * Tcl_GetObjResult (Tcl_Interp * interp); -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_GetOpenFile_TCL_DECLARED -#define Tcl_GetOpenFile_TCL_DECLARED -/* 167 */ -EXTERN int Tcl_GetOpenFile (Tcl_Interp * interp, - CONST char * chanID, int forWriting, - int checkUsage, ClientData * filePtr); -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_GetOpenFile_TCL_DECLARED -#define Tcl_GetOpenFile_TCL_DECLARED -/* 167 */ -EXTERN int Tcl_GetOpenFile (Tcl_Interp * interp, - CONST char * chanID, int forWriting, - int checkUsage, ClientData * filePtr); -#endif -#endif /* MACOSX */ -#ifndef Tcl_GetPathType_TCL_DECLARED -#define Tcl_GetPathType_TCL_DECLARED -/* 168 */ -EXTERN Tcl_PathType Tcl_GetPathType (CONST char * path); -#endif -#ifndef Tcl_Gets_TCL_DECLARED -#define Tcl_Gets_TCL_DECLARED -/* 169 */ -EXTERN int Tcl_Gets (Tcl_Channel chan, Tcl_DString * dsPtr); -#endif -#ifndef Tcl_GetsObj_TCL_DECLARED -#define Tcl_GetsObj_TCL_DECLARED -/* 170 */ -EXTERN int Tcl_GetsObj (Tcl_Channel chan, Tcl_Obj * objPtr); -#endif -#ifndef Tcl_GetServiceMode_TCL_DECLARED -#define Tcl_GetServiceMode_TCL_DECLARED -/* 171 */ -EXTERN int Tcl_GetServiceMode (void); -#endif -#ifndef Tcl_GetSlave_TCL_DECLARED -#define Tcl_GetSlave_TCL_DECLARED -/* 172 */ -EXTERN Tcl_Interp * Tcl_GetSlave (Tcl_Interp * interp, - CONST char * slaveName); -#endif -#ifndef Tcl_GetStdChannel_TCL_DECLARED -#define Tcl_GetStdChannel_TCL_DECLARED -/* 173 */ -EXTERN Tcl_Channel Tcl_GetStdChannel (int type); -#endif -#ifndef Tcl_GetStringResult_TCL_DECLARED -#define Tcl_GetStringResult_TCL_DECLARED -/* 174 */ -EXTERN CONST84_RETURN char * Tcl_GetStringResult (Tcl_Interp * interp); -#endif -#ifndef Tcl_GetVar_TCL_DECLARED -#define Tcl_GetVar_TCL_DECLARED -/* 175 */ -EXTERN CONST84_RETURN char * Tcl_GetVar (Tcl_Interp * interp, - CONST char * varName, int flags); -#endif -#ifndef Tcl_GetVar2_TCL_DECLARED -#define Tcl_GetVar2_TCL_DECLARED -/* 176 */ -EXTERN CONST84_RETURN char * Tcl_GetVar2 (Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags); -#endif -#ifndef Tcl_GlobalEval_TCL_DECLARED -#define Tcl_GlobalEval_TCL_DECLARED -/* 177 */ -EXTERN int Tcl_GlobalEval (Tcl_Interp * interp, - CONST char * command); -#endif -#ifndef Tcl_GlobalEvalObj_TCL_DECLARED -#define Tcl_GlobalEvalObj_TCL_DECLARED -/* 178 */ -EXTERN int Tcl_GlobalEvalObj (Tcl_Interp * interp, - Tcl_Obj * objPtr); -#endif -#ifndef Tcl_HideCommand_TCL_DECLARED -#define Tcl_HideCommand_TCL_DECLARED -/* 179 */ -EXTERN int Tcl_HideCommand (Tcl_Interp * interp, - CONST char * cmdName, - CONST char * hiddenCmdToken); -#endif -#ifndef Tcl_Init_TCL_DECLARED -#define Tcl_Init_TCL_DECLARED -/* 180 */ -EXTERN int Tcl_Init (Tcl_Interp * interp); -#endif -#ifndef Tcl_InitHashTable_TCL_DECLARED -#define Tcl_InitHashTable_TCL_DECLARED -/* 181 */ -EXTERN void Tcl_InitHashTable (Tcl_HashTable * tablePtr, - int keyType); -#endif -#ifndef Tcl_InputBlocked_TCL_DECLARED -#define Tcl_InputBlocked_TCL_DECLARED -/* 182 */ -EXTERN int Tcl_InputBlocked (Tcl_Channel chan); -#endif -#ifndef Tcl_InputBuffered_TCL_DECLARED -#define Tcl_InputBuffered_TCL_DECLARED -/* 183 */ -EXTERN int Tcl_InputBuffered (Tcl_Channel chan); -#endif -#ifndef Tcl_InterpDeleted_TCL_DECLARED -#define Tcl_InterpDeleted_TCL_DECLARED -/* 184 */ -EXTERN int Tcl_InterpDeleted (Tcl_Interp * interp); -#endif -#ifndef Tcl_IsSafe_TCL_DECLARED -#define Tcl_IsSafe_TCL_DECLARED -/* 185 */ -EXTERN int Tcl_IsSafe (Tcl_Interp * interp); -#endif -#ifndef Tcl_JoinPath_TCL_DECLARED -#define Tcl_JoinPath_TCL_DECLARED -/* 186 */ -EXTERN char * Tcl_JoinPath (int argc, CONST84 char * CONST * argv, - Tcl_DString * resultPtr); -#endif -#ifndef Tcl_LinkVar_TCL_DECLARED -#define Tcl_LinkVar_TCL_DECLARED -/* 187 */ -EXTERN int Tcl_LinkVar (Tcl_Interp * interp, - CONST char * varName, char * addr, int type); -#endif -/* Slot 188 is reserved */ -#ifndef Tcl_MakeFileChannel_TCL_DECLARED -#define Tcl_MakeFileChannel_TCL_DECLARED -/* 189 */ -EXTERN Tcl_Channel Tcl_MakeFileChannel (ClientData handle, int mode); -#endif -#ifndef Tcl_MakeSafe_TCL_DECLARED -#define Tcl_MakeSafe_TCL_DECLARED -/* 190 */ -EXTERN int Tcl_MakeSafe (Tcl_Interp * interp); -#endif -#ifndef Tcl_MakeTcpClientChannel_TCL_DECLARED -#define Tcl_MakeTcpClientChannel_TCL_DECLARED -/* 191 */ -EXTERN Tcl_Channel Tcl_MakeTcpClientChannel (ClientData tcpSocket); -#endif -#ifndef Tcl_Merge_TCL_DECLARED -#define Tcl_Merge_TCL_DECLARED -/* 192 */ -EXTERN char * Tcl_Merge (int argc, CONST84 char * CONST * argv); -#endif -#ifndef Tcl_NextHashEntry_TCL_DECLARED -#define Tcl_NextHashEntry_TCL_DECLARED -/* 193 */ -EXTERN Tcl_HashEntry * Tcl_NextHashEntry (Tcl_HashSearch * searchPtr); -#endif -#ifndef Tcl_NotifyChannel_TCL_DECLARED -#define Tcl_NotifyChannel_TCL_DECLARED -/* 194 */ -EXTERN void Tcl_NotifyChannel (Tcl_Channel channel, int mask); -#endif -#ifndef Tcl_ObjGetVar2_TCL_DECLARED -#define Tcl_ObjGetVar2_TCL_DECLARED -/* 195 */ -EXTERN Tcl_Obj * Tcl_ObjGetVar2 (Tcl_Interp * interp, - Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, - int flags); -#endif -#ifndef Tcl_ObjSetVar2_TCL_DECLARED -#define Tcl_ObjSetVar2_TCL_DECLARED -/* 196 */ -EXTERN Tcl_Obj * Tcl_ObjSetVar2 (Tcl_Interp * interp, - Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, - Tcl_Obj * newValuePtr, int flags); -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_OpenCommandChannel_TCL_DECLARED -#define Tcl_OpenCommandChannel_TCL_DECLARED -/* 197 */ -EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp, - int argc, CONST84 char ** argv, int flags); -#endif -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ -#ifndef Tcl_OpenCommandChannel_TCL_DECLARED -#define Tcl_OpenCommandChannel_TCL_DECLARED -/* 197 */ -EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp, - int argc, CONST84 char ** argv, int flags); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_OpenCommandChannel_TCL_DECLARED -#define Tcl_OpenCommandChannel_TCL_DECLARED -/* 197 */ -EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp, - int argc, CONST84 char ** argv, int flags); -#endif -#endif /* MACOSX */ -#ifndef Tcl_OpenFileChannel_TCL_DECLARED -#define Tcl_OpenFileChannel_TCL_DECLARED -/* 198 */ -EXTERN Tcl_Channel Tcl_OpenFileChannel (Tcl_Interp * interp, - CONST char * fileName, - CONST char * modeString, int permissions); -#endif -#ifndef Tcl_OpenTcpClient_TCL_DECLARED -#define Tcl_OpenTcpClient_TCL_DECLARED -/* 199 */ -EXTERN Tcl_Channel Tcl_OpenTcpClient (Tcl_Interp * interp, int port, - CONST char * address, CONST char * myaddr, - int myport, int async); -#endif -#ifndef Tcl_OpenTcpServer_TCL_DECLARED -#define Tcl_OpenTcpServer_TCL_DECLARED -/* 200 */ -EXTERN Tcl_Channel Tcl_OpenTcpServer (Tcl_Interp * interp, int port, - CONST char * host, - Tcl_TcpAcceptProc * acceptProc, - ClientData callbackData); -#endif -#ifndef Tcl_Preserve_TCL_DECLARED -#define Tcl_Preserve_TCL_DECLARED -/* 201 */ -EXTERN void Tcl_Preserve (ClientData data); -#endif -#ifndef Tcl_PrintDouble_TCL_DECLARED -#define Tcl_PrintDouble_TCL_DECLARED -/* 202 */ -EXTERN void Tcl_PrintDouble (Tcl_Interp * interp, double value, - char * dst); -#endif -#ifndef Tcl_PutEnv_TCL_DECLARED -#define Tcl_PutEnv_TCL_DECLARED -/* 203 */ -EXTERN int Tcl_PutEnv (CONST char * assignment); -#endif -#ifndef Tcl_PosixError_TCL_DECLARED -#define Tcl_PosixError_TCL_DECLARED -/* 204 */ -EXTERN CONST84_RETURN char * Tcl_PosixError (Tcl_Interp * interp); -#endif -#ifndef Tcl_QueueEvent_TCL_DECLARED -#define Tcl_QueueEvent_TCL_DECLARED -/* 205 */ -EXTERN void Tcl_QueueEvent (Tcl_Event * evPtr, - Tcl_QueuePosition position); -#endif -#ifndef Tcl_Read_TCL_DECLARED -#define Tcl_Read_TCL_DECLARED -/* 206 */ -EXTERN int Tcl_Read (Tcl_Channel chan, char * bufPtr, - int toRead); -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_ReapDetachedProcs_TCL_DECLARED -#define Tcl_ReapDetachedProcs_TCL_DECLARED -/* 207 */ -EXTERN void Tcl_ReapDetachedProcs (void); -#endif -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ -#ifndef Tcl_ReapDetachedProcs_TCL_DECLARED -#define Tcl_ReapDetachedProcs_TCL_DECLARED -/* 207 */ -EXTERN void Tcl_ReapDetachedProcs (void); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_ReapDetachedProcs_TCL_DECLARED -#define Tcl_ReapDetachedProcs_TCL_DECLARED -/* 207 */ -EXTERN void Tcl_ReapDetachedProcs (void); -#endif -#endif /* MACOSX */ -#ifndef Tcl_RecordAndEval_TCL_DECLARED -#define Tcl_RecordAndEval_TCL_DECLARED -/* 208 */ -EXTERN int Tcl_RecordAndEval (Tcl_Interp * interp, - CONST char * cmd, int flags); -#endif -#ifndef Tcl_RecordAndEvalObj_TCL_DECLARED -#define Tcl_RecordAndEvalObj_TCL_DECLARED -/* 209 */ -EXTERN int Tcl_RecordAndEvalObj (Tcl_Interp * interp, - Tcl_Obj * cmdPtr, int flags); -#endif -#ifndef Tcl_RegisterChannel_TCL_DECLARED -#define Tcl_RegisterChannel_TCL_DECLARED -/* 210 */ -EXTERN void Tcl_RegisterChannel (Tcl_Interp * interp, - Tcl_Channel chan); -#endif -#ifndef Tcl_RegisterObjType_TCL_DECLARED -#define Tcl_RegisterObjType_TCL_DECLARED -/* 211 */ -EXTERN void Tcl_RegisterObjType (Tcl_ObjType * typePtr); -#endif -#ifndef Tcl_RegExpCompile_TCL_DECLARED -#define Tcl_RegExpCompile_TCL_DECLARED -/* 212 */ -EXTERN Tcl_RegExp Tcl_RegExpCompile (Tcl_Interp * interp, - CONST char * pattern); -#endif -#ifndef Tcl_RegExpExec_TCL_DECLARED -#define Tcl_RegExpExec_TCL_DECLARED -/* 213 */ -EXTERN int Tcl_RegExpExec (Tcl_Interp * interp, - Tcl_RegExp regexp, CONST char * text, - CONST char * start); -#endif -#ifndef Tcl_RegExpMatch_TCL_DECLARED -#define Tcl_RegExpMatch_TCL_DECLARED -/* 214 */ -EXTERN int Tcl_RegExpMatch (Tcl_Interp * interp, - CONST char * text, CONST char * pattern); -#endif -#ifndef Tcl_RegExpRange_TCL_DECLARED -#define Tcl_RegExpRange_TCL_DECLARED -/* 215 */ -EXTERN void Tcl_RegExpRange (Tcl_RegExp regexp, int index, - CONST84 char ** startPtr, - CONST84 char ** endPtr); -#endif -#ifndef Tcl_Release_TCL_DECLARED -#define Tcl_Release_TCL_DECLARED -/* 216 */ -EXTERN void Tcl_Release (ClientData clientData); -#endif -#ifndef Tcl_ResetResult_TCL_DECLARED -#define Tcl_ResetResult_TCL_DECLARED -/* 217 */ -EXTERN void Tcl_ResetResult (Tcl_Interp * interp); -#endif -#ifndef Tcl_ScanElement_TCL_DECLARED -#define Tcl_ScanElement_TCL_DECLARED -/* 218 */ -EXTERN int Tcl_ScanElement (CONST char * str, int * flagPtr); -#endif -#ifndef Tcl_ScanCountedElement_TCL_DECLARED -#define Tcl_ScanCountedElement_TCL_DECLARED -/* 219 */ -EXTERN int Tcl_ScanCountedElement (CONST char * str, int length, - int * flagPtr); -#endif -#ifndef Tcl_SeekOld_TCL_DECLARED -#define Tcl_SeekOld_TCL_DECLARED -/* 220 */ -EXTERN int Tcl_SeekOld (Tcl_Channel chan, int offset, int mode); -#endif -#ifndef Tcl_ServiceAll_TCL_DECLARED -#define Tcl_ServiceAll_TCL_DECLARED -/* 221 */ -EXTERN int Tcl_ServiceAll (void); -#endif -#ifndef Tcl_ServiceEvent_TCL_DECLARED -#define Tcl_ServiceEvent_TCL_DECLARED -/* 222 */ -EXTERN int Tcl_ServiceEvent (int flags); -#endif -#ifndef Tcl_SetAssocData_TCL_DECLARED -#define Tcl_SetAssocData_TCL_DECLARED -/* 223 */ -EXTERN void Tcl_SetAssocData (Tcl_Interp * interp, - CONST char * name, - Tcl_InterpDeleteProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_SetChannelBufferSize_TCL_DECLARED -#define Tcl_SetChannelBufferSize_TCL_DECLARED -/* 224 */ -EXTERN void Tcl_SetChannelBufferSize (Tcl_Channel chan, int sz); -#endif -#ifndef Tcl_SetChannelOption_TCL_DECLARED -#define Tcl_SetChannelOption_TCL_DECLARED -/* 225 */ -EXTERN int Tcl_SetChannelOption (Tcl_Interp * interp, - Tcl_Channel chan, CONST char * optionName, - CONST char * newValue); -#endif -#ifndef Tcl_SetCommandInfo_TCL_DECLARED -#define Tcl_SetCommandInfo_TCL_DECLARED -/* 226 */ -EXTERN int Tcl_SetCommandInfo (Tcl_Interp * interp, - CONST char * cmdName, - CONST Tcl_CmdInfo * infoPtr); -#endif -#ifndef Tcl_SetErrno_TCL_DECLARED -#define Tcl_SetErrno_TCL_DECLARED -/* 227 */ -EXTERN void Tcl_SetErrno (int err); -#endif -#ifndef Tcl_SetErrorCode_TCL_DECLARED -#define Tcl_SetErrorCode_TCL_DECLARED -/* 228 */ -EXTERN void Tcl_SetErrorCode (Tcl_Interp * interp, ...); -#endif -#ifndef Tcl_SetMaxBlockTime_TCL_DECLARED -#define Tcl_SetMaxBlockTime_TCL_DECLARED -/* 229 */ -EXTERN void Tcl_SetMaxBlockTime (Tcl_Time * timePtr); -#endif -#ifndef Tcl_SetPanicProc_TCL_DECLARED -#define Tcl_SetPanicProc_TCL_DECLARED -/* 230 */ -EXTERN void Tcl_SetPanicProc (Tcl_PanicProc * panicProc); -#endif -#ifndef Tcl_SetRecursionLimit_TCL_DECLARED -#define Tcl_SetRecursionLimit_TCL_DECLARED -/* 231 */ -EXTERN int Tcl_SetRecursionLimit (Tcl_Interp * interp, - int depth); -#endif -#ifndef Tcl_SetResult_TCL_DECLARED -#define Tcl_SetResult_TCL_DECLARED -/* 232 */ -EXTERN void Tcl_SetResult (Tcl_Interp * interp, char * result, - Tcl_FreeProc * freeProc); -#endif -#ifndef Tcl_SetServiceMode_TCL_DECLARED -#define Tcl_SetServiceMode_TCL_DECLARED -/* 233 */ -EXTERN int Tcl_SetServiceMode (int mode); -#endif -#ifndef Tcl_SetObjErrorCode_TCL_DECLARED -#define Tcl_SetObjErrorCode_TCL_DECLARED -/* 234 */ -EXTERN void Tcl_SetObjErrorCode (Tcl_Interp * interp, - Tcl_Obj * errorObjPtr); -#endif -#ifndef Tcl_SetObjResult_TCL_DECLARED -#define Tcl_SetObjResult_TCL_DECLARED -/* 235 */ -EXTERN void Tcl_SetObjResult (Tcl_Interp * interp, - Tcl_Obj * resultObjPtr); -#endif -#ifndef Tcl_SetStdChannel_TCL_DECLARED -#define Tcl_SetStdChannel_TCL_DECLARED -/* 236 */ -EXTERN void Tcl_SetStdChannel (Tcl_Channel channel, int type); -#endif -#ifndef Tcl_SetVar_TCL_DECLARED -#define Tcl_SetVar_TCL_DECLARED -/* 237 */ -EXTERN CONST84_RETURN char * Tcl_SetVar (Tcl_Interp * interp, - CONST char * varName, CONST char * newValue, - int flags); -#endif -#ifndef Tcl_SetVar2_TCL_DECLARED -#define Tcl_SetVar2_TCL_DECLARED -/* 238 */ -EXTERN CONST84_RETURN char * Tcl_SetVar2 (Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - CONST char * newValue, int flags); -#endif -#ifndef Tcl_SignalId_TCL_DECLARED -#define Tcl_SignalId_TCL_DECLARED -/* 239 */ -EXTERN CONST84_RETURN char * Tcl_SignalId (int sig); -#endif -#ifndef Tcl_SignalMsg_TCL_DECLARED -#define Tcl_SignalMsg_TCL_DECLARED -/* 240 */ -EXTERN CONST84_RETURN char * Tcl_SignalMsg (int sig); -#endif -#ifndef Tcl_SourceRCFile_TCL_DECLARED -#define Tcl_SourceRCFile_TCL_DECLARED -/* 241 */ -EXTERN void Tcl_SourceRCFile (Tcl_Interp * interp); -#endif -#ifndef Tcl_SplitList_TCL_DECLARED -#define Tcl_SplitList_TCL_DECLARED -/* 242 */ -EXTERN int Tcl_SplitList (Tcl_Interp * interp, - CONST char * listStr, int * argcPtr, - CONST84 char *** argvPtr); -#endif -#ifndef Tcl_SplitPath_TCL_DECLARED -#define Tcl_SplitPath_TCL_DECLARED -/* 243 */ -EXTERN void Tcl_SplitPath (CONST char * path, int * argcPtr, - CONST84 char *** argvPtr); -#endif -#ifndef Tcl_StaticPackage_TCL_DECLARED -#define Tcl_StaticPackage_TCL_DECLARED -/* 244 */ -EXTERN void Tcl_StaticPackage (Tcl_Interp * interp, - CONST char * pkgName, - Tcl_PackageInitProc * initProc, - Tcl_PackageInitProc * safeInitProc); -#endif -#ifndef Tcl_StringMatch_TCL_DECLARED -#define Tcl_StringMatch_TCL_DECLARED -/* 245 */ -EXTERN int Tcl_StringMatch (CONST char * str, - CONST char * pattern); -#endif -#ifndef Tcl_TellOld_TCL_DECLARED -#define Tcl_TellOld_TCL_DECLARED -/* 246 */ -EXTERN int Tcl_TellOld (Tcl_Channel chan); -#endif -#ifndef Tcl_TraceVar_TCL_DECLARED -#define Tcl_TraceVar_TCL_DECLARED -/* 247 */ -EXTERN int Tcl_TraceVar (Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_VarTraceProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_TraceVar2_TCL_DECLARED -#define Tcl_TraceVar2_TCL_DECLARED -/* 248 */ -EXTERN int Tcl_TraceVar2 (Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags, Tcl_VarTraceProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_TranslateFileName_TCL_DECLARED -#define Tcl_TranslateFileName_TCL_DECLARED -/* 249 */ -EXTERN char * Tcl_TranslateFileName (Tcl_Interp * interp, - CONST char * name, Tcl_DString * bufferPtr); -#endif -#ifndef Tcl_Ungets_TCL_DECLARED -#define Tcl_Ungets_TCL_DECLARED -/* 250 */ -EXTERN int Tcl_Ungets (Tcl_Channel chan, CONST char * str, - int len, int atHead); -#endif -#ifndef Tcl_UnlinkVar_TCL_DECLARED -#define Tcl_UnlinkVar_TCL_DECLARED -/* 251 */ -EXTERN void Tcl_UnlinkVar (Tcl_Interp * interp, - CONST char * varName); -#endif -#ifndef Tcl_UnregisterChannel_TCL_DECLARED -#define Tcl_UnregisterChannel_TCL_DECLARED -/* 252 */ -EXTERN int Tcl_UnregisterChannel (Tcl_Interp * interp, - Tcl_Channel chan); -#endif -#ifndef Tcl_UnsetVar_TCL_DECLARED -#define Tcl_UnsetVar_TCL_DECLARED -/* 253 */ -EXTERN int Tcl_UnsetVar (Tcl_Interp * interp, - CONST char * varName, int flags); -#endif -#ifndef Tcl_UnsetVar2_TCL_DECLARED -#define Tcl_UnsetVar2_TCL_DECLARED -/* 254 */ -EXTERN int Tcl_UnsetVar2 (Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags); -#endif -#ifndef Tcl_UntraceVar_TCL_DECLARED -#define Tcl_UntraceVar_TCL_DECLARED -/* 255 */ -EXTERN void Tcl_UntraceVar (Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_VarTraceProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_UntraceVar2_TCL_DECLARED -#define Tcl_UntraceVar2_TCL_DECLARED -/* 256 */ -EXTERN void Tcl_UntraceVar2 (Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags, Tcl_VarTraceProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_UpdateLinkedVar_TCL_DECLARED -#define Tcl_UpdateLinkedVar_TCL_DECLARED -/* 257 */ -EXTERN void Tcl_UpdateLinkedVar (Tcl_Interp * interp, - CONST char * varName); -#endif -#ifndef Tcl_UpVar_TCL_DECLARED -#define Tcl_UpVar_TCL_DECLARED -/* 258 */ -EXTERN int Tcl_UpVar (Tcl_Interp * interp, - CONST char * frameName, CONST char * varName, - CONST char * localName, int flags); -#endif -#ifndef Tcl_UpVar2_TCL_DECLARED -#define Tcl_UpVar2_TCL_DECLARED -/* 259 */ -EXTERN int Tcl_UpVar2 (Tcl_Interp * interp, - CONST char * frameName, CONST char * part1, - CONST char * part2, CONST char * localName, - int flags); -#endif -#ifndef Tcl_VarEval_TCL_DECLARED -#define Tcl_VarEval_TCL_DECLARED -/* 260 */ -EXTERN int Tcl_VarEval (Tcl_Interp * interp, ...); -#endif -#ifndef Tcl_VarTraceInfo_TCL_DECLARED -#define Tcl_VarTraceInfo_TCL_DECLARED -/* 261 */ -EXTERN ClientData Tcl_VarTraceInfo (Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_VarTraceProc * procPtr, - ClientData prevClientData); -#endif -#ifndef Tcl_VarTraceInfo2_TCL_DECLARED -#define Tcl_VarTraceInfo2_TCL_DECLARED -/* 262 */ -EXTERN ClientData Tcl_VarTraceInfo2 (Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags, Tcl_VarTraceProc * procPtr, - ClientData prevClientData); -#endif -#ifndef Tcl_Write_TCL_DECLARED -#define Tcl_Write_TCL_DECLARED -/* 263 */ -EXTERN int Tcl_Write (Tcl_Channel chan, CONST char * s, - int slen); -#endif -#ifndef Tcl_WrongNumArgs_TCL_DECLARED -#define Tcl_WrongNumArgs_TCL_DECLARED -/* 264 */ -EXTERN void Tcl_WrongNumArgs (Tcl_Interp * interp, int objc, - Tcl_Obj *CONST objv[], CONST char * message); -#endif -#ifndef Tcl_DumpActiveMemory_TCL_DECLARED -#define Tcl_DumpActiveMemory_TCL_DECLARED -/* 265 */ -EXTERN int Tcl_DumpActiveMemory (CONST char * fileName); -#endif -#ifndef Tcl_ValidateAllMemory_TCL_DECLARED -#define Tcl_ValidateAllMemory_TCL_DECLARED -/* 266 */ -EXTERN void Tcl_ValidateAllMemory (CONST char * file, int line); -#endif -#ifndef Tcl_AppendResultVA_TCL_DECLARED -#define Tcl_AppendResultVA_TCL_DECLARED -/* 267 */ -EXTERN void Tcl_AppendResultVA (Tcl_Interp * interp, - va_list argList); -#endif -#ifndef Tcl_AppendStringsToObjVA_TCL_DECLARED -#define Tcl_AppendStringsToObjVA_TCL_DECLARED -/* 268 */ -EXTERN void Tcl_AppendStringsToObjVA (Tcl_Obj * objPtr, - va_list argList); -#endif -#ifndef Tcl_HashStats_TCL_DECLARED -#define Tcl_HashStats_TCL_DECLARED -/* 269 */ -EXTERN CONST84_RETURN char * Tcl_HashStats (Tcl_HashTable * tablePtr); -#endif -#ifndef Tcl_ParseVar_TCL_DECLARED -#define Tcl_ParseVar_TCL_DECLARED -/* 270 */ -EXTERN CONST84_RETURN char * Tcl_ParseVar (Tcl_Interp * interp, - CONST char * start, CONST84 char ** termPtr); -#endif -#ifndef Tcl_PkgPresent_TCL_DECLARED -#define Tcl_PkgPresent_TCL_DECLARED -/* 271 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresent (Tcl_Interp * interp, - CONST char * name, CONST char * version, - int exact); -#endif -#ifndef Tcl_PkgPresentEx_TCL_DECLARED -#define Tcl_PkgPresentEx_TCL_DECLARED -/* 272 */ -EXTERN CONST84_RETURN char * Tcl_PkgPresentEx (Tcl_Interp * interp, - CONST char * name, CONST char * version, - int exact, ClientData * clientDataPtr); -#endif -#ifndef Tcl_PkgProvide_TCL_DECLARED -#define Tcl_PkgProvide_TCL_DECLARED -/* 273 */ -EXTERN int Tcl_PkgProvide (Tcl_Interp * interp, - CONST char * name, CONST char * version); -#endif -#ifndef Tcl_PkgRequire_TCL_DECLARED -#define Tcl_PkgRequire_TCL_DECLARED -/* 274 */ -EXTERN CONST84_RETURN char * Tcl_PkgRequire (Tcl_Interp * interp, - CONST char * name, CONST char * version, - int exact); -#endif -#ifndef Tcl_SetErrorCodeVA_TCL_DECLARED -#define Tcl_SetErrorCodeVA_TCL_DECLARED -/* 275 */ -EXTERN void Tcl_SetErrorCodeVA (Tcl_Interp * interp, - va_list argList); -#endif -#ifndef Tcl_VarEvalVA_TCL_DECLARED -#define Tcl_VarEvalVA_TCL_DECLARED -/* 276 */ -EXTERN int Tcl_VarEvalVA (Tcl_Interp * interp, va_list argList); -#endif -#ifndef Tcl_WaitPid_TCL_DECLARED -#define Tcl_WaitPid_TCL_DECLARED -/* 277 */ -EXTERN Tcl_Pid Tcl_WaitPid (Tcl_Pid pid, int * statPtr, int options); -#endif -#ifndef Tcl_PanicVA_TCL_DECLARED -#define Tcl_PanicVA_TCL_DECLARED -/* 278 */ -EXTERN void Tcl_PanicVA (CONST char * format, va_list argList); -#endif -#ifndef Tcl_GetVersion_TCL_DECLARED -#define Tcl_GetVersion_TCL_DECLARED -/* 279 */ -EXTERN void Tcl_GetVersion (int * major, int * minor, - int * patchLevel, int * type); -#endif -#ifndef Tcl_InitMemory_TCL_DECLARED -#define Tcl_InitMemory_TCL_DECLARED -/* 280 */ -EXTERN void Tcl_InitMemory (Tcl_Interp * interp); -#endif -#ifndef Tcl_StackChannel_TCL_DECLARED -#define Tcl_StackChannel_TCL_DECLARED -/* 281 */ -EXTERN Tcl_Channel Tcl_StackChannel (Tcl_Interp * interp, - Tcl_ChannelType * typePtr, - ClientData instanceData, int mask, - Tcl_Channel prevChan); -#endif -#ifndef Tcl_UnstackChannel_TCL_DECLARED -#define Tcl_UnstackChannel_TCL_DECLARED -/* 282 */ -EXTERN int Tcl_UnstackChannel (Tcl_Interp * interp, - Tcl_Channel chan); -#endif -#ifndef Tcl_GetStackedChannel_TCL_DECLARED -#define Tcl_GetStackedChannel_TCL_DECLARED -/* 283 */ -EXTERN Tcl_Channel Tcl_GetStackedChannel (Tcl_Channel chan); -#endif -#ifndef Tcl_SetMainLoop_TCL_DECLARED -#define Tcl_SetMainLoop_TCL_DECLARED -/* 284 */ -EXTERN void Tcl_SetMainLoop (Tcl_MainLoopProc * proc); -#endif -/* Slot 285 is reserved */ -#ifndef Tcl_AppendObjToObj_TCL_DECLARED -#define Tcl_AppendObjToObj_TCL_DECLARED -/* 286 */ -EXTERN void Tcl_AppendObjToObj (Tcl_Obj * objPtr, - Tcl_Obj * appendObjPtr); -#endif -#ifndef Tcl_CreateEncoding_TCL_DECLARED -#define Tcl_CreateEncoding_TCL_DECLARED -/* 287 */ -EXTERN Tcl_Encoding Tcl_CreateEncoding (const Tcl_EncodingType * typePtr); -#endif -#ifndef Tcl_CreateThreadExitHandler_TCL_DECLARED -#define Tcl_CreateThreadExitHandler_TCL_DECLARED -/* 288 */ -EXTERN void Tcl_CreateThreadExitHandler (Tcl_ExitProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_DeleteThreadExitHandler_TCL_DECLARED -#define Tcl_DeleteThreadExitHandler_TCL_DECLARED -/* 289 */ -EXTERN void Tcl_DeleteThreadExitHandler (Tcl_ExitProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_DiscardResult_TCL_DECLARED -#define Tcl_DiscardResult_TCL_DECLARED -/* 290 */ -EXTERN void Tcl_DiscardResult (Tcl_SavedResult * statePtr); -#endif -#ifndef Tcl_EvalEx_TCL_DECLARED -#define Tcl_EvalEx_TCL_DECLARED -/* 291 */ -EXTERN int Tcl_EvalEx (Tcl_Interp * interp, CONST char * script, - int numBytes, int flags); -#endif -#ifndef Tcl_EvalObjv_TCL_DECLARED -#define Tcl_EvalObjv_TCL_DECLARED -/* 292 */ -EXTERN int Tcl_EvalObjv (Tcl_Interp * interp, int objc, - Tcl_Obj *CONST objv[], int flags); -#endif -#ifndef Tcl_EvalObjEx_TCL_DECLARED -#define Tcl_EvalObjEx_TCL_DECLARED -/* 293 */ -EXTERN int Tcl_EvalObjEx (Tcl_Interp * interp, Tcl_Obj * objPtr, - int flags); -#endif -#ifndef Tcl_ExitThread_TCL_DECLARED -#define Tcl_ExitThread_TCL_DECLARED -/* 294 */ -EXTERN void Tcl_ExitThread (int status); -#endif -#ifndef Tcl_ExternalToUtf_TCL_DECLARED -#define Tcl_ExternalToUtf_TCL_DECLARED -/* 295 */ -EXTERN int Tcl_ExternalToUtf (Tcl_Interp * interp, - Tcl_Encoding encoding, CONST char * src, - int srcLen, int flags, - Tcl_EncodingState * statePtr, char * dst, - int dstLen, int * srcReadPtr, - int * dstWrotePtr, int * dstCharsPtr); -#endif -#ifndef Tcl_ExternalToUtfDString_TCL_DECLARED -#define Tcl_ExternalToUtfDString_TCL_DECLARED -/* 296 */ -EXTERN char * Tcl_ExternalToUtfDString (Tcl_Encoding encoding, - CONST char * src, int srcLen, - Tcl_DString * dsPtr); -#endif -#ifndef Tcl_FinalizeThread_TCL_DECLARED -#define Tcl_FinalizeThread_TCL_DECLARED -/* 297 */ -EXTERN void Tcl_FinalizeThread (void); -#endif -#ifndef Tcl_FinalizeNotifier_TCL_DECLARED -#define Tcl_FinalizeNotifier_TCL_DECLARED -/* 298 */ -EXTERN void Tcl_FinalizeNotifier (ClientData clientData); -#endif -#ifndef Tcl_FreeEncoding_TCL_DECLARED -#define Tcl_FreeEncoding_TCL_DECLARED -/* 299 */ -EXTERN void Tcl_FreeEncoding (Tcl_Encoding encoding); -#endif -#ifndef Tcl_GetCurrentThread_TCL_DECLARED -#define Tcl_GetCurrentThread_TCL_DECLARED -/* 300 */ -EXTERN Tcl_ThreadId Tcl_GetCurrentThread (void); -#endif -#ifndef Tcl_GetEncoding_TCL_DECLARED -#define Tcl_GetEncoding_TCL_DECLARED -/* 301 */ -EXTERN Tcl_Encoding Tcl_GetEncoding (Tcl_Interp * interp, - CONST char * name); -#endif -#ifndef Tcl_GetEncodingName_TCL_DECLARED -#define Tcl_GetEncodingName_TCL_DECLARED -/* 302 */ -EXTERN CONST84_RETURN char * Tcl_GetEncodingName (Tcl_Encoding encoding); -#endif -#ifndef Tcl_GetEncodingNames_TCL_DECLARED -#define Tcl_GetEncodingNames_TCL_DECLARED -/* 303 */ -EXTERN void Tcl_GetEncodingNames (Tcl_Interp * interp); -#endif -#ifndef Tcl_GetIndexFromObjStruct_TCL_DECLARED -#define Tcl_GetIndexFromObjStruct_TCL_DECLARED -/* 304 */ -EXTERN int Tcl_GetIndexFromObjStruct (Tcl_Interp * interp, - Tcl_Obj * objPtr, CONST VOID * tablePtr, - int offset, CONST char * msg, int flags, - int * indexPtr); -#endif -#ifndef Tcl_GetThreadData_TCL_DECLARED -#define Tcl_GetThreadData_TCL_DECLARED -/* 305 */ -EXTERN VOID * Tcl_GetThreadData (Tcl_ThreadDataKey * keyPtr, - int size); -#endif -#ifndef Tcl_GetVar2Ex_TCL_DECLARED -#define Tcl_GetVar2Ex_TCL_DECLARED -/* 306 */ -EXTERN Tcl_Obj * Tcl_GetVar2Ex (Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - int flags); -#endif -#ifndef Tcl_InitNotifier_TCL_DECLARED -#define Tcl_InitNotifier_TCL_DECLARED -/* 307 */ -EXTERN ClientData Tcl_InitNotifier (void); -#endif -#ifndef Tcl_MutexLock_TCL_DECLARED -#define Tcl_MutexLock_TCL_DECLARED -/* 308 */ -EXTERN void Tcl_MutexLock (Tcl_Mutex * mutexPtr); -#endif -#ifndef Tcl_MutexUnlock_TCL_DECLARED -#define Tcl_MutexUnlock_TCL_DECLARED -/* 309 */ -EXTERN void Tcl_MutexUnlock (Tcl_Mutex * mutexPtr); -#endif -#ifndef Tcl_ConditionNotify_TCL_DECLARED -#define Tcl_ConditionNotify_TCL_DECLARED -/* 310 */ -EXTERN void Tcl_ConditionNotify (Tcl_Condition * condPtr); -#endif -#ifndef Tcl_ConditionWait_TCL_DECLARED -#define Tcl_ConditionWait_TCL_DECLARED -/* 311 */ -EXTERN void Tcl_ConditionWait (Tcl_Condition * condPtr, - Tcl_Mutex * mutexPtr, Tcl_Time * timePtr); -#endif -#ifndef Tcl_NumUtfChars_TCL_DECLARED -#define Tcl_NumUtfChars_TCL_DECLARED -/* 312 */ -EXTERN int Tcl_NumUtfChars (CONST char * src, int length); -#endif -#ifndef Tcl_ReadChars_TCL_DECLARED -#define Tcl_ReadChars_TCL_DECLARED -/* 313 */ -EXTERN int Tcl_ReadChars (Tcl_Channel channel, Tcl_Obj * objPtr, - int charsToRead, int appendFlag); -#endif -#ifndef Tcl_RestoreResult_TCL_DECLARED -#define Tcl_RestoreResult_TCL_DECLARED -/* 314 */ -EXTERN void Tcl_RestoreResult (Tcl_Interp * interp, - Tcl_SavedResult * statePtr); -#endif -#ifndef Tcl_SaveResult_TCL_DECLARED -#define Tcl_SaveResult_TCL_DECLARED -/* 315 */ -EXTERN void Tcl_SaveResult (Tcl_Interp * interp, - Tcl_SavedResult * statePtr); -#endif -#ifndef Tcl_SetSystemEncoding_TCL_DECLARED -#define Tcl_SetSystemEncoding_TCL_DECLARED -/* 316 */ -EXTERN int Tcl_SetSystemEncoding (Tcl_Interp * interp, - CONST char * name); -#endif -#ifndef Tcl_SetVar2Ex_TCL_DECLARED -#define Tcl_SetVar2Ex_TCL_DECLARED -/* 317 */ -EXTERN Tcl_Obj * Tcl_SetVar2Ex (Tcl_Interp * interp, - CONST char * part1, CONST char * part2, - Tcl_Obj * newValuePtr, int flags); -#endif -#ifndef Tcl_ThreadAlert_TCL_DECLARED -#define Tcl_ThreadAlert_TCL_DECLARED -/* 318 */ -EXTERN void Tcl_ThreadAlert (Tcl_ThreadId threadId); -#endif -#ifndef Tcl_ThreadQueueEvent_TCL_DECLARED -#define Tcl_ThreadQueueEvent_TCL_DECLARED -/* 319 */ -EXTERN void Tcl_ThreadQueueEvent (Tcl_ThreadId threadId, - Tcl_Event* evPtr, Tcl_QueuePosition position); -#endif -#ifndef Tcl_UniCharAtIndex_TCL_DECLARED -#define Tcl_UniCharAtIndex_TCL_DECLARED -/* 320 */ -EXTERN Tcl_UniChar Tcl_UniCharAtIndex (CONST char * src, int index); -#endif -#ifndef Tcl_UniCharToLower_TCL_DECLARED -#define Tcl_UniCharToLower_TCL_DECLARED -/* 321 */ -EXTERN Tcl_UniChar Tcl_UniCharToLower (int ch); -#endif -#ifndef Tcl_UniCharToTitle_TCL_DECLARED -#define Tcl_UniCharToTitle_TCL_DECLARED -/* 322 */ -EXTERN Tcl_UniChar Tcl_UniCharToTitle (int ch); -#endif -#ifndef Tcl_UniCharToUpper_TCL_DECLARED -#define Tcl_UniCharToUpper_TCL_DECLARED -/* 323 */ -EXTERN Tcl_UniChar Tcl_UniCharToUpper (int ch); -#endif -#ifndef Tcl_UniCharToUtf_TCL_DECLARED -#define Tcl_UniCharToUtf_TCL_DECLARED -/* 324 */ -EXTERN int Tcl_UniCharToUtf (int ch, char * buf); -#endif -#ifndef Tcl_UtfAtIndex_TCL_DECLARED -#define Tcl_UtfAtIndex_TCL_DECLARED -/* 325 */ -EXTERN CONST84_RETURN char * Tcl_UtfAtIndex (CONST char * src, int index); -#endif -#ifndef Tcl_UtfCharComplete_TCL_DECLARED -#define Tcl_UtfCharComplete_TCL_DECLARED -/* 326 */ -EXTERN int Tcl_UtfCharComplete (CONST char * src, int length); -#endif -#ifndef Tcl_UtfBackslash_TCL_DECLARED -#define Tcl_UtfBackslash_TCL_DECLARED -/* 327 */ -EXTERN int Tcl_UtfBackslash (CONST char * src, int * readPtr, - char * dst); -#endif -#ifndef Tcl_UtfFindFirst_TCL_DECLARED -#define Tcl_UtfFindFirst_TCL_DECLARED -/* 328 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindFirst (CONST char * src, int ch); -#endif -#ifndef Tcl_UtfFindLast_TCL_DECLARED -#define Tcl_UtfFindLast_TCL_DECLARED -/* 329 */ -EXTERN CONST84_RETURN char * Tcl_UtfFindLast (CONST char * src, int ch); -#endif -#ifndef Tcl_UtfNext_TCL_DECLARED -#define Tcl_UtfNext_TCL_DECLARED -/* 330 */ -EXTERN CONST84_RETURN char * Tcl_UtfNext (CONST char * src); -#endif -#ifndef Tcl_UtfPrev_TCL_DECLARED -#define Tcl_UtfPrev_TCL_DECLARED -/* 331 */ -EXTERN CONST84_RETURN char * Tcl_UtfPrev (CONST char * src, - CONST char * start); -#endif -#ifndef Tcl_UtfToExternal_TCL_DECLARED -#define Tcl_UtfToExternal_TCL_DECLARED -/* 332 */ -EXTERN int Tcl_UtfToExternal (Tcl_Interp * interp, - Tcl_Encoding encoding, CONST char * src, - int srcLen, int flags, - Tcl_EncodingState * statePtr, char * dst, - int dstLen, int * srcReadPtr, - int * dstWrotePtr, int * dstCharsPtr); -#endif -#ifndef Tcl_UtfToExternalDString_TCL_DECLARED -#define Tcl_UtfToExternalDString_TCL_DECLARED -/* 333 */ -EXTERN char * Tcl_UtfToExternalDString (Tcl_Encoding encoding, - CONST char * src, int srcLen, - Tcl_DString * dsPtr); -#endif -#ifndef Tcl_UtfToLower_TCL_DECLARED -#define Tcl_UtfToLower_TCL_DECLARED -/* 334 */ -EXTERN int Tcl_UtfToLower (char * src); -#endif -#ifndef Tcl_UtfToTitle_TCL_DECLARED -#define Tcl_UtfToTitle_TCL_DECLARED -/* 335 */ -EXTERN int Tcl_UtfToTitle (char * src); -#endif -#ifndef Tcl_UtfToUniChar_TCL_DECLARED -#define Tcl_UtfToUniChar_TCL_DECLARED -/* 336 */ -EXTERN int Tcl_UtfToUniChar (CONST char * src, - Tcl_UniChar * chPtr); -#endif -#ifndef Tcl_UtfToUpper_TCL_DECLARED -#define Tcl_UtfToUpper_TCL_DECLARED -/* 337 */ -EXTERN int Tcl_UtfToUpper (char * src); -#endif -#ifndef Tcl_WriteChars_TCL_DECLARED -#define Tcl_WriteChars_TCL_DECLARED -/* 338 */ -EXTERN int Tcl_WriteChars (Tcl_Channel chan, CONST char * src, - int srcLen); -#endif -#ifndef Tcl_WriteObj_TCL_DECLARED -#define Tcl_WriteObj_TCL_DECLARED -/* 339 */ -EXTERN int Tcl_WriteObj (Tcl_Channel chan, Tcl_Obj * objPtr); -#endif -#ifndef Tcl_GetString_TCL_DECLARED -#define Tcl_GetString_TCL_DECLARED -/* 340 */ -EXTERN char * Tcl_GetString (Tcl_Obj * objPtr); -#endif -#ifndef Tcl_GetDefaultEncodingDir_TCL_DECLARED -#define Tcl_GetDefaultEncodingDir_TCL_DECLARED -/* 341 */ -EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir (void); -#endif -#ifndef Tcl_SetDefaultEncodingDir_TCL_DECLARED -#define Tcl_SetDefaultEncodingDir_TCL_DECLARED -/* 342 */ -EXTERN void Tcl_SetDefaultEncodingDir (CONST char * path); -#endif -#ifndef Tcl_AlertNotifier_TCL_DECLARED -#define Tcl_AlertNotifier_TCL_DECLARED -/* 343 */ -EXTERN void Tcl_AlertNotifier (ClientData clientData); -#endif -#ifndef Tcl_ServiceModeHook_TCL_DECLARED -#define Tcl_ServiceModeHook_TCL_DECLARED -/* 344 */ -EXTERN void Tcl_ServiceModeHook (int mode); -#endif -#ifndef Tcl_UniCharIsAlnum_TCL_DECLARED -#define Tcl_UniCharIsAlnum_TCL_DECLARED -/* 345 */ -EXTERN int Tcl_UniCharIsAlnum (int ch); -#endif -#ifndef Tcl_UniCharIsAlpha_TCL_DECLARED -#define Tcl_UniCharIsAlpha_TCL_DECLARED -/* 346 */ -EXTERN int Tcl_UniCharIsAlpha (int ch); -#endif -#ifndef Tcl_UniCharIsDigit_TCL_DECLARED -#define Tcl_UniCharIsDigit_TCL_DECLARED -/* 347 */ -EXTERN int Tcl_UniCharIsDigit (int ch); -#endif -#ifndef Tcl_UniCharIsLower_TCL_DECLARED -#define Tcl_UniCharIsLower_TCL_DECLARED -/* 348 */ -EXTERN int Tcl_UniCharIsLower (int ch); -#endif -#ifndef Tcl_UniCharIsSpace_TCL_DECLARED -#define Tcl_UniCharIsSpace_TCL_DECLARED -/* 349 */ -EXTERN int Tcl_UniCharIsSpace (int ch); -#endif -#ifndef Tcl_UniCharIsUpper_TCL_DECLARED -#define Tcl_UniCharIsUpper_TCL_DECLARED -/* 350 */ -EXTERN int Tcl_UniCharIsUpper (int ch); -#endif -#ifndef Tcl_UniCharIsWordChar_TCL_DECLARED -#define Tcl_UniCharIsWordChar_TCL_DECLARED -/* 351 */ -EXTERN int Tcl_UniCharIsWordChar (int ch); -#endif -#ifndef Tcl_UniCharLen_TCL_DECLARED -#define Tcl_UniCharLen_TCL_DECLARED -/* 352 */ -EXTERN int Tcl_UniCharLen (CONST Tcl_UniChar * uniStr); -#endif -#ifndef Tcl_UniCharNcmp_TCL_DECLARED -#define Tcl_UniCharNcmp_TCL_DECLARED -/* 353 */ -EXTERN int Tcl_UniCharNcmp (CONST Tcl_UniChar * ucs, - CONST Tcl_UniChar * uct, - unsigned long numChars); -#endif -#ifndef Tcl_UniCharToUtfDString_TCL_DECLARED -#define Tcl_UniCharToUtfDString_TCL_DECLARED -/* 354 */ -EXTERN char * Tcl_UniCharToUtfDString (CONST Tcl_UniChar * uniStr, - int uniLength, Tcl_DString * dsPtr); -#endif -#ifndef Tcl_UtfToUniCharDString_TCL_DECLARED -#define Tcl_UtfToUniCharDString_TCL_DECLARED -/* 355 */ -EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString (CONST char * src, - int length, Tcl_DString * dsPtr); -#endif -#ifndef Tcl_GetRegExpFromObj_TCL_DECLARED -#define Tcl_GetRegExpFromObj_TCL_DECLARED -/* 356 */ -EXTERN Tcl_RegExp Tcl_GetRegExpFromObj (Tcl_Interp * interp, - Tcl_Obj * patObj, int flags); -#endif -#ifndef Tcl_EvalTokens_TCL_DECLARED -#define Tcl_EvalTokens_TCL_DECLARED -/* 357 */ -EXTERN Tcl_Obj * Tcl_EvalTokens (Tcl_Interp * interp, - Tcl_Token * tokenPtr, int count); -#endif -#ifndef Tcl_FreeParse_TCL_DECLARED -#define Tcl_FreeParse_TCL_DECLARED -/* 358 */ -EXTERN void Tcl_FreeParse (Tcl_Parse * parsePtr); -#endif -#ifndef Tcl_LogCommandInfo_TCL_DECLARED -#define Tcl_LogCommandInfo_TCL_DECLARED -/* 359 */ -EXTERN void Tcl_LogCommandInfo (Tcl_Interp * interp, - CONST char * script, CONST char * command, - int length); -#endif -#ifndef Tcl_ParseBraces_TCL_DECLARED -#define Tcl_ParseBraces_TCL_DECLARED -/* 360 */ -EXTERN int Tcl_ParseBraces (Tcl_Interp * interp, - CONST char * start, int numBytes, - Tcl_Parse * parsePtr, int append, - CONST84 char ** termPtr); -#endif -#ifndef Tcl_ParseCommand_TCL_DECLARED -#define Tcl_ParseCommand_TCL_DECLARED -/* 361 */ -EXTERN int Tcl_ParseCommand (Tcl_Interp * interp, - CONST char * start, int numBytes, int nested, - Tcl_Parse * parsePtr); -#endif -#ifndef Tcl_ParseExpr_TCL_DECLARED -#define Tcl_ParseExpr_TCL_DECLARED -/* 362 */ -EXTERN int Tcl_ParseExpr (Tcl_Interp * interp, - CONST char * start, int numBytes, - Tcl_Parse * parsePtr); -#endif -#ifndef Tcl_ParseQuotedString_TCL_DECLARED -#define Tcl_ParseQuotedString_TCL_DECLARED -/* 363 */ -EXTERN int Tcl_ParseQuotedString (Tcl_Interp * interp, - CONST char * start, int numBytes, - Tcl_Parse * parsePtr, int append, - CONST84 char ** termPtr); -#endif -#ifndef Tcl_ParseVarName_TCL_DECLARED -#define Tcl_ParseVarName_TCL_DECLARED -/* 364 */ -EXTERN int Tcl_ParseVarName (Tcl_Interp * interp, - CONST char * start, int numBytes, - Tcl_Parse * parsePtr, int append); -#endif -#ifndef Tcl_GetCwd_TCL_DECLARED -#define Tcl_GetCwd_TCL_DECLARED -/* 365 */ -EXTERN char * Tcl_GetCwd (Tcl_Interp * interp, - Tcl_DString * cwdPtr); -#endif -#ifndef Tcl_Chdir_TCL_DECLARED -#define Tcl_Chdir_TCL_DECLARED -/* 366 */ -EXTERN int Tcl_Chdir (CONST char * dirName); -#endif -#ifndef Tcl_Access_TCL_DECLARED -#define Tcl_Access_TCL_DECLARED -/* 367 */ -EXTERN int Tcl_Access (CONST char * path, int mode); -#endif -#ifndef Tcl_Stat_TCL_DECLARED -#define Tcl_Stat_TCL_DECLARED -/* 368 */ -EXTERN int Tcl_Stat (CONST char * path, struct stat * bufPtr); -#endif -#ifndef Tcl_UtfNcmp_TCL_DECLARED -#define Tcl_UtfNcmp_TCL_DECLARED -/* 369 */ -EXTERN int Tcl_UtfNcmp (CONST char * s1, CONST char * s2, - unsigned long n); -#endif -#ifndef Tcl_UtfNcasecmp_TCL_DECLARED -#define Tcl_UtfNcasecmp_TCL_DECLARED -/* 370 */ -EXTERN int Tcl_UtfNcasecmp (CONST char * s1, CONST char * s2, - unsigned long n); -#endif -#ifndef Tcl_StringCaseMatch_TCL_DECLARED -#define Tcl_StringCaseMatch_TCL_DECLARED -/* 371 */ -EXTERN int Tcl_StringCaseMatch (CONST char * str, - CONST char * pattern, int nocase); -#endif -#ifndef Tcl_UniCharIsControl_TCL_DECLARED -#define Tcl_UniCharIsControl_TCL_DECLARED -/* 372 */ -EXTERN int Tcl_UniCharIsControl (int ch); -#endif -#ifndef Tcl_UniCharIsGraph_TCL_DECLARED -#define Tcl_UniCharIsGraph_TCL_DECLARED -/* 373 */ -EXTERN int Tcl_UniCharIsGraph (int ch); -#endif -#ifndef Tcl_UniCharIsPrint_TCL_DECLARED -#define Tcl_UniCharIsPrint_TCL_DECLARED -/* 374 */ -EXTERN int Tcl_UniCharIsPrint (int ch); -#endif -#ifndef Tcl_UniCharIsPunct_TCL_DECLARED -#define Tcl_UniCharIsPunct_TCL_DECLARED -/* 375 */ -EXTERN int Tcl_UniCharIsPunct (int ch); -#endif -#ifndef Tcl_RegExpExecObj_TCL_DECLARED -#define Tcl_RegExpExecObj_TCL_DECLARED -/* 376 */ -EXTERN int Tcl_RegExpExecObj (Tcl_Interp * interp, - Tcl_RegExp regexp, Tcl_Obj * textObj, - int offset, int nmatches, int flags); -#endif -#ifndef Tcl_RegExpGetInfo_TCL_DECLARED -#define Tcl_RegExpGetInfo_TCL_DECLARED -/* 377 */ -EXTERN void Tcl_RegExpGetInfo (Tcl_RegExp regexp, - Tcl_RegExpInfo * infoPtr); -#endif -#ifndef Tcl_NewUnicodeObj_TCL_DECLARED -#define Tcl_NewUnicodeObj_TCL_DECLARED -/* 378 */ -EXTERN Tcl_Obj * Tcl_NewUnicodeObj (CONST Tcl_UniChar * unicode, - int numChars); -#endif -#ifndef Tcl_SetUnicodeObj_TCL_DECLARED -#define Tcl_SetUnicodeObj_TCL_DECLARED -/* 379 */ -EXTERN void Tcl_SetUnicodeObj (Tcl_Obj * objPtr, - CONST Tcl_UniChar * unicode, int numChars); -#endif -#ifndef Tcl_GetCharLength_TCL_DECLARED -#define Tcl_GetCharLength_TCL_DECLARED -/* 380 */ -EXTERN int Tcl_GetCharLength (Tcl_Obj * objPtr); -#endif -#ifndef Tcl_GetUniChar_TCL_DECLARED -#define Tcl_GetUniChar_TCL_DECLARED -/* 381 */ -EXTERN Tcl_UniChar Tcl_GetUniChar (Tcl_Obj * objPtr, int index); -#endif -#ifndef Tcl_GetUnicode_TCL_DECLARED -#define Tcl_GetUnicode_TCL_DECLARED -/* 382 */ -EXTERN Tcl_UniChar * Tcl_GetUnicode (Tcl_Obj * objPtr); -#endif -#ifndef Tcl_GetRange_TCL_DECLARED -#define Tcl_GetRange_TCL_DECLARED -/* 383 */ -EXTERN Tcl_Obj * Tcl_GetRange (Tcl_Obj * objPtr, int first, int last); -#endif -#ifndef Tcl_AppendUnicodeToObj_TCL_DECLARED -#define Tcl_AppendUnicodeToObj_TCL_DECLARED -/* 384 */ -EXTERN void Tcl_AppendUnicodeToObj (Tcl_Obj * objPtr, - CONST Tcl_UniChar * unicode, int length); -#endif -#ifndef Tcl_RegExpMatchObj_TCL_DECLARED -#define Tcl_RegExpMatchObj_TCL_DECLARED -/* 385 */ -EXTERN int Tcl_RegExpMatchObj (Tcl_Interp * interp, - Tcl_Obj * textObj, Tcl_Obj * patternObj); -#endif -#ifndef Tcl_SetNotifier_TCL_DECLARED -#define Tcl_SetNotifier_TCL_DECLARED -/* 386 */ -EXTERN void Tcl_SetNotifier (Tcl_NotifierProcs * notifierProcPtr); -#endif -#ifndef Tcl_GetAllocMutex_TCL_DECLARED -#define Tcl_GetAllocMutex_TCL_DECLARED -/* 387 */ -EXTERN Tcl_Mutex * Tcl_GetAllocMutex (void); -#endif -#ifndef Tcl_GetChannelNames_TCL_DECLARED -#define Tcl_GetChannelNames_TCL_DECLARED -/* 388 */ -EXTERN int Tcl_GetChannelNames (Tcl_Interp * interp); -#endif -#ifndef Tcl_GetChannelNamesEx_TCL_DECLARED -#define Tcl_GetChannelNamesEx_TCL_DECLARED -/* 389 */ -EXTERN int Tcl_GetChannelNamesEx (Tcl_Interp * interp, - CONST char * pattern); -#endif -#ifndef Tcl_ProcObjCmd_TCL_DECLARED -#define Tcl_ProcObjCmd_TCL_DECLARED -/* 390 */ -EXTERN int Tcl_ProcObjCmd (ClientData clientData, - Tcl_Interp * interp, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_ConditionFinalize_TCL_DECLARED -#define Tcl_ConditionFinalize_TCL_DECLARED -/* 391 */ -EXTERN void Tcl_ConditionFinalize (Tcl_Condition * condPtr); -#endif -#ifndef Tcl_MutexFinalize_TCL_DECLARED -#define Tcl_MutexFinalize_TCL_DECLARED -/* 392 */ -EXTERN void Tcl_MutexFinalize (Tcl_Mutex * mutex); -#endif -#ifndef Tcl_CreateThread_TCL_DECLARED -#define Tcl_CreateThread_TCL_DECLARED -/* 393 */ -EXTERN int Tcl_CreateThread (Tcl_ThreadId * idPtr, - Tcl_ThreadCreateProc proc, - ClientData clientData, int stackSize, - int flags); -#endif -#ifndef Tcl_ReadRaw_TCL_DECLARED -#define Tcl_ReadRaw_TCL_DECLARED -/* 394 */ -EXTERN int Tcl_ReadRaw (Tcl_Channel chan, char * dst, - int bytesToRead); -#endif -#ifndef Tcl_WriteRaw_TCL_DECLARED -#define Tcl_WriteRaw_TCL_DECLARED -/* 395 */ -EXTERN int Tcl_WriteRaw (Tcl_Channel chan, CONST char * src, - int srcLen); -#endif -#ifndef Tcl_GetTopChannel_TCL_DECLARED -#define Tcl_GetTopChannel_TCL_DECLARED -/* 396 */ -EXTERN Tcl_Channel Tcl_GetTopChannel (Tcl_Channel chan); -#endif -#ifndef Tcl_ChannelBuffered_TCL_DECLARED -#define Tcl_ChannelBuffered_TCL_DECLARED -/* 397 */ -EXTERN int Tcl_ChannelBuffered (Tcl_Channel chan); -#endif -#ifndef Tcl_ChannelName_TCL_DECLARED -#define Tcl_ChannelName_TCL_DECLARED -/* 398 */ -EXTERN CONST84_RETURN char * Tcl_ChannelName ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelVersion_TCL_DECLARED -#define Tcl_ChannelVersion_TCL_DECLARED -/* 399 */ -EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelBlockModeProc_TCL_DECLARED -#define Tcl_ChannelBlockModeProc_TCL_DECLARED -/* 400 */ -EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelCloseProc_TCL_DECLARED -#define Tcl_ChannelCloseProc_TCL_DECLARED -/* 401 */ -EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelClose2Proc_TCL_DECLARED -#define Tcl_ChannelClose2Proc_TCL_DECLARED -/* 402 */ -EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelInputProc_TCL_DECLARED -#define Tcl_ChannelInputProc_TCL_DECLARED -/* 403 */ -EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelOutputProc_TCL_DECLARED -#define Tcl_ChannelOutputProc_TCL_DECLARED -/* 404 */ -EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelSeekProc_TCL_DECLARED -#define Tcl_ChannelSeekProc_TCL_DECLARED -/* 405 */ -EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelSetOptionProc_TCL_DECLARED -#define Tcl_ChannelSetOptionProc_TCL_DECLARED -/* 406 */ -EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelGetOptionProc_TCL_DECLARED -#define Tcl_ChannelGetOptionProc_TCL_DECLARED -/* 407 */ -EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelWatchProc_TCL_DECLARED -#define Tcl_ChannelWatchProc_TCL_DECLARED -/* 408 */ -EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelGetHandleProc_TCL_DECLARED -#define Tcl_ChannelGetHandleProc_TCL_DECLARED -/* 409 */ -EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelFlushProc_TCL_DECLARED -#define Tcl_ChannelFlushProc_TCL_DECLARED -/* 410 */ -EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_ChannelHandlerProc_TCL_DECLARED -#define Tcl_ChannelHandlerProc_TCL_DECLARED -/* 411 */ -EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_JoinThread_TCL_DECLARED -#define Tcl_JoinThread_TCL_DECLARED -/* 412 */ -EXTERN int Tcl_JoinThread (Tcl_ThreadId threadId, int* result); -#endif -#ifndef Tcl_IsChannelShared_TCL_DECLARED -#define Tcl_IsChannelShared_TCL_DECLARED -/* 413 */ -EXTERN int Tcl_IsChannelShared (Tcl_Channel channel); -#endif -#ifndef Tcl_IsChannelRegistered_TCL_DECLARED -#define Tcl_IsChannelRegistered_TCL_DECLARED -/* 414 */ -EXTERN int Tcl_IsChannelRegistered (Tcl_Interp* interp, - Tcl_Channel channel); -#endif -#ifndef Tcl_CutChannel_TCL_DECLARED -#define Tcl_CutChannel_TCL_DECLARED -/* 415 */ -EXTERN void Tcl_CutChannel (Tcl_Channel channel); -#endif -#ifndef Tcl_SpliceChannel_TCL_DECLARED -#define Tcl_SpliceChannel_TCL_DECLARED -/* 416 */ -EXTERN void Tcl_SpliceChannel (Tcl_Channel channel); -#endif -#ifndef Tcl_ClearChannelHandlers_TCL_DECLARED -#define Tcl_ClearChannelHandlers_TCL_DECLARED -/* 417 */ -EXTERN void Tcl_ClearChannelHandlers (Tcl_Channel channel); -#endif -#ifndef Tcl_IsChannelExisting_TCL_DECLARED -#define Tcl_IsChannelExisting_TCL_DECLARED -/* 418 */ -EXTERN int Tcl_IsChannelExisting (CONST char* channelName); -#endif -#ifndef Tcl_UniCharNcasecmp_TCL_DECLARED -#define Tcl_UniCharNcasecmp_TCL_DECLARED -/* 419 */ -EXTERN int Tcl_UniCharNcasecmp (CONST Tcl_UniChar * ucs, - CONST Tcl_UniChar * uct, - unsigned long numChars); -#endif -#ifndef Tcl_UniCharCaseMatch_TCL_DECLARED -#define Tcl_UniCharCaseMatch_TCL_DECLARED -/* 420 */ -EXTERN int Tcl_UniCharCaseMatch (CONST Tcl_UniChar * uniStr, - CONST Tcl_UniChar * uniPattern, int nocase); -#endif -#ifndef Tcl_FindHashEntry_TCL_DECLARED -#define Tcl_FindHashEntry_TCL_DECLARED -/* 421 */ -EXTERN Tcl_HashEntry * Tcl_FindHashEntry (Tcl_HashTable * tablePtr, - CONST char * key); -#endif -#ifndef Tcl_CreateHashEntry_TCL_DECLARED -#define Tcl_CreateHashEntry_TCL_DECLARED -/* 422 */ -EXTERN Tcl_HashEntry * Tcl_CreateHashEntry (Tcl_HashTable * tablePtr, - CONST char * key, int * newPtr); -#endif -#ifndef Tcl_InitCustomHashTable_TCL_DECLARED -#define Tcl_InitCustomHashTable_TCL_DECLARED -/* 423 */ -EXTERN void Tcl_InitCustomHashTable (Tcl_HashTable * tablePtr, - int keyType, Tcl_HashKeyType * typePtr); -#endif -#ifndef Tcl_InitObjHashTable_TCL_DECLARED -#define Tcl_InitObjHashTable_TCL_DECLARED -/* 424 */ -EXTERN void Tcl_InitObjHashTable (Tcl_HashTable * tablePtr); -#endif -#ifndef Tcl_CommandTraceInfo_TCL_DECLARED -#define Tcl_CommandTraceInfo_TCL_DECLARED -/* 425 */ -EXTERN ClientData Tcl_CommandTraceInfo (Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_CommandTraceProc * procPtr, - ClientData prevClientData); -#endif -#ifndef Tcl_TraceCommand_TCL_DECLARED -#define Tcl_TraceCommand_TCL_DECLARED -/* 426 */ -EXTERN int Tcl_TraceCommand (Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_CommandTraceProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_UntraceCommand_TCL_DECLARED -#define Tcl_UntraceCommand_TCL_DECLARED -/* 427 */ -EXTERN void Tcl_UntraceCommand (Tcl_Interp * interp, - CONST char * varName, int flags, - Tcl_CommandTraceProc * proc, - ClientData clientData); -#endif -#ifndef Tcl_AttemptAlloc_TCL_DECLARED -#define Tcl_AttemptAlloc_TCL_DECLARED -/* 428 */ -EXTERN char * Tcl_AttemptAlloc (unsigned int size); -#endif -#ifndef Tcl_AttemptDbCkalloc_TCL_DECLARED -#define Tcl_AttemptDbCkalloc_TCL_DECLARED -/* 429 */ -EXTERN char * Tcl_AttemptDbCkalloc (unsigned int size, - CONST char * file, int line); -#endif -#ifndef Tcl_AttemptRealloc_TCL_DECLARED -#define Tcl_AttemptRealloc_TCL_DECLARED -/* 430 */ -EXTERN char * Tcl_AttemptRealloc (char * ptr, unsigned int size); -#endif -#ifndef Tcl_AttemptDbCkrealloc_TCL_DECLARED -#define Tcl_AttemptDbCkrealloc_TCL_DECLARED -/* 431 */ -EXTERN char * Tcl_AttemptDbCkrealloc (char * ptr, - unsigned int size, CONST char * file, - int line); -#endif -#ifndef Tcl_AttemptSetObjLength_TCL_DECLARED -#define Tcl_AttemptSetObjLength_TCL_DECLARED -/* 432 */ -EXTERN int Tcl_AttemptSetObjLength (Tcl_Obj * objPtr, - int length); -#endif -#ifndef Tcl_GetChannelThread_TCL_DECLARED -#define Tcl_GetChannelThread_TCL_DECLARED -/* 433 */ -EXTERN Tcl_ThreadId Tcl_GetChannelThread (Tcl_Channel channel); -#endif -#ifndef Tcl_GetUnicodeFromObj_TCL_DECLARED -#define Tcl_GetUnicodeFromObj_TCL_DECLARED -/* 434 */ -EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj (Tcl_Obj * objPtr, - int * lengthPtr); -#endif -#ifndef Tcl_GetMathFuncInfo_TCL_DECLARED -#define Tcl_GetMathFuncInfo_TCL_DECLARED -/* 435 */ -EXTERN int Tcl_GetMathFuncInfo (Tcl_Interp * interp, - CONST char * name, int * numArgsPtr, - Tcl_ValueType ** argTypesPtr, - Tcl_MathProc ** procPtr, - ClientData * clientDataPtr); -#endif -#ifndef Tcl_ListMathFuncs_TCL_DECLARED -#define Tcl_ListMathFuncs_TCL_DECLARED -/* 436 */ -EXTERN Tcl_Obj * Tcl_ListMathFuncs (Tcl_Interp * interp, - CONST char * pattern); -#endif -#ifndef Tcl_SubstObj_TCL_DECLARED -#define Tcl_SubstObj_TCL_DECLARED -/* 437 */ -EXTERN Tcl_Obj * Tcl_SubstObj (Tcl_Interp * interp, Tcl_Obj * objPtr, - int flags); -#endif -#ifndef Tcl_DetachChannel_TCL_DECLARED -#define Tcl_DetachChannel_TCL_DECLARED -/* 438 */ -EXTERN int Tcl_DetachChannel (Tcl_Interp* interp, - Tcl_Channel channel); -#endif -#ifndef Tcl_IsStandardChannel_TCL_DECLARED -#define Tcl_IsStandardChannel_TCL_DECLARED -/* 439 */ -EXTERN int Tcl_IsStandardChannel (Tcl_Channel channel); -#endif -#ifndef Tcl_FSCopyFile_TCL_DECLARED -#define Tcl_FSCopyFile_TCL_DECLARED -/* 440 */ -EXTERN int Tcl_FSCopyFile (Tcl_Obj * srcPathPtr, - Tcl_Obj * destPathPtr); -#endif -#ifndef Tcl_FSCopyDirectory_TCL_DECLARED -#define Tcl_FSCopyDirectory_TCL_DECLARED -/* 441 */ -EXTERN int Tcl_FSCopyDirectory (Tcl_Obj * srcPathPtr, - Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr); -#endif -#ifndef Tcl_FSCreateDirectory_TCL_DECLARED -#define Tcl_FSCreateDirectory_TCL_DECLARED -/* 442 */ -EXTERN int Tcl_FSCreateDirectory (Tcl_Obj * pathPtr); -#endif -#ifndef Tcl_FSDeleteFile_TCL_DECLARED -#define Tcl_FSDeleteFile_TCL_DECLARED -/* 443 */ -EXTERN int Tcl_FSDeleteFile (Tcl_Obj * pathPtr); -#endif -#ifndef Tcl_FSLoadFile_TCL_DECLARED -#define Tcl_FSLoadFile_TCL_DECLARED -/* 444 */ -EXTERN int Tcl_FSLoadFile (Tcl_Interp * interp, - Tcl_Obj * pathPtr, CONST char * sym1, - CONST char * sym2, - Tcl_PackageInitProc ** proc1Ptr, - Tcl_PackageInitProc ** proc2Ptr, - Tcl_LoadHandle * handlePtr, - Tcl_FSUnloadFileProc ** unloadProcPtr); -#endif -#ifndef Tcl_FSMatchInDirectory_TCL_DECLARED -#define Tcl_FSMatchInDirectory_TCL_DECLARED -/* 445 */ -EXTERN int Tcl_FSMatchInDirectory (Tcl_Interp * interp, - Tcl_Obj * result, Tcl_Obj * pathPtr, - CONST char * pattern, - Tcl_GlobTypeData * types); -#endif -#ifndef Tcl_FSLink_TCL_DECLARED -#define Tcl_FSLink_TCL_DECLARED -/* 446 */ -EXTERN Tcl_Obj * Tcl_FSLink (Tcl_Obj * pathPtr, Tcl_Obj * toPtr, - int linkAction); -#endif -#ifndef Tcl_FSRemoveDirectory_TCL_DECLARED -#define Tcl_FSRemoveDirectory_TCL_DECLARED -/* 447 */ -EXTERN int Tcl_FSRemoveDirectory (Tcl_Obj * pathPtr, - int recursive, Tcl_Obj ** errorPtr); -#endif -#ifndef Tcl_FSRenameFile_TCL_DECLARED -#define Tcl_FSRenameFile_TCL_DECLARED -/* 448 */ -EXTERN int Tcl_FSRenameFile (Tcl_Obj * srcPathPtr, - Tcl_Obj * destPathPtr); -#endif -#ifndef Tcl_FSLstat_TCL_DECLARED -#define Tcl_FSLstat_TCL_DECLARED -/* 449 */ -EXTERN int Tcl_FSLstat (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); -#endif -#ifndef Tcl_FSUtime_TCL_DECLARED -#define Tcl_FSUtime_TCL_DECLARED -/* 450 */ -EXTERN int Tcl_FSUtime (Tcl_Obj * pathPtr, - struct utimbuf * tval); -#endif -#ifndef Tcl_FSFileAttrsGet_TCL_DECLARED -#define Tcl_FSFileAttrsGet_TCL_DECLARED -/* 451 */ -EXTERN int Tcl_FSFileAttrsGet (Tcl_Interp * interp, int index, - Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef); -#endif -#ifndef Tcl_FSFileAttrsSet_TCL_DECLARED -#define Tcl_FSFileAttrsSet_TCL_DECLARED -/* 452 */ -EXTERN int Tcl_FSFileAttrsSet (Tcl_Interp * interp, int index, - Tcl_Obj * pathPtr, Tcl_Obj * objPtr); -#endif -#ifndef Tcl_FSFileAttrStrings_TCL_DECLARED -#define Tcl_FSFileAttrStrings_TCL_DECLARED -/* 453 */ -EXTERN CONST char ** Tcl_FSFileAttrStrings (Tcl_Obj * pathPtr, - Tcl_Obj ** objPtrRef); -#endif -#ifndef Tcl_FSStat_TCL_DECLARED -#define Tcl_FSStat_TCL_DECLARED -/* 454 */ -EXTERN int Tcl_FSStat (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); -#endif -#ifndef Tcl_FSAccess_TCL_DECLARED -#define Tcl_FSAccess_TCL_DECLARED -/* 455 */ -EXTERN int Tcl_FSAccess (Tcl_Obj * pathPtr, int mode); -#endif -#ifndef Tcl_FSOpenFileChannel_TCL_DECLARED -#define Tcl_FSOpenFileChannel_TCL_DECLARED -/* 456 */ -EXTERN Tcl_Channel Tcl_FSOpenFileChannel (Tcl_Interp * interp, - Tcl_Obj * pathPtr, CONST char * modeString, - int permissions); -#endif -#ifndef Tcl_FSGetCwd_TCL_DECLARED -#define Tcl_FSGetCwd_TCL_DECLARED -/* 457 */ -EXTERN Tcl_Obj* Tcl_FSGetCwd (Tcl_Interp * interp); -#endif -#ifndef Tcl_FSChdir_TCL_DECLARED -#define Tcl_FSChdir_TCL_DECLARED -/* 458 */ -EXTERN int Tcl_FSChdir (Tcl_Obj * pathPtr); -#endif -#ifndef Tcl_FSConvertToPathType_TCL_DECLARED -#define Tcl_FSConvertToPathType_TCL_DECLARED -/* 459 */ -EXTERN int Tcl_FSConvertToPathType (Tcl_Interp * interp, - Tcl_Obj * pathPtr); -#endif -#ifndef Tcl_FSJoinPath_TCL_DECLARED -#define Tcl_FSJoinPath_TCL_DECLARED -/* 460 */ -EXTERN Tcl_Obj* Tcl_FSJoinPath (Tcl_Obj * listObj, int elements); -#endif -#ifndef Tcl_FSSplitPath_TCL_DECLARED -#define Tcl_FSSplitPath_TCL_DECLARED -/* 461 */ -EXTERN Tcl_Obj* Tcl_FSSplitPath (Tcl_Obj* pathPtr, int * lenPtr); -#endif -#ifndef Tcl_FSEqualPaths_TCL_DECLARED -#define Tcl_FSEqualPaths_TCL_DECLARED -/* 462 */ -EXTERN int Tcl_FSEqualPaths (Tcl_Obj* firstPtr, - Tcl_Obj* secondPtr); -#endif -#ifndef Tcl_FSGetNormalizedPath_TCL_DECLARED -#define Tcl_FSGetNormalizedPath_TCL_DECLARED -/* 463 */ -EXTERN Tcl_Obj* Tcl_FSGetNormalizedPath (Tcl_Interp * interp, - Tcl_Obj* pathPtr); -#endif -#ifndef Tcl_FSJoinToPath_TCL_DECLARED -#define Tcl_FSJoinToPath_TCL_DECLARED -/* 464 */ -EXTERN Tcl_Obj* Tcl_FSJoinToPath (Tcl_Obj * pathPtr, int objc, - Tcl_Obj *CONST objv[]); -#endif -#ifndef Tcl_FSGetInternalRep_TCL_DECLARED -#define Tcl_FSGetInternalRep_TCL_DECLARED -/* 465 */ -EXTERN ClientData Tcl_FSGetInternalRep (Tcl_Obj* pathPtr, - Tcl_Filesystem * fsPtr); -#endif -#ifndef Tcl_FSGetTranslatedPath_TCL_DECLARED -#define Tcl_FSGetTranslatedPath_TCL_DECLARED -/* 466 */ -EXTERN Tcl_Obj* Tcl_FSGetTranslatedPath (Tcl_Interp * interp, - Tcl_Obj* pathPtr); -#endif -#ifndef Tcl_FSEvalFile_TCL_DECLARED -#define Tcl_FSEvalFile_TCL_DECLARED -/* 467 */ -EXTERN int Tcl_FSEvalFile (Tcl_Interp * interp, - Tcl_Obj * fileName); -#endif -#ifndef Tcl_FSNewNativePath_TCL_DECLARED -#define Tcl_FSNewNativePath_TCL_DECLARED -/* 468 */ -EXTERN Tcl_Obj* Tcl_FSNewNativePath (Tcl_Filesystem* fromFilesystem, - ClientData clientData); -#endif -#ifndef Tcl_FSGetNativePath_TCL_DECLARED -#define Tcl_FSGetNativePath_TCL_DECLARED -/* 469 */ -EXTERN CONST char* Tcl_FSGetNativePath (Tcl_Obj* pathPtr); -#endif -#ifndef Tcl_FSFileSystemInfo_TCL_DECLARED -#define Tcl_FSFileSystemInfo_TCL_DECLARED -/* 470 */ -EXTERN Tcl_Obj* Tcl_FSFileSystemInfo (Tcl_Obj* pathPtr); -#endif -#ifndef Tcl_FSPathSeparator_TCL_DECLARED -#define Tcl_FSPathSeparator_TCL_DECLARED -/* 471 */ -EXTERN Tcl_Obj* Tcl_FSPathSeparator (Tcl_Obj* pathPtr); -#endif -#ifndef Tcl_FSListVolumes_TCL_DECLARED -#define Tcl_FSListVolumes_TCL_DECLARED -/* 472 */ -EXTERN Tcl_Obj* Tcl_FSListVolumes (void); -#endif -#ifndef Tcl_FSRegister_TCL_DECLARED -#define Tcl_FSRegister_TCL_DECLARED -/* 473 */ -EXTERN int Tcl_FSRegister (ClientData clientData, - Tcl_Filesystem * fsPtr); -#endif -#ifndef Tcl_FSUnregister_TCL_DECLARED -#define Tcl_FSUnregister_TCL_DECLARED -/* 474 */ -EXTERN int Tcl_FSUnregister (Tcl_Filesystem * fsPtr); -#endif -#ifndef Tcl_FSData_TCL_DECLARED -#define Tcl_FSData_TCL_DECLARED -/* 475 */ -EXTERN ClientData Tcl_FSData (Tcl_Filesystem * fsPtr); -#endif -#ifndef Tcl_FSGetTranslatedStringPath_TCL_DECLARED -#define Tcl_FSGetTranslatedStringPath_TCL_DECLARED -/* 476 */ -EXTERN CONST char* Tcl_FSGetTranslatedStringPath (Tcl_Interp * interp, - Tcl_Obj* pathPtr); -#endif -#ifndef Tcl_FSGetFileSystemForPath_TCL_DECLARED -#define Tcl_FSGetFileSystemForPath_TCL_DECLARED -/* 477 */ -EXTERN Tcl_Filesystem* Tcl_FSGetFileSystemForPath (Tcl_Obj* pathPtr); -#endif -#ifndef Tcl_FSGetPathType_TCL_DECLARED -#define Tcl_FSGetPathType_TCL_DECLARED -/* 478 */ -EXTERN Tcl_PathType Tcl_FSGetPathType (Tcl_Obj * pathPtr); -#endif -#ifndef Tcl_OutputBuffered_TCL_DECLARED -#define Tcl_OutputBuffered_TCL_DECLARED -/* 479 */ -EXTERN int Tcl_OutputBuffered (Tcl_Channel chan); -#endif -#ifndef Tcl_FSMountsChanged_TCL_DECLARED -#define Tcl_FSMountsChanged_TCL_DECLARED -/* 480 */ -EXTERN void Tcl_FSMountsChanged (Tcl_Filesystem * fsPtr); -#endif -#ifndef Tcl_EvalTokensStandard_TCL_DECLARED -#define Tcl_EvalTokensStandard_TCL_DECLARED -/* 481 */ -EXTERN int Tcl_EvalTokensStandard (Tcl_Interp * interp, - Tcl_Token * tokenPtr, int count); -#endif -#ifndef Tcl_GetTime_TCL_DECLARED -#define Tcl_GetTime_TCL_DECLARED -/* 482 */ -EXTERN void Tcl_GetTime (Tcl_Time* timeBuf); -#endif -#ifndef Tcl_CreateObjTrace_TCL_DECLARED -#define Tcl_CreateObjTrace_TCL_DECLARED -/* 483 */ -EXTERN Tcl_Trace Tcl_CreateObjTrace (Tcl_Interp* interp, int level, - int flags, Tcl_CmdObjTraceProc* objProc, - ClientData clientData, - Tcl_CmdObjTraceDeleteProc* delProc); -#endif -#ifndef Tcl_GetCommandInfoFromToken_TCL_DECLARED -#define Tcl_GetCommandInfoFromToken_TCL_DECLARED -/* 484 */ -EXTERN int Tcl_GetCommandInfoFromToken (Tcl_Command token, - Tcl_CmdInfo* infoPtr); -#endif -#ifndef Tcl_SetCommandInfoFromToken_TCL_DECLARED -#define Tcl_SetCommandInfoFromToken_TCL_DECLARED -/* 485 */ -EXTERN int Tcl_SetCommandInfoFromToken (Tcl_Command token, - CONST Tcl_CmdInfo* infoPtr); -#endif -#ifndef Tcl_DbNewWideIntObj_TCL_DECLARED -#define Tcl_DbNewWideIntObj_TCL_DECLARED -/* 486 */ -EXTERN Tcl_Obj * Tcl_DbNewWideIntObj (Tcl_WideInt wideValue, - CONST char * file, int line); -#endif -#ifndef Tcl_GetWideIntFromObj_TCL_DECLARED -#define Tcl_GetWideIntFromObj_TCL_DECLARED -/* 487 */ -EXTERN int Tcl_GetWideIntFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, Tcl_WideInt * widePtr); -#endif -#ifndef Tcl_NewWideIntObj_TCL_DECLARED -#define Tcl_NewWideIntObj_TCL_DECLARED -/* 488 */ -EXTERN Tcl_Obj * Tcl_NewWideIntObj (Tcl_WideInt wideValue); -#endif -#ifndef Tcl_SetWideIntObj_TCL_DECLARED -#define Tcl_SetWideIntObj_TCL_DECLARED -/* 489 */ -EXTERN void Tcl_SetWideIntObj (Tcl_Obj * objPtr, - Tcl_WideInt wideValue); -#endif -#ifndef Tcl_AllocStatBuf_TCL_DECLARED -#define Tcl_AllocStatBuf_TCL_DECLARED -/* 490 */ -EXTERN Tcl_StatBuf * Tcl_AllocStatBuf (void); -#endif -#ifndef Tcl_Seek_TCL_DECLARED -#define Tcl_Seek_TCL_DECLARED -/* 491 */ -EXTERN Tcl_WideInt Tcl_Seek (Tcl_Channel chan, Tcl_WideInt offset, - int mode); -#endif -#ifndef Tcl_Tell_TCL_DECLARED -#define Tcl_Tell_TCL_DECLARED -/* 492 */ -EXTERN Tcl_WideInt Tcl_Tell (Tcl_Channel chan); -#endif -#ifndef Tcl_ChannelWideSeekProc_TCL_DECLARED -#define Tcl_ChannelWideSeekProc_TCL_DECLARED -/* 493 */ -EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_DictObjPut_TCL_DECLARED -#define Tcl_DictObjPut_TCL_DECLARED -/* 494 */ -EXTERN int Tcl_DictObjPut (Tcl_Interp * interp, - Tcl_Obj * dictPtr, Tcl_Obj * keyPtr, - Tcl_Obj * valuePtr); -#endif -#ifndef Tcl_DictObjGet_TCL_DECLARED -#define Tcl_DictObjGet_TCL_DECLARED -/* 495 */ -EXTERN int Tcl_DictObjGet (Tcl_Interp * interp, - Tcl_Obj * dictPtr, Tcl_Obj * keyPtr, - Tcl_Obj ** valuePtrPtr); -#endif -#ifndef Tcl_DictObjRemove_TCL_DECLARED -#define Tcl_DictObjRemove_TCL_DECLARED -/* 496 */ -EXTERN int Tcl_DictObjRemove (Tcl_Interp * interp, - Tcl_Obj * dictPtr, Tcl_Obj * keyPtr); -#endif -#ifndef Tcl_DictObjSize_TCL_DECLARED -#define Tcl_DictObjSize_TCL_DECLARED -/* 497 */ -EXTERN int Tcl_DictObjSize (Tcl_Interp * interp, - Tcl_Obj * dictPtr, int * sizePtr); -#endif -#ifndef Tcl_DictObjFirst_TCL_DECLARED -#define Tcl_DictObjFirst_TCL_DECLARED -/* 498 */ -EXTERN int Tcl_DictObjFirst (Tcl_Interp * interp, - Tcl_Obj * dictPtr, - Tcl_DictSearch * searchPtr, - Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr, - int * donePtr); -#endif -#ifndef Tcl_DictObjNext_TCL_DECLARED -#define Tcl_DictObjNext_TCL_DECLARED -/* 499 */ -EXTERN void Tcl_DictObjNext (Tcl_DictSearch * searchPtr, - Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr, - int * donePtr); -#endif -#ifndef Tcl_DictObjDone_TCL_DECLARED -#define Tcl_DictObjDone_TCL_DECLARED -/* 500 */ -EXTERN void Tcl_DictObjDone (Tcl_DictSearch * searchPtr); -#endif -#ifndef Tcl_DictObjPutKeyList_TCL_DECLARED -#define Tcl_DictObjPutKeyList_TCL_DECLARED -/* 501 */ -EXTERN int Tcl_DictObjPutKeyList (Tcl_Interp * interp, - Tcl_Obj * dictPtr, int keyc, - Tcl_Obj *CONST * keyv, Tcl_Obj * valuePtr); -#endif -#ifndef Tcl_DictObjRemoveKeyList_TCL_DECLARED -#define Tcl_DictObjRemoveKeyList_TCL_DECLARED -/* 502 */ -EXTERN int Tcl_DictObjRemoveKeyList (Tcl_Interp * interp, - Tcl_Obj * dictPtr, int keyc, - Tcl_Obj *CONST * keyv); -#endif -#ifndef Tcl_NewDictObj_TCL_DECLARED -#define Tcl_NewDictObj_TCL_DECLARED -/* 503 */ -EXTERN Tcl_Obj * Tcl_NewDictObj (void); -#endif -#ifndef Tcl_DbNewDictObj_TCL_DECLARED -#define Tcl_DbNewDictObj_TCL_DECLARED -/* 504 */ -EXTERN Tcl_Obj * Tcl_DbNewDictObj (CONST char * file, int line); -#endif -#ifndef Tcl_RegisterConfig_TCL_DECLARED -#define Tcl_RegisterConfig_TCL_DECLARED -/* 505 */ -EXTERN void Tcl_RegisterConfig (Tcl_Interp* interp, - CONST char* pkgName, - Tcl_Config* configuration, - CONST char* valEncoding); -#endif -#ifndef Tcl_CreateNamespace_TCL_DECLARED -#define Tcl_CreateNamespace_TCL_DECLARED -/* 506 */ -EXTERN Tcl_Namespace * Tcl_CreateNamespace (Tcl_Interp * interp, - CONST char * name, ClientData clientData, - Tcl_NamespaceDeleteProc * deleteProc); -#endif -#ifndef Tcl_DeleteNamespace_TCL_DECLARED -#define Tcl_DeleteNamespace_TCL_DECLARED -/* 507 */ -EXTERN void Tcl_DeleteNamespace (Tcl_Namespace * nsPtr); -#endif -#ifndef Tcl_AppendExportList_TCL_DECLARED -#define Tcl_AppendExportList_TCL_DECLARED -/* 508 */ -EXTERN int Tcl_AppendExportList (Tcl_Interp * interp, - Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); -#endif -#ifndef Tcl_Export_TCL_DECLARED -#define Tcl_Export_TCL_DECLARED -/* 509 */ -EXTERN int Tcl_Export (Tcl_Interp * interp, - Tcl_Namespace * nsPtr, CONST char * pattern, - int resetListFirst); -#endif -#ifndef Tcl_Import_TCL_DECLARED -#define Tcl_Import_TCL_DECLARED -/* 510 */ -EXTERN int Tcl_Import (Tcl_Interp * interp, - Tcl_Namespace * nsPtr, CONST char * pattern, - int allowOverwrite); -#endif -#ifndef Tcl_ForgetImport_TCL_DECLARED -#define Tcl_ForgetImport_TCL_DECLARED -/* 511 */ -EXTERN int Tcl_ForgetImport (Tcl_Interp * interp, - Tcl_Namespace * nsPtr, CONST char * pattern); -#endif -#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED -#define Tcl_GetCurrentNamespace_TCL_DECLARED -/* 512 */ -EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace (Tcl_Interp * interp); -#endif -#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED -#define Tcl_GetGlobalNamespace_TCL_DECLARED -/* 513 */ -EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace (Tcl_Interp * interp); -#endif -#ifndef Tcl_FindNamespace_TCL_DECLARED -#define Tcl_FindNamespace_TCL_DECLARED -/* 514 */ -EXTERN Tcl_Namespace * Tcl_FindNamespace (Tcl_Interp * interp, - CONST char * name, - Tcl_Namespace * contextNsPtr, int flags); -#endif -#ifndef Tcl_FindCommand_TCL_DECLARED -#define Tcl_FindCommand_TCL_DECLARED -/* 515 */ -EXTERN Tcl_Command Tcl_FindCommand (Tcl_Interp * interp, - CONST char * name, - Tcl_Namespace * contextNsPtr, int flags); -#endif -#ifndef Tcl_GetCommandFromObj_TCL_DECLARED -#define Tcl_GetCommandFromObj_TCL_DECLARED -/* 516 */ -EXTERN Tcl_Command Tcl_GetCommandFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr); -#endif -#ifndef Tcl_GetCommandFullName_TCL_DECLARED -#define Tcl_GetCommandFullName_TCL_DECLARED -/* 517 */ -EXTERN void Tcl_GetCommandFullName (Tcl_Interp * interp, - Tcl_Command command, Tcl_Obj * objPtr); -#endif -#ifndef Tcl_FSEvalFileEx_TCL_DECLARED -#define Tcl_FSEvalFileEx_TCL_DECLARED -/* 518 */ -EXTERN int Tcl_FSEvalFileEx (Tcl_Interp * interp, - Tcl_Obj * fileName, - CONST char * encodingName); -#endif -#ifndef Tcl_SetExitProc_TCL_DECLARED -#define Tcl_SetExitProc_TCL_DECLARED -/* 519 */ -EXTERN Tcl_ExitProc * Tcl_SetExitProc (Tcl_ExitProc * proc); -#endif -#ifndef Tcl_LimitAddHandler_TCL_DECLARED -#define Tcl_LimitAddHandler_TCL_DECLARED -/* 520 */ -EXTERN void Tcl_LimitAddHandler (Tcl_Interp * interp, int type, - Tcl_LimitHandlerProc * handlerProc, - ClientData clientData, - Tcl_LimitHandlerDeleteProc * deleteProc); -#endif -#ifndef Tcl_LimitRemoveHandler_TCL_DECLARED -#define Tcl_LimitRemoveHandler_TCL_DECLARED -/* 521 */ -EXTERN void Tcl_LimitRemoveHandler (Tcl_Interp * interp, - int type, Tcl_LimitHandlerProc * handlerProc, - ClientData clientData); -#endif -#ifndef Tcl_LimitReady_TCL_DECLARED -#define Tcl_LimitReady_TCL_DECLARED -/* 522 */ -EXTERN int Tcl_LimitReady (Tcl_Interp * interp); -#endif -#ifndef Tcl_LimitCheck_TCL_DECLARED -#define Tcl_LimitCheck_TCL_DECLARED -/* 523 */ -EXTERN int Tcl_LimitCheck (Tcl_Interp * interp); -#endif -#ifndef Tcl_LimitExceeded_TCL_DECLARED -#define Tcl_LimitExceeded_TCL_DECLARED -/* 524 */ -EXTERN int Tcl_LimitExceeded (Tcl_Interp * interp); -#endif -#ifndef Tcl_LimitSetCommands_TCL_DECLARED -#define Tcl_LimitSetCommands_TCL_DECLARED -/* 525 */ -EXTERN void Tcl_LimitSetCommands (Tcl_Interp * interp, - int commandLimit); -#endif -#ifndef Tcl_LimitSetTime_TCL_DECLARED -#define Tcl_LimitSetTime_TCL_DECLARED -/* 526 */ -EXTERN void Tcl_LimitSetTime (Tcl_Interp * interp, - Tcl_Time * timeLimitPtr); -#endif -#ifndef Tcl_LimitSetGranularity_TCL_DECLARED -#define Tcl_LimitSetGranularity_TCL_DECLARED -/* 527 */ -EXTERN void Tcl_LimitSetGranularity (Tcl_Interp * interp, - int type, int granularity); -#endif -#ifndef Tcl_LimitTypeEnabled_TCL_DECLARED -#define Tcl_LimitTypeEnabled_TCL_DECLARED -/* 528 */ -EXTERN int Tcl_LimitTypeEnabled (Tcl_Interp * interp, int type); -#endif -#ifndef Tcl_LimitTypeExceeded_TCL_DECLARED -#define Tcl_LimitTypeExceeded_TCL_DECLARED -/* 529 */ -EXTERN int Tcl_LimitTypeExceeded (Tcl_Interp * interp, int type); -#endif -#ifndef Tcl_LimitTypeSet_TCL_DECLARED -#define Tcl_LimitTypeSet_TCL_DECLARED -/* 530 */ -EXTERN void Tcl_LimitTypeSet (Tcl_Interp * interp, int type); -#endif -#ifndef Tcl_LimitTypeReset_TCL_DECLARED -#define Tcl_LimitTypeReset_TCL_DECLARED -/* 531 */ -EXTERN void Tcl_LimitTypeReset (Tcl_Interp * interp, int type); -#endif -#ifndef Tcl_LimitGetCommands_TCL_DECLARED -#define Tcl_LimitGetCommands_TCL_DECLARED -/* 532 */ -EXTERN int Tcl_LimitGetCommands (Tcl_Interp * interp); -#endif -#ifndef Tcl_LimitGetTime_TCL_DECLARED -#define Tcl_LimitGetTime_TCL_DECLARED -/* 533 */ -EXTERN void Tcl_LimitGetTime (Tcl_Interp * interp, - Tcl_Time * timeLimitPtr); -#endif -#ifndef Tcl_LimitGetGranularity_TCL_DECLARED -#define Tcl_LimitGetGranularity_TCL_DECLARED -/* 534 */ -EXTERN int Tcl_LimitGetGranularity (Tcl_Interp * interp, - int type); -#endif -#ifndef Tcl_SaveInterpState_TCL_DECLARED -#define Tcl_SaveInterpState_TCL_DECLARED -/* 535 */ -EXTERN Tcl_InterpState Tcl_SaveInterpState (Tcl_Interp * interp, int status); -#endif -#ifndef Tcl_RestoreInterpState_TCL_DECLARED -#define Tcl_RestoreInterpState_TCL_DECLARED -/* 536 */ -EXTERN int Tcl_RestoreInterpState (Tcl_Interp * interp, - Tcl_InterpState state); -#endif -#ifndef Tcl_DiscardInterpState_TCL_DECLARED -#define Tcl_DiscardInterpState_TCL_DECLARED -/* 537 */ -EXTERN void Tcl_DiscardInterpState (Tcl_InterpState state); -#endif -#ifndef Tcl_SetReturnOptions_TCL_DECLARED -#define Tcl_SetReturnOptions_TCL_DECLARED -/* 538 */ -EXTERN int Tcl_SetReturnOptions (Tcl_Interp * interp, - Tcl_Obj * options); -#endif -#ifndef Tcl_GetReturnOptions_TCL_DECLARED -#define Tcl_GetReturnOptions_TCL_DECLARED -/* 539 */ -EXTERN Tcl_Obj * Tcl_GetReturnOptions (Tcl_Interp * interp, - int result); -#endif -#ifndef Tcl_IsEnsemble_TCL_DECLARED -#define Tcl_IsEnsemble_TCL_DECLARED -/* 540 */ -EXTERN int Tcl_IsEnsemble (Tcl_Command token); -#endif -#ifndef Tcl_CreateEnsemble_TCL_DECLARED -#define Tcl_CreateEnsemble_TCL_DECLARED -/* 541 */ -EXTERN Tcl_Command Tcl_CreateEnsemble (Tcl_Interp * interp, - CONST char * name, - Tcl_Namespace * namespacePtr, int flags); -#endif -#ifndef Tcl_FindEnsemble_TCL_DECLARED -#define Tcl_FindEnsemble_TCL_DECLARED -/* 542 */ -EXTERN Tcl_Command Tcl_FindEnsemble (Tcl_Interp * interp, - Tcl_Obj * cmdNameObj, int flags); -#endif -#ifndef Tcl_SetEnsembleSubcommandList_TCL_DECLARED -#define Tcl_SetEnsembleSubcommandList_TCL_DECLARED -/* 543 */ -EXTERN int Tcl_SetEnsembleSubcommandList (Tcl_Interp * interp, - Tcl_Command token, Tcl_Obj * subcmdList); -#endif -#ifndef Tcl_SetEnsembleMappingDict_TCL_DECLARED -#define Tcl_SetEnsembleMappingDict_TCL_DECLARED -/* 544 */ -EXTERN int Tcl_SetEnsembleMappingDict (Tcl_Interp * interp, - Tcl_Command token, Tcl_Obj * mapDict); -#endif -#ifndef Tcl_SetEnsembleUnknownHandler_TCL_DECLARED -#define Tcl_SetEnsembleUnknownHandler_TCL_DECLARED -/* 545 */ -EXTERN int Tcl_SetEnsembleUnknownHandler (Tcl_Interp * interp, - Tcl_Command token, Tcl_Obj * unknownList); -#endif -#ifndef Tcl_SetEnsembleFlags_TCL_DECLARED -#define Tcl_SetEnsembleFlags_TCL_DECLARED -/* 546 */ -EXTERN int Tcl_SetEnsembleFlags (Tcl_Interp * interp, - Tcl_Command token, int flags); -#endif -#ifndef Tcl_GetEnsembleSubcommandList_TCL_DECLARED -#define Tcl_GetEnsembleSubcommandList_TCL_DECLARED -/* 547 */ -EXTERN int Tcl_GetEnsembleSubcommandList (Tcl_Interp * interp, - Tcl_Command token, Tcl_Obj ** subcmdListPtr); -#endif -#ifndef Tcl_GetEnsembleMappingDict_TCL_DECLARED -#define Tcl_GetEnsembleMappingDict_TCL_DECLARED -/* 548 */ -EXTERN int Tcl_GetEnsembleMappingDict (Tcl_Interp * interp, - Tcl_Command token, Tcl_Obj ** mapDictPtr); -#endif -#ifndef Tcl_GetEnsembleUnknownHandler_TCL_DECLARED -#define Tcl_GetEnsembleUnknownHandler_TCL_DECLARED -/* 549 */ -EXTERN int Tcl_GetEnsembleUnknownHandler (Tcl_Interp * interp, - Tcl_Command token, Tcl_Obj ** unknownListPtr); -#endif -#ifndef Tcl_GetEnsembleFlags_TCL_DECLARED -#define Tcl_GetEnsembleFlags_TCL_DECLARED -/* 550 */ -EXTERN int Tcl_GetEnsembleFlags (Tcl_Interp * interp, - Tcl_Command token, int * flagsPtr); -#endif -#ifndef Tcl_GetEnsembleNamespace_TCL_DECLARED -#define Tcl_GetEnsembleNamespace_TCL_DECLARED -/* 551 */ -EXTERN int Tcl_GetEnsembleNamespace (Tcl_Interp * interp, - Tcl_Command token, - Tcl_Namespace ** namespacePtrPtr); -#endif -#ifndef Tcl_SetTimeProc_TCL_DECLARED -#define Tcl_SetTimeProc_TCL_DECLARED -/* 552 */ -EXTERN void Tcl_SetTimeProc (Tcl_GetTimeProc* getProc, - Tcl_ScaleTimeProc* scaleProc, - ClientData clientData); -#endif -#ifndef Tcl_QueryTimeProc_TCL_DECLARED -#define Tcl_QueryTimeProc_TCL_DECLARED -/* 553 */ -EXTERN void Tcl_QueryTimeProc (Tcl_GetTimeProc** getProc, - Tcl_ScaleTimeProc** scaleProc, - ClientData* clientData); -#endif -#ifndef Tcl_ChannelThreadActionProc_TCL_DECLARED -#define Tcl_ChannelThreadActionProc_TCL_DECLARED -/* 554 */ -EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_NewBignumObj_TCL_DECLARED -#define Tcl_NewBignumObj_TCL_DECLARED -/* 555 */ -EXTERN Tcl_Obj* Tcl_NewBignumObj (mp_int* value); -#endif -#ifndef Tcl_DbNewBignumObj_TCL_DECLARED -#define Tcl_DbNewBignumObj_TCL_DECLARED -/* 556 */ -EXTERN Tcl_Obj* Tcl_DbNewBignumObj (mp_int* value, CONST char* file, - int line); -#endif -#ifndef Tcl_SetBignumObj_TCL_DECLARED -#define Tcl_SetBignumObj_TCL_DECLARED -/* 557 */ -EXTERN void Tcl_SetBignumObj (Tcl_Obj* obj, mp_int* value); -#endif -#ifndef Tcl_GetBignumFromObj_TCL_DECLARED -#define Tcl_GetBignumFromObj_TCL_DECLARED -/* 558 */ -EXTERN int Tcl_GetBignumFromObj (Tcl_Interp* interp, - Tcl_Obj* obj, mp_int* value); -#endif -#ifndef Tcl_TakeBignumFromObj_TCL_DECLARED -#define Tcl_TakeBignumFromObj_TCL_DECLARED -/* 559 */ -EXTERN int Tcl_TakeBignumFromObj (Tcl_Interp* interp, - Tcl_Obj* obj, mp_int* value); -#endif -#ifndef Tcl_TruncateChannel_TCL_DECLARED -#define Tcl_TruncateChannel_TCL_DECLARED -/* 560 */ -EXTERN int Tcl_TruncateChannel (Tcl_Channel chan, - Tcl_WideInt length); -#endif -#ifndef Tcl_ChannelTruncateProc_TCL_DECLARED -#define Tcl_ChannelTruncateProc_TCL_DECLARED -/* 561 */ -EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc ( - CONST Tcl_ChannelType * chanTypePtr); -#endif -#ifndef Tcl_SetChannelErrorInterp_TCL_DECLARED -#define Tcl_SetChannelErrorInterp_TCL_DECLARED -/* 562 */ -EXTERN void Tcl_SetChannelErrorInterp (Tcl_Interp* interp, - Tcl_Obj* msg); -#endif -#ifndef Tcl_GetChannelErrorInterp_TCL_DECLARED -#define Tcl_GetChannelErrorInterp_TCL_DECLARED -/* 563 */ -EXTERN void Tcl_GetChannelErrorInterp (Tcl_Interp* interp, - Tcl_Obj** msg); -#endif -#ifndef Tcl_SetChannelError_TCL_DECLARED -#define Tcl_SetChannelError_TCL_DECLARED -/* 564 */ -EXTERN void Tcl_SetChannelError (Tcl_Channel chan, Tcl_Obj* msg); -#endif -#ifndef Tcl_GetChannelError_TCL_DECLARED -#define Tcl_GetChannelError_TCL_DECLARED -/* 565 */ -EXTERN void Tcl_GetChannelError (Tcl_Channel chan, Tcl_Obj** msg); -#endif -#ifndef Tcl_InitBignumFromDouble_TCL_DECLARED -#define Tcl_InitBignumFromDouble_TCL_DECLARED -/* 566 */ -EXTERN int Tcl_InitBignumFromDouble (Tcl_Interp* interp, - double initval, mp_int * toInit); -#endif -#ifndef Tcl_GetNamespaceUnknownHandler_TCL_DECLARED -#define Tcl_GetNamespaceUnknownHandler_TCL_DECLARED -/* 567 */ -EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler (Tcl_Interp * interp, - Tcl_Namespace * nsPtr); -#endif -#ifndef Tcl_SetNamespaceUnknownHandler_TCL_DECLARED -#define Tcl_SetNamespaceUnknownHandler_TCL_DECLARED -/* 568 */ -EXTERN int Tcl_SetNamespaceUnknownHandler (Tcl_Interp * interp, - Tcl_Namespace * nsPtr, Tcl_Obj * handlerPtr); -#endif -#ifndef Tcl_GetEncodingFromObj_TCL_DECLARED -#define Tcl_GetEncodingFromObj_TCL_DECLARED -/* 569 */ -EXTERN int Tcl_GetEncodingFromObj (Tcl_Interp* interp, - Tcl_Obj* objPtr, Tcl_Encoding* encodingPtr); -#endif -#ifndef Tcl_GetEncodingSearchPath_TCL_DECLARED -#define Tcl_GetEncodingSearchPath_TCL_DECLARED -/* 570 */ -EXTERN Tcl_Obj* Tcl_GetEncodingSearchPath (void); -#endif -#ifndef Tcl_SetEncodingSearchPath_TCL_DECLARED -#define Tcl_SetEncodingSearchPath_TCL_DECLARED -/* 571 */ -EXTERN int Tcl_SetEncodingSearchPath (Tcl_Obj* searchPath); -#endif -#ifndef Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED -#define Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED -/* 572 */ -EXTERN CONST char * Tcl_GetEncodingNameFromEnvironment ( - Tcl_DString* bufPtr); -#endif -#ifndef Tcl_PkgRequireProc_TCL_DECLARED -#define Tcl_PkgRequireProc_TCL_DECLARED -/* 573 */ -EXTERN int Tcl_PkgRequireProc (Tcl_Interp * interp, - CONST char * name, int objc, - Tcl_Obj *CONST objv[], - ClientData * clientDataPtr); -#endif -#ifndef Tcl_AppendObjToErrorInfo_TCL_DECLARED -#define Tcl_AppendObjToErrorInfo_TCL_DECLARED -/* 574 */ -EXTERN void Tcl_AppendObjToErrorInfo (Tcl_Interp * interp, - Tcl_Obj * objPtr); -#endif -#ifndef Tcl_AppendLimitedToObj_TCL_DECLARED -#define Tcl_AppendLimitedToObj_TCL_DECLARED -/* 575 */ -EXTERN void Tcl_AppendLimitedToObj (Tcl_Obj * objPtr, - CONST char * bytes, int length, int limit, - CONST char * ellipsis); -#endif -#ifndef Tcl_Format_TCL_DECLARED -#define Tcl_Format_TCL_DECLARED -/* 576 */ -EXTERN Tcl_Obj * Tcl_Format (Tcl_Interp * interp, CONST char * format, - int objc, Tcl_Obj * CONST objv[]); -#endif -#ifndef Tcl_AppendFormatToObj_TCL_DECLARED -#define Tcl_AppendFormatToObj_TCL_DECLARED -/* 577 */ -EXTERN int Tcl_AppendFormatToObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, CONST char * format, - int objc, Tcl_Obj * CONST objv[]); -#endif -#ifndef Tcl_ObjPrintf_TCL_DECLARED -#define Tcl_ObjPrintf_TCL_DECLARED -/* 578 */ -EXTERN Tcl_Obj * Tcl_ObjPrintf (CONST char * format, ...); -#endif -#ifndef Tcl_AppendPrintfToObj_TCL_DECLARED -#define Tcl_AppendPrintfToObj_TCL_DECLARED -/* 579 */ -EXTERN void Tcl_AppendPrintfToObj (Tcl_Obj * objPtr, - CONST char * format, ...); -#endif - -typedef struct TclStubHooks { - struct TclPlatStubs *tclPlatStubs; - struct TclIntStubs *tclIntStubs; - struct TclIntPlatStubs *tclIntPlatStubs; -} TclStubHooks; - -typedef struct TclStubs { - int magic; - struct TclStubHooks *hooks; - - int (*tcl_PkgProvideEx) (Tcl_Interp* interp, CONST char* name, CONST char* version, ClientData clientData); /* 0 */ - CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp * interp, CONST char * name, CONST char * version, int exact, ClientData * clientDataPtr); /* 1 */ - void (*tcl_Panic) (CONST char * format, ...); /* 2 */ - char * (*tcl_Alloc) (unsigned int size); /* 3 */ - void (*tcl_Free) (char * ptr); /* 4 */ - char * (*tcl_Realloc) (char * ptr, unsigned int size); /* 5 */ - char * (*tcl_DbCkalloc) (unsigned int size, CONST char * file, int line); /* 6 */ - int (*tcl_DbCkfree) (char * ptr, CONST char * file, int line); /* 7 */ - char * (*tcl_DbCkrealloc) (char * ptr, unsigned int size, CONST char * file, int line); /* 8 */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc * proc, ClientData clientData); /* 9 */ -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ - void *reserved9; -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc * proc, ClientData clientData); /* 9 */ -#endif /* MACOSX */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_DeleteFileHandler) (int fd); /* 10 */ -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ - void *reserved10; -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_DeleteFileHandler) (int fd); /* 10 */ -#endif /* MACOSX */ - void (*tcl_SetTimer) (Tcl_Time * timePtr); /* 11 */ - void (*tcl_Sleep) (int ms); /* 12 */ - int (*tcl_WaitForEvent) (Tcl_Time * timePtr); /* 13 */ - int (*tcl_AppendAllObjTypes) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 14 */ - void (*tcl_AppendStringsToObj) (Tcl_Obj * objPtr, ...); /* 15 */ - void (*tcl_AppendToObj) (Tcl_Obj* objPtr, CONST char* bytes, int length); /* 16 */ - Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *CONST objv[]); /* 17 */ - int (*tcl_ConvertToType) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_ObjType * typePtr); /* 18 */ - void (*tcl_DbDecrRefCount) (Tcl_Obj * objPtr, CONST char * file, int line); /* 19 */ - void (*tcl_DbIncrRefCount) (Tcl_Obj * objPtr, CONST char * file, int line); /* 20 */ - int (*tcl_DbIsShared) (Tcl_Obj * objPtr, CONST char * file, int line); /* 21 */ - Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, CONST char * file, int line); /* 22 */ - Tcl_Obj * (*tcl_DbNewByteArrayObj) (CONST unsigned char * bytes, int length, CONST char * file, int line); /* 23 */ - Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, CONST char * file, int line); /* 24 */ - Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *CONST * objv, CONST char * file, int line); /* 25 */ - Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, CONST char * file, int line); /* 26 */ - Tcl_Obj * (*tcl_DbNewObj) (CONST char * file, int line); /* 27 */ - Tcl_Obj * (*tcl_DbNewStringObj) (CONST char * bytes, int length, CONST char * file, int line); /* 28 */ - Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj * objPtr); /* 29 */ - void (*tclFreeObj) (Tcl_Obj * objPtr); /* 30 */ - int (*tcl_GetBoolean) (Tcl_Interp * interp, CONST char * src, int * boolPtr); /* 31 */ - int (*tcl_GetBooleanFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int * boolPtr); /* 32 */ - unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj * objPtr, int * lengthPtr); /* 33 */ - int (*tcl_GetDouble) (Tcl_Interp * interp, CONST char * src, double * doublePtr); /* 34 */ - int (*tcl_GetDoubleFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, double * doublePtr); /* 35 */ - int (*tcl_GetIndexFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST84 char ** tablePtr, CONST char * msg, int flags, int * indexPtr); /* 36 */ - int (*tcl_GetInt) (Tcl_Interp * interp, CONST char * src, int * intPtr); /* 37 */ - int (*tcl_GetIntFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int * intPtr); /* 38 */ - int (*tcl_GetLongFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, long * longPtr); /* 39 */ - Tcl_ObjType * (*tcl_GetObjType) (CONST char * typeName); /* 40 */ - char * (*tcl_GetStringFromObj) (Tcl_Obj * objPtr, int * lengthPtr); /* 41 */ - void (*tcl_InvalidateStringRep) (Tcl_Obj * objPtr); /* 42 */ - int (*tcl_ListObjAppendList) (Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr); /* 43 */ - int (*tcl_ListObjAppendElement) (Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * objPtr); /* 44 */ - int (*tcl_ListObjGetElements) (Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj *** objvPtr); /* 45 */ - int (*tcl_ListObjIndex) (Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj ** objPtrPtr); /* 46 */ - int (*tcl_ListObjLength) (Tcl_Interp * interp, Tcl_Obj * listPtr, int * lengthPtr); /* 47 */ - int (*tcl_ListObjReplace) (Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[]); /* 48 */ - Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */ - Tcl_Obj * (*tcl_NewByteArrayObj) (CONST unsigned char* bytes, int length); /* 50 */ - Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */ - Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */ - Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *CONST objv[]); /* 53 */ - Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */ - Tcl_Obj * (*tcl_NewObj) (void); /* 55 */ - Tcl_Obj * (*tcl_NewStringObj) (CONST char * bytes, int length); /* 56 */ - void (*tcl_SetBooleanObj) (Tcl_Obj * objPtr, int boolValue); /* 57 */ - unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj * objPtr, int length); /* 58 */ - void (*tcl_SetByteArrayObj) (Tcl_Obj * objPtr, CONST unsigned char * bytes, int length); /* 59 */ - void (*tcl_SetDoubleObj) (Tcl_Obj * objPtr, double doubleValue); /* 60 */ - void (*tcl_SetIntObj) (Tcl_Obj * objPtr, int intValue); /* 61 */ - void (*tcl_SetListObj) (Tcl_Obj * objPtr, int objc, Tcl_Obj *CONST objv[]); /* 62 */ - void (*tcl_SetLongObj) (Tcl_Obj * objPtr, long longValue); /* 63 */ - void (*tcl_SetObjLength) (Tcl_Obj * objPtr, int length); /* 64 */ - void (*tcl_SetStringObj) (Tcl_Obj* objPtr, CONST char* bytes, int length); /* 65 */ - void (*tcl_AddErrorInfo) (Tcl_Interp * interp, CONST char * message); /* 66 */ - void (*tcl_AddObjErrorInfo) (Tcl_Interp * interp, CONST char * message, int length); /* 67 */ - void (*tcl_AllowExceptions) (Tcl_Interp * interp); /* 68 */ - void (*tcl_AppendElement) (Tcl_Interp * interp, CONST char * element); /* 69 */ - void (*tcl_AppendResult) (Tcl_Interp * interp, ...); /* 70 */ - Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc * proc, ClientData clientData); /* 71 */ - void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */ - int (*tcl_AsyncInvoke) (Tcl_Interp * interp, int code); /* 73 */ - void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */ - int (*tcl_AsyncReady) (void); /* 75 */ - void (*tcl_BackgroundError) (Tcl_Interp * interp); /* 76 */ - char (*tcl_Backslash) (CONST char * src, int * readPtr); /* 77 */ - int (*tcl_BadChannelOption) (Tcl_Interp * interp, CONST char * optionName, CONST char * optionList); /* 78 */ - void (*tcl_CallWhenDeleted) (Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData); /* 79 */ - void (*tcl_CancelIdleCall) (Tcl_IdleProc * idleProc, ClientData clientData); /* 80 */ - int (*tcl_Close) (Tcl_Interp * interp, Tcl_Channel chan); /* 81 */ - int (*tcl_CommandComplete) (CONST char * cmd); /* 82 */ - char * (*tcl_Concat) (int argc, CONST84 char * CONST * argv); /* 83 */ - int (*tcl_ConvertElement) (CONST char * src, char * dst, int flags); /* 84 */ - int (*tcl_ConvertCountedElement) (CONST char * src, int length, char * dst, int flags); /* 85 */ - int (*tcl_CreateAlias) (Tcl_Interp * slave, CONST char * slaveCmd, Tcl_Interp * target, CONST char * targetCmd, int argc, CONST84 char * CONST * argv); /* 86 */ - int (*tcl_CreateAliasObj) (Tcl_Interp * slave, CONST char * slaveCmd, Tcl_Interp * target, CONST char * targetCmd, int objc, Tcl_Obj *CONST objv[]); /* 87 */ - Tcl_Channel (*tcl_CreateChannel) (Tcl_ChannelType * typePtr, CONST char * chanName, ClientData instanceData, int mask); /* 88 */ - void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData); /* 89 */ - void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData); /* 90 */ - Tcl_Command (*tcl_CreateCommand) (Tcl_Interp * interp, CONST char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); /* 91 */ - void (*tcl_CreateEventSource) (Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData); /* 92 */ - void (*tcl_CreateExitHandler) (Tcl_ExitProc * proc, ClientData clientData); /* 93 */ - Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */ - void (*tcl_CreateMathFunc) (Tcl_Interp * interp, CONST char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData); /* 95 */ - Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp * interp, CONST char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); /* 96 */ - Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp * interp, CONST char * slaveName, int isSafe); /* 97 */ - Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc * proc, ClientData clientData); /* 98 */ - Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData); /* 99 */ - void (*tcl_DeleteAssocData) (Tcl_Interp * interp, CONST char * name); /* 100 */ - void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData); /* 101 */ - void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData); /* 102 */ - int (*tcl_DeleteCommand) (Tcl_Interp * interp, CONST char * cmdName); /* 103 */ - int (*tcl_DeleteCommandFromToken) (Tcl_Interp * interp, Tcl_Command command); /* 104 */ - void (*tcl_DeleteEvents) (Tcl_EventDeleteProc * proc, ClientData clientData); /* 105 */ - void (*tcl_DeleteEventSource) (Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData); /* 106 */ - void (*tcl_DeleteExitHandler) (Tcl_ExitProc * proc, ClientData clientData); /* 107 */ - void (*tcl_DeleteHashEntry) (Tcl_HashEntry * entryPtr); /* 108 */ - void (*tcl_DeleteHashTable) (Tcl_HashTable * tablePtr); /* 109 */ - void (*tcl_DeleteInterp) (Tcl_Interp * interp); /* 110 */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_DetachPids) (int numPids, Tcl_Pid * pidPtr); /* 111 */ -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ - void (*tcl_DetachPids) (int numPids, Tcl_Pid * pidPtr); /* 111 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_DetachPids) (int numPids, Tcl_Pid * pidPtr); /* 111 */ -#endif /* MACOSX */ - void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */ - void (*tcl_DeleteTrace) (Tcl_Interp * interp, Tcl_Trace trace); /* 113 */ - void (*tcl_DontCallWhenDeleted) (Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData); /* 114 */ - int (*tcl_DoOneEvent) (int flags); /* 115 */ - void (*tcl_DoWhenIdle) (Tcl_IdleProc * proc, ClientData clientData); /* 116 */ - char * (*tcl_DStringAppend) (Tcl_DString * dsPtr, CONST char * bytes, int length); /* 117 */ - char * (*tcl_DStringAppendElement) (Tcl_DString * dsPtr, CONST char * element); /* 118 */ - void (*tcl_DStringEndSublist) (Tcl_DString * dsPtr); /* 119 */ - void (*tcl_DStringFree) (Tcl_DString * dsPtr); /* 120 */ - void (*tcl_DStringGetResult) (Tcl_Interp * interp, Tcl_DString * dsPtr); /* 121 */ - void (*tcl_DStringInit) (Tcl_DString * dsPtr); /* 122 */ - void (*tcl_DStringResult) (Tcl_Interp * interp, Tcl_DString * dsPtr); /* 123 */ - void (*tcl_DStringSetLength) (Tcl_DString * dsPtr, int length); /* 124 */ - void (*tcl_DStringStartSublist) (Tcl_DString * dsPtr); /* 125 */ - int (*tcl_Eof) (Tcl_Channel chan); /* 126 */ - CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */ - CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */ - int (*tcl_Eval) (Tcl_Interp * interp, CONST char * script); /* 129 */ - int (*tcl_EvalFile) (Tcl_Interp * interp, CONST char * fileName); /* 130 */ - int (*tcl_EvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 131 */ - void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc * freeProc); /* 132 */ - void (*tcl_Exit) (int status); /* 133 */ - int (*tcl_ExposeCommand) (Tcl_Interp * interp, CONST char * hiddenCmdToken, CONST char * cmdName); /* 134 */ - int (*tcl_ExprBoolean) (Tcl_Interp * interp, CONST char * expr, int * ptr); /* 135 */ - int (*tcl_ExprBooleanObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr); /* 136 */ - int (*tcl_ExprDouble) (Tcl_Interp * interp, CONST char * expr, double * ptr); /* 137 */ - int (*tcl_ExprDoubleObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr); /* 138 */ - int (*tcl_ExprLong) (Tcl_Interp * interp, CONST char * expr, long * ptr); /* 139 */ - int (*tcl_ExprLongObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr); /* 140 */ - int (*tcl_ExprObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr); /* 141 */ - int (*tcl_ExprString) (Tcl_Interp * interp, CONST char * expr); /* 142 */ - void (*tcl_Finalize) (void); /* 143 */ - void (*tcl_FindExecutable) (CONST char * argv0); /* 144 */ - Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr); /* 145 */ - int (*tcl_Flush) (Tcl_Channel chan); /* 146 */ - void (*tcl_FreeResult) (Tcl_Interp * interp); /* 147 */ - int (*tcl_GetAlias) (Tcl_Interp * interp, CONST char * slaveCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * argcPtr, CONST84 char *** argvPtr); /* 148 */ - int (*tcl_GetAliasObj) (Tcl_Interp * interp, CONST char * slaveCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv); /* 149 */ - ClientData (*tcl_GetAssocData) (Tcl_Interp * interp, CONST char * name, Tcl_InterpDeleteProc ** procPtr); /* 150 */ - Tcl_Channel (*tcl_GetChannel) (Tcl_Interp * interp, CONST char * chanName, int * modePtr); /* 151 */ - int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */ - int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData * handlePtr); /* 153 */ - ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */ - int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */ - CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */ - int (*tcl_GetChannelOption) (Tcl_Interp * interp, Tcl_Channel chan, CONST char * optionName, Tcl_DString * dsPtr); /* 157 */ - Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */ - int (*tcl_GetCommandInfo) (Tcl_Interp * interp, CONST char * cmdName, Tcl_CmdInfo * infoPtr); /* 159 */ - CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp * interp, Tcl_Command command); /* 160 */ - int (*tcl_GetErrno) (void); /* 161 */ - CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */ - int (*tcl_GetInterpPath) (Tcl_Interp * askInterp, Tcl_Interp * slaveInterp); /* 163 */ - Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp * interp); /* 164 */ - CONST char * (*tcl_GetNameOfExecutable) (void); /* 165 */ - Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp * interp); /* 166 */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - int (*tcl_GetOpenFile) (Tcl_Interp * interp, CONST char * chanID, int forWriting, int checkUsage, ClientData * filePtr); /* 167 */ -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ - void *reserved167; -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - int (*tcl_GetOpenFile) (Tcl_Interp * interp, CONST char * chanID, int forWriting, int checkUsage, ClientData * filePtr); /* 167 */ -#endif /* MACOSX */ - Tcl_PathType (*tcl_GetPathType) (CONST char * path); /* 168 */ - int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString * dsPtr); /* 169 */ - int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj * objPtr); /* 170 */ - int (*tcl_GetServiceMode) (void); /* 171 */ - Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp * interp, CONST char * slaveName); /* 172 */ - Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */ - CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp * interp); /* 174 */ - CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp * interp, CONST char * varName, int flags); /* 175 */ - CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags); /* 176 */ - int (*tcl_GlobalEval) (Tcl_Interp * interp, CONST char * command); /* 177 */ - int (*tcl_GlobalEvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 178 */ - int (*tcl_HideCommand) (Tcl_Interp * interp, CONST char * cmdName, CONST char * hiddenCmdToken); /* 179 */ - int (*tcl_Init) (Tcl_Interp * interp); /* 180 */ - void (*tcl_InitHashTable) (Tcl_HashTable * tablePtr, int keyType); /* 181 */ - int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */ - int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */ - int (*tcl_InterpDeleted) (Tcl_Interp * interp); /* 184 */ - int (*tcl_IsSafe) (Tcl_Interp * interp); /* 185 */ - char * (*tcl_JoinPath) (int argc, CONST84 char * CONST * argv, Tcl_DString * resultPtr); /* 186 */ - int (*tcl_LinkVar) (Tcl_Interp * interp, CONST char * varName, char * addr, int type); /* 187 */ - void *reserved188; - Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */ - int (*tcl_MakeSafe) (Tcl_Interp * interp); /* 190 */ - Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */ - char * (*tcl_Merge) (int argc, CONST84 char * CONST * argv); /* 192 */ - Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch * searchPtr); /* 193 */ - void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */ - Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags); /* 195 */ - Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags); /* 196 */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags); /* 197 */ -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ - Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags); /* 197 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags); /* 197 */ -#endif /* MACOSX */ - Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp * interp, CONST char * fileName, CONST char * modeString, int permissions); /* 198 */ - Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp * interp, int port, CONST char * address, CONST char * myaddr, int myport, int async); /* 199 */ - Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp * interp, int port, CONST char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData); /* 200 */ - void (*tcl_Preserve) (ClientData data); /* 201 */ - void (*tcl_PrintDouble) (Tcl_Interp * interp, double value, char * dst); /* 202 */ - int (*tcl_PutEnv) (CONST char * assignment); /* 203 */ - CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp * interp); /* 204 */ - void (*tcl_QueueEvent) (Tcl_Event * evPtr, Tcl_QueuePosition position); /* 205 */ - int (*tcl_Read) (Tcl_Channel chan, char * bufPtr, int toRead); /* 206 */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ - void (*tcl_ReapDetachedProcs) (void); /* 207 */ -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ - void (*tcl_ReapDetachedProcs) (void); /* 207 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - void (*tcl_ReapDetachedProcs) (void); /* 207 */ -#endif /* MACOSX */ - int (*tcl_RecordAndEval) (Tcl_Interp * interp, CONST char * cmd, int flags); /* 208 */ - int (*tcl_RecordAndEvalObj) (Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags); /* 209 */ - void (*tcl_RegisterChannel) (Tcl_Interp * interp, Tcl_Channel chan); /* 210 */ - void (*tcl_RegisterObjType) (Tcl_ObjType * typePtr); /* 211 */ - Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp * interp, CONST char * pattern); /* 212 */ - int (*tcl_RegExpExec) (Tcl_Interp * interp, Tcl_RegExp regexp, CONST char * text, CONST char * start); /* 213 */ - int (*tcl_RegExpMatch) (Tcl_Interp * interp, CONST char * text, CONST char * pattern); /* 214 */ - void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char ** startPtr, CONST84 char ** endPtr); /* 215 */ - void (*tcl_Release) (ClientData clientData); /* 216 */ - void (*tcl_ResetResult) (Tcl_Interp * interp); /* 217 */ - int (*tcl_ScanElement) (CONST char * str, int * flagPtr); /* 218 */ - int (*tcl_ScanCountedElement) (CONST char * str, int length, int * flagPtr); /* 219 */ - int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ - int (*tcl_ServiceAll) (void); /* 221 */ - int (*tcl_ServiceEvent) (int flags); /* 222 */ - void (*tcl_SetAssocData) (Tcl_Interp * interp, CONST char * name, Tcl_InterpDeleteProc * proc, ClientData clientData); /* 223 */ - void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */ - int (*tcl_SetChannelOption) (Tcl_Interp * interp, Tcl_Channel chan, CONST char * optionName, CONST char * newValue); /* 225 */ - int (*tcl_SetCommandInfo) (Tcl_Interp * interp, CONST char * cmdName, CONST Tcl_CmdInfo * infoPtr); /* 226 */ - void (*tcl_SetErrno) (int err); /* 227 */ - void (*tcl_SetErrorCode) (Tcl_Interp * interp, ...); /* 228 */ - void (*tcl_SetMaxBlockTime) (Tcl_Time * timePtr); /* 229 */ - void (*tcl_SetPanicProc) (Tcl_PanicProc * panicProc); /* 230 */ - int (*tcl_SetRecursionLimit) (Tcl_Interp * interp, int depth); /* 231 */ - void (*tcl_SetResult) (Tcl_Interp * interp, char * result, Tcl_FreeProc * freeProc); /* 232 */ - int (*tcl_SetServiceMode) (int mode); /* 233 */ - void (*tcl_SetObjErrorCode) (Tcl_Interp * interp, Tcl_Obj * errorObjPtr); /* 234 */ - void (*tcl_SetObjResult) (Tcl_Interp * interp, Tcl_Obj * resultObjPtr); /* 235 */ - void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */ - CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp * interp, CONST char * varName, CONST char * newValue, int flags); /* 237 */ - CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, CONST char * newValue, int flags); /* 238 */ - CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */ - CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */ - void (*tcl_SourceRCFile) (Tcl_Interp * interp); /* 241 */ - int (*tcl_SplitList) (Tcl_Interp * interp, CONST char * listStr, int * argcPtr, CONST84 char *** argvPtr); /* 242 */ - void (*tcl_SplitPath) (CONST char * path, int * argcPtr, CONST84 char *** argvPtr); /* 243 */ - void (*tcl_StaticPackage) (Tcl_Interp * interp, CONST char * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc); /* 244 */ - int (*tcl_StringMatch) (CONST char * str, CONST char * pattern); /* 245 */ - int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */ - int (*tcl_TraceVar) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 247 */ - int (*tcl_TraceVar2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 248 */ - char * (*tcl_TranslateFileName) (Tcl_Interp * interp, CONST char * name, Tcl_DString * bufferPtr); /* 249 */ - int (*tcl_Ungets) (Tcl_Channel chan, CONST char * str, int len, int atHead); /* 250 */ - void (*tcl_UnlinkVar) (Tcl_Interp * interp, CONST char * varName); /* 251 */ - int (*tcl_UnregisterChannel) (Tcl_Interp * interp, Tcl_Channel chan); /* 252 */ - int (*tcl_UnsetVar) (Tcl_Interp * interp, CONST char * varName, int flags); /* 253 */ - int (*tcl_UnsetVar2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags); /* 254 */ - void (*tcl_UntraceVar) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 255 */ - void (*tcl_UntraceVar2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 256 */ - void (*tcl_UpdateLinkedVar) (Tcl_Interp * interp, CONST char * varName); /* 257 */ - int (*tcl_UpVar) (Tcl_Interp * interp, CONST char * frameName, CONST char * varName, CONST char * localName, int flags); /* 258 */ - int (*tcl_UpVar2) (Tcl_Interp * interp, CONST char * frameName, CONST char * part1, CONST char * part2, CONST char * localName, int flags); /* 259 */ - int (*tcl_VarEval) (Tcl_Interp * interp, ...); /* 260 */ - ClientData (*tcl_VarTraceInfo) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); /* 261 */ - ClientData (*tcl_VarTraceInfo2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); /* 262 */ - int (*tcl_Write) (Tcl_Channel chan, CONST char * s, int slen); /* 263 */ - void (*tcl_WrongNumArgs) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], CONST char * message); /* 264 */ - int (*tcl_DumpActiveMemory) (CONST char * fileName); /* 265 */ - void (*tcl_ValidateAllMemory) (CONST char * file, int line); /* 266 */ - void (*tcl_AppendResultVA) (Tcl_Interp * interp, va_list argList); /* 267 */ - void (*tcl_AppendStringsToObjVA) (Tcl_Obj * objPtr, va_list argList); /* 268 */ - CONST84_RETURN char * (*tcl_HashStats) (Tcl_HashTable * tablePtr); /* 269 */ - CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp * interp, CONST char * start, CONST84 char ** termPtr); /* 270 */ - CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp * interp, CONST char * name, CONST char * version, int exact); /* 271 */ - CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp * interp, CONST char * name, CONST char * version, int exact, ClientData * clientDataPtr); /* 272 */ - int (*tcl_PkgProvide) (Tcl_Interp * interp, CONST char * name, CONST char * version); /* 273 */ - CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp * interp, CONST char * name, CONST char * version, int exact); /* 274 */ - void (*tcl_SetErrorCodeVA) (Tcl_Interp * interp, va_list argList); /* 275 */ - int (*tcl_VarEvalVA) (Tcl_Interp * interp, va_list argList); /* 276 */ - Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int * statPtr, int options); /* 277 */ - void (*tcl_PanicVA) (CONST char * format, va_list argList); /* 278 */ - void (*tcl_GetVersion) (int * major, int * minor, int * patchLevel, int * type); /* 279 */ - void (*tcl_InitMemory) (Tcl_Interp * interp); /* 280 */ - Tcl_Channel (*tcl_StackChannel) (Tcl_Interp * interp, Tcl_ChannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */ - int (*tcl_UnstackChannel) (Tcl_Interp * interp, Tcl_Channel chan); /* 282 */ - Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */ - void (*tcl_SetMainLoop) (Tcl_MainLoopProc * proc); /* 284 */ - void *reserved285; - void (*tcl_AppendObjToObj) (Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr); /* 286 */ - Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType * typePtr); /* 287 */ - void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc * proc, ClientData clientData); /* 288 */ - void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc * proc, ClientData clientData); /* 289 */ - void (*tcl_DiscardResult) (Tcl_SavedResult * statePtr); /* 290 */ - int (*tcl_EvalEx) (Tcl_Interp * interp, CONST char * script, int numBytes, int flags); /* 291 */ - int (*tcl_EvalObjv) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 292 */ - int (*tcl_EvalObjEx) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); /* 293 */ - void (*tcl_ExitThread) (int status); /* 294 */ - int (*tcl_ExternalToUtf) (Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr); /* 295 */ - char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr); /* 296 */ - void (*tcl_FinalizeThread) (void); /* 297 */ - void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */ - void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */ - Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */ - Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp * interp, CONST char * name); /* 301 */ - CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */ - void (*tcl_GetEncodingNames) (Tcl_Interp * interp); /* 303 */ - int (*tcl_GetIndexFromObjStruct) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST VOID * tablePtr, int offset, CONST char * msg, int flags, int * indexPtr); /* 304 */ - VOID * (*tcl_GetThreadData) (Tcl_ThreadDataKey * keyPtr, int size); /* 305 */ - Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags); /* 306 */ - ClientData (*tcl_InitNotifier) (void); /* 307 */ - void (*tcl_MutexLock) (Tcl_Mutex * mutexPtr); /* 308 */ - void (*tcl_MutexUnlock) (Tcl_Mutex * mutexPtr); /* 309 */ - void (*tcl_ConditionNotify) (Tcl_Condition * condPtr); /* 310 */ - void (*tcl_ConditionWait) (Tcl_Condition * condPtr, Tcl_Mutex * mutexPtr, Tcl_Time * timePtr); /* 311 */ - int (*tcl_NumUtfChars) (CONST char * src, int length); /* 312 */ - int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj * objPtr, int charsToRead, int appendFlag); /* 313 */ - void (*tcl_RestoreResult) (Tcl_Interp * interp, Tcl_SavedResult * statePtr); /* 314 */ - void (*tcl_SaveResult) (Tcl_Interp * interp, Tcl_SavedResult * statePtr); /* 315 */ - int (*tcl_SetSystemEncoding) (Tcl_Interp * interp, CONST char * name); /* 316 */ - Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, Tcl_Obj * newValuePtr, int flags); /* 317 */ - void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */ - void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_QueuePosition position); /* 319 */ - Tcl_UniChar (*tcl_UniCharAtIndex) (CONST char * src, int index); /* 320 */ - Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */ - Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */ - Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */ - int (*tcl_UniCharToUtf) (int ch, char * buf); /* 324 */ - CONST84_RETURN char * (*tcl_UtfAtIndex) (CONST char * src, int index); /* 325 */ - int (*tcl_UtfCharComplete) (CONST char * src, int length); /* 326 */ - int (*tcl_UtfBackslash) (CONST char * src, int * readPtr, char * dst); /* 327 */ - CONST84_RETURN char * (*tcl_UtfFindFirst) (CONST char * src, int ch); /* 328 */ - CONST84_RETURN char * (*tcl_UtfFindLast) (CONST char * src, int ch); /* 329 */ - CONST84_RETURN char * (*tcl_UtfNext) (CONST char * src); /* 330 */ - CONST84_RETURN char * (*tcl_UtfPrev) (CONST char * src, CONST char * start); /* 331 */ - int (*tcl_UtfToExternal) (Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr); /* 332 */ - char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr); /* 333 */ - int (*tcl_UtfToLower) (char * src); /* 334 */ - int (*tcl_UtfToTitle) (char * src); /* 335 */ - int (*tcl_UtfToUniChar) (CONST char * src, Tcl_UniChar * chPtr); /* 336 */ - int (*tcl_UtfToUpper) (char * src); /* 337 */ - int (*tcl_WriteChars) (Tcl_Channel chan, CONST char * src, int srcLen); /* 338 */ - int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj * objPtr); /* 339 */ - char * (*tcl_GetString) (Tcl_Obj * objPtr); /* 340 */ - CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */ - void (*tcl_SetDefaultEncodingDir) (CONST char * path); /* 342 */ - void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */ - void (*tcl_ServiceModeHook) (int mode); /* 344 */ - int (*tcl_UniCharIsAlnum) (int ch); /* 345 */ - int (*tcl_UniCharIsAlpha) (int ch); /* 346 */ - int (*tcl_UniCharIsDigit) (int ch); /* 347 */ - int (*tcl_UniCharIsLower) (int ch); /* 348 */ - int (*tcl_UniCharIsSpace) (int ch); /* 349 */ - int (*tcl_UniCharIsUpper) (int ch); /* 350 */ - int (*tcl_UniCharIsWordChar) (int ch); /* 351 */ - int (*tcl_UniCharLen) (CONST Tcl_UniChar * uniStr); /* 352 */ - int (*tcl_UniCharNcmp) (CONST Tcl_UniChar * ucs, CONST Tcl_UniChar * uct, unsigned long numChars); /* 353 */ - char * (*tcl_UniCharToUtfDString) (CONST Tcl_UniChar * uniStr, int uniLength, Tcl_DString * dsPtr); /* 354 */ - Tcl_UniChar * (*tcl_UtfToUniCharDString) (CONST char * src, int length, Tcl_DString * dsPtr); /* 355 */ - Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp * interp, Tcl_Obj * patObj, int flags); /* 356 */ - Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp * interp, Tcl_Token * tokenPtr, int count); /* 357 */ - void (*tcl_FreeParse) (Tcl_Parse * parsePtr); /* 358 */ - void (*tcl_LogCommandInfo) (Tcl_Interp * interp, CONST char * script, CONST char * command, int length); /* 359 */ - int (*tcl_ParseBraces) (Tcl_Interp * interp, CONST char * start, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** termPtr); /* 360 */ - int (*tcl_ParseCommand) (Tcl_Interp * interp, CONST char * start, int numBytes, int nested, Tcl_Parse * parsePtr); /* 361 */ - int (*tcl_ParseExpr) (Tcl_Interp * interp, CONST char * start, int numBytes, Tcl_Parse * parsePtr); /* 362 */ - int (*tcl_ParseQuotedString) (Tcl_Interp * interp, CONST char * start, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** termPtr); /* 363 */ - int (*tcl_ParseVarName) (Tcl_Interp * interp, CONST char * start, int numBytes, Tcl_Parse * parsePtr, int append); /* 364 */ - char * (*tcl_GetCwd) (Tcl_Interp * interp, Tcl_DString * cwdPtr); /* 365 */ - int (*tcl_Chdir) (CONST char * dirName); /* 366 */ - int (*tcl_Access) (CONST char * path, int mode); /* 367 */ - int (*tcl_Stat) (CONST char * path, struct stat * bufPtr); /* 368 */ - int (*tcl_UtfNcmp) (CONST char * s1, CONST char * s2, unsigned long n); /* 369 */ - int (*tcl_UtfNcasecmp) (CONST char * s1, CONST char * s2, unsigned long n); /* 370 */ - int (*tcl_StringCaseMatch) (CONST char * str, CONST char * pattern, int nocase); /* 371 */ - int (*tcl_UniCharIsControl) (int ch); /* 372 */ - int (*tcl_UniCharIsGraph) (int ch); /* 373 */ - int (*tcl_UniCharIsPrint) (int ch); /* 374 */ - int (*tcl_UniCharIsPunct) (int ch); /* 375 */ - int (*tcl_RegExpExecObj) (Tcl_Interp * interp, Tcl_RegExp regexp, Tcl_Obj * textObj, int offset, int nmatches, int flags); /* 376 */ - void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo * infoPtr); /* 377 */ - Tcl_Obj * (*tcl_NewUnicodeObj) (CONST Tcl_UniChar * unicode, int numChars); /* 378 */ - void (*tcl_SetUnicodeObj) (Tcl_Obj * objPtr, CONST Tcl_UniChar * unicode, int numChars); /* 379 */ - int (*tcl_GetCharLength) (Tcl_Obj * objPtr); /* 380 */ - Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj * objPtr, int index); /* 381 */ - Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj * objPtr); /* 382 */ - Tcl_Obj * (*tcl_GetRange) (Tcl_Obj * objPtr, int first, int last); /* 383 */ - void (*tcl_AppendUnicodeToObj) (Tcl_Obj * objPtr, CONST Tcl_UniChar * unicode, int length); /* 384 */ - int (*tcl_RegExpMatchObj) (Tcl_Interp * interp, Tcl_Obj * textObj, Tcl_Obj * patternObj); /* 385 */ - void (*tcl_SetNotifier) (Tcl_NotifierProcs * notifierProcPtr); /* 386 */ - Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */ - int (*tcl_GetChannelNames) (Tcl_Interp * interp); /* 388 */ - int (*tcl_GetChannelNamesEx) (Tcl_Interp * interp, CONST char * pattern); /* 389 */ - int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]); /* 390 */ - void (*tcl_ConditionFinalize) (Tcl_Condition * condPtr); /* 391 */ - void (*tcl_MutexFinalize) (Tcl_Mutex * mutex); /* 392 */ - int (*tcl_CreateThread) (Tcl_ThreadId * idPtr, Tcl_ThreadCreateProc proc, ClientData clientData, int stackSize, int flags); /* 393 */ - int (*tcl_ReadRaw) (Tcl_Channel chan, char * dst, int bytesToRead); /* 394 */ - int (*tcl_WriteRaw) (Tcl_Channel chan, CONST char * src, int srcLen); /* 395 */ - Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */ - int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */ - CONST84_RETURN char * (*tcl_ChannelName) (CONST Tcl_ChannelType * chanTypePtr); /* 398 */ - Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (CONST Tcl_ChannelType * chanTypePtr); /* 399 */ - Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (CONST Tcl_ChannelType * chanTypePtr); /* 400 */ - Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (CONST Tcl_ChannelType * chanTypePtr); /* 401 */ - Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (CONST Tcl_ChannelType * chanTypePtr); /* 402 */ - Tcl_DriverInputProc * (*tcl_ChannelInputProc) (CONST Tcl_ChannelType * chanTypePtr); /* 403 */ - Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (CONST Tcl_ChannelType * chanTypePtr); /* 404 */ - Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (CONST Tcl_ChannelType * chanTypePtr); /* 405 */ - Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (CONST Tcl_ChannelType * chanTypePtr); /* 406 */ - Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (CONST Tcl_ChannelType * chanTypePtr); /* 407 */ - Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (CONST Tcl_ChannelType * chanTypePtr); /* 408 */ - Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (CONST Tcl_ChannelType * chanTypePtr); /* 409 */ - Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (CONST Tcl_ChannelType * chanTypePtr); /* 410 */ - Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (CONST Tcl_ChannelType * chanTypePtr); /* 411 */ - int (*tcl_JoinThread) (Tcl_ThreadId threadId, int* result); /* 412 */ - int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */ - int (*tcl_IsChannelRegistered) (Tcl_Interp* interp, Tcl_Channel channel); /* 414 */ - void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */ - void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */ - void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */ - int (*tcl_IsChannelExisting) (CONST char* channelName); /* 418 */ - int (*tcl_UniCharNcasecmp) (CONST Tcl_UniChar * ucs, CONST Tcl_UniChar * uct, unsigned long numChars); /* 419 */ - int (*tcl_UniCharCaseMatch) (CONST Tcl_UniChar * uniStr, CONST Tcl_UniChar * uniPattern, int nocase); /* 420 */ - Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable * tablePtr, CONST char * key); /* 421 */ - Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable * tablePtr, CONST char * key, int * newPtr); /* 422 */ - void (*tcl_InitCustomHashTable) (Tcl_HashTable * tablePtr, int keyType, Tcl_HashKeyType * typePtr); /* 423 */ - void (*tcl_InitObjHashTable) (Tcl_HashTable * tablePtr); /* 424 */ - ClientData (*tcl_CommandTraceInfo) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData prevClientData); /* 425 */ - int (*tcl_TraceCommand) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); /* 426 */ - void (*tcl_UntraceCommand) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); /* 427 */ - char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */ - char * (*tcl_AttemptDbCkalloc) (unsigned int size, CONST char * file, int line); /* 429 */ - char * (*tcl_AttemptRealloc) (char * ptr, unsigned int size); /* 430 */ - char * (*tcl_AttemptDbCkrealloc) (char * ptr, unsigned int size, CONST char * file, int line); /* 431 */ - int (*tcl_AttemptSetObjLength) (Tcl_Obj * objPtr, int length); /* 432 */ - Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */ - Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj * objPtr, int * lengthPtr); /* 434 */ - int (*tcl_GetMathFuncInfo) (Tcl_Interp * interp, CONST char * name, int * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** procPtr, ClientData * clientDataPtr); /* 435 */ - Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp * interp, CONST char * pattern); /* 436 */ - Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); /* 437 */ - int (*tcl_DetachChannel) (Tcl_Interp* interp, Tcl_Channel channel); /* 438 */ - int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */ - int (*tcl_FSCopyFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /* 440 */ - int (*tcl_FSCopyDirectory) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr); /* 441 */ - int (*tcl_FSCreateDirectory) (Tcl_Obj * pathPtr); /* 442 */ - int (*tcl_FSDeleteFile) (Tcl_Obj * pathPtr); /* 443 */ - int (*tcl_FSLoadFile) (Tcl_Interp * interp, Tcl_Obj * pathPtr, CONST char * sym1, CONST char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, Tcl_LoadHandle * handlePtr, Tcl_FSUnloadFileProc ** unloadProcPtr); /* 444 */ - int (*tcl_FSMatchInDirectory) (Tcl_Interp * interp, Tcl_Obj * result, Tcl_Obj * pathPtr, CONST char * pattern, Tcl_GlobTypeData * types); /* 445 */ - Tcl_Obj * (*tcl_FSLink) (Tcl_Obj * pathPtr, Tcl_Obj * toPtr, int linkAction); /* 446 */ - int (*tcl_FSRemoveDirectory) (Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr); /* 447 */ - int (*tcl_FSRenameFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /* 448 */ - int (*tcl_FSLstat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); /* 449 */ - int (*tcl_FSUtime) (Tcl_Obj * pathPtr, struct utimbuf * tval); /* 450 */ - int (*tcl_FSFileAttrsGet) (Tcl_Interp * interp, int index, Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef); /* 451 */ - int (*tcl_FSFileAttrsSet) (Tcl_Interp * interp, int index, Tcl_Obj * pathPtr, Tcl_Obj * objPtr); /* 452 */ - CONST char ** (*tcl_FSFileAttrStrings) (Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef); /* 453 */ - int (*tcl_FSStat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); /* 454 */ - int (*tcl_FSAccess) (Tcl_Obj * pathPtr, int mode); /* 455 */ - Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp * interp, Tcl_Obj * pathPtr, CONST char * modeString, int permissions); /* 456 */ - Tcl_Obj* (*tcl_FSGetCwd) (Tcl_Interp * interp); /* 457 */ - int (*tcl_FSChdir) (Tcl_Obj * pathPtr); /* 458 */ - int (*tcl_FSConvertToPathType) (Tcl_Interp * interp, Tcl_Obj * pathPtr); /* 459 */ - Tcl_Obj* (*tcl_FSJoinPath) (Tcl_Obj * listObj, int elements); /* 460 */ - Tcl_Obj* (*tcl_FSSplitPath) (Tcl_Obj* pathPtr, int * lenPtr); /* 461 */ - int (*tcl_FSEqualPaths) (Tcl_Obj* firstPtr, Tcl_Obj* secondPtr); /* 462 */ - Tcl_Obj* (*tcl_FSGetNormalizedPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); /* 463 */ - Tcl_Obj* (*tcl_FSJoinToPath) (Tcl_Obj * pathPtr, int objc, Tcl_Obj *CONST objv[]); /* 464 */ - ClientData (*tcl_FSGetInternalRep) (Tcl_Obj* pathPtr, Tcl_Filesystem * fsPtr); /* 465 */ - Tcl_Obj* (*tcl_FSGetTranslatedPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); /* 466 */ - int (*tcl_FSEvalFile) (Tcl_Interp * interp, Tcl_Obj * fileName); /* 467 */ - Tcl_Obj* (*tcl_FSNewNativePath) (Tcl_Filesystem* fromFilesystem, ClientData clientData); /* 468 */ - CONST char* (*tcl_FSGetNativePath) (Tcl_Obj* pathPtr); /* 469 */ - Tcl_Obj* (*tcl_FSFileSystemInfo) (Tcl_Obj* pathPtr); /* 470 */ - Tcl_Obj* (*tcl_FSPathSeparator) (Tcl_Obj* pathPtr); /* 471 */ - Tcl_Obj* (*tcl_FSListVolumes) (void); /* 472 */ - int (*tcl_FSRegister) (ClientData clientData, Tcl_Filesystem * fsPtr); /* 473 */ - int (*tcl_FSUnregister) (Tcl_Filesystem * fsPtr); /* 474 */ - ClientData (*tcl_FSData) (Tcl_Filesystem * fsPtr); /* 475 */ - CONST char* (*tcl_FSGetTranslatedStringPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); /* 476 */ - Tcl_Filesystem* (*tcl_FSGetFileSystemForPath) (Tcl_Obj* pathPtr); /* 477 */ - Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj * pathPtr); /* 478 */ - int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */ - void (*tcl_FSMountsChanged) (Tcl_Filesystem * fsPtr); /* 480 */ - int (*tcl_EvalTokensStandard) (Tcl_Interp * interp, Tcl_Token * tokenPtr, int count); /* 481 */ - void (*tcl_GetTime) (Tcl_Time* timeBuf); /* 482 */ - Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp* interp, int level, int flags, Tcl_CmdObjTraceProc* objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc* delProc); /* 483 */ - int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo* infoPtr); /* 484 */ - int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, CONST Tcl_CmdInfo* infoPtr); /* 485 */ - Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, CONST char * file, int line); /* 486 */ - int (*tcl_GetWideIntFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_WideInt * widePtr); /* 487 */ - Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */ - void (*tcl_SetWideIntObj) (Tcl_Obj * objPtr, Tcl_WideInt wideValue); /* 489 */ - Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */ - Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */ - Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */ - Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (CONST Tcl_ChannelType * chanTypePtr); /* 493 */ - int (*tcl_DictObjPut) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_Obj * keyPtr, Tcl_Obj * valuePtr); /* 494 */ - int (*tcl_DictObjGet) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_Obj * keyPtr, Tcl_Obj ** valuePtrPtr); /* 495 */ - int (*tcl_DictObjRemove) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_Obj * keyPtr); /* 496 */ - int (*tcl_DictObjSize) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int * sizePtr); /* 497 */ - int (*tcl_DictObjFirst) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_DictSearch * searchPtr, Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr, int * donePtr); /* 498 */ - void (*tcl_DictObjNext) (Tcl_DictSearch * searchPtr, Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr, int * donePtr); /* 499 */ - void (*tcl_DictObjDone) (Tcl_DictSearch * searchPtr); /* 500 */ - int (*tcl_DictObjPutKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int keyc, Tcl_Obj *CONST * keyv, Tcl_Obj * valuePtr); /* 501 */ - int (*tcl_DictObjRemoveKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int keyc, Tcl_Obj *CONST * keyv); /* 502 */ - Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */ - Tcl_Obj * (*tcl_DbNewDictObj) (CONST char * file, int line); /* 504 */ - void (*tcl_RegisterConfig) (Tcl_Interp* interp, CONST char* pkgName, Tcl_Config* configuration, CONST char* valEncoding); /* 505 */ - Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); /* 506 */ - void (*tcl_DeleteNamespace) (Tcl_Namespace * nsPtr); /* 507 */ - int (*tcl_AppendExportList) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); /* 508 */ - int (*tcl_Export) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst); /* 509 */ - int (*tcl_Import) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite); /* 510 */ - int (*tcl_ForgetImport) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern); /* 511 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp * interp); /* 512 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp * interp); /* 513 */ - Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 514 */ - Tcl_Command (*tcl_FindCommand) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 515 */ - Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 516 */ - void (*tcl_GetCommandFullName) (Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr); /* 517 */ - int (*tcl_FSEvalFileEx) (Tcl_Interp * interp, Tcl_Obj * fileName, CONST char * encodingName); /* 518 */ - Tcl_ExitProc * (*tcl_SetExitProc) (Tcl_ExitProc * proc); /* 519 */ - void (*tcl_LimitAddHandler) (Tcl_Interp * interp, int type, Tcl_LimitHandlerProc * handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc * deleteProc); /* 520 */ - void (*tcl_LimitRemoveHandler) (Tcl_Interp * interp, int type, Tcl_LimitHandlerProc * handlerProc, ClientData clientData); /* 521 */ - int (*tcl_LimitReady) (Tcl_Interp * interp); /* 522 */ - int (*tcl_LimitCheck) (Tcl_Interp * interp); /* 523 */ - int (*tcl_LimitExceeded) (Tcl_Interp * interp); /* 524 */ - void (*tcl_LimitSetCommands) (Tcl_Interp * interp, int commandLimit); /* 525 */ - void (*tcl_LimitSetTime) (Tcl_Interp * interp, Tcl_Time * timeLimitPtr); /* 526 */ - void (*tcl_LimitSetGranularity) (Tcl_Interp * interp, int type, int granularity); /* 527 */ - int (*tcl_LimitTypeEnabled) (Tcl_Interp * interp, int type); /* 528 */ - int (*tcl_LimitTypeExceeded) (Tcl_Interp * interp, int type); /* 529 */ - void (*tcl_LimitTypeSet) (Tcl_Interp * interp, int type); /* 530 */ - void (*tcl_LimitTypeReset) (Tcl_Interp * interp, int type); /* 531 */ - int (*tcl_LimitGetCommands) (Tcl_Interp * interp); /* 532 */ - void (*tcl_LimitGetTime) (Tcl_Interp * interp, Tcl_Time * timeLimitPtr); /* 533 */ - int (*tcl_LimitGetGranularity) (Tcl_Interp * interp, int type); /* 534 */ - Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp * interp, int status); /* 535 */ - int (*tcl_RestoreInterpState) (Tcl_Interp * interp, Tcl_InterpState state); /* 536 */ - void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */ - int (*tcl_SetReturnOptions) (Tcl_Interp * interp, Tcl_Obj * options); /* 538 */ - Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp * interp, int result); /* 539 */ - int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */ - Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * namespacePtr, int flags); /* 541 */ - Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp * interp, Tcl_Obj * cmdNameObj, int flags); /* 542 */ - int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp * interp, Tcl_Command token, Tcl_Obj * subcmdList); /* 543 */ - int (*tcl_SetEnsembleMappingDict) (Tcl_Interp * interp, Tcl_Command token, Tcl_Obj * mapDict); /* 544 */ - int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp * interp, Tcl_Command token, Tcl_Obj * unknownList); /* 545 */ - int (*tcl_SetEnsembleFlags) (Tcl_Interp * interp, Tcl_Command token, int flags); /* 546 */ - int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp * interp, Tcl_Command token, Tcl_Obj ** subcmdListPtr); /* 547 */ - int (*tcl_GetEnsembleMappingDict) (Tcl_Interp * interp, Tcl_Command token, Tcl_Obj ** mapDictPtr); /* 548 */ - int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp * interp, Tcl_Command token, Tcl_Obj ** unknownListPtr); /* 549 */ - int (*tcl_GetEnsembleFlags) (Tcl_Interp * interp, Tcl_Command token, int * flagsPtr); /* 550 */ - int (*tcl_GetEnsembleNamespace) (Tcl_Interp * interp, Tcl_Command token, Tcl_Namespace ** namespacePtrPtr); /* 551 */ - void (*tcl_SetTimeProc) (Tcl_GetTimeProc* getProc, Tcl_ScaleTimeProc* scaleProc, ClientData clientData); /* 552 */ - void (*tcl_QueryTimeProc) (Tcl_GetTimeProc** getProc, Tcl_ScaleTimeProc** scaleProc, ClientData* clientData); /* 553 */ - Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (CONST Tcl_ChannelType * chanTypePtr); /* 554 */ - Tcl_Obj* (*tcl_NewBignumObj) (mp_int* value); /* 555 */ - Tcl_Obj* (*tcl_DbNewBignumObj) (mp_int* value, CONST char* file, int line); /* 556 */ - void (*tcl_SetBignumObj) (Tcl_Obj* obj, mp_int* value); /* 557 */ - int (*tcl_GetBignumFromObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); /* 558 */ - int (*tcl_TakeBignumFromObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); /* 559 */ - int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */ - Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (CONST Tcl_ChannelType * chanTypePtr); /* 561 */ - void (*tcl_SetChannelErrorInterp) (Tcl_Interp* interp, Tcl_Obj* msg); /* 562 */ - void (*tcl_GetChannelErrorInterp) (Tcl_Interp* interp, Tcl_Obj** msg); /* 563 */ - void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj* msg); /* 564 */ - void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj** msg); /* 565 */ - int (*tcl_InitBignumFromDouble) (Tcl_Interp* interp, double initval, mp_int * toInit); /* 566 */ - Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp * interp, Tcl_Namespace * nsPtr); /* 567 */ - int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * handlerPtr); /* 568 */ - int (*tcl_GetEncodingFromObj) (Tcl_Interp* interp, Tcl_Obj* objPtr, Tcl_Encoding* encodingPtr); /* 569 */ - Tcl_Obj* (*tcl_GetEncodingSearchPath) (void); /* 570 */ - int (*tcl_SetEncodingSearchPath) (Tcl_Obj* searchPath); /* 571 */ - CONST char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString* bufPtr); /* 572 */ - int (*tcl_PkgRequireProc) (Tcl_Interp * interp, CONST char * name, int objc, Tcl_Obj *CONST objv[], ClientData * clientDataPtr); /* 573 */ - void (*tcl_AppendObjToErrorInfo) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 574 */ - void (*tcl_AppendLimitedToObj) (Tcl_Obj * objPtr, CONST char * bytes, int length, int limit, CONST char * ellipsis); /* 575 */ - Tcl_Obj * (*tcl_Format) (Tcl_Interp * interp, CONST char * format, int objc, Tcl_Obj * CONST objv[]); /* 576 */ - int (*tcl_AppendFormatToObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST char * format, int objc, Tcl_Obj * CONST objv[]); /* 577 */ - Tcl_Obj * (*tcl_ObjPrintf) (CONST char * format, ...); /* 578 */ - void (*tcl_AppendPrintfToObj) (Tcl_Obj * objPtr, CONST char * format, ...); /* 579 */ -} TclStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TclStubs *tclStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef Tcl_PkgProvideEx -#define Tcl_PkgProvideEx \ - (tclStubsPtr->tcl_PkgProvideEx) /* 0 */ -#endif -#ifndef Tcl_PkgRequireEx -#define Tcl_PkgRequireEx \ - (tclStubsPtr->tcl_PkgRequireEx) /* 1 */ -#endif -#ifndef Tcl_Panic -#define Tcl_Panic \ - (tclStubsPtr->tcl_Panic) /* 2 */ -#endif -#ifndef Tcl_Alloc -#define Tcl_Alloc \ - (tclStubsPtr->tcl_Alloc) /* 3 */ -#endif -#ifndef Tcl_Free -#define Tcl_Free \ - (tclStubsPtr->tcl_Free) /* 4 */ -#endif -#ifndef Tcl_Realloc -#define Tcl_Realloc \ - (tclStubsPtr->tcl_Realloc) /* 5 */ -#endif -#ifndef Tcl_DbCkalloc -#define Tcl_DbCkalloc \ - (tclStubsPtr->tcl_DbCkalloc) /* 6 */ -#endif -#ifndef Tcl_DbCkfree -#define Tcl_DbCkfree \ - (tclStubsPtr->tcl_DbCkfree) /* 7 */ -#endif -#ifndef Tcl_DbCkrealloc -#define Tcl_DbCkrealloc \ - (tclStubsPtr->tcl_DbCkrealloc) /* 8 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_CreateFileHandler -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_CreateFileHandler -#define Tcl_CreateFileHandler \ - (tclStubsPtr->tcl_CreateFileHandler) /* 9 */ -#endif -#endif /* MACOSX */ -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_DeleteFileHandler -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_DeleteFileHandler -#define Tcl_DeleteFileHandler \ - (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */ -#endif -#endif /* MACOSX */ -#ifndef Tcl_SetTimer -#define Tcl_SetTimer \ - (tclStubsPtr->tcl_SetTimer) /* 11 */ -#endif -#ifndef Tcl_Sleep -#define Tcl_Sleep \ - (tclStubsPtr->tcl_Sleep) /* 12 */ -#endif -#ifndef Tcl_WaitForEvent -#define Tcl_WaitForEvent \ - (tclStubsPtr->tcl_WaitForEvent) /* 13 */ -#endif -#ifndef Tcl_AppendAllObjTypes -#define Tcl_AppendAllObjTypes \ - (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */ -#endif -#ifndef Tcl_AppendStringsToObj -#define Tcl_AppendStringsToObj \ - (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ -#endif -#ifndef Tcl_AppendToObj -#define Tcl_AppendToObj \ - (tclStubsPtr->tcl_AppendToObj) /* 16 */ -#endif -#ifndef Tcl_ConcatObj -#define Tcl_ConcatObj \ - (tclStubsPtr->tcl_ConcatObj) /* 17 */ -#endif -#ifndef Tcl_ConvertToType -#define Tcl_ConvertToType \ - (tclStubsPtr->tcl_ConvertToType) /* 18 */ -#endif -#ifndef Tcl_DbDecrRefCount -#define Tcl_DbDecrRefCount \ - (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */ -#endif -#ifndef Tcl_DbIncrRefCount -#define Tcl_DbIncrRefCount \ - (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */ -#endif -#ifndef Tcl_DbIsShared -#define Tcl_DbIsShared \ - (tclStubsPtr->tcl_DbIsShared) /* 21 */ -#endif -#ifndef Tcl_DbNewBooleanObj -#define Tcl_DbNewBooleanObj \ - (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */ -#endif -#ifndef Tcl_DbNewByteArrayObj -#define Tcl_DbNewByteArrayObj \ - (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */ -#endif -#ifndef Tcl_DbNewDoubleObj -#define Tcl_DbNewDoubleObj \ - (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */ -#endif -#ifndef Tcl_DbNewListObj -#define Tcl_DbNewListObj \ - (tclStubsPtr->tcl_DbNewListObj) /* 25 */ -#endif -#ifndef Tcl_DbNewLongObj -#define Tcl_DbNewLongObj \ - (tclStubsPtr->tcl_DbNewLongObj) /* 26 */ -#endif -#ifndef Tcl_DbNewObj -#define Tcl_DbNewObj \ - (tclStubsPtr->tcl_DbNewObj) /* 27 */ -#endif -#ifndef Tcl_DbNewStringObj -#define Tcl_DbNewStringObj \ - (tclStubsPtr->tcl_DbNewStringObj) /* 28 */ -#endif -#ifndef Tcl_DuplicateObj -#define Tcl_DuplicateObj \ - (tclStubsPtr->tcl_DuplicateObj) /* 29 */ -#endif -#ifndef TclFreeObj -#define TclFreeObj \ - (tclStubsPtr->tclFreeObj) /* 30 */ -#endif -#ifndef Tcl_GetBoolean -#define Tcl_GetBoolean \ - (tclStubsPtr->tcl_GetBoolean) /* 31 */ -#endif -#ifndef Tcl_GetBooleanFromObj -#define Tcl_GetBooleanFromObj \ - (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */ -#endif -#ifndef Tcl_GetByteArrayFromObj -#define Tcl_GetByteArrayFromObj \ - (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */ -#endif -#ifndef Tcl_GetDouble -#define Tcl_GetDouble \ - (tclStubsPtr->tcl_GetDouble) /* 34 */ -#endif -#ifndef Tcl_GetDoubleFromObj -#define Tcl_GetDoubleFromObj \ - (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */ -#endif -#ifndef Tcl_GetIndexFromObj -#define Tcl_GetIndexFromObj \ - (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */ -#endif -#ifndef Tcl_GetInt -#define Tcl_GetInt \ - (tclStubsPtr->tcl_GetInt) /* 37 */ -#endif -#ifndef Tcl_GetIntFromObj -#define Tcl_GetIntFromObj \ - (tclStubsPtr->tcl_GetIntFromObj) /* 38 */ -#endif -#ifndef Tcl_GetLongFromObj -#define Tcl_GetLongFromObj \ - (tclStubsPtr->tcl_GetLongFromObj) /* 39 */ -#endif -#ifndef Tcl_GetObjType -#define Tcl_GetObjType \ - (tclStubsPtr->tcl_GetObjType) /* 40 */ -#endif -#ifndef Tcl_GetStringFromObj -#define Tcl_GetStringFromObj \ - (tclStubsPtr->tcl_GetStringFromObj) /* 41 */ -#endif -#ifndef Tcl_InvalidateStringRep -#define Tcl_InvalidateStringRep \ - (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */ -#endif -#ifndef Tcl_ListObjAppendList -#define Tcl_ListObjAppendList \ - (tclStubsPtr->tcl_ListObjAppendList) /* 43 */ -#endif -#ifndef Tcl_ListObjAppendElement -#define Tcl_ListObjAppendElement \ - (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */ -#endif -#ifndef Tcl_ListObjGetElements -#define Tcl_ListObjGetElements \ - (tclStubsPtr->tcl_ListObjGetElements) /* 45 */ -#endif -#ifndef Tcl_ListObjIndex -#define Tcl_ListObjIndex \ - (tclStubsPtr->tcl_ListObjIndex) /* 46 */ -#endif -#ifndef Tcl_ListObjLength -#define Tcl_ListObjLength \ - (tclStubsPtr->tcl_ListObjLength) /* 47 */ -#endif -#ifndef Tcl_ListObjReplace -#define Tcl_ListObjReplace \ - (tclStubsPtr->tcl_ListObjReplace) /* 48 */ -#endif -#ifndef Tcl_NewBooleanObj -#define Tcl_NewBooleanObj \ - (tclStubsPtr->tcl_NewBooleanObj) /* 49 */ -#endif -#ifndef Tcl_NewByteArrayObj -#define Tcl_NewByteArrayObj \ - (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */ -#endif -#ifndef Tcl_NewDoubleObj -#define Tcl_NewDoubleObj \ - (tclStubsPtr->tcl_NewDoubleObj) /* 51 */ -#endif -#ifndef Tcl_NewIntObj -#define Tcl_NewIntObj \ - (tclStubsPtr->tcl_NewIntObj) /* 52 */ -#endif -#ifndef Tcl_NewListObj -#define Tcl_NewListObj \ - (tclStubsPtr->tcl_NewListObj) /* 53 */ -#endif -#ifndef Tcl_NewLongObj -#define Tcl_NewLongObj \ - (tclStubsPtr->tcl_NewLongObj) /* 54 */ -#endif -#ifndef Tcl_NewObj -#define Tcl_NewObj \ - (tclStubsPtr->tcl_NewObj) /* 55 */ -#endif -#ifndef Tcl_NewStringObj -#define Tcl_NewStringObj \ - (tclStubsPtr->tcl_NewStringObj) /* 56 */ -#endif -#ifndef Tcl_SetBooleanObj -#define Tcl_SetBooleanObj \ - (tclStubsPtr->tcl_SetBooleanObj) /* 57 */ -#endif -#ifndef Tcl_SetByteArrayLength -#define Tcl_SetByteArrayLength \ - (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */ -#endif -#ifndef Tcl_SetByteArrayObj -#define Tcl_SetByteArrayObj \ - (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */ -#endif -#ifndef Tcl_SetDoubleObj -#define Tcl_SetDoubleObj \ - (tclStubsPtr->tcl_SetDoubleObj) /* 60 */ -#endif -#ifndef Tcl_SetIntObj -#define Tcl_SetIntObj \ - (tclStubsPtr->tcl_SetIntObj) /* 61 */ -#endif -#ifndef Tcl_SetListObj -#define Tcl_SetListObj \ - (tclStubsPtr->tcl_SetListObj) /* 62 */ -#endif -#ifndef Tcl_SetLongObj -#define Tcl_SetLongObj \ - (tclStubsPtr->tcl_SetLongObj) /* 63 */ -#endif -#ifndef Tcl_SetObjLength -#define Tcl_SetObjLength \ - (tclStubsPtr->tcl_SetObjLength) /* 64 */ -#endif -#ifndef Tcl_SetStringObj -#define Tcl_SetStringObj \ - (tclStubsPtr->tcl_SetStringObj) /* 65 */ -#endif -#ifndef Tcl_AddErrorInfo -#define Tcl_AddErrorInfo \ - (tclStubsPtr->tcl_AddErrorInfo) /* 66 */ -#endif -#ifndef Tcl_AddObjErrorInfo -#define Tcl_AddObjErrorInfo \ - (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */ -#endif -#ifndef Tcl_AllowExceptions -#define Tcl_AllowExceptions \ - (tclStubsPtr->tcl_AllowExceptions) /* 68 */ -#endif -#ifndef Tcl_AppendElement -#define Tcl_AppendElement \ - (tclStubsPtr->tcl_AppendElement) /* 69 */ -#endif -#ifndef Tcl_AppendResult -#define Tcl_AppendResult \ - (tclStubsPtr->tcl_AppendResult) /* 70 */ -#endif -#ifndef Tcl_AsyncCreate -#define Tcl_AsyncCreate \ - (tclStubsPtr->tcl_AsyncCreate) /* 71 */ -#endif -#ifndef Tcl_AsyncDelete -#define Tcl_AsyncDelete \ - (tclStubsPtr->tcl_AsyncDelete) /* 72 */ -#endif -#ifndef Tcl_AsyncInvoke -#define Tcl_AsyncInvoke \ - (tclStubsPtr->tcl_AsyncInvoke) /* 73 */ -#endif -#ifndef Tcl_AsyncMark -#define Tcl_AsyncMark \ - (tclStubsPtr->tcl_AsyncMark) /* 74 */ -#endif -#ifndef Tcl_AsyncReady -#define Tcl_AsyncReady \ - (tclStubsPtr->tcl_AsyncReady) /* 75 */ -#endif -#ifndef Tcl_BackgroundError -#define Tcl_BackgroundError \ - (tclStubsPtr->tcl_BackgroundError) /* 76 */ -#endif -#ifndef Tcl_Backslash -#define Tcl_Backslash \ - (tclStubsPtr->tcl_Backslash) /* 77 */ -#endif -#ifndef Tcl_BadChannelOption -#define Tcl_BadChannelOption \ - (tclStubsPtr->tcl_BadChannelOption) /* 78 */ -#endif -#ifndef Tcl_CallWhenDeleted -#define Tcl_CallWhenDeleted \ - (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */ -#endif -#ifndef Tcl_CancelIdleCall -#define Tcl_CancelIdleCall \ - (tclStubsPtr->tcl_CancelIdleCall) /* 80 */ -#endif -#ifndef Tcl_Close -#define Tcl_Close \ - (tclStubsPtr->tcl_Close) /* 81 */ -#endif -#ifndef Tcl_CommandComplete -#define Tcl_CommandComplete \ - (tclStubsPtr->tcl_CommandComplete) /* 82 */ -#endif -#ifndef Tcl_Concat -#define Tcl_Concat \ - (tclStubsPtr->tcl_Concat) /* 83 */ -#endif -#ifndef Tcl_ConvertElement -#define Tcl_ConvertElement \ - (tclStubsPtr->tcl_ConvertElement) /* 84 */ -#endif -#ifndef Tcl_ConvertCountedElement -#define Tcl_ConvertCountedElement \ - (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */ -#endif -#ifndef Tcl_CreateAlias -#define Tcl_CreateAlias \ - (tclStubsPtr->tcl_CreateAlias) /* 86 */ -#endif -#ifndef Tcl_CreateAliasObj -#define Tcl_CreateAliasObj \ - (tclStubsPtr->tcl_CreateAliasObj) /* 87 */ -#endif -#ifndef Tcl_CreateChannel -#define Tcl_CreateChannel \ - (tclStubsPtr->tcl_CreateChannel) /* 88 */ -#endif -#ifndef Tcl_CreateChannelHandler -#define Tcl_CreateChannelHandler \ - (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */ -#endif -#ifndef Tcl_CreateCloseHandler -#define Tcl_CreateCloseHandler \ - (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */ -#endif -#ifndef Tcl_CreateCommand -#define Tcl_CreateCommand \ - (tclStubsPtr->tcl_CreateCommand) /* 91 */ -#endif -#ifndef Tcl_CreateEventSource -#define Tcl_CreateEventSource \ - (tclStubsPtr->tcl_CreateEventSource) /* 92 */ -#endif -#ifndef Tcl_CreateExitHandler -#define Tcl_CreateExitHandler \ - (tclStubsPtr->tcl_CreateExitHandler) /* 93 */ -#endif -#ifndef Tcl_CreateInterp -#define Tcl_CreateInterp \ - (tclStubsPtr->tcl_CreateInterp) /* 94 */ -#endif -#ifndef Tcl_CreateMathFunc -#define Tcl_CreateMathFunc \ - (tclStubsPtr->tcl_CreateMathFunc) /* 95 */ -#endif -#ifndef Tcl_CreateObjCommand -#define Tcl_CreateObjCommand \ - (tclStubsPtr->tcl_CreateObjCommand) /* 96 */ -#endif -#ifndef Tcl_CreateSlave -#define Tcl_CreateSlave \ - (tclStubsPtr->tcl_CreateSlave) /* 97 */ -#endif -#ifndef Tcl_CreateTimerHandler -#define Tcl_CreateTimerHandler \ - (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */ -#endif -#ifndef Tcl_CreateTrace -#define Tcl_CreateTrace \ - (tclStubsPtr->tcl_CreateTrace) /* 99 */ -#endif -#ifndef Tcl_DeleteAssocData -#define Tcl_DeleteAssocData \ - (tclStubsPtr->tcl_DeleteAssocData) /* 100 */ -#endif -#ifndef Tcl_DeleteChannelHandler -#define Tcl_DeleteChannelHandler \ - (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */ -#endif -#ifndef Tcl_DeleteCloseHandler -#define Tcl_DeleteCloseHandler \ - (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */ -#endif -#ifndef Tcl_DeleteCommand -#define Tcl_DeleteCommand \ - (tclStubsPtr->tcl_DeleteCommand) /* 103 */ -#endif -#ifndef Tcl_DeleteCommandFromToken -#define Tcl_DeleteCommandFromToken \ - (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */ -#endif -#ifndef Tcl_DeleteEvents -#define Tcl_DeleteEvents \ - (tclStubsPtr->tcl_DeleteEvents) /* 105 */ -#endif -#ifndef Tcl_DeleteEventSource -#define Tcl_DeleteEventSource \ - (tclStubsPtr->tcl_DeleteEventSource) /* 106 */ -#endif -#ifndef Tcl_DeleteExitHandler -#define Tcl_DeleteExitHandler \ - (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */ -#endif -#ifndef Tcl_DeleteHashEntry -#define Tcl_DeleteHashEntry \ - (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ -#endif -#ifndef Tcl_DeleteHashTable -#define Tcl_DeleteHashTable \ - (tclStubsPtr->tcl_DeleteHashTable) /* 109 */ -#endif -#ifndef Tcl_DeleteInterp -#define Tcl_DeleteInterp \ - (tclStubsPtr->tcl_DeleteInterp) /* 110 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_DetachPids -#define Tcl_DetachPids \ - (tclStubsPtr->tcl_DetachPids) /* 111 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ -#ifndef Tcl_DetachPids -#define Tcl_DetachPids \ - (tclStubsPtr->tcl_DetachPids) /* 111 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_DetachPids -#define Tcl_DetachPids \ - (tclStubsPtr->tcl_DetachPids) /* 111 */ -#endif -#endif /* MACOSX */ -#ifndef Tcl_DeleteTimerHandler -#define Tcl_DeleteTimerHandler \ - (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ -#endif -#ifndef Tcl_DeleteTrace -#define Tcl_DeleteTrace \ - (tclStubsPtr->tcl_DeleteTrace) /* 113 */ -#endif -#ifndef Tcl_DontCallWhenDeleted -#define Tcl_DontCallWhenDeleted \ - (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */ -#endif -#ifndef Tcl_DoOneEvent -#define Tcl_DoOneEvent \ - (tclStubsPtr->tcl_DoOneEvent) /* 115 */ -#endif -#ifndef Tcl_DoWhenIdle -#define Tcl_DoWhenIdle \ - (tclStubsPtr->tcl_DoWhenIdle) /* 116 */ -#endif -#ifndef Tcl_DStringAppend -#define Tcl_DStringAppend \ - (tclStubsPtr->tcl_DStringAppend) /* 117 */ -#endif -#ifndef Tcl_DStringAppendElement -#define Tcl_DStringAppendElement \ - (tclStubsPtr->tcl_DStringAppendElement) /* 118 */ -#endif -#ifndef Tcl_DStringEndSublist -#define Tcl_DStringEndSublist \ - (tclStubsPtr->tcl_DStringEndSublist) /* 119 */ -#endif -#ifndef Tcl_DStringFree -#define Tcl_DStringFree \ - (tclStubsPtr->tcl_DStringFree) /* 120 */ -#endif -#ifndef Tcl_DStringGetResult -#define Tcl_DStringGetResult \ - (tclStubsPtr->tcl_DStringGetResult) /* 121 */ -#endif -#ifndef Tcl_DStringInit -#define Tcl_DStringInit \ - (tclStubsPtr->tcl_DStringInit) /* 122 */ -#endif -#ifndef Tcl_DStringResult -#define Tcl_DStringResult \ - (tclStubsPtr->tcl_DStringResult) /* 123 */ -#endif -#ifndef Tcl_DStringSetLength -#define Tcl_DStringSetLength \ - (tclStubsPtr->tcl_DStringSetLength) /* 124 */ -#endif -#ifndef Tcl_DStringStartSublist -#define Tcl_DStringStartSublist \ - (tclStubsPtr->tcl_DStringStartSublist) /* 125 */ -#endif -#ifndef Tcl_Eof -#define Tcl_Eof \ - (tclStubsPtr->tcl_Eof) /* 126 */ -#endif -#ifndef Tcl_ErrnoId -#define Tcl_ErrnoId \ - (tclStubsPtr->tcl_ErrnoId) /* 127 */ -#endif -#ifndef Tcl_ErrnoMsg -#define Tcl_ErrnoMsg \ - (tclStubsPtr->tcl_ErrnoMsg) /* 128 */ -#endif -#ifndef Tcl_Eval -#define Tcl_Eval \ - (tclStubsPtr->tcl_Eval) /* 129 */ -#endif -#ifndef Tcl_EvalFile -#define Tcl_EvalFile \ - (tclStubsPtr->tcl_EvalFile) /* 130 */ -#endif -#ifndef Tcl_EvalObj -#define Tcl_EvalObj \ - (tclStubsPtr->tcl_EvalObj) /* 131 */ -#endif -#ifndef Tcl_EventuallyFree -#define Tcl_EventuallyFree \ - (tclStubsPtr->tcl_EventuallyFree) /* 132 */ -#endif -#ifndef Tcl_Exit -#define Tcl_Exit \ - (tclStubsPtr->tcl_Exit) /* 133 */ -#endif -#ifndef Tcl_ExposeCommand -#define Tcl_ExposeCommand \ - (tclStubsPtr->tcl_ExposeCommand) /* 134 */ -#endif -#ifndef Tcl_ExprBoolean -#define Tcl_ExprBoolean \ - (tclStubsPtr->tcl_ExprBoolean) /* 135 */ -#endif -#ifndef Tcl_ExprBooleanObj -#define Tcl_ExprBooleanObj \ - (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */ -#endif -#ifndef Tcl_ExprDouble -#define Tcl_ExprDouble \ - (tclStubsPtr->tcl_ExprDouble) /* 137 */ -#endif -#ifndef Tcl_ExprDoubleObj -#define Tcl_ExprDoubleObj \ - (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */ -#endif -#ifndef Tcl_ExprLong -#define Tcl_ExprLong \ - (tclStubsPtr->tcl_ExprLong) /* 139 */ -#endif -#ifndef Tcl_ExprLongObj -#define Tcl_ExprLongObj \ - (tclStubsPtr->tcl_ExprLongObj) /* 140 */ -#endif -#ifndef Tcl_ExprObj -#define Tcl_ExprObj \ - (tclStubsPtr->tcl_ExprObj) /* 141 */ -#endif -#ifndef Tcl_ExprString -#define Tcl_ExprString \ - (tclStubsPtr->tcl_ExprString) /* 142 */ -#endif -#ifndef Tcl_Finalize -#define Tcl_Finalize \ - (tclStubsPtr->tcl_Finalize) /* 143 */ -#endif -#ifndef Tcl_FindExecutable -#define Tcl_FindExecutable \ - (tclStubsPtr->tcl_FindExecutable) /* 144 */ -#endif -#ifndef Tcl_FirstHashEntry -#define Tcl_FirstHashEntry \ - (tclStubsPtr->tcl_FirstHashEntry) /* 145 */ -#endif -#ifndef Tcl_Flush -#define Tcl_Flush \ - (tclStubsPtr->tcl_Flush) /* 146 */ -#endif -#ifndef Tcl_FreeResult -#define Tcl_FreeResult \ - (tclStubsPtr->tcl_FreeResult) /* 147 */ -#endif -#ifndef Tcl_GetAlias -#define Tcl_GetAlias \ - (tclStubsPtr->tcl_GetAlias) /* 148 */ -#endif -#ifndef Tcl_GetAliasObj -#define Tcl_GetAliasObj \ - (tclStubsPtr->tcl_GetAliasObj) /* 149 */ -#endif -#ifndef Tcl_GetAssocData -#define Tcl_GetAssocData \ - (tclStubsPtr->tcl_GetAssocData) /* 150 */ -#endif -#ifndef Tcl_GetChannel -#define Tcl_GetChannel \ - (tclStubsPtr->tcl_GetChannel) /* 151 */ -#endif -#ifndef Tcl_GetChannelBufferSize -#define Tcl_GetChannelBufferSize \ - (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */ -#endif -#ifndef Tcl_GetChannelHandle -#define Tcl_GetChannelHandle \ - (tclStubsPtr->tcl_GetChannelHandle) /* 153 */ -#endif -#ifndef Tcl_GetChannelInstanceData -#define Tcl_GetChannelInstanceData \ - (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */ -#endif -#ifndef Tcl_GetChannelMode -#define Tcl_GetChannelMode \ - (tclStubsPtr->tcl_GetChannelMode) /* 155 */ -#endif -#ifndef Tcl_GetChannelName -#define Tcl_GetChannelName \ - (tclStubsPtr->tcl_GetChannelName) /* 156 */ -#endif -#ifndef Tcl_GetChannelOption -#define Tcl_GetChannelOption \ - (tclStubsPtr->tcl_GetChannelOption) /* 157 */ -#endif -#ifndef Tcl_GetChannelType -#define Tcl_GetChannelType \ - (tclStubsPtr->tcl_GetChannelType) /* 158 */ -#endif -#ifndef Tcl_GetCommandInfo -#define Tcl_GetCommandInfo \ - (tclStubsPtr->tcl_GetCommandInfo) /* 159 */ -#endif -#ifndef Tcl_GetCommandName -#define Tcl_GetCommandName \ - (tclStubsPtr->tcl_GetCommandName) /* 160 */ -#endif -#ifndef Tcl_GetErrno -#define Tcl_GetErrno \ - (tclStubsPtr->tcl_GetErrno) /* 161 */ -#endif -#ifndef Tcl_GetHostName -#define Tcl_GetHostName \ - (tclStubsPtr->tcl_GetHostName) /* 162 */ -#endif -#ifndef Tcl_GetInterpPath -#define Tcl_GetInterpPath \ - (tclStubsPtr->tcl_GetInterpPath) /* 163 */ -#endif -#ifndef Tcl_GetMaster -#define Tcl_GetMaster \ - (tclStubsPtr->tcl_GetMaster) /* 164 */ -#endif -#ifndef Tcl_GetNameOfExecutable -#define Tcl_GetNameOfExecutable \ - (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */ -#endif -#ifndef Tcl_GetObjResult -#define Tcl_GetObjResult \ - (tclStubsPtr->tcl_GetObjResult) /* 166 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_GetOpenFile -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif -#endif /* UNIX */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_GetOpenFile -#define Tcl_GetOpenFile \ - (tclStubsPtr->tcl_GetOpenFile) /* 167 */ -#endif -#endif /* MACOSX */ -#ifndef Tcl_GetPathType -#define Tcl_GetPathType \ - (tclStubsPtr->tcl_GetPathType) /* 168 */ -#endif -#ifndef Tcl_Gets -#define Tcl_Gets \ - (tclStubsPtr->tcl_Gets) /* 169 */ -#endif -#ifndef Tcl_GetsObj -#define Tcl_GetsObj \ - (tclStubsPtr->tcl_GetsObj) /* 170 */ -#endif -#ifndef Tcl_GetServiceMode -#define Tcl_GetServiceMode \ - (tclStubsPtr->tcl_GetServiceMode) /* 171 */ -#endif -#ifndef Tcl_GetSlave -#define Tcl_GetSlave \ - (tclStubsPtr->tcl_GetSlave) /* 172 */ -#endif -#ifndef Tcl_GetStdChannel -#define Tcl_GetStdChannel \ - (tclStubsPtr->tcl_GetStdChannel) /* 173 */ -#endif -#ifndef Tcl_GetStringResult -#define Tcl_GetStringResult \ - (tclStubsPtr->tcl_GetStringResult) /* 174 */ -#endif -#ifndef Tcl_GetVar -#define Tcl_GetVar \ - (tclStubsPtr->tcl_GetVar) /* 175 */ -#endif -#ifndef Tcl_GetVar2 -#define Tcl_GetVar2 \ - (tclStubsPtr->tcl_GetVar2) /* 176 */ -#endif -#ifndef Tcl_GlobalEval -#define Tcl_GlobalEval \ - (tclStubsPtr->tcl_GlobalEval) /* 177 */ -#endif -#ifndef Tcl_GlobalEvalObj -#define Tcl_GlobalEvalObj \ - (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */ -#endif -#ifndef Tcl_HideCommand -#define Tcl_HideCommand \ - (tclStubsPtr->tcl_HideCommand) /* 179 */ -#endif -#ifndef Tcl_Init -#define Tcl_Init \ - (tclStubsPtr->tcl_Init) /* 180 */ -#endif -#ifndef Tcl_InitHashTable -#define Tcl_InitHashTable \ - (tclStubsPtr->tcl_InitHashTable) /* 181 */ -#endif -#ifndef Tcl_InputBlocked -#define Tcl_InputBlocked \ - (tclStubsPtr->tcl_InputBlocked) /* 182 */ -#endif -#ifndef Tcl_InputBuffered -#define Tcl_InputBuffered \ - (tclStubsPtr->tcl_InputBuffered) /* 183 */ -#endif -#ifndef Tcl_InterpDeleted -#define Tcl_InterpDeleted \ - (tclStubsPtr->tcl_InterpDeleted) /* 184 */ -#endif -#ifndef Tcl_IsSafe -#define Tcl_IsSafe \ - (tclStubsPtr->tcl_IsSafe) /* 185 */ -#endif -#ifndef Tcl_JoinPath -#define Tcl_JoinPath \ - (tclStubsPtr->tcl_JoinPath) /* 186 */ -#endif -#ifndef Tcl_LinkVar -#define Tcl_LinkVar \ - (tclStubsPtr->tcl_LinkVar) /* 187 */ -#endif -/* Slot 188 is reserved */ -#ifndef Tcl_MakeFileChannel -#define Tcl_MakeFileChannel \ - (tclStubsPtr->tcl_MakeFileChannel) /* 189 */ -#endif -#ifndef Tcl_MakeSafe -#define Tcl_MakeSafe \ - (tclStubsPtr->tcl_MakeSafe) /* 190 */ -#endif -#ifndef Tcl_MakeTcpClientChannel -#define Tcl_MakeTcpClientChannel \ - (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */ -#endif -#ifndef Tcl_Merge -#define Tcl_Merge \ - (tclStubsPtr->tcl_Merge) /* 192 */ -#endif -#ifndef Tcl_NextHashEntry -#define Tcl_NextHashEntry \ - (tclStubsPtr->tcl_NextHashEntry) /* 193 */ -#endif -#ifndef Tcl_NotifyChannel -#define Tcl_NotifyChannel \ - (tclStubsPtr->tcl_NotifyChannel) /* 194 */ -#endif -#ifndef Tcl_ObjGetVar2 -#define Tcl_ObjGetVar2 \ - (tclStubsPtr->tcl_ObjGetVar2) /* 195 */ -#endif -#ifndef Tcl_ObjSetVar2 -#define Tcl_ObjSetVar2 \ - (tclStubsPtr->tcl_ObjSetVar2) /* 196 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_OpenCommandChannel -#define Tcl_OpenCommandChannel \ - (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ -#ifndef Tcl_OpenCommandChannel -#define Tcl_OpenCommandChannel \ - (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_OpenCommandChannel -#define Tcl_OpenCommandChannel \ - (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ -#endif -#endif /* MACOSX */ -#ifndef Tcl_OpenFileChannel -#define Tcl_OpenFileChannel \ - (tclStubsPtr->tcl_OpenFileChannel) /* 198 */ -#endif -#ifndef Tcl_OpenTcpClient -#define Tcl_OpenTcpClient \ - (tclStubsPtr->tcl_OpenTcpClient) /* 199 */ -#endif -#ifndef Tcl_OpenTcpServer -#define Tcl_OpenTcpServer \ - (tclStubsPtr->tcl_OpenTcpServer) /* 200 */ -#endif -#ifndef Tcl_Preserve -#define Tcl_Preserve \ - (tclStubsPtr->tcl_Preserve) /* 201 */ -#endif -#ifndef Tcl_PrintDouble -#define Tcl_PrintDouble \ - (tclStubsPtr->tcl_PrintDouble) /* 202 */ -#endif -#ifndef Tcl_PutEnv -#define Tcl_PutEnv \ - (tclStubsPtr->tcl_PutEnv) /* 203 */ -#endif -#ifndef Tcl_PosixError -#define Tcl_PosixError \ - (tclStubsPtr->tcl_PosixError) /* 204 */ -#endif -#ifndef Tcl_QueueEvent -#define Tcl_QueueEvent \ - (tclStubsPtr->tcl_QueueEvent) /* 205 */ -#endif -#ifndef Tcl_Read -#define Tcl_Read \ - (tclStubsPtr->tcl_Read) /* 206 */ -#endif -#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ -#ifndef Tcl_ReapDetachedProcs -#define Tcl_ReapDetachedProcs \ - (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ -#endif -#endif /* UNIX */ -#ifdef __WIN32__ /* WIN */ -#ifndef Tcl_ReapDetachedProcs -#define Tcl_ReapDetachedProcs \ - (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_ReapDetachedProcs -#define Tcl_ReapDetachedProcs \ - (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ -#endif -#endif /* MACOSX */ -#ifndef Tcl_RecordAndEval -#define Tcl_RecordAndEval \ - (tclStubsPtr->tcl_RecordAndEval) /* 208 */ -#endif -#ifndef Tcl_RecordAndEvalObj -#define Tcl_RecordAndEvalObj \ - (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ -#endif -#ifndef Tcl_RegisterChannel -#define Tcl_RegisterChannel \ - (tclStubsPtr->tcl_RegisterChannel) /* 210 */ -#endif -#ifndef Tcl_RegisterObjType -#define Tcl_RegisterObjType \ - (tclStubsPtr->tcl_RegisterObjType) /* 211 */ -#endif -#ifndef Tcl_RegExpCompile -#define Tcl_RegExpCompile \ - (tclStubsPtr->tcl_RegExpCompile) /* 212 */ -#endif -#ifndef Tcl_RegExpExec -#define Tcl_RegExpExec \ - (tclStubsPtr->tcl_RegExpExec) /* 213 */ -#endif -#ifndef Tcl_RegExpMatch -#define Tcl_RegExpMatch \ - (tclStubsPtr->tcl_RegExpMatch) /* 214 */ -#endif -#ifndef Tcl_RegExpRange -#define Tcl_RegExpRange \ - (tclStubsPtr->tcl_RegExpRange) /* 215 */ -#endif -#ifndef Tcl_Release -#define Tcl_Release \ - (tclStubsPtr->tcl_Release) /* 216 */ -#endif -#ifndef Tcl_ResetResult -#define Tcl_ResetResult \ - (tclStubsPtr->tcl_ResetResult) /* 217 */ -#endif -#ifndef Tcl_ScanElement -#define Tcl_ScanElement \ - (tclStubsPtr->tcl_ScanElement) /* 218 */ -#endif -#ifndef Tcl_ScanCountedElement -#define Tcl_ScanCountedElement \ - (tclStubsPtr->tcl_ScanCountedElement) /* 219 */ -#endif -#ifndef Tcl_SeekOld -#define Tcl_SeekOld \ - (tclStubsPtr->tcl_SeekOld) /* 220 */ -#endif -#ifndef Tcl_ServiceAll -#define Tcl_ServiceAll \ - (tclStubsPtr->tcl_ServiceAll) /* 221 */ -#endif -#ifndef Tcl_ServiceEvent -#define Tcl_ServiceEvent \ - (tclStubsPtr->tcl_ServiceEvent) /* 222 */ -#endif -#ifndef Tcl_SetAssocData -#define Tcl_SetAssocData \ - (tclStubsPtr->tcl_SetAssocData) /* 223 */ -#endif -#ifndef Tcl_SetChannelBufferSize -#define Tcl_SetChannelBufferSize \ - (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */ -#endif -#ifndef Tcl_SetChannelOption -#define Tcl_SetChannelOption \ - (tclStubsPtr->tcl_SetChannelOption) /* 225 */ -#endif -#ifndef Tcl_SetCommandInfo -#define Tcl_SetCommandInfo \ - (tclStubsPtr->tcl_SetCommandInfo) /* 226 */ -#endif -#ifndef Tcl_SetErrno -#define Tcl_SetErrno \ - (tclStubsPtr->tcl_SetErrno) /* 227 */ -#endif -#ifndef Tcl_SetErrorCode -#define Tcl_SetErrorCode \ - (tclStubsPtr->tcl_SetErrorCode) /* 228 */ -#endif -#ifndef Tcl_SetMaxBlockTime -#define Tcl_SetMaxBlockTime \ - (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */ -#endif -#ifndef Tcl_SetPanicProc -#define Tcl_SetPanicProc \ - (tclStubsPtr->tcl_SetPanicProc) /* 230 */ -#endif -#ifndef Tcl_SetRecursionLimit -#define Tcl_SetRecursionLimit \ - (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */ -#endif -#ifndef Tcl_SetResult -#define Tcl_SetResult \ - (tclStubsPtr->tcl_SetResult) /* 232 */ -#endif -#ifndef Tcl_SetServiceMode -#define Tcl_SetServiceMode \ - (tclStubsPtr->tcl_SetServiceMode) /* 233 */ -#endif -#ifndef Tcl_SetObjErrorCode -#define Tcl_SetObjErrorCode \ - (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */ -#endif -#ifndef Tcl_SetObjResult -#define Tcl_SetObjResult \ - (tclStubsPtr->tcl_SetObjResult) /* 235 */ -#endif -#ifndef Tcl_SetStdChannel -#define Tcl_SetStdChannel \ - (tclStubsPtr->tcl_SetStdChannel) /* 236 */ -#endif -#ifndef Tcl_SetVar -#define Tcl_SetVar \ - (tclStubsPtr->tcl_SetVar) /* 237 */ -#endif -#ifndef Tcl_SetVar2 -#define Tcl_SetVar2 \ - (tclStubsPtr->tcl_SetVar2) /* 238 */ -#endif -#ifndef Tcl_SignalId -#define Tcl_SignalId \ - (tclStubsPtr->tcl_SignalId) /* 239 */ -#endif -#ifndef Tcl_SignalMsg -#define Tcl_SignalMsg \ - (tclStubsPtr->tcl_SignalMsg) /* 240 */ -#endif -#ifndef Tcl_SourceRCFile -#define Tcl_SourceRCFile \ - (tclStubsPtr->tcl_SourceRCFile) /* 241 */ -#endif -#ifndef Tcl_SplitList -#define Tcl_SplitList \ - (tclStubsPtr->tcl_SplitList) /* 242 */ -#endif -#ifndef Tcl_SplitPath -#define Tcl_SplitPath \ - (tclStubsPtr->tcl_SplitPath) /* 243 */ -#endif -#ifndef Tcl_StaticPackage -#define Tcl_StaticPackage \ - (tclStubsPtr->tcl_StaticPackage) /* 244 */ -#endif -#ifndef Tcl_StringMatch -#define Tcl_StringMatch \ - (tclStubsPtr->tcl_StringMatch) /* 245 */ -#endif -#ifndef Tcl_TellOld -#define Tcl_TellOld \ - (tclStubsPtr->tcl_TellOld) /* 246 */ -#endif -#ifndef Tcl_TraceVar -#define Tcl_TraceVar \ - (tclStubsPtr->tcl_TraceVar) /* 247 */ -#endif -#ifndef Tcl_TraceVar2 -#define Tcl_TraceVar2 \ - (tclStubsPtr->tcl_TraceVar2) /* 248 */ -#endif -#ifndef Tcl_TranslateFileName -#define Tcl_TranslateFileName \ - (tclStubsPtr->tcl_TranslateFileName) /* 249 */ -#endif -#ifndef Tcl_Ungets -#define Tcl_Ungets \ - (tclStubsPtr->tcl_Ungets) /* 250 */ -#endif -#ifndef Tcl_UnlinkVar -#define Tcl_UnlinkVar \ - (tclStubsPtr->tcl_UnlinkVar) /* 251 */ -#endif -#ifndef Tcl_UnregisterChannel -#define Tcl_UnregisterChannel \ - (tclStubsPtr->tcl_UnregisterChannel) /* 252 */ -#endif -#ifndef Tcl_UnsetVar -#define Tcl_UnsetVar \ - (tclStubsPtr->tcl_UnsetVar) /* 253 */ -#endif -#ifndef Tcl_UnsetVar2 -#define Tcl_UnsetVar2 \ - (tclStubsPtr->tcl_UnsetVar2) /* 254 */ -#endif -#ifndef Tcl_UntraceVar -#define Tcl_UntraceVar \ - (tclStubsPtr->tcl_UntraceVar) /* 255 */ -#endif -#ifndef Tcl_UntraceVar2 -#define Tcl_UntraceVar2 \ - (tclStubsPtr->tcl_UntraceVar2) /* 256 */ -#endif -#ifndef Tcl_UpdateLinkedVar -#define Tcl_UpdateLinkedVar \ - (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */ -#endif -#ifndef Tcl_UpVar -#define Tcl_UpVar \ - (tclStubsPtr->tcl_UpVar) /* 258 */ -#endif -#ifndef Tcl_UpVar2 -#define Tcl_UpVar2 \ - (tclStubsPtr->tcl_UpVar2) /* 259 */ -#endif -#ifndef Tcl_VarEval -#define Tcl_VarEval \ - (tclStubsPtr->tcl_VarEval) /* 260 */ -#endif -#ifndef Tcl_VarTraceInfo -#define Tcl_VarTraceInfo \ - (tclStubsPtr->tcl_VarTraceInfo) /* 261 */ -#endif -#ifndef Tcl_VarTraceInfo2 -#define Tcl_VarTraceInfo2 \ - (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */ -#endif -#ifndef Tcl_Write -#define Tcl_Write \ - (tclStubsPtr->tcl_Write) /* 263 */ -#endif -#ifndef Tcl_WrongNumArgs -#define Tcl_WrongNumArgs \ - (tclStubsPtr->tcl_WrongNumArgs) /* 264 */ -#endif -#ifndef Tcl_DumpActiveMemory -#define Tcl_DumpActiveMemory \ - (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */ -#endif -#ifndef Tcl_ValidateAllMemory -#define Tcl_ValidateAllMemory \ - (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */ -#endif -#ifndef Tcl_AppendResultVA -#define Tcl_AppendResultVA \ - (tclStubsPtr->tcl_AppendResultVA) /* 267 */ -#endif -#ifndef Tcl_AppendStringsToObjVA -#define Tcl_AppendStringsToObjVA \ - (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */ -#endif -#ifndef Tcl_HashStats -#define Tcl_HashStats \ - (tclStubsPtr->tcl_HashStats) /* 269 */ -#endif -#ifndef Tcl_ParseVar -#define Tcl_ParseVar \ - (tclStubsPtr->tcl_ParseVar) /* 270 */ -#endif -#ifndef Tcl_PkgPresent -#define Tcl_PkgPresent \ - (tclStubsPtr->tcl_PkgPresent) /* 271 */ -#endif -#ifndef Tcl_PkgPresentEx -#define Tcl_PkgPresentEx \ - (tclStubsPtr->tcl_PkgPresentEx) /* 272 */ -#endif -#ifndef Tcl_PkgProvide -#define Tcl_PkgProvide \ - (tclStubsPtr->tcl_PkgProvide) /* 273 */ -#endif -#ifndef Tcl_PkgRequire -#define Tcl_PkgRequire \ - (tclStubsPtr->tcl_PkgRequire) /* 274 */ -#endif -#ifndef Tcl_SetErrorCodeVA -#define Tcl_SetErrorCodeVA \ - (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ -#endif -#ifndef Tcl_VarEvalVA -#define Tcl_VarEvalVA \ - (tclStubsPtr->tcl_VarEvalVA) /* 276 */ -#endif -#ifndef Tcl_WaitPid -#define Tcl_WaitPid \ - (tclStubsPtr->tcl_WaitPid) /* 277 */ -#endif -#ifndef Tcl_PanicVA -#define Tcl_PanicVA \ - (tclStubsPtr->tcl_PanicVA) /* 278 */ -#endif -#ifndef Tcl_GetVersion -#define Tcl_GetVersion \ - (tclStubsPtr->tcl_GetVersion) /* 279 */ -#endif -#ifndef Tcl_InitMemory -#define Tcl_InitMemory \ - (tclStubsPtr->tcl_InitMemory) /* 280 */ -#endif -#ifndef Tcl_StackChannel -#define Tcl_StackChannel \ - (tclStubsPtr->tcl_StackChannel) /* 281 */ -#endif -#ifndef Tcl_UnstackChannel -#define Tcl_UnstackChannel \ - (tclStubsPtr->tcl_UnstackChannel) /* 282 */ -#endif -#ifndef Tcl_GetStackedChannel -#define Tcl_GetStackedChannel \ - (tclStubsPtr->tcl_GetStackedChannel) /* 283 */ -#endif -#ifndef Tcl_SetMainLoop -#define Tcl_SetMainLoop \ - (tclStubsPtr->tcl_SetMainLoop) /* 284 */ -#endif -/* Slot 285 is reserved */ -#ifndef Tcl_AppendObjToObj -#define Tcl_AppendObjToObj \ - (tclStubsPtr->tcl_AppendObjToObj) /* 286 */ -#endif -#ifndef Tcl_CreateEncoding -#define Tcl_CreateEncoding \ - (tclStubsPtr->tcl_CreateEncoding) /* 287 */ -#endif -#ifndef Tcl_CreateThreadExitHandler -#define Tcl_CreateThreadExitHandler \ - (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */ -#endif -#ifndef Tcl_DeleteThreadExitHandler -#define Tcl_DeleteThreadExitHandler \ - (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */ -#endif -#ifndef Tcl_DiscardResult -#define Tcl_DiscardResult \ - (tclStubsPtr->tcl_DiscardResult) /* 290 */ -#endif -#ifndef Tcl_EvalEx -#define Tcl_EvalEx \ - (tclStubsPtr->tcl_EvalEx) /* 291 */ -#endif -#ifndef Tcl_EvalObjv -#define Tcl_EvalObjv \ - (tclStubsPtr->tcl_EvalObjv) /* 292 */ -#endif -#ifndef Tcl_EvalObjEx -#define Tcl_EvalObjEx \ - (tclStubsPtr->tcl_EvalObjEx) /* 293 */ -#endif -#ifndef Tcl_ExitThread -#define Tcl_ExitThread \ - (tclStubsPtr->tcl_ExitThread) /* 294 */ -#endif -#ifndef Tcl_ExternalToUtf -#define Tcl_ExternalToUtf \ - (tclStubsPtr->tcl_ExternalToUtf) /* 295 */ -#endif -#ifndef Tcl_ExternalToUtfDString -#define Tcl_ExternalToUtfDString \ - (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */ -#endif -#ifndef Tcl_FinalizeThread -#define Tcl_FinalizeThread \ - (tclStubsPtr->tcl_FinalizeThread) /* 297 */ -#endif -#ifndef Tcl_FinalizeNotifier -#define Tcl_FinalizeNotifier \ - (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */ -#endif -#ifndef Tcl_FreeEncoding -#define Tcl_FreeEncoding \ - (tclStubsPtr->tcl_FreeEncoding) /* 299 */ -#endif -#ifndef Tcl_GetCurrentThread -#define Tcl_GetCurrentThread \ - (tclStubsPtr->tcl_GetCurrentThread) /* 300 */ -#endif -#ifndef Tcl_GetEncoding -#define Tcl_GetEncoding \ - (tclStubsPtr->tcl_GetEncoding) /* 301 */ -#endif -#ifndef Tcl_GetEncodingName -#define Tcl_GetEncodingName \ - (tclStubsPtr->tcl_GetEncodingName) /* 302 */ -#endif -#ifndef Tcl_GetEncodingNames -#define Tcl_GetEncodingNames \ - (tclStubsPtr->tcl_GetEncodingNames) /* 303 */ -#endif -#ifndef Tcl_GetIndexFromObjStruct -#define Tcl_GetIndexFromObjStruct \ - (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */ -#endif -#ifndef Tcl_GetThreadData -#define Tcl_GetThreadData \ - (tclStubsPtr->tcl_GetThreadData) /* 305 */ -#endif -#ifndef Tcl_GetVar2Ex -#define Tcl_GetVar2Ex \ - (tclStubsPtr->tcl_GetVar2Ex) /* 306 */ -#endif -#ifndef Tcl_InitNotifier -#define Tcl_InitNotifier \ - (tclStubsPtr->tcl_InitNotifier) /* 307 */ -#endif -#ifndef Tcl_MutexLock -#define Tcl_MutexLock \ - (tclStubsPtr->tcl_MutexLock) /* 308 */ -#endif -#ifndef Tcl_MutexUnlock -#define Tcl_MutexUnlock \ - (tclStubsPtr->tcl_MutexUnlock) /* 309 */ -#endif -#ifndef Tcl_ConditionNotify -#define Tcl_ConditionNotify \ - (tclStubsPtr->tcl_ConditionNotify) /* 310 */ -#endif -#ifndef Tcl_ConditionWait -#define Tcl_ConditionWait \ - (tclStubsPtr->tcl_ConditionWait) /* 311 */ -#endif -#ifndef Tcl_NumUtfChars -#define Tcl_NumUtfChars \ - (tclStubsPtr->tcl_NumUtfChars) /* 312 */ -#endif -#ifndef Tcl_ReadChars -#define Tcl_ReadChars \ - (tclStubsPtr->tcl_ReadChars) /* 313 */ -#endif -#ifndef Tcl_RestoreResult -#define Tcl_RestoreResult \ - (tclStubsPtr->tcl_RestoreResult) /* 314 */ -#endif -#ifndef Tcl_SaveResult -#define Tcl_SaveResult \ - (tclStubsPtr->tcl_SaveResult) /* 315 */ -#endif -#ifndef Tcl_SetSystemEncoding -#define Tcl_SetSystemEncoding \ - (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */ -#endif -#ifndef Tcl_SetVar2Ex -#define Tcl_SetVar2Ex \ - (tclStubsPtr->tcl_SetVar2Ex) /* 317 */ -#endif -#ifndef Tcl_ThreadAlert -#define Tcl_ThreadAlert \ - (tclStubsPtr->tcl_ThreadAlert) /* 318 */ -#endif -#ifndef Tcl_ThreadQueueEvent -#define Tcl_ThreadQueueEvent \ - (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */ -#endif -#ifndef Tcl_UniCharAtIndex -#define Tcl_UniCharAtIndex \ - (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */ -#endif -#ifndef Tcl_UniCharToLower -#define Tcl_UniCharToLower \ - (tclStubsPtr->tcl_UniCharToLower) /* 321 */ -#endif -#ifndef Tcl_UniCharToTitle -#define Tcl_UniCharToTitle \ - (tclStubsPtr->tcl_UniCharToTitle) /* 322 */ -#endif -#ifndef Tcl_UniCharToUpper -#define Tcl_UniCharToUpper \ - (tclStubsPtr->tcl_UniCharToUpper) /* 323 */ -#endif -#ifndef Tcl_UniCharToUtf -#define Tcl_UniCharToUtf \ - (tclStubsPtr->tcl_UniCharToUtf) /* 324 */ -#endif -#ifndef Tcl_UtfAtIndex -#define Tcl_UtfAtIndex \ - (tclStubsPtr->tcl_UtfAtIndex) /* 325 */ -#endif -#ifndef Tcl_UtfCharComplete -#define Tcl_UtfCharComplete \ - (tclStubsPtr->tcl_UtfCharComplete) /* 326 */ -#endif -#ifndef Tcl_UtfBackslash -#define Tcl_UtfBackslash \ - (tclStubsPtr->tcl_UtfBackslash) /* 327 */ -#endif -#ifndef Tcl_UtfFindFirst -#define Tcl_UtfFindFirst \ - (tclStubsPtr->tcl_UtfFindFirst) /* 328 */ -#endif -#ifndef Tcl_UtfFindLast -#define Tcl_UtfFindLast \ - (tclStubsPtr->tcl_UtfFindLast) /* 329 */ -#endif -#ifndef Tcl_UtfNext -#define Tcl_UtfNext \ - (tclStubsPtr->tcl_UtfNext) /* 330 */ -#endif -#ifndef Tcl_UtfPrev -#define Tcl_UtfPrev \ - (tclStubsPtr->tcl_UtfPrev) /* 331 */ -#endif -#ifndef Tcl_UtfToExternal -#define Tcl_UtfToExternal \ - (tclStubsPtr->tcl_UtfToExternal) /* 332 */ -#endif -#ifndef Tcl_UtfToExternalDString -#define Tcl_UtfToExternalDString \ - (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */ -#endif -#ifndef Tcl_UtfToLower -#define Tcl_UtfToLower \ - (tclStubsPtr->tcl_UtfToLower) /* 334 */ -#endif -#ifndef Tcl_UtfToTitle -#define Tcl_UtfToTitle \ - (tclStubsPtr->tcl_UtfToTitle) /* 335 */ -#endif -#ifndef Tcl_UtfToUniChar -#define Tcl_UtfToUniChar \ - (tclStubsPtr->tcl_UtfToUniChar) /* 336 */ -#endif -#ifndef Tcl_UtfToUpper -#define Tcl_UtfToUpper \ - (tclStubsPtr->tcl_UtfToUpper) /* 337 */ -#endif -#ifndef Tcl_WriteChars -#define Tcl_WriteChars \ - (tclStubsPtr->tcl_WriteChars) /* 338 */ -#endif -#ifndef Tcl_WriteObj -#define Tcl_WriteObj \ - (tclStubsPtr->tcl_WriteObj) /* 339 */ -#endif -#ifndef Tcl_GetString -#define Tcl_GetString \ - (tclStubsPtr->tcl_GetString) /* 340 */ -#endif -#ifndef Tcl_GetDefaultEncodingDir -#define Tcl_GetDefaultEncodingDir \ - (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */ -#endif -#ifndef Tcl_SetDefaultEncodingDir -#define Tcl_SetDefaultEncodingDir \ - (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */ -#endif -#ifndef Tcl_AlertNotifier -#define Tcl_AlertNotifier \ - (tclStubsPtr->tcl_AlertNotifier) /* 343 */ -#endif -#ifndef Tcl_ServiceModeHook -#define Tcl_ServiceModeHook \ - (tclStubsPtr->tcl_ServiceModeHook) /* 344 */ -#endif -#ifndef Tcl_UniCharIsAlnum -#define Tcl_UniCharIsAlnum \ - (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */ -#endif -#ifndef Tcl_UniCharIsAlpha -#define Tcl_UniCharIsAlpha \ - (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */ -#endif -#ifndef Tcl_UniCharIsDigit -#define Tcl_UniCharIsDigit \ - (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */ -#endif -#ifndef Tcl_UniCharIsLower -#define Tcl_UniCharIsLower \ - (tclStubsPtr->tcl_UniCharIsLower) /* 348 */ -#endif -#ifndef Tcl_UniCharIsSpace -#define Tcl_UniCharIsSpace \ - (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */ -#endif -#ifndef Tcl_UniCharIsUpper -#define Tcl_UniCharIsUpper \ - (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */ -#endif -#ifndef Tcl_UniCharIsWordChar -#define Tcl_UniCharIsWordChar \ - (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */ -#endif -#ifndef Tcl_UniCharLen -#define Tcl_UniCharLen \ - (tclStubsPtr->tcl_UniCharLen) /* 352 */ -#endif -#ifndef Tcl_UniCharNcmp -#define Tcl_UniCharNcmp \ - (tclStubsPtr->tcl_UniCharNcmp) /* 353 */ -#endif -#ifndef Tcl_UniCharToUtfDString -#define Tcl_UniCharToUtfDString \ - (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */ -#endif -#ifndef Tcl_UtfToUniCharDString -#define Tcl_UtfToUniCharDString \ - (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */ -#endif -#ifndef Tcl_GetRegExpFromObj -#define Tcl_GetRegExpFromObj \ - (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */ -#endif -#ifndef Tcl_EvalTokens -#define Tcl_EvalTokens \ - (tclStubsPtr->tcl_EvalTokens) /* 357 */ -#endif -#ifndef Tcl_FreeParse -#define Tcl_FreeParse \ - (tclStubsPtr->tcl_FreeParse) /* 358 */ -#endif -#ifndef Tcl_LogCommandInfo -#define Tcl_LogCommandInfo \ - (tclStubsPtr->tcl_LogCommandInfo) /* 359 */ -#endif -#ifndef Tcl_ParseBraces -#define Tcl_ParseBraces \ - (tclStubsPtr->tcl_ParseBraces) /* 360 */ -#endif -#ifndef Tcl_ParseCommand -#define Tcl_ParseCommand \ - (tclStubsPtr->tcl_ParseCommand) /* 361 */ -#endif -#ifndef Tcl_ParseExpr -#define Tcl_ParseExpr \ - (tclStubsPtr->tcl_ParseExpr) /* 362 */ -#endif -#ifndef Tcl_ParseQuotedString -#define Tcl_ParseQuotedString \ - (tclStubsPtr->tcl_ParseQuotedString) /* 363 */ -#endif -#ifndef Tcl_ParseVarName -#define Tcl_ParseVarName \ - (tclStubsPtr->tcl_ParseVarName) /* 364 */ -#endif -#ifndef Tcl_GetCwd -#define Tcl_GetCwd \ - (tclStubsPtr->tcl_GetCwd) /* 365 */ -#endif -#ifndef Tcl_Chdir -#define Tcl_Chdir \ - (tclStubsPtr->tcl_Chdir) /* 366 */ -#endif -#ifndef Tcl_Access -#define Tcl_Access \ - (tclStubsPtr->tcl_Access) /* 367 */ -#endif -#ifndef Tcl_Stat -#define Tcl_Stat \ - (tclStubsPtr->tcl_Stat) /* 368 */ -#endif -#ifndef Tcl_UtfNcmp -#define Tcl_UtfNcmp \ - (tclStubsPtr->tcl_UtfNcmp) /* 369 */ -#endif -#ifndef Tcl_UtfNcasecmp -#define Tcl_UtfNcasecmp \ - (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */ -#endif -#ifndef Tcl_StringCaseMatch -#define Tcl_StringCaseMatch \ - (tclStubsPtr->tcl_StringCaseMatch) /* 371 */ -#endif -#ifndef Tcl_UniCharIsControl -#define Tcl_UniCharIsControl \ - (tclStubsPtr->tcl_UniCharIsControl) /* 372 */ -#endif -#ifndef Tcl_UniCharIsGraph -#define Tcl_UniCharIsGraph \ - (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ -#endif -#ifndef Tcl_UniCharIsPrint -#define Tcl_UniCharIsPrint \ - (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ -#endif -#ifndef Tcl_UniCharIsPunct -#define Tcl_UniCharIsPunct \ - (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ -#endif -#ifndef Tcl_RegExpExecObj -#define Tcl_RegExpExecObj \ - (tclStubsPtr->tcl_RegExpExecObj) /* 376 */ -#endif -#ifndef Tcl_RegExpGetInfo -#define Tcl_RegExpGetInfo \ - (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */ -#endif -#ifndef Tcl_NewUnicodeObj -#define Tcl_NewUnicodeObj \ - (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */ -#endif -#ifndef Tcl_SetUnicodeObj -#define Tcl_SetUnicodeObj \ - (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */ -#endif -#ifndef Tcl_GetCharLength -#define Tcl_GetCharLength \ - (tclStubsPtr->tcl_GetCharLength) /* 380 */ -#endif -#ifndef Tcl_GetUniChar -#define Tcl_GetUniChar \ - (tclStubsPtr->tcl_GetUniChar) /* 381 */ -#endif -#ifndef Tcl_GetUnicode -#define Tcl_GetUnicode \ - (tclStubsPtr->tcl_GetUnicode) /* 382 */ -#endif -#ifndef Tcl_GetRange -#define Tcl_GetRange \ - (tclStubsPtr->tcl_GetRange) /* 383 */ -#endif -#ifndef Tcl_AppendUnicodeToObj -#define Tcl_AppendUnicodeToObj \ - (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ -#endif -#ifndef Tcl_RegExpMatchObj -#define Tcl_RegExpMatchObj \ - (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ -#endif -#ifndef Tcl_SetNotifier -#define Tcl_SetNotifier \ - (tclStubsPtr->tcl_SetNotifier) /* 386 */ -#endif -#ifndef Tcl_GetAllocMutex -#define Tcl_GetAllocMutex \ - (tclStubsPtr->tcl_GetAllocMutex) /* 387 */ -#endif -#ifndef Tcl_GetChannelNames -#define Tcl_GetChannelNames \ - (tclStubsPtr->tcl_GetChannelNames) /* 388 */ -#endif -#ifndef Tcl_GetChannelNamesEx -#define Tcl_GetChannelNamesEx \ - (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */ -#endif -#ifndef Tcl_ProcObjCmd -#define Tcl_ProcObjCmd \ - (tclStubsPtr->tcl_ProcObjCmd) /* 390 */ -#endif -#ifndef Tcl_ConditionFinalize -#define Tcl_ConditionFinalize \ - (tclStubsPtr->tcl_ConditionFinalize) /* 391 */ -#endif -#ifndef Tcl_MutexFinalize -#define Tcl_MutexFinalize \ - (tclStubsPtr->tcl_MutexFinalize) /* 392 */ -#endif -#ifndef Tcl_CreateThread -#define Tcl_CreateThread \ - (tclStubsPtr->tcl_CreateThread) /* 393 */ -#endif -#ifndef Tcl_ReadRaw -#define Tcl_ReadRaw \ - (tclStubsPtr->tcl_ReadRaw) /* 394 */ -#endif -#ifndef Tcl_WriteRaw -#define Tcl_WriteRaw \ - (tclStubsPtr->tcl_WriteRaw) /* 395 */ -#endif -#ifndef Tcl_GetTopChannel -#define Tcl_GetTopChannel \ - (tclStubsPtr->tcl_GetTopChannel) /* 396 */ -#endif -#ifndef Tcl_ChannelBuffered -#define Tcl_ChannelBuffered \ - (tclStubsPtr->tcl_ChannelBuffered) /* 397 */ -#endif -#ifndef Tcl_ChannelName -#define Tcl_ChannelName \ - (tclStubsPtr->tcl_ChannelName) /* 398 */ -#endif -#ifndef Tcl_ChannelVersion -#define Tcl_ChannelVersion \ - (tclStubsPtr->tcl_ChannelVersion) /* 399 */ -#endif -#ifndef Tcl_ChannelBlockModeProc -#define Tcl_ChannelBlockModeProc \ - (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */ -#endif -#ifndef Tcl_ChannelCloseProc -#define Tcl_ChannelCloseProc \ - (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */ -#endif -#ifndef Tcl_ChannelClose2Proc -#define Tcl_ChannelClose2Proc \ - (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */ -#endif -#ifndef Tcl_ChannelInputProc -#define Tcl_ChannelInputProc \ - (tclStubsPtr->tcl_ChannelInputProc) /* 403 */ -#endif -#ifndef Tcl_ChannelOutputProc -#define Tcl_ChannelOutputProc \ - (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */ -#endif -#ifndef Tcl_ChannelSeekProc -#define Tcl_ChannelSeekProc \ - (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */ -#endif -#ifndef Tcl_ChannelSetOptionProc -#define Tcl_ChannelSetOptionProc \ - (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */ -#endif -#ifndef Tcl_ChannelGetOptionProc -#define Tcl_ChannelGetOptionProc \ - (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */ -#endif -#ifndef Tcl_ChannelWatchProc -#define Tcl_ChannelWatchProc \ - (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */ -#endif -#ifndef Tcl_ChannelGetHandleProc -#define Tcl_ChannelGetHandleProc \ - (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */ -#endif -#ifndef Tcl_ChannelFlushProc -#define Tcl_ChannelFlushProc \ - (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */ -#endif -#ifndef Tcl_ChannelHandlerProc -#define Tcl_ChannelHandlerProc \ - (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */ -#endif -#ifndef Tcl_JoinThread -#define Tcl_JoinThread \ - (tclStubsPtr->tcl_JoinThread) /* 412 */ -#endif -#ifndef Tcl_IsChannelShared -#define Tcl_IsChannelShared \ - (tclStubsPtr->tcl_IsChannelShared) /* 413 */ -#endif -#ifndef Tcl_IsChannelRegistered -#define Tcl_IsChannelRegistered \ - (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */ -#endif -#ifndef Tcl_CutChannel -#define Tcl_CutChannel \ - (tclStubsPtr->tcl_CutChannel) /* 415 */ -#endif -#ifndef Tcl_SpliceChannel -#define Tcl_SpliceChannel \ - (tclStubsPtr->tcl_SpliceChannel) /* 416 */ -#endif -#ifndef Tcl_ClearChannelHandlers -#define Tcl_ClearChannelHandlers \ - (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */ -#endif -#ifndef Tcl_IsChannelExisting -#define Tcl_IsChannelExisting \ - (tclStubsPtr->tcl_IsChannelExisting) /* 418 */ -#endif -#ifndef Tcl_UniCharNcasecmp -#define Tcl_UniCharNcasecmp \ - (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */ -#endif -#ifndef Tcl_UniCharCaseMatch -#define Tcl_UniCharCaseMatch \ - (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */ -#endif -#ifndef Tcl_FindHashEntry -#define Tcl_FindHashEntry \ - (tclStubsPtr->tcl_FindHashEntry) /* 421 */ -#endif -#ifndef Tcl_CreateHashEntry -#define Tcl_CreateHashEntry \ - (tclStubsPtr->tcl_CreateHashEntry) /* 422 */ -#endif -#ifndef Tcl_InitCustomHashTable -#define Tcl_InitCustomHashTable \ - (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */ -#endif -#ifndef Tcl_InitObjHashTable -#define Tcl_InitObjHashTable \ - (tclStubsPtr->tcl_InitObjHashTable) /* 424 */ -#endif -#ifndef Tcl_CommandTraceInfo -#define Tcl_CommandTraceInfo \ - (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */ -#endif -#ifndef Tcl_TraceCommand -#define Tcl_TraceCommand \ - (tclStubsPtr->tcl_TraceCommand) /* 426 */ -#endif -#ifndef Tcl_UntraceCommand -#define Tcl_UntraceCommand \ - (tclStubsPtr->tcl_UntraceCommand) /* 427 */ -#endif -#ifndef Tcl_AttemptAlloc -#define Tcl_AttemptAlloc \ - (tclStubsPtr->tcl_AttemptAlloc) /* 428 */ -#endif -#ifndef Tcl_AttemptDbCkalloc -#define Tcl_AttemptDbCkalloc \ - (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */ -#endif -#ifndef Tcl_AttemptRealloc -#define Tcl_AttemptRealloc \ - (tclStubsPtr->tcl_AttemptRealloc) /* 430 */ -#endif -#ifndef Tcl_AttemptDbCkrealloc -#define Tcl_AttemptDbCkrealloc \ - (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */ -#endif -#ifndef Tcl_AttemptSetObjLength -#define Tcl_AttemptSetObjLength \ - (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */ -#endif -#ifndef Tcl_GetChannelThread -#define Tcl_GetChannelThread \ - (tclStubsPtr->tcl_GetChannelThread) /* 433 */ -#endif -#ifndef Tcl_GetUnicodeFromObj -#define Tcl_GetUnicodeFromObj \ - (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */ -#endif -#ifndef Tcl_GetMathFuncInfo -#define Tcl_GetMathFuncInfo \ - (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */ -#endif -#ifndef Tcl_ListMathFuncs -#define Tcl_ListMathFuncs \ - (tclStubsPtr->tcl_ListMathFuncs) /* 436 */ -#endif -#ifndef Tcl_SubstObj -#define Tcl_SubstObj \ - (tclStubsPtr->tcl_SubstObj) /* 437 */ -#endif -#ifndef Tcl_DetachChannel -#define Tcl_DetachChannel \ - (tclStubsPtr->tcl_DetachChannel) /* 438 */ -#endif -#ifndef Tcl_IsStandardChannel -#define Tcl_IsStandardChannel \ - (tclStubsPtr->tcl_IsStandardChannel) /* 439 */ -#endif -#ifndef Tcl_FSCopyFile -#define Tcl_FSCopyFile \ - (tclStubsPtr->tcl_FSCopyFile) /* 440 */ -#endif -#ifndef Tcl_FSCopyDirectory -#define Tcl_FSCopyDirectory \ - (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */ -#endif -#ifndef Tcl_FSCreateDirectory -#define Tcl_FSCreateDirectory \ - (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */ -#endif -#ifndef Tcl_FSDeleteFile -#define Tcl_FSDeleteFile \ - (tclStubsPtr->tcl_FSDeleteFile) /* 443 */ -#endif -#ifndef Tcl_FSLoadFile -#define Tcl_FSLoadFile \ - (tclStubsPtr->tcl_FSLoadFile) /* 444 */ -#endif -#ifndef Tcl_FSMatchInDirectory -#define Tcl_FSMatchInDirectory \ - (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */ -#endif -#ifndef Tcl_FSLink -#define Tcl_FSLink \ - (tclStubsPtr->tcl_FSLink) /* 446 */ -#endif -#ifndef Tcl_FSRemoveDirectory -#define Tcl_FSRemoveDirectory \ - (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */ -#endif -#ifndef Tcl_FSRenameFile -#define Tcl_FSRenameFile \ - (tclStubsPtr->tcl_FSRenameFile) /* 448 */ -#endif -#ifndef Tcl_FSLstat -#define Tcl_FSLstat \ - (tclStubsPtr->tcl_FSLstat) /* 449 */ -#endif -#ifndef Tcl_FSUtime -#define Tcl_FSUtime \ - (tclStubsPtr->tcl_FSUtime) /* 450 */ -#endif -#ifndef Tcl_FSFileAttrsGet -#define Tcl_FSFileAttrsGet \ - (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */ -#endif -#ifndef Tcl_FSFileAttrsSet -#define Tcl_FSFileAttrsSet \ - (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */ -#endif -#ifndef Tcl_FSFileAttrStrings -#define Tcl_FSFileAttrStrings \ - (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */ -#endif -#ifndef Tcl_FSStat -#define Tcl_FSStat \ - (tclStubsPtr->tcl_FSStat) /* 454 */ -#endif -#ifndef Tcl_FSAccess -#define Tcl_FSAccess \ - (tclStubsPtr->tcl_FSAccess) /* 455 */ -#endif -#ifndef Tcl_FSOpenFileChannel -#define Tcl_FSOpenFileChannel \ - (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */ -#endif -#ifndef Tcl_FSGetCwd -#define Tcl_FSGetCwd \ - (tclStubsPtr->tcl_FSGetCwd) /* 457 */ -#endif -#ifndef Tcl_FSChdir -#define Tcl_FSChdir \ - (tclStubsPtr->tcl_FSChdir) /* 458 */ -#endif -#ifndef Tcl_FSConvertToPathType -#define Tcl_FSConvertToPathType \ - (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */ -#endif -#ifndef Tcl_FSJoinPath -#define Tcl_FSJoinPath \ - (tclStubsPtr->tcl_FSJoinPath) /* 460 */ -#endif -#ifndef Tcl_FSSplitPath -#define Tcl_FSSplitPath \ - (tclStubsPtr->tcl_FSSplitPath) /* 461 */ -#endif -#ifndef Tcl_FSEqualPaths -#define Tcl_FSEqualPaths \ - (tclStubsPtr->tcl_FSEqualPaths) /* 462 */ -#endif -#ifndef Tcl_FSGetNormalizedPath -#define Tcl_FSGetNormalizedPath \ - (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */ -#endif -#ifndef Tcl_FSJoinToPath -#define Tcl_FSJoinToPath \ - (tclStubsPtr->tcl_FSJoinToPath) /* 464 */ -#endif -#ifndef Tcl_FSGetInternalRep -#define Tcl_FSGetInternalRep \ - (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */ -#endif -#ifndef Tcl_FSGetTranslatedPath -#define Tcl_FSGetTranslatedPath \ - (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */ -#endif -#ifndef Tcl_FSEvalFile -#define Tcl_FSEvalFile \ - (tclStubsPtr->tcl_FSEvalFile) /* 467 */ -#endif -#ifndef Tcl_FSNewNativePath -#define Tcl_FSNewNativePath \ - (tclStubsPtr->tcl_FSNewNativePath) /* 468 */ -#endif -#ifndef Tcl_FSGetNativePath -#define Tcl_FSGetNativePath \ - (tclStubsPtr->tcl_FSGetNativePath) /* 469 */ -#endif -#ifndef Tcl_FSFileSystemInfo -#define Tcl_FSFileSystemInfo \ - (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */ -#endif -#ifndef Tcl_FSPathSeparator -#define Tcl_FSPathSeparator \ - (tclStubsPtr->tcl_FSPathSeparator) /* 471 */ -#endif -#ifndef Tcl_FSListVolumes -#define Tcl_FSListVolumes \ - (tclStubsPtr->tcl_FSListVolumes) /* 472 */ -#endif -#ifndef Tcl_FSRegister -#define Tcl_FSRegister \ - (tclStubsPtr->tcl_FSRegister) /* 473 */ -#endif -#ifndef Tcl_FSUnregister -#define Tcl_FSUnregister \ - (tclStubsPtr->tcl_FSUnregister) /* 474 */ -#endif -#ifndef Tcl_FSData -#define Tcl_FSData \ - (tclStubsPtr->tcl_FSData) /* 475 */ -#endif -#ifndef Tcl_FSGetTranslatedStringPath -#define Tcl_FSGetTranslatedStringPath \ - (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */ -#endif -#ifndef Tcl_FSGetFileSystemForPath -#define Tcl_FSGetFileSystemForPath \ - (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */ -#endif -#ifndef Tcl_FSGetPathType -#define Tcl_FSGetPathType \ - (tclStubsPtr->tcl_FSGetPathType) /* 478 */ -#endif -#ifndef Tcl_OutputBuffered -#define Tcl_OutputBuffered \ - (tclStubsPtr->tcl_OutputBuffered) /* 479 */ -#endif -#ifndef Tcl_FSMountsChanged -#define Tcl_FSMountsChanged \ - (tclStubsPtr->tcl_FSMountsChanged) /* 480 */ -#endif -#ifndef Tcl_EvalTokensStandard -#define Tcl_EvalTokensStandard \ - (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */ -#endif -#ifndef Tcl_GetTime -#define Tcl_GetTime \ - (tclStubsPtr->tcl_GetTime) /* 482 */ -#endif -#ifndef Tcl_CreateObjTrace -#define Tcl_CreateObjTrace \ - (tclStubsPtr->tcl_CreateObjTrace) /* 483 */ -#endif -#ifndef Tcl_GetCommandInfoFromToken -#define Tcl_GetCommandInfoFromToken \ - (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */ -#endif -#ifndef Tcl_SetCommandInfoFromToken -#define Tcl_SetCommandInfoFromToken \ - (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */ -#endif -#ifndef Tcl_DbNewWideIntObj -#define Tcl_DbNewWideIntObj \ - (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */ -#endif -#ifndef Tcl_GetWideIntFromObj -#define Tcl_GetWideIntFromObj \ - (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */ -#endif -#ifndef Tcl_NewWideIntObj -#define Tcl_NewWideIntObj \ - (tclStubsPtr->tcl_NewWideIntObj) /* 488 */ -#endif -#ifndef Tcl_SetWideIntObj -#define Tcl_SetWideIntObj \ - (tclStubsPtr->tcl_SetWideIntObj) /* 489 */ -#endif -#ifndef Tcl_AllocStatBuf -#define Tcl_AllocStatBuf \ - (tclStubsPtr->tcl_AllocStatBuf) /* 490 */ -#endif -#ifndef Tcl_Seek -#define Tcl_Seek \ - (tclStubsPtr->tcl_Seek) /* 491 */ -#endif -#ifndef Tcl_Tell -#define Tcl_Tell \ - (tclStubsPtr->tcl_Tell) /* 492 */ -#endif -#ifndef Tcl_ChannelWideSeekProc -#define Tcl_ChannelWideSeekProc \ - (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */ -#endif -#ifndef Tcl_DictObjPut -#define Tcl_DictObjPut \ - (tclStubsPtr->tcl_DictObjPut) /* 494 */ -#endif -#ifndef Tcl_DictObjGet -#define Tcl_DictObjGet \ - (tclStubsPtr->tcl_DictObjGet) /* 495 */ -#endif -#ifndef Tcl_DictObjRemove -#define Tcl_DictObjRemove \ - (tclStubsPtr->tcl_DictObjRemove) /* 496 */ -#endif -#ifndef Tcl_DictObjSize -#define Tcl_DictObjSize \ - (tclStubsPtr->tcl_DictObjSize) /* 497 */ -#endif -#ifndef Tcl_DictObjFirst -#define Tcl_DictObjFirst \ - (tclStubsPtr->tcl_DictObjFirst) /* 498 */ -#endif -#ifndef Tcl_DictObjNext -#define Tcl_DictObjNext \ - (tclStubsPtr->tcl_DictObjNext) /* 499 */ -#endif -#ifndef Tcl_DictObjDone -#define Tcl_DictObjDone \ - (tclStubsPtr->tcl_DictObjDone) /* 500 */ -#endif -#ifndef Tcl_DictObjPutKeyList -#define Tcl_DictObjPutKeyList \ - (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */ -#endif -#ifndef Tcl_DictObjRemoveKeyList -#define Tcl_DictObjRemoveKeyList \ - (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */ -#endif -#ifndef Tcl_NewDictObj -#define Tcl_NewDictObj \ - (tclStubsPtr->tcl_NewDictObj) /* 503 */ -#endif -#ifndef Tcl_DbNewDictObj -#define Tcl_DbNewDictObj \ - (tclStubsPtr->tcl_DbNewDictObj) /* 504 */ -#endif -#ifndef Tcl_RegisterConfig -#define Tcl_RegisterConfig \ - (tclStubsPtr->tcl_RegisterConfig) /* 505 */ -#endif -#ifndef Tcl_CreateNamespace -#define Tcl_CreateNamespace \ - (tclStubsPtr->tcl_CreateNamespace) /* 506 */ -#endif -#ifndef Tcl_DeleteNamespace -#define Tcl_DeleteNamespace \ - (tclStubsPtr->tcl_DeleteNamespace) /* 507 */ -#endif -#ifndef Tcl_AppendExportList -#define Tcl_AppendExportList \ - (tclStubsPtr->tcl_AppendExportList) /* 508 */ -#endif -#ifndef Tcl_Export -#define Tcl_Export \ - (tclStubsPtr->tcl_Export) /* 509 */ -#endif -#ifndef Tcl_Import -#define Tcl_Import \ - (tclStubsPtr->tcl_Import) /* 510 */ -#endif -#ifndef Tcl_ForgetImport -#define Tcl_ForgetImport \ - (tclStubsPtr->tcl_ForgetImport) /* 511 */ -#endif -#ifndef Tcl_GetCurrentNamespace -#define Tcl_GetCurrentNamespace \ - (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */ -#endif -#ifndef Tcl_GetGlobalNamespace -#define Tcl_GetGlobalNamespace \ - (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */ -#endif -#ifndef Tcl_FindNamespace -#define Tcl_FindNamespace \ - (tclStubsPtr->tcl_FindNamespace) /* 514 */ -#endif -#ifndef Tcl_FindCommand -#define Tcl_FindCommand \ - (tclStubsPtr->tcl_FindCommand) /* 515 */ -#endif -#ifndef Tcl_GetCommandFromObj -#define Tcl_GetCommandFromObj \ - (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */ -#endif -#ifndef Tcl_GetCommandFullName -#define Tcl_GetCommandFullName \ - (tclStubsPtr->tcl_GetCommandFullName) /* 517 */ -#endif -#ifndef Tcl_FSEvalFileEx -#define Tcl_FSEvalFileEx \ - (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */ -#endif -#ifndef Tcl_SetExitProc -#define Tcl_SetExitProc \ - (tclStubsPtr->tcl_SetExitProc) /* 519 */ -#endif -#ifndef Tcl_LimitAddHandler -#define Tcl_LimitAddHandler \ - (tclStubsPtr->tcl_LimitAddHandler) /* 520 */ -#endif -#ifndef Tcl_LimitRemoveHandler -#define Tcl_LimitRemoveHandler \ - (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */ -#endif -#ifndef Tcl_LimitReady -#define Tcl_LimitReady \ - (tclStubsPtr->tcl_LimitReady) /* 522 */ -#endif -#ifndef Tcl_LimitCheck -#define Tcl_LimitCheck \ - (tclStubsPtr->tcl_LimitCheck) /* 523 */ -#endif -#ifndef Tcl_LimitExceeded -#define Tcl_LimitExceeded \ - (tclStubsPtr->tcl_LimitExceeded) /* 524 */ -#endif -#ifndef Tcl_LimitSetCommands -#define Tcl_LimitSetCommands \ - (tclStubsPtr->tcl_LimitSetCommands) /* 525 */ -#endif -#ifndef Tcl_LimitSetTime -#define Tcl_LimitSetTime \ - (tclStubsPtr->tcl_LimitSetTime) /* 526 */ -#endif -#ifndef Tcl_LimitSetGranularity -#define Tcl_LimitSetGranularity \ - (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */ -#endif -#ifndef Tcl_LimitTypeEnabled -#define Tcl_LimitTypeEnabled \ - (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */ -#endif -#ifndef Tcl_LimitTypeExceeded -#define Tcl_LimitTypeExceeded \ - (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */ -#endif -#ifndef Tcl_LimitTypeSet -#define Tcl_LimitTypeSet \ - (tclStubsPtr->tcl_LimitTypeSet) /* 530 */ -#endif -#ifndef Tcl_LimitTypeReset -#define Tcl_LimitTypeReset \ - (tclStubsPtr->tcl_LimitTypeReset) /* 531 */ -#endif -#ifndef Tcl_LimitGetCommands -#define Tcl_LimitGetCommands \ - (tclStubsPtr->tcl_LimitGetCommands) /* 532 */ -#endif -#ifndef Tcl_LimitGetTime -#define Tcl_LimitGetTime \ - (tclStubsPtr->tcl_LimitGetTime) /* 533 */ -#endif -#ifndef Tcl_LimitGetGranularity -#define Tcl_LimitGetGranularity \ - (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */ -#endif -#ifndef Tcl_SaveInterpState -#define Tcl_SaveInterpState \ - (tclStubsPtr->tcl_SaveInterpState) /* 535 */ -#endif -#ifndef Tcl_RestoreInterpState -#define Tcl_RestoreInterpState \ - (tclStubsPtr->tcl_RestoreInterpState) /* 536 */ -#endif -#ifndef Tcl_DiscardInterpState -#define Tcl_DiscardInterpState \ - (tclStubsPtr->tcl_DiscardInterpState) /* 537 */ -#endif -#ifndef Tcl_SetReturnOptions -#define Tcl_SetReturnOptions \ - (tclStubsPtr->tcl_SetReturnOptions) /* 538 */ -#endif -#ifndef Tcl_GetReturnOptions -#define Tcl_GetReturnOptions \ - (tclStubsPtr->tcl_GetReturnOptions) /* 539 */ -#endif -#ifndef Tcl_IsEnsemble -#define Tcl_IsEnsemble \ - (tclStubsPtr->tcl_IsEnsemble) /* 540 */ -#endif -#ifndef Tcl_CreateEnsemble -#define Tcl_CreateEnsemble \ - (tclStubsPtr->tcl_CreateEnsemble) /* 541 */ -#endif -#ifndef Tcl_FindEnsemble -#define Tcl_FindEnsemble \ - (tclStubsPtr->tcl_FindEnsemble) /* 542 */ -#endif -#ifndef Tcl_SetEnsembleSubcommandList -#define Tcl_SetEnsembleSubcommandList \ - (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */ -#endif -#ifndef Tcl_SetEnsembleMappingDict -#define Tcl_SetEnsembleMappingDict \ - (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */ -#endif -#ifndef Tcl_SetEnsembleUnknownHandler -#define Tcl_SetEnsembleUnknownHandler \ - (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */ -#endif -#ifndef Tcl_SetEnsembleFlags -#define Tcl_SetEnsembleFlags \ - (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */ -#endif -#ifndef Tcl_GetEnsembleSubcommandList -#define Tcl_GetEnsembleSubcommandList \ - (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */ -#endif -#ifndef Tcl_GetEnsembleMappingDict -#define Tcl_GetEnsembleMappingDict \ - (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */ -#endif -#ifndef Tcl_GetEnsembleUnknownHandler -#define Tcl_GetEnsembleUnknownHandler \ - (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */ -#endif -#ifndef Tcl_GetEnsembleFlags -#define Tcl_GetEnsembleFlags \ - (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */ -#endif -#ifndef Tcl_GetEnsembleNamespace -#define Tcl_GetEnsembleNamespace \ - (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */ -#endif -#ifndef Tcl_SetTimeProc -#define Tcl_SetTimeProc \ - (tclStubsPtr->tcl_SetTimeProc) /* 552 */ -#endif -#ifndef Tcl_QueryTimeProc -#define Tcl_QueryTimeProc \ - (tclStubsPtr->tcl_QueryTimeProc) /* 553 */ -#endif -#ifndef Tcl_ChannelThreadActionProc -#define Tcl_ChannelThreadActionProc \ - (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ -#endif -#ifndef Tcl_NewBignumObj -#define Tcl_NewBignumObj \ - (tclStubsPtr->tcl_NewBignumObj) /* 555 */ -#endif -#ifndef Tcl_DbNewBignumObj -#define Tcl_DbNewBignumObj \ - (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */ -#endif -#ifndef Tcl_SetBignumObj -#define Tcl_SetBignumObj \ - (tclStubsPtr->tcl_SetBignumObj) /* 557 */ -#endif -#ifndef Tcl_GetBignumFromObj -#define Tcl_GetBignumFromObj \ - (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */ -#endif -#ifndef Tcl_TakeBignumFromObj -#define Tcl_TakeBignumFromObj \ - (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */ -#endif -#ifndef Tcl_TruncateChannel -#define Tcl_TruncateChannel \ - (tclStubsPtr->tcl_TruncateChannel) /* 560 */ -#endif -#ifndef Tcl_ChannelTruncateProc -#define Tcl_ChannelTruncateProc \ - (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */ -#endif -#ifndef Tcl_SetChannelErrorInterp -#define Tcl_SetChannelErrorInterp \ - (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */ -#endif -#ifndef Tcl_GetChannelErrorInterp -#define Tcl_GetChannelErrorInterp \ - (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */ -#endif -#ifndef Tcl_SetChannelError -#define Tcl_SetChannelError \ - (tclStubsPtr->tcl_SetChannelError) /* 564 */ -#endif -#ifndef Tcl_GetChannelError -#define Tcl_GetChannelError \ - (tclStubsPtr->tcl_GetChannelError) /* 565 */ -#endif -#ifndef Tcl_InitBignumFromDouble -#define Tcl_InitBignumFromDouble \ - (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */ -#endif -#ifndef Tcl_GetNamespaceUnknownHandler -#define Tcl_GetNamespaceUnknownHandler \ - (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */ -#endif -#ifndef Tcl_SetNamespaceUnknownHandler -#define Tcl_SetNamespaceUnknownHandler \ - (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */ -#endif -#ifndef Tcl_GetEncodingFromObj -#define Tcl_GetEncodingFromObj \ - (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */ -#endif -#ifndef Tcl_GetEncodingSearchPath -#define Tcl_GetEncodingSearchPath \ - (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */ -#endif -#ifndef Tcl_SetEncodingSearchPath -#define Tcl_SetEncodingSearchPath \ - (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */ -#endif -#ifndef Tcl_GetEncodingNameFromEnvironment -#define Tcl_GetEncodingNameFromEnvironment \ - (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */ -#endif -#ifndef Tcl_PkgRequireProc -#define Tcl_PkgRequireProc \ - (tclStubsPtr->tcl_PkgRequireProc) /* 573 */ -#endif -#ifndef Tcl_AppendObjToErrorInfo -#define Tcl_AppendObjToErrorInfo \ - (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */ -#endif -#ifndef Tcl_AppendLimitedToObj -#define Tcl_AppendLimitedToObj \ - (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */ -#endif -#ifndef Tcl_Format -#define Tcl_Format \ - (tclStubsPtr->tcl_Format) /* 576 */ -#endif -#ifndef Tcl_AppendFormatToObj -#define Tcl_AppendFormatToObj \ - (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */ -#endif -#ifndef Tcl_ObjPrintf -#define Tcl_ObjPrintf \ - (tclStubsPtr->tcl_ObjPrintf) /* 578 */ -#endif -#ifndef Tcl_AppendPrintfToObj -#define Tcl_AppendPrintfToObj \ - (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TCLDECLS */ - diff --git a/mingw/include/tclPlatDecls.h b/mingw/include/tclPlatDecls.h deleted file mode 100644 index c5812743d0..0000000000 --- a/mingw/include/tclPlatDecls.h +++ /dev/null @@ -1,141 +0,0 @@ -/* - * tclPlatDecls.h -- - * - * Declarations of platform specific Tcl APIs. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - * - * RCS: @(#) $Id: tclPlatDecls.h,v 1.27 2007/12/13 15:23:20 dgp Exp $ - */ - -#ifndef _TCLPLATDECLS -#define _TCLPLATDECLS - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * Pull in the typedef of TCHAR for windows. - */ -#if defined(__CYGWIN__) - typedef char TCHAR; -#elif defined(__WIN32__) && !defined(_TCHAR_DEFINED) -# include -# ifndef _TCHAR_DEFINED - /* Borland seems to forget to set this. */ - typedef _TCHAR TCHAR; -# define _TCHAR_DEFINED -# endif -# if defined(_MSC_VER) && defined(__STDC__) - /* MSVC++ misses this. */ - typedef _TCHAR TCHAR; -# endif -#endif - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#ifdef __WIN32__ /* WIN */ -#ifndef Tcl_WinUtfToTChar_TCL_DECLARED -#define Tcl_WinUtfToTChar_TCL_DECLARED -/* 0 */ -EXTERN TCHAR * Tcl_WinUtfToTChar (CONST char * str, int len, - Tcl_DString * dsPtr); -#endif -#ifndef Tcl_WinTCharToUtf_TCL_DECLARED -#define Tcl_WinTCharToUtf_TCL_DECLARED -/* 1 */ -EXTERN char * Tcl_WinTCharToUtf (CONST TCHAR * str, int len, - Tcl_DString * dsPtr); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_MacOSXOpenBundleResources_TCL_DECLARED -#define Tcl_MacOSXOpenBundleResources_TCL_DECLARED -/* 0 */ -EXTERN int Tcl_MacOSXOpenBundleResources (Tcl_Interp * interp, - CONST char * bundleName, int hasResourceFile, - int maxPathLen, char * libraryPath); -#endif -#ifndef Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED -#define Tcl_MacOSXOpenVersionedBundleResources_TCL_DECLARED -/* 1 */ -EXTERN int Tcl_MacOSXOpenVersionedBundleResources ( - Tcl_Interp * interp, CONST char * bundleName, - CONST char * bundleVersion, - int hasResourceFile, int maxPathLen, - char * libraryPath); -#endif -#endif /* MACOSX */ - -typedef struct TclPlatStubs { - int magic; - struct TclPlatStubHooks *hooks; - -#ifdef __WIN32__ /* WIN */ - TCHAR * (*tcl_WinUtfToTChar) (CONST char * str, int len, Tcl_DString * dsPtr); /* 0 */ - char * (*tcl_WinTCharToUtf) (CONST TCHAR * str, int len, Tcl_DString * dsPtr); /* 1 */ -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ - int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp * interp, CONST char * bundleName, int hasResourceFile, int maxPathLen, char * libraryPath); /* 0 */ - int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp * interp, CONST char * bundleName, CONST char * bundleVersion, int hasResourceFile, int maxPathLen, char * libraryPath); /* 1 */ -#endif /* MACOSX */ -} TclPlatStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TclPlatStubs *tclPlatStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifdef __WIN32__ /* WIN */ -#ifndef Tcl_WinUtfToTChar -#define Tcl_WinUtfToTChar \ - (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */ -#endif -#ifndef Tcl_WinTCharToUtf -#define Tcl_WinTCharToUtf \ - (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TCL /* MACOSX */ -#ifndef Tcl_MacOSXOpenBundleResources -#define Tcl_MacOSXOpenBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ -#endif -#ifndef Tcl_MacOSXOpenVersionedBundleResources -#define Tcl_MacOSXOpenVersionedBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ -#endif -#endif /* MACOSX */ - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TCLPLATDECLS */ - - diff --git a/mingw/include/tclTomMath.h b/mingw/include/tclTomMath.h deleted file mode 100644 index d05178c186..0000000000 --- a/mingw/include/tclTomMath.h +++ /dev/null @@ -1,845 +0,0 @@ -/* LibTomMath, multiple-precision integer library -- Tom St Denis - * - * LibTomMath is a library that provides multiple-precision - * integer arithmetic as well as number theoretic functionality. - * - * The library was designed directly after the MPI library by - * Michael Fromberger but has been written from scratch with - * additional optimizations in place. - * - * The library is free for all purposes without any express - * guarantee it works. - * - * Tom St Denis, tomstdenis@gmail.com, http://math.libtomcrypt.com - */ -#ifndef BN_H_ -#define BN_H_ - -#include -#ifndef MODULE_SCOPE -#define MODULE_SCOPE extern -#endif - -#include -#include -#include -#include -#include - -#include - -#ifndef MIN - #define MIN(x,y) ((x)<(y)?(x):(y)) -#endif - -#ifndef MAX - #define MAX(x,y) ((x)>(y)?(x):(y)) -#endif - -#ifdef __cplusplus -extern "C" { - -/* C++ compilers don't like assigning void * to mp_digit * */ -#define OPT_CAST(x) (x *) - -#else - -/* C on the other hand doesn't care */ -#define OPT_CAST(x) - -#endif - - -/* detect 64-bit mode if possible */ -#if defined(NEVER) /* 128-bit ints fail in too many places */ - #if !(defined(MP_64BIT) && defined(MP_16BIT) && defined(MP_8BIT)) - #define MP_64BIT - #endif -#endif - -/* some default configurations. - * - * A "mp_digit" must be able to hold DIGIT_BIT + 1 bits - * A "mp_word" must be able to hold 2*DIGIT_BIT + 1 bits - * - * At the very least a mp_digit must be able to hold 7 bits - * [any size beyond that is ok provided it doesn't overflow the data type] - */ -#ifdef MP_8BIT -#ifndef MP_DIGIT_DECLARED - typedef unsigned char mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef unsigned short mp_word; -#elif defined(MP_16BIT) -#ifndef MP_DIGIT_DECLARED - typedef unsigned short mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef unsigned long mp_word; -#elif defined(MP_64BIT) - /* for GCC only on supported platforms */ -#ifndef CRYPT - typedef unsigned long long ulong64; - typedef signed long long long64; -#endif - -#ifndef MP_DIGIT_DECLARED - typedef unsigned long mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef unsigned long mp_word __attribute__ ((mode(TI))); - - #define DIGIT_BIT 60 -#else - /* this is the default case, 28-bit digits */ - - /* this is to make porting into LibTomCrypt easier :-) */ -#ifndef CRYPT - #if defined(_MSC_VER) || defined(__BORLANDC__) - typedef unsigned __int64 ulong64; - typedef signed __int64 long64; - #else - typedef unsigned long long ulong64; - typedef signed long long long64; - #endif -#endif - -#ifndef MP_DIGIT_DECLARED - typedef unsigned int mp_digit; -#define MP_DIGIT_DECLARED -#endif - typedef ulong64 mp_word; - -#ifdef MP_31BIT - /* this is an extension that uses 31-bit digits */ - #define DIGIT_BIT 31 -#else - /* default case is 28-bit digits, defines MP_28BIT as a handy macro to test */ - #define DIGIT_BIT 28 - #define MP_28BIT -#endif -#endif - -/* define heap macros */ -#if 0 /* these are macros in tclTomMathDecls.h */ -#ifndef CRYPT - /* default to libc stuff */ - #ifndef XMALLOC - #define XMALLOC malloc - #define XFREE free - #define XREALLOC realloc - #define XCALLOC calloc - #else - /* prototypes for our heap functions */ - extern void *XMALLOC(size_t n); - extern void *XREALLOC(void *p, size_t n); - extern void *XCALLOC(size_t n, size_t s); - extern void XFREE(void *p); - #endif -#endif -#endif - - -/* otherwise the bits per digit is calculated automatically from the size of a mp_digit */ -#ifndef DIGIT_BIT - #define DIGIT_BIT ((int)((CHAR_BIT * sizeof(mp_digit) - 1))) /* bits per digit */ -#endif - -#define MP_DIGIT_BIT DIGIT_BIT -#define MP_MASK ((((mp_digit)1)<<((mp_digit)DIGIT_BIT))-((mp_digit)1)) -#define MP_DIGIT_MAX MP_MASK - -/* equalities */ -#define MP_LT -1 /* less than */ -#define MP_EQ 0 /* equal to */ -#define MP_GT 1 /* greater than */ - -#define MP_ZPOS 0 /* positive integer */ -#define MP_NEG 1 /* negative */ - -#define MP_OKAY 0 /* ok result */ -#define MP_MEM -2 /* out of mem */ -#define MP_VAL -3 /* invalid input */ -#define MP_RANGE MP_VAL - -#define MP_YES 1 /* yes response */ -#define MP_NO 0 /* no response */ - -/* Primality generation flags */ -#define LTM_PRIME_BBS 0x0001 /* BBS style prime */ -#define LTM_PRIME_SAFE 0x0002 /* Safe prime (p-1)/2 == prime */ -#define LTM_PRIME_2MSB_ON 0x0008 /* force 2nd MSB to 1 */ - -typedef int mp_err; - -/* you'll have to tune these... */ -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE int KARATSUBA_MUL_CUTOFF, - KARATSUBA_SQR_CUTOFF, - TOOM_MUL_CUTOFF, - TOOM_SQR_CUTOFF; -#endif - -/* define this to use lower memory usage routines (exptmods mostly) */ -/* #define MP_LOW_MEM */ - -/* default precision */ -#ifndef MP_PREC - #ifndef MP_LOW_MEM - #define MP_PREC 32 /* default digits of precision */ - #else - #define MP_PREC 8 /* default digits of precision */ - #endif -#endif - -/* size of comba arrays, should be at least 2 * 2**(BITS_PER_WORD - BITS_PER_DIGIT*2) */ -#define MP_WARRAY (1 << (sizeof(mp_word) * CHAR_BIT - 2 * DIGIT_BIT + 1)) - -/* the infamous mp_int structure */ -#ifndef MP_INT_DECLARED -#define MP_INT_DECLARED -typedef struct mp_int mp_int; -#endif -struct mp_int { - int used, alloc, sign; - mp_digit *dp; -}; - -/* callback for mp_prime_random, should fill dst with random bytes and return how many read [upto len] */ -typedef int ltm_prime_callback(unsigned char *dst, int len, void *dat); - - -#define USED(m) ((m)->used) -#define DIGIT(m,k) ((m)->dp[(k)]) -#define SIGN(m) ((m)->sign) - -/* error code to char* string */ -/* -char *mp_error_to_string(int code); -*/ - -/* ---> init and deinit bignum functions <--- */ -/* init a bignum */ -/* -int mp_init(mp_int *a); -*/ - -/* free a bignum */ -/* -void mp_clear(mp_int *a); -*/ - -/* init a null terminated series of arguments */ -/* -int mp_init_multi(mp_int *mp, ...); -*/ - -/* clear a null terminated series of arguments */ -/* -void mp_clear_multi(mp_int *mp, ...); -*/ - -/* exchange two ints */ -/* -void mp_exch(mp_int *a, mp_int *b); -*/ - -/* shrink ram required for a bignum */ -/* -int mp_shrink(mp_int *a); -*/ - -/* grow an int to a given size */ -/* -int mp_grow(mp_int *a, int size); -*/ - -/* init to a given number of digits */ -/* -int mp_init_size(mp_int *a, int size); -*/ - -/* ---> Basic Manipulations <--- */ -#define mp_iszero(a) (((a)->used == 0) ? MP_YES : MP_NO) -#define mp_iseven(a) (((a)->used == 0 || (((a)->dp[0] & 1) == 0)) ? MP_YES : MP_NO) -#define mp_isodd(a) (((a)->used > 0 && (((a)->dp[0] & 1) == 1)) ? MP_YES : MP_NO) - -/* set to zero */ -/* -void mp_zero(mp_int *a); -*/ - -/* set to a digit */ -/* -void mp_set(mp_int *a, mp_digit b); -*/ - -/* set a 32-bit const */ -/* -int mp_set_int(mp_int *a, unsigned long b); -*/ - -/* get a 32-bit value */ -unsigned long mp_get_int(mp_int * a); - -/* initialize and set a digit */ -/* -int mp_init_set (mp_int * a, mp_digit b); -*/ - -/* initialize and set 32-bit value */ -/* -int mp_init_set_int (mp_int * a, unsigned long b); -*/ - -/* copy, b = a */ -/* -int mp_copy(mp_int *a, mp_int *b); -*/ - -/* inits and copies, a = b */ -/* -int mp_init_copy(mp_int *a, mp_int *b); -*/ - -/* trim unused digits */ -/* -void mp_clamp(mp_int *a); -*/ - -/* ---> digit manipulation <--- */ - -/* right shift by "b" digits */ -/* -void mp_rshd(mp_int *a, int b); -*/ - -/* left shift by "b" digits */ -/* -int mp_lshd(mp_int *a, int b); -*/ - -/* c = a / 2**b */ -/* -int mp_div_2d(mp_int *a, int b, mp_int *c, mp_int *d); -*/ - -/* b = a/2 */ -/* -int mp_div_2(mp_int *a, mp_int *b); -*/ - -/* c = a * 2**b */ -/* -int mp_mul_2d(mp_int *a, int b, mp_int *c); -*/ - -/* b = a*2 */ -/* -int mp_mul_2(mp_int *a, mp_int *b); -*/ - -/* c = a mod 2**d */ -/* -int mp_mod_2d(mp_int *a, int b, mp_int *c); -*/ - -/* computes a = 2**b */ -/* -int mp_2expt(mp_int *a, int b); -*/ - -/* Counts the number of lsbs which are zero before the first zero bit */ -/* -int mp_cnt_lsb(mp_int *a); -*/ - -/* I Love Earth! */ - -/* makes a pseudo-random int of a given size */ -/* -int mp_rand(mp_int *a, int digits); -*/ - -/* ---> binary operations <--- */ -/* c = a XOR b */ -/* -int mp_xor(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a OR b */ -/* -int mp_or(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a AND b */ -/* -int mp_and(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* ---> Basic arithmetic <--- */ - -/* b = -a */ -/* -int mp_neg(mp_int *a, mp_int *b); -*/ - -/* b = |a| */ -/* -int mp_abs(mp_int *a, mp_int *b); -*/ - -/* compare a to b */ -/* -int mp_cmp(mp_int *a, mp_int *b); -*/ - -/* compare |a| to |b| */ -/* -int mp_cmp_mag(mp_int *a, mp_int *b); -*/ - -/* c = a + b */ -/* -int mp_add(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a - b */ -/* -int mp_sub(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = a * b */ -/* -int mp_mul(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* b = a*a */ -/* -int mp_sqr(mp_int *a, mp_int *b); -*/ - -/* a/b => cb + d == a */ -/* -int mp_div(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* c = a mod b, 0 <= c < b */ -/* -int mp_mod(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* ---> single digit functions <--- */ - -/* compare against a single digit */ -/* -int mp_cmp_d(mp_int *a, mp_digit b); -*/ - -/* c = a + b */ -/* -int mp_add_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* c = a - b */ -/* -int mp_sub_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* c = a * b */ -/* -int mp_mul_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* a/b => cb + d == a */ -/* -int mp_div_d(mp_int *a, mp_digit b, mp_int *c, mp_digit *d); -*/ - -/* a/3 => 3c + d == a */ -/* -int mp_div_3(mp_int *a, mp_int *c, mp_digit *d); -*/ - -/* c = a**b */ -/* -int mp_expt_d(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* c = a mod b, 0 <= c < b */ -/* -int mp_mod_d(mp_int *a, mp_digit b, mp_digit *c); -*/ - -/* ---> number theory <--- */ - -/* d = a + b (mod c) */ -/* -int mp_addmod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* d = a - b (mod c) */ -/* -int mp_submod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* d = a * b (mod c) */ -/* -int mp_mulmod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* c = a * a (mod b) */ -/* -int mp_sqrmod(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = 1/a (mod b) */ -/* -int mp_invmod(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* c = (a, b) */ -/* -int mp_gcd(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* produces value such that U1*a + U2*b = U3 */ -/* -int mp_exteuclid(mp_int *a, mp_int *b, mp_int *U1, mp_int *U2, mp_int *U3); -*/ - -/* c = [a, b] or (a*b)/(a, b) */ -/* -int mp_lcm(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* finds one of the b'th root of a, such that |c|**b <= |a| - * - * returns error if a < 0 and b is even - */ -/* -int mp_n_root(mp_int *a, mp_digit b, mp_int *c); -*/ - -/* special sqrt algo */ -/* -int mp_sqrt(mp_int *arg, mp_int *ret); -*/ - -/* is number a square? */ -/* -int mp_is_square(mp_int *arg, int *ret); -*/ - -/* computes the jacobi c = (a | n) (or Legendre if b is prime) */ -/* -int mp_jacobi(mp_int *a, mp_int *n, int *c); -*/ - -/* used to setup the Barrett reduction for a given modulus b */ -/* -int mp_reduce_setup(mp_int *a, mp_int *b); -*/ - -/* Barrett Reduction, computes a (mod b) with a precomputed value c - * - * Assumes that 0 < a <= b*b, note if 0 > a > -(b*b) then you can merely - * compute the reduction as -1 * mp_reduce(mp_abs(a)) [pseudo code]. - */ -/* -int mp_reduce(mp_int *a, mp_int *b, mp_int *c); -*/ - -/* setups the montgomery reduction */ -/* -int mp_montgomery_setup(mp_int *a, mp_digit *mp); -*/ - -/* computes a = B**n mod b without division or multiplication useful for - * normalizing numbers in a Montgomery system. - */ -/* -int mp_montgomery_calc_normalization(mp_int *a, mp_int *b); -*/ - -/* computes x/R == x (mod N) via Montgomery Reduction */ -/* -int mp_montgomery_reduce(mp_int *a, mp_int *m, mp_digit mp); -*/ - -/* returns 1 if a is a valid DR modulus */ -/* -int mp_dr_is_modulus(mp_int *a); -*/ - -/* sets the value of "d" required for mp_dr_reduce */ -/* -void mp_dr_setup(mp_int *a, mp_digit *d); -*/ - -/* reduces a modulo b using the Diminished Radix method */ -/* -int mp_dr_reduce(mp_int *a, mp_int *b, mp_digit mp); -*/ - -/* returns true if a can be reduced with mp_reduce_2k */ -/* -int mp_reduce_is_2k(mp_int *a); -*/ - -/* determines k value for 2k reduction */ -/* -int mp_reduce_2k_setup(mp_int *a, mp_digit *d); -*/ - -/* reduces a modulo b where b is of the form 2**p - k [0 <= a] */ -/* -int mp_reduce_2k(mp_int *a, mp_int *n, mp_digit d); -*/ - -/* returns true if a can be reduced with mp_reduce_2k_l */ -/* -int mp_reduce_is_2k_l(mp_int *a); -*/ - -/* determines k value for 2k reduction */ -/* -int mp_reduce_2k_setup_l(mp_int *a, mp_int *d); -*/ - -/* reduces a modulo b where b is of the form 2**p - k [0 <= a] */ -/* -int mp_reduce_2k_l(mp_int *a, mp_int *n, mp_int *d); -*/ - -/* d = a**b (mod c) */ -/* -int mp_exptmod(mp_int *a, mp_int *b, mp_int *c, mp_int *d); -*/ - -/* ---> Primes <--- */ - -/* number of primes */ -#ifdef MP_8BIT - #define PRIME_SIZE 31 -#else - #define PRIME_SIZE 256 -#endif - -/* table of first PRIME_SIZE primes */ -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE const mp_digit ltm_prime_tab[]; -#endif - -/* result=1 if a is divisible by one of the first PRIME_SIZE primes */ -/* -int mp_prime_is_divisible(mp_int *a, int *result); -*/ - -/* performs one Fermat test of "a" using base "b". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -int mp_prime_fermat(mp_int *a, mp_int *b, int *result); -*/ - -/* performs one Miller-Rabin test of "a" using base "b". - * Sets result to 0 if composite or 1 if probable prime - */ -/* -int mp_prime_miller_rabin(mp_int *a, mp_int *b, int *result); -*/ - -/* This gives [for a given bit size] the number of trials required - * such that Miller-Rabin gives a prob of failure lower than 2^-96 - */ -/* -int mp_prime_rabin_miller_trials(int size); -*/ - -/* performs t rounds of Miller-Rabin on "a" using the first - * t prime bases. Also performs an initial sieve of trial - * division. Determines if "a" is prime with probability - * of error no more than (1/4)**t. - * - * Sets result to 1 if probably prime, 0 otherwise - */ -/* -int mp_prime_is_prime(mp_int *a, int t, int *result); -*/ - -/* finds the next prime after the number "a" using "t" trials - * of Miller-Rabin. - * - * bbs_style = 1 means the prime must be congruent to 3 mod 4 - */ -/* -int mp_prime_next_prime(mp_int *a, int t, int bbs_style); -*/ - -/* makes a truly random prime of a given size (bytes), - * call with bbs = 1 if you want it to be congruent to 3 mod 4 - * - * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can - * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself - * so it can be NULL - * - * The prime generated will be larger than 2^(8*size). - */ -#define mp_prime_random(a, t, size, bbs, cb, dat) mp_prime_random_ex(a, t, ((size) * 8) + 1, (bbs==1)?LTM_PRIME_BBS:0, cb, dat) - -/* makes a truly random prime of a given size (bits), - * - * Flags are as follows: - * - * LTM_PRIME_BBS - make prime congruent to 3 mod 4 - * LTM_PRIME_SAFE - make sure (p-1)/2 is prime as well (implies LTM_PRIME_BBS) - * LTM_PRIME_2MSB_OFF - make the 2nd highest bit zero - * LTM_PRIME_2MSB_ON - make the 2nd highest bit one - * - * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can - * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself - * so it can be NULL - * - */ -/* -int mp_prime_random_ex(mp_int *a, int t, int size, int flags, ltm_prime_callback cb, void *dat); -*/ - -/* ---> radix conversion <--- */ -/* -int mp_count_bits(mp_int *a); -*/ - -/* -int mp_unsigned_bin_size(mp_int *a); -*/ -/* -int mp_read_unsigned_bin(mp_int *a, const unsigned char *b, int c); -*/ -/* -int mp_to_unsigned_bin(mp_int *a, unsigned char *b); -*/ -/* -int mp_to_unsigned_bin_n (mp_int * a, unsigned char *b, unsigned long *outlen); -*/ - -/* -int mp_signed_bin_size(mp_int *a); -*/ -/* -int mp_read_signed_bin(mp_int *a, const unsigned char *b, int c); -*/ -/* -int mp_to_signed_bin(mp_int *a, unsigned char *b); -*/ -/* -int mp_to_signed_bin_n (mp_int * a, unsigned char *b, unsigned long *outlen); -*/ - -/* -int mp_read_radix(mp_int *a, const char *str, int radix); -*/ -/* -int mp_toradix(mp_int *a, char *str, int radix); -*/ -/* -int mp_toradix_n(mp_int * a, char *str, int radix, int maxlen); -*/ -/* -int mp_radix_size(mp_int *a, int radix, int *size); -*/ - -/* -int mp_fread(mp_int *a, int radix, FILE *stream); -*/ -/* -int mp_fwrite(mp_int *a, int radix, FILE *stream); -*/ - -#define mp_read_raw(mp, str, len) mp_read_signed_bin((mp), (str), (len)) -#define mp_raw_size(mp) mp_signed_bin_size(mp) -#define mp_toraw(mp, str) mp_to_signed_bin((mp), (str)) -#define mp_read_mag(mp, str, len) mp_read_unsigned_bin((mp), (str), (len)) -#define mp_mag_size(mp) mp_unsigned_bin_size(mp) -#define mp_tomag(mp, str) mp_to_unsigned_bin((mp), (str)) - -#define mp_tobinary(M, S) mp_toradix((M), (S), 2) -#define mp_tooctal(M, S) mp_toradix((M), (S), 8) -#define mp_todecimal(M, S) mp_toradix((M), (S), 10) -#define mp_tohex(M, S) mp_toradix((M), (S), 16) - -/* lowlevel functions, do not call! */ -/* -int s_mp_add(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int s_mp_sub(mp_int *a, mp_int *b, mp_int *c); -*/ -#define s_mp_mul(a, b, c) s_mp_mul_digs(a, b, c, (a)->used + (b)->used + 1) -/* -int fast_s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int fast_s_mp_mul_high_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int s_mp_mul_high_digs(mp_int *a, mp_int *b, mp_int *c, int digs); -*/ -/* -int fast_s_mp_sqr(mp_int *a, mp_int *b); -*/ -/* -int s_mp_sqr(mp_int *a, mp_int *b); -*/ -/* -int mp_karatsuba_mul(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int mp_toom_mul(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int mp_karatsuba_sqr(mp_int *a, mp_int *b); -*/ -/* -int mp_toom_sqr(mp_int *a, mp_int *b); -*/ -/* -int fast_mp_invmod(mp_int *a, mp_int *b, mp_int *c); -*/ -/* -int mp_invmod_slow (mp_int * a, mp_int * b, mp_int * c); -*/ -/* -int fast_mp_montgomery_reduce(mp_int *a, mp_int *m, mp_digit mp); -*/ -/* -int mp_exptmod_fast(mp_int *G, mp_int *X, mp_int *P, mp_int *Y, int mode); -*/ -/* -int s_mp_exptmod (mp_int * G, mp_int * X, mp_int * P, mp_int * Y, int mode); -*/ -/* -void bn_reverse(unsigned char *s, int len); -*/ - -#if defined(BUILD_tcl) || !defined(_WIN32) -MODULE_SCOPE const char *mp_s_rmap; -#endif - -#ifdef __cplusplus - } -#endif - -#endif - - -/* $Source: /cvsroot/tcl/tcl/generic/tclTomMath.h,v $ */ -/* Based on Tom's version 1.8 */ -/* $Revision: 1.10 $ */ -/* $Date: 2007/02/14 17:59:21 $ */ - diff --git a/mingw/include/tclTomMathDecls.h b/mingw/include/tclTomMathDecls.h deleted file mode 100644 index 785c61b45b..0000000000 --- a/mingw/include/tclTomMathDecls.h +++ /dev/null @@ -1,789 +0,0 @@ -/* - *---------------------------------------------------------------------- - * - * tclTomMathDecls.h -- - * - * This file contains the declarations for the 'libtommath' - * functions that are exported by the Tcl library. - * - * Copyright (c) 2005 by Kevin B. Kenny. All rights reserved. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tclTomMathDecls.h,v 1.2 2006/11/15 14:58:27 dgp Exp $ - */ - -#ifndef _TCLTOMMATHDECLS -#define _TCLTOMMATHDECLS - -#include "tcl.h" - -/* - * Define the version of the Stubs table that's exported for tommath - */ - -#define TCLTOMMATH_EPOCH 0 -#define TCLTOMMATH_REVISION 0 - -#define Tcl_TomMath_InitStubs(interp,version) \ - (TclTomMathInitializeStubs((interp),(version),\ - TCLTOMMATH_EPOCH,TCLTOMMATH_REVISION)) - -/* Define custom memory allocation for libtommath */ - -/* MODULE_SCOPE void* TclBNAlloc( size_t ); */ -#define TclBNAlloc(s) ((void*)ckalloc((size_t)(s))) -/* MODULE_SCOPE void* TclBNRealloc( void*, size_t ); */ -#define TclBNRealloc(x,s) ((void*)ckrealloc((char*)(x),(size_t)(s))) -/* MODULE_SCOPE void TclBNFree( void* ); */ -#define TclBNFree(x) (ckfree((char*)(x))) -/* MODULE_SCOPE void* TclBNCalloc( size_t, size_t ); */ -/* unused - no macro */ - -#define XMALLOC(x) TclBNAlloc(x) -#define XFREE(x) TclBNFree(x) -#define XREALLOC(x,n) TclBNRealloc(x,n) -#define XCALLOC(n,x) TclBNCalloc(n,x) - -/* Rename the global symbols in libtommath to avoid linkage conflicts */ - -#define KARATSUBA_MUL_CUTOFF TclBNKaratsubaMulCutoff -#define KARATSUBA_SQR_CUTOFF TclBNKaratsubaSqrCutoff -#define TOOM_MUL_CUTOFF TclBNToomMulCutoff -#define TOOM_SQR_CUTOFF TclBNToomSqrCutoff - -#define bn_reverse TclBN_reverse -#define fast_s_mp_mul_digs TclBN_fast_s_mp_mul_digs -#define fast_s_mp_sqr TclBN_fast_s_mp_sqr -#define mp_add TclBN_mp_add -#define mp_add_d TclBN_mp_add_d -#define mp_and TclBN_mp_and -#define mp_clamp TclBN_mp_clamp -#define mp_clear TclBN_mp_clear -#define mp_clear_multi TclBN_mp_clear_multi -#define mp_cmp TclBN_mp_cmp -#define mp_cmp_d TclBN_mp_cmp_d -#define mp_cmp_mag TclBN_mp_cmp_mag -#define mp_copy TclBN_mp_copy -#define mp_count_bits TclBN_mp_count_bits -#define mp_div TclBN_mp_div -#define mp_div_2 TclBN_mp_div_2 -#define mp_div_2d TclBN_mp_div_2d -#define mp_div_3 TclBN_mp_div_3 -#define mp_div_d TclBN_mp_div_d -#define mp_exch TclBN_mp_exch -#define mp_expt_d TclBN_mp_expt_d -#define mp_grow TclBN_mp_grow -#define mp_init TclBN_mp_init -#define mp_init_copy TclBN_mp_init_copy -#define mp_init_multi TclBN_mp_init_multi -#define mp_init_set TclBN_mp_init_set -#define mp_init_size TclBN_mp_init_size -#define mp_karatsuba_mul TclBN_mp_karatsuba_mul -#define mp_karatsuba_sqr TclBN_mp_karatsuba_sqr -#define mp_lshd TclBN_mp_lshd -#define mp_mod TclBN_mp_mod -#define mp_mod_2d TclBN_mp_mod_2d -#define mp_mul TclBN_mp_mul -#define mp_mul_2 TclBN_mp_mul_2 -#define mp_mul_2d TclBN_mp_mul_2d -#define mp_mul_d TclBN_mp_mul_d -#define mp_neg TclBN_mp_neg -#define mp_or TclBN_mp_or -#define mp_radix_size TclBN_mp_radix_size -#define mp_read_radix TclBN_mp_read_radix -#define mp_rshd TclBN_mp_rshd -#define mp_s_rmap TclBNMpSRmap -#define mp_set TclBN_mp_set -#define mp_shrink TclBN_mp_shrink -#define mp_sqr TclBN_mp_sqr -#define mp_sqrt TclBN_mp_sqrt -#define mp_sub TclBN_mp_sub -#define mp_sub_d TclBN_mp_sub_d -#define mp_to_unsigned_bin TclBN_mp_to_unsigned_bin -#define mp_to_unsigned_bin_n TclBN_mp_to_unsigned_bin_n -#define mp_toom_mul TclBN_mp_toom_mul -#define mp_toom_sqr TclBN_mp_toom_sqr -#define mp_toradix_n TclBN_mp_toradix_n -#define mp_unsigned_bin_size TclBN_mp_unsigned_bin_size -#define mp_xor TclBN_mp_xor -#define mp_zero TclBN_mp_zero -#define s_mp_add TclBN_s_mp_add -#define s_mp_mul_digs TclBN_s_mp_mul_digs -#define s_mp_sqr TclBN_s_mp_sqr -#define s_mp_sub TclBN_s_mp_sub - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#ifndef TclBN_epoch_TCL_DECLARED -#define TclBN_epoch_TCL_DECLARED -/* 0 */ -EXTERN int TclBN_epoch (void); -#endif -#ifndef TclBN_revision_TCL_DECLARED -#define TclBN_revision_TCL_DECLARED -/* 1 */ -EXTERN int TclBN_revision (void); -#endif -#ifndef TclBN_mp_add_TCL_DECLARED -#define TclBN_mp_add_TCL_DECLARED -/* 2 */ -EXTERN int TclBN_mp_add (mp_int* a, mp_int* b, mp_int* c); -#endif -#ifndef TclBN_mp_add_d_TCL_DECLARED -#define TclBN_mp_add_d_TCL_DECLARED -/* 3 */ -EXTERN int TclBN_mp_add_d (mp_int* a, mp_digit b, mp_int* c); -#endif -#ifndef TclBN_mp_and_TCL_DECLARED -#define TclBN_mp_and_TCL_DECLARED -/* 4 */ -EXTERN int TclBN_mp_and (mp_int* a, mp_int* b, mp_int* c); -#endif -#ifndef TclBN_mp_clamp_TCL_DECLARED -#define TclBN_mp_clamp_TCL_DECLARED -/* 5 */ -EXTERN void TclBN_mp_clamp (mp_int* a); -#endif -#ifndef TclBN_mp_clear_TCL_DECLARED -#define TclBN_mp_clear_TCL_DECLARED -/* 6 */ -EXTERN void TclBN_mp_clear (mp_int* a); -#endif -#ifndef TclBN_mp_clear_multi_TCL_DECLARED -#define TclBN_mp_clear_multi_TCL_DECLARED -/* 7 */ -EXTERN void TclBN_mp_clear_multi (mp_int* a, ...); -#endif -#ifndef TclBN_mp_cmp_TCL_DECLARED -#define TclBN_mp_cmp_TCL_DECLARED -/* 8 */ -EXTERN int TclBN_mp_cmp (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_mp_cmp_d_TCL_DECLARED -#define TclBN_mp_cmp_d_TCL_DECLARED -/* 9 */ -EXTERN int TclBN_mp_cmp_d (mp_int* a, mp_digit b); -#endif -#ifndef TclBN_mp_cmp_mag_TCL_DECLARED -#define TclBN_mp_cmp_mag_TCL_DECLARED -/* 10 */ -EXTERN int TclBN_mp_cmp_mag (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_mp_copy_TCL_DECLARED -#define TclBN_mp_copy_TCL_DECLARED -/* 11 */ -EXTERN int TclBN_mp_copy (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_mp_count_bits_TCL_DECLARED -#define TclBN_mp_count_bits_TCL_DECLARED -/* 12 */ -EXTERN int TclBN_mp_count_bits (mp_int* a); -#endif -#ifndef TclBN_mp_div_TCL_DECLARED -#define TclBN_mp_div_TCL_DECLARED -/* 13 */ -EXTERN int TclBN_mp_div (mp_int* a, mp_int* b, mp_int* q, - mp_int* r); -#endif -#ifndef TclBN_mp_div_d_TCL_DECLARED -#define TclBN_mp_div_d_TCL_DECLARED -/* 14 */ -EXTERN int TclBN_mp_div_d (mp_int* a, mp_digit b, mp_int* q, - mp_digit* r); -#endif -#ifndef TclBN_mp_div_2_TCL_DECLARED -#define TclBN_mp_div_2_TCL_DECLARED -/* 15 */ -EXTERN int TclBN_mp_div_2 (mp_int* a, mp_int* q); -#endif -#ifndef TclBN_mp_div_2d_TCL_DECLARED -#define TclBN_mp_div_2d_TCL_DECLARED -/* 16 */ -EXTERN int TclBN_mp_div_2d (mp_int* a, int b, mp_int* q, - mp_int* r); -#endif -#ifndef TclBN_mp_div_3_TCL_DECLARED -#define TclBN_mp_div_3_TCL_DECLARED -/* 17 */ -EXTERN int TclBN_mp_div_3 (mp_int* a, mp_int* q, mp_digit* r); -#endif -#ifndef TclBN_mp_exch_TCL_DECLARED -#define TclBN_mp_exch_TCL_DECLARED -/* 18 */ -EXTERN void TclBN_mp_exch (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_mp_expt_d_TCL_DECLARED -#define TclBN_mp_expt_d_TCL_DECLARED -/* 19 */ -EXTERN int TclBN_mp_expt_d (mp_int* a, mp_digit b, mp_int* c); -#endif -#ifndef TclBN_mp_grow_TCL_DECLARED -#define TclBN_mp_grow_TCL_DECLARED -/* 20 */ -EXTERN int TclBN_mp_grow (mp_int* a, int size); -#endif -#ifndef TclBN_mp_init_TCL_DECLARED -#define TclBN_mp_init_TCL_DECLARED -/* 21 */ -EXTERN int TclBN_mp_init (mp_int* a); -#endif -#ifndef TclBN_mp_init_copy_TCL_DECLARED -#define TclBN_mp_init_copy_TCL_DECLARED -/* 22 */ -EXTERN int TclBN_mp_init_copy (mp_int * a, mp_int* b); -#endif -#ifndef TclBN_mp_init_multi_TCL_DECLARED -#define TclBN_mp_init_multi_TCL_DECLARED -/* 23 */ -EXTERN int TclBN_mp_init_multi (mp_int* a, ...); -#endif -#ifndef TclBN_mp_init_set_TCL_DECLARED -#define TclBN_mp_init_set_TCL_DECLARED -/* 24 */ -EXTERN int TclBN_mp_init_set (mp_int* a, mp_digit b); -#endif -#ifndef TclBN_mp_init_size_TCL_DECLARED -#define TclBN_mp_init_size_TCL_DECLARED -/* 25 */ -EXTERN int TclBN_mp_init_size (mp_int* a, int size); -#endif -#ifndef TclBN_mp_lshd_TCL_DECLARED -#define TclBN_mp_lshd_TCL_DECLARED -/* 26 */ -EXTERN int TclBN_mp_lshd (mp_int* a, int shift); -#endif -#ifndef TclBN_mp_mod_TCL_DECLARED -#define TclBN_mp_mod_TCL_DECLARED -/* 27 */ -EXTERN int TclBN_mp_mod (mp_int* a, mp_int* b, mp_int* r); -#endif -#ifndef TclBN_mp_mod_2d_TCL_DECLARED -#define TclBN_mp_mod_2d_TCL_DECLARED -/* 28 */ -EXTERN int TclBN_mp_mod_2d (mp_int* a, int b, mp_int* r); -#endif -#ifndef TclBN_mp_mul_TCL_DECLARED -#define TclBN_mp_mul_TCL_DECLARED -/* 29 */ -EXTERN int TclBN_mp_mul (mp_int* a, mp_int* b, mp_int* p); -#endif -#ifndef TclBN_mp_mul_d_TCL_DECLARED -#define TclBN_mp_mul_d_TCL_DECLARED -/* 30 */ -EXTERN int TclBN_mp_mul_d (mp_int* a, mp_digit b, mp_int* p); -#endif -#ifndef TclBN_mp_mul_2_TCL_DECLARED -#define TclBN_mp_mul_2_TCL_DECLARED -/* 31 */ -EXTERN int TclBN_mp_mul_2 (mp_int* a, mp_int* p); -#endif -#ifndef TclBN_mp_mul_2d_TCL_DECLARED -#define TclBN_mp_mul_2d_TCL_DECLARED -/* 32 */ -EXTERN int TclBN_mp_mul_2d (mp_int* a, int d, mp_int* p); -#endif -#ifndef TclBN_mp_neg_TCL_DECLARED -#define TclBN_mp_neg_TCL_DECLARED -/* 33 */ -EXTERN int TclBN_mp_neg (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_mp_or_TCL_DECLARED -#define TclBN_mp_or_TCL_DECLARED -/* 34 */ -EXTERN int TclBN_mp_or (mp_int* a, mp_int* b, mp_int* c); -#endif -#ifndef TclBN_mp_radix_size_TCL_DECLARED -#define TclBN_mp_radix_size_TCL_DECLARED -/* 35 */ -EXTERN int TclBN_mp_radix_size (mp_int* a, int radix, int* size); -#endif -#ifndef TclBN_mp_read_radix_TCL_DECLARED -#define TclBN_mp_read_radix_TCL_DECLARED -/* 36 */ -EXTERN int TclBN_mp_read_radix (mp_int* a, const char* str, - int radix); -#endif -#ifndef TclBN_mp_rshd_TCL_DECLARED -#define TclBN_mp_rshd_TCL_DECLARED -/* 37 */ -EXTERN void TclBN_mp_rshd (mp_int * a, int shift); -#endif -#ifndef TclBN_mp_shrink_TCL_DECLARED -#define TclBN_mp_shrink_TCL_DECLARED -/* 38 */ -EXTERN int TclBN_mp_shrink (mp_int* a); -#endif -#ifndef TclBN_mp_set_TCL_DECLARED -#define TclBN_mp_set_TCL_DECLARED -/* 39 */ -EXTERN void TclBN_mp_set (mp_int* a, mp_digit b); -#endif -#ifndef TclBN_mp_sqr_TCL_DECLARED -#define TclBN_mp_sqr_TCL_DECLARED -/* 40 */ -EXTERN int TclBN_mp_sqr (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_mp_sqrt_TCL_DECLARED -#define TclBN_mp_sqrt_TCL_DECLARED -/* 41 */ -EXTERN int TclBN_mp_sqrt (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_mp_sub_TCL_DECLARED -#define TclBN_mp_sub_TCL_DECLARED -/* 42 */ -EXTERN int TclBN_mp_sub (mp_int* a, mp_int* b, mp_int* c); -#endif -#ifndef TclBN_mp_sub_d_TCL_DECLARED -#define TclBN_mp_sub_d_TCL_DECLARED -/* 43 */ -EXTERN int TclBN_mp_sub_d (mp_int* a, mp_digit b, mp_int* c); -#endif -#ifndef TclBN_mp_to_unsigned_bin_TCL_DECLARED -#define TclBN_mp_to_unsigned_bin_TCL_DECLARED -/* 44 */ -EXTERN int TclBN_mp_to_unsigned_bin (mp_int* a, - unsigned char* b); -#endif -#ifndef TclBN_mp_to_unsigned_bin_n_TCL_DECLARED -#define TclBN_mp_to_unsigned_bin_n_TCL_DECLARED -/* 45 */ -EXTERN int TclBN_mp_to_unsigned_bin_n (mp_int* a, - unsigned char* b, unsigned long* outlen); -#endif -#ifndef TclBN_mp_toradix_n_TCL_DECLARED -#define TclBN_mp_toradix_n_TCL_DECLARED -/* 46 */ -EXTERN int TclBN_mp_toradix_n (mp_int* a, char* str, int radix, - int maxlen); -#endif -#ifndef TclBN_mp_unsigned_bin_size_TCL_DECLARED -#define TclBN_mp_unsigned_bin_size_TCL_DECLARED -/* 47 */ -EXTERN int TclBN_mp_unsigned_bin_size (mp_int* a); -#endif -#ifndef TclBN_mp_xor_TCL_DECLARED -#define TclBN_mp_xor_TCL_DECLARED -/* 48 */ -EXTERN int TclBN_mp_xor (mp_int* a, mp_int* b, mp_int* c); -#endif -#ifndef TclBN_mp_zero_TCL_DECLARED -#define TclBN_mp_zero_TCL_DECLARED -/* 49 */ -EXTERN void TclBN_mp_zero (mp_int* a); -#endif -#ifndef TclBN_reverse_TCL_DECLARED -#define TclBN_reverse_TCL_DECLARED -/* 50 */ -EXTERN void TclBN_reverse (unsigned char* s, int len); -#endif -#ifndef TclBN_fast_s_mp_mul_digs_TCL_DECLARED -#define TclBN_fast_s_mp_mul_digs_TCL_DECLARED -/* 51 */ -EXTERN int TclBN_fast_s_mp_mul_digs (mp_int * a, mp_int * b, - mp_int * c, int digs); -#endif -#ifndef TclBN_fast_s_mp_sqr_TCL_DECLARED -#define TclBN_fast_s_mp_sqr_TCL_DECLARED -/* 52 */ -EXTERN int TclBN_fast_s_mp_sqr (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_mp_karatsuba_mul_TCL_DECLARED -#define TclBN_mp_karatsuba_mul_TCL_DECLARED -/* 53 */ -EXTERN int TclBN_mp_karatsuba_mul (mp_int* a, mp_int* b, - mp_int* c); -#endif -#ifndef TclBN_mp_karatsuba_sqr_TCL_DECLARED -#define TclBN_mp_karatsuba_sqr_TCL_DECLARED -/* 54 */ -EXTERN int TclBN_mp_karatsuba_sqr (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_mp_toom_mul_TCL_DECLARED -#define TclBN_mp_toom_mul_TCL_DECLARED -/* 55 */ -EXTERN int TclBN_mp_toom_mul (mp_int* a, mp_int* b, mp_int* c); -#endif -#ifndef TclBN_mp_toom_sqr_TCL_DECLARED -#define TclBN_mp_toom_sqr_TCL_DECLARED -/* 56 */ -EXTERN int TclBN_mp_toom_sqr (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_s_mp_add_TCL_DECLARED -#define TclBN_s_mp_add_TCL_DECLARED -/* 57 */ -EXTERN int TclBN_s_mp_add (mp_int* a, mp_int* b, mp_int* c); -#endif -#ifndef TclBN_s_mp_mul_digs_TCL_DECLARED -#define TclBN_s_mp_mul_digs_TCL_DECLARED -/* 58 */ -EXTERN int TclBN_s_mp_mul_digs (mp_int* a, mp_int* b, mp_int* c, - int digs); -#endif -#ifndef TclBN_s_mp_sqr_TCL_DECLARED -#define TclBN_s_mp_sqr_TCL_DECLARED -/* 59 */ -EXTERN int TclBN_s_mp_sqr (mp_int* a, mp_int* b); -#endif -#ifndef TclBN_s_mp_sub_TCL_DECLARED -#define TclBN_s_mp_sub_TCL_DECLARED -/* 60 */ -EXTERN int TclBN_s_mp_sub (mp_int* a, mp_int* b, mp_int* c); -#endif - -typedef struct TclTomMathStubs { - int magic; - struct TclTomMathStubHooks *hooks; - - int (*tclBN_epoch) (void); /* 0 */ - int (*tclBN_revision) (void); /* 1 */ - int (*tclBN_mp_add) (mp_int* a, mp_int* b, mp_int* c); /* 2 */ - int (*tclBN_mp_add_d) (mp_int* a, mp_digit b, mp_int* c); /* 3 */ - int (*tclBN_mp_and) (mp_int* a, mp_int* b, mp_int* c); /* 4 */ - void (*tclBN_mp_clamp) (mp_int* a); /* 5 */ - void (*tclBN_mp_clear) (mp_int* a); /* 6 */ - void (*tclBN_mp_clear_multi) (mp_int* a, ...); /* 7 */ - int (*tclBN_mp_cmp) (mp_int* a, mp_int* b); /* 8 */ - int (*tclBN_mp_cmp_d) (mp_int* a, mp_digit b); /* 9 */ - int (*tclBN_mp_cmp_mag) (mp_int* a, mp_int* b); /* 10 */ - int (*tclBN_mp_copy) (mp_int* a, mp_int* b); /* 11 */ - int (*tclBN_mp_count_bits) (mp_int* a); /* 12 */ - int (*tclBN_mp_div) (mp_int* a, mp_int* b, mp_int* q, mp_int* r); /* 13 */ - int (*tclBN_mp_div_d) (mp_int* a, mp_digit b, mp_int* q, mp_digit* r); /* 14 */ - int (*tclBN_mp_div_2) (mp_int* a, mp_int* q); /* 15 */ - int (*tclBN_mp_div_2d) (mp_int* a, int b, mp_int* q, mp_int* r); /* 16 */ - int (*tclBN_mp_div_3) (mp_int* a, mp_int* q, mp_digit* r); /* 17 */ - void (*tclBN_mp_exch) (mp_int* a, mp_int* b); /* 18 */ - int (*tclBN_mp_expt_d) (mp_int* a, mp_digit b, mp_int* c); /* 19 */ - int (*tclBN_mp_grow) (mp_int* a, int size); /* 20 */ - int (*tclBN_mp_init) (mp_int* a); /* 21 */ - int (*tclBN_mp_init_copy) (mp_int * a, mp_int* b); /* 22 */ - int (*tclBN_mp_init_multi) (mp_int* a, ...); /* 23 */ - int (*tclBN_mp_init_set) (mp_int* a, mp_digit b); /* 24 */ - int (*tclBN_mp_init_size) (mp_int* a, int size); /* 25 */ - int (*tclBN_mp_lshd) (mp_int* a, int shift); /* 26 */ - int (*tclBN_mp_mod) (mp_int* a, mp_int* b, mp_int* r); /* 27 */ - int (*tclBN_mp_mod_2d) (mp_int* a, int b, mp_int* r); /* 28 */ - int (*tclBN_mp_mul) (mp_int* a, mp_int* b, mp_int* p); /* 29 */ - int (*tclBN_mp_mul_d) (mp_int* a, mp_digit b, mp_int* p); /* 30 */ - int (*tclBN_mp_mul_2) (mp_int* a, mp_int* p); /* 31 */ - int (*tclBN_mp_mul_2d) (mp_int* a, int d, mp_int* p); /* 32 */ - int (*tclBN_mp_neg) (mp_int* a, mp_int* b); /* 33 */ - int (*tclBN_mp_or) (mp_int* a, mp_int* b, mp_int* c); /* 34 */ - int (*tclBN_mp_radix_size) (mp_int* a, int radix, int* size); /* 35 */ - int (*tclBN_mp_read_radix) (mp_int* a, const char* str, int radix); /* 36 */ - void (*tclBN_mp_rshd) (mp_int * a, int shift); /* 37 */ - int (*tclBN_mp_shrink) (mp_int* a); /* 38 */ - void (*tclBN_mp_set) (mp_int* a, mp_digit b); /* 39 */ - int (*tclBN_mp_sqr) (mp_int* a, mp_int* b); /* 40 */ - int (*tclBN_mp_sqrt) (mp_int* a, mp_int* b); /* 41 */ - int (*tclBN_mp_sub) (mp_int* a, mp_int* b, mp_int* c); /* 42 */ - int (*tclBN_mp_sub_d) (mp_int* a, mp_digit b, mp_int* c); /* 43 */ - int (*tclBN_mp_to_unsigned_bin) (mp_int* a, unsigned char* b); /* 44 */ - int (*tclBN_mp_to_unsigned_bin_n) (mp_int* a, unsigned char* b, unsigned long* outlen); /* 45 */ - int (*tclBN_mp_toradix_n) (mp_int* a, char* str, int radix, int maxlen); /* 46 */ - int (*tclBN_mp_unsigned_bin_size) (mp_int* a); /* 47 */ - int (*tclBN_mp_xor) (mp_int* a, mp_int* b, mp_int* c); /* 48 */ - void (*tclBN_mp_zero) (mp_int* a); /* 49 */ - void (*tclBN_reverse) (unsigned char* s, int len); /* 50 */ - int (*tclBN_fast_s_mp_mul_digs) (mp_int * a, mp_int * b, mp_int * c, int digs); /* 51 */ - int (*tclBN_fast_s_mp_sqr) (mp_int* a, mp_int* b); /* 52 */ - int (*tclBN_mp_karatsuba_mul) (mp_int* a, mp_int* b, mp_int* c); /* 53 */ - int (*tclBN_mp_karatsuba_sqr) (mp_int* a, mp_int* b); /* 54 */ - int (*tclBN_mp_toom_mul) (mp_int* a, mp_int* b, mp_int* c); /* 55 */ - int (*tclBN_mp_toom_sqr) (mp_int* a, mp_int* b); /* 56 */ - int (*tclBN_s_mp_add) (mp_int* a, mp_int* b, mp_int* c); /* 57 */ - int (*tclBN_s_mp_mul_digs) (mp_int* a, mp_int* b, mp_int* c, int digs); /* 58 */ - int (*tclBN_s_mp_sqr) (mp_int* a, mp_int* b); /* 59 */ - int (*tclBN_s_mp_sub) (mp_int* a, mp_int* b, mp_int* c); /* 60 */ -} TclTomMathStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TclTomMathStubs *tclTomMathStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef TclBN_epoch -#define TclBN_epoch \ - (tclTomMathStubsPtr->tclBN_epoch) /* 0 */ -#endif -#ifndef TclBN_revision -#define TclBN_revision \ - (tclTomMathStubsPtr->tclBN_revision) /* 1 */ -#endif -#ifndef TclBN_mp_add -#define TclBN_mp_add \ - (tclTomMathStubsPtr->tclBN_mp_add) /* 2 */ -#endif -#ifndef TclBN_mp_add_d -#define TclBN_mp_add_d \ - (tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */ -#endif -#ifndef TclBN_mp_and -#define TclBN_mp_and \ - (tclTomMathStubsPtr->tclBN_mp_and) /* 4 */ -#endif -#ifndef TclBN_mp_clamp -#define TclBN_mp_clamp \ - (tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */ -#endif -#ifndef TclBN_mp_clear -#define TclBN_mp_clear \ - (tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */ -#endif -#ifndef TclBN_mp_clear_multi -#define TclBN_mp_clear_multi \ - (tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */ -#endif -#ifndef TclBN_mp_cmp -#define TclBN_mp_cmp \ - (tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */ -#endif -#ifndef TclBN_mp_cmp_d -#define TclBN_mp_cmp_d \ - (tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */ -#endif -#ifndef TclBN_mp_cmp_mag -#define TclBN_mp_cmp_mag \ - (tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */ -#endif -#ifndef TclBN_mp_copy -#define TclBN_mp_copy \ - (tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */ -#endif -#ifndef TclBN_mp_count_bits -#define TclBN_mp_count_bits \ - (tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */ -#endif -#ifndef TclBN_mp_div -#define TclBN_mp_div \ - (tclTomMathStubsPtr->tclBN_mp_div) /* 13 */ -#endif -#ifndef TclBN_mp_div_d -#define TclBN_mp_div_d \ - (tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */ -#endif -#ifndef TclBN_mp_div_2 -#define TclBN_mp_div_2 \ - (tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */ -#endif -#ifndef TclBN_mp_div_2d -#define TclBN_mp_div_2d \ - (tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */ -#endif -#ifndef TclBN_mp_div_3 -#define TclBN_mp_div_3 \ - (tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */ -#endif -#ifndef TclBN_mp_exch -#define TclBN_mp_exch \ - (tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */ -#endif -#ifndef TclBN_mp_expt_d -#define TclBN_mp_expt_d \ - (tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */ -#endif -#ifndef TclBN_mp_grow -#define TclBN_mp_grow \ - (tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */ -#endif -#ifndef TclBN_mp_init -#define TclBN_mp_init \ - (tclTomMathStubsPtr->tclBN_mp_init) /* 21 */ -#endif -#ifndef TclBN_mp_init_copy -#define TclBN_mp_init_copy \ - (tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */ -#endif -#ifndef TclBN_mp_init_multi -#define TclBN_mp_init_multi \ - (tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */ -#endif -#ifndef TclBN_mp_init_set -#define TclBN_mp_init_set \ - (tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */ -#endif -#ifndef TclBN_mp_init_size -#define TclBN_mp_init_size \ - (tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */ -#endif -#ifndef TclBN_mp_lshd -#define TclBN_mp_lshd \ - (tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */ -#endif -#ifndef TclBN_mp_mod -#define TclBN_mp_mod \ - (tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */ -#endif -#ifndef TclBN_mp_mod_2d -#define TclBN_mp_mod_2d \ - (tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */ -#endif -#ifndef TclBN_mp_mul -#define TclBN_mp_mul \ - (tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */ -#endif -#ifndef TclBN_mp_mul_d -#define TclBN_mp_mul_d \ - (tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */ -#endif -#ifndef TclBN_mp_mul_2 -#define TclBN_mp_mul_2 \ - (tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */ -#endif -#ifndef TclBN_mp_mul_2d -#define TclBN_mp_mul_2d \ - (tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */ -#endif -#ifndef TclBN_mp_neg -#define TclBN_mp_neg \ - (tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */ -#endif -#ifndef TclBN_mp_or -#define TclBN_mp_or \ - (tclTomMathStubsPtr->tclBN_mp_or) /* 34 */ -#endif -#ifndef TclBN_mp_radix_size -#define TclBN_mp_radix_size \ - (tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */ -#endif -#ifndef TclBN_mp_read_radix -#define TclBN_mp_read_radix \ - (tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */ -#endif -#ifndef TclBN_mp_rshd -#define TclBN_mp_rshd \ - (tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */ -#endif -#ifndef TclBN_mp_shrink -#define TclBN_mp_shrink \ - (tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */ -#endif -#ifndef TclBN_mp_set -#define TclBN_mp_set \ - (tclTomMathStubsPtr->tclBN_mp_set) /* 39 */ -#endif -#ifndef TclBN_mp_sqr -#define TclBN_mp_sqr \ - (tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */ -#endif -#ifndef TclBN_mp_sqrt -#define TclBN_mp_sqrt \ - (tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */ -#endif -#ifndef TclBN_mp_sub -#define TclBN_mp_sub \ - (tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */ -#endif -#ifndef TclBN_mp_sub_d -#define TclBN_mp_sub_d \ - (tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */ -#endif -#ifndef TclBN_mp_to_unsigned_bin -#define TclBN_mp_to_unsigned_bin \ - (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */ -#endif -#ifndef TclBN_mp_to_unsigned_bin_n -#define TclBN_mp_to_unsigned_bin_n \ - (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin_n) /* 45 */ -#endif -#ifndef TclBN_mp_toradix_n -#define TclBN_mp_toradix_n \ - (tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */ -#endif -#ifndef TclBN_mp_unsigned_bin_size -#define TclBN_mp_unsigned_bin_size \ - (tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */ -#endif -#ifndef TclBN_mp_xor -#define TclBN_mp_xor \ - (tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */ -#endif -#ifndef TclBN_mp_zero -#define TclBN_mp_zero \ - (tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */ -#endif -#ifndef TclBN_reverse -#define TclBN_reverse \ - (tclTomMathStubsPtr->tclBN_reverse) /* 50 */ -#endif -#ifndef TclBN_fast_s_mp_mul_digs -#define TclBN_fast_s_mp_mul_digs \ - (tclTomMathStubsPtr->tclBN_fast_s_mp_mul_digs) /* 51 */ -#endif -#ifndef TclBN_fast_s_mp_sqr -#define TclBN_fast_s_mp_sqr \ - (tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */ -#endif -#ifndef TclBN_mp_karatsuba_mul -#define TclBN_mp_karatsuba_mul \ - (tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */ -#endif -#ifndef TclBN_mp_karatsuba_sqr -#define TclBN_mp_karatsuba_sqr \ - (tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */ -#endif -#ifndef TclBN_mp_toom_mul -#define TclBN_mp_toom_mul \ - (tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */ -#endif -#ifndef TclBN_mp_toom_sqr -#define TclBN_mp_toom_sqr \ - (tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */ -#endif -#ifndef TclBN_s_mp_add -#define TclBN_s_mp_add \ - (tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */ -#endif -#ifndef TclBN_s_mp_mul_digs -#define TclBN_s_mp_mul_digs \ - (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */ -#endif -#ifndef TclBN_s_mp_sqr -#define TclBN_s_mp_sqr \ - (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */ -#endif -#ifndef TclBN_s_mp_sub -#define TclBN_s_mp_sub \ - (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */ -#endif - -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TCLINTDECLS */ diff --git a/mingw/include/tifftcl.h b/mingw/include/tifftcl.h deleted file mode 100644 index a8853b6afe..0000000000 --- a/mingw/include/tifftcl.h +++ /dev/null @@ -1,157 +0,0 @@ -/* - * tifftcl.h -- - * - * Interface to libtiff. - * - * Copyright (c) 2002-2004 Andreas Kupries - * - * Zveno Pty Ltd makes this software and associated documentation - * available free of charge for any purpose. You may make copies - * of the software but you must include all of this notice on any copy. - * - * Zveno Pty Ltd does not warrant that this software is error free - * or fit for any purpose. Zveno Pty Ltd disclaims any liability for - * all claims, expenses, losses, damages and costs any user may incur - * as a result of using, copying or modifying the software. - * - * $Id: tifftcl.h,v 1.3 2004/08/16 19:23:38 andreas_kupries Exp $ - * - */ - -#ifndef __TIFFTCL_H__ -#define __TIFFTCL_H__ - -#include "tcl.h" - -#define TIFFTCL_MAJOR_VERSION 3 -#define TIFFTCL_MINOR_VERSION 6 -#define TIFFTCL_RELEASE_LEVEL TCL_RELEASE -#define TIFFTCL_RELEASE_SERIAL 1 - -#define TIFFTCL_VERSION "3.6.1" -#define TIFFTCL_PATCH_LEVEL "3.6.1" - -/* - * Used to block the rest of this header file from resource compilers so - * we can just get the version info. - */ -#ifndef RC_INVOKED - -/* TIP 27 update. If CONST84 is not defined we are compiling against a - * core before 8.4 and have to disable some CONST'ness. - */ - -#ifndef CONST84 -# define CONST84 -#endif - -/* - * Fix the Borland bug that's in the EXTERN macro from tcl.h. - */ -#ifndef TCL_EXTERN -# undef DLLIMPORT -# undef DLLEXPORT -# if defined(STATIC_BUILD) -# define DLLIMPORT -# define DLLEXPORT -# elif (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) || (defined(__GNUC__) && defined(__declspec)))) || (defined(MAC_TCL) && FUNCTION_DECLSPEC) -# define DLLIMPORT __declspec(dllimport) -# define DLLEXPORT __declspec(dllexport) -# elif defined(__BORLANDC__) -# define OLDBORLAND 1 -# define DLLIMPORT __import -# define DLLEXPORT __export -# else -# define DLLIMPORT -# define DLLEXPORT -# endif - /* Avoid name mangling from C++ compilers. */ -# ifdef __cplusplus -# define TCL_EXTRNC extern "C" -# else -# define TCL_EXTRNC extern -# endif - /* Pre-5.5 Borland requires the attributes be placed after the */ - /* return type. */ -# ifdef OLDBORLAND -# define TCL_EXTERN(RTYPE) TCL_EXTRNC RTYPE TCL_STORAGE_CLASS -# else -# define TCL_EXTERN(RTYPE) TCL_EXTRNC TCL_STORAGE_CLASS RTYPE -# endif -#endif - - - -/* - * These macros are used to control whether functions are being declared for - * import or export in Windows, - * They map to no-op declarations on non-Windows systems. - * Assumes that tcl.h defines DLLEXPORT & DLLIMPORT correctly. - * The default build on windows is for a DLL, which causes the DLLIMPORT - * and DLLEXPORT macros to be nonempty. To build a static library, the - * macro STATIC_BUILD should be defined before the inclusion of tcl.h - * - * If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the - * name of a library we are building, is set on the compile line for sources - * that are to be placed in the library. When this macro is set, the - * storage class will be set to DLLEXPORT. At the end of the header file, the - * storage class will be reset to DLLIMPORt. - */ - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tifftcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TIFFTCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - *---------------------------------------------------------------------------- - * C API for Tifftcl generic layer - *---------------------------------------------------------------------------- - */ - -/* - *---------------------------------------------------------------------------- - * Function prototypes for publically accessible routines - *---------------------------------------------------------------------------- - */ - -#include "tifftclDecls.h" - -/* - *---------------------------------------------------------------------------- - * Function prototypes for stub initialization. - *---------------------------------------------------------------------------- - */ - -#ifdef USE_TIFFTCL_STUBS -EXTERN CONST char * -Tifftcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, CONST char *version, int exact)); -#else - -/* - * When not using stubs, make it a macro. - */ - -#define Tifftcl_InitStubs(interp, version, exact) \ - Tcl_PkgRequire(interp, "tifftcl", version, exact) -#endif - - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ -#endif /* __TIFFTCL_H__ */ diff --git a/mingw/include/tifftclDecls.h b/mingw/include/tifftclDecls.h deleted file mode 100644 index 17681b5c7d..0000000000 --- a/mingw/include/tifftclDecls.h +++ /dev/null @@ -1,1212 +0,0 @@ -/* - * tifftclDecls.h -- - * - * Declarations of functions in the platform independent public TIFFTCL API. - * - */ - -#ifndef _TIFFTCLDECLS -#define _TIFFTCLDECLS - -/* - * WARNING: The contents of this file is automatically generated by the - * genStubs.tcl script. Any modifications to the function declarations - * below should be made in the tifftcl.decls script. - */ - -#include -#include -#include <../libtiff/tiffio.h> -#include <../libtiff/tiffiop.h> -#include <../libtiff/tif_predict.h> -#include - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Ensure usage of - */ - -#if defined(NO_STDARG) -# error "This code requires " -#else -# include -#endif - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN const char* TIFFGetVersion _ANSI_ARGS_((void)); -/* 1 */ -EXTERN const TIFFCodec* TIFFFindCODEC _ANSI_ARGS_((uint16 a)); -/* 2 */ -EXTERN TIFFCodec* TIFFRegisterCODEC _ANSI_ARGS_((uint16 a, - const char* b, TIFFInitMethod c)); -/* 3 */ -EXTERN void TIFFUnRegisterCODEC _ANSI_ARGS_((TIFFCodec* a)); -/* 4 */ -EXTERN tdata_t _TIFFmalloc _ANSI_ARGS_((tsize_t a)); -/* 5 */ -EXTERN tdata_t _TIFFrealloc _ANSI_ARGS_((tdata_t a, tsize_t b)); -/* 6 */ -EXTERN void _TIFFmemset _ANSI_ARGS_((tdata_t a, int b, tsize_t c)); -/* 7 */ -EXTERN void _TIFFmemcpy _ANSI_ARGS_((tdata_t a, const tdata_t b, - tsize_t c)); -/* 8 */ -EXTERN int _TIFFmemcmp _ANSI_ARGS_((const tdata_t a, - const tdata_t b, tsize_t c)); -/* 9 */ -EXTERN void _TIFFfree _ANSI_ARGS_((tdata_t a)); -/* 10 */ -EXTERN void TIFFClose _ANSI_ARGS_((TIFF* tiffptr)); -/* 11 */ -EXTERN int TIFFFlush _ANSI_ARGS_((TIFF* tiffptr)); -/* 12 */ -EXTERN int TIFFFlushData _ANSI_ARGS_((TIFF* tiffptr)); -/* 13 */ -EXTERN int TIFFGetField _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, - ... )); -/* 14 */ -EXTERN int TIFFVGetField _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, - va_list b)); -/* 15 */ -EXTERN int TIFFGetFieldDefaulted _ANSI_ARGS_((TIFF* tiffptr, - ttag_t a, ... )); -/* 16 */ -EXTERN int TIFFVGetFieldDefaulted _ANSI_ARGS_((TIFF* tiffptr, - ttag_t a, va_list b)); -/* 17 */ -EXTERN int TIFFReadDirectory _ANSI_ARGS_((TIFF* tiffptr)); -/* 18 */ -EXTERN tsize_t TIFFScanlineSize _ANSI_ARGS_((TIFF* tiffptr)); -/* 19 */ -EXTERN tsize_t TIFFRasterScanlineSize _ANSI_ARGS_((TIFF* tiffptr)); -/* 20 */ -EXTERN tsize_t TIFFStripSize _ANSI_ARGS_((TIFF* tiffptr)); -/* 21 */ -EXTERN tsize_t TIFFVStripSize _ANSI_ARGS_((TIFF* tiffptr, uint32 a)); -/* 22 */ -EXTERN tsize_t TIFFTileRowSize _ANSI_ARGS_((TIFF* tiffptr)); -/* 23 */ -EXTERN tsize_t TIFFTileSize _ANSI_ARGS_((TIFF* tiffptr)); -/* 24 */ -EXTERN tsize_t TIFFVTileSize _ANSI_ARGS_((TIFF* tiffptr, uint32 a)); -/* 25 */ -EXTERN uint32 TIFFDefaultStripSize _ANSI_ARGS_((TIFF* tiffptr, - uint32 a)); -/* 26 */ -EXTERN void TIFFDefaultTileSize _ANSI_ARGS_((TIFF* tiffptr, - uint32* a, uint32* b)); -/* 27 */ -EXTERN int TIFFFileno _ANSI_ARGS_((TIFF* tiffptr)); -/* 28 */ -EXTERN int TIFFGetMode _ANSI_ARGS_((TIFF* tiffptr)); -/* 29 */ -EXTERN int TIFFIsTiled _ANSI_ARGS_((TIFF* tiffptr)); -/* 30 */ -EXTERN int TIFFIsByteSwapped _ANSI_ARGS_((TIFF* tiffptr)); -/* 31 */ -EXTERN int TIFFIsUpSampled _ANSI_ARGS_((TIFF* tiffptr)); -/* 32 */ -EXTERN int TIFFIsMSB2LSB _ANSI_ARGS_((TIFF* tiffptr)); -/* 33 */ -EXTERN uint32 TIFFCurrentRow _ANSI_ARGS_((TIFF* tiffptr)); -/* 34 */ -EXTERN tdir_t TIFFCurrentDirectory _ANSI_ARGS_((TIFF* tiffptr)); -/* 35 */ -EXTERN tdir_t TIFFNumberOfDirectories _ANSI_ARGS_((TIFF* tiffptr)); -/* 36 */ -EXTERN uint32 TIFFCurrentDirOffset _ANSI_ARGS_((TIFF* tiffptr)); -/* 37 */ -EXTERN tstrip_t TIFFCurrentStrip _ANSI_ARGS_((TIFF* tiffptr)); -/* 38 */ -EXTERN ttile_t TIFFCurrentTile _ANSI_ARGS_((TIFF* tiffptr)); -/* 39 */ -EXTERN int TIFFReadBufferSetup _ANSI_ARGS_((TIFF* tiffptr, - tdata_t a, tsize_t b)); -/* 40 */ -EXTERN int TIFFWriteBufferSetup _ANSI_ARGS_((TIFF* tiffptr, - tdata_t a, tsize_t b)); -/* 41 */ -EXTERN int TIFFWriteCheck _ANSI_ARGS_((TIFF* tiffptr, int a, - const char * b)); -/* 42 */ -EXTERN int TIFFCreateDirectory _ANSI_ARGS_((TIFF* tiffptr)); -/* 43 */ -EXTERN int TIFFLastDirectory _ANSI_ARGS_((TIFF* tiffptr)); -/* 44 */ -EXTERN int TIFFSetDirectory _ANSI_ARGS_((TIFF* tiffptr, - tdir_t a)); -/* 45 */ -EXTERN int TIFFSetSubDirectory _ANSI_ARGS_((TIFF* tiffptr, - uint32 a)); -/* 46 */ -EXTERN int TIFFUnlinkDirectory _ANSI_ARGS_((TIFF* tiffptr, - tdir_t a)); -/* 47 */ -EXTERN int TIFFSetField _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, - ... )); -/* 48 */ -EXTERN int TIFFVSetField _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, - va_list b)); -/* 49 */ -EXTERN int TIFFWriteDirectory _ANSI_ARGS_((TIFF * tiffptr)); -/* 50 */ -EXTERN int TIFFReassignTagToIgnore _ANSI_ARGS_(( - enum TIFFIgnoreSense a, int b)); -/* 51 */ -EXTERN void TIFFPrintDirectory _ANSI_ARGS_((TIFF* tiffptr, - FILE* a, long b)); -/* 52 */ -EXTERN int TIFFReadScanline _ANSI_ARGS_((TIFF* tiffptr, - tdata_t a, uint32 b, tsample_t c)); -/* 53 */ -EXTERN int TIFFWriteScanline _ANSI_ARGS_((TIFF* tiffptr, - tdata_t a, uint32 b, tsample_t c)); -/* 54 */ -EXTERN int TIFFReadRGBAImage _ANSI_ARGS_((TIFF* tiffptr, - uint32 a, uint32 b, uint32* c, int d)); -/* 55 */ -EXTERN int TIFFReadRGBAStrip _ANSI_ARGS_((TIFF* tiffptr, - tstrip_t a, uint32 * b)); -/* 56 */ -EXTERN int TIFFReadRGBATile _ANSI_ARGS_((TIFF* tiffptr, - uint32 a, uint32 b, uint32 * c)); -/* 57 */ -EXTERN int TIFFRGBAImageOK _ANSI_ARGS_((TIFF* tiffptr, char* a)); -/* 58 */ -EXTERN int TIFFRGBAImageBegin _ANSI_ARGS_((TIFFRGBAImage* a, - TIFF* tiffptr, int b, char* c)); -/* 59 */ -EXTERN int TIFFRGBAImageGet _ANSI_ARGS_((TIFFRGBAImage* d, - uint32* c, uint32 b, uint32 a)); -/* 60 */ -EXTERN void TIFFRGBAImageEnd _ANSI_ARGS_((TIFFRGBAImage* a)); -/* 61 */ -EXTERN TIFF* TIFFOpen _ANSI_ARGS_((const char* b, const char* a)); -/* 62 */ -EXTERN TIFF* TIFFFdOpen _ANSI_ARGS_((int a, const char* b, - const char* c)); -/* 63 */ -EXTERN TIFF* TIFFClientOpen _ANSI_ARGS_((const char* a, - const char* b, thandle_t c, - TIFFReadWriteProc d, TIFFReadWriteProc e, - TIFFSeekProc f, TIFFCloseProc g, - TIFFSizeProc h, TIFFMapFileProc i, - TIFFUnmapFileProc j)); -/* 64 */ -EXTERN const char* TIFFFileName _ANSI_ARGS_((TIFF* tiffptr)); -/* 65 */ -EXTERN void TIFFError _ANSI_ARGS_((const char* a, const char* b, - ... )); -/* 66 */ -EXTERN void TIFFWarning _ANSI_ARGS_((const char* a, - const char* b, ... )); -/* 67 */ -EXTERN TIFFErrorHandler TIFFSetErrorHandler _ANSI_ARGS_((TIFFErrorHandler a)); -/* 68 */ -EXTERN TIFFErrorHandler TIFFSetWarningHandler _ANSI_ARGS_(( - TIFFErrorHandler a)); -/* 69 */ -EXTERN TIFFExtendProc TIFFSetTagExtender _ANSI_ARGS_((TIFFExtendProc a)); -/* 70 */ -EXTERN ttile_t TIFFComputeTile _ANSI_ARGS_((TIFF* tiffptr, uint32 a, - uint32 b, uint32 c, tsample_t d)); -/* 71 */ -EXTERN int TIFFCheckTile _ANSI_ARGS_((TIFF* tiffptr, uint32 d, - uint32 c, uint32 b, tsample_t a)); -/* 72 */ -EXTERN ttile_t TIFFNumberOfTiles _ANSI_ARGS_((TIFF* tiffptr)); -/* 73 */ -EXTERN tsize_t TIFFReadTile _ANSI_ARGS_((TIFF* tiffptr, tdata_t a, - uint32 b, uint32 c, uint32 d, tsample_t e)); -/* 74 */ -EXTERN tsize_t TIFFWriteTile _ANSI_ARGS_((TIFF* tiffptr, tdata_t e, - uint32 d, uint32 c, uint32 b, tsample_t a)); -/* 75 */ -EXTERN tstrip_t TIFFComputeStrip _ANSI_ARGS_((TIFF* tiffptr, - uint32 a, tsample_t b)); -/* 76 */ -EXTERN tstrip_t TIFFNumberOfStrips _ANSI_ARGS_((TIFF* tiffptr)); -/* 77 */ -EXTERN tsize_t TIFFReadEncodedStrip _ANSI_ARGS_((TIFF* tiffptr, - tstrip_t a, tdata_t b, tsize_t c)); -/* 78 */ -EXTERN tsize_t TIFFReadRawStrip _ANSI_ARGS_((TIFF* tiffptr, - tstrip_t a, tdata_t b, tsize_t c)); -/* 79 */ -EXTERN tsize_t TIFFReadEncodedTile _ANSI_ARGS_((TIFF* tiffptr, - ttile_t a, tdata_t b, tsize_t c)); -/* 80 */ -EXTERN tsize_t TIFFReadRawTile _ANSI_ARGS_((TIFF* tiffptr, - ttile_t c, tdata_t b, tsize_t a)); -/* 81 */ -EXTERN tsize_t TIFFWriteEncodedStrip _ANSI_ARGS_((TIFF* tiffptr, - tstrip_t a, tdata_t b, tsize_t c)); -/* 82 */ -EXTERN tsize_t TIFFWriteRawStrip _ANSI_ARGS_((TIFF* tiffptr, - tstrip_t a, tdata_t b, tsize_t c)); -/* 83 */ -EXTERN tsize_t TIFFWriteEncodedTile _ANSI_ARGS_((TIFF* tiffptr, - ttile_t a, tdata_t b, tsize_t c)); -/* 84 */ -EXTERN tsize_t TIFFWriteRawTile _ANSI_ARGS_((TIFF* tiffptr, - ttile_t c, tdata_t b, tsize_t a)); -/* 85 */ -EXTERN void TIFFSetWriteOffset _ANSI_ARGS_((TIFF* tiffptr, - toff_t a)); -/* 86 */ -EXTERN void TIFFSwabShort _ANSI_ARGS_((uint16* a)); -/* 87 */ -EXTERN void TIFFSwabLong _ANSI_ARGS_((uint32* a)); -/* 88 */ -EXTERN void TIFFSwabDouble _ANSI_ARGS_((double* a)); -/* 89 */ -EXTERN void TIFFSwabArrayOfShort _ANSI_ARGS_((uint16* a, - unsigned long b)); -/* 90 */ -EXTERN void TIFFSwabArrayOfLong _ANSI_ARGS_((uint32* b, - unsigned long a)); -/* 91 */ -EXTERN void TIFFSwabArrayOfDouble _ANSI_ARGS_((double* a, - unsigned long b)); -/* 92 */ -EXTERN void TIFFReverseBits _ANSI_ARGS_((unsigned char* a, - unsigned long b)); -/* 93 */ -EXTERN const unsigned char* TIFFGetBitRevTable _ANSI_ARGS_((int a)); -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* Slot 96 is reserved */ -/* Slot 97 is reserved */ -/* Slot 98 is reserved */ -/* Slot 99 is reserved */ -/* 100 */ -EXTERN int TIFFPredictorInit _ANSI_ARGS_((TIFF* tiffptr)); -/* Slot 101 is reserved */ -/* Slot 102 is reserved */ -/* Slot 103 is reserved */ -/* Slot 104 is reserved */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -/* Slot 108 is reserved */ -/* Slot 109 is reserved */ -/* 110 */ -EXTERN void _TIFFSetupFieldInfo _ANSI_ARGS_((TIFF* tiffptr)); -/* 111 */ -EXTERN void TIFFMergeFieldInfo _ANSI_ARGS_((TIFF* tiffptr, - const TIFFFieldInfo* a, int b)); -/* 112 */ -EXTERN void _TIFFPrintFieldInfo _ANSI_ARGS_((TIFF* tiffptr, - FILE* a)); -/* 113 */ -EXTERN const TIFFFieldInfo* TIFFFindFieldInfo _ANSI_ARGS_((TIFF* tiffptr, - ttag_t a, TIFFDataType b)); -/* 114 */ -EXTERN const TIFFFieldInfo* TIFFFieldWithTag _ANSI_ARGS_((TIFF* tiffptr, - ttag_t a)); -/* 115 */ -EXTERN TIFFDataType _TIFFSampleToTagType _ANSI_ARGS_((TIFF* tiffptr)); -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -/* 120 */ -EXTERN int _TIFFgetMode _ANSI_ARGS_((const char* a, - const char* b)); -/* 121 */ -EXTERN int _TIFFNoRowEncode _ANSI_ARGS_((TIFF* tiffptr, - tidata_t a, tsize_t b, tsample_t c)); -/* 122 */ -EXTERN int _TIFFNoStripEncode _ANSI_ARGS_((TIFF* tiffptr, - tidata_t c, tsize_t b, tsample_t a)); -/* 123 */ -EXTERN int _TIFFNoTileEncode _ANSI_ARGS_((TIFF* tiffptr, - tidata_t a, tsize_t b, tsample_t c)); -/* 124 */ -EXTERN int _TIFFNoRowDecode _ANSI_ARGS_((TIFF* tiffptr, - tidata_t c, tsize_t b, tsample_t a)); -/* 125 */ -EXTERN int _TIFFNoStripDecode _ANSI_ARGS_((TIFF* tiffptr, - tidata_t a, tsize_t b, tsample_t c)); -/* 126 */ -EXTERN int _TIFFNoTileDecode _ANSI_ARGS_((TIFF* tiffptr, - tidata_t c, tsize_t b, tsample_t a)); -/* 127 */ -EXTERN void _TIFFNoPostDecode _ANSI_ARGS_((TIFF* tiffptr, - tidata_t a, tsize_t b)); -/* 128 */ -EXTERN int _TIFFNoPreCode _ANSI_ARGS_((TIFF* tiffptr, - tsample_t a)); -/* 129 */ -EXTERN int _TIFFNoSeek _ANSI_ARGS_((TIFF* tiffptr, uint32 a)); -/* 130 */ -EXTERN void _TIFFSwab16BitData _ANSI_ARGS_((TIFF* tiffptr, - tidata_t a, tsize_t b)); -/* 131 */ -EXTERN void _TIFFSwab32BitData _ANSI_ARGS_((TIFF* tiffptr, - tidata_t b, tsize_t a)); -/* 132 */ -EXTERN void _TIFFSwab64BitData _ANSI_ARGS_((TIFF* tiffptr, - tidata_t a, tsize_t b)); -/* 133 */ -EXTERN int TIFFFlushData1 _ANSI_ARGS_((TIFF* tiffptr)); -/* 134 */ -EXTERN void TIFFFreeDirectory _ANSI_ARGS_((TIFF* tiffptr)); -/* 135 */ -EXTERN int TIFFDefaultDirectory _ANSI_ARGS_((TIFF* tiffptr)); -/* 136 */ -EXTERN int TIFFSetCompressionScheme _ANSI_ARGS_((TIFF* tiffptr, - int a)); -/* 137 */ -EXTERN int _TIFFSetDefaultCompressionState _ANSI_ARGS_(( - TIFF* tiffptr)); -/* 138 */ -EXTERN uint32 _TIFFDefaultStripSize _ANSI_ARGS_((TIFF* tiffptr, - uint32 a)); -/* 139 */ -EXTERN void _TIFFDefaultTileSize _ANSI_ARGS_((TIFF* tiffptr, - uint32* a, uint32* b)); -/* 140 */ -EXTERN void _TIFFsetByteArray _ANSI_ARGS_((void** a, void* b, - long c)); -/* 141 */ -EXTERN void _TIFFsetString _ANSI_ARGS_((char** a, char* b)); -/* 142 */ -EXTERN void _TIFFsetShortArray _ANSI_ARGS_((uint16** a, - uint16* b, long c)); -/* 143 */ -EXTERN void _TIFFsetLongArray _ANSI_ARGS_((uint32** a, uint32* b, - long c)); -/* 144 */ -EXTERN void _TIFFsetFloatArray _ANSI_ARGS_((float** a, float* b, - long c)); -/* 145 */ -EXTERN void _TIFFsetDoubleArray _ANSI_ARGS_((double** a, - double* b, long c)); -/* 146 */ -EXTERN void _TIFFprintAscii _ANSI_ARGS_((FILE* a, const char* b)); -/* 147 */ -EXTERN void _TIFFprintAsciiTag _ANSI_ARGS_((FILE* a, - const char* b, const char* c)); -/* 148 */ -EXTERN int TIFFInitDumpMode _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 149 */ -EXTERN int TIFFInitPackBits _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 150 */ -EXTERN int TIFFInitCCITTRLE _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 151 */ -EXTERN int TIFFInitCCITTRLEW _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 152 */ -EXTERN int TIFFInitCCITTFax3 _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 153 */ -EXTERN int TIFFInitCCITTFax4 _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 154 */ -EXTERN int TIFFInitThunderScan _ANSI_ARGS_((TIFF* tiffptr, - int a)); -/* 155 */ -EXTERN int TIFFInitNeXT _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 156 */ -EXTERN int TIFFInitLZW _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 157 */ -EXTERN int TIFFInitOJPEG _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 158 */ -EXTERN int TIFFInitJPEG _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 159 */ -EXTERN int TIFFInitJBIG _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 160 */ -EXTERN int TIFFInitZIP _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 161 */ -EXTERN int TIFFInitPixarLog _ANSI_ARGS_((TIFF* tiffptr, int a)); -/* 162 */ -EXTERN int TIFFInitSGILog _ANSI_ARGS_((TIFF* tiffptr, int a)); - -typedef struct TifftclStubs { - int magic; - struct TifftclStubHooks *hooks; - - const char* (*tIFFGetVersion) _ANSI_ARGS_((void)); /* 0 */ - const TIFFCodec* (*tIFFFindCODEC) _ANSI_ARGS_((uint16 a)); /* 1 */ - TIFFCodec* (*tIFFRegisterCODEC) _ANSI_ARGS_((uint16 a, const char* b, TIFFInitMethod c)); /* 2 */ - void (*tIFFUnRegisterCODEC) _ANSI_ARGS_((TIFFCodec* a)); /* 3 */ - tdata_t (*_TIFFmalloc) _ANSI_ARGS_((tsize_t a)); /* 4 */ - tdata_t (*_TIFFrealloc) _ANSI_ARGS_((tdata_t a, tsize_t b)); /* 5 */ - void (*_TIFFmemset) _ANSI_ARGS_((tdata_t a, int b, tsize_t c)); /* 6 */ - void (*_TIFFmemcpy) _ANSI_ARGS_((tdata_t a, const tdata_t b, tsize_t c)); /* 7 */ - int (*_TIFFmemcmp) _ANSI_ARGS_((const tdata_t a, const tdata_t b, tsize_t c)); /* 8 */ - void (*_TIFFfree) _ANSI_ARGS_((tdata_t a)); /* 9 */ - void (*tIFFClose) _ANSI_ARGS_((TIFF* tiffptr)); /* 10 */ - int (*tIFFFlush) _ANSI_ARGS_((TIFF* tiffptr)); /* 11 */ - int (*tIFFFlushData) _ANSI_ARGS_((TIFF* tiffptr)); /* 12 */ - int (*tIFFGetField) _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, ... )); /* 13 */ - int (*tIFFVGetField) _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, va_list b)); /* 14 */ - int (*tIFFGetFieldDefaulted) _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, ... )); /* 15 */ - int (*tIFFVGetFieldDefaulted) _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, va_list b)); /* 16 */ - int (*tIFFReadDirectory) _ANSI_ARGS_((TIFF* tiffptr)); /* 17 */ - tsize_t (*tIFFScanlineSize) _ANSI_ARGS_((TIFF* tiffptr)); /* 18 */ - tsize_t (*tIFFRasterScanlineSize) _ANSI_ARGS_((TIFF* tiffptr)); /* 19 */ - tsize_t (*tIFFStripSize) _ANSI_ARGS_((TIFF* tiffptr)); /* 20 */ - tsize_t (*tIFFVStripSize) _ANSI_ARGS_((TIFF* tiffptr, uint32 a)); /* 21 */ - tsize_t (*tIFFTileRowSize) _ANSI_ARGS_((TIFF* tiffptr)); /* 22 */ - tsize_t (*tIFFTileSize) _ANSI_ARGS_((TIFF* tiffptr)); /* 23 */ - tsize_t (*tIFFVTileSize) _ANSI_ARGS_((TIFF* tiffptr, uint32 a)); /* 24 */ - uint32 (*tIFFDefaultStripSize) _ANSI_ARGS_((TIFF* tiffptr, uint32 a)); /* 25 */ - void (*tIFFDefaultTileSize) _ANSI_ARGS_((TIFF* tiffptr, uint32* a, uint32* b)); /* 26 */ - int (*tIFFFileno) _ANSI_ARGS_((TIFF* tiffptr)); /* 27 */ - int (*tIFFGetMode) _ANSI_ARGS_((TIFF* tiffptr)); /* 28 */ - int (*tIFFIsTiled) _ANSI_ARGS_((TIFF* tiffptr)); /* 29 */ - int (*tIFFIsByteSwapped) _ANSI_ARGS_((TIFF* tiffptr)); /* 30 */ - int (*tIFFIsUpSampled) _ANSI_ARGS_((TIFF* tiffptr)); /* 31 */ - int (*tIFFIsMSB2LSB) _ANSI_ARGS_((TIFF* tiffptr)); /* 32 */ - uint32 (*tIFFCurrentRow) _ANSI_ARGS_((TIFF* tiffptr)); /* 33 */ - tdir_t (*tIFFCurrentDirectory) _ANSI_ARGS_((TIFF* tiffptr)); /* 34 */ - tdir_t (*tIFFNumberOfDirectories) _ANSI_ARGS_((TIFF* tiffptr)); /* 35 */ - uint32 (*tIFFCurrentDirOffset) _ANSI_ARGS_((TIFF* tiffptr)); /* 36 */ - tstrip_t (*tIFFCurrentStrip) _ANSI_ARGS_((TIFF* tiffptr)); /* 37 */ - ttile_t (*tIFFCurrentTile) _ANSI_ARGS_((TIFF* tiffptr)); /* 38 */ - int (*tIFFReadBufferSetup) _ANSI_ARGS_((TIFF* tiffptr, tdata_t a, tsize_t b)); /* 39 */ - int (*tIFFWriteBufferSetup) _ANSI_ARGS_((TIFF* tiffptr, tdata_t a, tsize_t b)); /* 40 */ - int (*tIFFWriteCheck) _ANSI_ARGS_((TIFF* tiffptr, int a, const char * b)); /* 41 */ - int (*tIFFCreateDirectory) _ANSI_ARGS_((TIFF* tiffptr)); /* 42 */ - int (*tIFFLastDirectory) _ANSI_ARGS_((TIFF* tiffptr)); /* 43 */ - int (*tIFFSetDirectory) _ANSI_ARGS_((TIFF* tiffptr, tdir_t a)); /* 44 */ - int (*tIFFSetSubDirectory) _ANSI_ARGS_((TIFF* tiffptr, uint32 a)); /* 45 */ - int (*tIFFUnlinkDirectory) _ANSI_ARGS_((TIFF* tiffptr, tdir_t a)); /* 46 */ - int (*tIFFSetField) _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, ... )); /* 47 */ - int (*tIFFVSetField) _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, va_list b)); /* 48 */ - int (*tIFFWriteDirectory) _ANSI_ARGS_((TIFF * tiffptr)); /* 49 */ - int (*tIFFReassignTagToIgnore) _ANSI_ARGS_((enum TIFFIgnoreSense a, int b)); /* 50 */ - void (*tIFFPrintDirectory) _ANSI_ARGS_((TIFF* tiffptr, FILE* a, long b)); /* 51 */ - int (*tIFFReadScanline) _ANSI_ARGS_((TIFF* tiffptr, tdata_t a, uint32 b, tsample_t c)); /* 52 */ - int (*tIFFWriteScanline) _ANSI_ARGS_((TIFF* tiffptr, tdata_t a, uint32 b, tsample_t c)); /* 53 */ - int (*tIFFReadRGBAImage) _ANSI_ARGS_((TIFF* tiffptr, uint32 a, uint32 b, uint32* c, int d)); /* 54 */ - int (*tIFFReadRGBAStrip) _ANSI_ARGS_((TIFF* tiffptr, tstrip_t a, uint32 * b)); /* 55 */ - int (*tIFFReadRGBATile) _ANSI_ARGS_((TIFF* tiffptr, uint32 a, uint32 b, uint32 * c)); /* 56 */ - int (*tIFFRGBAImageOK) _ANSI_ARGS_((TIFF* tiffptr, char* a)); /* 57 */ - int (*tIFFRGBAImageBegin) _ANSI_ARGS_((TIFFRGBAImage* a, TIFF* tiffptr, int b, char* c)); /* 58 */ - int (*tIFFRGBAImageGet) _ANSI_ARGS_((TIFFRGBAImage* d, uint32* c, uint32 b, uint32 a)); /* 59 */ - void (*tIFFRGBAImageEnd) _ANSI_ARGS_((TIFFRGBAImage* a)); /* 60 */ - TIFF* (*tIFFOpen) _ANSI_ARGS_((const char* b, const char* a)); /* 61 */ - TIFF* (*tIFFFdOpen) _ANSI_ARGS_((int a, const char* b, const char* c)); /* 62 */ - TIFF* (*tIFFClientOpen) _ANSI_ARGS_((const char* a, const char* b, thandle_t c, TIFFReadWriteProc d, TIFFReadWriteProc e, TIFFSeekProc f, TIFFCloseProc g, TIFFSizeProc h, TIFFMapFileProc i, TIFFUnmapFileProc j)); /* 63 */ - const char* (*tIFFFileName) _ANSI_ARGS_((TIFF* tiffptr)); /* 64 */ - void (*tIFFError) _ANSI_ARGS_((const char* a, const char* b, ... )); /* 65 */ - void (*tIFFWarning) _ANSI_ARGS_((const char* a, const char* b, ... )); /* 66 */ - TIFFErrorHandler (*tIFFSetErrorHandler) _ANSI_ARGS_((TIFFErrorHandler a)); /* 67 */ - TIFFErrorHandler (*tIFFSetWarningHandler) _ANSI_ARGS_((TIFFErrorHandler a)); /* 68 */ - TIFFExtendProc (*tIFFSetTagExtender) _ANSI_ARGS_((TIFFExtendProc a)); /* 69 */ - ttile_t (*tIFFComputeTile) _ANSI_ARGS_((TIFF* tiffptr, uint32 a, uint32 b, uint32 c, tsample_t d)); /* 70 */ - int (*tIFFCheckTile) _ANSI_ARGS_((TIFF* tiffptr, uint32 d, uint32 c, uint32 b, tsample_t a)); /* 71 */ - ttile_t (*tIFFNumberOfTiles) _ANSI_ARGS_((TIFF* tiffptr)); /* 72 */ - tsize_t (*tIFFReadTile) _ANSI_ARGS_((TIFF* tiffptr, tdata_t a, uint32 b, uint32 c, uint32 d, tsample_t e)); /* 73 */ - tsize_t (*tIFFWriteTile) _ANSI_ARGS_((TIFF* tiffptr, tdata_t e, uint32 d, uint32 c, uint32 b, tsample_t a)); /* 74 */ - tstrip_t (*tIFFComputeStrip) _ANSI_ARGS_((TIFF* tiffptr, uint32 a, tsample_t b)); /* 75 */ - tstrip_t (*tIFFNumberOfStrips) _ANSI_ARGS_((TIFF* tiffptr)); /* 76 */ - tsize_t (*tIFFReadEncodedStrip) _ANSI_ARGS_((TIFF* tiffptr, tstrip_t a, tdata_t b, tsize_t c)); /* 77 */ - tsize_t (*tIFFReadRawStrip) _ANSI_ARGS_((TIFF* tiffptr, tstrip_t a, tdata_t b, tsize_t c)); /* 78 */ - tsize_t (*tIFFReadEncodedTile) _ANSI_ARGS_((TIFF* tiffptr, ttile_t a, tdata_t b, tsize_t c)); /* 79 */ - tsize_t (*tIFFReadRawTile) _ANSI_ARGS_((TIFF* tiffptr, ttile_t c, tdata_t b, tsize_t a)); /* 80 */ - tsize_t (*tIFFWriteEncodedStrip) _ANSI_ARGS_((TIFF* tiffptr, tstrip_t a, tdata_t b, tsize_t c)); /* 81 */ - tsize_t (*tIFFWriteRawStrip) _ANSI_ARGS_((TIFF* tiffptr, tstrip_t a, tdata_t b, tsize_t c)); /* 82 */ - tsize_t (*tIFFWriteEncodedTile) _ANSI_ARGS_((TIFF* tiffptr, ttile_t a, tdata_t b, tsize_t c)); /* 83 */ - tsize_t (*tIFFWriteRawTile) _ANSI_ARGS_((TIFF* tiffptr, ttile_t c, tdata_t b, tsize_t a)); /* 84 */ - void (*tIFFSetWriteOffset) _ANSI_ARGS_((TIFF* tiffptr, toff_t a)); /* 85 */ - void (*tIFFSwabShort) _ANSI_ARGS_((uint16* a)); /* 86 */ - void (*tIFFSwabLong) _ANSI_ARGS_((uint32* a)); /* 87 */ - void (*tIFFSwabDouble) _ANSI_ARGS_((double* a)); /* 88 */ - void (*tIFFSwabArrayOfShort) _ANSI_ARGS_((uint16* a, unsigned long b)); /* 89 */ - void (*tIFFSwabArrayOfLong) _ANSI_ARGS_((uint32* b, unsigned long a)); /* 90 */ - void (*tIFFSwabArrayOfDouble) _ANSI_ARGS_((double* a, unsigned long b)); /* 91 */ - void (*tIFFReverseBits) _ANSI_ARGS_((unsigned char* a, unsigned long b)); /* 92 */ - const unsigned char* (*tIFFGetBitRevTable) _ANSI_ARGS_((int a)); /* 93 */ - void *reserved94; - void *reserved95; - void *reserved96; - void *reserved97; - void *reserved98; - void *reserved99; - int (*tIFFPredictorInit) _ANSI_ARGS_((TIFF* tiffptr)); /* 100 */ - void *reserved101; - void *reserved102; - void *reserved103; - void *reserved104; - void *reserved105; - void *reserved106; - void *reserved107; - void *reserved108; - void *reserved109; - void (*_TIFFSetupFieldInfo) _ANSI_ARGS_((TIFF* tiffptr)); /* 110 */ - void (*tIFFMergeFieldInfo) _ANSI_ARGS_((TIFF* tiffptr, const TIFFFieldInfo* a, int b)); /* 111 */ - void (*_TIFFPrintFieldInfo) _ANSI_ARGS_((TIFF* tiffptr, FILE* a)); /* 112 */ - const TIFFFieldInfo* (*tIFFFindFieldInfo) _ANSI_ARGS_((TIFF* tiffptr, ttag_t a, TIFFDataType b)); /* 113 */ - const TIFFFieldInfo* (*tIFFFieldWithTag) _ANSI_ARGS_((TIFF* tiffptr, ttag_t a)); /* 114 */ - TIFFDataType (*_TIFFSampleToTagType) _ANSI_ARGS_((TIFF* tiffptr)); /* 115 */ - void *reserved116; - void *reserved117; - void *reserved118; - void *reserved119; - int (*_TIFFgetMode) _ANSI_ARGS_((const char* a, const char* b)); /* 120 */ - int (*_TIFFNoRowEncode) _ANSI_ARGS_((TIFF* tiffptr, tidata_t a, tsize_t b, tsample_t c)); /* 121 */ - int (*_TIFFNoStripEncode) _ANSI_ARGS_((TIFF* tiffptr, tidata_t c, tsize_t b, tsample_t a)); /* 122 */ - int (*_TIFFNoTileEncode) _ANSI_ARGS_((TIFF* tiffptr, tidata_t a, tsize_t b, tsample_t c)); /* 123 */ - int (*_TIFFNoRowDecode) _ANSI_ARGS_((TIFF* tiffptr, tidata_t c, tsize_t b, tsample_t a)); /* 124 */ - int (*_TIFFNoStripDecode) _ANSI_ARGS_((TIFF* tiffptr, tidata_t a, tsize_t b, tsample_t c)); /* 125 */ - int (*_TIFFNoTileDecode) _ANSI_ARGS_((TIFF* tiffptr, tidata_t c, tsize_t b, tsample_t a)); /* 126 */ - void (*_TIFFNoPostDecode) _ANSI_ARGS_((TIFF* tiffptr, tidata_t a, tsize_t b)); /* 127 */ - int (*_TIFFNoPreCode) _ANSI_ARGS_((TIFF* tiffptr, tsample_t a)); /* 128 */ - int (*_TIFFNoSeek) _ANSI_ARGS_((TIFF* tiffptr, uint32 a)); /* 129 */ - void (*_TIFFSwab16BitData) _ANSI_ARGS_((TIFF* tiffptr, tidata_t a, tsize_t b)); /* 130 */ - void (*_TIFFSwab32BitData) _ANSI_ARGS_((TIFF* tiffptr, tidata_t b, tsize_t a)); /* 131 */ - void (*_TIFFSwab64BitData) _ANSI_ARGS_((TIFF* tiffptr, tidata_t a, tsize_t b)); /* 132 */ - int (*tIFFFlushData1) _ANSI_ARGS_((TIFF* tiffptr)); /* 133 */ - void (*tIFFFreeDirectory) _ANSI_ARGS_((TIFF* tiffptr)); /* 134 */ - int (*tIFFDefaultDirectory) _ANSI_ARGS_((TIFF* tiffptr)); /* 135 */ - int (*tIFFSetCompressionScheme) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 136 */ - int (*_TIFFSetDefaultCompressionState) _ANSI_ARGS_((TIFF* tiffptr)); /* 137 */ - uint32 (*_TIFFDefaultStripSize) _ANSI_ARGS_((TIFF* tiffptr, uint32 a)); /* 138 */ - void (*_TIFFDefaultTileSize) _ANSI_ARGS_((TIFF* tiffptr, uint32* a, uint32* b)); /* 139 */ - void (*_TIFFsetByteArray) _ANSI_ARGS_((void** a, void* b, long c)); /* 140 */ - void (*_TIFFsetString) _ANSI_ARGS_((char** a, char* b)); /* 141 */ - void (*_TIFFsetShortArray) _ANSI_ARGS_((uint16** a, uint16* b, long c)); /* 142 */ - void (*_TIFFsetLongArray) _ANSI_ARGS_((uint32** a, uint32* b, long c)); /* 143 */ - void (*_TIFFsetFloatArray) _ANSI_ARGS_((float** a, float* b, long c)); /* 144 */ - void (*_TIFFsetDoubleArray) _ANSI_ARGS_((double** a, double* b, long c)); /* 145 */ - void (*_TIFFprintAscii) _ANSI_ARGS_((FILE* a, const char* b)); /* 146 */ - void (*_TIFFprintAsciiTag) _ANSI_ARGS_((FILE* a, const char* b, const char* c)); /* 147 */ - int (*tIFFInitDumpMode) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 148 */ - int (*tIFFInitPackBits) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 149 */ - int (*tIFFInitCCITTRLE) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 150 */ - int (*tIFFInitCCITTRLEW) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 151 */ - int (*tIFFInitCCITTFax3) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 152 */ - int (*tIFFInitCCITTFax4) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 153 */ - int (*tIFFInitThunderScan) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 154 */ - int (*tIFFInitNeXT) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 155 */ - int (*tIFFInitLZW) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 156 */ - int (*tIFFInitOJPEG) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 157 */ - int (*tIFFInitJPEG) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 158 */ - int (*tIFFInitJBIG) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 159 */ - int (*tIFFInitZIP) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 160 */ - int (*tIFFInitPixarLog) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 161 */ - int (*tIFFInitSGILog) _ANSI_ARGS_((TIFF* tiffptr, int a)); /* 162 */ -} TifftclStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TifftclStubs *tifftclStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TIFFTCL_STUBS) && !defined(USE_TIFFTCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef TIFFGetVersion -#define TIFFGetVersion \ - (tifftclStubsPtr->tIFFGetVersion) /* 0 */ -#endif -#ifndef TIFFFindCODEC -#define TIFFFindCODEC \ - (tifftclStubsPtr->tIFFFindCODEC) /* 1 */ -#endif -#ifndef TIFFRegisterCODEC -#define TIFFRegisterCODEC \ - (tifftclStubsPtr->tIFFRegisterCODEC) /* 2 */ -#endif -#ifndef TIFFUnRegisterCODEC -#define TIFFUnRegisterCODEC \ - (tifftclStubsPtr->tIFFUnRegisterCODEC) /* 3 */ -#endif -#ifndef _TIFFmalloc -#define _TIFFmalloc \ - (tifftclStubsPtr->_TIFFmalloc) /* 4 */ -#endif -#ifndef _TIFFrealloc -#define _TIFFrealloc \ - (tifftclStubsPtr->_TIFFrealloc) /* 5 */ -#endif -#ifndef _TIFFmemset -#define _TIFFmemset \ - (tifftclStubsPtr->_TIFFmemset) /* 6 */ -#endif -#ifndef _TIFFmemcpy -#define _TIFFmemcpy \ - (tifftclStubsPtr->_TIFFmemcpy) /* 7 */ -#endif -#ifndef _TIFFmemcmp -#define _TIFFmemcmp \ - (tifftclStubsPtr->_TIFFmemcmp) /* 8 */ -#endif -#ifndef _TIFFfree -#define _TIFFfree \ - (tifftclStubsPtr->_TIFFfree) /* 9 */ -#endif -#ifndef TIFFClose -#define TIFFClose \ - (tifftclStubsPtr->tIFFClose) /* 10 */ -#endif -#ifndef TIFFFlush -#define TIFFFlush \ - (tifftclStubsPtr->tIFFFlush) /* 11 */ -#endif -#ifndef TIFFFlushData -#define TIFFFlushData \ - (tifftclStubsPtr->tIFFFlushData) /* 12 */ -#endif -#ifndef TIFFGetField -#define TIFFGetField \ - (tifftclStubsPtr->tIFFGetField) /* 13 */ -#endif -#ifndef TIFFVGetField -#define TIFFVGetField \ - (tifftclStubsPtr->tIFFVGetField) /* 14 */ -#endif -#ifndef TIFFGetFieldDefaulted -#define TIFFGetFieldDefaulted \ - (tifftclStubsPtr->tIFFGetFieldDefaulted) /* 15 */ -#endif -#ifndef TIFFVGetFieldDefaulted -#define TIFFVGetFieldDefaulted \ - (tifftclStubsPtr->tIFFVGetFieldDefaulted) /* 16 */ -#endif -#ifndef TIFFReadDirectory -#define TIFFReadDirectory \ - (tifftclStubsPtr->tIFFReadDirectory) /* 17 */ -#endif -#ifndef TIFFScanlineSize -#define TIFFScanlineSize \ - (tifftclStubsPtr->tIFFScanlineSize) /* 18 */ -#endif -#ifndef TIFFRasterScanlineSize -#define TIFFRasterScanlineSize \ - (tifftclStubsPtr->tIFFRasterScanlineSize) /* 19 */ -#endif -#ifndef TIFFStripSize -#define TIFFStripSize \ - (tifftclStubsPtr->tIFFStripSize) /* 20 */ -#endif -#ifndef TIFFVStripSize -#define TIFFVStripSize \ - (tifftclStubsPtr->tIFFVStripSize) /* 21 */ -#endif -#ifndef TIFFTileRowSize -#define TIFFTileRowSize \ - (tifftclStubsPtr->tIFFTileRowSize) /* 22 */ -#endif -#ifndef TIFFTileSize -#define TIFFTileSize \ - (tifftclStubsPtr->tIFFTileSize) /* 23 */ -#endif -#ifndef TIFFVTileSize -#define TIFFVTileSize \ - (tifftclStubsPtr->tIFFVTileSize) /* 24 */ -#endif -#ifndef TIFFDefaultStripSize -#define TIFFDefaultStripSize \ - (tifftclStubsPtr->tIFFDefaultStripSize) /* 25 */ -#endif -#ifndef TIFFDefaultTileSize -#define TIFFDefaultTileSize \ - (tifftclStubsPtr->tIFFDefaultTileSize) /* 26 */ -#endif -#ifndef TIFFFileno -#define TIFFFileno \ - (tifftclStubsPtr->tIFFFileno) /* 27 */ -#endif -#ifndef TIFFGetMode -#define TIFFGetMode \ - (tifftclStubsPtr->tIFFGetMode) /* 28 */ -#endif -#ifndef TIFFIsTiled -#define TIFFIsTiled \ - (tifftclStubsPtr->tIFFIsTiled) /* 29 */ -#endif -#ifndef TIFFIsByteSwapped -#define TIFFIsByteSwapped \ - (tifftclStubsPtr->tIFFIsByteSwapped) /* 30 */ -#endif -#ifndef TIFFIsUpSampled -#define TIFFIsUpSampled \ - (tifftclStubsPtr->tIFFIsUpSampled) /* 31 */ -#endif -#ifndef TIFFIsMSB2LSB -#define TIFFIsMSB2LSB \ - (tifftclStubsPtr->tIFFIsMSB2LSB) /* 32 */ -#endif -#ifndef TIFFCurrentRow -#define TIFFCurrentRow \ - (tifftclStubsPtr->tIFFCurrentRow) /* 33 */ -#endif -#ifndef TIFFCurrentDirectory -#define TIFFCurrentDirectory \ - (tifftclStubsPtr->tIFFCurrentDirectory) /* 34 */ -#endif -#ifndef TIFFNumberOfDirectories -#define TIFFNumberOfDirectories \ - (tifftclStubsPtr->tIFFNumberOfDirectories) /* 35 */ -#endif -#ifndef TIFFCurrentDirOffset -#define TIFFCurrentDirOffset \ - (tifftclStubsPtr->tIFFCurrentDirOffset) /* 36 */ -#endif -#ifndef TIFFCurrentStrip -#define TIFFCurrentStrip \ - (tifftclStubsPtr->tIFFCurrentStrip) /* 37 */ -#endif -#ifndef TIFFCurrentTile -#define TIFFCurrentTile \ - (tifftclStubsPtr->tIFFCurrentTile) /* 38 */ -#endif -#ifndef TIFFReadBufferSetup -#define TIFFReadBufferSetup \ - (tifftclStubsPtr->tIFFReadBufferSetup) /* 39 */ -#endif -#ifndef TIFFWriteBufferSetup -#define TIFFWriteBufferSetup \ - (tifftclStubsPtr->tIFFWriteBufferSetup) /* 40 */ -#endif -#ifndef TIFFWriteCheck -#define TIFFWriteCheck \ - (tifftclStubsPtr->tIFFWriteCheck) /* 41 */ -#endif -#ifndef TIFFCreateDirectory -#define TIFFCreateDirectory \ - (tifftclStubsPtr->tIFFCreateDirectory) /* 42 */ -#endif -#ifndef TIFFLastDirectory -#define TIFFLastDirectory \ - (tifftclStubsPtr->tIFFLastDirectory) /* 43 */ -#endif -#ifndef TIFFSetDirectory -#define TIFFSetDirectory \ - (tifftclStubsPtr->tIFFSetDirectory) /* 44 */ -#endif -#ifndef TIFFSetSubDirectory -#define TIFFSetSubDirectory \ - (tifftclStubsPtr->tIFFSetSubDirectory) /* 45 */ -#endif -#ifndef TIFFUnlinkDirectory -#define TIFFUnlinkDirectory \ - (tifftclStubsPtr->tIFFUnlinkDirectory) /* 46 */ -#endif -#ifndef TIFFSetField -#define TIFFSetField \ - (tifftclStubsPtr->tIFFSetField) /* 47 */ -#endif -#ifndef TIFFVSetField -#define TIFFVSetField \ - (tifftclStubsPtr->tIFFVSetField) /* 48 */ -#endif -#ifndef TIFFWriteDirectory -#define TIFFWriteDirectory \ - (tifftclStubsPtr->tIFFWriteDirectory) /* 49 */ -#endif -#ifndef TIFFReassignTagToIgnore -#define TIFFReassignTagToIgnore \ - (tifftclStubsPtr->tIFFReassignTagToIgnore) /* 50 */ -#endif -#ifndef TIFFPrintDirectory -#define TIFFPrintDirectory \ - (tifftclStubsPtr->tIFFPrintDirectory) /* 51 */ -#endif -#ifndef TIFFReadScanline -#define TIFFReadScanline \ - (tifftclStubsPtr->tIFFReadScanline) /* 52 */ -#endif -#ifndef TIFFWriteScanline -#define TIFFWriteScanline \ - (tifftclStubsPtr->tIFFWriteScanline) /* 53 */ -#endif -#ifndef TIFFReadRGBAImage -#define TIFFReadRGBAImage \ - (tifftclStubsPtr->tIFFReadRGBAImage) /* 54 */ -#endif -#ifndef TIFFReadRGBAStrip -#define TIFFReadRGBAStrip \ - (tifftclStubsPtr->tIFFReadRGBAStrip) /* 55 */ -#endif -#ifndef TIFFReadRGBATile -#define TIFFReadRGBATile \ - (tifftclStubsPtr->tIFFReadRGBATile) /* 56 */ -#endif -#ifndef TIFFRGBAImageOK -#define TIFFRGBAImageOK \ - (tifftclStubsPtr->tIFFRGBAImageOK) /* 57 */ -#endif -#ifndef TIFFRGBAImageBegin -#define TIFFRGBAImageBegin \ - (tifftclStubsPtr->tIFFRGBAImageBegin) /* 58 */ -#endif -#ifndef TIFFRGBAImageGet -#define TIFFRGBAImageGet \ - (tifftclStubsPtr->tIFFRGBAImageGet) /* 59 */ -#endif -#ifndef TIFFRGBAImageEnd -#define TIFFRGBAImageEnd \ - (tifftclStubsPtr->tIFFRGBAImageEnd) /* 60 */ -#endif -#ifndef TIFFOpen -#define TIFFOpen \ - (tifftclStubsPtr->tIFFOpen) /* 61 */ -#endif -#ifndef TIFFFdOpen -#define TIFFFdOpen \ - (tifftclStubsPtr->tIFFFdOpen) /* 62 */ -#endif -#ifndef TIFFClientOpen -#define TIFFClientOpen \ - (tifftclStubsPtr->tIFFClientOpen) /* 63 */ -#endif -#ifndef TIFFFileName -#define TIFFFileName \ - (tifftclStubsPtr->tIFFFileName) /* 64 */ -#endif -#ifndef TIFFError -#define TIFFError \ - (tifftclStubsPtr->tIFFError) /* 65 */ -#endif -#ifndef TIFFWarning -#define TIFFWarning \ - (tifftclStubsPtr->tIFFWarning) /* 66 */ -#endif -#ifndef TIFFSetErrorHandler -#define TIFFSetErrorHandler \ - (tifftclStubsPtr->tIFFSetErrorHandler) /* 67 */ -#endif -#ifndef TIFFSetWarningHandler -#define TIFFSetWarningHandler \ - (tifftclStubsPtr->tIFFSetWarningHandler) /* 68 */ -#endif -#ifndef TIFFSetTagExtender -#define TIFFSetTagExtender \ - (tifftclStubsPtr->tIFFSetTagExtender) /* 69 */ -#endif -#ifndef TIFFComputeTile -#define TIFFComputeTile \ - (tifftclStubsPtr->tIFFComputeTile) /* 70 */ -#endif -#ifndef TIFFCheckTile -#define TIFFCheckTile \ - (tifftclStubsPtr->tIFFCheckTile) /* 71 */ -#endif -#ifndef TIFFNumberOfTiles -#define TIFFNumberOfTiles \ - (tifftclStubsPtr->tIFFNumberOfTiles) /* 72 */ -#endif -#ifndef TIFFReadTile -#define TIFFReadTile \ - (tifftclStubsPtr->tIFFReadTile) /* 73 */ -#endif -#ifndef TIFFWriteTile -#define TIFFWriteTile \ - (tifftclStubsPtr->tIFFWriteTile) /* 74 */ -#endif -#ifndef TIFFComputeStrip -#define TIFFComputeStrip \ - (tifftclStubsPtr->tIFFComputeStrip) /* 75 */ -#endif -#ifndef TIFFNumberOfStrips -#define TIFFNumberOfStrips \ - (tifftclStubsPtr->tIFFNumberOfStrips) /* 76 */ -#endif -#ifndef TIFFReadEncodedStrip -#define TIFFReadEncodedStrip \ - (tifftclStubsPtr->tIFFReadEncodedStrip) /* 77 */ -#endif -#ifndef TIFFReadRawStrip -#define TIFFReadRawStrip \ - (tifftclStubsPtr->tIFFReadRawStrip) /* 78 */ -#endif -#ifndef TIFFReadEncodedTile -#define TIFFReadEncodedTile \ - (tifftclStubsPtr->tIFFReadEncodedTile) /* 79 */ -#endif -#ifndef TIFFReadRawTile -#define TIFFReadRawTile \ - (tifftclStubsPtr->tIFFReadRawTile) /* 80 */ -#endif -#ifndef TIFFWriteEncodedStrip -#define TIFFWriteEncodedStrip \ - (tifftclStubsPtr->tIFFWriteEncodedStrip) /* 81 */ -#endif -#ifndef TIFFWriteRawStrip -#define TIFFWriteRawStrip \ - (tifftclStubsPtr->tIFFWriteRawStrip) /* 82 */ -#endif -#ifndef TIFFWriteEncodedTile -#define TIFFWriteEncodedTile \ - (tifftclStubsPtr->tIFFWriteEncodedTile) /* 83 */ -#endif -#ifndef TIFFWriteRawTile -#define TIFFWriteRawTile \ - (tifftclStubsPtr->tIFFWriteRawTile) /* 84 */ -#endif -#ifndef TIFFSetWriteOffset -#define TIFFSetWriteOffset \ - (tifftclStubsPtr->tIFFSetWriteOffset) /* 85 */ -#endif -#ifndef TIFFSwabShort -#define TIFFSwabShort \ - (tifftclStubsPtr->tIFFSwabShort) /* 86 */ -#endif -#ifndef TIFFSwabLong -#define TIFFSwabLong \ - (tifftclStubsPtr->tIFFSwabLong) /* 87 */ -#endif -#ifndef TIFFSwabDouble -#define TIFFSwabDouble \ - (tifftclStubsPtr->tIFFSwabDouble) /* 88 */ -#endif -#ifndef TIFFSwabArrayOfShort -#define TIFFSwabArrayOfShort \ - (tifftclStubsPtr->tIFFSwabArrayOfShort) /* 89 */ -#endif -#ifndef TIFFSwabArrayOfLong -#define TIFFSwabArrayOfLong \ - (tifftclStubsPtr->tIFFSwabArrayOfLong) /* 90 */ -#endif -#ifndef TIFFSwabArrayOfDouble -#define TIFFSwabArrayOfDouble \ - (tifftclStubsPtr->tIFFSwabArrayOfDouble) /* 91 */ -#endif -#ifndef TIFFReverseBits -#define TIFFReverseBits \ - (tifftclStubsPtr->tIFFReverseBits) /* 92 */ -#endif -#ifndef TIFFGetBitRevTable -#define TIFFGetBitRevTable \ - (tifftclStubsPtr->tIFFGetBitRevTable) /* 93 */ -#endif -/* Slot 94 is reserved */ -/* Slot 95 is reserved */ -/* Slot 96 is reserved */ -/* Slot 97 is reserved */ -/* Slot 98 is reserved */ -/* Slot 99 is reserved */ -#ifndef TIFFPredictorInit -#define TIFFPredictorInit \ - (tifftclStubsPtr->tIFFPredictorInit) /* 100 */ -#endif -/* Slot 101 is reserved */ -/* Slot 102 is reserved */ -/* Slot 103 is reserved */ -/* Slot 104 is reserved */ -/* Slot 105 is reserved */ -/* Slot 106 is reserved */ -/* Slot 107 is reserved */ -/* Slot 108 is reserved */ -/* Slot 109 is reserved */ -#ifndef _TIFFSetupFieldInfo -#define _TIFFSetupFieldInfo \ - (tifftclStubsPtr->_TIFFSetupFieldInfo) /* 110 */ -#endif -#ifndef TIFFMergeFieldInfo -#define TIFFMergeFieldInfo \ - (tifftclStubsPtr->tIFFMergeFieldInfo) /* 111 */ -#endif -#ifndef _TIFFPrintFieldInfo -#define _TIFFPrintFieldInfo \ - (tifftclStubsPtr->_TIFFPrintFieldInfo) /* 112 */ -#endif -#ifndef TIFFFindFieldInfo -#define TIFFFindFieldInfo \ - (tifftclStubsPtr->tIFFFindFieldInfo) /* 113 */ -#endif -#ifndef TIFFFieldWithTag -#define TIFFFieldWithTag \ - (tifftclStubsPtr->tIFFFieldWithTag) /* 114 */ -#endif -#ifndef _TIFFSampleToTagType -#define _TIFFSampleToTagType \ - (tifftclStubsPtr->_TIFFSampleToTagType) /* 115 */ -#endif -/* Slot 116 is reserved */ -/* Slot 117 is reserved */ -/* Slot 118 is reserved */ -/* Slot 119 is reserved */ -#ifndef _TIFFgetMode -#define _TIFFgetMode \ - (tifftclStubsPtr->_TIFFgetMode) /* 120 */ -#endif -#ifndef _TIFFNoRowEncode -#define _TIFFNoRowEncode \ - (tifftclStubsPtr->_TIFFNoRowEncode) /* 121 */ -#endif -#ifndef _TIFFNoStripEncode -#define _TIFFNoStripEncode \ - (tifftclStubsPtr->_TIFFNoStripEncode) /* 122 */ -#endif -#ifndef _TIFFNoTileEncode -#define _TIFFNoTileEncode \ - (tifftclStubsPtr->_TIFFNoTileEncode) /* 123 */ -#endif -#ifndef _TIFFNoRowDecode -#define _TIFFNoRowDecode \ - (tifftclStubsPtr->_TIFFNoRowDecode) /* 124 */ -#endif -#ifndef _TIFFNoStripDecode -#define _TIFFNoStripDecode \ - (tifftclStubsPtr->_TIFFNoStripDecode) /* 125 */ -#endif -#ifndef _TIFFNoTileDecode -#define _TIFFNoTileDecode \ - (tifftclStubsPtr->_TIFFNoTileDecode) /* 126 */ -#endif -#ifndef _TIFFNoPostDecode -#define _TIFFNoPostDecode \ - (tifftclStubsPtr->_TIFFNoPostDecode) /* 127 */ -#endif -#ifndef _TIFFNoPreCode -#define _TIFFNoPreCode \ - (tifftclStubsPtr->_TIFFNoPreCode) /* 128 */ -#endif -#ifndef _TIFFNoSeek -#define _TIFFNoSeek \ - (tifftclStubsPtr->_TIFFNoSeek) /* 129 */ -#endif -#ifndef _TIFFSwab16BitData -#define _TIFFSwab16BitData \ - (tifftclStubsPtr->_TIFFSwab16BitData) /* 130 */ -#endif -#ifndef _TIFFSwab32BitData -#define _TIFFSwab32BitData \ - (tifftclStubsPtr->_TIFFSwab32BitData) /* 131 */ -#endif -#ifndef _TIFFSwab64BitData -#define _TIFFSwab64BitData \ - (tifftclStubsPtr->_TIFFSwab64BitData) /* 132 */ -#endif -#ifndef TIFFFlushData1 -#define TIFFFlushData1 \ - (tifftclStubsPtr->tIFFFlushData1) /* 133 */ -#endif -#ifndef TIFFFreeDirectory -#define TIFFFreeDirectory \ - (tifftclStubsPtr->tIFFFreeDirectory) /* 134 */ -#endif -#ifndef TIFFDefaultDirectory -#define TIFFDefaultDirectory \ - (tifftclStubsPtr->tIFFDefaultDirectory) /* 135 */ -#endif -#ifndef TIFFSetCompressionScheme -#define TIFFSetCompressionScheme \ - (tifftclStubsPtr->tIFFSetCompressionScheme) /* 136 */ -#endif -#ifndef _TIFFSetDefaultCompressionState -#define _TIFFSetDefaultCompressionState \ - (tifftclStubsPtr->_TIFFSetDefaultCompressionState) /* 137 */ -#endif -#ifndef _TIFFDefaultStripSize -#define _TIFFDefaultStripSize \ - (tifftclStubsPtr->_TIFFDefaultStripSize) /* 138 */ -#endif -#ifndef _TIFFDefaultTileSize -#define _TIFFDefaultTileSize \ - (tifftclStubsPtr->_TIFFDefaultTileSize) /* 139 */ -#endif -#ifndef _TIFFsetByteArray -#define _TIFFsetByteArray \ - (tifftclStubsPtr->_TIFFsetByteArray) /* 140 */ -#endif -#ifndef _TIFFsetString -#define _TIFFsetString \ - (tifftclStubsPtr->_TIFFsetString) /* 141 */ -#endif -#ifndef _TIFFsetShortArray -#define _TIFFsetShortArray \ - (tifftclStubsPtr->_TIFFsetShortArray) /* 142 */ -#endif -#ifndef _TIFFsetLongArray -#define _TIFFsetLongArray \ - (tifftclStubsPtr->_TIFFsetLongArray) /* 143 */ -#endif -#ifndef _TIFFsetFloatArray -#define _TIFFsetFloatArray \ - (tifftclStubsPtr->_TIFFsetFloatArray) /* 144 */ -#endif -#ifndef _TIFFsetDoubleArray -#define _TIFFsetDoubleArray \ - (tifftclStubsPtr->_TIFFsetDoubleArray) /* 145 */ -#endif -#ifndef _TIFFprintAscii -#define _TIFFprintAscii \ - (tifftclStubsPtr->_TIFFprintAscii) /* 146 */ -#endif -#ifndef _TIFFprintAsciiTag -#define _TIFFprintAsciiTag \ - (tifftclStubsPtr->_TIFFprintAsciiTag) /* 147 */ -#endif -#ifndef TIFFInitDumpMode -#define TIFFInitDumpMode \ - (tifftclStubsPtr->tIFFInitDumpMode) /* 148 */ -#endif -#ifndef TIFFInitPackBits -#define TIFFInitPackBits \ - (tifftclStubsPtr->tIFFInitPackBits) /* 149 */ -#endif -#ifndef TIFFInitCCITTRLE -#define TIFFInitCCITTRLE \ - (tifftclStubsPtr->tIFFInitCCITTRLE) /* 150 */ -#endif -#ifndef TIFFInitCCITTRLEW -#define TIFFInitCCITTRLEW \ - (tifftclStubsPtr->tIFFInitCCITTRLEW) /* 151 */ -#endif -#ifndef TIFFInitCCITTFax3 -#define TIFFInitCCITTFax3 \ - (tifftclStubsPtr->tIFFInitCCITTFax3) /* 152 */ -#endif -#ifndef TIFFInitCCITTFax4 -#define TIFFInitCCITTFax4 \ - (tifftclStubsPtr->tIFFInitCCITTFax4) /* 153 */ -#endif -#ifndef TIFFInitThunderScan -#define TIFFInitThunderScan \ - (tifftclStubsPtr->tIFFInitThunderScan) /* 154 */ -#endif -#ifndef TIFFInitNeXT -#define TIFFInitNeXT \ - (tifftclStubsPtr->tIFFInitNeXT) /* 155 */ -#endif -#ifndef TIFFInitLZW -#define TIFFInitLZW \ - (tifftclStubsPtr->tIFFInitLZW) /* 156 */ -#endif -#ifndef TIFFInitOJPEG -#define TIFFInitOJPEG \ - (tifftclStubsPtr->tIFFInitOJPEG) /* 157 */ -#endif -#ifndef TIFFInitJPEG -#define TIFFInitJPEG \ - (tifftclStubsPtr->tIFFInitJPEG) /* 158 */ -#endif -#ifndef TIFFInitJBIG -#define TIFFInitJBIG \ - (tifftclStubsPtr->tIFFInitJBIG) /* 159 */ -#endif -#ifndef TIFFInitZIP -#define TIFFInitZIP \ - (tifftclStubsPtr->tIFFInitZIP) /* 160 */ -#endif -#ifndef TIFFInitPixarLog -#define TIFFInitPixarLog \ - (tifftclStubsPtr->tIFFInitPixarLog) /* 161 */ -#endif -#ifndef TIFFInitSGILog -#define TIFFInitSGILog \ - (tifftclStubsPtr->tIFFInitSGILog) /* 162 */ -#endif - -#endif /* defined(USE_TIFFTCL_STUBS) && !defined(USE_TIFFTCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _TIFFTCLDECLS */ - diff --git a/mingw/include/tifftclDeclsMask.h b/mingw/include/tifftclDeclsMask.h deleted file mode 100644 index 47d487e173..0000000000 --- a/mingw/include/tifftclDeclsMask.h +++ /dev/null @@ -1,154 +0,0 @@ -#ifdef WIN32 -/* - * While the definitions in the original header are technically the - * same as the definitions in 'zlibDecls.h' on Windows they are not, - * in a small detail: DLLEXPORT vs. DLLIMPORT. As our artificial - * definitions do the right thing we use the macro definitions below - * to move the original definitionsd out of the way. We do retain the - * inclusion of all the type definitions, etc. - */ -#define TIFFGetVersion __mask_TIFFGetVersion -#define TIFFFindCODEC __mask_TIFFFindCODEC -#define TIFFRegisterCODEC __mask_TIFFRegisterCODEC -#define TIFFUnRegisterCODEC __mask_TIFFUnRegisterCODEC -#define _TIFFmalloc __mask__TIFFmalloc -#define _TIFFrealloc __mask__TIFFrealloc -#define _TIFFmemset __mask__TIFFmemset -#define _TIFFmemcpy __mask__TIFFmemcpy -#define _TIFFmemcmp __mask__TIFFmemcmp -#define _TIFFfree __mask__TIFFfree -#define TIFFClose __mask_TIFFClose -#define TIFFFlush __mask_TIFFFlush -#define TIFFFlushData __mask_TIFFFlushData -#define TIFFGetField __mask_TIFFGetField -#define TIFFVGetField __mask_TIFFVGetField -#define TIFFGetFieldDefaulted __mask_TIFFGetFieldDefaulted -#define TIFFVGetFieldDefaulted __mask_TIFFVGetFieldDefaulted -#define TIFFReadDirectory __mask_TIFFReadDirectory -#define TIFFScanlineSize __mask_TIFFScanlineSize -#define TIFFRasterScanlineSize __mask_TIFFRasterScanlineSize -#define TIFFStripSize __mask_TIFFStripSize -#define TIFFVStripSize __mask_TIFFVStripSize -#define TIFFTileRowSize __mask_TIFFTileRowSize -#define TIFFTileSize __mask_TIFFTileSize -#define TIFFVTileSize __mask_TIFFVTileSize -#define TIFFDefaultStripSize __mask_TIFFDefaultStripSize -#define TIFFDefaultTileSize __mask_TIFFDefaultTileSize -#define TIFFFileno __mask_TIFFFileno -#define TIFFGetMode __mask_TIFFGetMode -#define TIFFIsTiled __mask_TIFFIsTiled -#define TIFFIsByteSwapped __mask_TIFFIsByteSwapped -#define TIFFIsUpSampled __mask_TIFFIsUpSampled -#define TIFFIsMSB2LSB __mask_TIFFIsMSB2LSB -#define TIFFCurrentRow __mask_TIFFCurrentRow -#define TIFFCurrentDirectory __mask_TIFFCurrentDirectory -#define TIFFNumberOfDirectories __mask_TIFFNumberOfDirectories -#define TIFFCurrentDirOffset __mask_TIFFCurrentDirOffset -#define TIFFCurrentStrip __mask_TIFFCurrentStrip -#define TIFFCurrentTile __mask_TIFFCurrentTile -#define TIFFReadBufferSetup __mask_TIFFReadBufferSetup -#define TIFFWriteBufferSetup __mask_TIFFWriteBufferSetup -#define TIFFWriteCheck __mask_TIFFWriteCheck -#define TIFFCreateDirectory __mask_TIFFCreateDirectory -#define TIFFLastDirectory __mask_TIFFLastDirectory -#define TIFFSetDirectory __mask_TIFFSetDirectory -#define TIFFSetSubDirectory __mask_TIFFSetSubDirectory -#define TIFFUnlinkDirectory __mask_TIFFUnlinkDirectory -#define TIFFSetField __mask_TIFFSetField -#define TIFFVSetField __mask_TIFFVSetField -#define TIFFWriteDirectory __mask_TIFFWriteDirectory -#define TIFFReassignTagToIgnore __mask_TIFFReassignTagToIgnore -#define TIFFPrintDirectory __mask_TIFFPrintDirectory -#define TIFFReadScanline __mask_TIFFReadScanline -#define TIFFWriteScanline __mask_TIFFWriteScanline -#define TIFFReadRGBAImage __mask_TIFFReadRGBAImage -#define TIFFReadRGBAStrip __mask_TIFFReadRGBAStrip -#define TIFFReadRGBATile __mask_TIFFReadRGBATile -#define TIFFRGBAImageOK __mask_TIFFRGBAImageOK -#define TIFFRGBAImageBegin __mask_TIFFRGBAImageBegin -#define TIFFRGBAImageGet __mask_TIFFRGBAImageGet -#define TIFFRGBAImageEnd __mask_TIFFRGBAImageEnd -#define TIFFOpen __mask_TIFFOpen -#define TIFFFdOpen __mask_TIFFFdOpen -#define TIFFClientOpen __mask_TIFFClientOpen -#define TIFFFileName __mask_TIFFFileName -#define TIFFError __mask_TIFFError -#define TIFFWarning __mask_TIFFWarning -#define TIFFSetErrorHandler __mask_TIFFSetErrorHandler -#define TIFFSetWarningHandler __mask_TIFFSetWarningHandler -#define TIFFSetTagExtender __mask_TIFFSetTagExtender -#define TIFFComputeTile __mask_TIFFComputeTile -#define TIFFCheckTile __mask_TIFFCheckTile -#define TIFFNumberOfTiles __mask_TIFFNumberOfTiles -#define TIFFReadTile __mask_TIFFReadTile -#define TIFFWriteTile __mask_TIFFWriteTile -#define TIFFComputeStrip __mask_TIFFComputeStrip -#define TIFFNumberOfStrips __mask_TIFFNumberOfStrips -#define TIFFReadEncodedStrip __mask_TIFFReadEncodedStrip -#define TIFFReadRawStrip __mask_TIFFReadRawStrip -#define TIFFReadEncodedTile __mask_TIFFReadEncodedTile -#define TIFFReadRawTile __mask_TIFFReadRawTile -#define TIFFWriteEncodedStrip __mask_TIFFWriteEncodedStrip -#define TIFFWriteRawStrip __mask_TIFFWriteRawStrip -#define TIFFWriteEncodedTile __mask_TIFFWriteEncodedTile -#define TIFFWriteRawTile __mask_TIFFWriteRawTile -#define TIFFSetWriteOffset __mask_TIFFSetWriteOffset -#define TIFFSwabShort __mask_TIFFSwabShort -#define TIFFSwabLong __mask_TIFFSwabLong -#define TIFFSwabDouble __mask_TIFFSwabDouble -#define TIFFSwabArrayOfShort __mask_TIFFSwabArrayOfShort -#define TIFFSwabArrayOfLong __mask_TIFFSwabArrayOfLong -#define TIFFSwabArrayOfDouble __mask_TIFFSwabArrayOfDouble -#define TIFFReverseBits __mask_TIFFReverseBits -#define TIFFGetBitRevTable __mask_TIFFGetBitRevTable -#define TIFFPredictorInit __mask_TIFFPredictorInit -#define _TIFFSetupFieldInfo __mask__TIFFSetupFieldInfo -#define TIFFMergeFieldInfo __mask__TIFFMergeFieldInfo -#define _TIFFPrintFieldInfo __mask__TIFFPrintFieldInfo -#define TIFFFindFieldInfo __mask__TIFFFindFieldInfo -#define TIFFFieldWithTag __mask__TIFFFieldWithTag -#define _TIFFSampleToTagType __mask__TIFFSampleToTagType -#define _TIFFgetMode __mask__TIFFgetMode -#define _TIFFNoRowEncode __mask__TIFFNoRowEncode -#define _TIFFNoStripEncode __mask__TIFFNoStripEncode -#define _TIFFNoTileEncode __mask__TIFFNoTileEncode -#define _TIFFNoRowDecode __mask__TIFFNoRowDecode -#define _TIFFNoStripDecode __mask__TIFFNoStripDecode -#define _TIFFNoTileDecode __mask__TIFFNoTileDecode -#define _TIFFNoPostDecode __mask__TIFFNoPostDecode -#define _TIFFNoPreCode __mask__TIFFNoPreCode -#define _TIFFNoSeek __mask__TIFFNoSeek -#define _TIFFSwab16BitData __mask__TIFFSwab16BitData -#define _TIFFSwab32BitData __mask__TIFFSwab32BitData -#define _TIFFSwab64BitData __mask__TIFFSwab64BitData -#define TIFFFlushData1 __mask_TIFFFlushData1 -#define TIFFFreeDirectory __mask_TIFFFreeDirectory -#define TIFFDefaultDirectory __mask_TIFFDefaultDirectory -#define TIFFSetCompressionScheme __mask_TIFFSetCompressionScheme -#define TIFFSetDefaultCompressionState __mask_TIFFSetDefaultCompressionState -#define _TIFFDefaultStripSize __mask__TIFFDefaultStripSize -#define _TIFFDefaultTileSize __mask__TIFFDefaultTileSize -#define _TIFFsetByteArray __mask__TIFFsetByteArray -#define _TIFFsetString __mask__TIFFsetString -#define _TIFFsetShortArray __mask__TIFFsetShortArray -#define _TIFFsetLongArray __mask__TIFFsetLongArray -#define _TIFFsetFloatArray __mask__TIFFsetFloatArray -#define _TIFFsetDoubleArray __mask__TIFFsetDoubleArray -#define _TIFFprintAscii __mask__TIFFprintAscii -#define _TIFFprintAsciiTag __mask__TIFFprintAsciiTag -#define TIFFInitDumpMode __mask_TIFFInitDumpMode -#define TIFFInitPackBits __mask_TIFFInitPackBits -#define TIFFInitCCITTRLE __mask_TIFFInitCCITTRLE -#define TIFFInitCCITTRLEW __mask_TIFFInitCCITTRLEW -#define TIFFInitCCITTFax3 __mask_TIFFInitCCITTFax3 -#define TIFFInitCCITTFax4 __mask_TIFFInitCCITTFax4 -#define TIFFInitThunderScan __mask_TIFFInitThunderScan -#define TIFFInitNeXT __mask_TIFFInitNeXT -#define TIFFInitLZW __mask_TIFFInitLZW -#define TIFFInitOJPEG __mask_TIFFInitOJPEG -#define TIFFInitJPEG __mask_TIFFInitJPEG -#define TIFFInitJBIG __mask_TIFFInitJBIG -#define TIFFInitZIP __mask_TIFFInitZIP -#define TIFFInitPixarLog __mask_TIFFInitPixarLog -#define TIFFInitSGILog __mask_TIFFInitSGILog -#endif /* WIN32 */ diff --git a/mingw/include/tifftclDeclsUnmask.h b/mingw/include/tifftclDeclsUnmask.h deleted file mode 100644 index 4dd05f9e61..0000000000 --- a/mingw/include/tifftclDeclsUnmask.h +++ /dev/null @@ -1,147 +0,0 @@ -#ifdef WIN32 -/* Restore the usage of the original names */ -#undef TIFFGetVersion -#undef TIFFFindCODEC -#undef TIFFRegisterCODEC -#undef TIFFUnRegisterCODEC -#undef _TIFFmalloc -#undef _TIFFrealloc -#undef _TIFFmemset -#undef _TIFFmemcpy -#undef _TIFFmemcmp -#undef _TIFFfree -#undef TIFFClose -#undef TIFFFlush -#undef TIFFFlushData -#undef TIFFGetField -#undef TIFFVGetField -#undef TIFFGetFieldDefaulted -#undef TIFFVGetFieldDefaulted -#undef TIFFReadDirectory -#undef TIFFScanlineSize -#undef TIFFRasterScanlineSize -#undef TIFFStripSize -#undef TIFFVStripSize -#undef TIFFTileRowSize -#undef TIFFTileSize -#undef TIFFVTileSize -#undef TIFFDefaultStripSize -#undef TIFFDefaultTileSize -#undef TIFFFileno -#undef TIFFGetMode -#undef TIFFIsTiled -#undef TIFFIsByteSwapped -#undef TIFFIsUpSampled -#undef TIFFIsMSB2LSB -#undef TIFFCurrentRow -#undef TIFFCurrentDirectory -#undef TIFFNumberOfDirectories -#undef TIFFCurrentDirOffset -#undef TIFFCurrentStrip -#undef TIFFCurrentTile -#undef TIFFReadBufferSetup -#undef TIFFWriteBufferSetup -#undef TIFFWriteCheck -#undef TIFFCreateDirectory -#undef TIFFLastDirectory -#undef TIFFSetDirectory -#undef TIFFSetSubDirectory -#undef TIFFUnlinkDirectory -#undef TIFFSetField -#undef TIFFVSetField -#undef TIFFWriteDirectory -#undef TIFFReassignTagToIgnore -#undef TIFFPrintDirectory -#undef TIFFReadScanline -#undef TIFFWriteScanline -#undef TIFFReadRGBAImage -#undef TIFFReadRGBAStrip -#undef TIFFReadRGBATile -#undef TIFFRGBAImageOK -#undef TIFFRGBAImageBegin -#undef TIFFRGBAImageGet -#undef TIFFRGBAImageEnd -#undef TIFFOpen -#undef TIFFFdOpen -#undef TIFFClientOpen -#undef TIFFFileName -#undef TIFFError -#undef TIFFWarning -#undef TIFFSetErrorHandler -#undef TIFFSetWarningHandler -#undef TIFFSetTagExtender -#undef TIFFComputeTile -#undef TIFFCheckTile -#undef TIFFNumberOfTiles -#undef TIFFReadTile -#undef TIFFWriteTile -#undef TIFFComputeStrip -#undef TIFFNumberOfStrips -#undef TIFFReadEncodedStrip -#undef TIFFReadRawStrip -#undef TIFFReadEncodedTile -#undef TIFFReadRawTile -#undef TIFFWriteEncodedStrip -#undef TIFFWriteRawStrip -#undef TIFFWriteEncodedTile -#undef TIFFWriteRawTile -#undef TIFFSetWriteOffset -#undef TIFFSwabShort -#undef TIFFSwabLong -#undef TIFFSwabDouble -#undef TIFFSwabArrayOfShort -#undef TIFFSwabArrayOfLong -#undef TIFFSwabArrayOfDouble -#undef TIFFReverseBits -#undef TIFFGetBitRevTable -#undef TIFFPredictorInit -#undef _TIFFSetupFieldInfo -#undef TIFFMergeFieldInfo -#undef _TIFFPrintFieldInfo -#undef TIFFFindFieldInfo -#undef TIFFFieldWithTag -#undef _TIFFSampleToTagType -#undef _TIFFgetMode -#undef _TIFFNoRowEncode -#undef _TIFFNoStripEncode -#undef _TIFFNoTileEncode -#undef _TIFFNoRowDecode -#undef _TIFFNoStripDecode -#undef _TIFFNoTileDecode -#undef _TIFFNoPostDecode -#undef _TIFFNoPreCode -#undef _TIFFNoSeek -#undef _TIFFSwab16BitData -#undef _TIFFSwab32BitData -#undef _TIFFSwab64BitData -#undef TIFFFlushData1 -#undef TIFFFreeDirectory -#undef TIFFDefaultDirectory -#undef TIFFSetCompressionScheme -#undef TIFFSetDefaultCompressionState -#undef _TIFFDefaultStripSize -#undef _TIFFDefaultTileSize -#undef _TIFFsetByteArray -#undef _TIFFsetString -#undef _TIFFsetShortArray -#undef _TIFFsetLongArray -#undef _TIFFsetFloatArray -#undef _TIFFsetDoubleArray -#undef _TIFFprintAscii -#undef _TIFFprintAsciiTag -#undef TIFFInitDumpMode -#undef TIFFInitPackBits -#undef TIFFInitCCITTRLE -#undef TIFFInitCCITTRLEW -#undef TIFFInitCCITTFax3 -#undef TIFFInitCCITTFax4 -#undef TIFFInitThunderScan -#undef TIFFInitNeXT -#undef TIFFInitLZW -#undef TIFFInitOJPEG -#undef TIFFInitJPEG -#undef TIFFInitJBIG -#undef TIFFInitZIP -#undef TIFFInitPixarLog -#undef TIFFInitSGILog -#endif /* WIN32 */ diff --git a/mingw/include/tk.h b/mingw/include/tk.h deleted file mode 100644 index 136934e670..0000000000 --- a/mingw/include/tk.h +++ /dev/null @@ -1,1600 +0,0 @@ -/* - * tk.h -- - * - * Declarations for Tk-related things that are visible outside of the Tk - * module itself. - * - * Copyright (c) 1989-1994 The Regents of the University of California. - * Copyright (c) 1994 The Australian National University. - * Copyright (c) 1994-1998 Sun Microsystems, Inc. - * Copyright (c) 1998-2000 Ajuba Solutions. - * - * See the file "license.terms" for information on usage and redistribution of - * this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tk.h,v 1.109.2.7 2008/10/10 18:25:10 dgp Exp $ - */ - -#ifndef _TK -#define _TK - -#include -#if (TCL_MAJOR_VERSION != 8) || (TCL_MINOR_VERSION != 5) -# error Tk 8.5 must be compiled with tcl.h from Tcl 8.5 -#endif - -/* - * For C++ compilers, use extern "C" - */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * When version numbers change here, you must also go into the following files - * and update the version numbers: - * - * library/tk.tcl (2 LOC patch) - * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) - * win/configure.in (as above) - * README (sections 0 and 1) - * macosx/Wish.xcode/project.pbxproj (not patchlevel) 1 LOC - * macosx/Wish-Common.xcconfig (not patchlevel) 1 LOC - * win/README (not patchlevel) - * unix/README (not patchlevel) - * unix/tk.spec (1 LOC patch) - * win/tcl.m4 (not patchlevel) - * - * You may also need to update some of these files when the numbers change for - * the version of Tcl that this release of Tk is compiled against. - */ - -#define TK_MAJOR_VERSION 8 -#define TK_MINOR_VERSION 5 -#define TK_RELEASE_LEVEL TCL_FINAL_RELEASE -#define TK_RELEASE_SERIAL 5 - -#define TK_VERSION "8.5" -#define TK_PATCH_LEVEL "8.5.5" - -/* - * A special definition used to allow this header file to be included from - * windows or mac resource files so that they can obtain version information. - * RC_INVOKED is defined by default by the windows RC tool and manually set - * for macintosh. - * - * Resource compilers don't like all the C stuff, like typedefs and procedure - * declarations, that occur below, so block them out. - */ - -#ifndef RC_INVOKED - -#ifndef _XLIB_H -# if defined(MAC_OSX_TK) -# include -# include -# else -# include -# endif -#endif -#ifdef __STDC__ -# include -#endif - -#ifdef BUILD_tk -# undef TCL_STORAGE_CLASS -# define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * Decide whether or not to use input methods. - */ - -#ifdef XNQueryInputStyle -#define TK_USE_INPUT_METHODS -#endif - -/* - * Dummy types that are used by clients: - */ - -typedef struct Tk_BindingTable_ *Tk_BindingTable; -typedef struct Tk_Canvas_ *Tk_Canvas; -typedef struct Tk_Cursor_ *Tk_Cursor; -typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler; -typedef struct Tk_Font_ *Tk_Font; -typedef struct Tk_Image__ *Tk_Image; -typedef struct Tk_ImageMaster_ *Tk_ImageMaster; -typedef struct Tk_OptionTable_ *Tk_OptionTable; -typedef struct Tk_PostscriptInfo_ *Tk_PostscriptInfo; -typedef struct Tk_TextLayout_ *Tk_TextLayout; -typedef struct Tk_Window_ *Tk_Window; -typedef struct Tk_3DBorder_ *Tk_3DBorder; -typedef struct Tk_Style_ *Tk_Style; -typedef struct Tk_StyleEngine_ *Tk_StyleEngine; -typedef struct Tk_StyledElement_ *Tk_StyledElement; - -/* - * Additional types exported to clients. - */ - -typedef const char *Tk_Uid; - -/* - * The enum below defines the valid types for Tk configuration options as - * implemented by Tk_InitOptions, Tk_SetOptions, etc. - */ - -typedef enum { - TK_OPTION_BOOLEAN, - TK_OPTION_INT, - TK_OPTION_DOUBLE, - TK_OPTION_STRING, - TK_OPTION_STRING_TABLE, - TK_OPTION_COLOR, - TK_OPTION_FONT, - TK_OPTION_BITMAP, - TK_OPTION_BORDER, - TK_OPTION_RELIEF, - TK_OPTION_CURSOR, - TK_OPTION_JUSTIFY, - TK_OPTION_ANCHOR, - TK_OPTION_SYNONYM, - TK_OPTION_PIXELS, - TK_OPTION_WINDOW, - TK_OPTION_END, - TK_OPTION_CUSTOM, - TK_OPTION_STYLE -} Tk_OptionType; - -/* - * Structures of the following type are used by widgets to specify their - * configuration options. Typically each widget has a static array of these - * structures, where each element of the array describes a single - * configuration option. The array is passed to Tk_CreateOptionTable. - */ - -typedef struct Tk_OptionSpec { - Tk_OptionType type; /* Type of option, such as TK_OPTION_COLOR; - * see definitions above. Last option in table - * must have type TK_OPTION_END. */ - const char *optionName; /* Name used to specify option in Tcl - * commands. */ - const char *dbName; /* Name for option in option database. */ - const char *dbClass; /* Class for option in database. */ - const char *defValue; /* Default value for option if not specified - * in command line, the option database, or - * the system. */ - int objOffset; /* Where in record to store a Tcl_Obj * that - * holds the value of this option, specified - * as an offset in bytes from the start of the - * record. Use the Tk_Offset macro to generate - * values for this. -1 means don't store the - * Tcl_Obj in the record. */ - int internalOffset; /* Where in record to store the internal - * representation of the value of this option, - * such as an int or XColor *. This field is - * specified as an offset in bytes from the - * start of the record. Use the Tk_Offset - * macro to generate values for it. -1 means - * don't store the internal representation in - * the record. */ - int flags; /* Any combination of the values defined - * below. */ - ClientData clientData; /* An alternate place to put option-specific - * data. Used for the monochrome default value - * for colors, etc. */ - int typeMask; /* An arbitrary bit mask defined by the class - * manager; typically bits correspond to - * certain kinds of options such as all those - * that require a redisplay when they change. - * Tk_SetOptions returns the bit-wise OR of - * the typeMasks of all options that were - * changed. */ -} Tk_OptionSpec; - -/* - * Flag values for Tk_OptionSpec structures. These flags are shared by - * Tk_ConfigSpec structures, so be sure to coordinate any changes carefully. - */ - -#define TK_OPTION_NULL_OK (1 << 0) -#define TK_OPTION_DONT_SET_DEFAULT (1 << 3) - -/* - * The following structure and function types are used by TK_OPTION_CUSTOM - * options; the structure holds pointers to the functions needed by the Tk - * option config code to handle a custom option. - */ - -typedef int (Tk_CustomOptionSetProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj **value, char *widgRec, - int offset, char *saveInternalPtr, int flags)); -typedef Tcl_Obj *(Tk_CustomOptionGetProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset)); -typedef void (Tk_CustomOptionRestoreProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *internalPtr, char *saveInternalPtr)); -typedef void (Tk_CustomOptionFreeProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *internalPtr)); - -typedef struct Tk_ObjCustomOption { - const char *name; /* Name of the custom option. */ - Tk_CustomOptionSetProc *setProc; - /* Function to use to set a record's option - * value from a Tcl_Obj */ - Tk_CustomOptionGetProc *getProc; - /* Function to use to get a Tcl_Obj - * representation from an internal - * representation of an option. */ - Tk_CustomOptionRestoreProc *restoreProc; - /* Function to use to restore a saved value - * for the internal representation. */ - Tk_CustomOptionFreeProc *freeProc; - /* Function to use to free the internal - * representation of an option. */ - ClientData clientData; /* Arbitrary one-word value passed to the - * handling procs. */ -} Tk_ObjCustomOption; - -/* - * Macro to use to fill in "offset" fields of the Tk_OptionSpec structure. - * Computes number of bytes from beginning of structure to a given field. - */ - -#ifdef offsetof -#define Tk_Offset(type, field) ((int) offsetof(type, field)) -#else -#define Tk_Offset(type, field) ((int) ((char *) &((type *) 0)->field)) -#endif - -/* - * The following two structures are used for error handling. When config - * options are being modified, the old values are saved in a Tk_SavedOptions - * structure. If an error occurs, then the contents of the structure can be - * used to restore all of the old values. The contents of this structure are - * for the private use Tk. No-one outside Tk should ever read or write any of - * the fields of these structures. - */ - -typedef struct Tk_SavedOption { - struct TkOption *optionPtr; /* Points to information that describes the - * option. */ - Tcl_Obj *valuePtr; /* The old value of the option, in the form of - * a Tcl object; may be NULL if the value was - * not saved as an object. */ - double internalForm; /* The old value of the option, in some - * internal representation such as an int or - * (XColor *). Valid only if the field - * optionPtr->specPtr->objOffset is < 0. The - * space must be large enough to accommodate a - * double, a long, or a pointer; right now it - * looks like a double (i.e., 8 bytes) is big - * enough. Also, using a double guarantees - * that the field is properly aligned for - * storing large values. */ -} Tk_SavedOption; - -#ifdef TCL_MEM_DEBUG -# define TK_NUM_SAVED_OPTIONS 2 -#else -# define TK_NUM_SAVED_OPTIONS 20 -#endif - -typedef struct Tk_SavedOptions { - char *recordPtr; /* The data structure in which to restore - * configuration options. */ - Tk_Window tkwin; /* Window associated with recordPtr; needed to - * restore certain options. */ - int numItems; /* The number of valid items in items field. */ - Tk_SavedOption items[TK_NUM_SAVED_OPTIONS]; - /* Items used to hold old values. */ - struct Tk_SavedOptions *nextPtr; - /* Points to next structure in list; needed if - * too many options changed to hold all the - * old values in a single structure. NULL - * means no more structures. */ -} Tk_SavedOptions; - -/* - * Structure used to describe application-specific configuration options: - * indicates procedures to call to parse an option and to return a text string - * describing an option. THESE ARE DEPRECATED; PLEASE USE THE NEW STRUCTURES - * LISTED ABOVE. - */ - -/* - * This is a temporary flag used while tkObjConfig and new widgets are in - * development. - */ - -#ifndef __NO_OLD_CONFIG - -typedef int (Tk_OptionParseProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, CONST84 char *value, char *widgRec, - int offset)); -typedef char *(Tk_OptionPrintProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin, char *widgRec, int offset, - Tcl_FreeProc **freeProcPtr)); - -typedef struct Tk_CustomOption { - Tk_OptionParseProc *parseProc; - /* Procedure to call to parse an option and - * store it in converted form. */ - Tk_OptionPrintProc *printProc; - /* Procedure to return a printable string - * describing an existing option. */ - ClientData clientData; /* Arbitrary one-word value used by option - * parser: passed to parseProc and - * printProc. */ -} Tk_CustomOption; - -/* - * Structure used to specify information for Tk_ConfigureWidget. Each - * structure gives complete information for one option, including how the - * option is specified on the command line, where it appears in the option - * database, etc. - */ - -typedef struct Tk_ConfigSpec { - int type; /* Type of option, such as TK_CONFIG_COLOR; - * see definitions below. Last option in table - * must have type TK_CONFIG_END. */ - char *argvName; /* Switch used to specify option in argv. NULL - * means this spec is part of a group. */ - Tk_Uid dbName; /* Name for option in option database. */ - Tk_Uid dbClass; /* Class for option in database. */ - Tk_Uid defValue; /* Default value for option if not specified - * in command line or database. */ - int offset; /* Where in widget record to store value; use - * Tk_Offset macro to generate values for - * this. */ - int specFlags; /* Any combination of the values defined - * below; other bits are used internally by - * tkConfig.c. */ - Tk_CustomOption *customPtr; /* If type is TK_CONFIG_CUSTOM then this is a - * pointer to info about how to parse and - * print the option. Otherwise it is - * irrelevant. */ -} Tk_ConfigSpec; - -/* - * Type values for Tk_ConfigSpec structures. See the user documentation for - * details. - */ - -typedef enum { - TK_CONFIG_BOOLEAN, TK_CONFIG_INT, TK_CONFIG_DOUBLE, TK_CONFIG_STRING, - TK_CONFIG_UID, TK_CONFIG_COLOR, TK_CONFIG_FONT, TK_CONFIG_BITMAP, - TK_CONFIG_BORDER, TK_CONFIG_RELIEF, TK_CONFIG_CURSOR, - TK_CONFIG_ACTIVE_CURSOR, TK_CONFIG_JUSTIFY, TK_CONFIG_ANCHOR, - TK_CONFIG_SYNONYM, TK_CONFIG_CAP_STYLE, TK_CONFIG_JOIN_STYLE, - TK_CONFIG_PIXELS, TK_CONFIG_MM, TK_CONFIG_WINDOW, TK_CONFIG_CUSTOM, - TK_CONFIG_END -} Tk_ConfigTypes; - -/* - * Possible values for flags argument to Tk_ConfigureWidget: - */ - -#define TK_CONFIG_ARGV_ONLY 1 -#define TK_CONFIG_OBJS 0x80 - -/* - * Possible flag values for Tk_ConfigSpec structures. Any bits at or above - * TK_CONFIG_USER_BIT may be used by clients for selecting certain entries. - * Before changing any values here, coordinate with tkOldConfig.c - * (internal-use-only flags are defined there). - */ - -#define TK_CONFIG_NULL_OK (1 << 0) -#define TK_CONFIG_COLOR_ONLY (1 << 1) -#define TK_CONFIG_MONO_ONLY (1 << 2) -#define TK_CONFIG_DONT_SET_DEFAULT (1 << 3) -#define TK_CONFIG_OPTION_SPECIFIED (1 << 4) -#define TK_CONFIG_USER_BIT 0x100 -#endif /* __NO_OLD_CONFIG */ - -/* - * Structure used to specify how to handle argv options. - */ - -typedef struct { - char *key; /* The key string that flags the option in the - * argv array. */ - int type; /* Indicates option type; see below. */ - char *src; /* Value to be used in setting dst; usage - * depends on type. */ - char *dst; /* Address of value to be modified; usage - * depends on type. */ - char *help; /* Documentation message describing this - * option. */ -} Tk_ArgvInfo; - -/* - * Legal values for the type field of a Tk_ArgvInfo: see the user - * documentation for details. - */ - -#define TK_ARGV_CONSTANT 15 -#define TK_ARGV_INT 16 -#define TK_ARGV_STRING 17 -#define TK_ARGV_UID 18 -#define TK_ARGV_REST 19 -#define TK_ARGV_FLOAT 20 -#define TK_ARGV_FUNC 21 -#define TK_ARGV_GENFUNC 22 -#define TK_ARGV_HELP 23 -#define TK_ARGV_CONST_OPTION 24 -#define TK_ARGV_OPTION_VALUE 25 -#define TK_ARGV_OPTION_NAME_VALUE 26 -#define TK_ARGV_END 27 - -/* - * Flag bits for passing to Tk_ParseArgv: - */ - -#define TK_ARGV_NO_DEFAULTS 0x1 -#define TK_ARGV_NO_LEFTOVERS 0x2 -#define TK_ARGV_NO_ABBREV 0x4 -#define TK_ARGV_DONT_SKIP_FIRST_ARG 0x8 - -/* - * Enumerated type for describing actions to be taken in response to a - * restrictProc established by Tk_RestrictEvents. - */ - -typedef enum { - TK_DEFER_EVENT, TK_PROCESS_EVENT, TK_DISCARD_EVENT -} Tk_RestrictAction; - -/* - * Priority levels to pass to Tk_AddOption: - */ - -#define TK_WIDGET_DEFAULT_PRIO 20 -#define TK_STARTUP_FILE_PRIO 40 -#define TK_USER_DEFAULT_PRIO 60 -#define TK_INTERACTIVE_PRIO 80 -#define TK_MAX_PRIO 100 - -/* - * Relief values returned by Tk_GetRelief: - */ - -#define TK_RELIEF_NULL -1 -#define TK_RELIEF_FLAT 0 -#define TK_RELIEF_GROOVE 1 -#define TK_RELIEF_RAISED 2 -#define TK_RELIEF_RIDGE 3 -#define TK_RELIEF_SOLID 4 -#define TK_RELIEF_SUNKEN 5 - -/* - * "Which" argument values for Tk_3DBorderGC: - */ - -#define TK_3D_FLAT_GC 1 -#define TK_3D_LIGHT_GC 2 -#define TK_3D_DARK_GC 3 - -/* - * Special EnterNotify/LeaveNotify "mode" for use in events generated by - * tkShare.c. Pick a high enough value that it's unlikely to conflict with - * existing values (like NotifyNormal) or any new values defined in the - * future. - */ - -#define TK_NOTIFY_SHARE 20 - -/* - * Enumerated type for describing a point by which to anchor something: - */ - -typedef enum { - TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE, - TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW, - TK_ANCHOR_CENTER -} Tk_Anchor; - -/* - * Enumerated type for describing a style of justification: - */ - -typedef enum { - TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, TK_JUSTIFY_CENTER -} Tk_Justify; - -/* - * The following structure is used by Tk_GetFontMetrics() to return - * information about the properties of a Tk_Font. - */ - -typedef struct Tk_FontMetrics { - int ascent; /* The amount in pixels that the tallest - * letter sticks up above the baseline, plus - * any extra blank space added by the designer - * of the font. */ - int descent; /* The largest amount in pixels that any - * letter sticks below the baseline, plus any - * extra blank space added by the designer of - * the font. */ - int linespace; /* The sum of the ascent and descent. How far - * apart two lines of text in the same font - * should be placed so that none of the - * characters in one line overlap any of the - * characters in the other line. */ -} Tk_FontMetrics; - -/* - * Flags passed to Tk_MeasureChars: - */ - -#define TK_WHOLE_WORDS 1 -#define TK_AT_LEAST_ONE 2 -#define TK_PARTIAL_OK 4 - -/* - * Flags passed to Tk_ComputeTextLayout: - */ - -#define TK_IGNORE_TABS 8 -#define TK_IGNORE_NEWLINES 16 - -/* - * Widget class procedures used to implement platform specific widget - * behavior. - */ - -typedef Window (Tk_ClassCreateProc) _ANSI_ARGS_((Tk_Window tkwin, - Window parent, ClientData instanceData)); -typedef void (Tk_ClassWorldChangedProc) _ANSI_ARGS_((ClientData instanceData)); -typedef void (Tk_ClassModalProc) _ANSI_ARGS_((Tk_Window tkwin, - XEvent *eventPtr)); - -typedef struct Tk_ClassProcs { - unsigned int size; - Tk_ClassWorldChangedProc *worldChangedProc; - /* Procedure to invoke when the widget needs - * to respond in some way to a change in the - * world (font changes, etc.) */ - Tk_ClassCreateProc *createProc; - /* Procedure to invoke when the platform- - * dependent window needs to be created. */ - Tk_ClassModalProc *modalProc; - /* Procedure to invoke after all bindings on a - * widget have been triggered in order to - * handle a modal loop. */ -} Tk_ClassProcs; - -/* - * Simple accessor for Tk_ClassProcs structure. Checks that the structure is - * not NULL, then checks the size field and returns either the requested - * field, if present, or NULL if the structure is too small to have the field - * (or NULL if the structure is NULL). - * - * A more general version of this function may be useful if other - * size-versioned structure pop up in the future: - * - * #define Tk_GetField(name, who, which) \ - * (((who) == NULL) ? NULL : - * (((who)->size <= Tk_Offset(name, which)) ? NULL :(name)->which)) - */ - -#define Tk_GetClassProc(procs, which) \ - (((procs) == NULL) ? NULL : \ - (((procs)->size <= Tk_Offset(Tk_ClassProcs, which)) ? NULL:(procs)->which)) - -/* - * Each geometry manager (the packer, the placer, etc.) is represented by a - * structure of the following form, which indicates procedures to invoke in - * the geometry manager to carry out certain functions. - */ - -typedef void (Tk_GeomRequestProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin)); -typedef void (Tk_GeomLostSlaveProc) _ANSI_ARGS_((ClientData clientData, - Tk_Window tkwin)); - -typedef struct Tk_GeomMgr { - const char *name; /* Name of the geometry manager (command used - * to invoke it, or name of widget class that - * allows embedded widgets). */ - Tk_GeomRequestProc *requestProc; - /* Procedure to invoke when a slave's - * requested geometry changes. */ - Tk_GeomLostSlaveProc *lostSlaveProc; - /* Procedure to invoke when a slave is taken - * away from one geometry manager by another. - * NULL means geometry manager doesn't care - * when slaves are lost. */ -} Tk_GeomMgr; - -/* - * Result values returned by Tk_GetScrollInfo: - */ - -#define TK_SCROLL_MOVETO 1 -#define TK_SCROLL_PAGES 2 -#define TK_SCROLL_UNITS 3 -#define TK_SCROLL_ERROR 4 - -/* - *--------------------------------------------------------------------------- - * - * Extensions to the X event set - * - *--------------------------------------------------------------------------- - */ - -#define VirtualEvent (MappingNotify + 1) -#define ActivateNotify (MappingNotify + 2) -#define DeactivateNotify (MappingNotify + 3) -#define MouseWheelEvent (MappingNotify + 4) -#define TK_LASTEVENT (MappingNotify + 5) - -#define MouseWheelMask (1L << 28) -#define ActivateMask (1L << 29) -#define VirtualEventMask (1L << 30) - -/* - * A virtual event shares most of its fields with the XKeyEvent and - * XButtonEvent structures. 99% of the time a virtual event will be an - * abstraction of a key or button event, so this structure provides the most - * information to the user. The only difference is the changing of the detail - * field for a virtual event so that it holds the name of the virtual event - * being triggered. - * - * When using this structure, you should ensure that you zero out all the - * fields first using memset() or bzero(). - */ - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server. */ - Bool send_event; /* True if this came from a SendEvent - * request. */ - Display *display; /* Display the event was read from. */ - Window event; /* Window on which event was requested. */ - Window root; /* Root window that the event occured on. */ - Window subwindow; /* Child window. */ - Time time; /* Milliseconds. */ - int x, y; /* Pointer x, y coordinates in event - * window. */ - int x_root, y_root; /* Coordinates relative to root. */ - unsigned int state; /* Key or button mask */ - Tk_Uid name; /* Name of virtual event. */ - Bool same_screen; /* Same screen flag. */ - Tcl_Obj *user_data; /* Application-specific data reference; Tk - * will decrement the reference count *once* - * when it has finished processing the - * event. */ -} XVirtualEvent; - -typedef struct { - int type; - unsigned long serial; /* # of last request processed by server. */ - Bool send_event; /* True if this came from a SendEvent - * request. */ - Display *display; /* Display the event was read from. */ - Window window; /* Window in which event occurred. */ -} XActivateDeactivateEvent; -typedef XActivateDeactivateEvent XActivateEvent; -typedef XActivateDeactivateEvent XDeactivateEvent; - -/* - *-------------------------------------------------------------- - * - * Macros for querying Tk_Window structures. See the manual entries for - * documentation. - * - *-------------------------------------------------------------- - */ - -#define Tk_Display(tkwin) (((Tk_FakeWin *) (tkwin))->display) -#define Tk_ScreenNumber(tkwin) (((Tk_FakeWin *) (tkwin))->screenNum) -#define Tk_Screen(tkwin) \ - (ScreenOfDisplay(Tk_Display(tkwin), Tk_ScreenNumber(tkwin))) -#define Tk_Depth(tkwin) (((Tk_FakeWin *) (tkwin))->depth) -#define Tk_Visual(tkwin) (((Tk_FakeWin *) (tkwin))->visual) -#define Tk_WindowId(tkwin) (((Tk_FakeWin *) (tkwin))->window) -#define Tk_PathName(tkwin) (((Tk_FakeWin *) (tkwin))->pathName) -#define Tk_Name(tkwin) (((Tk_FakeWin *) (tkwin))->nameUid) -#define Tk_Class(tkwin) (((Tk_FakeWin *) (tkwin))->classUid) -#define Tk_X(tkwin) (((Tk_FakeWin *) (tkwin))->changes.x) -#define Tk_Y(tkwin) (((Tk_FakeWin *) (tkwin))->changes.y) -#define Tk_Width(tkwin) (((Tk_FakeWin *) (tkwin))->changes.width) -#define Tk_Height(tkwin) \ - (((Tk_FakeWin *) (tkwin))->changes.height) -#define Tk_Changes(tkwin) (&((Tk_FakeWin *) (tkwin))->changes) -#define Tk_Attributes(tkwin) (&((Tk_FakeWin *) (tkwin))->atts) -#define Tk_IsEmbedded(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_EMBEDDED) -#define Tk_IsContainer(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_CONTAINER) -#define Tk_IsMapped(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED) -#define Tk_IsTopLevel(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL) -#define Tk_HasWrapper(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_HAS_WRAPPER) -#define Tk_WinManaged(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_WIN_MANAGED) -#define Tk_TopWinHierarchy(tkwin) \ - (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_HIERARCHY) -#define Tk_ReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->reqWidth) -#define Tk_ReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->reqHeight) -/* Tk_InternalBorderWidth is deprecated */ -#define Tk_InternalBorderWidth(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderLeft(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderLeft) -#define Tk_InternalBorderRight(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderRight) -#define Tk_InternalBorderTop(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderTop) -#define Tk_InternalBorderBottom(tkwin) \ - (((Tk_FakeWin *) (tkwin))->internalBorderBottom) -#define Tk_MinReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->minReqWidth) -#define Tk_MinReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->minReqHeight) -#define Tk_Parent(tkwin) (((Tk_FakeWin *) (tkwin))->parentPtr) -#define Tk_Colormap(tkwin) (((Tk_FakeWin *) (tkwin))->atts.colormap) - -/* - * The structure below is needed by the macros above so that they can access - * the fields of a Tk_Window. The fields not needed by the macros are declared - * as "dummyX". The structure has its own type in order to prevent apps from - * accessing Tk_Window fields except using official macros. WARNING!! The - * structure definition must be kept consistent with the TkWindow structure in - * tkInt.h. If you change one, then change the other. See the declaration in - * tkInt.h for documentation on what the fields are used for internally. - */ - -typedef struct Tk_FakeWin { - Display *display; - char *dummy1; /* dispPtr */ - int screenNum; - Visual *visual; - int depth; - Window window; - char *dummy2; /* childList */ - char *dummy3; /* lastChildPtr */ - Tk_Window parentPtr; /* parentPtr */ - char *dummy4; /* nextPtr */ - char *dummy5; /* mainPtr */ - char *pathName; - Tk_Uid nameUid; - Tk_Uid classUid; - XWindowChanges changes; - unsigned int dummy6; /* dirtyChanges */ - XSetWindowAttributes atts; - unsigned long dummy7; /* dirtyAtts */ - unsigned int flags; - char *dummy8; /* handlerList */ -#ifdef TK_USE_INPUT_METHODS - XIC dummy9; /* inputContext */ -#endif /* TK_USE_INPUT_METHODS */ - ClientData *dummy10; /* tagPtr */ - int dummy11; /* numTags */ - int dummy12; /* optionLevel */ - char *dummy13; /* selHandlerList */ - char *dummy14; /* geomMgrPtr */ - ClientData dummy15; /* geomData */ - int reqWidth, reqHeight; - int internalBorderLeft; - char *dummy16; /* wmInfoPtr */ - char *dummy17; /* classProcPtr */ - ClientData dummy18; /* instanceData */ - char *dummy19; /* privatePtr */ - int internalBorderRight; - int internalBorderTop; - int internalBorderBottom; - int minReqWidth; - int minReqHeight; -} Tk_FakeWin; - -/* - * Flag values for TkWindow (and Tk_FakeWin) structures are: - * - * TK_MAPPED: 1 means window is currently mapped, - * 0 means unmapped. - * TK_TOP_LEVEL: 1 means this is a top-level widget. - * TK_ALREADY_DEAD: 1 means the window is in the process of - * being destroyed already. - * TK_NEED_CONFIG_NOTIFY: 1 means that the window has been reconfigured - * before it was made to exist. At the time of - * making it exist a ConfigureNotify event needs - * to be generated. - * TK_GRAB_FLAG: Used to manage grabs. See tkGrab.c for details - * TK_CHECKED_IC: 1 means we've already tried to get an input - * context for this window; if the ic field is - * NULL it means that there isn't a context for - * the field. - * TK_DONT_DESTROY_WINDOW: 1 means that Tk_DestroyWindow should not - * invoke XDestroyWindow to destroy this widget's - * X window. The flag is set when the window has - * already been destroyed elsewhere (e.g. by - * another application) or when it will be - * destroyed later (e.g. by destroying its parent) - * TK_WM_COLORMAP_WINDOW: 1 means that this window has at some time - * appeared in the WM_COLORMAP_WINDOWS property - * for its toplevel, so we have to remove it from - * that property if the window is deleted and the - * toplevel isn't. - * TK_EMBEDDED: 1 means that this window (which must be a - * toplevel) is not a free-standing window but - * rather is embedded in some other application. - * TK_CONTAINER: 1 means that this window is a container, and - * that some other application (either in this - * process or elsewhere) may be embedding itself - * inside the window. - * TK_BOTH_HALVES: 1 means that this window is used for - * application embedding (either as container or - * embedded application), and both the containing - * and embedded halves are associated with - * windows in this particular process. - * TK_DEFER_MODAL: 1 means that this window has deferred a modal - * loop until all of the bindings for the current - * event have been invoked. - * TK_WRAPPER: 1 means that this window is the extra wrapper - * window created around a toplevel to hold the - * menubar under Unix. See tkUnixWm.c for more - * information. - * TK_REPARENTED: 1 means that this window has been reparented - * so that as far as the window system is - * concerned it isn't a child of its Tk parent. - * Initially this is used only for special Unix - * menubar windows. - * TK_ANONYMOUS_WINDOW: 1 means that this window has no name, and is - * thus not accessible from Tk. - * TK_HAS_WRAPPER 1 means that this window has a wrapper window - * TK_WIN_MANAGED 1 means that this window is a child of the root - * window, and is managed by the window manager. - * TK_TOP_HIERARCHY 1 means this window is at the top of a physical - * window hierarchy within this process, i.e. the - * window's parent either doesn't exist or is not - * owned by this Tk application. - * TK_PROP_PROPCHANGE 1 means that PropertyNotify events in the - * window's children should propagate up to this - * window. - */ - -#define TK_MAPPED 1 -#define TK_TOP_LEVEL 2 -#define TK_ALREADY_DEAD 4 -#define TK_NEED_CONFIG_NOTIFY 8 -#define TK_GRAB_FLAG 0x10 -#define TK_CHECKED_IC 0x20 -#define TK_DONT_DESTROY_WINDOW 0x40 -#define TK_WM_COLORMAP_WINDOW 0x80 -#define TK_EMBEDDED 0x100 -#define TK_CONTAINER 0x200 -#define TK_BOTH_HALVES 0x400 -#define TK_DEFER_MODAL 0x800 -#define TK_WRAPPER 0x1000 -#define TK_REPARENTED 0x2000 -#define TK_ANONYMOUS_WINDOW 0x4000 -#define TK_HAS_WRAPPER 0x8000 -#define TK_WIN_MANAGED 0x10000 -#define TK_TOP_HIERARCHY 0x20000 -#define TK_PROP_PROPCHANGE 0x40000 - -/* - *-------------------------------------------------------------- - * - * Procedure prototypes and structures used for defining new canvas items: - * - *-------------------------------------------------------------- - */ - -typedef enum { - TK_STATE_NULL = -1, TK_STATE_ACTIVE, TK_STATE_DISABLED, - TK_STATE_NORMAL, TK_STATE_HIDDEN -} Tk_State; - -typedef struct Tk_SmoothMethod { - char *name; - int (*coordProc) _ANSI_ARGS_((Tk_Canvas canvas, - double *pointPtr, int numPoints, int numSteps, - XPoint xPoints[], double dblPoints[])); - void (*postscriptProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, double *coordPtr, - int numPoints, int numSteps)); -} Tk_SmoothMethod; - -/* - * For each item in a canvas widget there exists one record with the following - * structure. Each actual item is represented by a record with the following - * stuff at its beginning, plus additional type-specific stuff after that. - */ - -#define TK_TAG_SPACE 3 - -typedef struct Tk_Item { - int id; /* Unique identifier for this item (also - * serves as first tag for item). */ - struct Tk_Item *nextPtr; /* Next in display list of all items in this - * canvas. Later items in list are drawn on - * top of earlier ones. */ - Tk_Uid staticTagSpace[TK_TAG_SPACE]; - /* Built-in space for limited # of tags. */ - Tk_Uid *tagPtr; /* Pointer to array of tags. Usually points to - * staticTagSpace, but may point to malloc-ed - * space if there are lots of tags. */ - int tagSpace; /* Total amount of tag space available at - * tagPtr. */ - int numTags; /* Number of tag slots actually used at - * *tagPtr. */ - struct Tk_ItemType *typePtr;/* Table of procedures that implement this - * type of item. */ - int x1, y1, x2, y2; /* Bounding box for item, in integer canvas - * units. Set by item-specific code and - * guaranteed to contain every pixel drawn in - * item. Item area includes x1 and y1 but not - * x2 and y2. */ - struct Tk_Item *prevPtr; /* Previous in display list of all items in - * this canvas. Later items in list are drawn - * just below earlier ones. */ - Tk_State state; /* State of item. */ - char *reserved1; /* reserved for future use */ - int redraw_flags; /* Some flags used in the canvas */ - - /* - *------------------------------------------------------------------ - * Starting here is additional type-specific stuff; see the declarations - * for individual types to see what is part of each type. The actual space - * below is determined by the "itemInfoSize" of the type's Tk_ItemType - * record. - *------------------------------------------------------------------ - */ -} Tk_Item; - -/* - * Flag bits for canvases (redraw_flags): - * - * TK_ITEM_STATE_DEPENDANT - 1 means that object needs to be redrawn if the - * canvas state changes. - * TK_ITEM_DONT_REDRAW - 1 means that the object redraw is already been - * prepared, so the general canvas code doesn't - * need to do that any more. - */ - -#define TK_ITEM_STATE_DEPENDANT 1 -#define TK_ITEM_DONT_REDRAW 2 - -/* - * Records of the following type are used to describe a type of item (e.g. - * lines, circles, etc.) that can form part of a canvas widget. - */ - -#ifdef USE_OLD_CANVAS -typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - char **argv)); -typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - char **argv, int flags)); -typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - char **argv)); -#else -typedef int Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *const objv[])); -typedef int Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *const objv[], int flags)); -typedef int Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int argc, - Tcl_Obj *const argv[])); -#endif -typedef void Tk_ItemDeleteProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, Display *display)); -typedef void Tk_ItemDisplayProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, Display *display, Drawable dst, - int x, int y, int width, int height)); -typedef double Tk_ItemPointProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double *pointPtr)); -typedef int Tk_ItemAreaProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double *rectPtr)); -typedef int Tk_ItemPostscriptProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, int prepass)); -typedef void Tk_ItemScaleProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double originX, double originY, - double scaleX, double scaleY)); -typedef void Tk_ItemTranslateProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, double deltaX, double deltaY)); -typedef int Tk_ItemIndexProc _ANSI_ARGS_((Tcl_Interp *interp, - Tk_Canvas canvas, Tk_Item *itemPtr, char *indexString, - int *indexPtr)); -typedef void Tk_ItemCursorProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int index)); -typedef int Tk_ItemSelectionProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int offset, char *buffer, - int maxBytes)); -typedef void Tk_ItemInsertProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int beforeThis, char *string)); -typedef void Tk_ItemDCharsProc _ANSI_ARGS_((Tk_Canvas canvas, - Tk_Item *itemPtr, int first, int last)); - -#ifndef __NO_OLD_CONFIG - -typedef struct Tk_ItemType { - char *name; /* The name of this type of item, such as - * "line". */ - int itemSize; /* Total amount of space needed for item's - * record. */ - Tk_ItemCreateProc *createProc; - /* Procedure to create a new item of this - * type. */ - Tk_ConfigSpec *configSpecs; /* Pointer to array of configuration specs for - * this type. Used for returning configuration - * info. */ - Tk_ItemConfigureProc *configProc; - /* Procedure to call to change configuration - * options. */ - Tk_ItemCoordProc *coordProc;/* Procedure to call to get and set the item's - * coordinates. */ - Tk_ItemDeleteProc *deleteProc; - /* Procedure to delete existing item of this - * type. */ - Tk_ItemDisplayProc *displayProc; - /* Procedure to display items of this type. */ - int alwaysRedraw; /* Non-zero means displayProc should be called - * even when the item has been moved - * off-screen. */ - Tk_ItemPointProc *pointProc;/* Computes distance from item to a given - * point. */ - Tk_ItemAreaProc *areaProc; /* Computes whether item is inside, outside, - * or overlapping an area. */ - Tk_ItemPostscriptProc *postscriptProc; - /* Procedure to write a Postscript description - * for items of this type. */ - Tk_ItemScaleProc *scaleProc;/* Procedure to rescale items of this type. */ - Tk_ItemTranslateProc *translateProc; - /* Procedure to translate items of this - * type. */ - Tk_ItemIndexProc *indexProc;/* Procedure to determine index of indicated - * character. NULL if item doesn't support - * indexing. */ - Tk_ItemCursorProc *icursorProc; - /* Procedure to set insert cursor posn to just - * before a given position. */ - Tk_ItemSelectionProc *selectionProc; - /* Procedure to return selection (in STRING - * format) when it is in this item. */ - Tk_ItemInsertProc *insertProc; - /* Procedure to insert something into an - * item. */ - Tk_ItemDCharsProc *dCharsProc; - /* Procedure to delete characters from an - * item. */ - struct Tk_ItemType *nextPtr;/* Used to link types together into a list. */ - char *reserved1; /* Reserved for future extension. */ - int reserved2; /* Carefully compatible with */ - char *reserved3; /* Jan Nijtmans dash patch */ - char *reserved4; -} Tk_ItemType; - -#endif - -/* - * The following structure provides information about the selection and the - * insertion cursor. It is needed by only a few items, such as those that - * display text. It is shared by the generic canvas code and the item-specific - * code, but most of the fields should be written only by the canvas generic - * code. - */ - -typedef struct Tk_CanvasTextInfo { - Tk_3DBorder selBorder; /* Border and background for selected - * characters. Read-only to items.*/ - int selBorderWidth; /* Width of border around selection. Read-only - * to items. */ - XColor *selFgColorPtr; /* Foreground color for selected text. - * Read-only to items. */ - Tk_Item *selItemPtr; /* Pointer to selected item. NULL means - * selection isn't in this canvas. Writable by - * items. */ - int selectFirst; /* Character index of first selected - * character. Writable by items. */ - int selectLast; /* Character index of last selected character. - * Writable by items. */ - Tk_Item *anchorItemPtr; /* Item corresponding to "selectAnchor": not - * necessarily selItemPtr. Read-only to - * items. */ - int selectAnchor; /* Character index of fixed end of selection - * (i.e. "select to" operation will use this - * as one end of the selection). Writable by - * items. */ - Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion - * cursor. Read-only to items. */ - int insertWidth; /* Total width of insertion cursor. Read-only - * to items. */ - int insertBorderWidth; /* Width of 3-D border around insert cursor. - * Read-only to items. */ - Tk_Item *focusItemPtr; /* Item that currently has the input focus, or - * NULL if no such item. Read-only to items. */ - int gotFocus; /* Non-zero means that the canvas widget has - * the input focus. Read-only to items.*/ - int cursorOn; /* Non-zero means that an insertion cursor - * should be displayed in focusItemPtr. - * Read-only to items.*/ -} Tk_CanvasTextInfo; - -/* - * Structures used for Dashing and Outline. - */ - -typedef struct Tk_Dash { - int number; - union { - char *pt; - char array[sizeof(char *)]; - } pattern; -} Tk_Dash; - -typedef struct Tk_TSOffset { - int flags; /* Flags; see below for possible values */ - int xoffset; /* x offset */ - int yoffset; /* y offset */ -} Tk_TSOffset; - -/* - * Bit fields in Tk_Offset->flags: - */ - -#define TK_OFFSET_INDEX 1 -#define TK_OFFSET_RELATIVE 2 -#define TK_OFFSET_LEFT 4 -#define TK_OFFSET_CENTER 8 -#define TK_OFFSET_RIGHT 16 -#define TK_OFFSET_TOP 32 -#define TK_OFFSET_MIDDLE 64 -#define TK_OFFSET_BOTTOM 128 - -typedef struct Tk_Outline { - GC gc; /* Graphics context. */ - double width; /* Width of outline. */ - double activeWidth; /* Width of outline. */ - double disabledWidth; /* Width of outline. */ - int offset; /* Dash offset. */ - Tk_Dash dash; /* Dash pattern. */ - Tk_Dash activeDash; /* Dash pattern if state is active. */ - Tk_Dash disabledDash; /* Dash pattern if state is disabled. */ - VOID *reserved1; /* Reserved for future expansion. */ - VOID *reserved2; - VOID *reserved3; - Tk_TSOffset tsoffset; /* Stipple offset for outline. */ - XColor *color; /* Outline color. */ - XColor *activeColor; /* Outline color if state is active. */ - XColor *disabledColor; /* Outline color if state is disabled. */ - Pixmap stipple; /* Outline Stipple pattern. */ - Pixmap activeStipple; /* Outline Stipple pattern if state is - * active. */ - Pixmap disabledStipple; /* Outline Stipple pattern if state is - * disabled. */ -} Tk_Outline; - -/* - *-------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing images: - * - *-------------------------------------------------------------- - */ - -typedef struct Tk_ImageType Tk_ImageType; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *name, int argc, char **argv, Tk_ImageType *typePtr, - Tk_ImageMaster master, ClientData *masterDataPtr)); -#else -typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *name, int objc, Tcl_Obj *const objv[], Tk_ImageType *typePtr, - Tk_ImageMaster master, ClientData *masterDataPtr)); -#endif -typedef ClientData (Tk_ImageGetProc) _ANSI_ARGS_((Tk_Window tkwin, - ClientData masterData)); -typedef void (Tk_ImageDisplayProc) _ANSI_ARGS_((ClientData instanceData, - Display *display, Drawable drawable, int imageX, int imageY, - int width, int height, int drawableX, int drawableY)); -typedef void (Tk_ImageFreeProc) _ANSI_ARGS_((ClientData instanceData, - Display *display)); -typedef void (Tk_ImageDeleteProc) _ANSI_ARGS_((ClientData masterData)); -typedef void (Tk_ImageChangedProc) _ANSI_ARGS_((ClientData clientData, - int x, int y, int width, int height, int imageWidth, - int imageHeight)); -typedef int (Tk_ImagePostscriptProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, - int x, int y, int width, int height, int prepass)); - -/* - * The following structure represents a particular type of image (bitmap, xpm - * image, etc.). It provides information common to all images of that type, - * such as the type name and a collection of procedures in the image manager - * that respond to various events. Each image manager is represented by one of - * these structures. - */ - -struct Tk_ImageType { - char *name; /* Name of image type. */ - Tk_ImageCreateProc *createProc; - /* Procedure to call to create a new image of - * this type. */ - Tk_ImageGetProc *getProc; /* Procedure to call the first time - * Tk_GetImage is called in a new way (new - * visual or screen). */ - Tk_ImageDisplayProc *displayProc; - /* Call to draw image, in response to - * Tk_RedrawImage calls. */ - Tk_ImageFreeProc *freeProc; /* Procedure to call whenever Tk_FreeImage is - * called to release an instance of an - * image. */ - Tk_ImageDeleteProc *deleteProc; - /* Procedure to call to delete image. It will - * not be called until after freeProc has been - * called for each instance of the image. */ - Tk_ImagePostscriptProc *postscriptProc; - /* Procedure to call to produce postscript - * output for the image. */ - struct Tk_ImageType *nextPtr; - /* Next in list of all image types currently - * known. Filled in by Tk, not by image - * manager. */ - char *reserved; /* reserved for future expansion */ -}; - -/* - *-------------------------------------------------------------- - * - * Additional definitions used to manage images of type "photo". - * - *-------------------------------------------------------------- - */ - -/* - * The following type is used to identify a particular photo image to be - * manipulated: - */ - -typedef void *Tk_PhotoHandle; - -/* - * The following structure describes a block of pixels in memory: - */ - -typedef struct Tk_PhotoImageBlock { - unsigned char *pixelPtr; /* Pointer to the first pixel. */ - int width; /* Width of block, in pixels. */ - int height; /* Height of block, in pixels. */ - int pitch; /* Address difference between corresponding - * pixels in successive lines. */ - int pixelSize; /* Address difference between successive - * pixels in the same line. */ - int offset[4]; /* Address differences between the red, green, - * blue and alpha components of the pixel and - * the pixel as a whole. */ -} Tk_PhotoImageBlock; - -/* - * The following values control how blocks are combined into photo images when - * the alpha component of a pixel is not 255, a.k.a. the compositing rule. - */ - -#define TK_PHOTO_COMPOSITE_OVERLAY 0 -#define TK_PHOTO_COMPOSITE_SET 1 - -/* - * Procedure prototypes and structures used in reading and writing photo - * images: - */ - -typedef struct Tk_PhotoImageFormat Tk_PhotoImageFormat; -#ifdef USE_OLD_IMAGE -typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, - char *fileName, char *formatString, int *widthPtr, int *heightPtr)); -typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((char *string, - char *formatString, int *widthPtr, int *heightPtr)); -typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Channel chan, char *fileName, char *formatString, - Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *string, char *formatString, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - char *fileName, char *formatString, Tk_PhotoImageBlock *blockPtr)); -typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_DString *dataPtr, char *formatString, - Tk_PhotoImageBlock *blockPtr)); -#else -typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((Tcl_Channel chan, - const char *fileName, Tcl_Obj *format, int *widthPtr, - int *heightPtr, Tcl_Interp *interp)); -typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((Tcl_Obj *dataObj, - Tcl_Obj *format, int *widthPtr, int *heightPtr, - Tcl_Interp *interp)); -typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Channel chan, const char *fileName, Tcl_Obj *format, - Tk_PhotoHandle imageHandle, int destX, int destY, - int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *dataObj, Tcl_Obj *format, Tk_PhotoHandle imageHandle, - int destX, int destY, int width, int height, int srcX, int srcY)); -typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - const char *fileName, Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); -typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *format, Tk_PhotoImageBlock *blockPtr)); -#endif - -/* - * The following structure represents a particular file format for storing - * images (e.g., PPM, GIF, JPEG, etc.). It provides information to allow image - * files of that format to be recognized and read into a photo image. - */ - -struct Tk_PhotoImageFormat { - char *name; /* Name of image file format */ - Tk_ImageFileMatchProc *fileMatchProc; - /* Procedure to call to determine whether an - * image file matches this format. */ - Tk_ImageStringMatchProc *stringMatchProc; - /* Procedure to call to determine whether the - * data in a string matches this format. */ - Tk_ImageFileReadProc *fileReadProc; - /* Procedure to call to read data from an - * image file into a photo image. */ - Tk_ImageStringReadProc *stringReadProc; - /* Procedure to call to read data from a - * string into a photo image. */ - Tk_ImageFileWriteProc *fileWriteProc; - /* Procedure to call to write data from a - * photo image to a file. */ - Tk_ImageStringWriteProc *stringWriteProc; - /* Procedure to call to obtain a string - * representation of the data in a photo - * image.*/ - struct Tk_PhotoImageFormat *nextPtr; - /* Next in list of all photo image formats - * currently known. Filled in by Tk, not by - * image format handler. */ -}; - -#ifdef USE_OLD_IMAGE -#define Tk_CreateImageType Tk_CreateOldImageType -#define Tk_CreatePhotoImageFormat Tk_CreateOldPhotoImageFormat -#endif - -/* - *-------------------------------------------------------------- - * - * Procedure prototypes and structures used for managing styles: - * - *-------------------------------------------------------------- - */ - -/* - * Style support version tag. - */ - -#define TK_STYLE_VERSION_1 0x1 -#define TK_STYLE_VERSION TK_STYLE_VERSION_1 - -/* - * The following structures and prototypes are used as static templates to - * declare widget elements. - */ - -typedef void (Tk_GetElementSizeProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - int width, int height, int inner, int *widthPtr, int *heightPtr)); -typedef void (Tk_GetElementBoxProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - int x, int y, int width, int height, int inner, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr)); -typedef int (Tk_GetElementBorderWidthProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin)); -typedef void (Tk_DrawElementProc) _ANSI_ARGS_((ClientData clientData, - char *recordPtr, const Tk_OptionSpec **optionsPtr, Tk_Window tkwin, - Drawable d, int x, int y, int width, int height, int state)); - -typedef struct Tk_ElementOptionSpec { - char *name; /* Name of the required option. */ - Tk_OptionType type; /* Accepted option type. TK_OPTION_END means - * any. */ -} Tk_ElementOptionSpec; - -typedef struct Tk_ElementSpec { - int version; /* Version of the style support. */ - char *name; /* Name of element. */ - Tk_ElementOptionSpec *options; - /* List of required options. Last one's name - * must be NULL. */ - Tk_GetElementSizeProc *getSize; - /* Compute the external (resp. internal) size - * of the element from its desired internal - * (resp. external) size. */ - Tk_GetElementBoxProc *getBox; - /* Compute the inscribed or bounding boxes - * within a given area. */ - Tk_GetElementBorderWidthProc *getBorderWidth; - /* Return the element's internal border width. - * Mostly useful for widgets. */ - Tk_DrawElementProc *draw; /* Draw the element in the given bounding - * box. */ -} Tk_ElementSpec; - -/* - * Element state flags. Can be OR'ed. - */ - -#define TK_ELEMENT_STATE_ACTIVE 1<<0 -#define TK_ELEMENT_STATE_DISABLED 1<<1 -#define TK_ELEMENT_STATE_FOCUS 1<<2 -#define TK_ELEMENT_STATE_PRESSED 1<<3 - -/* - *-------------------------------------------------------------- - * - * The definitions below provide backward compatibility for functions and - * types related to event handling that used to be in Tk but have moved to - * Tcl. - * - *-------------------------------------------------------------- - */ - -#define TK_READABLE TCL_READABLE -#define TK_WRITABLE TCL_WRITABLE -#define TK_EXCEPTION TCL_EXCEPTION - -#define TK_DONT_WAIT TCL_DONT_WAIT -#define TK_X_EVENTS TCL_WINDOW_EVENTS -#define TK_WINDOW_EVENTS TCL_WINDOW_EVENTS -#define TK_FILE_EVENTS TCL_FILE_EVENTS -#define TK_TIMER_EVENTS TCL_TIMER_EVENTS -#define TK_IDLE_EVENTS TCL_IDLE_EVENTS -#define TK_ALL_EVENTS TCL_ALL_EVENTS - -#define Tk_IdleProc Tcl_IdleProc -#define Tk_FileProc Tcl_FileProc -#define Tk_TimerProc Tcl_TimerProc -#define Tk_TimerToken Tcl_TimerToken - -#define Tk_BackgroundError Tcl_BackgroundError -#define Tk_CancelIdleCall Tcl_CancelIdleCall -#define Tk_CreateFileHandler Tcl_CreateFileHandler -#define Tk_CreateTimerHandler Tcl_CreateTimerHandler -#define Tk_DeleteFileHandler Tcl_DeleteFileHandler -#define Tk_DeleteTimerHandler Tcl_DeleteTimerHandler -#define Tk_DoOneEvent Tcl_DoOneEvent -#define Tk_DoWhenIdle Tcl_DoWhenIdle -#define Tk_Sleep Tcl_Sleep - -/* Additional stuff that has moved to Tcl: */ - -#define Tk_EventuallyFree Tcl_EventuallyFree -#define Tk_FreeProc Tcl_FreeProc -#define Tk_Preserve Tcl_Preserve -#define Tk_Release Tcl_Release - -/* Removed Tk_Main, use macro instead */ -#define Tk_Main(argc, argv, proc) \ - Tk_MainEx(argc, argv, proc, Tcl_CreateInterp()) - -const char * Tk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, - const char *version, int exact)); -EXTERN const char * Tk_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *interp, - const char *version, int exact)); - -#ifndef USE_TK_STUBS - -#define Tk_InitStubs(interp, version, exact) \ - Tk_PkgInitStubsCheck(interp, version, exact) - -#endif - -#define Tk_InitImageArgs(interp, argc, argv) /**/ - - -/* - *-------------------------------------------------------------- - * - * Additional procedure types defined by Tk. - * - *-------------------------------------------------------------- - */ - -typedef int (Tk_ErrorProc) _ANSI_ARGS_((ClientData clientData, - XErrorEvent *errEventPtr)); -typedef void (Tk_EventProc) _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -typedef int (Tk_GenericProc) _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -typedef int (Tk_ClientMessageProc) _ANSI_ARGS_((Tk_Window tkwin, - XEvent *eventPtr)); -typedef int (Tk_GetSelProc) _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, char *portion)); -typedef void (Tk_LostSelProc) _ANSI_ARGS_((ClientData clientData)); -typedef Tk_RestrictAction (Tk_RestrictProc) _ANSI_ARGS_(( - ClientData clientData, XEvent *eventPtr)); -typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData, - int offset, char *buffer, int maxBytes)); - -/* - *-------------------------------------------------------------- - * - * Platform independant exported procedures and variables. - * - *-------------------------------------------------------------- - */ - -#include "tkDecls.h" - -/* - * Allow users to say that they don't want to alter their source to add extra - * arguments to Tk_PhotoPutBlock() et al; DO NOT DEFINE THIS WHEN BUILDING TK. - * - * This goes after the inclusion of the stubbed-decls so that the declarations - * of what is actually there can be correct. - */ - -#ifdef USE_COMPOSITELESS_PHOTO_PUT_BLOCK -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_NoComposite -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_NoComposite -# define USE_PANIC_ON_PHOTO_ALLOC_FAILURE -#else /* !USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ -# ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE -# ifdef Tk_PhotoPutBlock -# undef Tk_PhotoPutBlock -# endif -# define Tk_PhotoPutBlock Tk_PhotoPutBlock_Panic -# ifdef Tk_PhotoPutZoomedBlock -# undef Tk_PhotoPutZoomedBlock -# endif -# define Tk_PhotoPutZoomedBlock Tk_PhotoPutZoomedBlock_Panic -# endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ -#endif /* USE_COMPOSITELESS_PHOTO_PUT_BLOCK */ -#ifdef USE_PANIC_ON_PHOTO_ALLOC_FAILURE -# ifdef Tk_PhotoExpand -# undef Tk_PhotoExpand -# endif -# define Tk_PhotoExpand Tk_PhotoExpand_Panic -# ifdef Tk_PhotoSetSize -# undef Tk_PhotoSetSize -# endif -# define Tk_PhotoSetSize Tk_PhotoSetSize_Panic -#endif /* USE_PANIC_ON_PHOTO_ALLOC_FAILURE */ - -/* - * Tcl commands exported by Tk: - */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ - -/* - * end block for C++ - */ - -#ifdef __cplusplus -} -#endif - -#endif /* _TK */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ diff --git a/mingw/include/tkDecls.h b/mingw/include/tkDecls.h deleted file mode 100644 index 407150156b..0000000000 --- a/mingw/include/tkDecls.h +++ /dev/null @@ -1,3098 +0,0 @@ -/* - * tkDecls.h -- - * - * Declarations of functions in the platform independent public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkDecls.h,v 1.30 2007/05/14 20:58:26 dgp Exp $ - */ - -#ifndef _TKDECLS -#define _TKDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#ifndef Tk_MainLoop_TCL_DECLARED -#define Tk_MainLoop_TCL_DECLARED -/* 0 */ -EXTERN void Tk_MainLoop (void); -#endif -#ifndef Tk_3DBorderColor_TCL_DECLARED -#define Tk_3DBorderColor_TCL_DECLARED -/* 1 */ -EXTERN XColor * Tk_3DBorderColor (Tk_3DBorder border); -#endif -#ifndef Tk_3DBorderGC_TCL_DECLARED -#define Tk_3DBorderGC_TCL_DECLARED -/* 2 */ -EXTERN GC Tk_3DBorderGC (Tk_Window tkwin, Tk_3DBorder border, - int which); -#endif -#ifndef Tk_3DHorizontalBevel_TCL_DECLARED -#define Tk_3DHorizontalBevel_TCL_DECLARED -/* 3 */ -EXTERN void Tk_3DHorizontalBevel (Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftIn, - int rightIn, int topBevel, int relief); -#endif -#ifndef Tk_3DVerticalBevel_TCL_DECLARED -#define Tk_3DVerticalBevel_TCL_DECLARED -/* 4 */ -EXTERN void Tk_3DVerticalBevel (Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, int leftBevel, - int relief); -#endif -#ifndef Tk_AddOption_TCL_DECLARED -#define Tk_AddOption_TCL_DECLARED -/* 5 */ -EXTERN void Tk_AddOption (Tk_Window tkwin, CONST char * name, - CONST char * value, int priority); -#endif -#ifndef Tk_BindEvent_TCL_DECLARED -#define Tk_BindEvent_TCL_DECLARED -/* 6 */ -EXTERN void Tk_BindEvent (Tk_BindingTable bindingTable, - XEvent * eventPtr, Tk_Window tkwin, - int numObjects, ClientData * objectPtr); -#endif -#ifndef Tk_CanvasDrawableCoords_TCL_DECLARED -#define Tk_CanvasDrawableCoords_TCL_DECLARED -/* 7 */ -EXTERN void Tk_CanvasDrawableCoords (Tk_Canvas canvas, double x, - double y, short * drawableXPtr, - short * drawableYPtr); -#endif -#ifndef Tk_CanvasEventuallyRedraw_TCL_DECLARED -#define Tk_CanvasEventuallyRedraw_TCL_DECLARED -/* 8 */ -EXTERN void Tk_CanvasEventuallyRedraw (Tk_Canvas canvas, int x1, - int y1, int x2, int y2); -#endif -#ifndef Tk_CanvasGetCoord_TCL_DECLARED -#define Tk_CanvasGetCoord_TCL_DECLARED -/* 9 */ -EXTERN int Tk_CanvasGetCoord (Tcl_Interp * interp, - Tk_Canvas canvas, CONST char * str, - double * doublePtr); -#endif -#ifndef Tk_CanvasGetTextInfo_TCL_DECLARED -#define Tk_CanvasGetTextInfo_TCL_DECLARED -/* 10 */ -EXTERN Tk_CanvasTextInfo * Tk_CanvasGetTextInfo (Tk_Canvas canvas); -#endif -#ifndef Tk_CanvasPsBitmap_TCL_DECLARED -#define Tk_CanvasPsBitmap_TCL_DECLARED -/* 11 */ -EXTERN int Tk_CanvasPsBitmap (Tcl_Interp * interp, - Tk_Canvas canvas, Pixmap bitmap, int x, - int y, int width, int height); -#endif -#ifndef Tk_CanvasPsColor_TCL_DECLARED -#define Tk_CanvasPsColor_TCL_DECLARED -/* 12 */ -EXTERN int Tk_CanvasPsColor (Tcl_Interp * interp, - Tk_Canvas canvas, XColor * colorPtr); -#endif -#ifndef Tk_CanvasPsFont_TCL_DECLARED -#define Tk_CanvasPsFont_TCL_DECLARED -/* 13 */ -EXTERN int Tk_CanvasPsFont (Tcl_Interp * interp, - Tk_Canvas canvas, Tk_Font font); -#endif -#ifndef Tk_CanvasPsPath_TCL_DECLARED -#define Tk_CanvasPsPath_TCL_DECLARED -/* 14 */ -EXTERN void Tk_CanvasPsPath (Tcl_Interp * interp, - Tk_Canvas canvas, double * coordPtr, - int numPoints); -#endif -#ifndef Tk_CanvasPsStipple_TCL_DECLARED -#define Tk_CanvasPsStipple_TCL_DECLARED -/* 15 */ -EXTERN int Tk_CanvasPsStipple (Tcl_Interp * interp, - Tk_Canvas canvas, Pixmap bitmap); -#endif -#ifndef Tk_CanvasPsY_TCL_DECLARED -#define Tk_CanvasPsY_TCL_DECLARED -/* 16 */ -EXTERN double Tk_CanvasPsY (Tk_Canvas canvas, double y); -#endif -#ifndef Tk_CanvasSetStippleOrigin_TCL_DECLARED -#define Tk_CanvasSetStippleOrigin_TCL_DECLARED -/* 17 */ -EXTERN void Tk_CanvasSetStippleOrigin (Tk_Canvas canvas, GC gc); -#endif -#ifndef Tk_CanvasTagsParseProc_TCL_DECLARED -#define Tk_CanvasTagsParseProc_TCL_DECLARED -/* 18 */ -EXTERN int Tk_CanvasTagsParseProc (ClientData clientData, - Tcl_Interp * interp, Tk_Window tkwin, - CONST char * value, char * widgRec, - int offset); -#endif -#ifndef Tk_CanvasTagsPrintProc_TCL_DECLARED -#define Tk_CanvasTagsPrintProc_TCL_DECLARED -/* 19 */ -EXTERN char * Tk_CanvasTagsPrintProc (ClientData clientData, - Tk_Window tkwin, char * widgRec, int offset, - Tcl_FreeProc ** freeProcPtr); -#endif -#ifndef Tk_CanvasTkwin_TCL_DECLARED -#define Tk_CanvasTkwin_TCL_DECLARED -/* 20 */ -EXTERN Tk_Window Tk_CanvasTkwin (Tk_Canvas canvas); -#endif -#ifndef Tk_CanvasWindowCoords_TCL_DECLARED -#define Tk_CanvasWindowCoords_TCL_DECLARED -/* 21 */ -EXTERN void Tk_CanvasWindowCoords (Tk_Canvas canvas, double x, - double y, short * screenXPtr, - short * screenYPtr); -#endif -#ifndef Tk_ChangeWindowAttributes_TCL_DECLARED -#define Tk_ChangeWindowAttributes_TCL_DECLARED -/* 22 */ -EXTERN void Tk_ChangeWindowAttributes (Tk_Window tkwin, - unsigned long valueMask, - XSetWindowAttributes * attsPtr); -#endif -#ifndef Tk_CharBbox_TCL_DECLARED -#define Tk_CharBbox_TCL_DECLARED -/* 23 */ -EXTERN int Tk_CharBbox (Tk_TextLayout layout, int index, - int * xPtr, int * yPtr, int * widthPtr, - int * heightPtr); -#endif -#ifndef Tk_ClearSelection_TCL_DECLARED -#define Tk_ClearSelection_TCL_DECLARED -/* 24 */ -EXTERN void Tk_ClearSelection (Tk_Window tkwin, Atom selection); -#endif -#ifndef Tk_ClipboardAppend_TCL_DECLARED -#define Tk_ClipboardAppend_TCL_DECLARED -/* 25 */ -EXTERN int Tk_ClipboardAppend (Tcl_Interp * interp, - Tk_Window tkwin, Atom target, Atom format, - char* buffer); -#endif -#ifndef Tk_ClipboardClear_TCL_DECLARED -#define Tk_ClipboardClear_TCL_DECLARED -/* 26 */ -EXTERN int Tk_ClipboardClear (Tcl_Interp * interp, - Tk_Window tkwin); -#endif -#ifndef Tk_ConfigureInfo_TCL_DECLARED -#define Tk_ConfigureInfo_TCL_DECLARED -/* 27 */ -EXTERN int Tk_ConfigureInfo (Tcl_Interp * interp, - Tk_Window tkwin, Tk_ConfigSpec * specs, - char * widgRec, CONST char * argvName, - int flags); -#endif -#ifndef Tk_ConfigureValue_TCL_DECLARED -#define Tk_ConfigureValue_TCL_DECLARED -/* 28 */ -EXTERN int Tk_ConfigureValue (Tcl_Interp * interp, - Tk_Window tkwin, Tk_ConfigSpec * specs, - char * widgRec, CONST char * argvName, - int flags); -#endif -#ifndef Tk_ConfigureWidget_TCL_DECLARED -#define Tk_ConfigureWidget_TCL_DECLARED -/* 29 */ -EXTERN int Tk_ConfigureWidget (Tcl_Interp * interp, - Tk_Window tkwin, Tk_ConfigSpec * specs, - int argc, CONST84 char ** argv, - char * widgRec, int flags); -#endif -#ifndef Tk_ConfigureWindow_TCL_DECLARED -#define Tk_ConfigureWindow_TCL_DECLARED -/* 30 */ -EXTERN void Tk_ConfigureWindow (Tk_Window tkwin, - unsigned int valueMask, - XWindowChanges * valuePtr); -#endif -#ifndef Tk_ComputeTextLayout_TCL_DECLARED -#define Tk_ComputeTextLayout_TCL_DECLARED -/* 31 */ -EXTERN Tk_TextLayout Tk_ComputeTextLayout (Tk_Font font, CONST char * str, - int numChars, int wrapLength, - Tk_Justify justify, int flags, - int * widthPtr, int * heightPtr); -#endif -#ifndef Tk_CoordsToWindow_TCL_DECLARED -#define Tk_CoordsToWindow_TCL_DECLARED -/* 32 */ -EXTERN Tk_Window Tk_CoordsToWindow (int rootX, int rootY, - Tk_Window tkwin); -#endif -#ifndef Tk_CreateBinding_TCL_DECLARED -#define Tk_CreateBinding_TCL_DECLARED -/* 33 */ -EXTERN unsigned long Tk_CreateBinding (Tcl_Interp * interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char * eventStr, - CONST char * command, int append); -#endif -#ifndef Tk_CreateBindingTable_TCL_DECLARED -#define Tk_CreateBindingTable_TCL_DECLARED -/* 34 */ -EXTERN Tk_BindingTable Tk_CreateBindingTable (Tcl_Interp * interp); -#endif -#ifndef Tk_CreateErrorHandler_TCL_DECLARED -#define Tk_CreateErrorHandler_TCL_DECLARED -/* 35 */ -EXTERN Tk_ErrorHandler Tk_CreateErrorHandler (Display * display, int errNum, - int request, int minorCode, - Tk_ErrorProc * errorProc, - ClientData clientData); -#endif -#ifndef Tk_CreateEventHandler_TCL_DECLARED -#define Tk_CreateEventHandler_TCL_DECLARED -/* 36 */ -EXTERN void Tk_CreateEventHandler (Tk_Window token, - unsigned long mask, Tk_EventProc * proc, - ClientData clientData); -#endif -#ifndef Tk_CreateGenericHandler_TCL_DECLARED -#define Tk_CreateGenericHandler_TCL_DECLARED -/* 37 */ -EXTERN void Tk_CreateGenericHandler (Tk_GenericProc * proc, - ClientData clientData); -#endif -#ifndef Tk_CreateImageType_TCL_DECLARED -#define Tk_CreateImageType_TCL_DECLARED -/* 38 */ -EXTERN void Tk_CreateImageType (Tk_ImageType * typePtr); -#endif -#ifndef Tk_CreateItemType_TCL_DECLARED -#define Tk_CreateItemType_TCL_DECLARED -/* 39 */ -EXTERN void Tk_CreateItemType (Tk_ItemType * typePtr); -#endif -#ifndef Tk_CreatePhotoImageFormat_TCL_DECLARED -#define Tk_CreatePhotoImageFormat_TCL_DECLARED -/* 40 */ -EXTERN void Tk_CreatePhotoImageFormat ( - Tk_PhotoImageFormat * formatPtr); -#endif -#ifndef Tk_CreateSelHandler_TCL_DECLARED -#define Tk_CreateSelHandler_TCL_DECLARED -/* 41 */ -EXTERN void Tk_CreateSelHandler (Tk_Window tkwin, Atom selection, - Atom target, Tk_SelectionProc * proc, - ClientData clientData, Atom format); -#endif -#ifndef Tk_CreateWindow_TCL_DECLARED -#define Tk_CreateWindow_TCL_DECLARED -/* 42 */ -EXTERN Tk_Window Tk_CreateWindow (Tcl_Interp * interp, - Tk_Window parent, CONST char * name, - CONST char * screenName); -#endif -#ifndef Tk_CreateWindowFromPath_TCL_DECLARED -#define Tk_CreateWindowFromPath_TCL_DECLARED -/* 43 */ -EXTERN Tk_Window Tk_CreateWindowFromPath (Tcl_Interp * interp, - Tk_Window tkwin, CONST char * pathName, - CONST char * screenName); -#endif -#ifndef Tk_DefineBitmap_TCL_DECLARED -#define Tk_DefineBitmap_TCL_DECLARED -/* 44 */ -EXTERN int Tk_DefineBitmap (Tcl_Interp * interp, - CONST char * name, CONST char * source, - int width, int height); -#endif -#ifndef Tk_DefineCursor_TCL_DECLARED -#define Tk_DefineCursor_TCL_DECLARED -/* 45 */ -EXTERN void Tk_DefineCursor (Tk_Window window, Tk_Cursor cursor); -#endif -#ifndef Tk_DeleteAllBindings_TCL_DECLARED -#define Tk_DeleteAllBindings_TCL_DECLARED -/* 46 */ -EXTERN void Tk_DeleteAllBindings (Tk_BindingTable bindingTable, - ClientData object); -#endif -#ifndef Tk_DeleteBinding_TCL_DECLARED -#define Tk_DeleteBinding_TCL_DECLARED -/* 47 */ -EXTERN int Tk_DeleteBinding (Tcl_Interp * interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char * eventStr); -#endif -#ifndef Tk_DeleteBindingTable_TCL_DECLARED -#define Tk_DeleteBindingTable_TCL_DECLARED -/* 48 */ -EXTERN void Tk_DeleteBindingTable (Tk_BindingTable bindingTable); -#endif -#ifndef Tk_DeleteErrorHandler_TCL_DECLARED -#define Tk_DeleteErrorHandler_TCL_DECLARED -/* 49 */ -EXTERN void Tk_DeleteErrorHandler (Tk_ErrorHandler handler); -#endif -#ifndef Tk_DeleteEventHandler_TCL_DECLARED -#define Tk_DeleteEventHandler_TCL_DECLARED -/* 50 */ -EXTERN void Tk_DeleteEventHandler (Tk_Window token, - unsigned long mask, Tk_EventProc * proc, - ClientData clientData); -#endif -#ifndef Tk_DeleteGenericHandler_TCL_DECLARED -#define Tk_DeleteGenericHandler_TCL_DECLARED -/* 51 */ -EXTERN void Tk_DeleteGenericHandler (Tk_GenericProc * proc, - ClientData clientData); -#endif -#ifndef Tk_DeleteImage_TCL_DECLARED -#define Tk_DeleteImage_TCL_DECLARED -/* 52 */ -EXTERN void Tk_DeleteImage (Tcl_Interp * interp, - CONST char * name); -#endif -#ifndef Tk_DeleteSelHandler_TCL_DECLARED -#define Tk_DeleteSelHandler_TCL_DECLARED -/* 53 */ -EXTERN void Tk_DeleteSelHandler (Tk_Window tkwin, Atom selection, - Atom target); -#endif -#ifndef Tk_DestroyWindow_TCL_DECLARED -#define Tk_DestroyWindow_TCL_DECLARED -/* 54 */ -EXTERN void Tk_DestroyWindow (Tk_Window tkwin); -#endif -#ifndef Tk_DisplayName_TCL_DECLARED -#define Tk_DisplayName_TCL_DECLARED -/* 55 */ -EXTERN CONST84_RETURN char * Tk_DisplayName (Tk_Window tkwin); -#endif -#ifndef Tk_DistanceToTextLayout_TCL_DECLARED -#define Tk_DistanceToTextLayout_TCL_DECLARED -/* 56 */ -EXTERN int Tk_DistanceToTextLayout (Tk_TextLayout layout, int x, - int y); -#endif -#ifndef Tk_Draw3DPolygon_TCL_DECLARED -#define Tk_Draw3DPolygon_TCL_DECLARED -/* 57 */ -EXTERN void Tk_Draw3DPolygon (Tk_Window tkwin, Drawable drawable, - Tk_3DBorder border, XPoint * pointPtr, - int numPoints, int borderWidth, - int leftRelief); -#endif -#ifndef Tk_Draw3DRectangle_TCL_DECLARED -#define Tk_Draw3DRectangle_TCL_DECLARED -/* 58 */ -EXTERN void Tk_Draw3DRectangle (Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief); -#endif -#ifndef Tk_DrawChars_TCL_DECLARED -#define Tk_DrawChars_TCL_DECLARED -/* 59 */ -EXTERN void Tk_DrawChars (Display * display, Drawable drawable, - GC gc, Tk_Font tkfont, CONST char * source, - int numBytes, int x, int y); -#endif -#ifndef Tk_DrawFocusHighlight_TCL_DECLARED -#define Tk_DrawFocusHighlight_TCL_DECLARED -/* 60 */ -EXTERN void Tk_DrawFocusHighlight (Tk_Window tkwin, GC gc, - int width, Drawable drawable); -#endif -#ifndef Tk_DrawTextLayout_TCL_DECLARED -#define Tk_DrawTextLayout_TCL_DECLARED -/* 61 */ -EXTERN void Tk_DrawTextLayout (Display * display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int firstChar, int lastChar); -#endif -#ifndef Tk_Fill3DPolygon_TCL_DECLARED -#define Tk_Fill3DPolygon_TCL_DECLARED -/* 62 */ -EXTERN void Tk_Fill3DPolygon (Tk_Window tkwin, Drawable drawable, - Tk_3DBorder border, XPoint * pointPtr, - int numPoints, int borderWidth, - int leftRelief); -#endif -#ifndef Tk_Fill3DRectangle_TCL_DECLARED -#define Tk_Fill3DRectangle_TCL_DECLARED -/* 63 */ -EXTERN void Tk_Fill3DRectangle (Tk_Window tkwin, - Drawable drawable, Tk_3DBorder border, int x, - int y, int width, int height, - int borderWidth, int relief); -#endif -#ifndef Tk_FindPhoto_TCL_DECLARED -#define Tk_FindPhoto_TCL_DECLARED -/* 64 */ -EXTERN Tk_PhotoHandle Tk_FindPhoto (Tcl_Interp * interp, - CONST char * imageName); -#endif -#ifndef Tk_FontId_TCL_DECLARED -#define Tk_FontId_TCL_DECLARED -/* 65 */ -EXTERN Font Tk_FontId (Tk_Font font); -#endif -#ifndef Tk_Free3DBorder_TCL_DECLARED -#define Tk_Free3DBorder_TCL_DECLARED -/* 66 */ -EXTERN void Tk_Free3DBorder (Tk_3DBorder border); -#endif -#ifndef Tk_FreeBitmap_TCL_DECLARED -#define Tk_FreeBitmap_TCL_DECLARED -/* 67 */ -EXTERN void Tk_FreeBitmap (Display * display, Pixmap bitmap); -#endif -#ifndef Tk_FreeColor_TCL_DECLARED -#define Tk_FreeColor_TCL_DECLARED -/* 68 */ -EXTERN void Tk_FreeColor (XColor * colorPtr); -#endif -#ifndef Tk_FreeColormap_TCL_DECLARED -#define Tk_FreeColormap_TCL_DECLARED -/* 69 */ -EXTERN void Tk_FreeColormap (Display * display, - Colormap colormap); -#endif -#ifndef Tk_FreeCursor_TCL_DECLARED -#define Tk_FreeCursor_TCL_DECLARED -/* 70 */ -EXTERN void Tk_FreeCursor (Display * display, Tk_Cursor cursor); -#endif -#ifndef Tk_FreeFont_TCL_DECLARED -#define Tk_FreeFont_TCL_DECLARED -/* 71 */ -EXTERN void Tk_FreeFont (Tk_Font f); -#endif -#ifndef Tk_FreeGC_TCL_DECLARED -#define Tk_FreeGC_TCL_DECLARED -/* 72 */ -EXTERN void Tk_FreeGC (Display * display, GC gc); -#endif -#ifndef Tk_FreeImage_TCL_DECLARED -#define Tk_FreeImage_TCL_DECLARED -/* 73 */ -EXTERN void Tk_FreeImage (Tk_Image image); -#endif -#ifndef Tk_FreeOptions_TCL_DECLARED -#define Tk_FreeOptions_TCL_DECLARED -/* 74 */ -EXTERN void Tk_FreeOptions (Tk_ConfigSpec * specs, - char * widgRec, Display * display, - int needFlags); -#endif -#ifndef Tk_FreePixmap_TCL_DECLARED -#define Tk_FreePixmap_TCL_DECLARED -/* 75 */ -EXTERN void Tk_FreePixmap (Display * display, Pixmap pixmap); -#endif -#ifndef Tk_FreeTextLayout_TCL_DECLARED -#define Tk_FreeTextLayout_TCL_DECLARED -/* 76 */ -EXTERN void Tk_FreeTextLayout (Tk_TextLayout textLayout); -#endif -#ifndef Tk_FreeXId_TCL_DECLARED -#define Tk_FreeXId_TCL_DECLARED -/* 77 */ -EXTERN void Tk_FreeXId (Display * display, XID xid); -#endif -#ifndef Tk_GCForColor_TCL_DECLARED -#define Tk_GCForColor_TCL_DECLARED -/* 78 */ -EXTERN GC Tk_GCForColor (XColor * colorPtr, Drawable drawable); -#endif -#ifndef Tk_GeometryRequest_TCL_DECLARED -#define Tk_GeometryRequest_TCL_DECLARED -/* 79 */ -EXTERN void Tk_GeometryRequest (Tk_Window tkwin, int reqWidth, - int reqHeight); -#endif -#ifndef Tk_Get3DBorder_TCL_DECLARED -#define Tk_Get3DBorder_TCL_DECLARED -/* 80 */ -EXTERN Tk_3DBorder Tk_Get3DBorder (Tcl_Interp * interp, Tk_Window tkwin, - Tk_Uid colorName); -#endif -#ifndef Tk_GetAllBindings_TCL_DECLARED -#define Tk_GetAllBindings_TCL_DECLARED -/* 81 */ -EXTERN void Tk_GetAllBindings (Tcl_Interp * interp, - Tk_BindingTable bindingTable, - ClientData object); -#endif -#ifndef Tk_GetAnchor_TCL_DECLARED -#define Tk_GetAnchor_TCL_DECLARED -/* 82 */ -EXTERN int Tk_GetAnchor (Tcl_Interp * interp, CONST char * str, - Tk_Anchor * anchorPtr); -#endif -#ifndef Tk_GetAtomName_TCL_DECLARED -#define Tk_GetAtomName_TCL_DECLARED -/* 83 */ -EXTERN CONST84_RETURN char * Tk_GetAtomName (Tk_Window tkwin, Atom atom); -#endif -#ifndef Tk_GetBinding_TCL_DECLARED -#define Tk_GetBinding_TCL_DECLARED -/* 84 */ -EXTERN CONST84_RETURN char * Tk_GetBinding (Tcl_Interp * interp, - Tk_BindingTable bindingTable, - ClientData object, CONST char * eventStr); -#endif -#ifndef Tk_GetBitmap_TCL_DECLARED -#define Tk_GetBitmap_TCL_DECLARED -/* 85 */ -EXTERN Pixmap Tk_GetBitmap (Tcl_Interp * interp, Tk_Window tkwin, - CONST char * str); -#endif -#ifndef Tk_GetBitmapFromData_TCL_DECLARED -#define Tk_GetBitmapFromData_TCL_DECLARED -/* 86 */ -EXTERN Pixmap Tk_GetBitmapFromData (Tcl_Interp * interp, - Tk_Window tkwin, CONST char * source, - int width, int height); -#endif -#ifndef Tk_GetCapStyle_TCL_DECLARED -#define Tk_GetCapStyle_TCL_DECLARED -/* 87 */ -EXTERN int Tk_GetCapStyle (Tcl_Interp * interp, - CONST char * str, int * capPtr); -#endif -#ifndef Tk_GetColor_TCL_DECLARED -#define Tk_GetColor_TCL_DECLARED -/* 88 */ -EXTERN XColor * Tk_GetColor (Tcl_Interp * interp, Tk_Window tkwin, - Tk_Uid name); -#endif -#ifndef Tk_GetColorByValue_TCL_DECLARED -#define Tk_GetColorByValue_TCL_DECLARED -/* 89 */ -EXTERN XColor * Tk_GetColorByValue (Tk_Window tkwin, - XColor * colorPtr); -#endif -#ifndef Tk_GetColormap_TCL_DECLARED -#define Tk_GetColormap_TCL_DECLARED -/* 90 */ -EXTERN Colormap Tk_GetColormap (Tcl_Interp * interp, Tk_Window tkwin, - CONST char * str); -#endif -#ifndef Tk_GetCursor_TCL_DECLARED -#define Tk_GetCursor_TCL_DECLARED -/* 91 */ -EXTERN Tk_Cursor Tk_GetCursor (Tcl_Interp * interp, Tk_Window tkwin, - Tk_Uid str); -#endif -#ifndef Tk_GetCursorFromData_TCL_DECLARED -#define Tk_GetCursorFromData_TCL_DECLARED -/* 92 */ -EXTERN Tk_Cursor Tk_GetCursorFromData (Tcl_Interp * interp, - Tk_Window tkwin, CONST char * source, - CONST char * mask, int width, int height, - int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); -#endif -#ifndef Tk_GetFont_TCL_DECLARED -#define Tk_GetFont_TCL_DECLARED -/* 93 */ -EXTERN Tk_Font Tk_GetFont (Tcl_Interp * interp, Tk_Window tkwin, - CONST char * str); -#endif -#ifndef Tk_GetFontFromObj_TCL_DECLARED -#define Tk_GetFontFromObj_TCL_DECLARED -/* 94 */ -EXTERN Tk_Font Tk_GetFontFromObj (Tk_Window tkwin, Tcl_Obj * objPtr); -#endif -#ifndef Tk_GetFontMetrics_TCL_DECLARED -#define Tk_GetFontMetrics_TCL_DECLARED -/* 95 */ -EXTERN void Tk_GetFontMetrics (Tk_Font font, - Tk_FontMetrics * fmPtr); -#endif -#ifndef Tk_GetGC_TCL_DECLARED -#define Tk_GetGC_TCL_DECLARED -/* 96 */ -EXTERN GC Tk_GetGC (Tk_Window tkwin, unsigned long valueMask, - XGCValues * valuePtr); -#endif -#ifndef Tk_GetImage_TCL_DECLARED -#define Tk_GetImage_TCL_DECLARED -/* 97 */ -EXTERN Tk_Image Tk_GetImage (Tcl_Interp * interp, Tk_Window tkwin, - CONST char * name, - Tk_ImageChangedProc * changeProc, - ClientData clientData); -#endif -#ifndef Tk_GetImageMasterData_TCL_DECLARED -#define Tk_GetImageMasterData_TCL_DECLARED -/* 98 */ -EXTERN ClientData Tk_GetImageMasterData (Tcl_Interp * interp, - CONST char * name, - Tk_ImageType ** typePtrPtr); -#endif -#ifndef Tk_GetItemTypes_TCL_DECLARED -#define Tk_GetItemTypes_TCL_DECLARED -/* 99 */ -EXTERN Tk_ItemType * Tk_GetItemTypes (void); -#endif -#ifndef Tk_GetJoinStyle_TCL_DECLARED -#define Tk_GetJoinStyle_TCL_DECLARED -/* 100 */ -EXTERN int Tk_GetJoinStyle (Tcl_Interp * interp, - CONST char * str, int * joinPtr); -#endif -#ifndef Tk_GetJustify_TCL_DECLARED -#define Tk_GetJustify_TCL_DECLARED -/* 101 */ -EXTERN int Tk_GetJustify (Tcl_Interp * interp, CONST char * str, - Tk_Justify * justifyPtr); -#endif -#ifndef Tk_GetNumMainWindows_TCL_DECLARED -#define Tk_GetNumMainWindows_TCL_DECLARED -/* 102 */ -EXTERN int Tk_GetNumMainWindows (void); -#endif -#ifndef Tk_GetOption_TCL_DECLARED -#define Tk_GetOption_TCL_DECLARED -/* 103 */ -EXTERN Tk_Uid Tk_GetOption (Tk_Window tkwin, CONST char * name, - CONST char * className); -#endif -#ifndef Tk_GetPixels_TCL_DECLARED -#define Tk_GetPixels_TCL_DECLARED -/* 104 */ -EXTERN int Tk_GetPixels (Tcl_Interp * interp, Tk_Window tkwin, - CONST char * str, int * intPtr); -#endif -#ifndef Tk_GetPixmap_TCL_DECLARED -#define Tk_GetPixmap_TCL_DECLARED -/* 105 */ -EXTERN Pixmap Tk_GetPixmap (Display * display, Drawable d, - int width, int height, int depth); -#endif -#ifndef Tk_GetRelief_TCL_DECLARED -#define Tk_GetRelief_TCL_DECLARED -/* 106 */ -EXTERN int Tk_GetRelief (Tcl_Interp * interp, CONST char * name, - int * reliefPtr); -#endif -#ifndef Tk_GetRootCoords_TCL_DECLARED -#define Tk_GetRootCoords_TCL_DECLARED -/* 107 */ -EXTERN void Tk_GetRootCoords (Tk_Window tkwin, int * xPtr, - int * yPtr); -#endif -#ifndef Tk_GetScrollInfo_TCL_DECLARED -#define Tk_GetScrollInfo_TCL_DECLARED -/* 108 */ -EXTERN int Tk_GetScrollInfo (Tcl_Interp * interp, int argc, - CONST84 char ** argv, double * dblPtr, - int * intPtr); -#endif -#ifndef Tk_GetScreenMM_TCL_DECLARED -#define Tk_GetScreenMM_TCL_DECLARED -/* 109 */ -EXTERN int Tk_GetScreenMM (Tcl_Interp * interp, Tk_Window tkwin, - CONST char * str, double * doublePtr); -#endif -#ifndef Tk_GetSelection_TCL_DECLARED -#define Tk_GetSelection_TCL_DECLARED -/* 110 */ -EXTERN int Tk_GetSelection (Tcl_Interp * interp, - Tk_Window tkwin, Atom selection, Atom target, - Tk_GetSelProc * proc, ClientData clientData); -#endif -#ifndef Tk_GetUid_TCL_DECLARED -#define Tk_GetUid_TCL_DECLARED -/* 111 */ -EXTERN Tk_Uid Tk_GetUid (CONST char * str); -#endif -#ifndef Tk_GetVisual_TCL_DECLARED -#define Tk_GetVisual_TCL_DECLARED -/* 112 */ -EXTERN Visual * Tk_GetVisual (Tcl_Interp * interp, Tk_Window tkwin, - CONST char * str, int * depthPtr, - Colormap * colormapPtr); -#endif -#ifndef Tk_GetVRootGeometry_TCL_DECLARED -#define Tk_GetVRootGeometry_TCL_DECLARED -/* 113 */ -EXTERN void Tk_GetVRootGeometry (Tk_Window tkwin, int * xPtr, - int * yPtr, int * widthPtr, int * heightPtr); -#endif -#ifndef Tk_Grab_TCL_DECLARED -#define Tk_Grab_TCL_DECLARED -/* 114 */ -EXTERN int Tk_Grab (Tcl_Interp * interp, Tk_Window tkwin, - int grabGlobal); -#endif -#ifndef Tk_HandleEvent_TCL_DECLARED -#define Tk_HandleEvent_TCL_DECLARED -/* 115 */ -EXTERN void Tk_HandleEvent (XEvent * eventPtr); -#endif -#ifndef Tk_IdToWindow_TCL_DECLARED -#define Tk_IdToWindow_TCL_DECLARED -/* 116 */ -EXTERN Tk_Window Tk_IdToWindow (Display * display, Window window); -#endif -#ifndef Tk_ImageChanged_TCL_DECLARED -#define Tk_ImageChanged_TCL_DECLARED -/* 117 */ -EXTERN void Tk_ImageChanged (Tk_ImageMaster master, int x, int y, - int width, int height, int imageWidth, - int imageHeight); -#endif -#ifndef Tk_Init_TCL_DECLARED -#define Tk_Init_TCL_DECLARED -/* 118 */ -EXTERN int Tk_Init (Tcl_Interp * interp); -#endif -#ifndef Tk_InternAtom_TCL_DECLARED -#define Tk_InternAtom_TCL_DECLARED -/* 119 */ -EXTERN Atom Tk_InternAtom (Tk_Window tkwin, CONST char * name); -#endif -#ifndef Tk_IntersectTextLayout_TCL_DECLARED -#define Tk_IntersectTextLayout_TCL_DECLARED -/* 120 */ -EXTERN int Tk_IntersectTextLayout (Tk_TextLayout layout, int x, - int y, int width, int height); -#endif -#ifndef Tk_MaintainGeometry_TCL_DECLARED -#define Tk_MaintainGeometry_TCL_DECLARED -/* 121 */ -EXTERN void Tk_MaintainGeometry (Tk_Window slave, - Tk_Window master, int x, int y, int width, - int height); -#endif -#ifndef Tk_MainWindow_TCL_DECLARED -#define Tk_MainWindow_TCL_DECLARED -/* 122 */ -EXTERN Tk_Window Tk_MainWindow (Tcl_Interp * interp); -#endif -#ifndef Tk_MakeWindowExist_TCL_DECLARED -#define Tk_MakeWindowExist_TCL_DECLARED -/* 123 */ -EXTERN void Tk_MakeWindowExist (Tk_Window tkwin); -#endif -#ifndef Tk_ManageGeometry_TCL_DECLARED -#define Tk_ManageGeometry_TCL_DECLARED -/* 124 */ -EXTERN void Tk_ManageGeometry (Tk_Window tkwin, - CONST Tk_GeomMgr * mgrPtr, - ClientData clientData); -#endif -#ifndef Tk_MapWindow_TCL_DECLARED -#define Tk_MapWindow_TCL_DECLARED -/* 125 */ -EXTERN void Tk_MapWindow (Tk_Window tkwin); -#endif -#ifndef Tk_MeasureChars_TCL_DECLARED -#define Tk_MeasureChars_TCL_DECLARED -/* 126 */ -EXTERN int Tk_MeasureChars (Tk_Font tkfont, CONST char * source, - int numBytes, int maxPixels, int flags, - int * lengthPtr); -#endif -#ifndef Tk_MoveResizeWindow_TCL_DECLARED -#define Tk_MoveResizeWindow_TCL_DECLARED -/* 127 */ -EXTERN void Tk_MoveResizeWindow (Tk_Window tkwin, int x, int y, - int width, int height); -#endif -#ifndef Tk_MoveWindow_TCL_DECLARED -#define Tk_MoveWindow_TCL_DECLARED -/* 128 */ -EXTERN void Tk_MoveWindow (Tk_Window tkwin, int x, int y); -#endif -#ifndef Tk_MoveToplevelWindow_TCL_DECLARED -#define Tk_MoveToplevelWindow_TCL_DECLARED -/* 129 */ -EXTERN void Tk_MoveToplevelWindow (Tk_Window tkwin, int x, int y); -#endif -#ifndef Tk_NameOf3DBorder_TCL_DECLARED -#define Tk_NameOf3DBorder_TCL_DECLARED -/* 130 */ -EXTERN CONST84_RETURN char * Tk_NameOf3DBorder (Tk_3DBorder border); -#endif -#ifndef Tk_NameOfAnchor_TCL_DECLARED -#define Tk_NameOfAnchor_TCL_DECLARED -/* 131 */ -EXTERN CONST84_RETURN char * Tk_NameOfAnchor (Tk_Anchor anchor); -#endif -#ifndef Tk_NameOfBitmap_TCL_DECLARED -#define Tk_NameOfBitmap_TCL_DECLARED -/* 132 */ -EXTERN CONST84_RETURN char * Tk_NameOfBitmap (Display * display, - Pixmap bitmap); -#endif -#ifndef Tk_NameOfCapStyle_TCL_DECLARED -#define Tk_NameOfCapStyle_TCL_DECLARED -/* 133 */ -EXTERN CONST84_RETURN char * Tk_NameOfCapStyle (int cap); -#endif -#ifndef Tk_NameOfColor_TCL_DECLARED -#define Tk_NameOfColor_TCL_DECLARED -/* 134 */ -EXTERN CONST84_RETURN char * Tk_NameOfColor (XColor * colorPtr); -#endif -#ifndef Tk_NameOfCursor_TCL_DECLARED -#define Tk_NameOfCursor_TCL_DECLARED -/* 135 */ -EXTERN CONST84_RETURN char * Tk_NameOfCursor (Display * display, - Tk_Cursor cursor); -#endif -#ifndef Tk_NameOfFont_TCL_DECLARED -#define Tk_NameOfFont_TCL_DECLARED -/* 136 */ -EXTERN CONST84_RETURN char * Tk_NameOfFont (Tk_Font font); -#endif -#ifndef Tk_NameOfImage_TCL_DECLARED -#define Tk_NameOfImage_TCL_DECLARED -/* 137 */ -EXTERN CONST84_RETURN char * Tk_NameOfImage (Tk_ImageMaster imageMaster); -#endif -#ifndef Tk_NameOfJoinStyle_TCL_DECLARED -#define Tk_NameOfJoinStyle_TCL_DECLARED -/* 138 */ -EXTERN CONST84_RETURN char * Tk_NameOfJoinStyle (int join); -#endif -#ifndef Tk_NameOfJustify_TCL_DECLARED -#define Tk_NameOfJustify_TCL_DECLARED -/* 139 */ -EXTERN CONST84_RETURN char * Tk_NameOfJustify (Tk_Justify justify); -#endif -#ifndef Tk_NameOfRelief_TCL_DECLARED -#define Tk_NameOfRelief_TCL_DECLARED -/* 140 */ -EXTERN CONST84_RETURN char * Tk_NameOfRelief (int relief); -#endif -#ifndef Tk_NameToWindow_TCL_DECLARED -#define Tk_NameToWindow_TCL_DECLARED -/* 141 */ -EXTERN Tk_Window Tk_NameToWindow (Tcl_Interp * interp, - CONST char * pathName, Tk_Window tkwin); -#endif -#ifndef Tk_OwnSelection_TCL_DECLARED -#define Tk_OwnSelection_TCL_DECLARED -/* 142 */ -EXTERN void Tk_OwnSelection (Tk_Window tkwin, Atom selection, - Tk_LostSelProc * proc, ClientData clientData); -#endif -#ifndef Tk_ParseArgv_TCL_DECLARED -#define Tk_ParseArgv_TCL_DECLARED -/* 143 */ -EXTERN int Tk_ParseArgv (Tcl_Interp * interp, Tk_Window tkwin, - int * argcPtr, CONST84 char ** argv, - Tk_ArgvInfo * argTable, int flags); -#endif -#ifndef Tk_PhotoPutBlock_NoComposite_TCL_DECLARED -#define Tk_PhotoPutBlock_NoComposite_TCL_DECLARED -/* 144 */ -EXTERN void Tk_PhotoPutBlock_NoComposite (Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height); -#endif -#ifndef Tk_PhotoPutZoomedBlock_NoComposite_TCL_DECLARED -#define Tk_PhotoPutZoomedBlock_NoComposite_TCL_DECLARED -/* 145 */ -EXTERN void Tk_PhotoPutZoomedBlock_NoComposite ( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY); -#endif -#ifndef Tk_PhotoGetImage_TCL_DECLARED -#define Tk_PhotoGetImage_TCL_DECLARED -/* 146 */ -EXTERN int Tk_PhotoGetImage (Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr); -#endif -#ifndef Tk_PhotoBlank_TCL_DECLARED -#define Tk_PhotoBlank_TCL_DECLARED -/* 147 */ -EXTERN void Tk_PhotoBlank (Tk_PhotoHandle handle); -#endif -#ifndef Tk_PhotoExpand_Panic_TCL_DECLARED -#define Tk_PhotoExpand_Panic_TCL_DECLARED -/* 148 */ -EXTERN void Tk_PhotoExpand_Panic (Tk_PhotoHandle handle, - int width, int height); -#endif -#ifndef Tk_PhotoGetSize_TCL_DECLARED -#define Tk_PhotoGetSize_TCL_DECLARED -/* 149 */ -EXTERN void Tk_PhotoGetSize (Tk_PhotoHandle handle, - int * widthPtr, int * heightPtr); -#endif -#ifndef Tk_PhotoSetSize_Panic_TCL_DECLARED -#define Tk_PhotoSetSize_Panic_TCL_DECLARED -/* 150 */ -EXTERN void Tk_PhotoSetSize_Panic (Tk_PhotoHandle handle, - int width, int height); -#endif -#ifndef Tk_PointToChar_TCL_DECLARED -#define Tk_PointToChar_TCL_DECLARED -/* 151 */ -EXTERN int Tk_PointToChar (Tk_TextLayout layout, int x, int y); -#endif -#ifndef Tk_PostscriptFontName_TCL_DECLARED -#define Tk_PostscriptFontName_TCL_DECLARED -/* 152 */ -EXTERN int Tk_PostscriptFontName (Tk_Font tkfont, - Tcl_DString * dsPtr); -#endif -#ifndef Tk_PreserveColormap_TCL_DECLARED -#define Tk_PreserveColormap_TCL_DECLARED -/* 153 */ -EXTERN void Tk_PreserveColormap (Display * display, - Colormap colormap); -#endif -#ifndef Tk_QueueWindowEvent_TCL_DECLARED -#define Tk_QueueWindowEvent_TCL_DECLARED -/* 154 */ -EXTERN void Tk_QueueWindowEvent (XEvent * eventPtr, - Tcl_QueuePosition position); -#endif -#ifndef Tk_RedrawImage_TCL_DECLARED -#define Tk_RedrawImage_TCL_DECLARED -/* 155 */ -EXTERN void Tk_RedrawImage (Tk_Image image, int imageX, - int imageY, int width, int height, - Drawable drawable, int drawableX, - int drawableY); -#endif -#ifndef Tk_ResizeWindow_TCL_DECLARED -#define Tk_ResizeWindow_TCL_DECLARED -/* 156 */ -EXTERN void Tk_ResizeWindow (Tk_Window tkwin, int width, - int height); -#endif -#ifndef Tk_RestackWindow_TCL_DECLARED -#define Tk_RestackWindow_TCL_DECLARED -/* 157 */ -EXTERN int Tk_RestackWindow (Tk_Window tkwin, int aboveBelow, - Tk_Window other); -#endif -#ifndef Tk_RestrictEvents_TCL_DECLARED -#define Tk_RestrictEvents_TCL_DECLARED -/* 158 */ -EXTERN Tk_RestrictProc * Tk_RestrictEvents (Tk_RestrictProc * proc, - ClientData arg, ClientData * prevArgPtr); -#endif -#ifndef Tk_SafeInit_TCL_DECLARED -#define Tk_SafeInit_TCL_DECLARED -/* 159 */ -EXTERN int Tk_SafeInit (Tcl_Interp * interp); -#endif -#ifndef Tk_SetAppName_TCL_DECLARED -#define Tk_SetAppName_TCL_DECLARED -/* 160 */ -EXTERN CONST char * Tk_SetAppName (Tk_Window tkwin, CONST char * name); -#endif -#ifndef Tk_SetBackgroundFromBorder_TCL_DECLARED -#define Tk_SetBackgroundFromBorder_TCL_DECLARED -/* 161 */ -EXTERN void Tk_SetBackgroundFromBorder (Tk_Window tkwin, - Tk_3DBorder border); -#endif -#ifndef Tk_SetClass_TCL_DECLARED -#define Tk_SetClass_TCL_DECLARED -/* 162 */ -EXTERN void Tk_SetClass (Tk_Window tkwin, CONST char * className); -#endif -#ifndef Tk_SetGrid_TCL_DECLARED -#define Tk_SetGrid_TCL_DECLARED -/* 163 */ -EXTERN void Tk_SetGrid (Tk_Window tkwin, int reqWidth, - int reqHeight, int gridWidth, int gridHeight); -#endif -#ifndef Tk_SetInternalBorder_TCL_DECLARED -#define Tk_SetInternalBorder_TCL_DECLARED -/* 164 */ -EXTERN void Tk_SetInternalBorder (Tk_Window tkwin, int width); -#endif -#ifndef Tk_SetWindowBackground_TCL_DECLARED -#define Tk_SetWindowBackground_TCL_DECLARED -/* 165 */ -EXTERN void Tk_SetWindowBackground (Tk_Window tkwin, - unsigned long pixel); -#endif -#ifndef Tk_SetWindowBackgroundPixmap_TCL_DECLARED -#define Tk_SetWindowBackgroundPixmap_TCL_DECLARED -/* 166 */ -EXTERN void Tk_SetWindowBackgroundPixmap (Tk_Window tkwin, - Pixmap pixmap); -#endif -#ifndef Tk_SetWindowBorder_TCL_DECLARED -#define Tk_SetWindowBorder_TCL_DECLARED -/* 167 */ -EXTERN void Tk_SetWindowBorder (Tk_Window tkwin, - unsigned long pixel); -#endif -#ifndef Tk_SetWindowBorderWidth_TCL_DECLARED -#define Tk_SetWindowBorderWidth_TCL_DECLARED -/* 168 */ -EXTERN void Tk_SetWindowBorderWidth (Tk_Window tkwin, int width); -#endif -#ifndef Tk_SetWindowBorderPixmap_TCL_DECLARED -#define Tk_SetWindowBorderPixmap_TCL_DECLARED -/* 169 */ -EXTERN void Tk_SetWindowBorderPixmap (Tk_Window tkwin, - Pixmap pixmap); -#endif -#ifndef Tk_SetWindowColormap_TCL_DECLARED -#define Tk_SetWindowColormap_TCL_DECLARED -/* 170 */ -EXTERN void Tk_SetWindowColormap (Tk_Window tkwin, - Colormap colormap); -#endif -#ifndef Tk_SetWindowVisual_TCL_DECLARED -#define Tk_SetWindowVisual_TCL_DECLARED -/* 171 */ -EXTERN int Tk_SetWindowVisual (Tk_Window tkwin, Visual * visual, - int depth, Colormap colormap); -#endif -#ifndef Tk_SizeOfBitmap_TCL_DECLARED -#define Tk_SizeOfBitmap_TCL_DECLARED -/* 172 */ -EXTERN void Tk_SizeOfBitmap (Display * display, Pixmap bitmap, - int * widthPtr, int * heightPtr); -#endif -#ifndef Tk_SizeOfImage_TCL_DECLARED -#define Tk_SizeOfImage_TCL_DECLARED -/* 173 */ -EXTERN void Tk_SizeOfImage (Tk_Image image, int * widthPtr, - int * heightPtr); -#endif -#ifndef Tk_StrictMotif_TCL_DECLARED -#define Tk_StrictMotif_TCL_DECLARED -/* 174 */ -EXTERN int Tk_StrictMotif (Tk_Window tkwin); -#endif -#ifndef Tk_TextLayoutToPostscript_TCL_DECLARED -#define Tk_TextLayoutToPostscript_TCL_DECLARED -/* 175 */ -EXTERN void Tk_TextLayoutToPostscript (Tcl_Interp * interp, - Tk_TextLayout layout); -#endif -#ifndef Tk_TextWidth_TCL_DECLARED -#define Tk_TextWidth_TCL_DECLARED -/* 176 */ -EXTERN int Tk_TextWidth (Tk_Font font, CONST char * str, - int numBytes); -#endif -#ifndef Tk_UndefineCursor_TCL_DECLARED -#define Tk_UndefineCursor_TCL_DECLARED -/* 177 */ -EXTERN void Tk_UndefineCursor (Tk_Window window); -#endif -#ifndef Tk_UnderlineChars_TCL_DECLARED -#define Tk_UnderlineChars_TCL_DECLARED -/* 178 */ -EXTERN void Tk_UnderlineChars (Display * display, - Drawable drawable, GC gc, Tk_Font tkfont, - CONST char * source, int x, int y, - int firstByte, int lastByte); -#endif -#ifndef Tk_UnderlineTextLayout_TCL_DECLARED -#define Tk_UnderlineTextLayout_TCL_DECLARED -/* 179 */ -EXTERN void Tk_UnderlineTextLayout (Display * display, - Drawable drawable, GC gc, - Tk_TextLayout layout, int x, int y, - int underline); -#endif -#ifndef Tk_Ungrab_TCL_DECLARED -#define Tk_Ungrab_TCL_DECLARED -/* 180 */ -EXTERN void Tk_Ungrab (Tk_Window tkwin); -#endif -#ifndef Tk_UnmaintainGeometry_TCL_DECLARED -#define Tk_UnmaintainGeometry_TCL_DECLARED -/* 181 */ -EXTERN void Tk_UnmaintainGeometry (Tk_Window slave, - Tk_Window master); -#endif -#ifndef Tk_UnmapWindow_TCL_DECLARED -#define Tk_UnmapWindow_TCL_DECLARED -/* 182 */ -EXTERN void Tk_UnmapWindow (Tk_Window tkwin); -#endif -#ifndef Tk_UnsetGrid_TCL_DECLARED -#define Tk_UnsetGrid_TCL_DECLARED -/* 183 */ -EXTERN void Tk_UnsetGrid (Tk_Window tkwin); -#endif -#ifndef Tk_UpdatePointer_TCL_DECLARED -#define Tk_UpdatePointer_TCL_DECLARED -/* 184 */ -EXTERN void Tk_UpdatePointer (Tk_Window tkwin, int x, int y, - int state); -#endif -#ifndef Tk_AllocBitmapFromObj_TCL_DECLARED -#define Tk_AllocBitmapFromObj_TCL_DECLARED -/* 185 */ -EXTERN Pixmap Tk_AllocBitmapFromObj (Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr); -#endif -#ifndef Tk_Alloc3DBorderFromObj_TCL_DECLARED -#define Tk_Alloc3DBorderFromObj_TCL_DECLARED -/* 186 */ -EXTERN Tk_3DBorder Tk_Alloc3DBorderFromObj (Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr); -#endif -#ifndef Tk_AllocColorFromObj_TCL_DECLARED -#define Tk_AllocColorFromObj_TCL_DECLARED -/* 187 */ -EXTERN XColor * Tk_AllocColorFromObj (Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr); -#endif -#ifndef Tk_AllocCursorFromObj_TCL_DECLARED -#define Tk_AllocCursorFromObj_TCL_DECLARED -/* 188 */ -EXTERN Tk_Cursor Tk_AllocCursorFromObj (Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr); -#endif -#ifndef Tk_AllocFontFromObj_TCL_DECLARED -#define Tk_AllocFontFromObj_TCL_DECLARED -/* 189 */ -EXTERN Tk_Font Tk_AllocFontFromObj (Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr); -#endif -#ifndef Tk_CreateOptionTable_TCL_DECLARED -#define Tk_CreateOptionTable_TCL_DECLARED -/* 190 */ -EXTERN Tk_OptionTable Tk_CreateOptionTable (Tcl_Interp * interp, - CONST Tk_OptionSpec * templatePtr); -#endif -#ifndef Tk_DeleteOptionTable_TCL_DECLARED -#define Tk_DeleteOptionTable_TCL_DECLARED -/* 191 */ -EXTERN void Tk_DeleteOptionTable (Tk_OptionTable optionTable); -#endif -#ifndef Tk_Free3DBorderFromObj_TCL_DECLARED -#define Tk_Free3DBorderFromObj_TCL_DECLARED -/* 192 */ -EXTERN void Tk_Free3DBorderFromObj (Tk_Window tkwin, - Tcl_Obj * objPtr); -#endif -#ifndef Tk_FreeBitmapFromObj_TCL_DECLARED -#define Tk_FreeBitmapFromObj_TCL_DECLARED -/* 193 */ -EXTERN void Tk_FreeBitmapFromObj (Tk_Window tkwin, - Tcl_Obj * objPtr); -#endif -#ifndef Tk_FreeColorFromObj_TCL_DECLARED -#define Tk_FreeColorFromObj_TCL_DECLARED -/* 194 */ -EXTERN void Tk_FreeColorFromObj (Tk_Window tkwin, - Tcl_Obj * objPtr); -#endif -#ifndef Tk_FreeConfigOptions_TCL_DECLARED -#define Tk_FreeConfigOptions_TCL_DECLARED -/* 195 */ -EXTERN void Tk_FreeConfigOptions (char * recordPtr, - Tk_OptionTable optionToken, Tk_Window tkwin); -#endif -#ifndef Tk_FreeSavedOptions_TCL_DECLARED -#define Tk_FreeSavedOptions_TCL_DECLARED -/* 196 */ -EXTERN void Tk_FreeSavedOptions (Tk_SavedOptions * savePtr); -#endif -#ifndef Tk_FreeCursorFromObj_TCL_DECLARED -#define Tk_FreeCursorFromObj_TCL_DECLARED -/* 197 */ -EXTERN void Tk_FreeCursorFromObj (Tk_Window tkwin, - Tcl_Obj * objPtr); -#endif -#ifndef Tk_FreeFontFromObj_TCL_DECLARED -#define Tk_FreeFontFromObj_TCL_DECLARED -/* 198 */ -EXTERN void Tk_FreeFontFromObj (Tk_Window tkwin, - Tcl_Obj * objPtr); -#endif -#ifndef Tk_Get3DBorderFromObj_TCL_DECLARED -#define Tk_Get3DBorderFromObj_TCL_DECLARED -/* 199 */ -EXTERN Tk_3DBorder Tk_Get3DBorderFromObj (Tk_Window tkwin, - Tcl_Obj * objPtr); -#endif -#ifndef Tk_GetAnchorFromObj_TCL_DECLARED -#define Tk_GetAnchorFromObj_TCL_DECLARED -/* 200 */ -EXTERN int Tk_GetAnchorFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, Tk_Anchor * anchorPtr); -#endif -#ifndef Tk_GetBitmapFromObj_TCL_DECLARED -#define Tk_GetBitmapFromObj_TCL_DECLARED -/* 201 */ -EXTERN Pixmap Tk_GetBitmapFromObj (Tk_Window tkwin, - Tcl_Obj * objPtr); -#endif -#ifndef Tk_GetColorFromObj_TCL_DECLARED -#define Tk_GetColorFromObj_TCL_DECLARED -/* 202 */ -EXTERN XColor * Tk_GetColorFromObj (Tk_Window tkwin, - Tcl_Obj * objPtr); -#endif -#ifndef Tk_GetCursorFromObj_TCL_DECLARED -#define Tk_GetCursorFromObj_TCL_DECLARED -/* 203 */ -EXTERN Tk_Cursor Tk_GetCursorFromObj (Tk_Window tkwin, - Tcl_Obj * objPtr); -#endif -#ifndef Tk_GetOptionInfo_TCL_DECLARED -#define Tk_GetOptionInfo_TCL_DECLARED -/* 204 */ -EXTERN Tcl_Obj * Tk_GetOptionInfo (Tcl_Interp * interp, - char * recordPtr, Tk_OptionTable optionTable, - Tcl_Obj * namePtr, Tk_Window tkwin); -#endif -#ifndef Tk_GetOptionValue_TCL_DECLARED -#define Tk_GetOptionValue_TCL_DECLARED -/* 205 */ -EXTERN Tcl_Obj * Tk_GetOptionValue (Tcl_Interp * interp, - char * recordPtr, Tk_OptionTable optionTable, - Tcl_Obj * namePtr, Tk_Window tkwin); -#endif -#ifndef Tk_GetJustifyFromObj_TCL_DECLARED -#define Tk_GetJustifyFromObj_TCL_DECLARED -/* 206 */ -EXTERN int Tk_GetJustifyFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, Tk_Justify * justifyPtr); -#endif -#ifndef Tk_GetMMFromObj_TCL_DECLARED -#define Tk_GetMMFromObj_TCL_DECLARED -/* 207 */ -EXTERN int Tk_GetMMFromObj (Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr, - double * doublePtr); -#endif -#ifndef Tk_GetPixelsFromObj_TCL_DECLARED -#define Tk_GetPixelsFromObj_TCL_DECLARED -/* 208 */ -EXTERN int Tk_GetPixelsFromObj (Tcl_Interp * interp, - Tk_Window tkwin, Tcl_Obj * objPtr, - int * intPtr); -#endif -#ifndef Tk_GetReliefFromObj_TCL_DECLARED -#define Tk_GetReliefFromObj_TCL_DECLARED -/* 209 */ -EXTERN int Tk_GetReliefFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, int * resultPtr); -#endif -#ifndef Tk_GetScrollInfoObj_TCL_DECLARED -#define Tk_GetScrollInfoObj_TCL_DECLARED -/* 210 */ -EXTERN int Tk_GetScrollInfoObj (Tcl_Interp * interp, int objc, - Tcl_Obj *CONST objv[], double * dblPtr, - int * intPtr); -#endif -#ifndef Tk_InitOptions_TCL_DECLARED -#define Tk_InitOptions_TCL_DECLARED -/* 211 */ -EXTERN int Tk_InitOptions (Tcl_Interp * interp, - char * recordPtr, Tk_OptionTable optionToken, - Tk_Window tkwin); -#endif -#ifndef Tk_MainEx_TCL_DECLARED -#define Tk_MainEx_TCL_DECLARED -/* 212 */ -EXTERN void Tk_MainEx (int argc, char ** argv, - Tcl_AppInitProc * appInitProc, - Tcl_Interp * interp); -#endif -#ifndef Tk_RestoreSavedOptions_TCL_DECLARED -#define Tk_RestoreSavedOptions_TCL_DECLARED -/* 213 */ -EXTERN void Tk_RestoreSavedOptions (Tk_SavedOptions * savePtr); -#endif -#ifndef Tk_SetOptions_TCL_DECLARED -#define Tk_SetOptions_TCL_DECLARED -/* 214 */ -EXTERN int Tk_SetOptions (Tcl_Interp * interp, char * recordPtr, - Tk_OptionTable optionTable, int objc, - Tcl_Obj *CONST objv[], Tk_Window tkwin, - Tk_SavedOptions * savePtr, int * maskPtr); -#endif -#ifndef Tk_InitConsoleChannels_TCL_DECLARED -#define Tk_InitConsoleChannels_TCL_DECLARED -/* 215 */ -EXTERN void Tk_InitConsoleChannels (Tcl_Interp * interp); -#endif -#ifndef Tk_CreateConsoleWindow_TCL_DECLARED -#define Tk_CreateConsoleWindow_TCL_DECLARED -/* 216 */ -EXTERN int Tk_CreateConsoleWindow (Tcl_Interp * interp); -#endif -#ifndef Tk_CreateSmoothMethod_TCL_DECLARED -#define Tk_CreateSmoothMethod_TCL_DECLARED -/* 217 */ -EXTERN void Tk_CreateSmoothMethod (Tcl_Interp * interp, - Tk_SmoothMethod * method); -#endif -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -#ifndef Tk_GetDash_TCL_DECLARED -#define Tk_GetDash_TCL_DECLARED -/* 220 */ -EXTERN int Tk_GetDash (Tcl_Interp * interp, CONST char * value, - Tk_Dash * dash); -#endif -#ifndef Tk_CreateOutline_TCL_DECLARED -#define Tk_CreateOutline_TCL_DECLARED -/* 221 */ -EXTERN void Tk_CreateOutline (Tk_Outline * outline); -#endif -#ifndef Tk_DeleteOutline_TCL_DECLARED -#define Tk_DeleteOutline_TCL_DECLARED -/* 222 */ -EXTERN void Tk_DeleteOutline (Display * display, - Tk_Outline * outline); -#endif -#ifndef Tk_ConfigOutlineGC_TCL_DECLARED -#define Tk_ConfigOutlineGC_TCL_DECLARED -/* 223 */ -EXTERN int Tk_ConfigOutlineGC (XGCValues * gcValues, - Tk_Canvas canvas, Tk_Item * item, - Tk_Outline * outline); -#endif -#ifndef Tk_ChangeOutlineGC_TCL_DECLARED -#define Tk_ChangeOutlineGC_TCL_DECLARED -/* 224 */ -EXTERN int Tk_ChangeOutlineGC (Tk_Canvas canvas, Tk_Item * item, - Tk_Outline * outline); -#endif -#ifndef Tk_ResetOutlineGC_TCL_DECLARED -#define Tk_ResetOutlineGC_TCL_DECLARED -/* 225 */ -EXTERN int Tk_ResetOutlineGC (Tk_Canvas canvas, Tk_Item * item, - Tk_Outline * outline); -#endif -#ifndef Tk_CanvasPsOutline_TCL_DECLARED -#define Tk_CanvasPsOutline_TCL_DECLARED -/* 226 */ -EXTERN int Tk_CanvasPsOutline (Tk_Canvas canvas, Tk_Item * item, - Tk_Outline * outline); -#endif -#ifndef Tk_SetTSOrigin_TCL_DECLARED -#define Tk_SetTSOrigin_TCL_DECLARED -/* 227 */ -EXTERN void Tk_SetTSOrigin (Tk_Window tkwin, GC gc, int x, int y); -#endif -#ifndef Tk_CanvasGetCoordFromObj_TCL_DECLARED -#define Tk_CanvasGetCoordFromObj_TCL_DECLARED -/* 228 */ -EXTERN int Tk_CanvasGetCoordFromObj (Tcl_Interp * interp, - Tk_Canvas canvas, Tcl_Obj * obj, - double * doublePtr); -#endif -#ifndef Tk_CanvasSetOffset_TCL_DECLARED -#define Tk_CanvasSetOffset_TCL_DECLARED -/* 229 */ -EXTERN void Tk_CanvasSetOffset (Tk_Canvas canvas, GC gc, - Tk_TSOffset * offset); -#endif -#ifndef Tk_DitherPhoto_TCL_DECLARED -#define Tk_DitherPhoto_TCL_DECLARED -/* 230 */ -EXTERN void Tk_DitherPhoto (Tk_PhotoHandle handle, int x, int y, - int width, int height); -#endif -#ifndef Tk_PostscriptBitmap_TCL_DECLARED -#define Tk_PostscriptBitmap_TCL_DECLARED -/* 231 */ -EXTERN int Tk_PostscriptBitmap (Tcl_Interp * interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap, int startX, int startY, - int width, int height); -#endif -#ifndef Tk_PostscriptColor_TCL_DECLARED -#define Tk_PostscriptColor_TCL_DECLARED -/* 232 */ -EXTERN int Tk_PostscriptColor (Tcl_Interp * interp, - Tk_PostscriptInfo psInfo, XColor * colorPtr); -#endif -#ifndef Tk_PostscriptFont_TCL_DECLARED -#define Tk_PostscriptFont_TCL_DECLARED -/* 233 */ -EXTERN int Tk_PostscriptFont (Tcl_Interp * interp, - Tk_PostscriptInfo psInfo, Tk_Font font); -#endif -#ifndef Tk_PostscriptImage_TCL_DECLARED -#define Tk_PostscriptImage_TCL_DECLARED -/* 234 */ -EXTERN int Tk_PostscriptImage (Tk_Image image, - Tcl_Interp * interp, Tk_Window tkwin, - Tk_PostscriptInfo psinfo, int x, int y, - int width, int height, int prepass); -#endif -#ifndef Tk_PostscriptPath_TCL_DECLARED -#define Tk_PostscriptPath_TCL_DECLARED -/* 235 */ -EXTERN void Tk_PostscriptPath (Tcl_Interp * interp, - Tk_PostscriptInfo psInfo, double * coordPtr, - int numPoints); -#endif -#ifndef Tk_PostscriptStipple_TCL_DECLARED -#define Tk_PostscriptStipple_TCL_DECLARED -/* 236 */ -EXTERN int Tk_PostscriptStipple (Tcl_Interp * interp, - Tk_Window tkwin, Tk_PostscriptInfo psInfo, - Pixmap bitmap); -#endif -#ifndef Tk_PostscriptY_TCL_DECLARED -#define Tk_PostscriptY_TCL_DECLARED -/* 237 */ -EXTERN double Tk_PostscriptY (double y, Tk_PostscriptInfo psInfo); -#endif -#ifndef Tk_PostscriptPhoto_TCL_DECLARED -#define Tk_PostscriptPhoto_TCL_DECLARED -/* 238 */ -EXTERN int Tk_PostscriptPhoto (Tcl_Interp * interp, - Tk_PhotoImageBlock * blockPtr, - Tk_PostscriptInfo psInfo, int width, - int height); -#endif -#ifndef Tk_CreateClientMessageHandler_TCL_DECLARED -#define Tk_CreateClientMessageHandler_TCL_DECLARED -/* 239 */ -EXTERN void Tk_CreateClientMessageHandler ( - Tk_ClientMessageProc * proc); -#endif -#ifndef Tk_DeleteClientMessageHandler_TCL_DECLARED -#define Tk_DeleteClientMessageHandler_TCL_DECLARED -/* 240 */ -EXTERN void Tk_DeleteClientMessageHandler ( - Tk_ClientMessageProc * proc); -#endif -#ifndef Tk_CreateAnonymousWindow_TCL_DECLARED -#define Tk_CreateAnonymousWindow_TCL_DECLARED -/* 241 */ -EXTERN Tk_Window Tk_CreateAnonymousWindow (Tcl_Interp * interp, - Tk_Window parent, CONST char * screenName); -#endif -#ifndef Tk_SetClassProcs_TCL_DECLARED -#define Tk_SetClassProcs_TCL_DECLARED -/* 242 */ -EXTERN void Tk_SetClassProcs (Tk_Window tkwin, - Tk_ClassProcs * procs, - ClientData instanceData); -#endif -#ifndef Tk_SetInternalBorderEx_TCL_DECLARED -#define Tk_SetInternalBorderEx_TCL_DECLARED -/* 243 */ -EXTERN void Tk_SetInternalBorderEx (Tk_Window tkwin, int left, - int right, int top, int bottom); -#endif -#ifndef Tk_SetMinimumRequestSize_TCL_DECLARED -#define Tk_SetMinimumRequestSize_TCL_DECLARED -/* 244 */ -EXTERN void Tk_SetMinimumRequestSize (Tk_Window tkwin, - int minWidth, int minHeight); -#endif -#ifndef Tk_SetCaretPos_TCL_DECLARED -#define Tk_SetCaretPos_TCL_DECLARED -/* 245 */ -EXTERN void Tk_SetCaretPos (Tk_Window tkwin, int x, int y, - int height); -#endif -#ifndef Tk_PhotoPutBlock_Panic_TCL_DECLARED -#define Tk_PhotoPutBlock_Panic_TCL_DECLARED -/* 246 */ -EXTERN void Tk_PhotoPutBlock_Panic (Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height, int compRule); -#endif -#ifndef Tk_PhotoPutZoomedBlock_Panic_TCL_DECLARED -#define Tk_PhotoPutZoomedBlock_Panic_TCL_DECLARED -/* 247 */ -EXTERN void Tk_PhotoPutZoomedBlock_Panic (Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule); -#endif -#ifndef Tk_CollapseMotionEvents_TCL_DECLARED -#define Tk_CollapseMotionEvents_TCL_DECLARED -/* 248 */ -EXTERN int Tk_CollapseMotionEvents (Display * display, - int collapse); -#endif -#ifndef Tk_RegisterStyleEngine_TCL_DECLARED -#define Tk_RegisterStyleEngine_TCL_DECLARED -/* 249 */ -EXTERN Tk_StyleEngine Tk_RegisterStyleEngine (CONST char * name, - Tk_StyleEngine parent); -#endif -#ifndef Tk_GetStyleEngine_TCL_DECLARED -#define Tk_GetStyleEngine_TCL_DECLARED -/* 250 */ -EXTERN Tk_StyleEngine Tk_GetStyleEngine (CONST char * name); -#endif -#ifndef Tk_RegisterStyledElement_TCL_DECLARED -#define Tk_RegisterStyledElement_TCL_DECLARED -/* 251 */ -EXTERN int Tk_RegisterStyledElement (Tk_StyleEngine engine, - Tk_ElementSpec * templatePtr); -#endif -#ifndef Tk_GetElementId_TCL_DECLARED -#define Tk_GetElementId_TCL_DECLARED -/* 252 */ -EXTERN int Tk_GetElementId (CONST char * name); -#endif -#ifndef Tk_CreateStyle_TCL_DECLARED -#define Tk_CreateStyle_TCL_DECLARED -/* 253 */ -EXTERN Tk_Style Tk_CreateStyle (CONST char * name, - Tk_StyleEngine engine, ClientData clientData); -#endif -#ifndef Tk_GetStyle_TCL_DECLARED -#define Tk_GetStyle_TCL_DECLARED -/* 254 */ -EXTERN Tk_Style Tk_GetStyle (Tcl_Interp * interp, CONST char * name); -#endif -#ifndef Tk_FreeStyle_TCL_DECLARED -#define Tk_FreeStyle_TCL_DECLARED -/* 255 */ -EXTERN void Tk_FreeStyle (Tk_Style style); -#endif -#ifndef Tk_NameOfStyle_TCL_DECLARED -#define Tk_NameOfStyle_TCL_DECLARED -/* 256 */ -EXTERN CONST char * Tk_NameOfStyle (Tk_Style style); -#endif -#ifndef Tk_AllocStyleFromObj_TCL_DECLARED -#define Tk_AllocStyleFromObj_TCL_DECLARED -/* 257 */ -EXTERN Tk_Style Tk_AllocStyleFromObj (Tcl_Interp * interp, - Tcl_Obj * objPtr); -#endif -#ifndef Tk_GetStyleFromObj_TCL_DECLARED -#define Tk_GetStyleFromObj_TCL_DECLARED -/* 258 */ -EXTERN Tk_Style Tk_GetStyleFromObj (Tcl_Obj * objPtr); -#endif -#ifndef Tk_FreeStyleFromObj_TCL_DECLARED -#define Tk_FreeStyleFromObj_TCL_DECLARED -/* 259 */ -EXTERN void Tk_FreeStyleFromObj (Tcl_Obj * objPtr); -#endif -#ifndef Tk_GetStyledElement_TCL_DECLARED -#define Tk_GetStyledElement_TCL_DECLARED -/* 260 */ -EXTERN Tk_StyledElement Tk_GetStyledElement (Tk_Style style, int elementId, - Tk_OptionTable optionTable); -#endif -#ifndef Tk_GetElementSize_TCL_DECLARED -#define Tk_GetElementSize_TCL_DECLARED -/* 261 */ -EXTERN void Tk_GetElementSize (Tk_Style style, - Tk_StyledElement element, char * recordPtr, - Tk_Window tkwin, int width, int height, - int inner, int * widthPtr, int * heightPtr); -#endif -#ifndef Tk_GetElementBox_TCL_DECLARED -#define Tk_GetElementBox_TCL_DECLARED -/* 262 */ -EXTERN void Tk_GetElementBox (Tk_Style style, - Tk_StyledElement element, char * recordPtr, - Tk_Window tkwin, int x, int y, int width, - int height, int inner, int * xPtr, - int * yPtr, int * widthPtr, int * heightPtr); -#endif -#ifndef Tk_GetElementBorderWidth_TCL_DECLARED -#define Tk_GetElementBorderWidth_TCL_DECLARED -/* 263 */ -EXTERN int Tk_GetElementBorderWidth (Tk_Style style, - Tk_StyledElement element, char * recordPtr, - Tk_Window tkwin); -#endif -#ifndef Tk_DrawElement_TCL_DECLARED -#define Tk_DrawElement_TCL_DECLARED -/* 264 */ -EXTERN void Tk_DrawElement (Tk_Style style, - Tk_StyledElement element, char * recordPtr, - Tk_Window tkwin, Drawable d, int x, int y, - int width, int height, int state); -#endif -#ifndef Tk_PhotoExpand_TCL_DECLARED -#define Tk_PhotoExpand_TCL_DECLARED -/* 265 */ -EXTERN int Tk_PhotoExpand (Tcl_Interp * interp, - Tk_PhotoHandle handle, int width, int height); -#endif -#ifndef Tk_PhotoPutBlock_TCL_DECLARED -#define Tk_PhotoPutBlock_TCL_DECLARED -/* 266 */ -EXTERN int Tk_PhotoPutBlock (Tcl_Interp * interp, - Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height, int compRule); -#endif -#ifndef Tk_PhotoPutZoomedBlock_TCL_DECLARED -#define Tk_PhotoPutZoomedBlock_TCL_DECLARED -/* 267 */ -EXTERN int Tk_PhotoPutZoomedBlock (Tcl_Interp * interp, - Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height, int zoomX, int zoomY, - int subsampleX, int subsampleY, int compRule); -#endif -#ifndef Tk_PhotoSetSize_TCL_DECLARED -#define Tk_PhotoSetSize_TCL_DECLARED -/* 268 */ -EXTERN int Tk_PhotoSetSize (Tcl_Interp * interp, - Tk_PhotoHandle handle, int width, int height); -#endif -#ifndef Tk_GetUserInactiveTime_TCL_DECLARED -#define Tk_GetUserInactiveTime_TCL_DECLARED -/* 269 */ -EXTERN long Tk_GetUserInactiveTime (Display * dpy); -#endif -#ifndef Tk_ResetUserInactiveTime_TCL_DECLARED -#define Tk_ResetUserInactiveTime_TCL_DECLARED -/* 270 */ -EXTERN void Tk_ResetUserInactiveTime (Display * dpy); -#endif -#ifndef Tk_Interp_TCL_DECLARED -#define Tk_Interp_TCL_DECLARED -/* 271 */ -EXTERN Tcl_Interp * Tk_Interp (Tk_Window tkwin); -#endif -#ifndef Tk_CreateOldImageType_TCL_DECLARED -#define Tk_CreateOldImageType_TCL_DECLARED -/* 272 */ -EXTERN void Tk_CreateOldImageType (Tk_ImageType * typePtr); -#endif -#ifndef Tk_CreateOldPhotoImageFormat_TCL_DECLARED -#define Tk_CreateOldPhotoImageFormat_TCL_DECLARED -/* 273 */ -EXTERN void Tk_CreateOldPhotoImageFormat ( - Tk_PhotoImageFormat * formatPtr); -#endif - -typedef struct TkStubHooks { - struct TkPlatStubs *tkPlatStubs; - struct TkIntStubs *tkIntStubs; - struct TkIntPlatStubs *tkIntPlatStubs; - struct TkIntXlibStubs *tkIntXlibStubs; -} TkStubHooks; - -typedef struct TkStubs { - int magic; - struct TkStubHooks *hooks; - - void (*tk_MainLoop) (void); /* 0 */ - XColor * (*tk_3DBorderColor) (Tk_3DBorder border); /* 1 */ - GC (*tk_3DBorderGC) (Tk_Window tkwin, Tk_3DBorder border, int which); /* 2 */ - void (*tk_3DHorizontalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftIn, int rightIn, int topBevel, int relief); /* 3 */ - void (*tk_3DVerticalBevel) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int leftBevel, int relief); /* 4 */ - void (*tk_AddOption) (Tk_Window tkwin, CONST char * name, CONST char * value, int priority); /* 5 */ - void (*tk_BindEvent) (Tk_BindingTable bindingTable, XEvent * eventPtr, Tk_Window tkwin, int numObjects, ClientData * objectPtr); /* 6 */ - void (*tk_CanvasDrawableCoords) (Tk_Canvas canvas, double x, double y, short * drawableXPtr, short * drawableYPtr); /* 7 */ - void (*tk_CanvasEventuallyRedraw) (Tk_Canvas canvas, int x1, int y1, int x2, int y2); /* 8 */ - int (*tk_CanvasGetCoord) (Tcl_Interp * interp, Tk_Canvas canvas, CONST char * str, double * doublePtr); /* 9 */ - Tk_CanvasTextInfo * (*tk_CanvasGetTextInfo) (Tk_Canvas canvas); /* 10 */ - int (*tk_CanvasPsBitmap) (Tcl_Interp * interp, Tk_Canvas canvas, Pixmap bitmap, int x, int y, int width, int height); /* 11 */ - int (*tk_CanvasPsColor) (Tcl_Interp * interp, Tk_Canvas canvas, XColor * colorPtr); /* 12 */ - int (*tk_CanvasPsFont) (Tcl_Interp * interp, Tk_Canvas canvas, Tk_Font font); /* 13 */ - void (*tk_CanvasPsPath) (Tcl_Interp * interp, Tk_Canvas canvas, double * coordPtr, int numPoints); /* 14 */ - int (*tk_CanvasPsStipple) (Tcl_Interp * interp, Tk_Canvas canvas, Pixmap bitmap); /* 15 */ - double (*tk_CanvasPsY) (Tk_Canvas canvas, double y); /* 16 */ - void (*tk_CanvasSetStippleOrigin) (Tk_Canvas canvas, GC gc); /* 17 */ - int (*tk_CanvasTagsParseProc) (ClientData clientData, Tcl_Interp * interp, Tk_Window tkwin, CONST char * value, char * widgRec, int offset); /* 18 */ - char * (*tk_CanvasTagsPrintProc) (ClientData clientData, Tk_Window tkwin, char * widgRec, int offset, Tcl_FreeProc ** freeProcPtr); /* 19 */ - Tk_Window (*tk_CanvasTkwin) (Tk_Canvas canvas); /* 20 */ - void (*tk_CanvasWindowCoords) (Tk_Canvas canvas, double x, double y, short * screenXPtr, short * screenYPtr); /* 21 */ - void (*tk_ChangeWindowAttributes) (Tk_Window tkwin, unsigned long valueMask, XSetWindowAttributes * attsPtr); /* 22 */ - int (*tk_CharBbox) (Tk_TextLayout layout, int index, int * xPtr, int * yPtr, int * widthPtr, int * heightPtr); /* 23 */ - void (*tk_ClearSelection) (Tk_Window tkwin, Atom selection); /* 24 */ - int (*tk_ClipboardAppend) (Tcl_Interp * interp, Tk_Window tkwin, Atom target, Atom format, char* buffer); /* 25 */ - int (*tk_ClipboardClear) (Tcl_Interp * interp, Tk_Window tkwin); /* 26 */ - int (*tk_ConfigureInfo) (Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, char * widgRec, CONST char * argvName, int flags); /* 27 */ - int (*tk_ConfigureValue) (Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, char * widgRec, CONST char * argvName, int flags); /* 28 */ - int (*tk_ConfigureWidget) (Tcl_Interp * interp, Tk_Window tkwin, Tk_ConfigSpec * specs, int argc, CONST84 char ** argv, char * widgRec, int flags); /* 29 */ - void (*tk_ConfigureWindow) (Tk_Window tkwin, unsigned int valueMask, XWindowChanges * valuePtr); /* 30 */ - Tk_TextLayout (*tk_ComputeTextLayout) (Tk_Font font, CONST char * str, int numChars, int wrapLength, Tk_Justify justify, int flags, int * widthPtr, int * heightPtr); /* 31 */ - Tk_Window (*tk_CoordsToWindow) (int rootX, int rootY, Tk_Window tkwin); /* 32 */ - unsigned long (*tk_CreateBinding) (Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, CONST char * eventStr, CONST char * command, int append); /* 33 */ - Tk_BindingTable (*tk_CreateBindingTable) (Tcl_Interp * interp); /* 34 */ - Tk_ErrorHandler (*tk_CreateErrorHandler) (Display * display, int errNum, int request, int minorCode, Tk_ErrorProc * errorProc, ClientData clientData); /* 35 */ - void (*tk_CreateEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc * proc, ClientData clientData); /* 36 */ - void (*tk_CreateGenericHandler) (Tk_GenericProc * proc, ClientData clientData); /* 37 */ - void (*tk_CreateImageType) (Tk_ImageType * typePtr); /* 38 */ - void (*tk_CreateItemType) (Tk_ItemType * typePtr); /* 39 */ - void (*tk_CreatePhotoImageFormat) (Tk_PhotoImageFormat * formatPtr); /* 40 */ - void (*tk_CreateSelHandler) (Tk_Window tkwin, Atom selection, Atom target, Tk_SelectionProc * proc, ClientData clientData, Atom format); /* 41 */ - Tk_Window (*tk_CreateWindow) (Tcl_Interp * interp, Tk_Window parent, CONST char * name, CONST char * screenName); /* 42 */ - Tk_Window (*tk_CreateWindowFromPath) (Tcl_Interp * interp, Tk_Window tkwin, CONST char * pathName, CONST char * screenName); /* 43 */ - int (*tk_DefineBitmap) (Tcl_Interp * interp, CONST char * name, CONST char * source, int width, int height); /* 44 */ - void (*tk_DefineCursor) (Tk_Window window, Tk_Cursor cursor); /* 45 */ - void (*tk_DeleteAllBindings) (Tk_BindingTable bindingTable, ClientData object); /* 46 */ - int (*tk_DeleteBinding) (Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, CONST char * eventStr); /* 47 */ - void (*tk_DeleteBindingTable) (Tk_BindingTable bindingTable); /* 48 */ - void (*tk_DeleteErrorHandler) (Tk_ErrorHandler handler); /* 49 */ - void (*tk_DeleteEventHandler) (Tk_Window token, unsigned long mask, Tk_EventProc * proc, ClientData clientData); /* 50 */ - void (*tk_DeleteGenericHandler) (Tk_GenericProc * proc, ClientData clientData); /* 51 */ - void (*tk_DeleteImage) (Tcl_Interp * interp, CONST char * name); /* 52 */ - void (*tk_DeleteSelHandler) (Tk_Window tkwin, Atom selection, Atom target); /* 53 */ - void (*tk_DestroyWindow) (Tk_Window tkwin); /* 54 */ - CONST84_RETURN char * (*tk_DisplayName) (Tk_Window tkwin); /* 55 */ - int (*tk_DistanceToTextLayout) (Tk_TextLayout layout, int x, int y); /* 56 */ - void (*tk_Draw3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint * pointPtr, int numPoints, int borderWidth, int leftRelief); /* 57 */ - void (*tk_Draw3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 58 */ - void (*tk_DrawChars) (Display * display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char * source, int numBytes, int x, int y); /* 59 */ - void (*tk_DrawFocusHighlight) (Tk_Window tkwin, GC gc, int width, Drawable drawable); /* 60 */ - void (*tk_DrawTextLayout) (Display * display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int firstChar, int lastChar); /* 61 */ - void (*tk_Fill3DPolygon) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, XPoint * pointPtr, int numPoints, int borderWidth, int leftRelief); /* 62 */ - void (*tk_Fill3DRectangle) (Tk_Window tkwin, Drawable drawable, Tk_3DBorder border, int x, int y, int width, int height, int borderWidth, int relief); /* 63 */ - Tk_PhotoHandle (*tk_FindPhoto) (Tcl_Interp * interp, CONST char * imageName); /* 64 */ - Font (*tk_FontId) (Tk_Font font); /* 65 */ - void (*tk_Free3DBorder) (Tk_3DBorder border); /* 66 */ - void (*tk_FreeBitmap) (Display * display, Pixmap bitmap); /* 67 */ - void (*tk_FreeColor) (XColor * colorPtr); /* 68 */ - void (*tk_FreeColormap) (Display * display, Colormap colormap); /* 69 */ - void (*tk_FreeCursor) (Display * display, Tk_Cursor cursor); /* 70 */ - void (*tk_FreeFont) (Tk_Font f); /* 71 */ - void (*tk_FreeGC) (Display * display, GC gc); /* 72 */ - void (*tk_FreeImage) (Tk_Image image); /* 73 */ - void (*tk_FreeOptions) (Tk_ConfigSpec * specs, char * widgRec, Display * display, int needFlags); /* 74 */ - void (*tk_FreePixmap) (Display * display, Pixmap pixmap); /* 75 */ - void (*tk_FreeTextLayout) (Tk_TextLayout textLayout); /* 76 */ - void (*tk_FreeXId) (Display * display, XID xid); /* 77 */ - GC (*tk_GCForColor) (XColor * colorPtr, Drawable drawable); /* 78 */ - void (*tk_GeometryRequest) (Tk_Window tkwin, int reqWidth, int reqHeight); /* 79 */ - Tk_3DBorder (*tk_Get3DBorder) (Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid colorName); /* 80 */ - void (*tk_GetAllBindings) (Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object); /* 81 */ - int (*tk_GetAnchor) (Tcl_Interp * interp, CONST char * str, Tk_Anchor * anchorPtr); /* 82 */ - CONST84_RETURN char * (*tk_GetAtomName) (Tk_Window tkwin, Atom atom); /* 83 */ - CONST84_RETURN char * (*tk_GetBinding) (Tcl_Interp * interp, Tk_BindingTable bindingTable, ClientData object, CONST char * eventStr); /* 84 */ - Pixmap (*tk_GetBitmap) (Tcl_Interp * interp, Tk_Window tkwin, CONST char * str); /* 85 */ - Pixmap (*tk_GetBitmapFromData) (Tcl_Interp * interp, Tk_Window tkwin, CONST char * source, int width, int height); /* 86 */ - int (*tk_GetCapStyle) (Tcl_Interp * interp, CONST char * str, int * capPtr); /* 87 */ - XColor * (*tk_GetColor) (Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid name); /* 88 */ - XColor * (*tk_GetColorByValue) (Tk_Window tkwin, XColor * colorPtr); /* 89 */ - Colormap (*tk_GetColormap) (Tcl_Interp * interp, Tk_Window tkwin, CONST char * str); /* 90 */ - Tk_Cursor (*tk_GetCursor) (Tcl_Interp * interp, Tk_Window tkwin, Tk_Uid str); /* 91 */ - Tk_Cursor (*tk_GetCursorFromData) (Tcl_Interp * interp, Tk_Window tkwin, CONST char * source, CONST char * mask, int width, int height, int xHot, int yHot, Tk_Uid fg, Tk_Uid bg); /* 92 */ - Tk_Font (*tk_GetFont) (Tcl_Interp * interp, Tk_Window tkwin, CONST char * str); /* 93 */ - Tk_Font (*tk_GetFontFromObj) (Tk_Window tkwin, Tcl_Obj * objPtr); /* 94 */ - void (*tk_GetFontMetrics) (Tk_Font font, Tk_FontMetrics * fmPtr); /* 95 */ - GC (*tk_GetGC) (Tk_Window tkwin, unsigned long valueMask, XGCValues * valuePtr); /* 96 */ - Tk_Image (*tk_GetImage) (Tcl_Interp * interp, Tk_Window tkwin, CONST char * name, Tk_ImageChangedProc * changeProc, ClientData clientData); /* 97 */ - ClientData (*tk_GetImageMasterData) (Tcl_Interp * interp, CONST char * name, Tk_ImageType ** typePtrPtr); /* 98 */ - Tk_ItemType * (*tk_GetItemTypes) (void); /* 99 */ - int (*tk_GetJoinStyle) (Tcl_Interp * interp, CONST char * str, int * joinPtr); /* 100 */ - int (*tk_GetJustify) (Tcl_Interp * interp, CONST char * str, Tk_Justify * justifyPtr); /* 101 */ - int (*tk_GetNumMainWindows) (void); /* 102 */ - Tk_Uid (*tk_GetOption) (Tk_Window tkwin, CONST char * name, CONST char * className); /* 103 */ - int (*tk_GetPixels) (Tcl_Interp * interp, Tk_Window tkwin, CONST char * str, int * intPtr); /* 104 */ - Pixmap (*tk_GetPixmap) (Display * display, Drawable d, int width, int height, int depth); /* 105 */ - int (*tk_GetRelief) (Tcl_Interp * interp, CONST char * name, int * reliefPtr); /* 106 */ - void (*tk_GetRootCoords) (Tk_Window tkwin, int * xPtr, int * yPtr); /* 107 */ - int (*tk_GetScrollInfo) (Tcl_Interp * interp, int argc, CONST84 char ** argv, double * dblPtr, int * intPtr); /* 108 */ - int (*tk_GetScreenMM) (Tcl_Interp * interp, Tk_Window tkwin, CONST char * str, double * doublePtr); /* 109 */ - int (*tk_GetSelection) (Tcl_Interp * interp, Tk_Window tkwin, Atom selection, Atom target, Tk_GetSelProc * proc, ClientData clientData); /* 110 */ - Tk_Uid (*tk_GetUid) (CONST char * str); /* 111 */ - Visual * (*tk_GetVisual) (Tcl_Interp * interp, Tk_Window tkwin, CONST char * str, int * depthPtr, Colormap * colormapPtr); /* 112 */ - void (*tk_GetVRootGeometry) (Tk_Window tkwin, int * xPtr, int * yPtr, int * widthPtr, int * heightPtr); /* 113 */ - int (*tk_Grab) (Tcl_Interp * interp, Tk_Window tkwin, int grabGlobal); /* 114 */ - void (*tk_HandleEvent) (XEvent * eventPtr); /* 115 */ - Tk_Window (*tk_IdToWindow) (Display * display, Window window); /* 116 */ - void (*tk_ImageChanged) (Tk_ImageMaster master, int x, int y, int width, int height, int imageWidth, int imageHeight); /* 117 */ - int (*tk_Init) (Tcl_Interp * interp); /* 118 */ - Atom (*tk_InternAtom) (Tk_Window tkwin, CONST char * name); /* 119 */ - int (*tk_IntersectTextLayout) (Tk_TextLayout layout, int x, int y, int width, int height); /* 120 */ - void (*tk_MaintainGeometry) (Tk_Window slave, Tk_Window master, int x, int y, int width, int height); /* 121 */ - Tk_Window (*tk_MainWindow) (Tcl_Interp * interp); /* 122 */ - void (*tk_MakeWindowExist) (Tk_Window tkwin); /* 123 */ - void (*tk_ManageGeometry) (Tk_Window tkwin, CONST Tk_GeomMgr * mgrPtr, ClientData clientData); /* 124 */ - void (*tk_MapWindow) (Tk_Window tkwin); /* 125 */ - int (*tk_MeasureChars) (Tk_Font tkfont, CONST char * source, int numBytes, int maxPixels, int flags, int * lengthPtr); /* 126 */ - void (*tk_MoveResizeWindow) (Tk_Window tkwin, int x, int y, int width, int height); /* 127 */ - void (*tk_MoveWindow) (Tk_Window tkwin, int x, int y); /* 128 */ - void (*tk_MoveToplevelWindow) (Tk_Window tkwin, int x, int y); /* 129 */ - CONST84_RETURN char * (*tk_NameOf3DBorder) (Tk_3DBorder border); /* 130 */ - CONST84_RETURN char * (*tk_NameOfAnchor) (Tk_Anchor anchor); /* 131 */ - CONST84_RETURN char * (*tk_NameOfBitmap) (Display * display, Pixmap bitmap); /* 132 */ - CONST84_RETURN char * (*tk_NameOfCapStyle) (int cap); /* 133 */ - CONST84_RETURN char * (*tk_NameOfColor) (XColor * colorPtr); /* 134 */ - CONST84_RETURN char * (*tk_NameOfCursor) (Display * display, Tk_Cursor cursor); /* 135 */ - CONST84_RETURN char * (*tk_NameOfFont) (Tk_Font font); /* 136 */ - CONST84_RETURN char * (*tk_NameOfImage) (Tk_ImageMaster imageMaster); /* 137 */ - CONST84_RETURN char * (*tk_NameOfJoinStyle) (int join); /* 138 */ - CONST84_RETURN char * (*tk_NameOfJustify) (Tk_Justify justify); /* 139 */ - CONST84_RETURN char * (*tk_NameOfRelief) (int relief); /* 140 */ - Tk_Window (*tk_NameToWindow) (Tcl_Interp * interp, CONST char * pathName, Tk_Window tkwin); /* 141 */ - void (*tk_OwnSelection) (Tk_Window tkwin, Atom selection, Tk_LostSelProc * proc, ClientData clientData); /* 142 */ - int (*tk_ParseArgv) (Tcl_Interp * interp, Tk_Window tkwin, int * argcPtr, CONST84 char ** argv, Tk_ArgvInfo * argTable, int flags); /* 143 */ - void (*tk_PhotoPutBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height); /* 144 */ - void (*tk_PhotoPutZoomedBlock_NoComposite) (Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY); /* 145 */ - int (*tk_PhotoGetImage) (Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr); /* 146 */ - void (*tk_PhotoBlank) (Tk_PhotoHandle handle); /* 147 */ - void (*tk_PhotoExpand_Panic) (Tk_PhotoHandle handle, int width, int height); /* 148 */ - void (*tk_PhotoGetSize) (Tk_PhotoHandle handle, int * widthPtr, int * heightPtr); /* 149 */ - void (*tk_PhotoSetSize_Panic) (Tk_PhotoHandle handle, int width, int height); /* 150 */ - int (*tk_PointToChar) (Tk_TextLayout layout, int x, int y); /* 151 */ - int (*tk_PostscriptFontName) (Tk_Font tkfont, Tcl_DString * dsPtr); /* 152 */ - void (*tk_PreserveColormap) (Display * display, Colormap colormap); /* 153 */ - void (*tk_QueueWindowEvent) (XEvent * eventPtr, Tcl_QueuePosition position); /* 154 */ - void (*tk_RedrawImage) (Tk_Image image, int imageX, int imageY, int width, int height, Drawable drawable, int drawableX, int drawableY); /* 155 */ - void (*tk_ResizeWindow) (Tk_Window tkwin, int width, int height); /* 156 */ - int (*tk_RestackWindow) (Tk_Window tkwin, int aboveBelow, Tk_Window other); /* 157 */ - Tk_RestrictProc * (*tk_RestrictEvents) (Tk_RestrictProc * proc, ClientData arg, ClientData * prevArgPtr); /* 158 */ - int (*tk_SafeInit) (Tcl_Interp * interp); /* 159 */ - CONST char * (*tk_SetAppName) (Tk_Window tkwin, CONST char * name); /* 160 */ - void (*tk_SetBackgroundFromBorder) (Tk_Window tkwin, Tk_3DBorder border); /* 161 */ - void (*tk_SetClass) (Tk_Window tkwin, CONST char * className); /* 162 */ - void (*tk_SetGrid) (Tk_Window tkwin, int reqWidth, int reqHeight, int gridWidth, int gridHeight); /* 163 */ - void (*tk_SetInternalBorder) (Tk_Window tkwin, int width); /* 164 */ - void (*tk_SetWindowBackground) (Tk_Window tkwin, unsigned long pixel); /* 165 */ - void (*tk_SetWindowBackgroundPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 166 */ - void (*tk_SetWindowBorder) (Tk_Window tkwin, unsigned long pixel); /* 167 */ - void (*tk_SetWindowBorderWidth) (Tk_Window tkwin, int width); /* 168 */ - void (*tk_SetWindowBorderPixmap) (Tk_Window tkwin, Pixmap pixmap); /* 169 */ - void (*tk_SetWindowColormap) (Tk_Window tkwin, Colormap colormap); /* 170 */ - int (*tk_SetWindowVisual) (Tk_Window tkwin, Visual * visual, int depth, Colormap colormap); /* 171 */ - void (*tk_SizeOfBitmap) (Display * display, Pixmap bitmap, int * widthPtr, int * heightPtr); /* 172 */ - void (*tk_SizeOfImage) (Tk_Image image, int * widthPtr, int * heightPtr); /* 173 */ - int (*tk_StrictMotif) (Tk_Window tkwin); /* 174 */ - void (*tk_TextLayoutToPostscript) (Tcl_Interp * interp, Tk_TextLayout layout); /* 175 */ - int (*tk_TextWidth) (Tk_Font font, CONST char * str, int numBytes); /* 176 */ - void (*tk_UndefineCursor) (Tk_Window window); /* 177 */ - void (*tk_UnderlineChars) (Display * display, Drawable drawable, GC gc, Tk_Font tkfont, CONST char * source, int x, int y, int firstByte, int lastByte); /* 178 */ - void (*tk_UnderlineTextLayout) (Display * display, Drawable drawable, GC gc, Tk_TextLayout layout, int x, int y, int underline); /* 179 */ - void (*tk_Ungrab) (Tk_Window tkwin); /* 180 */ - void (*tk_UnmaintainGeometry) (Tk_Window slave, Tk_Window master); /* 181 */ - void (*tk_UnmapWindow) (Tk_Window tkwin); /* 182 */ - void (*tk_UnsetGrid) (Tk_Window tkwin); /* 183 */ - void (*tk_UpdatePointer) (Tk_Window tkwin, int x, int y, int state); /* 184 */ - Pixmap (*tk_AllocBitmapFromObj) (Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr); /* 185 */ - Tk_3DBorder (*tk_Alloc3DBorderFromObj) (Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr); /* 186 */ - XColor * (*tk_AllocColorFromObj) (Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr); /* 187 */ - Tk_Cursor (*tk_AllocCursorFromObj) (Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr); /* 188 */ - Tk_Font (*tk_AllocFontFromObj) (Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr); /* 189 */ - Tk_OptionTable (*tk_CreateOptionTable) (Tcl_Interp * interp, CONST Tk_OptionSpec * templatePtr); /* 190 */ - void (*tk_DeleteOptionTable) (Tk_OptionTable optionTable); /* 191 */ - void (*tk_Free3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj * objPtr); /* 192 */ - void (*tk_FreeBitmapFromObj) (Tk_Window tkwin, Tcl_Obj * objPtr); /* 193 */ - void (*tk_FreeColorFromObj) (Tk_Window tkwin, Tcl_Obj * objPtr); /* 194 */ - void (*tk_FreeConfigOptions) (char * recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 195 */ - void (*tk_FreeSavedOptions) (Tk_SavedOptions * savePtr); /* 196 */ - void (*tk_FreeCursorFromObj) (Tk_Window tkwin, Tcl_Obj * objPtr); /* 197 */ - void (*tk_FreeFontFromObj) (Tk_Window tkwin, Tcl_Obj * objPtr); /* 198 */ - Tk_3DBorder (*tk_Get3DBorderFromObj) (Tk_Window tkwin, Tcl_Obj * objPtr); /* 199 */ - int (*tk_GetAnchorFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tk_Anchor * anchorPtr); /* 200 */ - Pixmap (*tk_GetBitmapFromObj) (Tk_Window tkwin, Tcl_Obj * objPtr); /* 201 */ - XColor * (*tk_GetColorFromObj) (Tk_Window tkwin, Tcl_Obj * objPtr); /* 202 */ - Tk_Cursor (*tk_GetCursorFromObj) (Tk_Window tkwin, Tcl_Obj * objPtr); /* 203 */ - Tcl_Obj * (*tk_GetOptionInfo) (Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionTable, Tcl_Obj * namePtr, Tk_Window tkwin); /* 204 */ - Tcl_Obj * (*tk_GetOptionValue) (Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionTable, Tcl_Obj * namePtr, Tk_Window tkwin); /* 205 */ - int (*tk_GetJustifyFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tk_Justify * justifyPtr); /* 206 */ - int (*tk_GetMMFromObj) (Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr, double * doublePtr); /* 207 */ - int (*tk_GetPixelsFromObj) (Tcl_Interp * interp, Tk_Window tkwin, Tcl_Obj * objPtr, int * intPtr); /* 208 */ - int (*tk_GetReliefFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int * resultPtr); /* 209 */ - int (*tk_GetScrollInfoObj) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], double * dblPtr, int * intPtr); /* 210 */ - int (*tk_InitOptions) (Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionToken, Tk_Window tkwin); /* 211 */ - void (*tk_MainEx) (int argc, char ** argv, Tcl_AppInitProc * appInitProc, Tcl_Interp * interp); /* 212 */ - void (*tk_RestoreSavedOptions) (Tk_SavedOptions * savePtr); /* 213 */ - int (*tk_SetOptions) (Tcl_Interp * interp, char * recordPtr, Tk_OptionTable optionTable, int objc, Tcl_Obj *CONST objv[], Tk_Window tkwin, Tk_SavedOptions * savePtr, int * maskPtr); /* 214 */ - void (*tk_InitConsoleChannels) (Tcl_Interp * interp); /* 215 */ - int (*tk_CreateConsoleWindow) (Tcl_Interp * interp); /* 216 */ - void (*tk_CreateSmoothMethod) (Tcl_Interp * interp, Tk_SmoothMethod * method); /* 217 */ - void *reserved218; - void *reserved219; - int (*tk_GetDash) (Tcl_Interp * interp, CONST char * value, Tk_Dash * dash); /* 220 */ - void (*tk_CreateOutline) (Tk_Outline * outline); /* 221 */ - void (*tk_DeleteOutline) (Display * display, Tk_Outline * outline); /* 222 */ - int (*tk_ConfigOutlineGC) (XGCValues * gcValues, Tk_Canvas canvas, Tk_Item * item, Tk_Outline * outline); /* 223 */ - int (*tk_ChangeOutlineGC) (Tk_Canvas canvas, Tk_Item * item, Tk_Outline * outline); /* 224 */ - int (*tk_ResetOutlineGC) (Tk_Canvas canvas, Tk_Item * item, Tk_Outline * outline); /* 225 */ - int (*tk_CanvasPsOutline) (Tk_Canvas canvas, Tk_Item * item, Tk_Outline * outline); /* 226 */ - void (*tk_SetTSOrigin) (Tk_Window tkwin, GC gc, int x, int y); /* 227 */ - int (*tk_CanvasGetCoordFromObj) (Tcl_Interp * interp, Tk_Canvas canvas, Tcl_Obj * obj, double * doublePtr); /* 228 */ - void (*tk_CanvasSetOffset) (Tk_Canvas canvas, GC gc, Tk_TSOffset * offset); /* 229 */ - void (*tk_DitherPhoto) (Tk_PhotoHandle handle, int x, int y, int width, int height); /* 230 */ - int (*tk_PostscriptBitmap) (Tcl_Interp * interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap, int startX, int startY, int width, int height); /* 231 */ - int (*tk_PostscriptColor) (Tcl_Interp * interp, Tk_PostscriptInfo psInfo, XColor * colorPtr); /* 232 */ - int (*tk_PostscriptFont) (Tcl_Interp * interp, Tk_PostscriptInfo psInfo, Tk_Font font); /* 233 */ - int (*tk_PostscriptImage) (Tk_Image image, Tcl_Interp * interp, Tk_Window tkwin, Tk_PostscriptInfo psinfo, int x, int y, int width, int height, int prepass); /* 234 */ - void (*tk_PostscriptPath) (Tcl_Interp * interp, Tk_PostscriptInfo psInfo, double * coordPtr, int numPoints); /* 235 */ - int (*tk_PostscriptStipple) (Tcl_Interp * interp, Tk_Window tkwin, Tk_PostscriptInfo psInfo, Pixmap bitmap); /* 236 */ - double (*tk_PostscriptY) (double y, Tk_PostscriptInfo psInfo); /* 237 */ - int (*tk_PostscriptPhoto) (Tcl_Interp * interp, Tk_PhotoImageBlock * blockPtr, Tk_PostscriptInfo psInfo, int width, int height); /* 238 */ - void (*tk_CreateClientMessageHandler) (Tk_ClientMessageProc * proc); /* 239 */ - void (*tk_DeleteClientMessageHandler) (Tk_ClientMessageProc * proc); /* 240 */ - Tk_Window (*tk_CreateAnonymousWindow) (Tcl_Interp * interp, Tk_Window parent, CONST char * screenName); /* 241 */ - void (*tk_SetClassProcs) (Tk_Window tkwin, Tk_ClassProcs * procs, ClientData instanceData); /* 242 */ - void (*tk_SetInternalBorderEx) (Tk_Window tkwin, int left, int right, int top, int bottom); /* 243 */ - void (*tk_SetMinimumRequestSize) (Tk_Window tkwin, int minWidth, int minHeight); /* 244 */ - void (*tk_SetCaretPos) (Tk_Window tkwin, int x, int y, int height); /* 245 */ - void (*tk_PhotoPutBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height, int compRule); /* 246 */ - void (*tk_PhotoPutZoomedBlock_Panic) (Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 247 */ - int (*tk_CollapseMotionEvents) (Display * display, int collapse); /* 248 */ - Tk_StyleEngine (*tk_RegisterStyleEngine) (CONST char * name, Tk_StyleEngine parent); /* 249 */ - Tk_StyleEngine (*tk_GetStyleEngine) (CONST char * name); /* 250 */ - int (*tk_RegisterStyledElement) (Tk_StyleEngine engine, Tk_ElementSpec * templatePtr); /* 251 */ - int (*tk_GetElementId) (CONST char * name); /* 252 */ - Tk_Style (*tk_CreateStyle) (CONST char * name, Tk_StyleEngine engine, ClientData clientData); /* 253 */ - Tk_Style (*tk_GetStyle) (Tcl_Interp * interp, CONST char * name); /* 254 */ - void (*tk_FreeStyle) (Tk_Style style); /* 255 */ - CONST char * (*tk_NameOfStyle) (Tk_Style style); /* 256 */ - Tk_Style (*tk_AllocStyleFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 257 */ - Tk_Style (*tk_GetStyleFromObj) (Tcl_Obj * objPtr); /* 258 */ - void (*tk_FreeStyleFromObj) (Tcl_Obj * objPtr); /* 259 */ - Tk_StyledElement (*tk_GetStyledElement) (Tk_Style style, int elementId, Tk_OptionTable optionTable); /* 260 */ - void (*tk_GetElementSize) (Tk_Style style, Tk_StyledElement element, char * recordPtr, Tk_Window tkwin, int width, int height, int inner, int * widthPtr, int * heightPtr); /* 261 */ - void (*tk_GetElementBox) (Tk_Style style, Tk_StyledElement element, char * recordPtr, Tk_Window tkwin, int x, int y, int width, int height, int inner, int * xPtr, int * yPtr, int * widthPtr, int * heightPtr); /* 262 */ - int (*tk_GetElementBorderWidth) (Tk_Style style, Tk_StyledElement element, char * recordPtr, Tk_Window tkwin); /* 263 */ - void (*tk_DrawElement) (Tk_Style style, Tk_StyledElement element, char * recordPtr, Tk_Window tkwin, Drawable d, int x, int y, int width, int height, int state); /* 264 */ - int (*tk_PhotoExpand) (Tcl_Interp * interp, Tk_PhotoHandle handle, int width, int height); /* 265 */ - int (*tk_PhotoPutBlock) (Tcl_Interp * interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height, int compRule); /* 266 */ - int (*tk_PhotoPutZoomedBlock) (Tcl_Interp * interp, Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule); /* 267 */ - int (*tk_PhotoSetSize) (Tcl_Interp * interp, Tk_PhotoHandle handle, int width, int height); /* 268 */ - long (*tk_GetUserInactiveTime) (Display * dpy); /* 269 */ - void (*tk_ResetUserInactiveTime) (Display * dpy); /* 270 */ - Tcl_Interp * (*tk_Interp) (Tk_Window tkwin); /* 271 */ - void (*tk_CreateOldImageType) (Tk_ImageType * typePtr); /* 272 */ - void (*tk_CreateOldPhotoImageFormat) (Tk_PhotoImageFormat * formatPtr); /* 273 */ -} TkStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TkStubs *tkStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef Tk_MainLoop -#define Tk_MainLoop \ - (tkStubsPtr->tk_MainLoop) /* 0 */ -#endif -#ifndef Tk_3DBorderColor -#define Tk_3DBorderColor \ - (tkStubsPtr->tk_3DBorderColor) /* 1 */ -#endif -#ifndef Tk_3DBorderGC -#define Tk_3DBorderGC \ - (tkStubsPtr->tk_3DBorderGC) /* 2 */ -#endif -#ifndef Tk_3DHorizontalBevel -#define Tk_3DHorizontalBevel \ - (tkStubsPtr->tk_3DHorizontalBevel) /* 3 */ -#endif -#ifndef Tk_3DVerticalBevel -#define Tk_3DVerticalBevel \ - (tkStubsPtr->tk_3DVerticalBevel) /* 4 */ -#endif -#ifndef Tk_AddOption -#define Tk_AddOption \ - (tkStubsPtr->tk_AddOption) /* 5 */ -#endif -#ifndef Tk_BindEvent -#define Tk_BindEvent \ - (tkStubsPtr->tk_BindEvent) /* 6 */ -#endif -#ifndef Tk_CanvasDrawableCoords -#define Tk_CanvasDrawableCoords \ - (tkStubsPtr->tk_CanvasDrawableCoords) /* 7 */ -#endif -#ifndef Tk_CanvasEventuallyRedraw -#define Tk_CanvasEventuallyRedraw \ - (tkStubsPtr->tk_CanvasEventuallyRedraw) /* 8 */ -#endif -#ifndef Tk_CanvasGetCoord -#define Tk_CanvasGetCoord \ - (tkStubsPtr->tk_CanvasGetCoord) /* 9 */ -#endif -#ifndef Tk_CanvasGetTextInfo -#define Tk_CanvasGetTextInfo \ - (tkStubsPtr->tk_CanvasGetTextInfo) /* 10 */ -#endif -#ifndef Tk_CanvasPsBitmap -#define Tk_CanvasPsBitmap \ - (tkStubsPtr->tk_CanvasPsBitmap) /* 11 */ -#endif -#ifndef Tk_CanvasPsColor -#define Tk_CanvasPsColor \ - (tkStubsPtr->tk_CanvasPsColor) /* 12 */ -#endif -#ifndef Tk_CanvasPsFont -#define Tk_CanvasPsFont \ - (tkStubsPtr->tk_CanvasPsFont) /* 13 */ -#endif -#ifndef Tk_CanvasPsPath -#define Tk_CanvasPsPath \ - (tkStubsPtr->tk_CanvasPsPath) /* 14 */ -#endif -#ifndef Tk_CanvasPsStipple -#define Tk_CanvasPsStipple \ - (tkStubsPtr->tk_CanvasPsStipple) /* 15 */ -#endif -#ifndef Tk_CanvasPsY -#define Tk_CanvasPsY \ - (tkStubsPtr->tk_CanvasPsY) /* 16 */ -#endif -#ifndef Tk_CanvasSetStippleOrigin -#define Tk_CanvasSetStippleOrigin \ - (tkStubsPtr->tk_CanvasSetStippleOrigin) /* 17 */ -#endif -#ifndef Tk_CanvasTagsParseProc -#define Tk_CanvasTagsParseProc \ - (tkStubsPtr->tk_CanvasTagsParseProc) /* 18 */ -#endif -#ifndef Tk_CanvasTagsPrintProc -#define Tk_CanvasTagsPrintProc \ - (tkStubsPtr->tk_CanvasTagsPrintProc) /* 19 */ -#endif -#ifndef Tk_CanvasTkwin -#define Tk_CanvasTkwin \ - (tkStubsPtr->tk_CanvasTkwin) /* 20 */ -#endif -#ifndef Tk_CanvasWindowCoords -#define Tk_CanvasWindowCoords \ - (tkStubsPtr->tk_CanvasWindowCoords) /* 21 */ -#endif -#ifndef Tk_ChangeWindowAttributes -#define Tk_ChangeWindowAttributes \ - (tkStubsPtr->tk_ChangeWindowAttributes) /* 22 */ -#endif -#ifndef Tk_CharBbox -#define Tk_CharBbox \ - (tkStubsPtr->tk_CharBbox) /* 23 */ -#endif -#ifndef Tk_ClearSelection -#define Tk_ClearSelection \ - (tkStubsPtr->tk_ClearSelection) /* 24 */ -#endif -#ifndef Tk_ClipboardAppend -#define Tk_ClipboardAppend \ - (tkStubsPtr->tk_ClipboardAppend) /* 25 */ -#endif -#ifndef Tk_ClipboardClear -#define Tk_ClipboardClear \ - (tkStubsPtr->tk_ClipboardClear) /* 26 */ -#endif -#ifndef Tk_ConfigureInfo -#define Tk_ConfigureInfo \ - (tkStubsPtr->tk_ConfigureInfo) /* 27 */ -#endif -#ifndef Tk_ConfigureValue -#define Tk_ConfigureValue \ - (tkStubsPtr->tk_ConfigureValue) /* 28 */ -#endif -#ifndef Tk_ConfigureWidget -#define Tk_ConfigureWidget \ - (tkStubsPtr->tk_ConfigureWidget) /* 29 */ -#endif -#ifndef Tk_ConfigureWindow -#define Tk_ConfigureWindow \ - (tkStubsPtr->tk_ConfigureWindow) /* 30 */ -#endif -#ifndef Tk_ComputeTextLayout -#define Tk_ComputeTextLayout \ - (tkStubsPtr->tk_ComputeTextLayout) /* 31 */ -#endif -#ifndef Tk_CoordsToWindow -#define Tk_CoordsToWindow \ - (tkStubsPtr->tk_CoordsToWindow) /* 32 */ -#endif -#ifndef Tk_CreateBinding -#define Tk_CreateBinding \ - (tkStubsPtr->tk_CreateBinding) /* 33 */ -#endif -#ifndef Tk_CreateBindingTable -#define Tk_CreateBindingTable \ - (tkStubsPtr->tk_CreateBindingTable) /* 34 */ -#endif -#ifndef Tk_CreateErrorHandler -#define Tk_CreateErrorHandler \ - (tkStubsPtr->tk_CreateErrorHandler) /* 35 */ -#endif -#ifndef Tk_CreateEventHandler -#define Tk_CreateEventHandler \ - (tkStubsPtr->tk_CreateEventHandler) /* 36 */ -#endif -#ifndef Tk_CreateGenericHandler -#define Tk_CreateGenericHandler \ - (tkStubsPtr->tk_CreateGenericHandler) /* 37 */ -#endif -#ifndef Tk_CreateImageType -#define Tk_CreateImageType \ - (tkStubsPtr->tk_CreateImageType) /* 38 */ -#endif -#ifndef Tk_CreateItemType -#define Tk_CreateItemType \ - (tkStubsPtr->tk_CreateItemType) /* 39 */ -#endif -#ifndef Tk_CreatePhotoImageFormat -#define Tk_CreatePhotoImageFormat \ - (tkStubsPtr->tk_CreatePhotoImageFormat) /* 40 */ -#endif -#ifndef Tk_CreateSelHandler -#define Tk_CreateSelHandler \ - (tkStubsPtr->tk_CreateSelHandler) /* 41 */ -#endif -#ifndef Tk_CreateWindow -#define Tk_CreateWindow \ - (tkStubsPtr->tk_CreateWindow) /* 42 */ -#endif -#ifndef Tk_CreateWindowFromPath -#define Tk_CreateWindowFromPath \ - (tkStubsPtr->tk_CreateWindowFromPath) /* 43 */ -#endif -#ifndef Tk_DefineBitmap -#define Tk_DefineBitmap \ - (tkStubsPtr->tk_DefineBitmap) /* 44 */ -#endif -#ifndef Tk_DefineCursor -#define Tk_DefineCursor \ - (tkStubsPtr->tk_DefineCursor) /* 45 */ -#endif -#ifndef Tk_DeleteAllBindings -#define Tk_DeleteAllBindings \ - (tkStubsPtr->tk_DeleteAllBindings) /* 46 */ -#endif -#ifndef Tk_DeleteBinding -#define Tk_DeleteBinding \ - (tkStubsPtr->tk_DeleteBinding) /* 47 */ -#endif -#ifndef Tk_DeleteBindingTable -#define Tk_DeleteBindingTable \ - (tkStubsPtr->tk_DeleteBindingTable) /* 48 */ -#endif -#ifndef Tk_DeleteErrorHandler -#define Tk_DeleteErrorHandler \ - (tkStubsPtr->tk_DeleteErrorHandler) /* 49 */ -#endif -#ifndef Tk_DeleteEventHandler -#define Tk_DeleteEventHandler \ - (tkStubsPtr->tk_DeleteEventHandler) /* 50 */ -#endif -#ifndef Tk_DeleteGenericHandler -#define Tk_DeleteGenericHandler \ - (tkStubsPtr->tk_DeleteGenericHandler) /* 51 */ -#endif -#ifndef Tk_DeleteImage -#define Tk_DeleteImage \ - (tkStubsPtr->tk_DeleteImage) /* 52 */ -#endif -#ifndef Tk_DeleteSelHandler -#define Tk_DeleteSelHandler \ - (tkStubsPtr->tk_DeleteSelHandler) /* 53 */ -#endif -#ifndef Tk_DestroyWindow -#define Tk_DestroyWindow \ - (tkStubsPtr->tk_DestroyWindow) /* 54 */ -#endif -#ifndef Tk_DisplayName -#define Tk_DisplayName \ - (tkStubsPtr->tk_DisplayName) /* 55 */ -#endif -#ifndef Tk_DistanceToTextLayout -#define Tk_DistanceToTextLayout \ - (tkStubsPtr->tk_DistanceToTextLayout) /* 56 */ -#endif -#ifndef Tk_Draw3DPolygon -#define Tk_Draw3DPolygon \ - (tkStubsPtr->tk_Draw3DPolygon) /* 57 */ -#endif -#ifndef Tk_Draw3DRectangle -#define Tk_Draw3DRectangle \ - (tkStubsPtr->tk_Draw3DRectangle) /* 58 */ -#endif -#ifndef Tk_DrawChars -#define Tk_DrawChars \ - (tkStubsPtr->tk_DrawChars) /* 59 */ -#endif -#ifndef Tk_DrawFocusHighlight -#define Tk_DrawFocusHighlight \ - (tkStubsPtr->tk_DrawFocusHighlight) /* 60 */ -#endif -#ifndef Tk_DrawTextLayout -#define Tk_DrawTextLayout \ - (tkStubsPtr->tk_DrawTextLayout) /* 61 */ -#endif -#ifndef Tk_Fill3DPolygon -#define Tk_Fill3DPolygon \ - (tkStubsPtr->tk_Fill3DPolygon) /* 62 */ -#endif -#ifndef Tk_Fill3DRectangle -#define Tk_Fill3DRectangle \ - (tkStubsPtr->tk_Fill3DRectangle) /* 63 */ -#endif -#ifndef Tk_FindPhoto -#define Tk_FindPhoto \ - (tkStubsPtr->tk_FindPhoto) /* 64 */ -#endif -#ifndef Tk_FontId -#define Tk_FontId \ - (tkStubsPtr->tk_FontId) /* 65 */ -#endif -#ifndef Tk_Free3DBorder -#define Tk_Free3DBorder \ - (tkStubsPtr->tk_Free3DBorder) /* 66 */ -#endif -#ifndef Tk_FreeBitmap -#define Tk_FreeBitmap \ - (tkStubsPtr->tk_FreeBitmap) /* 67 */ -#endif -#ifndef Tk_FreeColor -#define Tk_FreeColor \ - (tkStubsPtr->tk_FreeColor) /* 68 */ -#endif -#ifndef Tk_FreeColormap -#define Tk_FreeColormap \ - (tkStubsPtr->tk_FreeColormap) /* 69 */ -#endif -#ifndef Tk_FreeCursor -#define Tk_FreeCursor \ - (tkStubsPtr->tk_FreeCursor) /* 70 */ -#endif -#ifndef Tk_FreeFont -#define Tk_FreeFont \ - (tkStubsPtr->tk_FreeFont) /* 71 */ -#endif -#ifndef Tk_FreeGC -#define Tk_FreeGC \ - (tkStubsPtr->tk_FreeGC) /* 72 */ -#endif -#ifndef Tk_FreeImage -#define Tk_FreeImage \ - (tkStubsPtr->tk_FreeImage) /* 73 */ -#endif -#ifndef Tk_FreeOptions -#define Tk_FreeOptions \ - (tkStubsPtr->tk_FreeOptions) /* 74 */ -#endif -#ifndef Tk_FreePixmap -#define Tk_FreePixmap \ - (tkStubsPtr->tk_FreePixmap) /* 75 */ -#endif -#ifndef Tk_FreeTextLayout -#define Tk_FreeTextLayout \ - (tkStubsPtr->tk_FreeTextLayout) /* 76 */ -#endif -#ifndef Tk_FreeXId -#define Tk_FreeXId \ - (tkStubsPtr->tk_FreeXId) /* 77 */ -#endif -#ifndef Tk_GCForColor -#define Tk_GCForColor \ - (tkStubsPtr->tk_GCForColor) /* 78 */ -#endif -#ifndef Tk_GeometryRequest -#define Tk_GeometryRequest \ - (tkStubsPtr->tk_GeometryRequest) /* 79 */ -#endif -#ifndef Tk_Get3DBorder -#define Tk_Get3DBorder \ - (tkStubsPtr->tk_Get3DBorder) /* 80 */ -#endif -#ifndef Tk_GetAllBindings -#define Tk_GetAllBindings \ - (tkStubsPtr->tk_GetAllBindings) /* 81 */ -#endif -#ifndef Tk_GetAnchor -#define Tk_GetAnchor \ - (tkStubsPtr->tk_GetAnchor) /* 82 */ -#endif -#ifndef Tk_GetAtomName -#define Tk_GetAtomName \ - (tkStubsPtr->tk_GetAtomName) /* 83 */ -#endif -#ifndef Tk_GetBinding -#define Tk_GetBinding \ - (tkStubsPtr->tk_GetBinding) /* 84 */ -#endif -#ifndef Tk_GetBitmap -#define Tk_GetBitmap \ - (tkStubsPtr->tk_GetBitmap) /* 85 */ -#endif -#ifndef Tk_GetBitmapFromData -#define Tk_GetBitmapFromData \ - (tkStubsPtr->tk_GetBitmapFromData) /* 86 */ -#endif -#ifndef Tk_GetCapStyle -#define Tk_GetCapStyle \ - (tkStubsPtr->tk_GetCapStyle) /* 87 */ -#endif -#ifndef Tk_GetColor -#define Tk_GetColor \ - (tkStubsPtr->tk_GetColor) /* 88 */ -#endif -#ifndef Tk_GetColorByValue -#define Tk_GetColorByValue \ - (tkStubsPtr->tk_GetColorByValue) /* 89 */ -#endif -#ifndef Tk_GetColormap -#define Tk_GetColormap \ - (tkStubsPtr->tk_GetColormap) /* 90 */ -#endif -#ifndef Tk_GetCursor -#define Tk_GetCursor \ - (tkStubsPtr->tk_GetCursor) /* 91 */ -#endif -#ifndef Tk_GetCursorFromData -#define Tk_GetCursorFromData \ - (tkStubsPtr->tk_GetCursorFromData) /* 92 */ -#endif -#ifndef Tk_GetFont -#define Tk_GetFont \ - (tkStubsPtr->tk_GetFont) /* 93 */ -#endif -#ifndef Tk_GetFontFromObj -#define Tk_GetFontFromObj \ - (tkStubsPtr->tk_GetFontFromObj) /* 94 */ -#endif -#ifndef Tk_GetFontMetrics -#define Tk_GetFontMetrics \ - (tkStubsPtr->tk_GetFontMetrics) /* 95 */ -#endif -#ifndef Tk_GetGC -#define Tk_GetGC \ - (tkStubsPtr->tk_GetGC) /* 96 */ -#endif -#ifndef Tk_GetImage -#define Tk_GetImage \ - (tkStubsPtr->tk_GetImage) /* 97 */ -#endif -#ifndef Tk_GetImageMasterData -#define Tk_GetImageMasterData \ - (tkStubsPtr->tk_GetImageMasterData) /* 98 */ -#endif -#ifndef Tk_GetItemTypes -#define Tk_GetItemTypes \ - (tkStubsPtr->tk_GetItemTypes) /* 99 */ -#endif -#ifndef Tk_GetJoinStyle -#define Tk_GetJoinStyle \ - (tkStubsPtr->tk_GetJoinStyle) /* 100 */ -#endif -#ifndef Tk_GetJustify -#define Tk_GetJustify \ - (tkStubsPtr->tk_GetJustify) /* 101 */ -#endif -#ifndef Tk_GetNumMainWindows -#define Tk_GetNumMainWindows \ - (tkStubsPtr->tk_GetNumMainWindows) /* 102 */ -#endif -#ifndef Tk_GetOption -#define Tk_GetOption \ - (tkStubsPtr->tk_GetOption) /* 103 */ -#endif -#ifndef Tk_GetPixels -#define Tk_GetPixels \ - (tkStubsPtr->tk_GetPixels) /* 104 */ -#endif -#ifndef Tk_GetPixmap -#define Tk_GetPixmap \ - (tkStubsPtr->tk_GetPixmap) /* 105 */ -#endif -#ifndef Tk_GetRelief -#define Tk_GetRelief \ - (tkStubsPtr->tk_GetRelief) /* 106 */ -#endif -#ifndef Tk_GetRootCoords -#define Tk_GetRootCoords \ - (tkStubsPtr->tk_GetRootCoords) /* 107 */ -#endif -#ifndef Tk_GetScrollInfo -#define Tk_GetScrollInfo \ - (tkStubsPtr->tk_GetScrollInfo) /* 108 */ -#endif -#ifndef Tk_GetScreenMM -#define Tk_GetScreenMM \ - (tkStubsPtr->tk_GetScreenMM) /* 109 */ -#endif -#ifndef Tk_GetSelection -#define Tk_GetSelection \ - (tkStubsPtr->tk_GetSelection) /* 110 */ -#endif -#ifndef Tk_GetUid -#define Tk_GetUid \ - (tkStubsPtr->tk_GetUid) /* 111 */ -#endif -#ifndef Tk_GetVisual -#define Tk_GetVisual \ - (tkStubsPtr->tk_GetVisual) /* 112 */ -#endif -#ifndef Tk_GetVRootGeometry -#define Tk_GetVRootGeometry \ - (tkStubsPtr->tk_GetVRootGeometry) /* 113 */ -#endif -#ifndef Tk_Grab -#define Tk_Grab \ - (tkStubsPtr->tk_Grab) /* 114 */ -#endif -#ifndef Tk_HandleEvent -#define Tk_HandleEvent \ - (tkStubsPtr->tk_HandleEvent) /* 115 */ -#endif -#ifndef Tk_IdToWindow -#define Tk_IdToWindow \ - (tkStubsPtr->tk_IdToWindow) /* 116 */ -#endif -#ifndef Tk_ImageChanged -#define Tk_ImageChanged \ - (tkStubsPtr->tk_ImageChanged) /* 117 */ -#endif -#ifndef Tk_Init -#define Tk_Init \ - (tkStubsPtr->tk_Init) /* 118 */ -#endif -#ifndef Tk_InternAtom -#define Tk_InternAtom \ - (tkStubsPtr->tk_InternAtom) /* 119 */ -#endif -#ifndef Tk_IntersectTextLayout -#define Tk_IntersectTextLayout \ - (tkStubsPtr->tk_IntersectTextLayout) /* 120 */ -#endif -#ifndef Tk_MaintainGeometry -#define Tk_MaintainGeometry \ - (tkStubsPtr->tk_MaintainGeometry) /* 121 */ -#endif -#ifndef Tk_MainWindow -#define Tk_MainWindow \ - (tkStubsPtr->tk_MainWindow) /* 122 */ -#endif -#ifndef Tk_MakeWindowExist -#define Tk_MakeWindowExist \ - (tkStubsPtr->tk_MakeWindowExist) /* 123 */ -#endif -#ifndef Tk_ManageGeometry -#define Tk_ManageGeometry \ - (tkStubsPtr->tk_ManageGeometry) /* 124 */ -#endif -#ifndef Tk_MapWindow -#define Tk_MapWindow \ - (tkStubsPtr->tk_MapWindow) /* 125 */ -#endif -#ifndef Tk_MeasureChars -#define Tk_MeasureChars \ - (tkStubsPtr->tk_MeasureChars) /* 126 */ -#endif -#ifndef Tk_MoveResizeWindow -#define Tk_MoveResizeWindow \ - (tkStubsPtr->tk_MoveResizeWindow) /* 127 */ -#endif -#ifndef Tk_MoveWindow -#define Tk_MoveWindow \ - (tkStubsPtr->tk_MoveWindow) /* 128 */ -#endif -#ifndef Tk_MoveToplevelWindow -#define Tk_MoveToplevelWindow \ - (tkStubsPtr->tk_MoveToplevelWindow) /* 129 */ -#endif -#ifndef Tk_NameOf3DBorder -#define Tk_NameOf3DBorder \ - (tkStubsPtr->tk_NameOf3DBorder) /* 130 */ -#endif -#ifndef Tk_NameOfAnchor -#define Tk_NameOfAnchor \ - (tkStubsPtr->tk_NameOfAnchor) /* 131 */ -#endif -#ifndef Tk_NameOfBitmap -#define Tk_NameOfBitmap \ - (tkStubsPtr->tk_NameOfBitmap) /* 132 */ -#endif -#ifndef Tk_NameOfCapStyle -#define Tk_NameOfCapStyle \ - (tkStubsPtr->tk_NameOfCapStyle) /* 133 */ -#endif -#ifndef Tk_NameOfColor -#define Tk_NameOfColor \ - (tkStubsPtr->tk_NameOfColor) /* 134 */ -#endif -#ifndef Tk_NameOfCursor -#define Tk_NameOfCursor \ - (tkStubsPtr->tk_NameOfCursor) /* 135 */ -#endif -#ifndef Tk_NameOfFont -#define Tk_NameOfFont \ - (tkStubsPtr->tk_NameOfFont) /* 136 */ -#endif -#ifndef Tk_NameOfImage -#define Tk_NameOfImage \ - (tkStubsPtr->tk_NameOfImage) /* 137 */ -#endif -#ifndef Tk_NameOfJoinStyle -#define Tk_NameOfJoinStyle \ - (tkStubsPtr->tk_NameOfJoinStyle) /* 138 */ -#endif -#ifndef Tk_NameOfJustify -#define Tk_NameOfJustify \ - (tkStubsPtr->tk_NameOfJustify) /* 139 */ -#endif -#ifndef Tk_NameOfRelief -#define Tk_NameOfRelief \ - (tkStubsPtr->tk_NameOfRelief) /* 140 */ -#endif -#ifndef Tk_NameToWindow -#define Tk_NameToWindow \ - (tkStubsPtr->tk_NameToWindow) /* 141 */ -#endif -#ifndef Tk_OwnSelection -#define Tk_OwnSelection \ - (tkStubsPtr->tk_OwnSelection) /* 142 */ -#endif -#ifndef Tk_ParseArgv -#define Tk_ParseArgv \ - (tkStubsPtr->tk_ParseArgv) /* 143 */ -#endif -#ifndef Tk_PhotoPutBlock_NoComposite -#define Tk_PhotoPutBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutBlock_NoComposite) /* 144 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock_NoComposite -#define Tk_PhotoPutZoomedBlock_NoComposite \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_NoComposite) /* 145 */ -#endif -#ifndef Tk_PhotoGetImage -#define Tk_PhotoGetImage \ - (tkStubsPtr->tk_PhotoGetImage) /* 146 */ -#endif -#ifndef Tk_PhotoBlank -#define Tk_PhotoBlank \ - (tkStubsPtr->tk_PhotoBlank) /* 147 */ -#endif -#ifndef Tk_PhotoExpand_Panic -#define Tk_PhotoExpand_Panic \ - (tkStubsPtr->tk_PhotoExpand_Panic) /* 148 */ -#endif -#ifndef Tk_PhotoGetSize -#define Tk_PhotoGetSize \ - (tkStubsPtr->tk_PhotoGetSize) /* 149 */ -#endif -#ifndef Tk_PhotoSetSize_Panic -#define Tk_PhotoSetSize_Panic \ - (tkStubsPtr->tk_PhotoSetSize_Panic) /* 150 */ -#endif -#ifndef Tk_PointToChar -#define Tk_PointToChar \ - (tkStubsPtr->tk_PointToChar) /* 151 */ -#endif -#ifndef Tk_PostscriptFontName -#define Tk_PostscriptFontName \ - (tkStubsPtr->tk_PostscriptFontName) /* 152 */ -#endif -#ifndef Tk_PreserveColormap -#define Tk_PreserveColormap \ - (tkStubsPtr->tk_PreserveColormap) /* 153 */ -#endif -#ifndef Tk_QueueWindowEvent -#define Tk_QueueWindowEvent \ - (tkStubsPtr->tk_QueueWindowEvent) /* 154 */ -#endif -#ifndef Tk_RedrawImage -#define Tk_RedrawImage \ - (tkStubsPtr->tk_RedrawImage) /* 155 */ -#endif -#ifndef Tk_ResizeWindow -#define Tk_ResizeWindow \ - (tkStubsPtr->tk_ResizeWindow) /* 156 */ -#endif -#ifndef Tk_RestackWindow -#define Tk_RestackWindow \ - (tkStubsPtr->tk_RestackWindow) /* 157 */ -#endif -#ifndef Tk_RestrictEvents -#define Tk_RestrictEvents \ - (tkStubsPtr->tk_RestrictEvents) /* 158 */ -#endif -#ifndef Tk_SafeInit -#define Tk_SafeInit \ - (tkStubsPtr->tk_SafeInit) /* 159 */ -#endif -#ifndef Tk_SetAppName -#define Tk_SetAppName \ - (tkStubsPtr->tk_SetAppName) /* 160 */ -#endif -#ifndef Tk_SetBackgroundFromBorder -#define Tk_SetBackgroundFromBorder \ - (tkStubsPtr->tk_SetBackgroundFromBorder) /* 161 */ -#endif -#ifndef Tk_SetClass -#define Tk_SetClass \ - (tkStubsPtr->tk_SetClass) /* 162 */ -#endif -#ifndef Tk_SetGrid -#define Tk_SetGrid \ - (tkStubsPtr->tk_SetGrid) /* 163 */ -#endif -#ifndef Tk_SetInternalBorder -#define Tk_SetInternalBorder \ - (tkStubsPtr->tk_SetInternalBorder) /* 164 */ -#endif -#ifndef Tk_SetWindowBackground -#define Tk_SetWindowBackground \ - (tkStubsPtr->tk_SetWindowBackground) /* 165 */ -#endif -#ifndef Tk_SetWindowBackgroundPixmap -#define Tk_SetWindowBackgroundPixmap \ - (tkStubsPtr->tk_SetWindowBackgroundPixmap) /* 166 */ -#endif -#ifndef Tk_SetWindowBorder -#define Tk_SetWindowBorder \ - (tkStubsPtr->tk_SetWindowBorder) /* 167 */ -#endif -#ifndef Tk_SetWindowBorderWidth -#define Tk_SetWindowBorderWidth \ - (tkStubsPtr->tk_SetWindowBorderWidth) /* 168 */ -#endif -#ifndef Tk_SetWindowBorderPixmap -#define Tk_SetWindowBorderPixmap \ - (tkStubsPtr->tk_SetWindowBorderPixmap) /* 169 */ -#endif -#ifndef Tk_SetWindowColormap -#define Tk_SetWindowColormap \ - (tkStubsPtr->tk_SetWindowColormap) /* 170 */ -#endif -#ifndef Tk_SetWindowVisual -#define Tk_SetWindowVisual \ - (tkStubsPtr->tk_SetWindowVisual) /* 171 */ -#endif -#ifndef Tk_SizeOfBitmap -#define Tk_SizeOfBitmap \ - (tkStubsPtr->tk_SizeOfBitmap) /* 172 */ -#endif -#ifndef Tk_SizeOfImage -#define Tk_SizeOfImage \ - (tkStubsPtr->tk_SizeOfImage) /* 173 */ -#endif -#ifndef Tk_StrictMotif -#define Tk_StrictMotif \ - (tkStubsPtr->tk_StrictMotif) /* 174 */ -#endif -#ifndef Tk_TextLayoutToPostscript -#define Tk_TextLayoutToPostscript \ - (tkStubsPtr->tk_TextLayoutToPostscript) /* 175 */ -#endif -#ifndef Tk_TextWidth -#define Tk_TextWidth \ - (tkStubsPtr->tk_TextWidth) /* 176 */ -#endif -#ifndef Tk_UndefineCursor -#define Tk_UndefineCursor \ - (tkStubsPtr->tk_UndefineCursor) /* 177 */ -#endif -#ifndef Tk_UnderlineChars -#define Tk_UnderlineChars \ - (tkStubsPtr->tk_UnderlineChars) /* 178 */ -#endif -#ifndef Tk_UnderlineTextLayout -#define Tk_UnderlineTextLayout \ - (tkStubsPtr->tk_UnderlineTextLayout) /* 179 */ -#endif -#ifndef Tk_Ungrab -#define Tk_Ungrab \ - (tkStubsPtr->tk_Ungrab) /* 180 */ -#endif -#ifndef Tk_UnmaintainGeometry -#define Tk_UnmaintainGeometry \ - (tkStubsPtr->tk_UnmaintainGeometry) /* 181 */ -#endif -#ifndef Tk_UnmapWindow -#define Tk_UnmapWindow \ - (tkStubsPtr->tk_UnmapWindow) /* 182 */ -#endif -#ifndef Tk_UnsetGrid -#define Tk_UnsetGrid \ - (tkStubsPtr->tk_UnsetGrid) /* 183 */ -#endif -#ifndef Tk_UpdatePointer -#define Tk_UpdatePointer \ - (tkStubsPtr->tk_UpdatePointer) /* 184 */ -#endif -#ifndef Tk_AllocBitmapFromObj -#define Tk_AllocBitmapFromObj \ - (tkStubsPtr->tk_AllocBitmapFromObj) /* 185 */ -#endif -#ifndef Tk_Alloc3DBorderFromObj -#define Tk_Alloc3DBorderFromObj \ - (tkStubsPtr->tk_Alloc3DBorderFromObj) /* 186 */ -#endif -#ifndef Tk_AllocColorFromObj -#define Tk_AllocColorFromObj \ - (tkStubsPtr->tk_AllocColorFromObj) /* 187 */ -#endif -#ifndef Tk_AllocCursorFromObj -#define Tk_AllocCursorFromObj \ - (tkStubsPtr->tk_AllocCursorFromObj) /* 188 */ -#endif -#ifndef Tk_AllocFontFromObj -#define Tk_AllocFontFromObj \ - (tkStubsPtr->tk_AllocFontFromObj) /* 189 */ -#endif -#ifndef Tk_CreateOptionTable -#define Tk_CreateOptionTable \ - (tkStubsPtr->tk_CreateOptionTable) /* 190 */ -#endif -#ifndef Tk_DeleteOptionTable -#define Tk_DeleteOptionTable \ - (tkStubsPtr->tk_DeleteOptionTable) /* 191 */ -#endif -#ifndef Tk_Free3DBorderFromObj -#define Tk_Free3DBorderFromObj \ - (tkStubsPtr->tk_Free3DBorderFromObj) /* 192 */ -#endif -#ifndef Tk_FreeBitmapFromObj -#define Tk_FreeBitmapFromObj \ - (tkStubsPtr->tk_FreeBitmapFromObj) /* 193 */ -#endif -#ifndef Tk_FreeColorFromObj -#define Tk_FreeColorFromObj \ - (tkStubsPtr->tk_FreeColorFromObj) /* 194 */ -#endif -#ifndef Tk_FreeConfigOptions -#define Tk_FreeConfigOptions \ - (tkStubsPtr->tk_FreeConfigOptions) /* 195 */ -#endif -#ifndef Tk_FreeSavedOptions -#define Tk_FreeSavedOptions \ - (tkStubsPtr->tk_FreeSavedOptions) /* 196 */ -#endif -#ifndef Tk_FreeCursorFromObj -#define Tk_FreeCursorFromObj \ - (tkStubsPtr->tk_FreeCursorFromObj) /* 197 */ -#endif -#ifndef Tk_FreeFontFromObj -#define Tk_FreeFontFromObj \ - (tkStubsPtr->tk_FreeFontFromObj) /* 198 */ -#endif -#ifndef Tk_Get3DBorderFromObj -#define Tk_Get3DBorderFromObj \ - (tkStubsPtr->tk_Get3DBorderFromObj) /* 199 */ -#endif -#ifndef Tk_GetAnchorFromObj -#define Tk_GetAnchorFromObj \ - (tkStubsPtr->tk_GetAnchorFromObj) /* 200 */ -#endif -#ifndef Tk_GetBitmapFromObj -#define Tk_GetBitmapFromObj \ - (tkStubsPtr->tk_GetBitmapFromObj) /* 201 */ -#endif -#ifndef Tk_GetColorFromObj -#define Tk_GetColorFromObj \ - (tkStubsPtr->tk_GetColorFromObj) /* 202 */ -#endif -#ifndef Tk_GetCursorFromObj -#define Tk_GetCursorFromObj \ - (tkStubsPtr->tk_GetCursorFromObj) /* 203 */ -#endif -#ifndef Tk_GetOptionInfo -#define Tk_GetOptionInfo \ - (tkStubsPtr->tk_GetOptionInfo) /* 204 */ -#endif -#ifndef Tk_GetOptionValue -#define Tk_GetOptionValue \ - (tkStubsPtr->tk_GetOptionValue) /* 205 */ -#endif -#ifndef Tk_GetJustifyFromObj -#define Tk_GetJustifyFromObj \ - (tkStubsPtr->tk_GetJustifyFromObj) /* 206 */ -#endif -#ifndef Tk_GetMMFromObj -#define Tk_GetMMFromObj \ - (tkStubsPtr->tk_GetMMFromObj) /* 207 */ -#endif -#ifndef Tk_GetPixelsFromObj -#define Tk_GetPixelsFromObj \ - (tkStubsPtr->tk_GetPixelsFromObj) /* 208 */ -#endif -#ifndef Tk_GetReliefFromObj -#define Tk_GetReliefFromObj \ - (tkStubsPtr->tk_GetReliefFromObj) /* 209 */ -#endif -#ifndef Tk_GetScrollInfoObj -#define Tk_GetScrollInfoObj \ - (tkStubsPtr->tk_GetScrollInfoObj) /* 210 */ -#endif -#ifndef Tk_InitOptions -#define Tk_InitOptions \ - (tkStubsPtr->tk_InitOptions) /* 211 */ -#endif -#ifndef Tk_MainEx -#define Tk_MainEx \ - (tkStubsPtr->tk_MainEx) /* 212 */ -#endif -#ifndef Tk_RestoreSavedOptions -#define Tk_RestoreSavedOptions \ - (tkStubsPtr->tk_RestoreSavedOptions) /* 213 */ -#endif -#ifndef Tk_SetOptions -#define Tk_SetOptions \ - (tkStubsPtr->tk_SetOptions) /* 214 */ -#endif -#ifndef Tk_InitConsoleChannels -#define Tk_InitConsoleChannels \ - (tkStubsPtr->tk_InitConsoleChannels) /* 215 */ -#endif -#ifndef Tk_CreateConsoleWindow -#define Tk_CreateConsoleWindow \ - (tkStubsPtr->tk_CreateConsoleWindow) /* 216 */ -#endif -#ifndef Tk_CreateSmoothMethod -#define Tk_CreateSmoothMethod \ - (tkStubsPtr->tk_CreateSmoothMethod) /* 217 */ -#endif -/* Slot 218 is reserved */ -/* Slot 219 is reserved */ -#ifndef Tk_GetDash -#define Tk_GetDash \ - (tkStubsPtr->tk_GetDash) /* 220 */ -#endif -#ifndef Tk_CreateOutline -#define Tk_CreateOutline \ - (tkStubsPtr->tk_CreateOutline) /* 221 */ -#endif -#ifndef Tk_DeleteOutline -#define Tk_DeleteOutline \ - (tkStubsPtr->tk_DeleteOutline) /* 222 */ -#endif -#ifndef Tk_ConfigOutlineGC -#define Tk_ConfigOutlineGC \ - (tkStubsPtr->tk_ConfigOutlineGC) /* 223 */ -#endif -#ifndef Tk_ChangeOutlineGC -#define Tk_ChangeOutlineGC \ - (tkStubsPtr->tk_ChangeOutlineGC) /* 224 */ -#endif -#ifndef Tk_ResetOutlineGC -#define Tk_ResetOutlineGC \ - (tkStubsPtr->tk_ResetOutlineGC) /* 225 */ -#endif -#ifndef Tk_CanvasPsOutline -#define Tk_CanvasPsOutline \ - (tkStubsPtr->tk_CanvasPsOutline) /* 226 */ -#endif -#ifndef Tk_SetTSOrigin -#define Tk_SetTSOrigin \ - (tkStubsPtr->tk_SetTSOrigin) /* 227 */ -#endif -#ifndef Tk_CanvasGetCoordFromObj -#define Tk_CanvasGetCoordFromObj \ - (tkStubsPtr->tk_CanvasGetCoordFromObj) /* 228 */ -#endif -#ifndef Tk_CanvasSetOffset -#define Tk_CanvasSetOffset \ - (tkStubsPtr->tk_CanvasSetOffset) /* 229 */ -#endif -#ifndef Tk_DitherPhoto -#define Tk_DitherPhoto \ - (tkStubsPtr->tk_DitherPhoto) /* 230 */ -#endif -#ifndef Tk_PostscriptBitmap -#define Tk_PostscriptBitmap \ - (tkStubsPtr->tk_PostscriptBitmap) /* 231 */ -#endif -#ifndef Tk_PostscriptColor -#define Tk_PostscriptColor \ - (tkStubsPtr->tk_PostscriptColor) /* 232 */ -#endif -#ifndef Tk_PostscriptFont -#define Tk_PostscriptFont \ - (tkStubsPtr->tk_PostscriptFont) /* 233 */ -#endif -#ifndef Tk_PostscriptImage -#define Tk_PostscriptImage \ - (tkStubsPtr->tk_PostscriptImage) /* 234 */ -#endif -#ifndef Tk_PostscriptPath -#define Tk_PostscriptPath \ - (tkStubsPtr->tk_PostscriptPath) /* 235 */ -#endif -#ifndef Tk_PostscriptStipple -#define Tk_PostscriptStipple \ - (tkStubsPtr->tk_PostscriptStipple) /* 236 */ -#endif -#ifndef Tk_PostscriptY -#define Tk_PostscriptY \ - (tkStubsPtr->tk_PostscriptY) /* 237 */ -#endif -#ifndef Tk_PostscriptPhoto -#define Tk_PostscriptPhoto \ - (tkStubsPtr->tk_PostscriptPhoto) /* 238 */ -#endif -#ifndef Tk_CreateClientMessageHandler -#define Tk_CreateClientMessageHandler \ - (tkStubsPtr->tk_CreateClientMessageHandler) /* 239 */ -#endif -#ifndef Tk_DeleteClientMessageHandler -#define Tk_DeleteClientMessageHandler \ - (tkStubsPtr->tk_DeleteClientMessageHandler) /* 240 */ -#endif -#ifndef Tk_CreateAnonymousWindow -#define Tk_CreateAnonymousWindow \ - (tkStubsPtr->tk_CreateAnonymousWindow) /* 241 */ -#endif -#ifndef Tk_SetClassProcs -#define Tk_SetClassProcs \ - (tkStubsPtr->tk_SetClassProcs) /* 242 */ -#endif -#ifndef Tk_SetInternalBorderEx -#define Tk_SetInternalBorderEx \ - (tkStubsPtr->tk_SetInternalBorderEx) /* 243 */ -#endif -#ifndef Tk_SetMinimumRequestSize -#define Tk_SetMinimumRequestSize \ - (tkStubsPtr->tk_SetMinimumRequestSize) /* 244 */ -#endif -#ifndef Tk_SetCaretPos -#define Tk_SetCaretPos \ - (tkStubsPtr->tk_SetCaretPos) /* 245 */ -#endif -#ifndef Tk_PhotoPutBlock_Panic -#define Tk_PhotoPutBlock_Panic \ - (tkStubsPtr->tk_PhotoPutBlock_Panic) /* 246 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock_Panic -#define Tk_PhotoPutZoomedBlock_Panic \ - (tkStubsPtr->tk_PhotoPutZoomedBlock_Panic) /* 247 */ -#endif -#ifndef Tk_CollapseMotionEvents -#define Tk_CollapseMotionEvents \ - (tkStubsPtr->tk_CollapseMotionEvents) /* 248 */ -#endif -#ifndef Tk_RegisterStyleEngine -#define Tk_RegisterStyleEngine \ - (tkStubsPtr->tk_RegisterStyleEngine) /* 249 */ -#endif -#ifndef Tk_GetStyleEngine -#define Tk_GetStyleEngine \ - (tkStubsPtr->tk_GetStyleEngine) /* 250 */ -#endif -#ifndef Tk_RegisterStyledElement -#define Tk_RegisterStyledElement \ - (tkStubsPtr->tk_RegisterStyledElement) /* 251 */ -#endif -#ifndef Tk_GetElementId -#define Tk_GetElementId \ - (tkStubsPtr->tk_GetElementId) /* 252 */ -#endif -#ifndef Tk_CreateStyle -#define Tk_CreateStyle \ - (tkStubsPtr->tk_CreateStyle) /* 253 */ -#endif -#ifndef Tk_GetStyle -#define Tk_GetStyle \ - (tkStubsPtr->tk_GetStyle) /* 254 */ -#endif -#ifndef Tk_FreeStyle -#define Tk_FreeStyle \ - (tkStubsPtr->tk_FreeStyle) /* 255 */ -#endif -#ifndef Tk_NameOfStyle -#define Tk_NameOfStyle \ - (tkStubsPtr->tk_NameOfStyle) /* 256 */ -#endif -#ifndef Tk_AllocStyleFromObj -#define Tk_AllocStyleFromObj \ - (tkStubsPtr->tk_AllocStyleFromObj) /* 257 */ -#endif -#ifndef Tk_GetStyleFromObj -#define Tk_GetStyleFromObj \ - (tkStubsPtr->tk_GetStyleFromObj) /* 258 */ -#endif -#ifndef Tk_FreeStyleFromObj -#define Tk_FreeStyleFromObj \ - (tkStubsPtr->tk_FreeStyleFromObj) /* 259 */ -#endif -#ifndef Tk_GetStyledElement -#define Tk_GetStyledElement \ - (tkStubsPtr->tk_GetStyledElement) /* 260 */ -#endif -#ifndef Tk_GetElementSize -#define Tk_GetElementSize \ - (tkStubsPtr->tk_GetElementSize) /* 261 */ -#endif -#ifndef Tk_GetElementBox -#define Tk_GetElementBox \ - (tkStubsPtr->tk_GetElementBox) /* 262 */ -#endif -#ifndef Tk_GetElementBorderWidth -#define Tk_GetElementBorderWidth \ - (tkStubsPtr->tk_GetElementBorderWidth) /* 263 */ -#endif -#ifndef Tk_DrawElement -#define Tk_DrawElement \ - (tkStubsPtr->tk_DrawElement) /* 264 */ -#endif -#ifndef Tk_PhotoExpand -#define Tk_PhotoExpand \ - (tkStubsPtr->tk_PhotoExpand) /* 265 */ -#endif -#ifndef Tk_PhotoPutBlock -#define Tk_PhotoPutBlock \ - (tkStubsPtr->tk_PhotoPutBlock) /* 266 */ -#endif -#ifndef Tk_PhotoPutZoomedBlock -#define Tk_PhotoPutZoomedBlock \ - (tkStubsPtr->tk_PhotoPutZoomedBlock) /* 267 */ -#endif -#ifndef Tk_PhotoSetSize -#define Tk_PhotoSetSize \ - (tkStubsPtr->tk_PhotoSetSize) /* 268 */ -#endif -#ifndef Tk_GetUserInactiveTime -#define Tk_GetUserInactiveTime \ - (tkStubsPtr->tk_GetUserInactiveTime) /* 269 */ -#endif -#ifndef Tk_ResetUserInactiveTime -#define Tk_ResetUserInactiveTime \ - (tkStubsPtr->tk_ResetUserInactiveTime) /* 270 */ -#endif -#ifndef Tk_Interp -#define Tk_Interp \ - (tkStubsPtr->tk_Interp) /* 271 */ -#endif -#ifndef Tk_CreateOldImageType -#define Tk_CreateOldImageType \ - (tkStubsPtr->tk_CreateOldImageType) /* 272 */ -#endif -#ifndef Tk_CreateOldPhotoImageFormat -#define Tk_CreateOldPhotoImageFormat \ - (tkStubsPtr->tk_CreateOldPhotoImageFormat) /* 273 */ -#endif - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKDECLS */ - diff --git a/mingw/include/tkIntXlibDecls.h b/mingw/include/tkIntXlibDecls.h deleted file mode 100644 index aadd545380..0000000000 --- a/mingw/include/tkIntXlibDecls.h +++ /dev/null @@ -1,2241 +0,0 @@ -/* - * tkIntXlibDecls.h -- - * - * This file contains the declarations for all platform dependent - * unsupported functions that are exported by the Tk library. These - * interfaces are not guaranteed to remain the same between - * versions. Use at your own risk. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - * - * RCS: @(#) $Id: tkIntXlibDecls.h,v 1.23 2007/12/13 15:24:15 dgp Exp $ - */ - -#ifndef _TKINTXLIBDECLS -#define _TKINTXLIBDECLS - -#include "X11/Xutil.h" - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tkInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#ifdef __WIN32__ /* WIN */ -#ifndef XSetDashes_TCL_DECLARED -#define XSetDashes_TCL_DECLARED -/* 0 */ -EXTERN void XSetDashes (Display * display, GC gc, - int dash_offset, _Xconst char * dash_list, - int n); -#endif -#ifndef XGetModifierMapping_TCL_DECLARED -#define XGetModifierMapping_TCL_DECLARED -/* 1 */ -EXTERN XModifierKeymap * XGetModifierMapping (Display * d); -#endif -#ifndef XCreateImage_TCL_DECLARED -#define XCreateImage_TCL_DECLARED -/* 2 */ -EXTERN XImage * XCreateImage (Display * d, Visual * v, - unsigned int ui1, int i1, int i2, char * cp, - unsigned int ui2, unsigned int ui3, int i3, - int i4); -#endif -#ifndef XGetImage_TCL_DECLARED -#define XGetImage_TCL_DECLARED -/* 3 */ -EXTERN XImage * XGetImage (Display * d, Drawable dr, int i1, int i2, - unsigned int ui1, unsigned int ui2, - unsigned long ul, int i3); -#endif -#ifndef XGetAtomName_TCL_DECLARED -#define XGetAtomName_TCL_DECLARED -/* 4 */ -EXTERN char * XGetAtomName (Display * d, Atom a); -#endif -#ifndef XKeysymToString_TCL_DECLARED -#define XKeysymToString_TCL_DECLARED -/* 5 */ -EXTERN char * XKeysymToString (KeySym k); -#endif -#ifndef XCreateColormap_TCL_DECLARED -#define XCreateColormap_TCL_DECLARED -/* 6 */ -EXTERN Colormap XCreateColormap (Display * d, Window w, Visual * v, - int i); -#endif -#ifndef XCreatePixmapCursor_TCL_DECLARED -#define XCreatePixmapCursor_TCL_DECLARED -/* 7 */ -EXTERN Cursor XCreatePixmapCursor (Display * d, Pixmap p1, - Pixmap p2, XColor * x1, XColor * x2, - unsigned int ui1, unsigned int ui2); -#endif -#ifndef XCreateGlyphCursor_TCL_DECLARED -#define XCreateGlyphCursor_TCL_DECLARED -/* 8 */ -EXTERN Cursor XCreateGlyphCursor (Display * d, Font f1, Font f2, - unsigned int ui1, unsigned int ui2, - XColor * x1, XColor * x2); -#endif -#ifndef XGContextFromGC_TCL_DECLARED -#define XGContextFromGC_TCL_DECLARED -/* 9 */ -EXTERN GContext XGContextFromGC (GC g); -#endif -#ifndef XListHosts_TCL_DECLARED -#define XListHosts_TCL_DECLARED -/* 10 */ -EXTERN XHostAddress * XListHosts (Display * d, int * i, Bool * b); -#endif -#ifndef XKeycodeToKeysym_TCL_DECLARED -#define XKeycodeToKeysym_TCL_DECLARED -/* 11 */ -EXTERN KeySym XKeycodeToKeysym (Display * d, unsigned int k, int i); -#endif -#ifndef XStringToKeysym_TCL_DECLARED -#define XStringToKeysym_TCL_DECLARED -/* 12 */ -EXTERN KeySym XStringToKeysym (_Xconst char * c); -#endif -#ifndef XRootWindow_TCL_DECLARED -#define XRootWindow_TCL_DECLARED -/* 13 */ -EXTERN Window XRootWindow (Display * d, int i); -#endif -#ifndef XSetErrorHandler_TCL_DECLARED -#define XSetErrorHandler_TCL_DECLARED -/* 14 */ -EXTERN XErrorHandler XSetErrorHandler (XErrorHandler x); -#endif -#ifndef XIconifyWindow_TCL_DECLARED -#define XIconifyWindow_TCL_DECLARED -/* 15 */ -EXTERN Status XIconifyWindow (Display * d, Window w, int i); -#endif -#ifndef XWithdrawWindow_TCL_DECLARED -#define XWithdrawWindow_TCL_DECLARED -/* 16 */ -EXTERN Status XWithdrawWindow (Display * d, Window w, int i); -#endif -#ifndef XGetWMColormapWindows_TCL_DECLARED -#define XGetWMColormapWindows_TCL_DECLARED -/* 17 */ -EXTERN Status XGetWMColormapWindows (Display * d, Window w, - Window ** wpp, int * ip); -#endif -#ifndef XAllocColor_TCL_DECLARED -#define XAllocColor_TCL_DECLARED -/* 18 */ -EXTERN Status XAllocColor (Display * d, Colormap c, XColor * xp); -#endif -#ifndef XBell_TCL_DECLARED -#define XBell_TCL_DECLARED -/* 19 */ -EXTERN void XBell (Display * d, int i); -#endif -#ifndef XChangeProperty_TCL_DECLARED -#define XChangeProperty_TCL_DECLARED -/* 20 */ -EXTERN void XChangeProperty (Display * d, Window w, Atom a1, - Atom a2, int i1, int i2, - _Xconst unsigned char * c, int i3); -#endif -#ifndef XChangeWindowAttributes_TCL_DECLARED -#define XChangeWindowAttributes_TCL_DECLARED -/* 21 */ -EXTERN void XChangeWindowAttributes (Display * d, Window w, - unsigned long ul, XSetWindowAttributes * x); -#endif -#ifndef XClearWindow_TCL_DECLARED -#define XClearWindow_TCL_DECLARED -/* 22 */ -EXTERN void XClearWindow (Display * d, Window w); -#endif -#ifndef XConfigureWindow_TCL_DECLARED -#define XConfigureWindow_TCL_DECLARED -/* 23 */ -EXTERN void XConfigureWindow (Display * d, Window w, - unsigned int i, XWindowChanges * x); -#endif -#ifndef XCopyArea_TCL_DECLARED -#define XCopyArea_TCL_DECLARED -/* 24 */ -EXTERN void XCopyArea (Display * d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4); -#endif -#ifndef XCopyPlane_TCL_DECLARED -#define XCopyPlane_TCL_DECLARED -/* 25 */ -EXTERN void XCopyPlane (Display * d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4, - unsigned long ul); -#endif -#ifndef XCreateBitmapFromData_TCL_DECLARED -#define XCreateBitmapFromData_TCL_DECLARED -/* 26 */ -EXTERN Pixmap XCreateBitmapFromData (Display * display, Drawable d, - _Xconst char * data, unsigned int width, - unsigned int height); -#endif -#ifndef XDefineCursor_TCL_DECLARED -#define XDefineCursor_TCL_DECLARED -/* 27 */ -EXTERN void XDefineCursor (Display * d, Window w, Cursor c); -#endif -#ifndef XDeleteProperty_TCL_DECLARED -#define XDeleteProperty_TCL_DECLARED -/* 28 */ -EXTERN void XDeleteProperty (Display * d, Window w, Atom a); -#endif -#ifndef XDestroyWindow_TCL_DECLARED -#define XDestroyWindow_TCL_DECLARED -/* 29 */ -EXTERN void XDestroyWindow (Display * d, Window w); -#endif -#ifndef XDrawArc_TCL_DECLARED -#define XDrawArc_TCL_DECLARED -/* 30 */ -EXTERN void XDrawArc (Display * d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XDrawLines_TCL_DECLARED -#define XDrawLines_TCL_DECLARED -/* 31 */ -EXTERN void XDrawLines (Display * d, Drawable dr, GC g, - XPoint * x, int i1, int i2); -#endif -#ifndef XDrawRectangle_TCL_DECLARED -#define XDrawRectangle_TCL_DECLARED -/* 32 */ -EXTERN void XDrawRectangle (Display * d, Drawable dr, GC g, - int i1, int i2, unsigned int ui1, - unsigned int ui2); -#endif -#ifndef XFillArc_TCL_DECLARED -#define XFillArc_TCL_DECLARED -/* 33 */ -EXTERN void XFillArc (Display * d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XFillPolygon_TCL_DECLARED -#define XFillPolygon_TCL_DECLARED -/* 34 */ -EXTERN void XFillPolygon (Display * d, Drawable dr, GC g, - XPoint * x, int i1, int i2, int i3); -#endif -#ifndef XFillRectangles_TCL_DECLARED -#define XFillRectangles_TCL_DECLARED -/* 35 */ -EXTERN void XFillRectangles (Display * d, Drawable dr, GC g, - XRectangle * x, int i); -#endif -#ifndef XForceScreenSaver_TCL_DECLARED -#define XForceScreenSaver_TCL_DECLARED -/* 36 */ -EXTERN void XForceScreenSaver (Display * d, int i); -#endif -#ifndef XFreeColormap_TCL_DECLARED -#define XFreeColormap_TCL_DECLARED -/* 37 */ -EXTERN void XFreeColormap (Display * d, Colormap c); -#endif -#ifndef XFreeColors_TCL_DECLARED -#define XFreeColors_TCL_DECLARED -/* 38 */ -EXTERN void XFreeColors (Display * d, Colormap c, - unsigned long * ulp, int i, unsigned long ul); -#endif -#ifndef XFreeCursor_TCL_DECLARED -#define XFreeCursor_TCL_DECLARED -/* 39 */ -EXTERN void XFreeCursor (Display * d, Cursor c); -#endif -#ifndef XFreeModifiermap_TCL_DECLARED -#define XFreeModifiermap_TCL_DECLARED -/* 40 */ -EXTERN void XFreeModifiermap (XModifierKeymap * x); -#endif -#ifndef XGetGeometry_TCL_DECLARED -#define XGetGeometry_TCL_DECLARED -/* 41 */ -EXTERN Status XGetGeometry (Display * d, Drawable dr, Window * w, - int * i1, int * i2, unsigned int * ui1, - unsigned int * ui2, unsigned int * ui3, - unsigned int * ui4); -#endif -#ifndef XGetInputFocus_TCL_DECLARED -#define XGetInputFocus_TCL_DECLARED -/* 42 */ -EXTERN void XGetInputFocus (Display * d, Window * w, int * i); -#endif -#ifndef XGetWindowProperty_TCL_DECLARED -#define XGetWindowProperty_TCL_DECLARED -/* 43 */ -EXTERN int XGetWindowProperty (Display * d, Window w, Atom a1, - long l1, long l2, Bool b, Atom a2, Atom * ap, - int * ip, unsigned long * ulp1, - unsigned long * ulp2, unsigned char ** cpp); -#endif -#ifndef XGetWindowAttributes_TCL_DECLARED -#define XGetWindowAttributes_TCL_DECLARED -/* 44 */ -EXTERN Status XGetWindowAttributes (Display * d, Window w, - XWindowAttributes * x); -#endif -#ifndef XGrabKeyboard_TCL_DECLARED -#define XGrabKeyboard_TCL_DECLARED -/* 45 */ -EXTERN int XGrabKeyboard (Display * d, Window w, Bool b, int i1, - int i2, Time t); -#endif -#ifndef XGrabPointer_TCL_DECLARED -#define XGrabPointer_TCL_DECLARED -/* 46 */ -EXTERN int XGrabPointer (Display * d, Window w1, Bool b, - unsigned int ui, int i1, int i2, Window w2, - Cursor c, Time t); -#endif -#ifndef XKeysymToKeycode_TCL_DECLARED -#define XKeysymToKeycode_TCL_DECLARED -/* 47 */ -EXTERN KeyCode XKeysymToKeycode (Display * d, KeySym k); -#endif -#ifndef XLookupColor_TCL_DECLARED -#define XLookupColor_TCL_DECLARED -/* 48 */ -EXTERN Status XLookupColor (Display * d, Colormap c1, - _Xconst char * c2, XColor * x1, XColor * x2); -#endif -#ifndef XMapWindow_TCL_DECLARED -#define XMapWindow_TCL_DECLARED -/* 49 */ -EXTERN void XMapWindow (Display * d, Window w); -#endif -#ifndef XMoveResizeWindow_TCL_DECLARED -#define XMoveResizeWindow_TCL_DECLARED -/* 50 */ -EXTERN void XMoveResizeWindow (Display * d, Window w, int i1, - int i2, unsigned int ui1, unsigned int ui2); -#endif -#ifndef XMoveWindow_TCL_DECLARED -#define XMoveWindow_TCL_DECLARED -/* 51 */ -EXTERN void XMoveWindow (Display * d, Window w, int i1, int i2); -#endif -#ifndef XNextEvent_TCL_DECLARED -#define XNextEvent_TCL_DECLARED -/* 52 */ -EXTERN void XNextEvent (Display * d, XEvent * x); -#endif -#ifndef XPutBackEvent_TCL_DECLARED -#define XPutBackEvent_TCL_DECLARED -/* 53 */ -EXTERN void XPutBackEvent (Display * d, XEvent * x); -#endif -#ifndef XQueryColors_TCL_DECLARED -#define XQueryColors_TCL_DECLARED -/* 54 */ -EXTERN void XQueryColors (Display * d, Colormap c, XColor * x, - int i); -#endif -#ifndef XQueryPointer_TCL_DECLARED -#define XQueryPointer_TCL_DECLARED -/* 55 */ -EXTERN Bool XQueryPointer (Display * d, Window w1, Window * w2, - Window * w3, int * i1, int * i2, int * i3, - int * i4, unsigned int * ui); -#endif -#ifndef XQueryTree_TCL_DECLARED -#define XQueryTree_TCL_DECLARED -/* 56 */ -EXTERN Status XQueryTree (Display * d, Window w1, Window * w2, - Window * w3, Window ** w4, unsigned int * ui); -#endif -#ifndef XRaiseWindow_TCL_DECLARED -#define XRaiseWindow_TCL_DECLARED -/* 57 */ -EXTERN void XRaiseWindow (Display * d, Window w); -#endif -#ifndef XRefreshKeyboardMapping_TCL_DECLARED -#define XRefreshKeyboardMapping_TCL_DECLARED -/* 58 */ -EXTERN void XRefreshKeyboardMapping (XMappingEvent * x); -#endif -#ifndef XResizeWindow_TCL_DECLARED -#define XResizeWindow_TCL_DECLARED -/* 59 */ -EXTERN void XResizeWindow (Display * d, Window w, - unsigned int ui1, unsigned int ui2); -#endif -#ifndef XSelectInput_TCL_DECLARED -#define XSelectInput_TCL_DECLARED -/* 60 */ -EXTERN void XSelectInput (Display * d, Window w, long l); -#endif -#ifndef XSendEvent_TCL_DECLARED -#define XSendEvent_TCL_DECLARED -/* 61 */ -EXTERN Status XSendEvent (Display * d, Window w, Bool b, long l, - XEvent * x); -#endif -#ifndef XSetCommand_TCL_DECLARED -#define XSetCommand_TCL_DECLARED -/* 62 */ -EXTERN void XSetCommand (Display * d, Window w, CONST char ** c, - int i); -#endif -#ifndef XSetIconName_TCL_DECLARED -#define XSetIconName_TCL_DECLARED -/* 63 */ -EXTERN void XSetIconName (Display * d, Window w, - _Xconst char * c); -#endif -#ifndef XSetInputFocus_TCL_DECLARED -#define XSetInputFocus_TCL_DECLARED -/* 64 */ -EXTERN void XSetInputFocus (Display * d, Window w, int i, Time t); -#endif -#ifndef XSetSelectionOwner_TCL_DECLARED -#define XSetSelectionOwner_TCL_DECLARED -/* 65 */ -EXTERN void XSetSelectionOwner (Display * d, Atom a, Window w, - Time t); -#endif -#ifndef XSetWindowBackground_TCL_DECLARED -#define XSetWindowBackground_TCL_DECLARED -/* 66 */ -EXTERN void XSetWindowBackground (Display * d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBackgroundPixmap_TCL_DECLARED -#define XSetWindowBackgroundPixmap_TCL_DECLARED -/* 67 */ -EXTERN void XSetWindowBackgroundPixmap (Display * d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorder_TCL_DECLARED -#define XSetWindowBorder_TCL_DECLARED -/* 68 */ -EXTERN void XSetWindowBorder (Display * d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBorderPixmap_TCL_DECLARED -#define XSetWindowBorderPixmap_TCL_DECLARED -/* 69 */ -EXTERN void XSetWindowBorderPixmap (Display * d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorderWidth_TCL_DECLARED -#define XSetWindowBorderWidth_TCL_DECLARED -/* 70 */ -EXTERN void XSetWindowBorderWidth (Display * d, Window w, - unsigned int ui); -#endif -#ifndef XSetWindowColormap_TCL_DECLARED -#define XSetWindowColormap_TCL_DECLARED -/* 71 */ -EXTERN void XSetWindowColormap (Display * d, Window w, - Colormap c); -#endif -#ifndef XTranslateCoordinates_TCL_DECLARED -#define XTranslateCoordinates_TCL_DECLARED -/* 72 */ -EXTERN Bool XTranslateCoordinates (Display * d, Window w1, - Window w2, int i1, int i2, int * i3, - int * i4, Window * w3); -#endif -#ifndef XUngrabKeyboard_TCL_DECLARED -#define XUngrabKeyboard_TCL_DECLARED -/* 73 */ -EXTERN void XUngrabKeyboard (Display * d, Time t); -#endif -#ifndef XUngrabPointer_TCL_DECLARED -#define XUngrabPointer_TCL_DECLARED -/* 74 */ -EXTERN void XUngrabPointer (Display * d, Time t); -#endif -#ifndef XUnmapWindow_TCL_DECLARED -#define XUnmapWindow_TCL_DECLARED -/* 75 */ -EXTERN void XUnmapWindow (Display * d, Window w); -#endif -#ifndef XWindowEvent_TCL_DECLARED -#define XWindowEvent_TCL_DECLARED -/* 76 */ -EXTERN void XWindowEvent (Display * d, Window w, long l, - XEvent * x); -#endif -#ifndef XDestroyIC_TCL_DECLARED -#define XDestroyIC_TCL_DECLARED -/* 77 */ -EXTERN void XDestroyIC (XIC x); -#endif -#ifndef XFilterEvent_TCL_DECLARED -#define XFilterEvent_TCL_DECLARED -/* 78 */ -EXTERN Bool XFilterEvent (XEvent * x, Window w); -#endif -#ifndef XmbLookupString_TCL_DECLARED -#define XmbLookupString_TCL_DECLARED -/* 79 */ -EXTERN int XmbLookupString (XIC xi, XKeyPressedEvent * xk, - char * c, int i, KeySym * k, Status * s); -#endif -#ifndef TkPutImage_TCL_DECLARED -#define TkPutImage_TCL_DECLARED -/* 80 */ -EXTERN void TkPutImage (unsigned long * colors, int ncolors, - Display * display, Drawable d, GC gc, - XImage * image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height); -#endif -/* Slot 81 is reserved */ -#ifndef XParseColor_TCL_DECLARED -#define XParseColor_TCL_DECLARED -/* 82 */ -EXTERN Status XParseColor (Display * display, Colormap map, - _Xconst char * spec, XColor * colorPtr); -#endif -#ifndef XCreateGC_TCL_DECLARED -#define XCreateGC_TCL_DECLARED -/* 83 */ -EXTERN GC XCreateGC (Display * display, Drawable d, - unsigned long valuemask, XGCValues * values); -#endif -#ifndef XFreeGC_TCL_DECLARED -#define XFreeGC_TCL_DECLARED -/* 84 */ -EXTERN void XFreeGC (Display * display, GC gc); -#endif -#ifndef XInternAtom_TCL_DECLARED -#define XInternAtom_TCL_DECLARED -/* 85 */ -EXTERN Atom XInternAtom (Display * display, - _Xconst char * atom_name, - Bool only_if_exists); -#endif -#ifndef XSetBackground_TCL_DECLARED -#define XSetBackground_TCL_DECLARED -/* 86 */ -EXTERN void XSetBackground (Display * display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetForeground_TCL_DECLARED -#define XSetForeground_TCL_DECLARED -/* 87 */ -EXTERN void XSetForeground (Display * display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetClipMask_TCL_DECLARED -#define XSetClipMask_TCL_DECLARED -/* 88 */ -EXTERN void XSetClipMask (Display * display, GC gc, - Pixmap pixmap); -#endif -#ifndef XSetClipOrigin_TCL_DECLARED -#define XSetClipOrigin_TCL_DECLARED -/* 89 */ -EXTERN void XSetClipOrigin (Display * display, GC gc, - int clip_x_origin, int clip_y_origin); -#endif -#ifndef XSetTSOrigin_TCL_DECLARED -#define XSetTSOrigin_TCL_DECLARED -/* 90 */ -EXTERN void XSetTSOrigin (Display * display, GC gc, - int ts_x_origin, int ts_y_origin); -#endif -#ifndef XChangeGC_TCL_DECLARED -#define XChangeGC_TCL_DECLARED -/* 91 */ -EXTERN void XChangeGC (Display * d, GC gc, unsigned long mask, - XGCValues * values); -#endif -#ifndef XSetFont_TCL_DECLARED -#define XSetFont_TCL_DECLARED -/* 92 */ -EXTERN void XSetFont (Display * display, GC gc, Font font); -#endif -#ifndef XSetArcMode_TCL_DECLARED -#define XSetArcMode_TCL_DECLARED -/* 93 */ -EXTERN void XSetArcMode (Display * display, GC gc, int arc_mode); -#endif -#ifndef XSetStipple_TCL_DECLARED -#define XSetStipple_TCL_DECLARED -/* 94 */ -EXTERN void XSetStipple (Display * display, GC gc, - Pixmap stipple); -#endif -#ifndef XSetFillRule_TCL_DECLARED -#define XSetFillRule_TCL_DECLARED -/* 95 */ -EXTERN void XSetFillRule (Display * display, GC gc, - int fill_rule); -#endif -#ifndef XSetFillStyle_TCL_DECLARED -#define XSetFillStyle_TCL_DECLARED -/* 96 */ -EXTERN void XSetFillStyle (Display * display, GC gc, - int fill_style); -#endif -#ifndef XSetFunction_TCL_DECLARED -#define XSetFunction_TCL_DECLARED -/* 97 */ -EXTERN void XSetFunction (Display * display, GC gc, int function); -#endif -#ifndef XSetLineAttributes_TCL_DECLARED -#define XSetLineAttributes_TCL_DECLARED -/* 98 */ -EXTERN void XSetLineAttributes (Display * display, GC gc, - unsigned int line_width, int line_style, - int cap_style, int join_style); -#endif -#ifndef _XInitImageFuncPtrs_TCL_DECLARED -#define _XInitImageFuncPtrs_TCL_DECLARED -/* 99 */ -EXTERN int _XInitImageFuncPtrs (XImage * image); -#endif -#ifndef XCreateIC_TCL_DECLARED -#define XCreateIC_TCL_DECLARED -/* 100 */ -EXTERN XIC XCreateIC (void); -#endif -#ifndef XGetVisualInfo_TCL_DECLARED -#define XGetVisualInfo_TCL_DECLARED -/* 101 */ -EXTERN XVisualInfo * XGetVisualInfo (Display * display, long vinfo_mask, - XVisualInfo * vinfo_template, - int * nitems_return); -#endif -#ifndef XSetWMClientMachine_TCL_DECLARED -#define XSetWMClientMachine_TCL_DECLARED -/* 102 */ -EXTERN void XSetWMClientMachine (Display * display, Window w, - XTextProperty * text_prop); -#endif -#ifndef XStringListToTextProperty_TCL_DECLARED -#define XStringListToTextProperty_TCL_DECLARED -/* 103 */ -EXTERN Status XStringListToTextProperty (char ** list, int count, - XTextProperty * text_prop_return); -#endif -#ifndef XDrawLine_TCL_DECLARED -#define XDrawLine_TCL_DECLARED -/* 104 */ -EXTERN void XDrawLine (Display * d, Drawable dr, GC g, int x1, - int y1, int x2, int y2); -#endif -#ifndef XWarpPointer_TCL_DECLARED -#define XWarpPointer_TCL_DECLARED -/* 105 */ -EXTERN void XWarpPointer (Display * d, Window s, Window dw, - int sx, int sy, unsigned int sw, - unsigned int sh, int dx, int dy); -#endif -#ifndef XFillRectangle_TCL_DECLARED -#define XFillRectangle_TCL_DECLARED -/* 106 */ -EXTERN void XFillRectangle (Display * display, Drawable d, GC gc, - int x, int y, unsigned int width, - unsigned int height); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef XSetDashes_TCL_DECLARED -#define XSetDashes_TCL_DECLARED -/* 0 */ -EXTERN void XSetDashes (Display * display, GC gc, - int dash_offset, _Xconst char * dash_list, - int n); -#endif -#ifndef XGetModifierMapping_TCL_DECLARED -#define XGetModifierMapping_TCL_DECLARED -/* 1 */ -EXTERN XModifierKeymap * XGetModifierMapping (Display * d); -#endif -#ifndef XCreateImage_TCL_DECLARED -#define XCreateImage_TCL_DECLARED -/* 2 */ -EXTERN XImage * XCreateImage (Display * d, Visual * v, - unsigned int ui1, int i1, int i2, char * cp, - unsigned int ui2, unsigned int ui3, int i3, - int i4); -#endif -#ifndef XGetImage_TCL_DECLARED -#define XGetImage_TCL_DECLARED -/* 3 */ -EXTERN XImage * XGetImage (Display * d, Drawable dr, int i1, int i2, - unsigned int ui1, unsigned int ui2, - unsigned long ul, int i3); -#endif -#ifndef XGetAtomName_TCL_DECLARED -#define XGetAtomName_TCL_DECLARED -/* 4 */ -EXTERN char * XGetAtomName (Display * d, Atom a); -#endif -#ifndef XKeysymToString_TCL_DECLARED -#define XKeysymToString_TCL_DECLARED -/* 5 */ -EXTERN char * XKeysymToString (KeySym k); -#endif -#ifndef XCreateColormap_TCL_DECLARED -#define XCreateColormap_TCL_DECLARED -/* 6 */ -EXTERN Colormap XCreateColormap (Display * d, Window w, Visual * v, - int i); -#endif -#ifndef XGContextFromGC_TCL_DECLARED -#define XGContextFromGC_TCL_DECLARED -/* 7 */ -EXTERN GContext XGContextFromGC (GC g); -#endif -#ifndef XKeycodeToKeysym_TCL_DECLARED -#define XKeycodeToKeysym_TCL_DECLARED -/* 8 */ -EXTERN KeySym XKeycodeToKeysym (Display * d, KeyCode k, int i); -#endif -#ifndef XStringToKeysym_TCL_DECLARED -#define XStringToKeysym_TCL_DECLARED -/* 9 */ -EXTERN KeySym XStringToKeysym (_Xconst char * c); -#endif -#ifndef XRootWindow_TCL_DECLARED -#define XRootWindow_TCL_DECLARED -/* 10 */ -EXTERN Window XRootWindow (Display * d, int i); -#endif -#ifndef XSetErrorHandler_TCL_DECLARED -#define XSetErrorHandler_TCL_DECLARED -/* 11 */ -EXTERN XErrorHandler XSetErrorHandler (XErrorHandler x); -#endif -#ifndef XAllocColor_TCL_DECLARED -#define XAllocColor_TCL_DECLARED -/* 12 */ -EXTERN Status XAllocColor (Display * d, Colormap c, XColor * xp); -#endif -#ifndef XBell_TCL_DECLARED -#define XBell_TCL_DECLARED -/* 13 */ -EXTERN void XBell (Display * d, int i); -#endif -#ifndef XChangeProperty_TCL_DECLARED -#define XChangeProperty_TCL_DECLARED -/* 14 */ -EXTERN void XChangeProperty (Display * d, Window w, Atom a1, - Atom a2, int i1, int i2, - _Xconst unsigned char * c, int i3); -#endif -#ifndef XChangeWindowAttributes_TCL_DECLARED -#define XChangeWindowAttributes_TCL_DECLARED -/* 15 */ -EXTERN void XChangeWindowAttributes (Display * d, Window w, - unsigned long ul, XSetWindowAttributes * x); -#endif -#ifndef XConfigureWindow_TCL_DECLARED -#define XConfigureWindow_TCL_DECLARED -/* 16 */ -EXTERN void XConfigureWindow (Display * d, Window w, - unsigned int i, XWindowChanges * x); -#endif -#ifndef XCopyArea_TCL_DECLARED -#define XCopyArea_TCL_DECLARED -/* 17 */ -EXTERN void XCopyArea (Display * d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4); -#endif -#ifndef XCopyPlane_TCL_DECLARED -#define XCopyPlane_TCL_DECLARED -/* 18 */ -EXTERN void XCopyPlane (Display * d, Drawable dr1, Drawable dr2, - GC g, int i1, int i2, unsigned int ui1, - unsigned int ui2, int i3, int i4, - unsigned long ul); -#endif -#ifndef XCreateBitmapFromData_TCL_DECLARED -#define XCreateBitmapFromData_TCL_DECLARED -/* 19 */ -EXTERN Pixmap XCreateBitmapFromData (Display * display, Drawable d, - _Xconst char * data, unsigned int width, - unsigned int height); -#endif -#ifndef XDefineCursor_TCL_DECLARED -#define XDefineCursor_TCL_DECLARED -/* 20 */ -EXTERN void XDefineCursor (Display * d, Window w, Cursor c); -#endif -#ifndef XDestroyWindow_TCL_DECLARED -#define XDestroyWindow_TCL_DECLARED -/* 21 */ -EXTERN void XDestroyWindow (Display * d, Window w); -#endif -#ifndef XDrawArc_TCL_DECLARED -#define XDrawArc_TCL_DECLARED -/* 22 */ -EXTERN void XDrawArc (Display * d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XDrawLines_TCL_DECLARED -#define XDrawLines_TCL_DECLARED -/* 23 */ -EXTERN void XDrawLines (Display * d, Drawable dr, GC g, - XPoint * x, int i1, int i2); -#endif -#ifndef XDrawRectangle_TCL_DECLARED -#define XDrawRectangle_TCL_DECLARED -/* 24 */ -EXTERN void XDrawRectangle (Display * d, Drawable dr, GC g, - int i1, int i2, unsigned int ui1, - unsigned int ui2); -#endif -#ifndef XFillArc_TCL_DECLARED -#define XFillArc_TCL_DECLARED -/* 25 */ -EXTERN void XFillArc (Display * d, Drawable dr, GC g, int i1, - int i2, unsigned int ui1, unsigned int ui2, - int i3, int i4); -#endif -#ifndef XFillPolygon_TCL_DECLARED -#define XFillPolygon_TCL_DECLARED -/* 26 */ -EXTERN void XFillPolygon (Display * d, Drawable dr, GC g, - XPoint * x, int i1, int i2, int i3); -#endif -#ifndef XFillRectangles_TCL_DECLARED -#define XFillRectangles_TCL_DECLARED -/* 27 */ -EXTERN void XFillRectangles (Display * d, Drawable dr, GC g, - XRectangle * x, int i); -#endif -#ifndef XFreeColormap_TCL_DECLARED -#define XFreeColormap_TCL_DECLARED -/* 28 */ -EXTERN void XFreeColormap (Display * d, Colormap c); -#endif -#ifndef XFreeColors_TCL_DECLARED -#define XFreeColors_TCL_DECLARED -/* 29 */ -EXTERN void XFreeColors (Display * d, Colormap c, - unsigned long * ulp, int i, unsigned long ul); -#endif -#ifndef XFreeModifiermap_TCL_DECLARED -#define XFreeModifiermap_TCL_DECLARED -/* 30 */ -EXTERN void XFreeModifiermap (XModifierKeymap * x); -#endif -#ifndef XGetGeometry_TCL_DECLARED -#define XGetGeometry_TCL_DECLARED -/* 31 */ -EXTERN Status XGetGeometry (Display * d, Drawable dr, Window * w, - int * i1, int * i2, unsigned int * ui1, - unsigned int * ui2, unsigned int * ui3, - unsigned int * ui4); -#endif -#ifndef XGetWindowProperty_TCL_DECLARED -#define XGetWindowProperty_TCL_DECLARED -/* 32 */ -EXTERN int XGetWindowProperty (Display * d, Window w, Atom a1, - long l1, long l2, Bool b, Atom a2, Atom * ap, - int * ip, unsigned long * ulp1, - unsigned long * ulp2, unsigned char ** cpp); -#endif -#ifndef XGrabKeyboard_TCL_DECLARED -#define XGrabKeyboard_TCL_DECLARED -/* 33 */ -EXTERN int XGrabKeyboard (Display * d, Window w, Bool b, int i1, - int i2, Time t); -#endif -#ifndef XGrabPointer_TCL_DECLARED -#define XGrabPointer_TCL_DECLARED -/* 34 */ -EXTERN int XGrabPointer (Display * d, Window w1, Bool b, - unsigned int ui, int i1, int i2, Window w2, - Cursor c, Time t); -#endif -#ifndef XKeysymToKeycode_TCL_DECLARED -#define XKeysymToKeycode_TCL_DECLARED -/* 35 */ -EXTERN KeyCode XKeysymToKeycode (Display * d, KeySym k); -#endif -#ifndef XMapWindow_TCL_DECLARED -#define XMapWindow_TCL_DECLARED -/* 36 */ -EXTERN void XMapWindow (Display * d, Window w); -#endif -#ifndef XMoveResizeWindow_TCL_DECLARED -#define XMoveResizeWindow_TCL_DECLARED -/* 37 */ -EXTERN void XMoveResizeWindow (Display * d, Window w, int i1, - int i2, unsigned int ui1, unsigned int ui2); -#endif -#ifndef XMoveWindow_TCL_DECLARED -#define XMoveWindow_TCL_DECLARED -/* 38 */ -EXTERN void XMoveWindow (Display * d, Window w, int i1, int i2); -#endif -#ifndef XQueryPointer_TCL_DECLARED -#define XQueryPointer_TCL_DECLARED -/* 39 */ -EXTERN Bool XQueryPointer (Display * d, Window w1, Window * w2, - Window * w3, int * i1, int * i2, int * i3, - int * i4, unsigned int * ui); -#endif -#ifndef XRaiseWindow_TCL_DECLARED -#define XRaiseWindow_TCL_DECLARED -/* 40 */ -EXTERN void XRaiseWindow (Display * d, Window w); -#endif -#ifndef XRefreshKeyboardMapping_TCL_DECLARED -#define XRefreshKeyboardMapping_TCL_DECLARED -/* 41 */ -EXTERN void XRefreshKeyboardMapping (XMappingEvent * x); -#endif -#ifndef XResizeWindow_TCL_DECLARED -#define XResizeWindow_TCL_DECLARED -/* 42 */ -EXTERN void XResizeWindow (Display * d, Window w, - unsigned int ui1, unsigned int ui2); -#endif -#ifndef XSelectInput_TCL_DECLARED -#define XSelectInput_TCL_DECLARED -/* 43 */ -EXTERN void XSelectInput (Display * d, Window w, long l); -#endif -#ifndef XSendEvent_TCL_DECLARED -#define XSendEvent_TCL_DECLARED -/* 44 */ -EXTERN Status XSendEvent (Display * d, Window w, Bool b, long l, - XEvent * x); -#endif -#ifndef XSetIconName_TCL_DECLARED -#define XSetIconName_TCL_DECLARED -/* 45 */ -EXTERN void XSetIconName (Display * d, Window w, - _Xconst char * c); -#endif -#ifndef XSetInputFocus_TCL_DECLARED -#define XSetInputFocus_TCL_DECLARED -/* 46 */ -EXTERN void XSetInputFocus (Display * d, Window w, int i, Time t); -#endif -#ifndef XSetSelectionOwner_TCL_DECLARED -#define XSetSelectionOwner_TCL_DECLARED -/* 47 */ -EXTERN void XSetSelectionOwner (Display * d, Atom a, Window w, - Time t); -#endif -#ifndef XSetWindowBackground_TCL_DECLARED -#define XSetWindowBackground_TCL_DECLARED -/* 48 */ -EXTERN void XSetWindowBackground (Display * d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBackgroundPixmap_TCL_DECLARED -#define XSetWindowBackgroundPixmap_TCL_DECLARED -/* 49 */ -EXTERN void XSetWindowBackgroundPixmap (Display * d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorder_TCL_DECLARED -#define XSetWindowBorder_TCL_DECLARED -/* 50 */ -EXTERN void XSetWindowBorder (Display * d, Window w, - unsigned long ul); -#endif -#ifndef XSetWindowBorderPixmap_TCL_DECLARED -#define XSetWindowBorderPixmap_TCL_DECLARED -/* 51 */ -EXTERN void XSetWindowBorderPixmap (Display * d, Window w, - Pixmap p); -#endif -#ifndef XSetWindowBorderWidth_TCL_DECLARED -#define XSetWindowBorderWidth_TCL_DECLARED -/* 52 */ -EXTERN void XSetWindowBorderWidth (Display * d, Window w, - unsigned int ui); -#endif -#ifndef XSetWindowColormap_TCL_DECLARED -#define XSetWindowColormap_TCL_DECLARED -/* 53 */ -EXTERN void XSetWindowColormap (Display * d, Window w, - Colormap c); -#endif -#ifndef XUngrabKeyboard_TCL_DECLARED -#define XUngrabKeyboard_TCL_DECLARED -/* 54 */ -EXTERN void XUngrabKeyboard (Display * d, Time t); -#endif -#ifndef XUngrabPointer_TCL_DECLARED -#define XUngrabPointer_TCL_DECLARED -/* 55 */ -EXTERN void XUngrabPointer (Display * d, Time t); -#endif -#ifndef XUnmapWindow_TCL_DECLARED -#define XUnmapWindow_TCL_DECLARED -/* 56 */ -EXTERN void XUnmapWindow (Display * d, Window w); -#endif -#ifndef TkPutImage_TCL_DECLARED -#define TkPutImage_TCL_DECLARED -/* 57 */ -EXTERN void TkPutImage (unsigned long * colors, int ncolors, - Display * display, Drawable d, GC gc, - XImage * image, int src_x, int src_y, - int dest_x, int dest_y, unsigned int width, - unsigned int height); -#endif -#ifndef XParseColor_TCL_DECLARED -#define XParseColor_TCL_DECLARED -/* 58 */ -EXTERN Status XParseColor (Display * display, Colormap map, - _Xconst char * spec, XColor * colorPtr); -#endif -#ifndef XCreateGC_TCL_DECLARED -#define XCreateGC_TCL_DECLARED -/* 59 */ -EXTERN GC XCreateGC (Display * display, Drawable d, - unsigned long valuemask, XGCValues * values); -#endif -#ifndef XFreeGC_TCL_DECLARED -#define XFreeGC_TCL_DECLARED -/* 60 */ -EXTERN void XFreeGC (Display * display, GC gc); -#endif -#ifndef XInternAtom_TCL_DECLARED -#define XInternAtom_TCL_DECLARED -/* 61 */ -EXTERN Atom XInternAtom (Display * display, - _Xconst char * atom_name, - Bool only_if_exists); -#endif -#ifndef XSetBackground_TCL_DECLARED -#define XSetBackground_TCL_DECLARED -/* 62 */ -EXTERN void XSetBackground (Display * display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetForeground_TCL_DECLARED -#define XSetForeground_TCL_DECLARED -/* 63 */ -EXTERN void XSetForeground (Display * display, GC gc, - unsigned long foreground); -#endif -#ifndef XSetClipMask_TCL_DECLARED -#define XSetClipMask_TCL_DECLARED -/* 64 */ -EXTERN void XSetClipMask (Display * display, GC gc, - Pixmap pixmap); -#endif -#ifndef XSetClipOrigin_TCL_DECLARED -#define XSetClipOrigin_TCL_DECLARED -/* 65 */ -EXTERN void XSetClipOrigin (Display * display, GC gc, - int clip_x_origin, int clip_y_origin); -#endif -#ifndef XSetTSOrigin_TCL_DECLARED -#define XSetTSOrigin_TCL_DECLARED -/* 66 */ -EXTERN void XSetTSOrigin (Display * display, GC gc, - int ts_x_origin, int ts_y_origin); -#endif -#ifndef XChangeGC_TCL_DECLARED -#define XChangeGC_TCL_DECLARED -/* 67 */ -EXTERN void XChangeGC (Display * d, GC gc, unsigned long mask, - XGCValues * values); -#endif -#ifndef XSetFont_TCL_DECLARED -#define XSetFont_TCL_DECLARED -/* 68 */ -EXTERN void XSetFont (Display * display, GC gc, Font font); -#endif -#ifndef XSetArcMode_TCL_DECLARED -#define XSetArcMode_TCL_DECLARED -/* 69 */ -EXTERN void XSetArcMode (Display * display, GC gc, int arc_mode); -#endif -#ifndef XSetStipple_TCL_DECLARED -#define XSetStipple_TCL_DECLARED -/* 70 */ -EXTERN void XSetStipple (Display * display, GC gc, - Pixmap stipple); -#endif -#ifndef XSetFillRule_TCL_DECLARED -#define XSetFillRule_TCL_DECLARED -/* 71 */ -EXTERN void XSetFillRule (Display * display, GC gc, - int fill_rule); -#endif -#ifndef XSetFillStyle_TCL_DECLARED -#define XSetFillStyle_TCL_DECLARED -/* 72 */ -EXTERN void XSetFillStyle (Display * display, GC gc, - int fill_style); -#endif -#ifndef XSetFunction_TCL_DECLARED -#define XSetFunction_TCL_DECLARED -/* 73 */ -EXTERN void XSetFunction (Display * display, GC gc, int function); -#endif -#ifndef XSetLineAttributes_TCL_DECLARED -#define XSetLineAttributes_TCL_DECLARED -/* 74 */ -EXTERN void XSetLineAttributes (Display * display, GC gc, - unsigned int line_width, int line_style, - int cap_style, int join_style); -#endif -#ifndef _XInitImageFuncPtrs_TCL_DECLARED -#define _XInitImageFuncPtrs_TCL_DECLARED -/* 75 */ -EXTERN int _XInitImageFuncPtrs (XImage * image); -#endif -#ifndef XCreateIC_TCL_DECLARED -#define XCreateIC_TCL_DECLARED -/* 76 */ -EXTERN XIC XCreateIC (void); -#endif -#ifndef XGetVisualInfo_TCL_DECLARED -#define XGetVisualInfo_TCL_DECLARED -/* 77 */ -EXTERN XVisualInfo * XGetVisualInfo (Display * display, long vinfo_mask, - XVisualInfo * vinfo_template, - int * nitems_return); -#endif -#ifndef XSetWMClientMachine_TCL_DECLARED -#define XSetWMClientMachine_TCL_DECLARED -/* 78 */ -EXTERN void XSetWMClientMachine (Display * display, Window w, - XTextProperty * text_prop); -#endif -#ifndef XStringListToTextProperty_TCL_DECLARED -#define XStringListToTextProperty_TCL_DECLARED -/* 79 */ -EXTERN Status XStringListToTextProperty (char ** list, int count, - XTextProperty * text_prop_return); -#endif -#ifndef XDrawSegments_TCL_DECLARED -#define XDrawSegments_TCL_DECLARED -/* 80 */ -EXTERN void XDrawSegments (Display * display, Drawable d, GC gc, - XSegment * segments, int nsegments); -#endif -#ifndef XForceScreenSaver_TCL_DECLARED -#define XForceScreenSaver_TCL_DECLARED -/* 81 */ -EXTERN void XForceScreenSaver (Display * display, int mode); -#endif -#ifndef XDrawLine_TCL_DECLARED -#define XDrawLine_TCL_DECLARED -/* 82 */ -EXTERN void XDrawLine (Display * d, Drawable dr, GC g, int x1, - int y1, int x2, int y2); -#endif -#ifndef XFillRectangle_TCL_DECLARED -#define XFillRectangle_TCL_DECLARED -/* 83 */ -EXTERN void XFillRectangle (Display * display, Drawable d, GC gc, - int x, int y, unsigned int width, - unsigned int height); -#endif -#ifndef XClearWindow_TCL_DECLARED -#define XClearWindow_TCL_DECLARED -/* 84 */ -EXTERN void XClearWindow (Display * d, Window w); -#endif -#ifndef XDrawPoint_TCL_DECLARED -#define XDrawPoint_TCL_DECLARED -/* 85 */ -EXTERN void XDrawPoint (Display * display, Drawable d, GC gc, - int x, int y); -#endif -#ifndef XDrawPoints_TCL_DECLARED -#define XDrawPoints_TCL_DECLARED -/* 86 */ -EXTERN void XDrawPoints (Display * display, Drawable d, GC gc, - XPoint * points, int npoints, int mode); -#endif -#ifndef XWarpPointer_TCL_DECLARED -#define XWarpPointer_TCL_DECLARED -/* 87 */ -EXTERN void XWarpPointer (Display * display, Window src_w, - Window dest_w, int src_x, int src_y, - unsigned int src_width, - unsigned int src_height, int dest_x, - int dest_y); -#endif -#ifndef XQueryColor_TCL_DECLARED -#define XQueryColor_TCL_DECLARED -/* 88 */ -EXTERN void XQueryColor (Display * display, Colormap colormap, - XColor * def_in_out); -#endif -#ifndef XQueryColors_TCL_DECLARED -#define XQueryColors_TCL_DECLARED -/* 89 */ -EXTERN void XQueryColors (Display * display, Colormap colormap, - XColor * defs_in_out, int ncolors); -#endif -#ifndef XQueryTree_TCL_DECLARED -#define XQueryTree_TCL_DECLARED -/* 90 */ -EXTERN Status XQueryTree (Display * d, Window w1, Window * w2, - Window * w3, Window ** w4, unsigned int * ui); -#endif -#ifndef XSync_TCL_DECLARED -#define XSync_TCL_DECLARED -/* 91 */ -EXTERN int XSync (Display * display, Bool flag); -#endif -#endif /* AQUA */ - -typedef struct TkIntXlibStubs { - int magic; - struct TkIntXlibStubHooks *hooks; - -#ifdef __WIN32__ /* WIN */ - void (*xSetDashes) (Display * display, GC gc, int dash_offset, _Xconst char * dash_list, int n); /* 0 */ - XModifierKeymap * (*xGetModifierMapping) (Display * d); /* 1 */ - XImage * (*xCreateImage) (Display * d, Visual * v, unsigned int ui1, int i1, int i2, char * cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ - XImage * (*xGetImage) (Display * d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ - char * (*xGetAtomName) (Display * d, Atom a); /* 4 */ - char * (*xKeysymToString) (KeySym k); /* 5 */ - Colormap (*xCreateColormap) (Display * d, Window w, Visual * v, int i); /* 6 */ - Cursor (*xCreatePixmapCursor) (Display * d, Pixmap p1, Pixmap p2, XColor * x1, XColor * x2, unsigned int ui1, unsigned int ui2); /* 7 */ - Cursor (*xCreateGlyphCursor) (Display * d, Font f1, Font f2, unsigned int ui1, unsigned int ui2, XColor * x1, XColor * x2); /* 8 */ - GContext (*xGContextFromGC) (GC g); /* 9 */ - XHostAddress * (*xListHosts) (Display * d, int * i, Bool * b); /* 10 */ - KeySym (*xKeycodeToKeysym) (Display * d, unsigned int k, int i); /* 11 */ - KeySym (*xStringToKeysym) (_Xconst char * c); /* 12 */ - Window (*xRootWindow) (Display * d, int i); /* 13 */ - XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 14 */ - Status (*xIconifyWindow) (Display * d, Window w, int i); /* 15 */ - Status (*xWithdrawWindow) (Display * d, Window w, int i); /* 16 */ - Status (*xGetWMColormapWindows) (Display * d, Window w, Window ** wpp, int * ip); /* 17 */ - Status (*xAllocColor) (Display * d, Colormap c, XColor * xp); /* 18 */ - void (*xBell) (Display * d, int i); /* 19 */ - void (*xChangeProperty) (Display * d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char * c, int i3); /* 20 */ - void (*xChangeWindowAttributes) (Display * d, Window w, unsigned long ul, XSetWindowAttributes * x); /* 21 */ - void (*xClearWindow) (Display * d, Window w); /* 22 */ - void (*xConfigureWindow) (Display * d, Window w, unsigned int i, XWindowChanges * x); /* 23 */ - void (*xCopyArea) (Display * d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 24 */ - void (*xCopyPlane) (Display * d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 25 */ - Pixmap (*xCreateBitmapFromData) (Display * display, Drawable d, _Xconst char * data, unsigned int width, unsigned int height); /* 26 */ - void (*xDefineCursor) (Display * d, Window w, Cursor c); /* 27 */ - void (*xDeleteProperty) (Display * d, Window w, Atom a); /* 28 */ - void (*xDestroyWindow) (Display * d, Window w); /* 29 */ - void (*xDrawArc) (Display * d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 30 */ - void (*xDrawLines) (Display * d, Drawable dr, GC g, XPoint * x, int i1, int i2); /* 31 */ - void (*xDrawRectangle) (Display * d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 32 */ - void (*xFillArc) (Display * d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 33 */ - void (*xFillPolygon) (Display * d, Drawable dr, GC g, XPoint * x, int i1, int i2, int i3); /* 34 */ - void (*xFillRectangles) (Display * d, Drawable dr, GC g, XRectangle * x, int i); /* 35 */ - void (*xForceScreenSaver) (Display * d, int i); /* 36 */ - void (*xFreeColormap) (Display * d, Colormap c); /* 37 */ - void (*xFreeColors) (Display * d, Colormap c, unsigned long * ulp, int i, unsigned long ul); /* 38 */ - void (*xFreeCursor) (Display * d, Cursor c); /* 39 */ - void (*xFreeModifiermap) (XModifierKeymap * x); /* 40 */ - Status (*xGetGeometry) (Display * d, Drawable dr, Window * w, int * i1, int * i2, unsigned int * ui1, unsigned int * ui2, unsigned int * ui3, unsigned int * ui4); /* 41 */ - void (*xGetInputFocus) (Display * d, Window * w, int * i); /* 42 */ - int (*xGetWindowProperty) (Display * d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom * ap, int * ip, unsigned long * ulp1, unsigned long * ulp2, unsigned char ** cpp); /* 43 */ - Status (*xGetWindowAttributes) (Display * d, Window w, XWindowAttributes * x); /* 44 */ - int (*xGrabKeyboard) (Display * d, Window w, Bool b, int i1, int i2, Time t); /* 45 */ - int (*xGrabPointer) (Display * d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 46 */ - KeyCode (*xKeysymToKeycode) (Display * d, KeySym k); /* 47 */ - Status (*xLookupColor) (Display * d, Colormap c1, _Xconst char * c2, XColor * x1, XColor * x2); /* 48 */ - void (*xMapWindow) (Display * d, Window w); /* 49 */ - void (*xMoveResizeWindow) (Display * d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 50 */ - void (*xMoveWindow) (Display * d, Window w, int i1, int i2); /* 51 */ - void (*xNextEvent) (Display * d, XEvent * x); /* 52 */ - void (*xPutBackEvent) (Display * d, XEvent * x); /* 53 */ - void (*xQueryColors) (Display * d, Colormap c, XColor * x, int i); /* 54 */ - Bool (*xQueryPointer) (Display * d, Window w1, Window * w2, Window * w3, int * i1, int * i2, int * i3, int * i4, unsigned int * ui); /* 55 */ - Status (*xQueryTree) (Display * d, Window w1, Window * w2, Window * w3, Window ** w4, unsigned int * ui); /* 56 */ - void (*xRaiseWindow) (Display * d, Window w); /* 57 */ - void (*xRefreshKeyboardMapping) (XMappingEvent * x); /* 58 */ - void (*xResizeWindow) (Display * d, Window w, unsigned int ui1, unsigned int ui2); /* 59 */ - void (*xSelectInput) (Display * d, Window w, long l); /* 60 */ - Status (*xSendEvent) (Display * d, Window w, Bool b, long l, XEvent * x); /* 61 */ - void (*xSetCommand) (Display * d, Window w, CONST char ** c, int i); /* 62 */ - void (*xSetIconName) (Display * d, Window w, _Xconst char * c); /* 63 */ - void (*xSetInputFocus) (Display * d, Window w, int i, Time t); /* 64 */ - void (*xSetSelectionOwner) (Display * d, Atom a, Window w, Time t); /* 65 */ - void (*xSetWindowBackground) (Display * d, Window w, unsigned long ul); /* 66 */ - void (*xSetWindowBackgroundPixmap) (Display * d, Window w, Pixmap p); /* 67 */ - void (*xSetWindowBorder) (Display * d, Window w, unsigned long ul); /* 68 */ - void (*xSetWindowBorderPixmap) (Display * d, Window w, Pixmap p); /* 69 */ - void (*xSetWindowBorderWidth) (Display * d, Window w, unsigned int ui); /* 70 */ - void (*xSetWindowColormap) (Display * d, Window w, Colormap c); /* 71 */ - Bool (*xTranslateCoordinates) (Display * d, Window w1, Window w2, int i1, int i2, int * i3, int * i4, Window * w3); /* 72 */ - void (*xUngrabKeyboard) (Display * d, Time t); /* 73 */ - void (*xUngrabPointer) (Display * d, Time t); /* 74 */ - void (*xUnmapWindow) (Display * d, Window w); /* 75 */ - void (*xWindowEvent) (Display * d, Window w, long l, XEvent * x); /* 76 */ - void (*xDestroyIC) (XIC x); /* 77 */ - Bool (*xFilterEvent) (XEvent * x, Window w); /* 78 */ - int (*xmbLookupString) (XIC xi, XKeyPressedEvent * xk, char * c, int i, KeySym * k, Status * s); /* 79 */ - void (*tkPutImage) (unsigned long * colors, int ncolors, Display * display, Drawable d, GC gc, XImage * image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 80 */ - void *reserved81; - Status (*xParseColor) (Display * display, Colormap map, _Xconst char * spec, XColor * colorPtr); /* 82 */ - GC (*xCreateGC) (Display * display, Drawable d, unsigned long valuemask, XGCValues * values); /* 83 */ - void (*xFreeGC) (Display * display, GC gc); /* 84 */ - Atom (*xInternAtom) (Display * display, _Xconst char * atom_name, Bool only_if_exists); /* 85 */ - void (*xSetBackground) (Display * display, GC gc, unsigned long foreground); /* 86 */ - void (*xSetForeground) (Display * display, GC gc, unsigned long foreground); /* 87 */ - void (*xSetClipMask) (Display * display, GC gc, Pixmap pixmap); /* 88 */ - void (*xSetClipOrigin) (Display * display, GC gc, int clip_x_origin, int clip_y_origin); /* 89 */ - void (*xSetTSOrigin) (Display * display, GC gc, int ts_x_origin, int ts_y_origin); /* 90 */ - void (*xChangeGC) (Display * d, GC gc, unsigned long mask, XGCValues * values); /* 91 */ - void (*xSetFont) (Display * display, GC gc, Font font); /* 92 */ - void (*xSetArcMode) (Display * display, GC gc, int arc_mode); /* 93 */ - void (*xSetStipple) (Display * display, GC gc, Pixmap stipple); /* 94 */ - void (*xSetFillRule) (Display * display, GC gc, int fill_rule); /* 95 */ - void (*xSetFillStyle) (Display * display, GC gc, int fill_style); /* 96 */ - void (*xSetFunction) (Display * display, GC gc, int function); /* 97 */ - void (*xSetLineAttributes) (Display * display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 98 */ - int (*_XInitImageFuncPtrs) (XImage * image); /* 99 */ - XIC (*xCreateIC) (void); /* 100 */ - XVisualInfo * (*xGetVisualInfo) (Display * display, long vinfo_mask, XVisualInfo * vinfo_template, int * nitems_return); /* 101 */ - void (*xSetWMClientMachine) (Display * display, Window w, XTextProperty * text_prop); /* 102 */ - Status (*xStringListToTextProperty) (char ** list, int count, XTextProperty * text_prop_return); /* 103 */ - void (*xDrawLine) (Display * d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 104 */ - void (*xWarpPointer) (Display * d, Window s, Window dw, int sx, int sy, unsigned int sw, unsigned int sh, int dx, int dy); /* 105 */ - void (*xFillRectangle) (Display * display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 106 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*xSetDashes) (Display * display, GC gc, int dash_offset, _Xconst char * dash_list, int n); /* 0 */ - XModifierKeymap * (*xGetModifierMapping) (Display * d); /* 1 */ - XImage * (*xCreateImage) (Display * d, Visual * v, unsigned int ui1, int i1, int i2, char * cp, unsigned int ui2, unsigned int ui3, int i3, int i4); /* 2 */ - XImage * (*xGetImage) (Display * d, Drawable dr, int i1, int i2, unsigned int ui1, unsigned int ui2, unsigned long ul, int i3); /* 3 */ - char * (*xGetAtomName) (Display * d, Atom a); /* 4 */ - char * (*xKeysymToString) (KeySym k); /* 5 */ - Colormap (*xCreateColormap) (Display * d, Window w, Visual * v, int i); /* 6 */ - GContext (*xGContextFromGC) (GC g); /* 7 */ - KeySym (*xKeycodeToKeysym) (Display * d, KeyCode k, int i); /* 8 */ - KeySym (*xStringToKeysym) (_Xconst char * c); /* 9 */ - Window (*xRootWindow) (Display * d, int i); /* 10 */ - XErrorHandler (*xSetErrorHandler) (XErrorHandler x); /* 11 */ - Status (*xAllocColor) (Display * d, Colormap c, XColor * xp); /* 12 */ - void (*xBell) (Display * d, int i); /* 13 */ - void (*xChangeProperty) (Display * d, Window w, Atom a1, Atom a2, int i1, int i2, _Xconst unsigned char * c, int i3); /* 14 */ - void (*xChangeWindowAttributes) (Display * d, Window w, unsigned long ul, XSetWindowAttributes * x); /* 15 */ - void (*xConfigureWindow) (Display * d, Window w, unsigned int i, XWindowChanges * x); /* 16 */ - void (*xCopyArea) (Display * d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 17 */ - void (*xCopyPlane) (Display * d, Drawable dr1, Drawable dr2, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4, unsigned long ul); /* 18 */ - Pixmap (*xCreateBitmapFromData) (Display * display, Drawable d, _Xconst char * data, unsigned int width, unsigned int height); /* 19 */ - void (*xDefineCursor) (Display * d, Window w, Cursor c); /* 20 */ - void (*xDestroyWindow) (Display * d, Window w); /* 21 */ - void (*xDrawArc) (Display * d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 22 */ - void (*xDrawLines) (Display * d, Drawable dr, GC g, XPoint * x, int i1, int i2); /* 23 */ - void (*xDrawRectangle) (Display * d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 24 */ - void (*xFillArc) (Display * d, Drawable dr, GC g, int i1, int i2, unsigned int ui1, unsigned int ui2, int i3, int i4); /* 25 */ - void (*xFillPolygon) (Display * d, Drawable dr, GC g, XPoint * x, int i1, int i2, int i3); /* 26 */ - void (*xFillRectangles) (Display * d, Drawable dr, GC g, XRectangle * x, int i); /* 27 */ - void (*xFreeColormap) (Display * d, Colormap c); /* 28 */ - void (*xFreeColors) (Display * d, Colormap c, unsigned long * ulp, int i, unsigned long ul); /* 29 */ - void (*xFreeModifiermap) (XModifierKeymap * x); /* 30 */ - Status (*xGetGeometry) (Display * d, Drawable dr, Window * w, int * i1, int * i2, unsigned int * ui1, unsigned int * ui2, unsigned int * ui3, unsigned int * ui4); /* 31 */ - int (*xGetWindowProperty) (Display * d, Window w, Atom a1, long l1, long l2, Bool b, Atom a2, Atom * ap, int * ip, unsigned long * ulp1, unsigned long * ulp2, unsigned char ** cpp); /* 32 */ - int (*xGrabKeyboard) (Display * d, Window w, Bool b, int i1, int i2, Time t); /* 33 */ - int (*xGrabPointer) (Display * d, Window w1, Bool b, unsigned int ui, int i1, int i2, Window w2, Cursor c, Time t); /* 34 */ - KeyCode (*xKeysymToKeycode) (Display * d, KeySym k); /* 35 */ - void (*xMapWindow) (Display * d, Window w); /* 36 */ - void (*xMoveResizeWindow) (Display * d, Window w, int i1, int i2, unsigned int ui1, unsigned int ui2); /* 37 */ - void (*xMoveWindow) (Display * d, Window w, int i1, int i2); /* 38 */ - Bool (*xQueryPointer) (Display * d, Window w1, Window * w2, Window * w3, int * i1, int * i2, int * i3, int * i4, unsigned int * ui); /* 39 */ - void (*xRaiseWindow) (Display * d, Window w); /* 40 */ - void (*xRefreshKeyboardMapping) (XMappingEvent * x); /* 41 */ - void (*xResizeWindow) (Display * d, Window w, unsigned int ui1, unsigned int ui2); /* 42 */ - void (*xSelectInput) (Display * d, Window w, long l); /* 43 */ - Status (*xSendEvent) (Display * d, Window w, Bool b, long l, XEvent * x); /* 44 */ - void (*xSetIconName) (Display * d, Window w, _Xconst char * c); /* 45 */ - void (*xSetInputFocus) (Display * d, Window w, int i, Time t); /* 46 */ - void (*xSetSelectionOwner) (Display * d, Atom a, Window w, Time t); /* 47 */ - void (*xSetWindowBackground) (Display * d, Window w, unsigned long ul); /* 48 */ - void (*xSetWindowBackgroundPixmap) (Display * d, Window w, Pixmap p); /* 49 */ - void (*xSetWindowBorder) (Display * d, Window w, unsigned long ul); /* 50 */ - void (*xSetWindowBorderPixmap) (Display * d, Window w, Pixmap p); /* 51 */ - void (*xSetWindowBorderWidth) (Display * d, Window w, unsigned int ui); /* 52 */ - void (*xSetWindowColormap) (Display * d, Window w, Colormap c); /* 53 */ - void (*xUngrabKeyboard) (Display * d, Time t); /* 54 */ - void (*xUngrabPointer) (Display * d, Time t); /* 55 */ - void (*xUnmapWindow) (Display * d, Window w); /* 56 */ - void (*tkPutImage) (unsigned long * colors, int ncolors, Display * display, Drawable d, GC gc, XImage * image, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height); /* 57 */ - Status (*xParseColor) (Display * display, Colormap map, _Xconst char * spec, XColor * colorPtr); /* 58 */ - GC (*xCreateGC) (Display * display, Drawable d, unsigned long valuemask, XGCValues * values); /* 59 */ - void (*xFreeGC) (Display * display, GC gc); /* 60 */ - Atom (*xInternAtom) (Display * display, _Xconst char * atom_name, Bool only_if_exists); /* 61 */ - void (*xSetBackground) (Display * display, GC gc, unsigned long foreground); /* 62 */ - void (*xSetForeground) (Display * display, GC gc, unsigned long foreground); /* 63 */ - void (*xSetClipMask) (Display * display, GC gc, Pixmap pixmap); /* 64 */ - void (*xSetClipOrigin) (Display * display, GC gc, int clip_x_origin, int clip_y_origin); /* 65 */ - void (*xSetTSOrigin) (Display * display, GC gc, int ts_x_origin, int ts_y_origin); /* 66 */ - void (*xChangeGC) (Display * d, GC gc, unsigned long mask, XGCValues * values); /* 67 */ - void (*xSetFont) (Display * display, GC gc, Font font); /* 68 */ - void (*xSetArcMode) (Display * display, GC gc, int arc_mode); /* 69 */ - void (*xSetStipple) (Display * display, GC gc, Pixmap stipple); /* 70 */ - void (*xSetFillRule) (Display * display, GC gc, int fill_rule); /* 71 */ - void (*xSetFillStyle) (Display * display, GC gc, int fill_style); /* 72 */ - void (*xSetFunction) (Display * display, GC gc, int function); /* 73 */ - void (*xSetLineAttributes) (Display * display, GC gc, unsigned int line_width, int line_style, int cap_style, int join_style); /* 74 */ - int (*_XInitImageFuncPtrs) (XImage * image); /* 75 */ - XIC (*xCreateIC) (void); /* 76 */ - XVisualInfo * (*xGetVisualInfo) (Display * display, long vinfo_mask, XVisualInfo * vinfo_template, int * nitems_return); /* 77 */ - void (*xSetWMClientMachine) (Display * display, Window w, XTextProperty * text_prop); /* 78 */ - Status (*xStringListToTextProperty) (char ** list, int count, XTextProperty * text_prop_return); /* 79 */ - void (*xDrawSegments) (Display * display, Drawable d, GC gc, XSegment * segments, int nsegments); /* 80 */ - void (*xForceScreenSaver) (Display * display, int mode); /* 81 */ - void (*xDrawLine) (Display * d, Drawable dr, GC g, int x1, int y1, int x2, int y2); /* 82 */ - void (*xFillRectangle) (Display * display, Drawable d, GC gc, int x, int y, unsigned int width, unsigned int height); /* 83 */ - void (*xClearWindow) (Display * d, Window w); /* 84 */ - void (*xDrawPoint) (Display * display, Drawable d, GC gc, int x, int y); /* 85 */ - void (*xDrawPoints) (Display * display, Drawable d, GC gc, XPoint * points, int npoints, int mode); /* 86 */ - void (*xWarpPointer) (Display * display, Window src_w, Window dest_w, int src_x, int src_y, unsigned int src_width, unsigned int src_height, int dest_x, int dest_y); /* 87 */ - void (*xQueryColor) (Display * display, Colormap colormap, XColor * def_in_out); /* 88 */ - void (*xQueryColors) (Display * display, Colormap colormap, XColor * defs_in_out, int ncolors); /* 89 */ - Status (*xQueryTree) (Display * d, Window w1, Window * w2, Window * w3, Window ** w4, unsigned int * ui); /* 90 */ - int (*xSync) (Display * display, Bool flag); /* 91 */ -#endif /* AQUA */ -} TkIntXlibStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TkIntXlibStubs *tkIntXlibStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifdef __WIN32__ /* WIN */ -#ifndef XSetDashes -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#endif -#ifndef XGetModifierMapping -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#endif -#ifndef XCreateImage -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#endif -#ifndef XGetImage -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#endif -#ifndef XGetAtomName -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#endif -#ifndef XKeysymToString -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#endif -#ifndef XCreateColormap -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#endif -#ifndef XCreatePixmapCursor -#define XCreatePixmapCursor \ - (tkIntXlibStubsPtr->xCreatePixmapCursor) /* 7 */ -#endif -#ifndef XCreateGlyphCursor -#define XCreateGlyphCursor \ - (tkIntXlibStubsPtr->xCreateGlyphCursor) /* 8 */ -#endif -#ifndef XGContextFromGC -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 9 */ -#endif -#ifndef XListHosts -#define XListHosts \ - (tkIntXlibStubsPtr->xListHosts) /* 10 */ -#endif -#ifndef XKeycodeToKeysym -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 11 */ -#endif -#ifndef XStringToKeysym -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 12 */ -#endif -#ifndef XRootWindow -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 13 */ -#endif -#ifndef XSetErrorHandler -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 14 */ -#endif -#ifndef XIconifyWindow -#define XIconifyWindow \ - (tkIntXlibStubsPtr->xIconifyWindow) /* 15 */ -#endif -#ifndef XWithdrawWindow -#define XWithdrawWindow \ - (tkIntXlibStubsPtr->xWithdrawWindow) /* 16 */ -#endif -#ifndef XGetWMColormapWindows -#define XGetWMColormapWindows \ - (tkIntXlibStubsPtr->xGetWMColormapWindows) /* 17 */ -#endif -#ifndef XAllocColor -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 18 */ -#endif -#ifndef XBell -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 19 */ -#endif -#ifndef XChangeProperty -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 20 */ -#endif -#ifndef XChangeWindowAttributes -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 21 */ -#endif -#ifndef XClearWindow -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 22 */ -#endif -#ifndef XConfigureWindow -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 23 */ -#endif -#ifndef XCopyArea -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 24 */ -#endif -#ifndef XCopyPlane -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 25 */ -#endif -#ifndef XCreateBitmapFromData -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 26 */ -#endif -#ifndef XDefineCursor -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 27 */ -#endif -#ifndef XDeleteProperty -#define XDeleteProperty \ - (tkIntXlibStubsPtr->xDeleteProperty) /* 28 */ -#endif -#ifndef XDestroyWindow -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 29 */ -#endif -#ifndef XDrawArc -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 30 */ -#endif -#ifndef XDrawLines -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 31 */ -#endif -#ifndef XDrawRectangle -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 32 */ -#endif -#ifndef XFillArc -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 33 */ -#endif -#ifndef XFillPolygon -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 34 */ -#endif -#ifndef XFillRectangles -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 35 */ -#endif -#ifndef XForceScreenSaver -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 36 */ -#endif -#ifndef XFreeColormap -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 37 */ -#endif -#ifndef XFreeColors -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 38 */ -#endif -#ifndef XFreeCursor -#define XFreeCursor \ - (tkIntXlibStubsPtr->xFreeCursor) /* 39 */ -#endif -#ifndef XFreeModifiermap -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 40 */ -#endif -#ifndef XGetGeometry -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 41 */ -#endif -#ifndef XGetInputFocus -#define XGetInputFocus \ - (tkIntXlibStubsPtr->xGetInputFocus) /* 42 */ -#endif -#ifndef XGetWindowProperty -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 43 */ -#endif -#ifndef XGetWindowAttributes -#define XGetWindowAttributes \ - (tkIntXlibStubsPtr->xGetWindowAttributes) /* 44 */ -#endif -#ifndef XGrabKeyboard -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 45 */ -#endif -#ifndef XGrabPointer -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 46 */ -#endif -#ifndef XKeysymToKeycode -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 47 */ -#endif -#ifndef XLookupColor -#define XLookupColor \ - (tkIntXlibStubsPtr->xLookupColor) /* 48 */ -#endif -#ifndef XMapWindow -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 49 */ -#endif -#ifndef XMoveResizeWindow -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 50 */ -#endif -#ifndef XMoveWindow -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 51 */ -#endif -#ifndef XNextEvent -#define XNextEvent \ - (tkIntXlibStubsPtr->xNextEvent) /* 52 */ -#endif -#ifndef XPutBackEvent -#define XPutBackEvent \ - (tkIntXlibStubsPtr->xPutBackEvent) /* 53 */ -#endif -#ifndef XQueryColors -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 54 */ -#endif -#ifndef XQueryPointer -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 55 */ -#endif -#ifndef XQueryTree -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 56 */ -#endif -#ifndef XRaiseWindow -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 57 */ -#endif -#ifndef XRefreshKeyboardMapping -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 58 */ -#endif -#ifndef XResizeWindow -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 59 */ -#endif -#ifndef XSelectInput -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 60 */ -#endif -#ifndef XSendEvent -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 61 */ -#endif -#ifndef XSetCommand -#define XSetCommand \ - (tkIntXlibStubsPtr->xSetCommand) /* 62 */ -#endif -#ifndef XSetIconName -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 63 */ -#endif -#ifndef XSetInputFocus -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 64 */ -#endif -#ifndef XSetSelectionOwner -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 65 */ -#endif -#ifndef XSetWindowBackground -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 66 */ -#endif -#ifndef XSetWindowBackgroundPixmap -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 67 */ -#endif -#ifndef XSetWindowBorder -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 68 */ -#endif -#ifndef XSetWindowBorderPixmap -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 69 */ -#endif -#ifndef XSetWindowBorderWidth -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 70 */ -#endif -#ifndef XSetWindowColormap -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 71 */ -#endif -#ifndef XTranslateCoordinates -#define XTranslateCoordinates \ - (tkIntXlibStubsPtr->xTranslateCoordinates) /* 72 */ -#endif -#ifndef XUngrabKeyboard -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 73 */ -#endif -#ifndef XUngrabPointer -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 74 */ -#endif -#ifndef XUnmapWindow -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 75 */ -#endif -#ifndef XWindowEvent -#define XWindowEvent \ - (tkIntXlibStubsPtr->xWindowEvent) /* 76 */ -#endif -#ifndef XDestroyIC -#define XDestroyIC \ - (tkIntXlibStubsPtr->xDestroyIC) /* 77 */ -#endif -#ifndef XFilterEvent -#define XFilterEvent \ - (tkIntXlibStubsPtr->xFilterEvent) /* 78 */ -#endif -#ifndef XmbLookupString -#define XmbLookupString \ - (tkIntXlibStubsPtr->xmbLookupString) /* 79 */ -#endif -#ifndef TkPutImage -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 80 */ -#endif -/* Slot 81 is reserved */ -#ifndef XParseColor -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 82 */ -#endif -#ifndef XCreateGC -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 83 */ -#endif -#ifndef XFreeGC -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 84 */ -#endif -#ifndef XInternAtom -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 85 */ -#endif -#ifndef XSetBackground -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 86 */ -#endif -#ifndef XSetForeground -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 87 */ -#endif -#ifndef XSetClipMask -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 88 */ -#endif -#ifndef XSetClipOrigin -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 89 */ -#endif -#ifndef XSetTSOrigin -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 90 */ -#endif -#ifndef XChangeGC -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 91 */ -#endif -#ifndef XSetFont -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 92 */ -#endif -#ifndef XSetArcMode -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 93 */ -#endif -#ifndef XSetStipple -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 94 */ -#endif -#ifndef XSetFillRule -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 95 */ -#endif -#ifndef XSetFillStyle -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 96 */ -#endif -#ifndef XSetFunction -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 97 */ -#endif -#ifndef XSetLineAttributes -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 98 */ -#endif -#ifndef _XInitImageFuncPtrs -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 99 */ -#endif -#ifndef XCreateIC -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 100 */ -#endif -#ifndef XGetVisualInfo -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 101 */ -#endif -#ifndef XSetWMClientMachine -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 102 */ -#endif -#ifndef XStringListToTextProperty -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 103 */ -#endif -#ifndef XDrawLine -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 104 */ -#endif -#ifndef XWarpPointer -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 105 */ -#endif -#ifndef XFillRectangle -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 106 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef XSetDashes -#define XSetDashes \ - (tkIntXlibStubsPtr->xSetDashes) /* 0 */ -#endif -#ifndef XGetModifierMapping -#define XGetModifierMapping \ - (tkIntXlibStubsPtr->xGetModifierMapping) /* 1 */ -#endif -#ifndef XCreateImage -#define XCreateImage \ - (tkIntXlibStubsPtr->xCreateImage) /* 2 */ -#endif -#ifndef XGetImage -#define XGetImage \ - (tkIntXlibStubsPtr->xGetImage) /* 3 */ -#endif -#ifndef XGetAtomName -#define XGetAtomName \ - (tkIntXlibStubsPtr->xGetAtomName) /* 4 */ -#endif -#ifndef XKeysymToString -#define XKeysymToString \ - (tkIntXlibStubsPtr->xKeysymToString) /* 5 */ -#endif -#ifndef XCreateColormap -#define XCreateColormap \ - (tkIntXlibStubsPtr->xCreateColormap) /* 6 */ -#endif -#ifndef XGContextFromGC -#define XGContextFromGC \ - (tkIntXlibStubsPtr->xGContextFromGC) /* 7 */ -#endif -#ifndef XKeycodeToKeysym -#define XKeycodeToKeysym \ - (tkIntXlibStubsPtr->xKeycodeToKeysym) /* 8 */ -#endif -#ifndef XStringToKeysym -#define XStringToKeysym \ - (tkIntXlibStubsPtr->xStringToKeysym) /* 9 */ -#endif -#ifndef XRootWindow -#define XRootWindow \ - (tkIntXlibStubsPtr->xRootWindow) /* 10 */ -#endif -#ifndef XSetErrorHandler -#define XSetErrorHandler \ - (tkIntXlibStubsPtr->xSetErrorHandler) /* 11 */ -#endif -#ifndef XAllocColor -#define XAllocColor \ - (tkIntXlibStubsPtr->xAllocColor) /* 12 */ -#endif -#ifndef XBell -#define XBell \ - (tkIntXlibStubsPtr->xBell) /* 13 */ -#endif -#ifndef XChangeProperty -#define XChangeProperty \ - (tkIntXlibStubsPtr->xChangeProperty) /* 14 */ -#endif -#ifndef XChangeWindowAttributes -#define XChangeWindowAttributes \ - (tkIntXlibStubsPtr->xChangeWindowAttributes) /* 15 */ -#endif -#ifndef XConfigureWindow -#define XConfigureWindow \ - (tkIntXlibStubsPtr->xConfigureWindow) /* 16 */ -#endif -#ifndef XCopyArea -#define XCopyArea \ - (tkIntXlibStubsPtr->xCopyArea) /* 17 */ -#endif -#ifndef XCopyPlane -#define XCopyPlane \ - (tkIntXlibStubsPtr->xCopyPlane) /* 18 */ -#endif -#ifndef XCreateBitmapFromData -#define XCreateBitmapFromData \ - (tkIntXlibStubsPtr->xCreateBitmapFromData) /* 19 */ -#endif -#ifndef XDefineCursor -#define XDefineCursor \ - (tkIntXlibStubsPtr->xDefineCursor) /* 20 */ -#endif -#ifndef XDestroyWindow -#define XDestroyWindow \ - (tkIntXlibStubsPtr->xDestroyWindow) /* 21 */ -#endif -#ifndef XDrawArc -#define XDrawArc \ - (tkIntXlibStubsPtr->xDrawArc) /* 22 */ -#endif -#ifndef XDrawLines -#define XDrawLines \ - (tkIntXlibStubsPtr->xDrawLines) /* 23 */ -#endif -#ifndef XDrawRectangle -#define XDrawRectangle \ - (tkIntXlibStubsPtr->xDrawRectangle) /* 24 */ -#endif -#ifndef XFillArc -#define XFillArc \ - (tkIntXlibStubsPtr->xFillArc) /* 25 */ -#endif -#ifndef XFillPolygon -#define XFillPolygon \ - (tkIntXlibStubsPtr->xFillPolygon) /* 26 */ -#endif -#ifndef XFillRectangles -#define XFillRectangles \ - (tkIntXlibStubsPtr->xFillRectangles) /* 27 */ -#endif -#ifndef XFreeColormap -#define XFreeColormap \ - (tkIntXlibStubsPtr->xFreeColormap) /* 28 */ -#endif -#ifndef XFreeColors -#define XFreeColors \ - (tkIntXlibStubsPtr->xFreeColors) /* 29 */ -#endif -#ifndef XFreeModifiermap -#define XFreeModifiermap \ - (tkIntXlibStubsPtr->xFreeModifiermap) /* 30 */ -#endif -#ifndef XGetGeometry -#define XGetGeometry \ - (tkIntXlibStubsPtr->xGetGeometry) /* 31 */ -#endif -#ifndef XGetWindowProperty -#define XGetWindowProperty \ - (tkIntXlibStubsPtr->xGetWindowProperty) /* 32 */ -#endif -#ifndef XGrabKeyboard -#define XGrabKeyboard \ - (tkIntXlibStubsPtr->xGrabKeyboard) /* 33 */ -#endif -#ifndef XGrabPointer -#define XGrabPointer \ - (tkIntXlibStubsPtr->xGrabPointer) /* 34 */ -#endif -#ifndef XKeysymToKeycode -#define XKeysymToKeycode \ - (tkIntXlibStubsPtr->xKeysymToKeycode) /* 35 */ -#endif -#ifndef XMapWindow -#define XMapWindow \ - (tkIntXlibStubsPtr->xMapWindow) /* 36 */ -#endif -#ifndef XMoveResizeWindow -#define XMoveResizeWindow \ - (tkIntXlibStubsPtr->xMoveResizeWindow) /* 37 */ -#endif -#ifndef XMoveWindow -#define XMoveWindow \ - (tkIntXlibStubsPtr->xMoveWindow) /* 38 */ -#endif -#ifndef XQueryPointer -#define XQueryPointer \ - (tkIntXlibStubsPtr->xQueryPointer) /* 39 */ -#endif -#ifndef XRaiseWindow -#define XRaiseWindow \ - (tkIntXlibStubsPtr->xRaiseWindow) /* 40 */ -#endif -#ifndef XRefreshKeyboardMapping -#define XRefreshKeyboardMapping \ - (tkIntXlibStubsPtr->xRefreshKeyboardMapping) /* 41 */ -#endif -#ifndef XResizeWindow -#define XResizeWindow \ - (tkIntXlibStubsPtr->xResizeWindow) /* 42 */ -#endif -#ifndef XSelectInput -#define XSelectInput \ - (tkIntXlibStubsPtr->xSelectInput) /* 43 */ -#endif -#ifndef XSendEvent -#define XSendEvent \ - (tkIntXlibStubsPtr->xSendEvent) /* 44 */ -#endif -#ifndef XSetIconName -#define XSetIconName \ - (tkIntXlibStubsPtr->xSetIconName) /* 45 */ -#endif -#ifndef XSetInputFocus -#define XSetInputFocus \ - (tkIntXlibStubsPtr->xSetInputFocus) /* 46 */ -#endif -#ifndef XSetSelectionOwner -#define XSetSelectionOwner \ - (tkIntXlibStubsPtr->xSetSelectionOwner) /* 47 */ -#endif -#ifndef XSetWindowBackground -#define XSetWindowBackground \ - (tkIntXlibStubsPtr->xSetWindowBackground) /* 48 */ -#endif -#ifndef XSetWindowBackgroundPixmap -#define XSetWindowBackgroundPixmap \ - (tkIntXlibStubsPtr->xSetWindowBackgroundPixmap) /* 49 */ -#endif -#ifndef XSetWindowBorder -#define XSetWindowBorder \ - (tkIntXlibStubsPtr->xSetWindowBorder) /* 50 */ -#endif -#ifndef XSetWindowBorderPixmap -#define XSetWindowBorderPixmap \ - (tkIntXlibStubsPtr->xSetWindowBorderPixmap) /* 51 */ -#endif -#ifndef XSetWindowBorderWidth -#define XSetWindowBorderWidth \ - (tkIntXlibStubsPtr->xSetWindowBorderWidth) /* 52 */ -#endif -#ifndef XSetWindowColormap -#define XSetWindowColormap \ - (tkIntXlibStubsPtr->xSetWindowColormap) /* 53 */ -#endif -#ifndef XUngrabKeyboard -#define XUngrabKeyboard \ - (tkIntXlibStubsPtr->xUngrabKeyboard) /* 54 */ -#endif -#ifndef XUngrabPointer -#define XUngrabPointer \ - (tkIntXlibStubsPtr->xUngrabPointer) /* 55 */ -#endif -#ifndef XUnmapWindow -#define XUnmapWindow \ - (tkIntXlibStubsPtr->xUnmapWindow) /* 56 */ -#endif -#ifndef TkPutImage -#define TkPutImage \ - (tkIntXlibStubsPtr->tkPutImage) /* 57 */ -#endif -#ifndef XParseColor -#define XParseColor \ - (tkIntXlibStubsPtr->xParseColor) /* 58 */ -#endif -#ifndef XCreateGC -#define XCreateGC \ - (tkIntXlibStubsPtr->xCreateGC) /* 59 */ -#endif -#ifndef XFreeGC -#define XFreeGC \ - (tkIntXlibStubsPtr->xFreeGC) /* 60 */ -#endif -#ifndef XInternAtom -#define XInternAtom \ - (tkIntXlibStubsPtr->xInternAtom) /* 61 */ -#endif -#ifndef XSetBackground -#define XSetBackground \ - (tkIntXlibStubsPtr->xSetBackground) /* 62 */ -#endif -#ifndef XSetForeground -#define XSetForeground \ - (tkIntXlibStubsPtr->xSetForeground) /* 63 */ -#endif -#ifndef XSetClipMask -#define XSetClipMask \ - (tkIntXlibStubsPtr->xSetClipMask) /* 64 */ -#endif -#ifndef XSetClipOrigin -#define XSetClipOrigin \ - (tkIntXlibStubsPtr->xSetClipOrigin) /* 65 */ -#endif -#ifndef XSetTSOrigin -#define XSetTSOrigin \ - (tkIntXlibStubsPtr->xSetTSOrigin) /* 66 */ -#endif -#ifndef XChangeGC -#define XChangeGC \ - (tkIntXlibStubsPtr->xChangeGC) /* 67 */ -#endif -#ifndef XSetFont -#define XSetFont \ - (tkIntXlibStubsPtr->xSetFont) /* 68 */ -#endif -#ifndef XSetArcMode -#define XSetArcMode \ - (tkIntXlibStubsPtr->xSetArcMode) /* 69 */ -#endif -#ifndef XSetStipple -#define XSetStipple \ - (tkIntXlibStubsPtr->xSetStipple) /* 70 */ -#endif -#ifndef XSetFillRule -#define XSetFillRule \ - (tkIntXlibStubsPtr->xSetFillRule) /* 71 */ -#endif -#ifndef XSetFillStyle -#define XSetFillStyle \ - (tkIntXlibStubsPtr->xSetFillStyle) /* 72 */ -#endif -#ifndef XSetFunction -#define XSetFunction \ - (tkIntXlibStubsPtr->xSetFunction) /* 73 */ -#endif -#ifndef XSetLineAttributes -#define XSetLineAttributes \ - (tkIntXlibStubsPtr->xSetLineAttributes) /* 74 */ -#endif -#ifndef _XInitImageFuncPtrs -#define _XInitImageFuncPtrs \ - (tkIntXlibStubsPtr->_XInitImageFuncPtrs) /* 75 */ -#endif -#ifndef XCreateIC -#define XCreateIC \ - (tkIntXlibStubsPtr->xCreateIC) /* 76 */ -#endif -#ifndef XGetVisualInfo -#define XGetVisualInfo \ - (tkIntXlibStubsPtr->xGetVisualInfo) /* 77 */ -#endif -#ifndef XSetWMClientMachine -#define XSetWMClientMachine \ - (tkIntXlibStubsPtr->xSetWMClientMachine) /* 78 */ -#endif -#ifndef XStringListToTextProperty -#define XStringListToTextProperty \ - (tkIntXlibStubsPtr->xStringListToTextProperty) /* 79 */ -#endif -#ifndef XDrawSegments -#define XDrawSegments \ - (tkIntXlibStubsPtr->xDrawSegments) /* 80 */ -#endif -#ifndef XForceScreenSaver -#define XForceScreenSaver \ - (tkIntXlibStubsPtr->xForceScreenSaver) /* 81 */ -#endif -#ifndef XDrawLine -#define XDrawLine \ - (tkIntXlibStubsPtr->xDrawLine) /* 82 */ -#endif -#ifndef XFillRectangle -#define XFillRectangle \ - (tkIntXlibStubsPtr->xFillRectangle) /* 83 */ -#endif -#ifndef XClearWindow -#define XClearWindow \ - (tkIntXlibStubsPtr->xClearWindow) /* 84 */ -#endif -#ifndef XDrawPoint -#define XDrawPoint \ - (tkIntXlibStubsPtr->xDrawPoint) /* 85 */ -#endif -#ifndef XDrawPoints -#define XDrawPoints \ - (tkIntXlibStubsPtr->xDrawPoints) /* 86 */ -#endif -#ifndef XWarpPointer -#define XWarpPointer \ - (tkIntXlibStubsPtr->xWarpPointer) /* 87 */ -#endif -#ifndef XQueryColor -#define XQueryColor \ - (tkIntXlibStubsPtr->xQueryColor) /* 88 */ -#endif -#ifndef XQueryColors -#define XQueryColors \ - (tkIntXlibStubsPtr->xQueryColors) /* 89 */ -#endif -#ifndef XQueryTree -#define XQueryTree \ - (tkIntXlibStubsPtr->xQueryTree) /* 90 */ -#endif -#ifndef XSync -#define XSync \ - (tkIntXlibStubsPtr->xSync) /* 91 */ -#endif -#endif /* AQUA */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKINTXLIBDECLS */ diff --git a/mingw/include/tkPlatDecls.h b/mingw/include/tkPlatDecls.h deleted file mode 100644 index e311c1290b..0000000000 --- a/mingw/include/tkPlatDecls.h +++ /dev/null @@ -1,253 +0,0 @@ -/* - * tkPlatDecls.h -- - * - * Declarations of functions in the platform-specific public Tcl API. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkPlatDecls.h,v 1.15 2007/12/13 15:24:16 dgp Exp $ - */ - -#ifndef _TKPLATDECLS -#define _TKPLATDECLS - -#ifdef BUILD_tk -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT -#endif - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tk.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -#ifdef __WIN32__ /* WIN */ -#ifndef Tk_AttachHWND_TCL_DECLARED -#define Tk_AttachHWND_TCL_DECLARED -/* 0 */ -EXTERN Window Tk_AttachHWND (Tk_Window tkwin, HWND hwnd); -#endif -#ifndef Tk_GetHINSTANCE_TCL_DECLARED -#define Tk_GetHINSTANCE_TCL_DECLARED -/* 1 */ -EXTERN HINSTANCE Tk_GetHINSTANCE (void); -#endif -#ifndef Tk_GetHWND_TCL_DECLARED -#define Tk_GetHWND_TCL_DECLARED -/* 2 */ -EXTERN HWND Tk_GetHWND (Window window); -#endif -#ifndef Tk_HWNDToWindow_TCL_DECLARED -#define Tk_HWNDToWindow_TCL_DECLARED -/* 3 */ -EXTERN Tk_Window Tk_HWNDToWindow (HWND hwnd); -#endif -#ifndef Tk_PointerEvent_TCL_DECLARED -#define Tk_PointerEvent_TCL_DECLARED -/* 4 */ -EXTERN void Tk_PointerEvent (HWND hwnd, int x, int y); -#endif -#ifndef Tk_TranslateWinEvent_TCL_DECLARED -#define Tk_TranslateWinEvent_TCL_DECLARED -/* 5 */ -EXTERN int Tk_TranslateWinEvent (HWND hwnd, UINT message, - WPARAM wParam, LPARAM lParam, - LRESULT * result); -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef Tk_MacOSXSetEmbedHandler_TCL_DECLARED -#define Tk_MacOSXSetEmbedHandler_TCL_DECLARED -/* 0 */ -EXTERN void Tk_MacOSXSetEmbedHandler ( - Tk_MacOSXEmbedRegisterWinProc * registerWinProcPtr, - Tk_MacOSXEmbedGetGrafPortProc * getPortProcPtr, - Tk_MacOSXEmbedMakeContainerExistProc * containerExistProcPtr, - Tk_MacOSXEmbedGetClipProc * getClipProc, - Tk_MacOSXEmbedGetOffsetInParentProc * getOffsetProc); -#endif -#ifndef Tk_MacOSXTurnOffMenus_TCL_DECLARED -#define Tk_MacOSXTurnOffMenus_TCL_DECLARED -/* 1 */ -EXTERN void Tk_MacOSXTurnOffMenus (void); -#endif -#ifndef Tk_MacOSXTkOwnsCursor_TCL_DECLARED -#define Tk_MacOSXTkOwnsCursor_TCL_DECLARED -/* 2 */ -EXTERN void Tk_MacOSXTkOwnsCursor (int tkOwnsIt); -#endif -#ifndef TkMacOSXInitMenus_TCL_DECLARED -#define TkMacOSXInitMenus_TCL_DECLARED -/* 3 */ -EXTERN void TkMacOSXInitMenus (Tcl_Interp * interp); -#endif -#ifndef TkMacOSXInitAppleEvents_TCL_DECLARED -#define TkMacOSXInitAppleEvents_TCL_DECLARED -/* 4 */ -EXTERN void TkMacOSXInitAppleEvents (Tcl_Interp * interp); -#endif -#ifndef TkGenWMConfigureEvent_TCL_DECLARED -#define TkGenWMConfigureEvent_TCL_DECLARED -/* 5 */ -EXTERN void TkGenWMConfigureEvent (Tk_Window tkwin, int x, int y, - int width, int height, int flags); -#endif -#ifndef TkMacOSXInvalClipRgns_TCL_DECLARED -#define TkMacOSXInvalClipRgns_TCL_DECLARED -/* 6 */ -EXTERN void TkMacOSXInvalClipRgns (Tk_Window tkwin); -#endif -#ifndef TkMacOSXGetDrawablePort_TCL_DECLARED -#define TkMacOSXGetDrawablePort_TCL_DECLARED -/* 7 */ -EXTERN GWorldPtr TkMacOSXGetDrawablePort (Drawable drawable); -#endif -#ifndef TkMacOSXGetRootControl_TCL_DECLARED -#define TkMacOSXGetRootControl_TCL_DECLARED -/* 8 */ -EXTERN ControlRef TkMacOSXGetRootControl (Drawable drawable); -#endif -#ifndef Tk_MacOSXSetupTkNotifier_TCL_DECLARED -#define Tk_MacOSXSetupTkNotifier_TCL_DECLARED -/* 9 */ -EXTERN void Tk_MacOSXSetupTkNotifier (void); -#endif -#ifndef Tk_MacOSXIsAppInFront_TCL_DECLARED -#define Tk_MacOSXIsAppInFront_TCL_DECLARED -/* 10 */ -EXTERN int Tk_MacOSXIsAppInFront (void); -#endif -#endif /* AQUA */ - -typedef struct TkPlatStubs { - int magic; - struct TkPlatStubHooks *hooks; - -#ifdef __WIN32__ /* WIN */ - Window (*tk_AttachHWND) (Tk_Window tkwin, HWND hwnd); /* 0 */ - HINSTANCE (*tk_GetHINSTANCE) (void); /* 1 */ - HWND (*tk_GetHWND) (Window window); /* 2 */ - Tk_Window (*tk_HWNDToWindow) (HWND hwnd); /* 3 */ - void (*tk_PointerEvent) (HWND hwnd, int x, int y); /* 4 */ - int (*tk_TranslateWinEvent) (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam, LRESULT * result); /* 5 */ -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ - void (*tk_MacOSXSetEmbedHandler) (Tk_MacOSXEmbedRegisterWinProc * registerWinProcPtr, Tk_MacOSXEmbedGetGrafPortProc * getPortProcPtr, Tk_MacOSXEmbedMakeContainerExistProc * containerExistProcPtr, Tk_MacOSXEmbedGetClipProc * getClipProc, Tk_MacOSXEmbedGetOffsetInParentProc * getOffsetProc); /* 0 */ - void (*tk_MacOSXTurnOffMenus) (void); /* 1 */ - void (*tk_MacOSXTkOwnsCursor) (int tkOwnsIt); /* 2 */ - void (*tkMacOSXInitMenus) (Tcl_Interp * interp); /* 3 */ - void (*tkMacOSXInitAppleEvents) (Tcl_Interp * interp); /* 4 */ - void (*tkGenWMConfigureEvent) (Tk_Window tkwin, int x, int y, int width, int height, int flags); /* 5 */ - void (*tkMacOSXInvalClipRgns) (Tk_Window tkwin); /* 6 */ - GWorldPtr (*tkMacOSXGetDrawablePort) (Drawable drawable); /* 7 */ - ControlRef (*tkMacOSXGetRootControl) (Drawable drawable); /* 8 */ - void (*tk_MacOSXSetupTkNotifier) (void); /* 9 */ - int (*tk_MacOSXIsAppInFront) (void); /* 10 */ -#endif /* AQUA */ -} TkPlatStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TkPlatStubs *tkPlatStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifdef __WIN32__ /* WIN */ -#ifndef Tk_AttachHWND -#define Tk_AttachHWND \ - (tkPlatStubsPtr->tk_AttachHWND) /* 0 */ -#endif -#ifndef Tk_GetHINSTANCE -#define Tk_GetHINSTANCE \ - (tkPlatStubsPtr->tk_GetHINSTANCE) /* 1 */ -#endif -#ifndef Tk_GetHWND -#define Tk_GetHWND \ - (tkPlatStubsPtr->tk_GetHWND) /* 2 */ -#endif -#ifndef Tk_HWNDToWindow -#define Tk_HWNDToWindow \ - (tkPlatStubsPtr->tk_HWNDToWindow) /* 3 */ -#endif -#ifndef Tk_PointerEvent -#define Tk_PointerEvent \ - (tkPlatStubsPtr->tk_PointerEvent) /* 4 */ -#endif -#ifndef Tk_TranslateWinEvent -#define Tk_TranslateWinEvent \ - (tkPlatStubsPtr->tk_TranslateWinEvent) /* 5 */ -#endif -#endif /* WIN */ -#ifdef MAC_OSX_TK /* AQUA */ -#ifndef Tk_MacOSXSetEmbedHandler -#define Tk_MacOSXSetEmbedHandler \ - (tkPlatStubsPtr->tk_MacOSXSetEmbedHandler) /* 0 */ -#endif -#ifndef Tk_MacOSXTurnOffMenus -#define Tk_MacOSXTurnOffMenus \ - (tkPlatStubsPtr->tk_MacOSXTurnOffMenus) /* 1 */ -#endif -#ifndef Tk_MacOSXTkOwnsCursor -#define Tk_MacOSXTkOwnsCursor \ - (tkPlatStubsPtr->tk_MacOSXTkOwnsCursor) /* 2 */ -#endif -#ifndef TkMacOSXInitMenus -#define TkMacOSXInitMenus \ - (tkPlatStubsPtr->tkMacOSXInitMenus) /* 3 */ -#endif -#ifndef TkMacOSXInitAppleEvents -#define TkMacOSXInitAppleEvents \ - (tkPlatStubsPtr->tkMacOSXInitAppleEvents) /* 4 */ -#endif -#ifndef TkGenWMConfigureEvent -#define TkGenWMConfigureEvent \ - (tkPlatStubsPtr->tkGenWMConfigureEvent) /* 5 */ -#endif -#ifndef TkMacOSXInvalClipRgns -#define TkMacOSXInvalClipRgns \ - (tkPlatStubsPtr->tkMacOSXInvalClipRgns) /* 6 */ -#endif -#ifndef TkMacOSXGetDrawablePort -#define TkMacOSXGetDrawablePort \ - (tkPlatStubsPtr->tkMacOSXGetDrawablePort) /* 7 */ -#endif -#ifndef TkMacOSXGetRootControl -#define TkMacOSXGetRootControl \ - (tkPlatStubsPtr->tkMacOSXGetRootControl) /* 8 */ -#endif -#ifndef Tk_MacOSXSetupTkNotifier -#define Tk_MacOSXSetupTkNotifier \ - (tkPlatStubsPtr->tk_MacOSXSetupTkNotifier) /* 9 */ -#endif -#ifndef Tk_MacOSXIsAppInFront -#define Tk_MacOSXIsAppInFront \ - (tkPlatStubsPtr->tk_MacOSXIsAppInFront) /* 10 */ -#endif -#endif /* AQUA */ - -#endif /* defined(USE_TK_STUBS) && !defined(USE_TK_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* _TKPLATDECLS */ diff --git a/mingw/include/tkimg.h b/mingw/include/tkimg.h deleted file mode 100644 index 8d6d7232f9..0000000000 --- a/mingw/include/tkimg.h +++ /dev/null @@ -1,193 +0,0 @@ -/* - * tkimg.h -- - * - * Interface to tkimg Base package. - * - * Copyright (c) 2002 Andreas Kupries - * - * Zveno Pty Ltd makes this software and associated documentation - * available free of charge for any purpose. You may make copies - * of the software but you must include all of this notice on any copy. - * - * Zveno Pty Ltd does not warrant that this software is error free - * or fit for any purpose. Zveno Pty Ltd disclaims any liability for - * all claims, expenses, losses, damages and costs any user may incur - * as a result of using, copying or modifying the software. - * - * $Id: tkimg.h,v 1.4 2004/06/03 21:54:42 andreas_kupries Exp $ - * - */ - -#ifndef __TKIMG_H__ -#define __TKIMG_H__ - -#include /* stdout, and other definitions */ -#include "tk.h" - -/* - * Used to block the rest of this header file from resource compilers so - * we can just get the version info. - */ -#ifndef RC_INVOKED - -/* TIP 27 update. If CONST84 is not defined we are compiling against a - * core before 8.4 and have to disable some CONST'ness. - */ - -#ifndef CONST84 -# define CONST84 -#endif - -/* - * Fix the Borland bug that's in the EXTERN macro from tcl.h. - */ -#ifndef TCL_EXTERN -# undef DLLIMPORT -# undef DLLEXPORT -# if defined(STATIC_BUILD) -# define DLLIMPORT -# define DLLEXPORT -# elif (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) || (defined(__GNUC__) && defined(__declspec)))) || (defined(MAC_TCL) && FUNCTION_DECLSPEC) -# define DLLIMPORT __declspec(dllimport) -# define DLLEXPORT __declspec(dllexport) -# elif defined(__BORLANDC__) -# define OLDBORLAND 1 -# define DLLIMPORT __import -# define DLLEXPORT __export -# else -# define DLLIMPORT -# define DLLEXPORT -# endif - /* Avoid name mangling from C++ compilers. */ -# ifdef __cplusplus -# define TCL_EXTRNC extern "C" -# else -# define TCL_EXTRNC extern -# endif - /* Pre-5.5 Borland requires the attributes be placed after the */ - /* return type. */ -# ifdef OLDBORLAND -# define TCL_EXTERN(RTYPE) TCL_EXTRNC RTYPE TCL_STORAGE_CLASS -# else -# define TCL_EXTERN(RTYPE) TCL_EXTRNC TCL_STORAGE_CLASS RTYPE -# endif -#endif - -/* - * These macros are used to control whether functions are being declared for - * import or export in Windows, - * They map to no-op declarations on non-Windows systems. - * Assumes that tcl.h defines DLLEXPORT & DLLIMPORT correctly. - * The default build on windows is for a DLL, which causes the DLLIMPORT - * and DLLEXPORT macros to be nonempty. To build a static library, the - * macro STATIC_BUILD should be defined before the inclusion of tcl.h - * - * If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the - * name of a library we are building, is set on the compile line for sources - * that are to be placed in the library. When this macro is set, the - * storage class will be set to DLLEXPORT. At the end of the header file, the - * storage class will be reset to DLLIMPORt. - */ - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_tkimg -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_TKIMG_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - *---------------------------------------------------------------------------- - * C API for Tkimg generic layer - *---------------------------------------------------------------------------- - */ - -typedef struct tkimg_MFile { - Tcl_DString *buffer;/* pointer to dynamical string */ - char *data; /* mmencoded source string */ - int c; /* bits left over from previous char */ - int state; /* decoder state (0-4 or IMG_DONE) */ - int length; /* length of physical line already written */ -} tkimg_MFile; - -#define IMG_SPECIAL (1<<8) -#define IMG_PAD (IMG_SPECIAL+1) -#define IMG_SPACE (IMG_SPECIAL+2) -#define IMG_BAD (IMG_SPECIAL+3) -#define IMG_DONE (IMG_SPECIAL+4) -#define IMG_CHAN (IMG_SPECIAL+5) -#define IMG_STRING (IMG_SPECIAL+6) - -#define IMG_TCL (1<<9) -#define IMG_OBJS (1<<10) -#define IMG_PERL (1<<11) -#define IMG_UTF (1<<12) -#define IMG_NEWPHOTO (1<<13) - -/* - *---------------------------------------------------------------------------- - * Function prototypes for publically accessible routines - *---------------------------------------------------------------------------- - */ - -#include "tkimgDecls.h" - -/* - * Convenience macro dealing with the 8.3 / 8.4 difference regarding - * the signature of Tk_PhotoPutBlock [TIP 98]. - * - * Note: The current implementation makes this a compile time decision. - * In the future we might realize a runtime decision instead. - */ - -#if (TK_MAJOR_VERSION > 8) || ((TK_MAJOR_VERSION == 8) && (TK_MINOR_VERSION > 4)) -/* TIP 116 */ -#define tkimg_PhotoPutBlockTk(interp,hdl,b,x,y,w,h) Tk_PhotoPutBlock(interp,hdl, b, x, y, w, h, TK_PHOTO_COMPOSITE_OVERLAY) -#elif (TK_MAJOR_VERSION > 8) || ((TK_MAJOR_VERSION == 8) && (TK_MINOR_VERSION > 3)) -#define tkimg_PhotoPutBlockTk(interp,hdl,b,x,y,w,h) Tk_PhotoPutBlock(hdl, b, x, y, w, h, TK_PHOTO_COMPOSITE_OVERLAY) -#else -#define tkimg_PhotoPutBlockTk(interp,hdl,b,x,y,w,h) Tk_PhotoPutBlock(hdl, b, x, y, w, h) -#endif - -#if (TK_MAJOR_VERSION > 8) || ((TK_MAJOR_VERSION == 8) && (TK_MINOR_VERSION > 4)) -#define tkimg_PhotoExpand(hdl,interp,w,h) Tk_PhotoExpand(interp, hdl, w, h) -#define tkimg_PhotoSetSize(interp,hdl,w,h) Tk_PhotoSetSize(interp, hdl, w, h) -#else -#define tkimg_PhotoExpand(hdl,interp,w,h) Tk_PhotoExpand(hdl, w, h) -#define tkimg_PhotoSetSize(interp,hdl,w,h) Tk_PhotoSetSize(hdl, w, h) -#endif - -/* - *---------------------------------------------------------------------------- - * Function prototypes for stub initialization. - *---------------------------------------------------------------------------- - */ - -#ifdef USE_TKIMG_STUBS -EXTERN CONST char * -Tkimg_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, CONST char *version, int exact)); -#else -/* - * When not using stubs, make it a macro. - */ - -#define Tkimg_InitStubs(interp, version, exact) \ - Tcl_PkgRequire(interp, "tkimg", version, exact) -#endif - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ -#endif /* __TKIMG_H__ */ diff --git a/mingw/include/tkimgDecls.h b/mingw/include/tkimgDecls.h deleted file mode 100644 index 83790d2a9e..0000000000 --- a/mingw/include/tkimgDecls.h +++ /dev/null @@ -1,233 +0,0 @@ -/* - * tkimgDecls.h -- - * - * Declarations of functions in the platform independent public TKIMG API. - * - */ - -#ifndef _TKIMGDECLS -#define _TKIMGDECLS - -/* - * WARNING: The contents of this file is automatically generated by the - * genStubs.tcl script. Any modifications to the function declarations - * below should be made in the tkimg.decls script. - */ - -#include - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN Tcl_Channel tkimg_OpenFileChannel _ANSI_ARGS_(( - Tcl_Interp * interp, CONST char * fileName, - int permissions)); -/* 1 */ -EXTERN int tkimg_ReadInit _ANSI_ARGS_((Tcl_Obj * data, int c, - tkimg_MFile * handle)); -/* 2 */ -EXTERN void tkimg_WriteInit _ANSI_ARGS_((Tcl_DString * buffer, - tkimg_MFile * handle)); -/* 3 */ -EXTERN int tkimg_Getc _ANSI_ARGS_((tkimg_MFile * handle)); -/* 4 */ -EXTERN int tkimg_Read _ANSI_ARGS_((tkimg_MFile * handle, - char * dst, int count)); -/* 5 */ -EXTERN int tkimg_Putc _ANSI_ARGS_((int c, tkimg_MFile * handle)); -/* 6 */ -EXTERN int tkimg_Write _ANSI_ARGS_((tkimg_MFile * handle, - CONST char * src, int count)); -/* 7 */ -EXTERN void tkimg_ReadBuffer _ANSI_ARGS_((int onOff)); -/* Slot 8 is reserved */ -/* Slot 9 is reserved */ -/* 10 */ -EXTERN int tkimg_PhotoPutBlock _ANSI_ARGS_(( - Tk_PhotoHandle handle, - Tk_PhotoImageBlock * blockPtr, int x, int y, - int width, int height)); -/* Slot 11 is reserved */ -/* Slot 12 is reserved */ -/* Slot 13 is reserved */ -/* Slot 14 is reserved */ -/* Slot 15 is reserved */ -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -/* 20 */ -EXTERN void tkimg_FixChanMatchProc _ANSI_ARGS_(( - Tcl_Interp ** interp, Tcl_Channel * chan, - CONST char ** file, Tcl_Obj ** format, - int ** width, int ** height)); -/* 21 */ -EXTERN void tkimg_FixObjMatchProc _ANSI_ARGS_(( - Tcl_Interp ** interp, Tcl_Obj ** data, - Tcl_Obj ** format, int ** width, - int ** height)); -/* 22 */ -EXTERN void tkimg_FixStringWriteProc _ANSI_ARGS_(( - Tcl_DString * data, Tcl_Interp ** interp, - Tcl_DString ** dataPtr, Tcl_Obj ** format, - Tk_PhotoImageBlock ** blockPtr)); -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -/* Slot 29 is reserved */ -/* 30 */ -EXTERN char* tkimg_GetStringFromObj _ANSI_ARGS_((Tcl_Obj * objPtr, - int * lengthPtr)); -/* 31 */ -EXTERN char* tkimg_GetByteArrayFromObj _ANSI_ARGS_(( - Tcl_Obj * objPtr, int * lengthPtr)); -/* 32 */ -EXTERN int tkimg_ListObjGetElements _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - int * argc, Tcl_Obj *** argv)); - -typedef struct TkimgStubs { - int magic; - struct TkimgStubHooks *hooks; - - Tcl_Channel (*tkimg_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * fileName, int permissions)); /* 0 */ - int (*tkimg_ReadInit) _ANSI_ARGS_((Tcl_Obj * data, int c, tkimg_MFile * handle)); /* 1 */ - void (*tkimg_WriteInit) _ANSI_ARGS_((Tcl_DString * buffer, tkimg_MFile * handle)); /* 2 */ - int (*tkimg_Getc) _ANSI_ARGS_((tkimg_MFile * handle)); /* 3 */ - int (*tkimg_Read) _ANSI_ARGS_((tkimg_MFile * handle, char * dst, int count)); /* 4 */ - int (*tkimg_Putc) _ANSI_ARGS_((int c, tkimg_MFile * handle)); /* 5 */ - int (*tkimg_Write) _ANSI_ARGS_((tkimg_MFile * handle, CONST char * src, int count)); /* 6 */ - void (*tkimg_ReadBuffer) _ANSI_ARGS_((int onOff)); /* 7 */ - void *reserved8; - void *reserved9; - int (*tkimg_PhotoPutBlock) _ANSI_ARGS_((Tk_PhotoHandle handle, Tk_PhotoImageBlock * blockPtr, int x, int y, int width, int height)); /* 10 */ - void *reserved11; - void *reserved12; - void *reserved13; - void *reserved14; - void *reserved15; - void *reserved16; - void *reserved17; - void *reserved18; - void *reserved19; - void (*tkimg_FixChanMatchProc) _ANSI_ARGS_((Tcl_Interp ** interp, Tcl_Channel * chan, CONST char ** file, Tcl_Obj ** format, int ** width, int ** height)); /* 20 */ - void (*tkimg_FixObjMatchProc) _ANSI_ARGS_((Tcl_Interp ** interp, Tcl_Obj ** data, Tcl_Obj ** format, int ** width, int ** height)); /* 21 */ - void (*tkimg_FixStringWriteProc) _ANSI_ARGS_((Tcl_DString * data, Tcl_Interp ** interp, Tcl_DString ** dataPtr, Tcl_Obj ** format, Tk_PhotoImageBlock ** blockPtr)); /* 22 */ - void *reserved23; - void *reserved24; - void *reserved25; - void *reserved26; - void *reserved27; - void *reserved28; - void *reserved29; - char* (*tkimg_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 30 */ - char* (*tkimg_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 31 */ - int (*tkimg_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * argc, Tcl_Obj *** argv)); /* 32 */ -} TkimgStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern TkimgStubs *tkimgStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_TKIMG_STUBS) && !defined(USE_TKIMG_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef tkimg_OpenFileChannel -#define tkimg_OpenFileChannel \ - (tkimgStubsPtr->tkimg_OpenFileChannel) /* 0 */ -#endif -#ifndef tkimg_ReadInit -#define tkimg_ReadInit \ - (tkimgStubsPtr->tkimg_ReadInit) /* 1 */ -#endif -#ifndef tkimg_WriteInit -#define tkimg_WriteInit \ - (tkimgStubsPtr->tkimg_WriteInit) /* 2 */ -#endif -#ifndef tkimg_Getc -#define tkimg_Getc \ - (tkimgStubsPtr->tkimg_Getc) /* 3 */ -#endif -#ifndef tkimg_Read -#define tkimg_Read \ - (tkimgStubsPtr->tkimg_Read) /* 4 */ -#endif -#ifndef tkimg_Putc -#define tkimg_Putc \ - (tkimgStubsPtr->tkimg_Putc) /* 5 */ -#endif -#ifndef tkimg_Write -#define tkimg_Write \ - (tkimgStubsPtr->tkimg_Write) /* 6 */ -#endif -#ifndef tkimg_ReadBuffer -#define tkimg_ReadBuffer \ - (tkimgStubsPtr->tkimg_ReadBuffer) /* 7 */ -#endif -/* Slot 8 is reserved */ -/* Slot 9 is reserved */ -#ifndef tkimg_PhotoPutBlock -#define tkimg_PhotoPutBlock \ - (tkimgStubsPtr->tkimg_PhotoPutBlock) /* 10 */ -#endif -/* Slot 11 is reserved */ -/* Slot 12 is reserved */ -/* Slot 13 is reserved */ -/* Slot 14 is reserved */ -/* Slot 15 is reserved */ -/* Slot 16 is reserved */ -/* Slot 17 is reserved */ -/* Slot 18 is reserved */ -/* Slot 19 is reserved */ -#ifndef tkimg_FixChanMatchProc -#define tkimg_FixChanMatchProc \ - (tkimgStubsPtr->tkimg_FixChanMatchProc) /* 20 */ -#endif -#ifndef tkimg_FixObjMatchProc -#define tkimg_FixObjMatchProc \ - (tkimgStubsPtr->tkimg_FixObjMatchProc) /* 21 */ -#endif -#ifndef tkimg_FixStringWriteProc -#define tkimg_FixStringWriteProc \ - (tkimgStubsPtr->tkimg_FixStringWriteProc) /* 22 */ -#endif -/* Slot 23 is reserved */ -/* Slot 24 is reserved */ -/* Slot 25 is reserved */ -/* Slot 26 is reserved */ -/* Slot 27 is reserved */ -/* Slot 28 is reserved */ -/* Slot 29 is reserved */ -#ifndef tkimg_GetStringFromObj -#define tkimg_GetStringFromObj \ - (tkimgStubsPtr->tkimg_GetStringFromObj) /* 30 */ -#endif -#ifndef tkimg_GetByteArrayFromObj -#define tkimg_GetByteArrayFromObj \ - (tkimgStubsPtr->tkimg_GetByteArrayFromObj) /* 31 */ -#endif -#ifndef tkimg_ListObjGetElements -#define tkimg_ListObjGetElements \ - (tkimgStubsPtr->tkimg_ListObjGetElements) /* 32 */ -#endif - -#endif /* defined(USE_TKIMG_STUBS) && !defined(USE_TKIMG_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _TKIMGDECLS */ - diff --git a/mingw/include/tommath_class.h b/mingw/include/tommath_class.h deleted file mode 100644 index 1aeba2f94b..0000000000 --- a/mingw/include/tommath_class.h +++ /dev/null @@ -1,999 +0,0 @@ -#if !(defined(LTM1) && defined(LTM2) && defined(LTM3)) -#if defined(LTM2) -#define LTM3 -#endif -#if defined(LTM1) -#define LTM2 -#endif -#define LTM1 - -#if defined(LTM_ALL) -#define BN_ERROR_C -#define BN_FAST_MP_INVMOD_C -#define BN_FAST_MP_MONTGOMERY_REDUCE_C -#define BN_FAST_S_MP_MUL_DIGS_C -#define BN_FAST_S_MP_MUL_HIGH_DIGS_C -#define BN_FAST_S_MP_SQR_C -#define BN_MP_2EXPT_C -#define BN_MP_ABS_C -#define BN_MP_ADD_C -#define BN_MP_ADD_D_C -#define BN_MP_ADDMOD_C -#define BN_MP_AND_C -#define BN_MP_CLAMP_C -#define BN_MP_CLEAR_C -#define BN_MP_CLEAR_MULTI_C -#define BN_MP_CMP_C -#define BN_MP_CMP_D_C -#define BN_MP_CMP_MAG_C -#define BN_MP_CNT_LSB_C -#define BN_MP_COPY_C -#define BN_MP_COUNT_BITS_C -#define BN_MP_DIV_C -#define BN_MP_DIV_2_C -#define BN_MP_DIV_2D_C -#define BN_MP_DIV_3_C -#define BN_MP_DIV_D_C -#define BN_MP_DR_IS_MODULUS_C -#define BN_MP_DR_REDUCE_C -#define BN_MP_DR_SETUP_C -#define BN_MP_EXCH_C -#define BN_MP_EXPT_D_C -#define BN_MP_EXPTMOD_C -#define BN_MP_EXPTMOD_FAST_C -#define BN_MP_EXTEUCLID_C -#define BN_MP_FREAD_C -#define BN_MP_FWRITE_C -#define BN_MP_GCD_C -#define BN_MP_GET_INT_C -#define BN_MP_GROW_C -#define BN_MP_INIT_C -#define BN_MP_INIT_COPY_C -#define BN_MP_INIT_MULTI_C -#define BN_MP_INIT_SET_C -#define BN_MP_INIT_SET_INT_C -#define BN_MP_INIT_SIZE_C -#define BN_MP_INVMOD_C -#define BN_MP_INVMOD_SLOW_C -#define BN_MP_IS_SQUARE_C -#define BN_MP_JACOBI_C -#define BN_MP_KARATSUBA_MUL_C -#define BN_MP_KARATSUBA_SQR_C -#define BN_MP_LCM_C -#define BN_MP_LSHD_C -#define BN_MP_MOD_C -#define BN_MP_MOD_2D_C -#define BN_MP_MOD_D_C -#define BN_MP_MONTGOMERY_CALC_NORMALIZATION_C -#define BN_MP_MONTGOMERY_REDUCE_C -#define BN_MP_MONTGOMERY_SETUP_C -#define BN_MP_MUL_C -#define BN_MP_MUL_2_C -#define BN_MP_MUL_2D_C -#define BN_MP_MUL_D_C -#define BN_MP_MULMOD_C -#define BN_MP_N_ROOT_C -#define BN_MP_NEG_C -#define BN_MP_OR_C -#define BN_MP_PRIME_FERMAT_C -#define BN_MP_PRIME_IS_DIVISIBLE_C -#define BN_MP_PRIME_IS_PRIME_C -#define BN_MP_PRIME_MILLER_RABIN_C -#define BN_MP_PRIME_NEXT_PRIME_C -#define BN_MP_PRIME_RABIN_MILLER_TRIALS_C -#define BN_MP_PRIME_RANDOM_EX_C -#define BN_MP_RADIX_SIZE_C -#define BN_MP_RADIX_SMAP_C -#define BN_MP_RAND_C -#define BN_MP_READ_RADIX_C -#define BN_MP_READ_SIGNED_BIN_C -#define BN_MP_READ_UNSIGNED_BIN_C -#define BN_MP_REDUCE_C -#define BN_MP_REDUCE_2K_C -#define BN_MP_REDUCE_2K_L_C -#define BN_MP_REDUCE_2K_SETUP_C -#define BN_MP_REDUCE_2K_SETUP_L_C -#define BN_MP_REDUCE_IS_2K_C -#define BN_MP_REDUCE_IS_2K_L_C -#define BN_MP_REDUCE_SETUP_C -#define BN_MP_RSHD_C -#define BN_MP_SET_C -#define BN_MP_SET_INT_C -#define BN_MP_SHRINK_C -#define BN_MP_SIGNED_BIN_SIZE_C -#define BN_MP_SQR_C -#define BN_MP_SQRMOD_C -#define BN_MP_SQRT_C -#define BN_MP_SUB_C -#define BN_MP_SUB_D_C -#define BN_MP_SUBMOD_C -#define BN_MP_TO_SIGNED_BIN_C -#define BN_MP_TO_SIGNED_BIN_N_C -#define BN_MP_TO_UNSIGNED_BIN_C -#define BN_MP_TO_UNSIGNED_BIN_N_C -#define BN_MP_TOOM_MUL_C -#define BN_MP_TOOM_SQR_C -#define BN_MP_TORADIX_C -#define BN_MP_TORADIX_N_C -#define BN_MP_UNSIGNED_BIN_SIZE_C -#define BN_MP_XOR_C -#define BN_MP_ZERO_C -#define BN_PRIME_TAB_C -#define BN_REVERSE_C -#define BN_S_MP_ADD_C -#define BN_S_MP_EXPTMOD_C -#define BN_S_MP_MUL_DIGS_C -#define BN_S_MP_MUL_HIGH_DIGS_C -#define BN_S_MP_SQR_C -#define BN_S_MP_SUB_C -#define BNCORE_C -#endif - -#if defined(BN_ERROR_C) - #define BN_MP_ERROR_TO_STRING_C -#endif - -#if defined(BN_FAST_MP_INVMOD_C) - #define BN_MP_ISEVEN_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_COPY_C - #define BN_MP_MOD_C - #define BN_MP_SET_C - #define BN_MP_DIV_2_C - #define BN_MP_ISODD_C - #define BN_MP_SUB_C - #define BN_MP_CMP_C - #define BN_MP_ISZERO_C - #define BN_MP_CMP_D_C - #define BN_MP_ADD_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_FAST_MP_MONTGOMERY_REDUCE_C) - #define BN_MP_GROW_C - #define BN_MP_RSHD_C - #define BN_MP_CLAMP_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_FAST_S_MP_MUL_DIGS_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_FAST_S_MP_MUL_HIGH_DIGS_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_FAST_S_MP_SQR_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_2EXPT_C) - #define BN_MP_ZERO_C - #define BN_MP_GROW_C -#endif - -#if defined(BN_MP_ABS_C) - #define BN_MP_COPY_C -#endif - -#if defined(BN_MP_ADD_C) - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_ADD_D_C) - #define BN_MP_GROW_C - #define BN_MP_SUB_D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_ADDMOD_C) - #define BN_MP_INIT_C - #define BN_MP_ADD_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_AND_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_CLAMP_C) -#endif - -#if defined(BN_MP_CLEAR_C) -#endif - -#if defined(BN_MP_CLEAR_MULTI_C) - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_CMP_C) - #define BN_MP_CMP_MAG_C -#endif - -#if defined(BN_MP_CMP_D_C) -#endif - -#if defined(BN_MP_CMP_MAG_C) -#endif - -#if defined(BN_MP_CNT_LSB_C) - #define BN_MP_ISZERO_C -#endif - -#if defined(BN_MP_COPY_C) - #define BN_MP_GROW_C -#endif - -#if defined(BN_MP_COUNT_BITS_C) -#endif - -#if defined(BN_MP_DIV_C) - #define BN_MP_ISZERO_C - #define BN_MP_CMP_MAG_C - #define BN_MP_COPY_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_SET_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_ABS_C - #define BN_MP_MUL_2D_C - #define BN_MP_CMP_C - #define BN_MP_SUB_C - #define BN_MP_ADD_C - #define BN_MP_DIV_2D_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_INIT_C - #define BN_MP_INIT_COPY_C - #define BN_MP_LSHD_C - #define BN_MP_RSHD_C - #define BN_MP_MUL_D_C - #define BN_MP_CLAMP_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_DIV_2_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_DIV_2D_C) - #define BN_MP_COPY_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_C - #define BN_MP_MOD_2D_C - #define BN_MP_CLEAR_C - #define BN_MP_RSHD_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_MP_DIV_3_C) - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_DIV_D_C) - #define BN_MP_ISZERO_C - #define BN_MP_COPY_C - #define BN_MP_DIV_2D_C - #define BN_MP_DIV_3_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_DR_IS_MODULUS_C) -#endif - -#if defined(BN_MP_DR_REDUCE_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_DR_SETUP_C) -#endif - -#if defined(BN_MP_EXCH_C) -#endif - -#if defined(BN_MP_EXPT_D_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_SET_C - #define BN_MP_SQR_C - #define BN_MP_CLEAR_C - #define BN_MP_MUL_C -#endif - -#if defined(BN_MP_EXPTMOD_C) - #define BN_MP_INIT_C - #define BN_MP_INVMOD_C - #define BN_MP_CLEAR_C - #define BN_MP_ABS_C - #define BN_MP_CLEAR_MULTI_C - #define BN_MP_REDUCE_IS_2K_L_C - #define BN_S_MP_EXPTMOD_C - #define BN_MP_DR_IS_MODULUS_C - #define BN_MP_REDUCE_IS_2K_C - #define BN_MP_ISODD_C - #define BN_MP_EXPTMOD_FAST_C -#endif - -#if defined(BN_MP_EXPTMOD_FAST_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_INIT_C - #define BN_MP_CLEAR_C - #define BN_MP_MONTGOMERY_SETUP_C - #define BN_FAST_MP_MONTGOMERY_REDUCE_C - #define BN_MP_MONTGOMERY_REDUCE_C - #define BN_MP_DR_SETUP_C - #define BN_MP_DR_REDUCE_C - #define BN_MP_REDUCE_2K_SETUP_C - #define BN_MP_REDUCE_2K_C - #define BN_MP_MONTGOMERY_CALC_NORMALIZATION_C - #define BN_MP_MULMOD_C - #define BN_MP_SET_C - #define BN_MP_MOD_C - #define BN_MP_COPY_C - #define BN_MP_SQR_C - #define BN_MP_MUL_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_MP_EXTEUCLID_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_SET_C - #define BN_MP_COPY_C - #define BN_MP_ISZERO_C - #define BN_MP_DIV_C - #define BN_MP_MUL_C - #define BN_MP_SUB_C - #define BN_MP_NEG_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_FREAD_C) - #define BN_MP_ZERO_C - #define BN_MP_S_RMAP_C - #define BN_MP_MUL_D_C - #define BN_MP_ADD_D_C - #define BN_MP_CMP_D_C -#endif - -#if defined(BN_MP_FWRITE_C) - #define BN_MP_RADIX_SIZE_C - #define BN_MP_TORADIX_C -#endif - -#if defined(BN_MP_GCD_C) - #define BN_MP_ISZERO_C - #define BN_MP_ABS_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_CNT_LSB_C - #define BN_MP_DIV_2D_C - #define BN_MP_CMP_MAG_C - #define BN_MP_EXCH_C - #define BN_S_MP_SUB_C - #define BN_MP_MUL_2D_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_GET_INT_C) -#endif - -#if defined(BN_MP_GROW_C) -#endif - -#if defined(BN_MP_INIT_C) -#endif - -#if defined(BN_MP_INIT_COPY_C) - #define BN_MP_COPY_C -#endif - -#if defined(BN_MP_INIT_MULTI_C) - #define BN_MP_ERR_C - #define BN_MP_INIT_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_INIT_SET_C) - #define BN_MP_INIT_C - #define BN_MP_SET_C -#endif - -#if defined(BN_MP_INIT_SET_INT_C) - #define BN_MP_INIT_C - #define BN_MP_SET_INT_C -#endif - -#if defined(BN_MP_INIT_SIZE_C) - #define BN_MP_INIT_C -#endif - -#if defined(BN_MP_INVMOD_C) - #define BN_MP_ISZERO_C - #define BN_MP_ISODD_C - #define BN_FAST_MP_INVMOD_C - #define BN_MP_INVMOD_SLOW_C -#endif - -#if defined(BN_MP_INVMOD_SLOW_C) - #define BN_MP_ISZERO_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_MOD_C - #define BN_MP_COPY_C - #define BN_MP_ISEVEN_C - #define BN_MP_SET_C - #define BN_MP_DIV_2_C - #define BN_MP_ISODD_C - #define BN_MP_ADD_C - #define BN_MP_SUB_C - #define BN_MP_CMP_C - #define BN_MP_CMP_D_C - #define BN_MP_CMP_MAG_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_IS_SQUARE_C) - #define BN_MP_MOD_D_C - #define BN_MP_INIT_SET_INT_C - #define BN_MP_MOD_C - #define BN_MP_GET_INT_C - #define BN_MP_SQRT_C - #define BN_MP_SQR_C - #define BN_MP_CMP_MAG_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_JACOBI_C) - #define BN_MP_CMP_D_C - #define BN_MP_ISZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_CNT_LSB_C - #define BN_MP_DIV_2D_C - #define BN_MP_MOD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_KARATSUBA_MUL_C) - #define BN_MP_MUL_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_SUB_C - #define BN_MP_ADD_C - #define BN_MP_LSHD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_KARATSUBA_SQR_C) - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_SQR_C - #define BN_MP_SUB_C - #define BN_S_MP_ADD_C - #define BN_MP_LSHD_C - #define BN_MP_ADD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_LCM_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_GCD_C - #define BN_MP_CMP_MAG_C - #define BN_MP_DIV_C - #define BN_MP_MUL_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_LSHD_C) - #define BN_MP_GROW_C - #define BN_MP_RSHD_C -#endif - -#if defined(BN_MP_MOD_C) - #define BN_MP_INIT_C - #define BN_MP_DIV_C - #define BN_MP_CLEAR_C - #define BN_MP_ADD_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_MP_MOD_2D_C) - #define BN_MP_ZERO_C - #define BN_MP_COPY_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_MOD_D_C) - #define BN_MP_DIV_D_C -#endif - -#if defined(BN_MP_MONTGOMERY_CALC_NORMALIZATION_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_2EXPT_C - #define BN_MP_SET_C - #define BN_MP_MUL_2_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_MONTGOMERY_REDUCE_C) - #define BN_FAST_MP_MONTGOMERY_REDUCE_C - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C - #define BN_MP_RSHD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_MONTGOMERY_SETUP_C) -#endif - -#if defined(BN_MP_MUL_C) - #define BN_MP_TOOM_MUL_C - #define BN_MP_KARATSUBA_MUL_C - #define BN_FAST_S_MP_MUL_DIGS_C - #define BN_S_MP_MUL_C - #define BN_S_MP_MUL_DIGS_C -#endif - -#if defined(BN_MP_MUL_2_C) - #define BN_MP_GROW_C -#endif - -#if defined(BN_MP_MUL_2D_C) - #define BN_MP_COPY_C - #define BN_MP_GROW_C - #define BN_MP_LSHD_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_MUL_D_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_MULMOD_C) - #define BN_MP_INIT_C - #define BN_MP_MUL_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_N_ROOT_C) - #define BN_MP_INIT_C - #define BN_MP_SET_C - #define BN_MP_COPY_C - #define BN_MP_EXPT_D_C - #define BN_MP_MUL_C - #define BN_MP_SUB_C - #define BN_MP_MUL_D_C - #define BN_MP_DIV_C - #define BN_MP_CMP_C - #define BN_MP_SUB_D_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_NEG_C) - #define BN_MP_COPY_C - #define BN_MP_ISZERO_C -#endif - -#if defined(BN_MP_OR_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_FERMAT_C) - #define BN_MP_CMP_D_C - #define BN_MP_INIT_C - #define BN_MP_EXPTMOD_C - #define BN_MP_CMP_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_IS_DIVISIBLE_C) - #define BN_MP_MOD_D_C -#endif - -#if defined(BN_MP_PRIME_IS_PRIME_C) - #define BN_MP_CMP_D_C - #define BN_MP_PRIME_IS_DIVISIBLE_C - #define BN_MP_INIT_C - #define BN_MP_SET_C - #define BN_MP_PRIME_MILLER_RABIN_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_MILLER_RABIN_C) - #define BN_MP_CMP_D_C - #define BN_MP_INIT_COPY_C - #define BN_MP_SUB_D_C - #define BN_MP_CNT_LSB_C - #define BN_MP_DIV_2D_C - #define BN_MP_EXPTMOD_C - #define BN_MP_CMP_C - #define BN_MP_SQRMOD_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_NEXT_PRIME_C) - #define BN_MP_CMP_D_C - #define BN_MP_SET_C - #define BN_MP_SUB_D_C - #define BN_MP_ISEVEN_C - #define BN_MP_MOD_D_C - #define BN_MP_INIT_C - #define BN_MP_ADD_D_C - #define BN_MP_PRIME_MILLER_RABIN_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_PRIME_RABIN_MILLER_TRIALS_C) -#endif - -#if defined(BN_MP_PRIME_RANDOM_EX_C) - #define BN_MP_READ_UNSIGNED_BIN_C - #define BN_MP_PRIME_IS_PRIME_C - #define BN_MP_SUB_D_C - #define BN_MP_DIV_2_C - #define BN_MP_MUL_2_C - #define BN_MP_ADD_D_C -#endif - -#if defined(BN_MP_RADIX_SIZE_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_INIT_COPY_C - #define BN_MP_ISZERO_C - #define BN_MP_DIV_D_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_RADIX_SMAP_C) - #define BN_MP_S_RMAP_C -#endif - -#if defined(BN_MP_RAND_C) - #define BN_MP_ZERO_C - #define BN_MP_ADD_D_C - #define BN_MP_LSHD_C -#endif - -#if defined(BN_MP_READ_RADIX_C) - #define BN_MP_ZERO_C - #define BN_MP_S_RMAP_C - #define BN_MP_RADIX_SMAP_C - #define BN_MP_MUL_D_C - #define BN_MP_ADD_D_C - #define BN_MP_ISZERO_C -#endif - -#if defined(BN_MP_READ_SIGNED_BIN_C) - #define BN_MP_READ_UNSIGNED_BIN_C -#endif - -#if defined(BN_MP_READ_UNSIGNED_BIN_C) - #define BN_MP_GROW_C - #define BN_MP_ZERO_C - #define BN_MP_MUL_2D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_REDUCE_C) - #define BN_MP_REDUCE_SETUP_C - #define BN_MP_INIT_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_MUL_C - #define BN_S_MP_MUL_HIGH_DIGS_C - #define BN_FAST_S_MP_MUL_HIGH_DIGS_C - #define BN_MP_MOD_2D_C - #define BN_S_MP_MUL_DIGS_C - #define BN_MP_SUB_C - #define BN_MP_CMP_D_C - #define BN_MP_SET_C - #define BN_MP_LSHD_C - #define BN_MP_ADD_C - #define BN_MP_CMP_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_2K_C) - #define BN_MP_INIT_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_DIV_2D_C - #define BN_MP_MUL_D_C - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_2K_L_C) - #define BN_MP_INIT_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_DIV_2D_C - #define BN_MP_MUL_C - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_2K_SETUP_C) - #define BN_MP_INIT_C - #define BN_MP_COUNT_BITS_C - #define BN_MP_2EXPT_C - #define BN_MP_CLEAR_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_REDUCE_2K_SETUP_L_C) - #define BN_MP_INIT_C - #define BN_MP_2EXPT_C - #define BN_MP_COUNT_BITS_C - #define BN_S_MP_SUB_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_REDUCE_IS_2K_C) - #define BN_MP_REDUCE_2K_C - #define BN_MP_COUNT_BITS_C -#endif - -#if defined(BN_MP_REDUCE_IS_2K_L_C) -#endif - -#if defined(BN_MP_REDUCE_SETUP_C) - #define BN_MP_2EXPT_C - #define BN_MP_DIV_C -#endif - -#if defined(BN_MP_RSHD_C) - #define BN_MP_ZERO_C -#endif - -#if defined(BN_MP_SET_C) - #define BN_MP_ZERO_C -#endif - -#if defined(BN_MP_SET_INT_C) - #define BN_MP_ZERO_C - #define BN_MP_MUL_2D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_SHRINK_C) -#endif - -#if defined(BN_MP_SIGNED_BIN_SIZE_C) - #define BN_MP_UNSIGNED_BIN_SIZE_C -#endif - -#if defined(BN_MP_SQR_C) - #define BN_MP_TOOM_SQR_C - #define BN_MP_KARATSUBA_SQR_C - #define BN_FAST_S_MP_SQR_C - #define BN_S_MP_SQR_C -#endif - -#if defined(BN_MP_SQRMOD_C) - #define BN_MP_INIT_C - #define BN_MP_SQR_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_SQRT_C) - #define BN_MP_N_ROOT_C - #define BN_MP_ISZERO_C - #define BN_MP_ZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_DIV_C - #define BN_MP_ADD_C - #define BN_MP_DIV_2_C - #define BN_MP_CMP_MAG_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_SUB_C) - #define BN_S_MP_ADD_C - #define BN_MP_CMP_MAG_C - #define BN_S_MP_SUB_C -#endif - -#if defined(BN_MP_SUB_D_C) - #define BN_MP_GROW_C - #define BN_MP_ADD_D_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_MP_SUBMOD_C) - #define BN_MP_INIT_C - #define BN_MP_SUB_C - #define BN_MP_CLEAR_C - #define BN_MP_MOD_C -#endif - -#if defined(BN_MP_TO_SIGNED_BIN_C) - #define BN_MP_TO_UNSIGNED_BIN_C -#endif - -#if defined(BN_MP_TO_SIGNED_BIN_N_C) - #define BN_MP_SIGNED_BIN_SIZE_C - #define BN_MP_TO_SIGNED_BIN_C -#endif - -#if defined(BN_MP_TO_UNSIGNED_BIN_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_ISZERO_C - #define BN_MP_DIV_2D_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_TO_UNSIGNED_BIN_N_C) - #define BN_MP_UNSIGNED_BIN_SIZE_C - #define BN_MP_TO_UNSIGNED_BIN_C -#endif - -#if defined(BN_MP_TOOM_MUL_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_MOD_2D_C - #define BN_MP_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_MUL_C - #define BN_MP_MUL_2_C - #define BN_MP_ADD_C - #define BN_MP_SUB_C - #define BN_MP_DIV_2_C - #define BN_MP_MUL_2D_C - #define BN_MP_MUL_D_C - #define BN_MP_DIV_3_C - #define BN_MP_LSHD_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_TOOM_SQR_C) - #define BN_MP_INIT_MULTI_C - #define BN_MP_MOD_2D_C - #define BN_MP_COPY_C - #define BN_MP_RSHD_C - #define BN_MP_SQR_C - #define BN_MP_MUL_2_C - #define BN_MP_ADD_C - #define BN_MP_SUB_C - #define BN_MP_DIV_2_C - #define BN_MP_MUL_2D_C - #define BN_MP_MUL_D_C - #define BN_MP_DIV_3_C - #define BN_MP_LSHD_C - #define BN_MP_CLEAR_MULTI_C -#endif - -#if defined(BN_MP_TORADIX_C) - #define BN_MP_ISZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_DIV_D_C - #define BN_MP_CLEAR_C - #define BN_MP_S_RMAP_C -#endif - -#if defined(BN_MP_TORADIX_N_C) - #define BN_MP_ISZERO_C - #define BN_MP_INIT_COPY_C - #define BN_MP_DIV_D_C - #define BN_MP_CLEAR_C - #define BN_MP_S_RMAP_C -#endif - -#if defined(BN_MP_UNSIGNED_BIN_SIZE_C) - #define BN_MP_COUNT_BITS_C -#endif - -#if defined(BN_MP_XOR_C) - #define BN_MP_INIT_COPY_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_MP_ZERO_C) -#endif - -#if defined(BN_PRIME_TAB_C) -#endif - -#if defined(BN_REVERSE_C) -#endif - -#if defined(BN_S_MP_ADD_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BN_S_MP_EXPTMOD_C) - #define BN_MP_COUNT_BITS_C - #define BN_MP_INIT_C - #define BN_MP_CLEAR_C - #define BN_MP_REDUCE_SETUP_C - #define BN_MP_REDUCE_C - #define BN_MP_REDUCE_2K_SETUP_L_C - #define BN_MP_REDUCE_2K_L_C - #define BN_MP_MOD_C - #define BN_MP_COPY_C - #define BN_MP_SQR_C - #define BN_MP_MUL_C - #define BN_MP_SET_C - #define BN_MP_EXCH_C -#endif - -#if defined(BN_S_MP_MUL_DIGS_C) - #define BN_FAST_S_MP_MUL_DIGS_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_S_MP_MUL_HIGH_DIGS_C) - #define BN_FAST_S_MP_MUL_HIGH_DIGS_C - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_S_MP_SQR_C) - #define BN_MP_INIT_SIZE_C - #define BN_MP_CLAMP_C - #define BN_MP_EXCH_C - #define BN_MP_CLEAR_C -#endif - -#if defined(BN_S_MP_SUB_C) - #define BN_MP_GROW_C - #define BN_MP_CLAMP_C -#endif - -#if defined(BNCORE_C) -#endif - -#ifdef LTM3 -#define LTM_LAST -#endif -#include -#include -#else -#define LTM_LAST -#endif - -/* $Source: /cvsroot/tcl/libtommath/tommath_class.h,v $ */ -/* $Revision: 1.3 $ */ -/* $Date: 2006/12/01 19:45:39 $ */ diff --git a/mingw/include/tommath_superclass.h b/mingw/include/tommath_superclass.h deleted file mode 100644 index ee046b0002..0000000000 --- a/mingw/include/tommath_superclass.h +++ /dev/null @@ -1,76 +0,0 @@ -/* super class file for PK algos */ - -/* default ... include all MPI */ -#define LTM_ALL - -/* RSA only (does not support DH/DSA/ECC) */ -/* #define SC_RSA_1 */ - -/* For reference.... On an Athlon64 optimizing for speed... - - LTM's mpi.o with all functions [striped] is 142KiB in size. - -*/ - -/* Works for RSA only, mpi.o is 68KiB */ -#ifdef SC_RSA_1 - #define BN_MP_SHRINK_C - #define BN_MP_LCM_C - #define BN_MP_PRIME_RANDOM_EX_C - #define BN_MP_INVMOD_C - #define BN_MP_GCD_C - #define BN_MP_MOD_C - #define BN_MP_MULMOD_C - #define BN_MP_ADDMOD_C - #define BN_MP_EXPTMOD_C - #define BN_MP_SET_INT_C - #define BN_MP_INIT_MULTI_C - #define BN_MP_CLEAR_MULTI_C - #define BN_MP_UNSIGNED_BIN_SIZE_C - #define BN_MP_TO_UNSIGNED_BIN_C - #define BN_MP_MOD_D_C - #define BN_MP_PRIME_RABIN_MILLER_TRIALS_C - #define BN_REVERSE_C - #define BN_PRIME_TAB_C - - /* other modifiers */ - #define BN_MP_DIV_SMALL /* Slower division, not critical */ - - /* here we are on the last pass so we turn things off. The functions classes are still there - * but we remove them specifically from the build. This also invokes tweaks in functions - * like removing support for even moduli, etc... - */ -#ifdef LTM_LAST - #undef BN_MP_TOOM_MUL_C - #undef BN_MP_TOOM_SQR_C - #undef BN_MP_KARATSUBA_MUL_C - #undef BN_MP_KARATSUBA_SQR_C - #undef BN_MP_REDUCE_C - #undef BN_MP_REDUCE_SETUP_C - #undef BN_MP_DR_IS_MODULUS_C - #undef BN_MP_DR_SETUP_C - #undef BN_MP_DR_REDUCE_C - #undef BN_MP_REDUCE_IS_2K_C - #undef BN_MP_REDUCE_2K_SETUP_C - #undef BN_MP_REDUCE_2K_C - #undef BN_S_MP_EXPTMOD_C - #undef BN_MP_DIV_3_C - #undef BN_S_MP_MUL_HIGH_DIGS_C - #undef BN_FAST_S_MP_MUL_HIGH_DIGS_C - #undef BN_FAST_MP_INVMOD_C - - /* To safely undefine these you have to make sure your RSA key won't exceed the Comba threshold - * which is roughly 255 digits [7140 bits for 32-bit machines, 15300 bits for 64-bit machines] - * which means roughly speaking you can handle upto 2536-bit RSA keys with these defined without - * trouble. - */ - #undef BN_S_MP_MUL_DIGS_C - #undef BN_S_MP_SQR_C - #undef BN_MP_MONTGOMERY_REDUCE_C -#endif - -#endif - -/* $Source: /cvsroot/tcl/libtommath/tommath_superclass.h,v $ */ -/* $Revision: 1.3 $ */ -/* $Date: 2005/09/26 18:27:14 $ */ diff --git a/mingw/include/zlibtcl.h b/mingw/include/zlibtcl.h deleted file mode 100644 index 8774d3b33a..0000000000 --- a/mingw/include/zlibtcl.h +++ /dev/null @@ -1,156 +0,0 @@ -/* - * zlibtcl.h -- - * - * Interface to libz. - * - * Copyright (c) 2002-2004 Andreas Kupries - * - * Zveno Pty Ltd makes this software and associated documentation - * available free of charge for any purpose. You may make copies - * of the software but you must include all of this notice on any copy. - * - * Zveno Pty Ltd does not warrant that this software is error free - * or fit for any purpose. Zveno Pty Ltd disclaims any liability for - * all claims, expenses, losses, damages and costs any user may incur - * as a result of using, copying or modifying the software. - * - * $Id: zlibtcl.h,v 1.3 2004/08/16 19:23:39 andreas_kupries Exp $ - * - */ - -#ifndef __ZLIBTCL_H__ -#define __ZLIBTCL_H__ - -#include "tcl.h" - -#define ZLIBTCL_MAJOR_VERSION 1 -#define ZLIBTCL_MINOR_VERSION 2 -#define ZLIBTCL_RELEASE_LEVEL TCL_RELEASE -#define ZLIBTCL_RELEASE_SERIAL 1 - -#define ZLIBTCL_VERSION "1.2.1" -#define ZLIBTCL_PATCH_LEVEL "1.2.1" - -/* - * Used to block the rest of this header file from resource compilers so - * we can just get the version info. - */ -#ifndef RC_INVOKED - -/* TIP 27 update. If CONST84 is not defined we are compiling against a - * core before 8.4 and have to disable some CONST'ness. - */ - -#ifndef CONST84 -# define CONST84 -#endif - -/* - * Fix the Borland bug that's in the EXTERN macro from tcl.h. - */ -#ifndef TCL_EXTERN -# undef DLLIMPORT -# undef DLLEXPORT -# if defined(STATIC_BUILD) -# define DLLIMPORT -# define DLLEXPORT -# elif (defined(__WIN32__) && (defined(_MSC_VER) || (__BORLANDC__ >= 0x0550) || (defined(__GNUC__) && defined(__declspec)))) || (defined(MAC_TCL) && FUNCTION_DECLSPEC) -# define DLLIMPORT __declspec(dllimport) -# define DLLEXPORT __declspec(dllexport) -# elif defined(__BORLANDC__) -# define OLDBORLAND 1 -# define DLLIMPORT __import -# define DLLEXPORT __export -# else -# define DLLIMPORT -# define DLLEXPORT -# endif - /* Avoid name mangling from C++ compilers. */ -# ifdef __cplusplus -# define TCL_EXTRNC extern "C" -# else -# define TCL_EXTRNC extern -# endif - /* Pre-5.5 Borland requires the attributes be placed after the */ - /* return type. */ -# ifdef OLDBORLAND -# define TCL_EXTERN(RTYPE) TCL_EXTRNC RTYPE TCL_STORAGE_CLASS -# else -# define TCL_EXTERN(RTYPE) TCL_EXTRNC TCL_STORAGE_CLASS RTYPE -# endif -#endif - - - -/* - * These macros are used to control whether functions are being declared for - * import or export in Windows, - * They map to no-op declarations on non-Windows systems. - * Assumes that tcl.h defines DLLEXPORT & DLLIMPORT correctly. - * The default build on windows is for a DLL, which causes the DLLIMPORT - * and DLLEXPORT macros to be nonempty. To build a static library, the - * macro STATIC_BUILD should be defined before the inclusion of tcl.h - * - * If a function is being declared while it is being built - * to be included in a shared library, then it should have the DLLEXPORT - * storage class. If is being declared for use by a module that is going to - * link against the shared library, then it should have the DLLIMPORT storage - * class. If the symbol is beind declared for a static build or for use from a - * stub library, then the storage class should be empty. - * - * The convention is that a macro called BUILD_xxxx, where xxxx is the - * name of a library we are building, is set on the compile line for sources - * that are to be placed in the library. When this macro is set, the - * storage class will be set to DLLEXPORT. At the end of the header file, the - * storage class will be reset to DLLIMPORt. - */ - -#undef TCL_STORAGE_CLASS -#ifdef BUILD_zlibtcl -# define TCL_STORAGE_CLASS DLLEXPORT -#else -# ifdef USE_ZLIBTCL_STUBS -# define TCL_STORAGE_CLASS -# else -# define TCL_STORAGE_CLASS DLLIMPORT -# endif -#endif - -/* - *---------------------------------------------------------------------------- - * C API for Zlibtcl generic layer - *---------------------------------------------------------------------------- - */ - -/* - *---------------------------------------------------------------------------- - * Function prototypes for publically accessible routines - *---------------------------------------------------------------------------- - */ - -#include "zlibtclDecls.h" - -/* - *---------------------------------------------------------------------------- - * Function prototypes for stub initialization. - *---------------------------------------------------------------------------- - */ - -#ifdef USE_ZLIBTCL_STUBS -EXTERN CONST char * -Zlibtcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, CONST char *version, int exact)); -#else - -/* - * When not using stubs, make it a macro. - */ - -#define Zlibtcl_InitStubs(interp, version, exact) \ - Tcl_PkgRequire(interp, "zlibtcl", version, exact) -#endif - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - -#endif /* RC_INVOKED */ -#endif /* __ZLIBTCL_H__ */ diff --git a/mingw/include/zlibtclDecls.h b/mingw/include/zlibtclDecls.h deleted file mode 100644 index e0200545e4..0000000000 --- a/mingw/include/zlibtclDecls.h +++ /dev/null @@ -1,373 +0,0 @@ - -/* - * zlibtclDecls.h -- - * - * Declarations of functions in the platform independent public ZLIBTCL API. - * - */ - -#ifndef _ZLIBTCLDECLS -#define _ZLIBTCLDECLS - -/* - * WARNING: The contents of this file is automatically generated by the - * genStubs.tcl script. Any modifications to the function declarations - * below should be made in the zlibtcl.decls script. - */ - -#include -#include -#include <../zlib.h> -#include - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported function declarations: - */ - -/* 0 */ -EXTERN CONST char* zlibVersion _ANSI_ARGS_((void)); -/* 1 */ -EXTERN CONST char* zError _ANSI_ARGS_((int err)); -/* 2 */ -EXTERN uLong crc32 _ANSI_ARGS_((uLong crc, const Bytef * buf, - uInt len)); -/* 3 */ -EXTERN uLong adler32 _ANSI_ARGS_((uLong adler, const Bytef * buf, - uInt len)); -/* Slot 4 is reserved */ -/* Slot 5 is reserved */ -/* Slot 6 is reserved */ -/* Slot 7 is reserved */ -/* Slot 8 is reserved */ -/* Slot 9 is reserved */ -/* 10 */ -EXTERN int deflateInit_ _ANSI_ARGS_((z_streamp stream, - int level, const char* version, - int stream_size)); -/* 11 */ -EXTERN int deflateInit2_ _ANSI_ARGS_((z_streamp stream, - int level, int method, int windowBits, - int memLevel, int strategy, - const char* version, int stream_size)); -/* 12 */ -EXTERN int deflate _ANSI_ARGS_((z_streamp stream, int flush)); -/* 13 */ -EXTERN int deflateEnd _ANSI_ARGS_((z_streamp stream)); -/* 14 */ -EXTERN int deflateSetDictionary _ANSI_ARGS_((z_streamp stream, - CONST Bytef* dict, uInt dictLength)); -/* 15 */ -EXTERN int deflateCopy _ANSI_ARGS_((z_streamp dst, - z_streamp src)); -/* 16 */ -EXTERN int deflateReset _ANSI_ARGS_((z_streamp stream)); -/* 17 */ -EXTERN int deflateParams _ANSI_ARGS_((z_streamp stream, - int level, int strategy)); -/* 18 */ -EXTERN int compress _ANSI_ARGS_((Bytef * dest, uLongf * destLen, - CONST Bytef * source, uLong sourceLen)); -/* 19 */ -EXTERN int compress2 _ANSI_ARGS_((Bytef * dest, - uLongf * destLen, CONST Bytef * source, - uLong sourceLen, int level)); -/* 20 */ -EXTERN int inflateInit_ _ANSI_ARGS_((z_streamp stream, - const char* version, int stream_size)); -/* 21 */ -EXTERN int inflateInit2_ _ANSI_ARGS_((z_streamp stream, - int windowBits, const char* version, - int stream_size)); -/* 22 */ -EXTERN int inflate _ANSI_ARGS_((z_streamp stream, int flush)); -/* 23 */ -EXTERN int inflateEnd _ANSI_ARGS_((z_streamp stream)); -/* 24 */ -EXTERN int inflateSetDictionary _ANSI_ARGS_((z_streamp stream, - CONST Bytef* dict, uInt dictLength)); -/* 25 */ -EXTERN int inflateSync _ANSI_ARGS_((z_streamp stream)); -/* 26 */ -EXTERN int inflateReset _ANSI_ARGS_((z_streamp stream)); -/* 27 */ -EXTERN int uncompress _ANSI_ARGS_((Bytef * dest, - uLongf * destLen, CONST Bytef * source, - uLong sourceLen)); -/* Slot 28 is reserved */ -/* Slot 29 is reserved */ -/* 30 */ -EXTERN gzFile gzopen _ANSI_ARGS_((const char * path, - const char * mode)); -/* 31 */ -EXTERN gzFile gzdopen _ANSI_ARGS_((int fd, const char * mode)); -/* 32 */ -EXTERN int gzsetparams _ANSI_ARGS_((gzFile file, int level, - int strategy)); -/* 33 */ -EXTERN int gzread _ANSI_ARGS_((gzFile file, voidp buf, - unsigned len)); -/* 34 */ -EXTERN int gzwrite _ANSI_ARGS_((gzFile file, const voidpc buf, - unsigned len)); -/* Slot 35 is reserved */ -/* 36 */ -EXTERN int gzputs _ANSI_ARGS_((gzFile file, const char * s)); -/* 37 */ -EXTERN char* gzgets _ANSI_ARGS_((gzFile file, char * buf, int len)); -/* 38 */ -EXTERN int gzputc _ANSI_ARGS_((gzFile file, int c)); -/* 39 */ -EXTERN int gzgetc _ANSI_ARGS_((gzFile file)); -/* 40 */ -EXTERN int gzflush _ANSI_ARGS_((gzFile file, int flush)); -/* 41 */ -EXTERN z_off_t gzseek _ANSI_ARGS_((gzFile file, z_off_t offset, - int whence)); -/* 42 */ -EXTERN int gzrewind _ANSI_ARGS_((gzFile file)); -/* 43 */ -EXTERN z_off_t gztell _ANSI_ARGS_((gzFile file)); -/* 44 */ -EXTERN int gzeof _ANSI_ARGS_((gzFile file)); -/* 45 */ -EXTERN int gzclose _ANSI_ARGS_((gzFile file)); -/* 46 */ -EXTERN const char* gzerror _ANSI_ARGS_((gzFile file, int * errnum)); - -typedef struct ZlibtclStubs { - int magic; - struct ZlibtclStubHooks *hooks; - - CONST char* (*zlibVersion) _ANSI_ARGS_((void)); /* 0 */ - CONST char* (*zError) _ANSI_ARGS_((int err)); /* 1 */ - uLong (*crc32) _ANSI_ARGS_((uLong crc, const Bytef * buf, uInt len)); /* 2 */ - uLong (*adler32) _ANSI_ARGS_((uLong adler, const Bytef * buf, uInt len)); /* 3 */ - void *reserved4; - void *reserved5; - void *reserved6; - void *reserved7; - void *reserved8; - void *reserved9; - int (*deflateInit_) _ANSI_ARGS_((z_streamp stream, int level, const char* version, int stream_size)); /* 10 */ - int (*deflateInit2_) _ANSI_ARGS_((z_streamp stream, int level, int method, int windowBits, int memLevel, int strategy, const char* version, int stream_size)); /* 11 */ - int (*deflate) _ANSI_ARGS_((z_streamp stream, int flush)); /* 12 */ - int (*deflateEnd) _ANSI_ARGS_((z_streamp stream)); /* 13 */ - int (*deflateSetDictionary) _ANSI_ARGS_((z_streamp stream, CONST Bytef* dict, uInt dictLength)); /* 14 */ - int (*deflateCopy) _ANSI_ARGS_((z_streamp dst, z_streamp src)); /* 15 */ - int (*deflateReset) _ANSI_ARGS_((z_streamp stream)); /* 16 */ - int (*deflateParams) _ANSI_ARGS_((z_streamp stream, int level, int strategy)); /* 17 */ - int (*compress) _ANSI_ARGS_((Bytef * dest, uLongf * destLen, CONST Bytef * source, uLong sourceLen)); /* 18 */ - int (*compress2) _ANSI_ARGS_((Bytef * dest, uLongf * destLen, CONST Bytef * source, uLong sourceLen, int level)); /* 19 */ - int (*inflateInit_) _ANSI_ARGS_((z_streamp stream, const char* version, int stream_size)); /* 20 */ - int (*inflateInit2_) _ANSI_ARGS_((z_streamp stream, int windowBits, const char* version, int stream_size)); /* 21 */ - int (*inflate) _ANSI_ARGS_((z_streamp stream, int flush)); /* 22 */ - int (*inflateEnd) _ANSI_ARGS_((z_streamp stream)); /* 23 */ - int (*inflateSetDictionary) _ANSI_ARGS_((z_streamp stream, CONST Bytef* dict, uInt dictLength)); /* 24 */ - int (*inflateSync) _ANSI_ARGS_((z_streamp stream)); /* 25 */ - int (*inflateReset) _ANSI_ARGS_((z_streamp stream)); /* 26 */ - int (*uncompress) _ANSI_ARGS_((Bytef * dest, uLongf * destLen, CONST Bytef * source, uLong sourceLen)); /* 27 */ - void *reserved28; - void *reserved29; - gzFile (*gzopen) _ANSI_ARGS_((const char * path, const char * mode)); /* 30 */ - gzFile (*gzdopen) _ANSI_ARGS_((int fd, const char * mode)); /* 31 */ - int (*gzsetparams) _ANSI_ARGS_((gzFile file, int level, int strategy)); /* 32 */ - int (*gzread) _ANSI_ARGS_((gzFile file, voidp buf, unsigned len)); /* 33 */ - int (*gzwrite) _ANSI_ARGS_((gzFile file, const voidpc buf, unsigned len)); /* 34 */ - void *reserved35; - int (*gzputs) _ANSI_ARGS_((gzFile file, const char * s)); /* 36 */ - char* (*gzgets) _ANSI_ARGS_((gzFile file, char * buf, int len)); /* 37 */ - int (*gzputc) _ANSI_ARGS_((gzFile file, int c)); /* 38 */ - int (*gzgetc) _ANSI_ARGS_((gzFile file)); /* 39 */ - int (*gzflush) _ANSI_ARGS_((gzFile file, int flush)); /* 40 */ - z_off_t (*gzseek) _ANSI_ARGS_((gzFile file, z_off_t offset, int whence)); /* 41 */ - int (*gzrewind) _ANSI_ARGS_((gzFile file)); /* 42 */ - z_off_t (*gztell) _ANSI_ARGS_((gzFile file)); /* 43 */ - int (*gzeof) _ANSI_ARGS_((gzFile file)); /* 44 */ - int (*gzclose) _ANSI_ARGS_((gzFile file)); /* 45 */ - const char* (*gzerror) _ANSI_ARGS_((gzFile file, int * errnum)); /* 46 */ -} ZlibtclStubs; - -#ifdef __cplusplus -extern "C" { -#endif -extern ZlibtclStubs *zlibtclStubsPtr; -#ifdef __cplusplus -} -#endif - -#if defined(USE_ZLIBTCL_STUBS) && !defined(USE_ZLIBTCL_STUB_PROCS) - -/* - * Inline function declarations: - */ - -#ifndef zlibVersion -#define zlibVersion \ - (zlibtclStubsPtr->zlibVersion) /* 0 */ -#endif -#ifndef zError -#define zError \ - (zlibtclStubsPtr->zError) /* 1 */ -#endif -#ifndef crc32 -#define crc32 \ - (zlibtclStubsPtr->crc32) /* 2 */ -#endif -#ifndef adler32 -#define adler32 \ - (zlibtclStubsPtr->adler32) /* 3 */ -#endif -/* Slot 4 is reserved */ -/* Slot 5 is reserved */ -/* Slot 6 is reserved */ -/* Slot 7 is reserved */ -/* Slot 8 is reserved */ -/* Slot 9 is reserved */ -#ifndef deflateInit_ -#define deflateInit_ \ - (zlibtclStubsPtr->deflateInit_) /* 10 */ -#endif -#ifndef deflateInit2_ -#define deflateInit2_ \ - (zlibtclStubsPtr->deflateInit2_) /* 11 */ -#endif -#ifndef deflate -#define deflate \ - (zlibtclStubsPtr->deflate) /* 12 */ -#endif -#ifndef deflateEnd -#define deflateEnd \ - (zlibtclStubsPtr->deflateEnd) /* 13 */ -#endif -#ifndef deflateSetDictionary -#define deflateSetDictionary \ - (zlibtclStubsPtr->deflateSetDictionary) /* 14 */ -#endif -#ifndef deflateCopy -#define deflateCopy \ - (zlibtclStubsPtr->deflateCopy) /* 15 */ -#endif -#ifndef deflateReset -#define deflateReset \ - (zlibtclStubsPtr->deflateReset) /* 16 */ -#endif -#ifndef deflateParams -#define deflateParams \ - (zlibtclStubsPtr->deflateParams) /* 17 */ -#endif -#ifndef compress -#define compress \ - (zlibtclStubsPtr->compress) /* 18 */ -#endif -#ifndef compress2 -#define compress2 \ - (zlibtclStubsPtr->compress2) /* 19 */ -#endif -#ifndef inflateInit_ -#define inflateInit_ \ - (zlibtclStubsPtr->inflateInit_) /* 20 */ -#endif -#ifndef inflateInit2_ -#define inflateInit2_ \ - (zlibtclStubsPtr->inflateInit2_) /* 21 */ -#endif -#ifndef inflate -#define inflate \ - (zlibtclStubsPtr->inflate) /* 22 */ -#endif -#ifndef inflateEnd -#define inflateEnd \ - (zlibtclStubsPtr->inflateEnd) /* 23 */ -#endif -#ifndef inflateSetDictionary -#define inflateSetDictionary \ - (zlibtclStubsPtr->inflateSetDictionary) /* 24 */ -#endif -#ifndef inflateSync -#define inflateSync \ - (zlibtclStubsPtr->inflateSync) /* 25 */ -#endif -#ifndef inflateReset -#define inflateReset \ - (zlibtclStubsPtr->inflateReset) /* 26 */ -#endif -#ifndef uncompress -#define uncompress \ - (zlibtclStubsPtr->uncompress) /* 27 */ -#endif -/* Slot 28 is reserved */ -/* Slot 29 is reserved */ -#ifndef gzopen -#define gzopen \ - (zlibtclStubsPtr->gzopen) /* 30 */ -#endif -#ifndef gzdopen -#define gzdopen \ - (zlibtclStubsPtr->gzdopen) /* 31 */ -#endif -#ifndef gzsetparams -#define gzsetparams \ - (zlibtclStubsPtr->gzsetparams) /* 32 */ -#endif -#ifndef gzread -#define gzread \ - (zlibtclStubsPtr->gzread) /* 33 */ -#endif -#ifndef gzwrite -#define gzwrite \ - (zlibtclStubsPtr->gzwrite) /* 34 */ -#endif -/* Slot 35 is reserved */ -#ifndef gzputs -#define gzputs \ - (zlibtclStubsPtr->gzputs) /* 36 */ -#endif -#ifndef gzgets -#define gzgets \ - (zlibtclStubsPtr->gzgets) /* 37 */ -#endif -#ifndef gzputc -#define gzputc \ - (zlibtclStubsPtr->gzputc) /* 38 */ -#endif -#ifndef gzgetc -#define gzgetc \ - (zlibtclStubsPtr->gzgetc) /* 39 */ -#endif -#ifndef gzflush -#define gzflush \ - (zlibtclStubsPtr->gzflush) /* 40 */ -#endif -#ifndef gzseek -#define gzseek \ - (zlibtclStubsPtr->gzseek) /* 41 */ -#endif -#ifndef gzrewind -#define gzrewind \ - (zlibtclStubsPtr->gzrewind) /* 42 */ -#endif -#ifndef gztell -#define gztell \ - (zlibtclStubsPtr->gztell) /* 43 */ -#endif -#ifndef gzeof -#define gzeof \ - (zlibtclStubsPtr->gzeof) /* 44 */ -#endif -#ifndef gzclose -#define gzclose \ - (zlibtclStubsPtr->gzclose) /* 45 */ -#endif -#ifndef gzerror -#define gzerror \ - (zlibtclStubsPtr->gzerror) /* 46 */ -#endif - -#endif /* defined(USE_ZLIBTCL_STUBS) && !defined(USE_ZLIBTCL_STUB_PROCS) */ - -/* !END!: Do not edit above this line. */ - -#endif /* _ZLIBTCLDECLS */ - diff --git a/mingw/include/zlibtclDeclsMask.h b/mingw/include/zlibtclDeclsMask.h deleted file mode 100644 index d75b0cf694..0000000000 --- a/mingw/include/zlibtclDeclsMask.h +++ /dev/null @@ -1,48 +0,0 @@ -#ifdef WIN32 -/* - * While the definitions in the original header are technically the - * same as the definitions in 'zlibDecls.h' on Windows they are not, - * in a small detail: DLLEXPORT vs. DLLIMPORT. As our artificial - * definitions do the right thing we use the macro definitions below - * to move the original definitionsd out of the way. We do retain the - * inclusion of all the type definitions, etc. - */ -#define zlibVersion __mask_zlibVersion -#define zError __mask_zError -#define crc32 __mask_crc32 -#define adler32 __mask_adler32 -#define deflateInit_ __mask_deflateInit_ -#define deflateInit2_ __mask_deflateInit2_ -#define deflate __mask_deflate -#define deflateEnd __mask_deflateEnd -#define deflateSetDictionary __mask_deflateSetDictionary -#define deflateCopy __mask_deflateCopy -#define deflateReset __mask_deflateReset -#define deflateParams __mask_deflateParams -#define compress __mask_compress -#define compress2 __mask_compress2 -#define inflateInit_ __mask_inflateInit_ -#define inflateInit2_ __mask_inflateInit2_ -#define inflate __mask_inflate -#define inflateEnd __mask_inflateEnd -#define inflateSetDictionary __mask_inflateSetDictionary -#define inflateSync __mask_inflateSync -#define inflateReset __mask_inflateReset -#define uncompress __mask_uncompress -#define gzopen __mask_gzopen -#define gzdopen __mask_gzdopen -#define gzsetparams __mask_gzsetparams -#define gzread __mask_gzread -#define gzwrite __mask_gzwrite -#define gzputs __mask_gzputs -#define gzgets __mask_gzgets -#define gzputc __mask_gzputc -#define gzgetc __mask_gzgetc -#define gzflush __mask_gzflush -#define gzseek __mask_gzseek -#define gzrewind __mask_gzrewind -#define gztell __mask_gztell -#define gzeof __mask_gzeof -#define gzclose __mask_gzclose -#define gzerror __mask_gzerror -#endif /* WIN32 */ diff --git a/mingw/include/zlibtclDeclsUnmask.h b/mingw/include/zlibtclDeclsUnmask.h deleted file mode 100644 index 6c5c2f68c6..0000000000 --- a/mingw/include/zlibtclDeclsUnmask.h +++ /dev/null @@ -1,41 +0,0 @@ -#ifdef WIN32 -/* Restore the usage of the original names */ -#undef zlibVersion -#undef zError -#undef crc32 -#undef adler32 -#undef deflateInit_ -#undef deflateInit2_ -#undef deflate -#undef deflateEnd -#undef deflateSetDictionary -#undef deflateCopy -#undef deflateReset -#undef deflateParams -#undef compress -#undef compress2 -#undef inflateInit_ -#undef inflateInit2_ -#undef inflate -#undef inflateEnd -#undef inflateSetDictionary -#undef inflateSync -#undef inflateReset -#undef uncompress -#undef gzopen -#undef gzdopen -#undef gzsetparams -#undef gzread -#undef gzwrite -#undef gzputs -#undef gzgets -#undef gzputc -#undef gzgetc -#undef gzflush -#undef gzseek -#undef gzrewind -#undef gztell -#undef gzeof -#undef gzclose -#undef gzerror -#endif /* WIN32 */ diff --git a/mingw/lib/Img1.3/jpegtclstub10.a b/mingw/lib/Img1.3/jpegtclstub10.a deleted file mode 100644 index 4c95b757a5a5555ff134dad6fa7d65fb2a01077b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcwPel00001 literal 848 zcwSSqNi0gvu;bEKKm~?I#uf$^CKeV33JL~b5oA(9!NdZlGJ%VMfq@B#4}oyJS3zoe zNpeoSXI^GWa7k%WF++S7LPts9nd_7(9WmLZ$vUc-2bHl|4VtGOpb+M zI)JD7h(hauQkIj4(W}8 pESYhsK?+9}uo@0bML-}9!~#$@6PVOMl4W8r1(L+1=6GZd7Xa&Ofm;9o diff --git a/mingw/lib/Img1.3/tifftclstub361.a b/mingw/lib/Img1.3/tifftclstub361.a deleted file mode 100644 index c041d80fe00ef0e792abb57a0b594d71f1836b69..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcwPel00001 literal 848 zcwSSqNi0gvu;bEKKm~?I#uf$^CKhIv3JL~b5oA(9!NdZlGJ%VMfq@B#4}oxeNM>4E zNpeoSXI^GWa7k%WF++R_LPts9nd_7(9WmLZ$vUc-2bHl|4VtGOpb+M zI)JD7h(hauQkIj4(W}8 pESYhsK?+9}uo@0bML-}9!~#$@6PVOMl4W8r1(L+1=6GZd7XT1rfo}i+ diff --git a/mingw/lib/Img1.3/tkimgstub13.a b/mingw/lib/Img1.3/tkimgstub13.a deleted file mode 100644 index 70109b86281b14b63028e3d7c26dad46d5ff00b0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcwPel00001 literal 766 zcwSSqNi0gvu;bEKKm~?I#uf$^CKeWk3JL~b5oA(9!NdfnGJ%VMfq@B#3qUwNBs()V zJ>D}fvn05rG^v;&z62xyW(SlMF~E5~nMr#2`Z(<|G%zqTGgDA7wKRs?f#=%pl5M2L zo(yvv3zTLAh7J=W0|r12SCBL_qZN`as2ZdoU;?XQzyQeM$&5=4QdqKp)o@`d0s>I* b2te6PU{VE1mWja-ND@ka@g>PQa1Iv$R!nkD diff --git a/mingw/lib/Img1.3/zlibtclstub121.a b/mingw/lib/Img1.3/zlibtclstub121.a deleted file mode 100644 index 465fdb09f3aaeeaa0d0ca0ecef9957b957899120..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcwPel00001 literal 848 zcwSSqNi0gvu;bEKKm~?I#uf$^CKe_}3JL~b5oA(9!NdZlGJ%VMfq@B#4}oxeR8D46 zNpeoSXI^GWa7k%WF++S6LPts9nd_7(9WmLZ$vUc-2bHl|4VtGOpb+M zI)JD7h(hauQkIj4(W}8 pESYhsK?+9}uo@0bML-}9!~#$@6PVOMl4W8r1(L+1=6GZd7XVm+fuaBa diff --git a/mingw/lib/jpegtclConfig.sh b/mingw/lib/jpegtclConfig.sh deleted file mode 100644 index 8b3194b9c2..0000000000 --- a/mingw/lib/jpegtclConfig.sh +++ /dev/null @@ -1,57 +0,0 @@ -# jpegtclConfig.sh -- -# -# This shell script (for sh) is generated automatically by jpegtcl's -# configure script. It will create shell variables for most of -# the configuration options discovered by the configure script. -# This script is intended to be included by the configure scripts -# for jpegtcl extensions so that they don't have to figure this all -# out for themselves. This file does not duplicate information -# already provided by tclConfig.sh, so you may need to use that -# file in addition to this one. -# -# The information in this file is specific to a single platform. - -# jpegtcl's version number. -jpegtcl_VERSION='1.0' -jpegtcl_MAJOR_VERSION='1' -jpegtcl_MINOR_VERSION='0' -jpegtcl_RELEASE_LEVEL='' - -# The name of the jpegtcl library (may be either a .a file or a shared library): -jpegtcl_LIB_FILE=jpegtcl10.dll - -# String to pass to linker to pick up the jpegtcl library from its -# build directory. -jpegtcl_BUILD_LIB_SPEC='-L/src/tcltk/tkimg1.3/libjpeg/tcl -ljpegtcl10' - -# String to pass to linker to pick up the jpegtcl library from its -# installed directory. -jpegtcl_LIB_SPEC='-L/mingw/lib/jpegtcl1.0 -ljpegtcl10' - -# The name of the jpegtcl stub library (a .a file): -jpegtcl_STUB_LIB_FILE=jpegtclstub10.a - -# String to pass to linker to pick up the jpegtcl stub library from its -# build directory. -jpegtcl_BUILD_STUB_LIB_SPEC='-L/src/tcltk/tkimg1.3/libjpeg/tcl -ljpegtclstub10' - -# String to pass to linker to pick up the jpegtcl stub library from its -# installed directory. -jpegtcl_STUB_LIB_SPEC='-L/mingw/lib/jpegtcl1.0 -ljpegtclstub10' - -# String to pass to linker to pick up the jpegtcl stub library from its -# build directory. -jpegtcl_BUILD_STUB_LIB_PATH='/src/tcltk/tkimg1.3/libjpeg/tcl/jpegtclstub10.a' - -# String to pass to linker to pick up the jpegtcl stub library from its -# installed directory. -jpegtcl_STUB_LIB_PATH='/mingw/lib/jpegtcl1.0/jpegtclstub10.a' - -# Location of the top-level source directories from which jpegtcl -# was built. This is the directory that contains generic, unix, etc. -# If jpegtcl was compiled in a different place than the directory -# containing the source files, this points to the location of the -# sources, not the location where jpegtcl was compiled. This can -# be relative to the build directory. - -jpegtcl_SRC_DIR='/src/tcltk/tkimg1.3/libjpeg/tcl' diff --git a/mingw/lib/libtcl85.a b/mingw/lib/libtcl85.a deleted file mode 100644 index f56350ff88f9b52bafa12fdc0531bd67c5d904fd..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcwPel00001 literal 501274 zcwX$CeViRtegB6A0TD4`2#AOwrZlApo6RQKV2W(^DT|v2vYUWNjkEX8?oM{@%w_J} z&2CB+ky1)2wTP5jO05qR(Nd(8T1u%RBBj<+pGzsFh>A!lrTC2WH#6TebDqAldrtp4 zzk4#T*B3IM@40vHckcV1Ip=#G=9JBDT$?%js54jc$J(BCece6l*KSz1a%Fd}u>W1T zvUlyqwHxw(z4Iu?Iee?*e5B8DJ{mjD$6f%tWhL0HA=oEx0K4rGuumNh_7~k?f4L9r zukHf->*v7k*$j4X4ECA3!0vkz?DNaOzHm0!-^XD8@IkPDd>HKE!@<7X4ffS{fPMX1 zuy5WC_OC~Q{aY{Czh4CQA6J2W>sGLDKMnTOX<$#+!JfGR?AfQl{(A-3|MY?Vpb7S) z8^M0^AlT1d1bgY^+zxRr0PDII?67;l4u1jcz<={!*|5_k;cVVPNk* z9qc_J*n95;`;8~St~>_ps$sCJuL8T~Ghpv~8tnZ?fqh^n*zaEg_6K)>{oxB>H=P0Y zq3vKFz5?u{cY@vg1lY$<0{g@S*q_aT{rN}1KJ_rzokxM))d%+JNwB-G0=wsauzQ~a z`|PP;p9{b~|530nJO=jADzGn3f_>>`u!p}2_LURCzP1bO8&`q-%Y9&v9tQT{X4D7U*z~0mgcIKsEYwrYG_d~D^-C%u}fSq***smN0_Leii`kP<_w}TBm z54Lp;*ts)cV>f|q|0dXZ$AXOygYCW)?EL$|-u4pMMT21P2*KWY1K8vPVD;~SO`izn zPk_x{0@k<-EP5I&UI~_rfz4eCHveg`13w1)^=`0t*TLR%BiMT%2D{=&uq!u%U3D4Q z)pvtk^Bu6?J00x(7lM7@TCm@L5bO`02fJ}O*i92)AG!wY!w-Ue>?p85-2?XVtH3_- zX|O+g2JH4#V0T;ucIWkAcRdXD*GGZ<%@(k~-3Rt}H-UZj%V76AU=Q?xJs5yJbQ{{n zeFkje1+eqCfW55=_Vy2g{px*S?>rK0ax+-H2{v^r*vwbKW{&}D>;#Lh1H1S>u-1!U z>Af^B|-yK))WRa?QX{v_BnFM<8u7})!-0sFu` zV88z&*ax?Q-FO+;P4|F(=t;1TYykV%JlLP!2KMovf_?H-u-h&NyZs5Uzvuz`%d5ct z>PujEuLQfN4tDQX!9KeJ>~oV~pT7a@3y*?5bQIVZF9Q40m5#b{W{?_kca|BG|Xj0sHRdVBdQP?3ts%o*e^w?rN~-p9K5C8n7Q70Q<>3 zU@smG_R=}I9p+pE*7a4emmLXq#2DDiF9&>wK*MXh>MX)owz}9X7TXzN6`a8fjJ_>f$a?ws(W=yaa65&0rIcfStb_>}{LD-kyN{>MdaJ zJREFt0<3-w*wmw7{>fmolVFXz!J_Yg#ixNK`@rUI1)F~k?AO+S{rW{<@4gP~JzoTS z?+aj8oCS7e2zJ%&U{}8c_PcAqes2Qo{T~JUz++%H91Hfr&0sgiU^m?a_MvZredK7c zkBx!->1ALazX$9SPlDZc0@&?+V0X-e-FZLQT|Wl<>(yX?vkUBRF9G|zTfjd1Fxcmw z1AE{kum^|19=Z_hi`RmE>FZ$syc+B)7l3{3YOrrS0QShSV2^GEd+Y|V$G;5rtrNh$ zJqGsO%fP;O7uffo1$%Zi*mD2_$>#qQN!@Xdqyacv-1K6pT zfUUU~EN#2y_NE@NGh?u|cYv*X3T(r2u)Zx|XT1+>^H;&%atv7iAlSf_U_>eyKe$J|Lb5E9u0QU7}z`B2lmb{gVl}&^UejEz8cK`GFWf| zSa<3%7v%+EZZfIvMQJ3&1YB0qpXp!G3c!*l$gN{q`rpe&-Re z_jQ3?I}CQ+m0;K33UuseIf?z$Z8(_aPqn-jqP_9C#q`!LvNp9H(V7wmxq?7_Rh9{MTRKdu4$r+r}m z{AsYS{21)(gJ9ph66}%BfIa#G*uSp=`;QC2zI6@Qx9hpw(KUb zW1j{)ZWY+^=YqZVGO*X(4|eiVU@Hf~R)t`z?*KdXX|P{99qgAwus7Wc)_oXQ&mdTD z2)5y7u)fE^-nfUE5Xv=Vs4jR19th{U{|~Z_FEgketRF-@7xadyU&4Ldm7kvd%&*04D5ynz&`jC z*dO(R{qdz>e{vhxN1g+_c>~xj0obkAfPM0-V1Irj*r(0``-=l$e|ZboUp)qvwpnw# zCj`6qL9ovr3HG_oV4uGX>pNehhX(H`s}nfSq(Z z*vU_VopLJJ8!rU=g=@fm@gA^WdK&EX6<}wCVBNQY^*jZ(eihip17MpT0(kRbYEA0K4F7unRv8cG0t7drt&& zw}REK1M?mSn^_6A??SNPMzHWvu#1lZYxRM(L$Liff-O7@cFAF2?>YE8z~}s4_PgH!yY@t|>$Zbke*o-;+rU2f2-qK;1op=P*q>Yv_K_zt z+ndyazV&2KsX1#>_Q>>bu zk2J)$DU|%*Ub4I8#aknx2rCm|B7M?#lHi;HY;?Z}0hW6i#n%H~M3)5*2h%{KVVk?&nJtT6vcKKBW@5R-UDw zKW<57h+3XY1&GfN)0@FWG?A6(%J2>%JiGaj$Cqm;YUEF;$%3AhvvL65erd0 zQ}(3q8@n}cG@Odqo0#YjrK+N3$)Pzn*wZf*D@5iLDN*U#umL>GwZKYRFMpp^fXoWvI<+0RgVIVe^kq*q728%Q3ad5Qcv zOOZXriWDVcZ`yCA7^8nya)KPBms@(nG z*DQjE(WKulD{}(!8x~!RIOc^&(OhNDM_cDdab2obWhWN6^A{qoQ=~VYGpio^5VY!(wH8jEdF0f(Nu|zNb_w*}o^^^!s!Zq!%r_Ky<_O z762Vlp+AE;i7eO36MUUKfz-$oTzx!IQ5#Q4b@9YZ+5oSg*Y?_;)B==!RP7JE7%5ET zT=0TmN5KF2LMl!~C-J1c+%5ie`mGPgQA22UBhE}7Z%?)op(xezv%L0|u;FAXpomE> z5Z%PD?M!c5?zG33<{X727AZaG9dTT`AC5PJwDs;L{3oMgc{=9v%^gN8PHPy;f+Lrr zc3ksz4G7&aLC=-I^SBzH2>CzLugwj%wYWPZBhu5+x?E(Ga5L^D=lk`v10j9gyn{&D z&t_;|C|8KgDN=&<%kI*fRwT8kE_M$E2a&QQhxlGZW6rXEHc|*=B8)Gj?UhE62NX(+ z&O*-ll|Lw>mkQEZ7agVK#!0(5UW@%^A{FO+h3ds~DPr5wizAk2Jw)5(CG9xe(MX&2kx|pncyo`s0zouY(Q(<%Jm239p9T3+V!PWoQO{1skz}$;5Eb# z!pem(5Vcc=>J`OBZ?3y@9&*oR)Z!fI%-Y_bSd?>RV*1)7ijg-K9E?=)_L!IGSc`>| zLC6L{;pON(wxR&IQY>4-#~~7&K>91iablq-}Lp8wim;fasId%Hl;?w>jvg-Om}Xp0!>C)+8s9g%LR_k(0VG&{j&tNtTom|5hOu zr=lA?cosv>p0@lkC9GSGUo!+atfsR6ff461^(&&a`A-5wqaw&b!^lKPsaG#x3 z;oJ{NyMiyq$RMP(Lp&!GDzyA8YWefh4VP8nyom?E>A5mHz013}?Z?t(6Ft1fcfEO? zSMYLWsr1d~(%!xFevHm5csZt2dbz>`dB0NU6}((oDw~)yp0p=h12bN2Rwyhwb2%kC z%h-vDL0)GStQ1q?ympk{6Xh`o#97K|l_I|_h~+7gN96TV*^;FfTT;P71|jV#^WC0O zDo-RY_;$3DW;=mapT~V3(UWUUFPx|~v*rum!x0>eG!Xd07cDpn37<B&?Ui>zT5xop|%R!z`i07Ubko7{f}9@nwen&<%tRqTt9S zFXr2lM9BZ?&U)of9042m7oKr<$`eb2R-9GT6_N`?KjaJfqz670O;_~rMNh5)Zo9l@ zAdF;+9!8V9z=DI3q|r29XOy&-A>FhVQl9fNdVe#m7p1%s;*?~h$B6q2PuldK8E%I) z>EkgDkfgZ)W9&?TJXM@^k;;^gbr4uv*o&yIRH0XkBq}j4qq}waV-dAHmnWhMI;$)e zujpnSmGO?C@m7Az$TuuCHCeSh@2}UZE+6a4#B(D*gn?YPD61CdVhWXN+1Y4oJW1cz zjj<*V;v}+Amlg{AyGZQvC8!GL)lz6R!9TNWMbFhM#!7 zP~<6_tXiB`{(0nY542lJ)Tn%gSM}lb54Uj~T;NT^^ASvY~E%ChysW=gxrH3@xk@*{llgN9#e8^QO zT&l%+TE%8x+HgAv#I7^yrVe2q03$M|ND0<2yGt+Wdf+jOPF}_fv!w=Rq`zIN9Vg_4saUy=11RtlOMVT_#y+&}9QpJn~*+L@Unlc@Uz9XqEFIWM8RfIb-}v3%)`XlkQX_XW30&93$XlBJ7Zd z5?Ga`=; zg4{!>Oa!`2U_w9dPVWF95i6@_ZEDd ziWa417M%f8QGmGk6_ce>{JR~;>D82br?QV%tDu(Mg#&&e$k)Vqc&&2YPGu3|o%af4q~Q7Gi!(`oBZ%ERz_t^{p< z5hoGye`ZTW(V{+k=|1v{Dhna*C0;GO4$BS+j#Ap5Rnyro75^Ken>s3}5?rO2 zH&@a+K^Sn6eWjXx)v$yry-lEh2q{tegnkUw;EcXhZ1c-Ls`e*I+!98XMUSA3RF)o* zO9KTh`~{^GsSoIA-d;P;(OrPNeOn7%e+1cJ!#)xB&M{p30XL zWt%bf-c&8lg;r@P6(`8#D^6wwtPm}MPOB0eyo48|rSOSTqDRmwik9UfbmFDpC?vjZ zTPW~vAIX`pYH=?5i6@&lo&F4i1+fJ#dO*v*{#h?9hxqwd$X;H@OVd*6g`5-1fX1Bh z)e<8zr$`Cv7k}k^eU+Wbe}a8~(MLR4>Q`9&OttciU;121`ANk8-XiiV8*FDQwq0q5 zDqaVr(d@5f_egonUH0W_6eihJ@bhQ95SfF3y1|i2qeA|HRpER`D9_ku)%@IV)lyjG zE~nsNq>42-m>2YXs-&2V;ABRCw)b1T1u@l*`z251OSrN-+e!7GV4b{-7v@TdyEAbz zBM2=BR%OnmeU*5fQ3m;)0eLwW@+BoZeSWqStI~6%FCsWV%Am~mz2HkSG9zS5@wdvu zFqoIo^O`iPGpk=J7okqH=P$XaC@1K6ohs-I7|F$pQeHuFQE}0jE27PR*e#^^9GwNq zD6qvuMe)K(WhR>~rQ)kfNWRJ!ab>fu2rGlg6h|Q1}J)n)Y zr_Eo3X+S8i+)EH-%iE-A8|4=GJYX?SWO;# z5fS z6$OZ^?q`z%vW<*|*RT#wf>n%Y>B7Z{*Z>sbBy!pp7cV;%>8V_x@aCAI`zp&mMjb%* zvz1)Am~qLK0s;Q%xiJqQj|J+_Jz}ns$yAaTWKGg+qY!a%IqGH|*)UJli>QxLky+-V zhtZ0C9V`9>?`9pa8)7ZPpz5_!5yqLeTwq2^#ft?$=c&Ak=oN&e(-p5^os29_dEsP6 z$d{5-yfx!vR02-LYd9~Xk1TPuMk=pX>VY?{ekJQ?Jo)T^idQi{M$Laq6|Z1?qS~|A zOM0Z&V5@&57b|8feX_Yn6@NzX=bmiBQIKWvveX~<8o>ivW%dxw9By%one_5}FWCnw zvIV!W|8{md9jCX6x-?Hoa%EzFl6Z|~wkB~0wlWrVGmc$y_eu0HT1AHo^9uT6uaRFN zJ}yDfbEUNq)^>@jCt0;T-{!`%QXvq_)6sA)n)ReogGD2<*Xlr zzkqrKjm#S4TP(Prdh!LTUe#B^d#Mg{zbanDIjIceWn!XT_A#p55=HvdAf-R99kA-9 zC70)%xt#tK_h(Ce`%5F;%sBV?ewfzL*|Uyza4Wq8y;SngG9~O{BfCJ%7wK2MLUMw&dQC+!?sZRQe0!MlfX; zhR^3;5DIcaIJV#Xy3Sl)Ly=||>AlNl{NgXe|7xgk? zlY&#T^YoH6`3>Qy1Sj0`QQ;EdZp4vIHV}Sy)kVO$Guv6xPoyQSvJ1qtp3Yugv7WK2 z0Jyfd8$#1<5ah=R-NZ_>o?P>?oNk_26n6KP zT_D!-T1R?sPS2F6iC;8cPnE1U7e%ve;mJw741(0PVYK2bUniSim{=;w`$V;>bWt*! zgDOPBsc>GM|HGUhZ}HMDh}>D1JgK(b+n;@=Em2(M&Y*hFy66s*@4n zaSzEKBfeD4o~pxL%tFZinSWW(<&uBzsJGP9zvR`Ds#gi#T+hBhVKk8y^HV<|H+yl; zhU_9D`Nh@8vZsEwgja~pT&Ck;TxnL$1*t^o%l0SP9k$%5qBdmzF6JciSlVHWx!G}? znw{sVHhHsRK`#|#8&uIzNS!W~+6W#Zy30^E%_kQPC8 z5#o&VZ3VLV={4bHoCma`h0d3xDxB|#{poB_Lk1sn5;^VX3acJDm7Fiy9;qr&y3mSK zc7a$nI^`94s8`gZ_`J3&Cc!I9fKQm0Tq?!C-FmjpA%~|Wmg9XyMO#>+1Eg#ZhOEcT zZ`mh03aORvso+PUSP7wC(8XI3cOObmvZ>*rFzmw1MBv)ig#iETZ_j5_oP;q((LtoJ zj!q?%U8x9b67$O|bd)3y(RgM`CHuD@)&&ZwL{8*;7pJD@*?jQfAabP+tLOkJzlqmj zk`iB-_hcF}MVg->olOIV3Bba|5FMG6w*~g_d&aV2dCJ|2&=(*jQXf>k!WCsjdg?d5 zz~|*PEh)k!Jj$9&jJ`;6=Z^deFCA%2Wt=EyF zxeDiL*T)yCPEIY)J$|hA7xR23_-r&tlT#7xXDPvvDQc*q~~*uNFGX5_Fyq^D^YV{iTy%Ox2X6>}O; zz*tu)BH(h|hTgPPAlJ&X{3j}vAu4y?gBRXQ7yHGEC1q4om1psiOQa1W!Mtg6u1iLI3KU#Ww}x=_P0ST z&-sQWqtUZ^9f^~u>^WAZC^6->l8OeA;1Wf=X@vQ~<256ZdLpGK`FKy-yeGXcug0N+ zdNaLVCkZFM56A2E?(Xis?%p$^Ggs!v+MacN-978qZdkW+Wp}Q?e>e2@=Kt?mzYYqn zeCJVPhaBo;$A?loEdSTb4ml&+*V$d&>yRVUuXe^LGl%rF-4k=gs zE2#y2>(8hMLHcj@vmBDzp$_|3yI3WE|3irt(ZE@kb6oo0z4;sOP2V`J`?Bu-QQ4JC z59KSju4jXEbtN0D-eIs74>XV>Y7 z{JI~O|7)28SMvym{lrUL-~3a^*Y^-o&dINFadbJSrvKf$cP48nmDgSV3V_{p%HKfm zruED>0M~s@`Vo$V&veKcNwzAK9-01V@iEE&Ryy5}i%e$GJek^2Ou4FW>Z#P0Y3C|#>;Ie%4OfgbB=g)f98LGA^ZRPxS!LiL(`vrb9XYeJ*~%k;HqbKcNq{IkEzspjBVq8wT(r#kfLaMOIcSvU1uIteoVivvNw#NU3=Y%W2sCJH5JwL_0CC;KCN*-#j2 zsDzWE-bz@%cB4c}w*o0gDw1-nA}J>+l5*-2q@3WWlk$d~6mgHW*jQp-OB6~>d3kbW z$RWg3?uww6h>Gi-$wzIyQI4xsY zQNAw~p|Gfw5>CoSWm496%kAOQ6-YTuk(6T;NjX80lvPWRlJ%}tNja$?h1s{%R9cQF z3Zcg?@cEWg%Wg@Lys=!tqx02 z)waF37iVd`I!hMULMIk1!6cH7sfCzuczieqPL6us+U8p5wFNmaOQ_>&Au%i-BiW0y zq@G7!-!1pBY^jA#C|N3Y15S)(s2EeA44v-Kqs#dfhha$G@>q~@YBVy+Yvp^FEt#F; zS!$U2$5e7oBnl;`3_Djw9G;xYx<~Ng4C&;N<-3?I{q+?ELuAdfsqDOlD3qNw4n4Y@ zO%7#8TF}jjI4$bAWScXA$K|wStN%JA6Ih1Az`|%KD}6dyV|#0slr$s$)yuMq`8{5(XeoaoxR=1Tcna>^s?$nJXW;szPF{e57=yKld5Mr2c z7-TpVXGT4P+`DP5#EdO9%&|E$BaQs$=a^f=EF%i#WtBsZE@z!Xcp;%Mtdt7QiAKKI z;@%!I)771QSKknPy|*A5vN5X z*K2YA=#>R6<6bSwHbpV`Zlv5lV#48(p(@UdPHxxU{?X9|GdumdWAI!o_5Klr!m|Pj z&WU! zwYRTyWXVb3*JjP-M5nJrLJ?3YM4T4&d~a``eE(UkK+B8dd?{KESEOZ`A}uE_LCevO zIxR=!wB%be8cWJCM4_YtQ8>N5-RO_A4Y5omWd%_vDQ7tJ=yKlT04aPp6c|y*xzWi9+q)L!CBluLc)Q&F z<}#zY7KMhw@lt9yD;gPLi&^*Q}@!lk-2-N zsrIqia71DX6=z00BW!ak_h*zDV_8vc<&rQ&OezUEnDgZioRFUaA%3_!dm{Qo{ya}p zNm0%D3gNKC2o9Vaot&?|2zQF>uJf*d9so*d4BlcS#bwRs-ikAWQ5&*#YY z8%vGqJiIa#mX}h(Nm0+~+MI*=QAx^h6z9)UGq;bVo`Ye-5s+bYl$-VH*O?)^EIHCh5=U~>CKX7t>Ad%AnH4Ya}1vr)5=wyBE9esSE;3j+M z>>hL5G^(SIOej1srHIp_llQf^1^hoOEsnYOCgm1z5sJ)8B`F$N-yV6Ej4g9IpC_aQ z*?V~XK>$yxHkO#z5rq=d=g_0e8Fflx#E>|4WG7CMdLG#3v4j84Daun{yPHifcAPIhv0TT{`4yWSGXk>;helFN^3^Sph<-P{Tlh_ZZ9dld6s?P;O!;&Bp-8fA; z*v4*?N}1SZ?(0To8^(O`+n<=wyxU zW#&IAGh@;IthLiA%s@CIGlhyW)2op&wsXZ#W~Y#ng(8pw5>ARvrr6%yrN2u_aa&$? zJ7I3h8nj8mhLE4G-L?-bNz`?-v{tt`$?pr#Cmr-qSnY7XXv z`2(ls+blK1ew<-rDm6MeVH%E%O`+r5Xyk;~%G}s8CjMl>O_pCDh#Jl8$*~6K_+CpC z%1(KCa%IS&>~JCR_y{hXAe{`cy*1Cb3WBz{wb@qSwq`n`=Aq&6=&(A<%{q-NvBe_` zPZZqrC!=BAn|GW&#&WZqD3qJ(k%b~0o*Js+%xGkSExud*2Qbr2-@zO6!&$Gs$BjGU zZY6}o!XvqGf^;&%_U=agI3Xy#l0A;W*_&lVq2#P`=s|a*E<)jeAqvikMn2f$)!zS3 zIWd+I<<;I0hKNWdA?kTxoAWe}0U=?Mt@_A+apvw0tDdJ}!eM#gWSknEoUpyE-hUIQ zF?mm6^;Rzp2Zg4R8I6pv#d}dd$}&Utxionmmg-*AVn{MO)PwV*ksG#{pMNF%v=X;A zTkZ?n5&Uo=ar_7#oFDZZvCZo-A1V0plDq|ADmTjOF=;3~GNp*qqMi@7c^|%i;b?J; zrA2ukzA_X9mMT_yG;+WeugLr+VI}sa{Z`_|MSX25Gs-J6<&ZddWG7CMdRExx`_nfF zMS&mAnw+oExIY!4aMVx{r$s#jZ1Y;ouM=AQatpFzmcDB&IqGXMk+3+1FgH$Pchk{gZevBiDzuL|72P6FoMyEOXbTu3NAi|r`Tqmf6pn4hok z{E+p$oy3p4rdRaf{2a_F^9Rn)mwA53+TKp$M_%76dT@R;a>^Eue*QDdPrg>f+-Lu2 zjDFH^WN;Q+5!0idNw#_Z*26qCWW9*FwT}AyEg>X~p2b(k^r&Z-Z5}`WCzhZwFYJV; zW3u7M;DCxUv-V(?nLlu5zQi&!+B!dqv&Tf5TkB|KnZ=M~d^jggk$RTd<`(lm@)VIC zyJIXxx-I4+Bn+WNd+cj9^3E3X^F^MY@upkzGQD&7fsinM3J=bYMyA@*Q6J8bM)uj_I_UE}L;XQ> z#?5q78PczVAS8^S!h`bDt&xegn4kMae!_Mm(>sZuEF_#C@ZkLDM5 z&$O4cI%5YF2!-Q?C^#oN`DT0P`g|tmWFl^dH8=4F$Vw-3>lx*_K4M4=II;^TNF(EH z@w|<{BLul&D@ZTuupfBa-G;dYDbL%GL*f{coj676d1sqf2i{vyME0*Sl^*5QffLMD zJS;Vf@6Xe%o@KUq_4?m(w3yqoQeM42LHFR1V5ww9Bcp8b+P`}!E9I^{rt-3aD3q6q zwSN=*zB@cKOYFzft&>HzH;eN(z|BmYUc>X+UfUa*^Rl@Zrm~})#gRf{`H_7XLmM_} zWRfjje{(m(P=DaXi4z&i&v8Vd{8X&JVZ)KoDP)`)_588T&o26FpvDV=9YK1tGL{(S zXBQQru(XsCPKtV#xVKLx#g_eVKV6byE+xkhg;G*H#nZ`^GaZH!5s^wh)U&`g=Vty2 z_;6>vE&g=aZVbm!W5?t^V_8wp%}61!;2=(%BJ~`x&Asira*D>=ldUAXn8wnh+}kcg zVW43&oE431u*EIjzXVqDO^aY0I5CzNvq9ZwWWPq#x4=IP^nI2=2?11Cp4 zKWuX!>W-2eb6YmbeW*MP0hCHUH1fa}j~{%h;Dgzf-BeDL#}CFUc4Qx4dO!9Jed@Vi zn@6;72X2~ypX_v#8Dp7I9?_?*IruwoYFGpx6JJ`>CuvhBGN)coEG)G zug$I9+e%t$|;TsSN=f&(W9Z zDbKqbFCUdCvQkCLMxETQy{l_)W=P4-O(kU+Q79>^9C|RTYsaN$CzcA%iF#Jo=9bIH z3Ql&1el4ndozik)!r_tO95^}Z8D5+FM;|T7neZE4C#-NQL*aobG@KQkoUXld?moh@ zvNMiqov_M;4M#?X$T&6X8C{#_hJU!AW_+QQc#WYjt+=x%O`1xM^4xGaB%UA1iBqJW z^|g6C=}$_E^6895&kt80Ph!In;9+!}8}9BZ5<3Vg!4mMmE^u zb=iMR$#LVP-5jsQelsz*)=^%UErlck#QSiD)bqkN@2+=K$&eS%`897_+GovlQyEg; zT~7!}Ac*te{HSM&ZLWjM>FxGuw^bkI&}~q5>JrmLmAqjlS8(5Z0bhJ zP^%qu!i>){6cHLC;4ttSPof!1kWO!%hQq_d>Nqz#8D@LA`GbO+9h3V=b>0!&&~SKeSRLm^Bgbqp zH#accjCtX7GSe~KkZ>e!N*(7$BdcujegMDEa5EIgQ9O|KSRf* z<2Jlj_BiC-;cOV~54XBuJ;>%^gvL^|nkbZ_a~*ngId69uiYmer zpsFl|Gp3PyUMJ5o?NwmxXhp_WC^EKEk+IX3VC*DEow4gA#?q!{6wG;X%UHJFKorW> zISxI#obw!nEgDt@R%`*BD4lGyy{)D97esAy=eGn=Z8n=Bk)>0XcNKPr^)M(_SyX8BXE!6y8LCsi1X8xE<&2pkp zYEEe*+TM@oOUV8-yZ zpE@I@=(^9v*L<$m$vNBGmbs>&WoX_{^06OtYZ#rjOc@T(3?t*z=wzJjoe}msB{f9? zc2B=!a34x%Mi?8C01xNE`O(QY+dI;AwZxBOEIT?QT~$LBOO8{lSI;=xyw2~p8E(SJ zTxN9E`9UZWFS&-ZqLDf7m09UiV1?Z?YcWA)C8b|4O1zy0$p<=yJv#nJzXo94)>C z&Xq!%~$X#1p6J1_%<4w8kp!{JD`sViT zbZR0bECD2}08W%fUb|PG(P&G%`@IEG}n*^+JQ&-KP+RQZ?w%qs!Ut zP^!?-c&;jn;AClJye%FvxeOsI(@iBxXT*dJsS>10e$+GHHuv1#Q}P4bqQI(hbNSKf zx$z+h1PMNzA&rc<#qFg_1%~obsnIa;VsoETq0?SM!a`x<3*ba)WWg<-OZ{$)C}-SQ znsnw;b0Jl8R7KD_olLjf;jh6+780*Nj@^YU&tmR)oKB6zg~VedxNw3r^4mQ!LAKOLmq-K^ zYw^upadr|>C`D&E^yqTl>L3)MYw~3;&XP`M+unUUf30LGiUQ9KO`eZ^JW(h^-3~qY zeLIac(p+*cNlMP;k@VYDKld^nE&m z8yXJJ4Xfka=;WvEZ8y&oZpuARw?@&d!TUF8w43>mIDAAGPLM{1+TxmLKTFWioEIh? zQS&h2$mkS0&W%P^+Tt~?b1XOg>D6=0-P?XSQ7AW+Yh254WNJXgnNiO>+x+aoHetq_ z-4WCc?w4ykdk{k5U@0V&lpgi`a&MnZiY-rKPfAkEy&D}v6iP{vVRmxmOoyRFM5K}r zjeN1i>z`Y|N6ig~07Ty%<<>=e%OCXxCVV)Z4!_9F`qc#hKB_4qKe9X_m~u zG?wwiO}vg63Xk<&h~q9EKgyfs><=DYm%n z6SCy6KgdpK`ygS-7^&1kIyqx|dtZ%$rSiE)yNqQ>x%b6}!^5-G)17)WGR79qV-5&4 zji_i5bkLsAcvu`qcmbTKgZX6sz=@hAL|0L>EqwM#kCVm4H4+&_EPU`O}$hDnZIC0fmqd zfJzU}k4Em<;u>g%=Z8Ec-CTaOYarx_@UjahNGIcLZ?9{*AZTd5xyucwJ!jHbdNg`n zG#s8BM#ibp$vNA5-?VSQ-M4UAsxsl2n36cPuJU zPVa3wALq5bcCj}_%~(#B6J^Pq9up2j3#a1D=;VRz?Nwh;FcU9K_zf?AZm_A$DEF%Q zaCmGu2TqQ9Hn?|_+^e>w?Q(uj&dzo+6wYPmrc$$vD3qF24n4Y@bq=A1gu>ubDi|m0 zH)-U4Ev{kq5KdY%18L`SICdKyFlxYu!y&^vaB_4qzV^0fb^|$SRlQ?!-$0|DX{M5+ z+@4{=VXyf*I} zdLCh>Nt=eoGP8mxl$nZsL%DD`YMM*8fYmd;Hm^t63Ea$1@A58g`!S>~oLOVpQC^QA zgv8P#dT@SpGQ#%OJ39n^hUPn=-eJQ*$;ow`8=b7My=|QB0ymjvDmUtF92yQvO(iqx z`Cyytnr#I$X}vw?*E^=Jq2chG98rfot?^MH-mGjzB;?>8K*bk?TWk&r@C50ryBRFx2 z)N{r*uSpo96b;QcV`J%2UXwsW5vd^}PK!>a*xq){Af;s>YBb!iZtguwuU%7wBSJ%U zoEx2NvAy%O1}HaMVz=hC4Bmg_IHFK)s^)1i;fUCjGD^)x^<1&dD=W7UYC^xZr{9?} zmKf!gl|?8VEro=WqMjk{?UU;lTh_|;Q&Nnj?CSSa0 zZU#qrbb*G#<5G$^Ejn3Zduy0Y1uY|;Rl|&+HO$E3HOvO}9I?$K3w=2=+uM!Z$rS85 zW-c?zBMWRe3^crqQ=^_Qwz*Hf5vYk0e`=v<9hypwa-W!$f z&l}sk+hb3`O-_utwaqf3P-a#+^k8;-B%$!MEXK*foG^djoUAQ48H-5mVs8DioG43X zY?yF(UZ{#Qqn;DCnVIgA8NZcu5;G(mftgapnNiOS+dPhNX2Fc%{U+sc1R4sD%i{f| z^*T9Wdt1F{6tuu@nH|&WrQz_iB z^1&9*(K@|gX3Ik2^~bThkX_TzSZFFg$Oty>e=A+>*Uc%TUNFF z0ubWPdgV&9a$Sq5#1zj(rNo@=(4))Q;S|JRVX*+=ew3$P^?b3-yRNM+c^Y@8JaZXR z-gT`EMc{^LI4c@CVvF;AZ!B41S1FpiqE|WJCx#@Tqp&8kS3P5F^K-pd5rX{C+?q!D zx!!pg94h%a&WA=m*y5c^PRaQgi>Ary)zNS&aty9vly@o-LSm?qJUBlZSz(L$Sqc2W zypvsCGjMBOXYj*^#PTD0aDH^M!}exw-oWxR=7rPAjIrz}XKwg#WOPagPL6tp*yi!5 zlUZ^`!@AcA&*|X8k-;f+oEwc?vBkTTyq@J|#7l+(ui=GBEAyGk&q+j~{8a2xf`lbg z#Cvg;)U(Gn?}~mB%Tj-{>4o*|#8{4$cSV;&k}=|(I7J6D%>02<^g5X$^7}NmMpDi& zqhVFSMExjF>(n#MHn*uyEP2}ICNsnBu+}n`BdsQTv=bLTb1N*gvoNzXO zAdIopDDQz?gu?MsNH{6#d1ae>UndY!8h$dd(DcSVgYQ)uy)Pyl4jE3zxjC3`<`0~k z<9Tj&d993`y0PqN#`I_g|J#+cd=y8c5VF)o!oFa{^ z^IExuYzsxl2^59yWRUI9Zz@G65`|J!hMg-Tjzkd&35BTi;S3$jKl2C9&~nO9+ANsx zJL0LETsR^-RL8l|$v?|=k1g4r*Kpj7#BSIQ+}KYR9CP`3Jy9q>n;m*|Iolk8A2uum zBi@bEq>+KP_)c~#M-!RX&@z`Ky*n8j5`q!q!x_@ZKU+K^_G-$|F0T>Id0W$q8hBX( z$XJdvM#QABM3O`=%2JO`?pe+t+R`do#qnN%>~xbEbKA$t>(|Rr1X_rOv!at(ws*G15jiWP zt??wSuHCqNHma%2D9_fALt@~;oG3+W)pN==KOf@of}(uC40Go)FCz-2XO%+_=J^mL z6dsvHcFS0+lSj6kD9F7-8#hKB_AzR#sI*c$wYU=SB zH}>iVbEDjc5<}wP5nVVz8hK-jMn*wuB*9iW93l@EG &W+QgkwLb& z#oWcyG&G-HRzI9JmL!c9vltS_5#z)u(#R%TTqhj@6oqqckiClsPpaGHHJwhVlaR1j zmQXiNlSZD|;!!P!(3IBi%|S2ll1>=a;=|$i;TP6|-Sc9}(Do?tr~GUtys7+X)ICf%0y~V3 zb8|5N%pW*6KP$P}<~5>t!7=zrH_M5#bpDx!BT!SSI5QggXNz0NKP{P|wYRCvXta>o za0G0YzDpgbp42nYHa~aZMmr6d=bILZ)>G>h>(P&0- z(iwAlAQYC8LcuxF$spVN^w1yVoNV>$9$BK~nESlq|h{ZqO0WMCZd{ zs1Y3)IlY^7GR5|0{GJ!cah%9la+VWi$&4Qp4vI}BGwNAloA+4$Z(zntTG{V!-dJ9g z_gF4MVPPpHoD}uku+4qw=Sor>V<}PYL+4=#h*a{SlL5AOuIPUie4L+l97e+=OJ14W zc2S-yDu={_BRO%3G%~*yw_%TMVr4v!91ac0!ByEczK{b$LH z8~fSl%Wyjgw!00_;PvCmV^3IE0z|SKr%5LlY;U&a8HT2wA#+>A%Gnwkio^|wI4$ZK zVVnC;-)CuY%v~9y(|^iCky)uEMJEev?-&8D<7%vb$8r zFq4NPF+)_G8TG8N&7+myDVUjvnx^lkq&`~7g~MaRIdF2+^TjszoW5O>lkGijZhKg# z=Ok{gKCb-qBIbnP2m?uk8@*NWg(>F4f7Ogslh9fY;I&g9{GQ$?{r}V9YoMQ8Z zRy)XIHI*La{glLzczy&IPLO&w*ya_yPw)g4ol|28QeMF;g@hrrR9{>tM{Mti!hi4# z8Ox5&hyn=(gQk)e^*pi7t)0gyEynLqtJB(H!V#%iVrSakK8?(=#rLXzr{uVC(r%8| zV!xSm%DsvWNd$=Zp$u)*$QxTc`tTUTP__Y#={1nf=z|cF1QGAVDN@fQ+q^6Pzm*gP z?wn_C4Wzs)e;JAZ4bgB`G&0C*WmasdaULyM@!~nZ=55PItITEQ1fo!8dK`LmIRg&E z3=@(-4(Gx7QO_gW-0Jz)f}dSp(vHI&&BTvFgXgI0w0iiEc!ES9&X7ii*(|WZoXD6O`F>{0y1lPTjHN%_D46qNbN9%315qej=Q#A}a?W!QwrE%tSg{3gqSW)w zHm?Nz3QN?EsiAqV)=u*MI1^)u(pd>Ag(dSOxN(|vGSl|X9{X}Z)3&t#GTaVpqv2H4 z2~Xn_L*gkCTsT4MxoMkc{`@l~D0?2AvE=B?{2`%;%n%W$MJEew??~9g1ubI{Gt()#(Qf**Kj7;RJ<-1<3*D3qbI9C~y)Z*?d`Vpu#! zvKMDbCqr%TEW|JIEM*y7V;MT0D3qaYhaUVaL?#>zAL78t(aBQVOU^$st@kNH5?A%mpmJx+gv&x|dze7eAiiArgCmOkFi}Qy6Ksl*<^W?WT zp2Y2%x$PXCyde^nh!9c$C2GA!Cfedm&qEkdPR&@FbTU0$NYxxw5~PuNws=Oz-xmaJ zjaqpg*5Ie@>CEUT!{NzcWSkm}470^O_6G}UU_bM6JjmqHRh=HY7#0ta?8RBq$u-+M z|L_Y1OG9xSM&`Djb><&JC_FWVhO?rPY3`L-=~G~Z-Ftm8Rx0*hmsnY?$jTW@u(Hxo zXXSyCm9XVCCIfL^gQ@Jiktmd%tqwi9oVPg)J9uaUOjU(&x-|087Sr{4k*@LfWDTAq zHRiX>?W6r)=n_K1>5>ZJbZKO!Eq*rW{UTjVtI1Tdl%EZXhJ{15bh}9-U%gJwSKCrs zeNN52?(Sc0K7jygkshcT25 zBMgOeejJ4j&+PHrHAJCI?Q-bR<mk=`;K9G*&Q zG;-n=x4ZwQpk^>?XPx6t+F^zdiN{Cu;S8x~zHMGjbT`kCvFzxqCL*C=&{Wc*lh?L4 zcl6gKE#8#d4$6vr&^Ncuqmw&A!V)OL3gASkXS8jepZ)2AsDb_U?A%m}mJx+gw926e zKR-JQg~tXIoD+?#wZ(0nzbZLt$FUcZ$C;SRi%wgI4@n?L@SzN?)5ud>ypzLS0z-7P zd)8Qvbarx(!a`A6a*ThSM#kFWmDPV)(gf3R@|2pvWBWQQtJ#nQh&T_x#WmAkAY?fP zXB7VrH50PM4DZ4D(a1(yJhE|zz|U|y2;lB!?mSzakqt2{lq1HAv!s!uw)ojEpAuOz zeD%K0vtNXeaEunuQm<3bQro=$!|f$SGj2TQh0_MlRXd(2l%Q^h9{m0fOgI8PtOF-U zBV%oGTjufKPfPjXK{z-jb%uy9nFV?LPVW7MLIcaduP3V z0;8xy_N3uLs%EH?AdRfG#qH@^5rQ0p3Hm>@r?H$6=fU|on49JgoS%;i{J@hrJBlCV z$(+0g=SL$qZSl(LTLgYa!&c&kHE%F|N5|k%vz0`l9Bpyv!LO{wLPL2HO5j{+Mb_GW>hp*W6W*aO;Fj&x?nB4MF0@da?Abh6j> z_SZg!5tZI6Or`1n&|ia)syV78NF#r3@ysJ*|Ly${c-Fr6tg0x zjb%q?-nA4K4-w+VY0}7HTRal-CnZf$6nJjfNi&LskOYoICr*(@9^2yk*oOp)Or9UB za~~_hLD8vXMkjY|Z;t4XOJ@A(u-)jW_4a&70zHBcXGkM|-7WX%ZK-!|Dj4c-wW8Xf zn`Ny{>rif1VL2W)=on;mYd^=Lb>U7 z=)uo`Wx^4_VI4R*8d+(J_ZGU5lH4uV)a_c~2iBaw~ap4HiEVV;ow|cI) zw@mZzW;on;AGlMMjOp2 zPRwOR{rsq`X;{8B~AGeaNZfj;JOyY%1H4I5p~dVw>+)R~OW{ zfq%d&_5d@t#?iT3u_5vB@E)8Wjr_62z4YJa_}LyM{*>=^NH3ia2_cB_;S6cyk}aN* zbrr{ux$G#<$SOlYn5kq%J*(WiNgnsMg_Yj|R>pTHezrZ6v8=qBD3q1e4n4Y@?2qha zLt#-VC7cwE{ISLTs4ELn!q}VkTZzecCG~z38xD^QtK;0L=ZtNhIq{o>oAIPmW==pT z94$n_Inl`w+uPs1qTr+%_{mN;nQ_czMZLexgu?^F$T&3`*PL9~#^(^l# zDJojT=05jmIZ-G$1_rV^xa?-E1e7?PbhMe12%o9m%V2}Rqz{oCEd zpY!tGNNg-c8ubt#6339}!Uee)L>EqwMo!t{ z=ZC(lAjnN>GovBxmKeO>-$_KF6jeMw6bXw5N%rC_>ExO19m)E2!qQj^63wRaqcM^N zp>WU?5>ARvrrF+J`y~Y_kz0q1Var%rmJ>yx*ItIh14C7u8J#?{z4O<9tzgD)C3~Wv zojo7QRA!DR3T39-p$9vEoePJ@hI63gY*f!Q+dTexpd=@p&CX4wMq~Ul4@JNwS8z^r za>@3NWGxU*&W-$VB7y->Q(4g%$zsCch~adc8;yLj#jTlnh8v)!BgP=ga3pFLWkw@| z+$+zuu;tlk`w256UNRB8VJmPGuRfl{emI?9T~qmaBT*y?NJ|u~vCC5uQ zYUG_QUfUN_g7RlxhHkLSYnn@t`r1A*BoQIrhcl#+hqm~s))!NTvaJ62LM!na!%<8s zBV$=wNfgS`7Ka|pQ>`mP6N$n~pj>Ux$x_?9X0%DU8rWYqmm~ExqeUnpIiTUJXk@A_ zzK=zO75W<-4W}Y=nbEk92_bRpNIsk)jjXlB`(%U+L;Xn-x5mB19qqm!eycMg3Z@B_(zbNSJjLobGeB1D}yMLM}@d&lf& z2}MJ5ZjfEsp?Py#K^kNBOgJ1ooQ`v&k(su5%zmH1O{SU3&2pkpZYsy@%WzO?Dw)y9 zKU-Ya_ysc;x7{Gico_VwJ)OFShQm|C>NqzVS!av6nIYT^dV!a8&JGDoI2<>ej&q}) zX|{RZ>U6=4n>~5jTxOOLg)+0sp$9i_H4lZS#jSka^t$!xnPZ!KQd5MJf!K4C&e};s z42eTWcH$Ii(21&f{pzwjiN!sFWJcibk$@o!q~&`IQ}E$b0aQtjPA1vjKKeTdInB7JfA$$mj&dKJ35UamQE_H;vdH$fiGQ_Z zX2;|{$J{%Xa+|maMSuk)l$2hLJhH|6zh6|6G8To?+4VHHb~%nHl$O&SdNBLHv*8HD zP#LF2J#TDtPwMR)HRjeY$~~zv6a<$_Ry6X(7PovaELj}S!QpLwQjoh!reWhK%$D9`?Z8r!OhGWm`jJ^^d5=)Kf!TC|o z0^9r?k@E;Y**Nd47q-Tev_0s?^~`4~Lnjf1GF0hN^*BgBidq?0AKw|%oyU@6l~ zWk|h!L&HJYsboeyKWy_T)Q*yw9h3X!%;iOW6sibCpoM5SE9!aS-c9no$`)3(v#bow z8_UXTh(cLea>TR*%EGJY$S?N*F@!H&y-AY**tvlwj zqTZ4vp@^uAR%YOO)U&z08+#;DY`N=<04dRwv)=$p_7)$;VJRuNp_CN;WhYlMW>_#H zWbqL&p_7%hcNeSSoQc79Gw^F}l22(hfQ`aeyfcunf+&=Yie0R@a2Q$y9j{B&GqX1D zRX#+xX*Bz5*<(z$d5!$}@}{z*yjQst6336^!x>V~*xI~H$RIEjg~@;$1n19qA#5^N zcg*ETd6y6@EEXlyjnkx_(Y1Meae&a2UD45cmZ>xMX=KZZLMf^kUu44J;9*pp8TH(* z&CF~e%P(jjXf9E$6dXX0}6|rZS`3a?Zn% zp&>F(&B5$4f8f+?VyVfWiD@o1x;2gPJWNi-nbFBE+dH=2$1*eQ$0ql()W_D@aAax< z9p^?T!))&zY9q_dU=(^zU@SMfcc?rZ85<(w)M#XvExto-0BXF%tn+D%YSiyg zG#nNhR>hgo$s*gEzgf>PGceiHWk90?ohK*{OW$Rt~QkLo4lWHVPLVz=fw zuCe5(-=mmtIBr-Or$!@RZ1D)_I+hy0;l*3supW4^$@ePt5l}fS86w_`v!szh?v*ph zeF`kGv(Fb}sbcoI#L{X-md;p$rIn64OFb-0`DRkthCwAz#`1IuQ7BJ?4n4Y@-44%_ z6q*bbQUoVUBdcuj^AFcDWNmjFUaOha{O0bOr2PCtF(ip3)`b(KlVi3w^V7``1an@@ zt&h|*KWsP>I;DXVAdQ@}#RQ!p5Hu7f z@j_=21R z)ocNgaAbH29p^?PBW-c*^UESP<54@VnLDdcxAtK|!T~Cs7)3psG_up{i%xiXd|jqx%z zoGOGW$3N z@nB)eG>LwkCyi{i#W|x>8J_xEt*ADbzLmjG3D(RR(U2sJSQk#v!Mrtp-~{~w5Hz{n z+kd`a&&C3F82y}Sb%KPDSb`)MPLNLC+TJJCtfmBwC$SHY@HUtr`uGzFKLfL|=LSJk zbHQMvWY@#m`zg4rqbt2IGkvC*$qOAm8}gSaQ^#wSQ8?YLqafOd^kfId1Z^&QoM#`sAHa^!-XTm zv*>eldNyk0lP&IB9m|q48v2RTGL{_mz7-RW%ngxoYBaLQ7T>d8%~CVsCFG}QEIGRO zEEgP2N= z`aBFNB$*%1iBqJJQMP#1-!Uvj{mrHq)`tSGkw3N6RFc$J{b6CrFo}MgC-q#j&Hb-e z$~+m%k#7Hsgi{4j6*(K!GtV~9$2dACXP})FTWK4-_w#b1P;x5fV=&<`*l;S&j7I+1 z;+FF(fSK5HJ7~XfHXIfjPR6Ox$TM5KYsOJ5HJ!F!I1-i&(bD^c_iWI}H(R`4_{&+A zI&r`7s?cPp6!#17*`Sk;ws(EbkrG+v(zJpol%|UHIb1ju2vu^Uk&(8zO>_jq&3NF> zd5*cWI5gWt5RQaRA>-6&`;cF zZEi9%+zxAw!31gE#mbN*fEW+T&w8C4w7q?Zs?V$RSA#DdY^-Yhrs#hi=Bjqmb1vkN zWQvx4&c%9-%(KO<=$BZE!j{*_9-!u!OOa+Px(rE1ho494I-x8d+(J+tWX0 z$mtJ!x0Ua7*fH(tG9(Ef#)I>tk)5`9M$nH$ehg;kIHFK?7M&3U;o#s@QlpWPw)lSa zL!c%K=e#(Xh$a@A=2D}6zv9ASxe**VIT~4Li|o+oE}l=xE%2H(rnXLbl7Vf>UXoFJW? zw7p~U|IHIL?1ygPA2637^)Y!VB#a@(iBqJWjkbAT*5?X}YHnik({_~iWu>9;)RZDl zi+ZlPcavP_*h0&HF|;_&jIp#VBMPNul|zp%XPv{*BBN5p$vU0Pvc0Qzo+X^*W6$|A zsL^mLa*X9gebtT_5=V~Y!x_@ZE?e9}{!f;n^ncC3OFV;jQqX82^C8IyF)o}S^-Obb zpPVmTtw7L= zc^E7!M8FBr$S7Mp7vuYc5YLVIISDOu?^Wt^F|e>WfKWfqlX`~P<{IZ|;Ay7ro4dk7 zy~fGIV1Xe5PKZXv*y1N!e2);4|LV^7>)yEM&F+k&n!&5Ol%H&Yg~joMxpA6wvdH%K zv!3E;a+BIjeo>7jNxh#XhJ;|m_;7|a^2ipCs(+VdXiwS(@T0IZ*0%E@$pldk&X0Nq z+2%XicUXQV;&zrk^E&K~#)Tz=B)D;!)HBRB?|b-dj;4Iyw*Fc+-UBx_V~IM2D3qu{ zhaT*{hZUhARLMn9vU)Uf(iZpipJd4z_mUk=ij}EUsrU7 zS7H1IOHsDro3qncf{r5!C8%l@1{03V4v}$c)HBsKXO13csTmE6pQ5qk=w^;+NHRXG z4`)axmu>H=_Yc;ai7Uzr}kr?XfsGJcKQUydki&Atjcg-I-MgOn8 z`~Hq2Iqm@7hHW{?)=36QTRutD`7GP=Sq2GGM@q6RfB<>07;pr6=L`>a8o(SDGs~G- z5IEi>cg4tZ}&|9kE>{PxVx)M zoifgisM+AyNp zN#4`_jnS0lMl$*Z6<d7Nflo|_$OLW zk_Ra4f&~%MY{9d$|7ZoRCh2&AvW?>S3PR7$qLLg!Kp$)fpJGdXoBrR8q258&Pb$9e zN2A}Sx21S!Y$L3NkWmYMX8qel%U)Rw^K`u|i&E{eRfB$Jg(U@c{4Q7!A(a-q_xfL3 zK`V8w4+nL#xo_vC+dAK?_Z8pg7JBbBRF)$N?uIo{@@ctquzzti-PfbhWiy*E*h)gr z!Ge-vM79U?vqZ_J4mO2)!Q!C@Xg4_rjJa3ANnW*gu7qj3lm( z(6h0qBv{dGLxhZ4@Tsf+=o(t#?dQB{v3{nUy6Tk^+gX|EhLA-sEsJ&Y51pIpB=3y| z2I&dsZ%i+m7VGA%%3cfVooejHmgA~%TVXT!{8@7H^Y_-wouoWq>jjkh(=GYTjT%!2$80b8Gm}k8r)enmHd@#OqD14R^ zm*paYdSOe1Tv_lP=&u}0-S1hkHH5zdIpsunW~sS!oscFA-eLHcj+(8y%<{de{aIgF z;d=){?=S?*iWo)xuqQ&IEcl7`7gIbneOx^epJ-lLGc`@ML`aqeuay3|W9h!GhW)y^ zEAc%&1HV%0mlPRtdSE}4gjw#&#Ggfe_}+u?D-&)xQ{+r_gHM?yzy0;6j+@QV-MrrI z?&e(Wpx^$AONs#bov&JtltZ!!(<2f3B_hDF4gvjdy4P7JT*MiRm z|9#gG^Hb(8m=^12N!iOe8{97^#xwI&`AgR*NwwT(*zY-VR{H&Bta&ofeAmo~&oH;7 zNRZzNE23o7a^Eie-A+-zUp!tv?&Q5P)eET#4@SkUiG1ogJ+ zq+T8F@*M%;Q);)IfR57+yTPZ_l21YWZR>`u7xXEJ@rxES-mtiIjgUYK9vlCb5u(fb zZc%5undbXk!jFx;ay&792P}t>JqsSy{AMR7Z4y|Uzw*_CAJqgUxqhN9SkPJ8>|d~; z-xv$p$ZK5=?(3@PAGIew^Bvvb)8@D=A5z>4TOy>*f=9@|KDP7v6&()iBux?+9bdBU_-2dRAxjoK&-yvX zjV_N?Pui1-bGCK}^DMulh>zO^3nC=Qf(8Ao6|~t;>fNF|+(_p}kW*49$m@ay;j?7P zZ{z%o5!9a2xR#ami8;}s;`}3deaG~td_~<)s`%cKu0|Co{UTvF|K9~&M0gW`MF!Oq#Ek~}|Q z7c2;$H($9PkB+5`Zhq7V8jTe1RC|2oyw0>(Id4(+T2RgZ?6y~mM`qFnTRF>^{R_78 zBaM}ZgVDc0-`Dl9%)4!-Y|UWrHc?5I4$uV)B4o^hzrXv#t)M)+v7eN8lDfCA`06=l zTCARDl)dctcfE2PIes&&hL9@@o>%=)qoy4+u4TP?GieT$WY{GWX%~e8v zEOjiIeN=^flGHDf#2@v$w% znsM7;E0m;I?#Wx$@cuhmlY4(?=mb~rp-9q#Tn z??G}^gI(PON^d;<<*<jnwqE zQ#4&vcun60X}X#9b-R0)?|taarp1a{Q}$X=4;3tGQrdJ?&L4qg5pre0D-+*oWNnsu zBhTvYw^e+Au4Vy0`OE^Y`)I?)tIr4eMm5&-aYd zH<=cz=sn6_3+j0_Q3RFcS%UunDC!D6eU_XYe!CHMx8l8Gfldx5rFd{AZLk%5$}D*Y z*tZ!gx3irxDNov8l&hBurp0<$QueYtz=Co-G=2vx2cJ1hP7%M=$XPw9^^GFcH_PI1 zB|l-S2c06uC3%A4PFN8kix!+BeoLpQJj!}{BON{Z)eW|S7EQ~kDWX%3OUG@6%@C4j z!P(F^H)h(8)NJi1Y4KR6HxASLdbgT`YzQpNBAU_-Yr<#JlK1$0Q>Q5(%|UJyhlfd? z@*OdsH!W5XyvN5c$K~U27i{6^<>smMejjbB={l+iHaT9jHatIl+;4h?n z^;phmN;=5;-A}6cj%~1CNC`{w`S?AsA3}O8*w0r@{PcB_4+nGQ$0;fB%|?Dy95BAqV0Q%CQamn`HrNUwJr?}!f-jj^X->)P z=Bp)RGuUqz#3coGfab*d#eD$s-i>zcuQ4sw%|&Ie1$9YvZcG^#%cKDoLP(1*$4Q@* zckv##LfYJYt1d^=iOD-ueBZ@;(zIAH?@;zyQ14Yn3{aNC2kZqcT_U8$f-N0cOQV~( z?$vW=$uBFk6!yZF@JX`dFX9e6OHD4{e5r`7AM6)#ol;yjP9v;^kRc1+2UvGnvf7;S z^Pv3-5#KN3V)p??CAoH@E?5vDKNh?SQH=$e&E4tkqL=jf3c{{J044c`qE1*5B}JCI zyQ}OJJ=iZtKjQlF=)Qi)R?s=qVg}OS1ssSdLB8M zDFmMzOMW^H8X?bRseYJO$?o_AAg}zV6Htg2_E>8egU z-)IS+ElYkcVs9*~>}}+`#m%DJ>?xJ96@`5-A}q;=+`o!==^-Rx%ODu{6BnUv$xv8}KfLh3B|EWX~@%p9J@H>E6}5&A5?rR(@KT5?jf zV?{Y%iP&MQ37r&$C54Vo{U*lJbwWZdcvpO41T}v#tL7cb=HRjBwOhs`Y3#0es4Nc> z&L?{A`rOD;Q9eIR`X(k~>*=Ctv7T0yy%yA#0z5gTO)=&D3D^}r&AxIy zp0P<;bKN$sZWsAp^UquzJz-j`qoF2_dHz{7&-cOq?XCPR(jk z#n%h=o#eQrKu*vH8zLmqf_Dae_Sn!IomhM;Jeb(UbLxr3OV=q`v|Kr#W#o*eCZk9H zMxJWEi4Z}KTaG8k?||h{5^1?}u+N;xsp@jrtFt2SUYb*U&wC`y!J@JPMo}+p37<<# zKF9Afj3x7dOSXQn=lI=W)c<{Cb6mi#v0r;XL*M{KoV-v%^g_)gjeSO_6e7Ca7q(Fj=?9jOFC%ny!=H{$`d|jCZUORk}l6NV*OKyeT32cIBIUTJtR_S3F_@|`_lR~p8p_+DnLbY8=! z#FA&(Tdk8UPtB2_T%BNN*^^QnD7FcfLP>???i0K}mNNN5F5gUV(X?1C@IFDe93RZ= z@8T|9Bjmw?XHd^KX4a1f<;{MP)azwg@HK;-K?UVlHcdUo$G5B>^BvbTY9Y zZFo4iqYsPnq@8_o^@4p$1?5;YQ3osspAbv_hRU5*PJ1xa3rWfMJ8{@=s5qrKV%$bp z3n3L2ysP-O)#7~(w*6@p-)GcC(_;0kDtp;o#nVa)DM5b%c7@N1CEtbK+qmk!SHt=Q z66{^bDaF$98euK?WLWZO=TjXm*+BQR{FT3|8I%*Lu^q4+d{!(u0o-Wi6oZo+`$?Yb zzGD34|3%YsS_0^n+}O-YlWp|-$)NeNDc`XUHpdA|^6mINupfMa zEO~5mtM${@N#31x$kh#cY-3At$heKL7D8$)cx-di(Zc;}DCn_`UrwZE_E%7rp2g?I zlAlxSuAKd>pO!jr+PUgMKc|9{Vm`J9^z(K?hAjAv&9&CgzV01#A9Q$7CcSxhV>2$v z5d`$XhVW^!B9lE7QD4)cvk}*CVjsIt9xLD8=2dCPLaQcn|Vwr>UL9j(*U* zYQMP0_v9n&9^|MbS5edj3&Q8hSFgl*kCgR_6-Utek%P+f$~+O1i1+ zwV+;9o+O~Oh!pr|U|WZSGx!8r@@o5aYett9-+f`&)pn{=zG+pW?91#<<$KU|Ou5C1o$Wzc45#rZee) z$LyCP)D%kdZD zq^zW0n(9iiHT6c*VokkU*=s@FQ!`ARCTg0eD`$DLf5D!Xtfy+Yvz^XK-aIKM)H7~{ z%~0}YxtY)>d1m+mqpWJz06u8=*kJjj9Xzd_}o`=I`gz|=5or|3@x28KwGnB?8;ikr@xY)N^f?o6zN<&mAY~wGUH}g4J8Mb zdxyE`shOKQOaXG4Y6YJHOI|a0leN;HpEZL%v}Vwsv1YJLNPGo<7wL^w%Ry2mbv4{c zx}6Vv?=nxC7At4UcaeayLPB9LYzd$JO1AU{$Wl8Zo_=s4^JEnUW^!;;^)d(v9U z@~k#*aPoCTd*jZQ6dH1SU_X?^SnhjM9~Ju1e0P3cFfG>3lCoF$-qfTVn9lS)HBq0QjiQXn!@wcrzF$yzR0Eqi70cuusmrG#2cBdi6VBuid@IB&J+ z<3YWhGX4%NZT-QN6PlSc!)nelW&eWJoO9Lm_SuS|-DBEPVlQnYtc8#%3*JMqXtku- zQL|f%?>%PGv{*5-_E2=?gk;98uo*&jEZEG4`(~Es%gi!pW_g;KON5MA@L1+`zM0GO zGnO&sKxn4#rMN^%hUMOAUK^;HuRBe=!*ARQo55$olK0;{;h9lvz0mgGG^GGqrdpw- zzjD_PUSqBFieX-F?__nQ_?n@uA2=n2bi6KD&{_WLU$CGLa|I1f*vg^Jw!tNXS*rz? z@cFOg6A?eu(K7naVY0{fUUS~GSTXR4h<-T{nn^qChLQx!9S6VKcathLWb1}D4(`f< z)J&f{QF36p(8j?{DS(!#RtPEZrFaLHlyUF}J68HSDaRXWxSDyrX|ZM| zWw$N2lxM~%DYE1B!G_LKVgG^+eNbRXsfw*1;xno(2b43-%n~IPmTTq%T{B7Zl$swi z3G}2gt*{w$<^4S~b8~-5K`m3Q;L~5p>j&>=tn4OLZBJ6?`yMZ0{lG8DqZ4+)f(VJQ z;1gQjHxe{CPMxhH!U-)vSyL#Tc8dHGJ}H*`O~(b}Ne_zNzT#_$@J+|A6pzig36_G- zhb6xO{yvSAm43hICAGd;YJG3#CEaV6zuBt6z5x!EWdXsxuq8r%EO=d0wU*NKc2?^$ V>5qO?zJ{>tntnNso}fK+^MBj-ggIR>!kOD#F~qh?so|j5!)V$b_eXo1WP7`1vm1A3 zi->}f~rbNB*vo84EFFm6QZlf5kf~Het%G`ES9vD zd0iz1Vizq$hl@t#yhIdAs*m)9}v9j&9DBs>=@+~HzBrE|SJpWcBb?@fTp?T$x-op;A$4DkWl`|Ff?ag;-`oLXOR12#*kCX*s`lt!-Pz) z(6h2G6*akx;j5Q*OEq*Wh2Rd;do?vhj7kMA8EUGWCLOJr3~@#1WK){+N$mVCXV?+GE_W4DB*>m!TLJ&Uly$xhEMq%}|D+SJ;dt z#<`69ka1rzZi{iZ821xHzcBP0Lw_*zC!2dB5^|44LhcmfQmd*aqkg;RA#{x!sEQ@T zT6i-!s9+He-M39ZRJlNd2CE^RFvdL{>DR!+HdqNGz6Oo7!74cBYewtfUyrsLQ diff --git a/mingw/lib/libtk85.a b/mingw/lib/libtk85.a deleted file mode 100644 index 3279a2b824773b95f7b8041b3d7db5477301881c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcwPel00001 literal 350996 zcwX(DeS92OdGE(d2qC1w1jPx#1Y=AHX$Z0BrIeedl-EEhrIZFpQ<}n^GtZeh zZ_h~Q^q+gIqxpQEMDu%&*88l!J9Ex&&YXGHResu9y!z}HY!SEZJBIcQ?%uI`=Z-B~ z1`CD%@0Kk)_UziTqxk8Dvpw&OuIF_RdEU!z^Ss`f5dAF>CvSjQz60Xr_e1>L!w|P@ zhPZVc;uWVLZhI%hFMSu{Roft5lR^CIyCHt<5r{jkfw=Po#Opo@@muFY{PrP;-#G>G zrZ+;o<%6x4R=F4?mG}?Zh<)K8i=!RggEC8h;#3U*!Uxer=ACK{*@3H%t1WuS0J8#AH*}h z3$bMz#MYw_+irolAa|5*?d2O%a?h-+U9F?B!0;fEoPTn*7oA&$NlV)l&?*WVBElJ7$tKM3KU zfM~rPBKQKt;sC^rvk=j(5b@m*-LFFQwnFr0Ax{1>#PYomKYJ0x&EpWa+zfH+dmw({ z42WO63gVU15U;u&;x(UvxV-`K+RGvCXhYn2E5z&G331m05Wjr}#P1w}c+)9}x4aAD zcOQay`$mX&j6l5e6vW+chIrTKApYn=i1+S+c>k>sAN&x+haZOc*f7LBFNL`GZitV6 z8RAdRgZQ&?h(CV?#Ha3q_{@0_pS=O%b8mq7{G$+mGXn9q8N}bc5#meVf%xhkh=*>1 z_{JL{zWI5GZ~X}3p9UfR`8J4uc{jxO9)x)0JcvhM0`bGwLOgaK#E%DxXlytL@wmGn z9{&);S(_lvJ_>Qpoe=qVvxujh4e`_i5a-_lalywRE^0t*z7pc%QxID|0I~Jk5YM?7 z;<-0KJnyX#KluQ}6+0jX-w3heTM#>kA$I=?#NLlX{M4fmS6=~fO&4P1%@AXM0Wtn4 z#N_1=*WLgz^;(F-_d&eqF^J}s5Jw}3+1Ei_|4E3K{0QRsE(rfdh}Ih*g3m)NHXv>s zhlp;2h(83;eF&nr8KQqZ#L2rLmhXdj`F9|0J{RJaS%_OtLA>Iv5Vw6E;+0zwg*IB_Dx!={F$!Z4j;NA%a&!EIa^ln=MFM~LF0%G|?5HJ4`#Ld@3-0}v9TR#W!3!5N*@r4ktycyzEpMZGHk05Rzgm`TR zamRZge&Y;?-@Fpyw|*Alw?7Z@#)}}{d<5dHw?n+`3lP7*1>z6d5Px_##JkRhc=sWQ z_q+n)eV>K+;Mou#J^=C2+aUhW297u*f8{mT%;S3vA) zLhQK(;>veJT=f{l&kRHCdnv@|oe=vUf;g}h;)Syi2j2{F=s}1VZHAb+0phy1LLB=h z#PydzyyQlRmwpK1hKC?pTOoor#KP?m;e!y-MG)~cMEA82=_eri=R%x30tWN zK6Vh|o>xHJ`!0x&KM3)s8zKJe0K}i)2Jxv6Kz#Zkh|it_@wpL*&))*^zG>I zE`j*cOCY{-2gKJt0rB-mAijAi#J64w@$FxN_|9h`{^e|l?_CY?gI|L9*N;H_@N9_3 zc0l~-#v&f?-3igS7vhXZAf9kB#1mfv@uWK-e&Ul58_$3^Zx_VC9K@!(ATInC#M3W> zc*aX1o_ROKv%Ueb?OcdUu7tRB9^$gwAuj(2#1-F!*ggO;)P~r3C&cd0L0suUT=hbT zt6v9k%>xjl=RoY=0WtAXh{>BFuKgIq)I$){XG7#;%p#f@#L@Rb%zl%^@oZ_&&g1PU zIv&P;C-9CRUkvNlciz2P_|X%*<)e0*iQYE`9IZ8PFC$?c@}=ye{6?;h25q68?Tu*FLYO~Y*;u9A?L{Xfb_S0Ta{03{mNwbIYL$CM(oH9F=oRG`p zrD6yDoYlnalyYw4lvz0Kif>fVX344IK+?lg)t^W*4+#PdTfL;_O6ueo#)hNQP<1kr~Yu z>Qs65g}nGHYLduD!(QKyCgb^pZ_KM?KR+^r^I?$6-$N`#MC2?Xsl`6&`Uwp{AU{q7 zNhios;ZtH7*&}~L;T$7qvlFBFnIQkhjHgLwVw5$KY2{)(rL2`tA_Ja!1$Y;lUqkJx^^ z5OHA1vMAuqXshWYT3+DJ=7Lu2<>wb6TkOw{7MGrKQ}l9qTv=B4IR_gIJY^|SmVEn7$;*)87iF~668(ek50v<%d?`QNB*k|(c| z`&puv?=|yp3OUq{cK8<+RJtE@=7P4`jLEr>zxgRYjHiOQKj)`hOF01&?F{UT+w$jt zB|#Ry38F^#{BD-RBQ+^SvfJ`w_y{KXYD75~js)#6&5v;TI}r}lXet+{^IlShys)I_ z%HeJhkA=N%46F~%DSLwI#CM4-E zsi^QG-6b!Aw&N32B4_dZj~=8_Q%=tnQbOoQd1sfr#7O=Uc@L$>{YqT}n#%tK`2mUV z93crRNi7PUbi2~LUlgQDU1|!%nPtL#es1vlQ6{#RQdI2Eks)tSYFepuU+8>`8tfg; z7V&o}BtV*)5u1>G_$mKfW>}A0)L?I4x660hBr)GrdsC8_?~=3lfpB3l$|Dm!pSmp7 z$5Zhi=QOeh-;iT|8jBy7oXDloDCq_27fqB4!4Eq^S6C9sZgId@8u4m#>G*ZsHt7b4 zBN0_6O5DqP%W2r=TQRNJQyfiMrTby=g_67DHOWFIW~R^%gyP5iZxQ8RPvR>c^p}%< zCNxB{yq6|H40j|V9jM6f^~&o-TpM2J6r@p= z_tPNDzgAL{N`-y)w;*E;tO~pZhxlgC1`t^5j9^pM#~97l0Q2oBWR>gDt&jbq$1b0 zm)Z)0Vk{$Q%Gps(6=Kn^lK=9eTnf#EbVcN5rAqdf7RYg6ChO1jMi+zD65m$M5taOf z@*@m6Y#*QY%8Zc-)-Idl-}V4{`Z)W{~oe2uIi<-|5VqH+jzxdPE_%>tkp>5 z$4Ws|B)jA?)xLD$1mA>d`QG7^adoAcYb46KK)&wHL^=D2G8GQb3m0=`wc0-tL}4(m zG%MvwcwxUs{0gOEr86b}4&(nem#H-QZzrhLzI0UM#cEd>!-z5yq@$jovVFgc7r_#h zq#PMVxf1rptwrRYF6BxX8dEx1aw3=1YnqZscT0;2Z7V0KT+`1{Q$!5>UO!bvo1#nv zWCT4WjGw3cIRCRFV`n*0NTngR|5V;t5gJRGLaQB@t0^iXZC4oBJ#(J;~b%|IvL zWUyxV1F0wzp^Y5bcro9F`6F`ILQu*6u|s3XYl(6$Oo+bAMCrOz*K_$K)94RS|3vRK!cYZ(Ob)RfYWs<2P~Zp9?Qp4g7psZyLB(GOEf@gml+Y@xU)oL24S-!=5# zlv2EiH7r}em;R_9^`*a_kl-ctv*vYP!CI9q4)r_iP%6DcIR`4a+CaX)Vq2!t{VDX* z;bahKmj!Js=L8jPTD3vCJ)#W4WEOOq%iTaKoRg_Qj*wG68He-NeruAPjI=EC>SxG* zeg`HG%{2EN8r?57VKNAUEkXC;C(Tr0J#u#!!kS5z`%gMIXZX`K{HY{{W!ED}|JY>i$NwF;`@H6yw(a%*%$)XCGoa0rj zWz|A8as-vz$KR-s;k1!uG^_6xUeg zCRBu7d1jZa(*0tTfmS1>coAz@wTL418nKc9sT{eW|GttGWxO$M1>G#_)e9}94ADl% zlT=}Y6Z2hi>2y~3qE`z28SS#m2`bfey3`aeVhvdf+}c)CR8%?^yhwNPmy=&fKDlrj z-4jj>r9gkg5BExj(~xFWzV0xGu>kdpSvEb%-XYbYHelIF0V%^(&c5Q|p&>qJ(6+iu~CNYO&wTU%eH; z4NmH3g{C1v=5*epe?sxG%Lph~IVHA!a*`dveEOpV&BzBRNBpDhw( zoQ?e|m#pM+T&}cd2`1IPIQGi5M+H1xC2EceSdz*3Q2|R8@;^j`#@6}YMBkFWL91hEAx2pG)Y8Zx40jyxWRz`4JpA(`?}pg zxMr(l3N8OV%$JrEM9O<%BXfeK!z9>Q;eLk|8dNFtlb16@^Wzgf#ZobZ z=LD7Q`wP8dhCG=>rnVNdqE4=7*Z&sFRyvti0h4c(X?=AK_|)O~`JVV~ku#Mx-Fvap zuF$wWb&imd;WW7iAjq76oDJm+r%7X8QRW1BY$)lRqV#R#L?ulG#kEHHNTKFVVqY*M+forE^3hh9WhBuMBTaflju2A7!2?t?b<+&9bk#v59&yrRW6<-(eWPm1# zd?+}neoCB3c9DrAf=G4??**$?N)Tx*@Z0JO@+#TS@oOe4d>DAXNoEVrijyIj0zZ>J zM%?d;4JxtNJ=Vb*acZ$&+{u!6ZmS-S&>G1W`b>5IJU{VUNt6<~ZYDPat=vPd8!CxX zV(XD8e}S4j&5$11w4aan`5A|5rqIY#Y2`>R>r}}<&|XlU3&uvJ_DZ(UC*yW-N|{Ke zBnk;eH{=6T-;a_j)QQ@=;Lv0#!|iU^N2Df8c{=j5`5fTpV$e~3M@q`_WV`McCflra zxg>yeS1FpT5X_s{3VxxfEEgP|JJ$g{Dj_cFPOW z*kKaQ7CLoJm6=pXii&=eEQ|$n{ROEprx!|fd^i%sf{BmiKwS)@HhFK?Y~Lj|7ZM;5 zXE>V5httK(Ch6ssWOM1dI6vi+kBcl#M(#x5|Db5Hxg^eFEUxDX%LlF0BF`;`ttH}$ zlSL4k34f1#O|rQ()1S*yzm>^vP}XyW^!Dgnb*`PDvVC&hL~R8s*~bfLh%)uNOmJ~Q@{8H5X53v`q)aL_!0RAiE6Qr zo$e($7m7J!N;5%iE*&YBZIVAKQ6>9+n|6&ueoQIr&86agnBx8BMCP62;`@^Z+-ujj zXf93n;YUhgf>`c~CGlFmSByijH>zezt>}y^hifd?Tq0AJkN79^ zQQL_CyA8H3FJ|!eWvh|kruNzEmgtwOK;@Rxy=L@p(H4?ym631YP?cDMwQ?B>jiChZlqCD~;Q%P{rp}u$!Q4*qrH-uKoQf89agasV2YLrBCiHyJ|$-*0T z^K5Dxv)tyTWAmO2~gKy0^ubT>0SD zRC9?`F1{P4z|Z0VmMQQvG8mL(5U@j$tmjJ6y@j)}d`iV~rHZ#@t%@rk@;}duUVCtG zaObW)S0pc3`6+_ChKJ!Pf;)H6=Lz0$_Q4I0^T_tbJkBV7di;hf!gfyJwqcKMM1Qp> zZ-e*Hc02iYx7WAZT`K3~aR<__{D~}oe+60oKHvEFvLTPhdHlcH;FaR_A4j9C2KE}> zK>lBOwSDrr<(u~BHnd|{`P}Zy*KDVtc|GJzl%eoEk{88%4HFRC#=*JlA7e!z2GJJ!WxbAkVN6K{*@9*riRz&h5JtG6q*5 zgXrWheiru^sw0E^CC|hEk^&jzFS%KRjBn?0$tq-An8$ZLc^kav$Il`Ezg;-U?rdO> z`REmY4-#h98l&(9!#WCwmO*Wl+2O@7YR z=a=@-y6!AN>+r%g*^!VeDM)v8~}CTMi!;Vm9hP0U(-m5ZmsRlEiCNpPiGBcpb%*CrPLwYc}%9Eg-uH2<$MS-P^sGROdn^M~VYFQ4v8~}<=>aVo4@AU>*}2z%7c3ES#n)F@G()JduW$8kyFqW!| zu!S<>6)e>~Tm{Ww^cc9q4)=nd$I-(tM`$ZOdc7dDBn2Qbi7}+_7Vq4lUe$EvjCQHQ z5M6=J^R4A*GgTNzS9)w~crWx2j>OgWYO@$g`fl>hL6sy|`qR%L*z^F2Cp|`74xzaOw4oa21G+jg$MpIRGp^SSqG_AxDPSCJ{ zEA8-XuWdlk6kQL^Z!MBVfkJBu(wgmsmBa(2q%eN;9cq`am_EDUr+NmawcO}kF`ZE# z@+oN;Df&M2@LttZbcK|y1u5lXX7-Zu6sj;%ws~x86vvz6d?_3#Ou{%Z@SYv^3ZDg> zlnWppK1rSpZ}AyP+bfhx;<1r47(MGwv$)~(Y$@m=_w;k?T&@Lrq>?y#lnh3Xfz#~p zte$5U^i0OxKHT0*G+W6Tpb8@go7E$h!%-us7%}?3vdjJ7i-DL{0xKq1ON(~@w<uBA_FTB6ygKt%N+4DvXdzJ+?K9Sro^`Qg}=_ z5o2ZD&lNYEm8Vs#9O*}Ep+8%dBB4Sxj1+x8*X4N-7Z#)lPwugnmQ7S)wA9Rlz@Acs z=omHn?(Xp3L4_JujxQG!)R5-|2Ufc)8>zyG+3K;aQMh!+xl%Y*Dg~oN-^F$LTG6J0 zl5&A;dnwVrRwS(kE=m|D>wc}c;hdZgoJ3)_y#738Eh__5S#_k$mBZu0s~9oseyzCS z#0*r#O!>Vfdyg#I{oAS(i5040r0Dy#E+1Q-T9Cres#^oc7JNqCYIEs^^nF{GdoAY` z#OzC3Q%O4?I$KMNcCV!@g+ql&7$*j9t;1uWrw~rcr$Bl3a-us1k{)y=CGi ziN0g&@^zqdb54R@cvJcCZ(BLhyAC9jQjsEx7%TcdZGQYwSaIck*`FY+%%?$bv0TV! z%I|i`I;Zxo9`X#TFmA5$*w*k4dcX}@79*%8jj?3n=DORHIVWey4}0a;(prA>dNO<| z6*Pi|k)rSCx;!#^Qe*Z-{UBW~o(t%u){>$(GGe8aobU=piHV2nZa?O1N=dmYp{3;6vOA%11G>jAz_txE`%2|!s>3(5_gLh>s zDSAg0p_CF8NyJz&ad6#rT%M4#;-|d;9$07ZQAN*j;Yz7U;U$EV?Is?syZzZS8?%S< z>eh(U&q^sV;T4RMb^lh}a7rHEn4L;aRKsIyDbYKcaHW)(2olDLzJI%OQ1#?onUQb? zaB^CBxED}`u`=kft>Incm8_sXE|S2w(f4v)J_|iA=Y~Dg!rtSH-dSi$d8WnG%1^Y| zzV6bB8%{~1F$>Q#qn%n?DbX7#^QDxWh#E%9x=Sl=I4K))Qo>$#An9dmU=BYkrQ(EB zFiP}YT9=s1ZSS?A0je-o zu=_y7aw=RT6(h#P&vkbs{qGxQC-^5r+DePwNO}T!D&)j!&x9P*cXVC8=KMn-rFvGP zt)%E(bDqGS205|nvmgicU0jz}HvPApm2&a>>Y-$wy+;?ll}*)>DsYetMvuO`>++K# z9_8raSH`uK9=#_;U?nO1thP4ppuX$t@>AIU6$qLtA87|4?&-*7UJfGOSGPmAXN-T#1M^G_h3>;yHpHK6Hf|#kK9nObATHcLg?=$=K zo==06#G#|6Fn&zDVRw%>-!J%CODnohpewq|Dn^WfFT6(`XSuSL?)QM0j=x~*XlScgNK9)Dj&mp_5EO%-MxnkJ|=>s6J+VKy+;#GcaJND!-Uf?Qr3N7 zal=XZmx2^>0cI^c8-g!|BZbp2QuKXbm*>iSHz#E@iAjayY0{Y(_3WkPe5x>7u(>i) zITbLnj4@;22Rl6L;h#6mj;BFT4i<{%2;0icCaN%IuvrgsIVCizj!~oU0}t=su2ADj z@Af-DP5#}p!MQtLz8R0FrR0avQeJ=Z3gy}Pe|a{L1IgLIgub)u@=Tb20wzZLX)j5= zt_56_x$>2P0==0qTq!&xm4qET^xa#RIr%o_1nxCo6P$>*(hCyCiN0s+@~nn`*i}QZ92A)vV)Pwcm(NGv z0Ai+-XnEoEf4VPU3eO7DFjDk=TbG~J`gI^>U)r*l61``&mSymSz&=KYzCY{ondhMm zvty}$at)n%#BxejWECUE#JwFKA6-1d&1H&TVsvejc-xf%m2g(sy{ zFiH%(TZd;geU(vSEg^cdnyNBnKx+6f@N6CKm3#&GSOdM1vJ4)N`d*2NOY3g0_>K^FRzE>iYQ?Vkc7%?XPth>FEFIB`$j;?`TNmYtO%4E$Prrqn_thnKne34KR z1zAwt<7w}4MbDd+%3-)jGRBO)H|z4%<-a4$%;)_*I-|o@Ui7Xm3#Bkx1QBCJ-<5Uw z?y)aym>o?6KmX>1r#gO@exj%Q-D5~eB{^sc>v+mxC8&1yy6+LU?=rSQ6UFz-y+O6;2x;&2lza<~loYaoBoal|CrE)}CR-Spg z+rZOxcs-xbm&}ZWS^im)JMzZz7qgZdz4d(1l0wv zzOC%&xxB2D3K&j7DA}d&^19r6`5aKPFaP#gONeIgr7VL7gbElR`i`#4cQXGK;Uk_8 z7y7C7&j{Z{6~+m6C$n4*!$sCHYV^Hbm%X{q=F~)ipW050rZ>lxQqdx47%BQL?#>vI41(8i3G&bE|34eY;f++U z+^GK5@^wHdS6J{0#efEl~N)i zNZ3(B-@kQv9@Hl{G?%)^Ix|5wllhswoM_F15=)_^$RfsyzE8VzSoLZ5Xt2Wf7*=AX zrpKVLvQ3kfD^_7;i>J@ZpBJnYY;<3&_4V)Xr8mz|dTOJah~T+k+;roF^yIW2NIA~KweF=OELI=q_L zpAu&B9^;fB##2GupY!cy<^rlPW(GaB(bdG%au_vA0^`QO)pd9-%zcy_`h4Ymaog@O zmDXGsyd;4iHHk4~;PN`$7ydt#p>l4ot?cObg;^;AGAqsI-D%+WI_%thyd=f%X8qLO zql~U|!<8bUQi&KV`fjkxz2N^{u+s8l7=uo>Ep~);d%;3E95JGdF{AGcyL{Kj*W&`d+Zh4&Ob5n#0{79t(Tj$Y1s>o?SISmDL^)aKiz<1>(Q;n2&s}0UA~Qk)<3`^lc6n^|;gTEjAWT1u1B;zv-LaKej))DfW7Oz7 z#yf}9v6U-#uzZM6L;8)OAB8s+-^G#qyBNj`_O6%rOsX(?uJPE`@TNVWr=~21QEdZ^ zClgoM-LuyROP;O`mOFm_(|lqrN4jS(sT`3XA%StD?<~9g^wwoC|eu+h$RX9$SI5;6BpUt>kjWN`RUJ%=Yx%&=h-_F zAD{|j2fyyXmm^}sRE!vX|Jdc3TJI@|$^UwdH zbX*%O&n$QBCB)$TLrW1TsWglfec#vRE0XV`r0nZ<5BVK?$3(hUB)L)qRG5gdqVMUt z%*y{Htc<6@ns_dXSPElB5HVKtecYWpR90NMo^&^1g*+JVK)A3N<&ljfX`5V&w08#9 zW~wl5uJqW}@LuQvH&|H=AUunar0@Q^+?V;olBDsJ9KfxmN4GD-N)eeUHH4HM20pLD zW9fGmq`s3w+M%gy;zVcg(% zKndkAY9twB#>C-uw=et-V8#zS<4LP;?;IK3zA#q`PYWkvteAMb?p{Co{eqQZ9ZUEy zJ$sKY15{zW;Mb4%ayVcF6(dI9-F0~m=i75)j$hYplP4`EVVtdjIh;~C6*G#CQM2y) ziW^SN?-kUz7-^fn-+<9Ew-_3V9`m*yEsD2L~T zS21Gry-1GFq29xRKHw0+$P7B`%v zHwz@?qtet~hep#0mdiolDH9ksCQh)s+`OseW}bYUc3cbI~P%fu~U^@DB~Wmqn5<*!EzWu`W~^%-p%h61m*P| z3)|VEz2xY6H>?zn7*4}TG4O^RzEk@RB`MHPY$nr5FYC3^uxoEGS@TZqy0S!s&;}S! z`mV9dUf^#Np2(dXt!#>{_v3l?K0|qcDyw;cd^rprQN@T^caOylC+779G2uSegz`S$#w*@6}~2UG1^0;T`f&mS|bEFjaYsCKI>W-Ja2%2u+?BTT7C0&q%(f z3dvyf=sV3jht<)$D{EW-50M_fwX~2X{kU!W@n|bm7)9eA+Zx_cPo_vN4dY2|gOO$6 zOglV(sw7B6U{W>M7IdeD-7sA-{`qmOOK$TS;My?!z z98SfE(f6cXz8~wgl$gWaEKFj1XZvX0kHwcFz`{g~6$3Zg;nCQyQC6nHIPCO0M}n92 zgI-3ATYJw_2BR^gECC@jkI`h{Q#;)2xt-E98D~Kn`wpZ+y9h19qYLE@sQf@b>)i0FH>Tec{-jZowE09@40CURTw=Z9@`q;5wD^L zElnV)rUgcozK86xBlt>6)f!pZmM=vBXQh>GhxVGd$L{uReyL!^pAU+MH7!}oigw?o zEQKS5Nf;*v&auPyhyEhrNBS6E;7&8VgvBOu%|2t(S$gb-J z>16D;vhYOE3~gS6UH2+EUX}n6n#X9;caL4}Ip12*bhw|9#cC!-t)pic)Ubcrx)snL82xmprK2T5W47DV&yP|P z;|ED${1|x94xh1pw&15)Gwa2k*R_@%-7^+n4u_4PV#FAD%?{5;ez{1@Ocr*#k;U$h z?tEmmB#a%FLkQY!;5$2fr}|AILDP##me|}=*1c0*E(znO%wY5wIM5DzhRYH?ezs^W zIl7*qR1OM`U$ffE&~5{-+2NzkDUloN$LHop9eIqdW-xjT9A}50baPUqXFQ2BtLG2u zKIsN22?K~rVhkDh%nqNqPN)o7%a8e)t0WoTxEyPTz!$7!uKG$t?Zbexu7Hr zo-%{cv+gj98%|Fq(nHsvwU-`khfppF!)JvRcZYTxILr>u66*m!#e-PEueW!+bv{)X zJNPUyp&XtYLB^O_ca_BrXC|$fX(r_PQ=Y}l3{YitSDBR~AycUsG3&0fxZ%XStRQA- zf!vHTllA9%ql-an$=0N1~*) zM8A&K^0SpHjGu9jZEWS-`qCtrYT96A8Fwp~l45cGn+Rtf-lwBWHW5G4cl{aDQN8 zMSsA+*>?Cyv%oV$XPw!~jM0&%Do2H8h52SX4cu&puZPT6)a*ai_2ahfZj$!(5TzuE z9w~_2qK!T^bAmi(Nl8`mMaJ4riK`OC)?$Nv7+xy5ARib!mhB=Dp>K;Ua&7+IAQORJp7zWL z8Dqx4D|WcQdqc_0;rU`Y8=~3DjBbCIFGoa%sTeUP9gxQ za%5yG8Dqx80e08Tdnse)h5cR@&M(``jINs}mLo&Mbc`AU57^;5xc)0gO%lfR{B+V< za&+(Dl1oz9;W7w4!vw)yd_7}jw4e5p)Z(LySudEDBNJ1}7&H3rughno7jw+O-RSl*V|GT8 z??e|>j2IIa*xj`+W;tT~F7yd)CFTOEFk%Khwz0J@q;eE!SOVi_-3b;qoSS2e8+tE) zYArWrXD4OV0!hZ0F>!+3W#%YjW?$S|%#Yk_g&A6o%uFR?%$Rt=?w+5nW6TVV(dVq% z%8c3hsVYaNhD%`F==;GgkF=YFo2leP`D`g$nb93-bEPm|1QBD!zy)@Ag@T!qm1fe7 zf)hbxIWxK|6d)yu>?lcup&%aHDBUP?(KL90K%Z%E%6cDZl- zqJp2m@AcDwELzm_maSz+w{I+z!*L_Z7&H0~vCDHkrweBMuI*2j)t&3fO5tGPG>jAz zU)bGI)L|ec_7{SQAn62IYVXlScN8U+!y_XlFm4RoVTb2O90G2Z%Ev;T3VV5}_V#LY z=SRpT@$kqQj2;7z*x^3$6wnjKSsvB*(O!DA`^0idJU&Va<44~wcG<%@Sn^}}cwF1V zVWo(~tk}cR_lbx1s#m^UVddJAm4ivr^*YwF@)W8tRRGMYng$l_GIciWn>UPOr=J zI>&*PFgx5O_b~T7&$pJB0je-w@OhnlIXp1DiVM6R~PaS-)L z&Q@~t`!Q-+B0*{vBT3%_9^SoOA<30~%ved17g|70`4=ud^6sEzGqwfKHjt4Zs6KF zJg4sJf{7qI8ut2r++fEO3FvE>Op&d6m*IqwY97moT+me_y*xkTY0^17cO%hl5XPtf3NunU zDmYaF<3`^Dc6mncZk`*@-lL7~jNYmgm6jS#)}3E*!#UYia#F4Ef7n`9be&(J9Fdom zpJT9H-}!a9N4&FSrj;g9G#Sq)(511J8;m2NfHc^GK zgReF&mQw>x4K)UivBOujhZr?M5Km1J%~om#sKThhuWIw<$jp=~MvQ?+?C^1B2PKA> z?xRVPwtMyxV{n||$`P0mbc`B(KiK8o&GwR-;;|yku(6dKgWio;k_eBK!uZkmi(S43 zJ}B^GFE<9)z?BE@@ES&nzBBAHDKDU;Ooyk);<#&p6k3WvN~K|>7`VU=pOda&qy$lK zO`Vg(l4Nj%6vmH<8|?0p=J^6Y_Htu(q!I62;x&vE6F=D9>rIzaQs6Gaqkhz16W5#g zas*_=1jdblC+zT8`zHl%){Ljem4jeY>*?*-tM3H6d|tXtpvGQe49-im6oi%+*T(63PsHzI0{P*vgH;c}gltfJez;1ev(P?%wJD9FZVv$WSp`KHtmW423;|G4O*O?!`Q_q-65YOmp9% z(fwAeLR03-S2pg&uyRCPI2mI`-vJ)pqn?3Wxzqn*%FM*5y+@UEslr&f*kfCxxKeq% zDno#z*vIHFaeLjJ`S1)%$9NKFQ$d!7EqjkB1~VV{as*t&1jdbllVu|8tFS zgIc{}0^`QS=XJNA`*e;QvTrLh2L0Tk6a|(VN(>xchu68fh*Gk@GZ(bmL7QE@wwIXA zRAI!_u5+c7CD4OpF_KJtUw6+_Pb*1+HGO8no7Tk4PQDxw9wC8oW8nQdJkq{U*4o-ywE+e04shY0U2} zl6_kVG8kVKr3lPW1*1gY6L$H|$^lBrXg}>G>6*H;QY=ZpMowY;7`Vm`&-Z+)!p~U# zTK4i|FyB)usRkgL!wAy%k6pe8>O6rUd&x1l2a1-05K}{nzGLk29V|~NNlBt4Emn+} zvzC?tsxVq=?_jCQ5qV)MMvQ@b?C{#t8+l^Z*4ooTNh&!j_iYRuV~6Q^GEdLQGTbEZ ztsQ#Gl2m$F2BSycH+Ffx=eayRp1sr<%=d&+R9tE}G4YDs?bZB5$%)^kilxHKBB%mXwFn;u%VV6CdCn@}l`D?_pkxHro zh~_YY^j%|@J)5%yg6t*7z_X#HAjH&=qVEs8d^h(KD^lWi7%x~$ioxC7WhoLWrHHYj z?*zNt6F!TwvM)~K%`2_-RcYms?g_Rc>y=n0D@iRefv zj30e}*yVoAnF2p+q8~#`L4c_t#lQ=8c=qt)OH!hUp6b`c-BElwA~He(<3`^Fc6sH9 zGblGhV=%AH_B*5uR*sNM68KS*7(?q0vAE$3Jx*fCv-nd4l4J(BM zh8HnbOq^h~f8z=(9${rX4T9O?#wcr9*+><}%2tnUY?gUh3Il~H7$y2Hu*;*TAA9tJ zZ00o{^p}%j{8;4EYUU%hZ#Y1)eU>^JUE{!jGoIqwy`xn zg>qzYR$5zRSl{t=`HI262+XXlYm+sLiy$eCAAJ|tWl!(B0zdY0W8&$_ldO0RBSqi+ zb-91@&m}3+4gaxWW#ProJN*WGy)+qbcQvZ9&9XF>r_-e&WVI zm8{6OaCot`+-#-_;|71?23D2`kk)-GL;7y9%cH7q%OrV`wFH@rs*oF3BpG8y-#K>q z`sF_s%p}DVC~Rd#`}$=fJzt{|Fg{FtVRuJO-zxYBJF!R1(jPoWbZZafID{g3mV@J=00FypY89 z9&0vHg^`0l!AC4d=7#AQH3pur!}mG;J)veS^-nf~HFKYnR1U*NNnqUQd%-TR67h|a zoAIR8?;Qvi7Nb1uWk+|F2&5#DA0>$~WZ)7zJgfZcB}4Q%TAszD?E$JVe(+i4d^sXG zOht&T4w_!dNP?mKfc!lw6X? z&8lOm9VR}oyJM-ZGJ4j`SV}BM=4QpQ)DC?o*yaArR|;yvY%xfw*Jp2kSi3*NmBTS3 zs2DN&-tf*H>gd~*E0eF>s6>o<;n3Kur{6!AuYx@Z)wA*!;9G-C4v+NjyAC3ggGXId=G{^99Dw z;eHl{abPby`bQnU92p#@W7HUU#SYIX{#%Zk;`X7YKWFp$Sh_Qc)shr?gd9T9c75;I z<^J)5j3Bxu$pLHW(e58}<;dKuurkSZ0}t8Z(fQvnVkUw(NW)fn{$B&5bF3^GAtjBm zWZ)<}e7*bu#?t;1L7bJJsjVDoUoTfnk|~ms7()jBvcnAhUyh+PP0}^S5MPqQkeI|6 zGH{%S)$5{rG#KJ%m#@T7&Fpf8p>3KBU9k#7TReS+KF=5$jl%qkITiGJc}Kx^mYz)& z#?k?gZ4GbM<5@yWlbNb%gt2AdKs$VV`fJ7(eG(IlT5M&??D!;r3D z`kca$XDvTw?vVNrR$0fWG4Z6`b%*|nQNuq5&RTNJ+#&ptcUTT1$i$Ua`$euCcRmXQ z&4+QhzLmXwq4TN2=)v#&6w2Yj5oC-R15esvX8w{fL+|2WE6gY>6-Y9|%%Fh_?Xai# z8N$qH8u(cN*P_X7`_q25Xz^SzT~84$i!oG_##l1&ryV~2d|GD7vv;hed;Af~!P%){ z#=wVm_$t_6FlOizhU{f#fGUg`{3;k%2F|l{8 z3td+SDM^7xOkxZfxXupG8T%y15SvA1@7*}MbHxc6gNbrvh2Ur`lZZ+B>#48>I;)At>=lm7(o>4ZLZG*Mho_ zF*KP49jp1dfGUiiL62>0EhwoRnH?^Habw^^JG|D$|KYf)zK9mD<)gdShFp>Y&nib9 z14r87D`FpK^sKpA_Gno$MjEs1x9?r|s>Kaw>3=hp*3>L}q$HW5RcG06-)rDiJIv6% z97AhqmOWCE!q957?6>bV@T(nuBE_FDhDMXPmqg{IYm3imo2kM$!kBx$?XOz7unD@EGAwO9^^kDS1`S@*5Q4d>>=zzumM zc|Wa2X!ag~w0&!-Bpx0)gVAH)TRTk8ha`I13qeup8ltBt38jZ-FnSD}YKPBR9~9_0 z>PLNh$6fm8ETJ3(oHBuNW8h9ZJl^_%z|CYlZ}AfawZ~gRIS4jX$EY#zqa8k1y`ND- zCxT9l65UpE%+6J;B$*vPgVAH)K|4I}^?g83r`ykhW>78GZY@39^Inybcz)CzMv#fq z?CuXSALx$+ZuWJ%LEQGdIcwR`?gL3BA@Ecggr42&9<#XN z^t>DB$-jg%K@_yevD{j6^p841IXpO00^>&CV;DIJaLYXy)0?>cBGPIh*oiYb{n|N4$lm`yP(I9Pxy3x0$g>rmLBby zVQNVnKv)uE$iQ=Uc%`X7WDGTzPKL3~bDsyO!uY9KX^JaH2B%apVhns{hiA>dlOx7o z=uM|#oK2@m%Vu)4XU!vJDFjJbj3g7k*^Yr@yPlxB{duwFYm{bx1QI$dH z*`@D75ARj!am7u1JELd1_hNggIgcugnoB&kH9YbH$Awa4UO>Z0(f6HQKF<6ePYOMJ z6Wvx~%#JgxB$XSM!RRq?qa9vZ{B1lv#X9Zw_IA#v3M1!ok8Rw_;(R$OHnpqKZ{M}< zIEx$3%clG@A6CaN%IYUaWV<*3ko;UN<&?g$%O3ejSVblzIY~yC~ zh~=o*tnlQf?Yj&-Wrt_Mzlm`(5oFE0P`mHG(VhjblqBOL<}iXxykzyNx+`At8wG-j zOU&dsScm6sw3j07RS(dz5R#-kMw5Y)?C^Q)cT}3JrO50&R+UqS56;a_eGl2?D_U=0 z+!S}C^!+GWJ`%K3-`-U-%&urDWyu^N4KSVzoMwmb?fPxT(^&plk`=Y+>?wOaL+yLJ zu(D*Dlr+YYzVGbv^{v+vmdFBI#W&R6UXkwgEmjJHhSxAs^xfv+y{h-)3Ms!uNZFTV zerxf-u|s3llJZolFj6k{*w!fKsU8Bh>5kmh zk~nmb97d3V)9mo`D}S>hh?w@}Cwil`1nEA%QYlFSNK9e;7% zGqsf;-TNt!k|cuUB*xIX|154eL%+coBG-V{)>%v_Nk&M_VFVfY&ki4j?yLxc%Ry`E zC?u97AtWa;h74S1huxn4Q86?$Hj{%#LimPC@8MpzowccNW(d+sP$YPaF( zvi6?Iblo0S3I`3RVWb#%%nr{j{B=Ug(Ad!+&BB%+jRYrxi0HNwqdT`yE{SoYW-xm6 zU1gVh&aVY}4kT%KQ$C=r__389-JY{r63>sC!w6b;o5c+$=+}TCIQ37AT1$?u+su{1 zBg2UpD+X?}!?RLv=UG`Jvr@%!RAg3|l{#$TFgrZ|{a15pj&-h!^IBgtd%n^fiF2j!%rFfj#lS;$_)6%j3sQ~*J@N&tzI(p4#Asd# zRZHT)QBxQ{2LAD|dZcmXdA6^j{B)8N#mt1F=U8|J5**;HX19q`yzJHEnpU*G!Wg01N^$&ywQ6?5#0^^a_2O7r>_Ruab&mc$s+cbZ*xdR|#DbSOA! z`Ew*SogTgvju~FWSkd>DU1sH%3Rb47vFvHj$`m$QpIUjWKBVs;yL`9SFBYtfC#`<3 z>POnj%LPRu)eXmPJU~Vc-xuJPN-BNSX;U=o?Na_Fi$&9feEf@bE|pj2jbI*xl>nKVNY( z6~ujek2<>7$5|;7E>y!v(f5R1KEm8wk#b=2&`fjRq0#-;(qeRkVdY53@Cl3?1Ao|I z*XHLcZpM=|SV)t8TseNW@}uk8;AKe|A$g1@1J~H$`(=K%q=`JjciNAFEDJo(-c?dG z@0U?Z5*ZRR7(E6KvcogjUk>yf33`F`D=}@N3L^)d!7i1(os5y)v6Q@}ng}Fk|Ng!w<$d09cw;QC# z?4H@BJA)J{iAM-YA`ERe@R%KD=tRZP%yKUaI^~FDO)w;uBrzl>F^2U0W|tZ2R}4)@ zem0+^o#tZDStAUIB}oj)NsJ)_C)!~TC{q}kYFc!@F{m5QNNb^Y(b!Evc zAq_B|^nGcUufo5q;%TzA2G)z?N|CUk8b*qN7wvH0r(2Q2`_T3hW7PMl@u1}lMvsC2 z?68lRRP?~=M$_S`AhP)G34I??E=l4?%3%cQJJBxBhmV1v@i2;x1TA}eJNonCt5SGm zI1yvT#B+A{x@iYk+25H9+U=mtZsT7At2kk0@c?02grq?O=h@-4c_JWbEbMh7e|dD# zj~9ZrXYYAScWoY}Bpx9ph4EwHIy*e?XQ|}JkCKJ4V6MMlFFTv4!q};s_rsSXg2U?= zH6}i@yS?Qbftu{z`-GIB#V~4$i=lcld26hBd(iW;PmPS0bHM}EU!BTB$6;La*z^F2Cp&dRl1%#@_u(dRu zM9T-mIA|vO(!k!8b~TSoSV;^dG>I{!??byhqHpI6&GhH8)Nf_5=aGo6|W{x9fJPiV( ztr231aui~yiV?H!HH#Zgj9(CwhVeo(xi(ntEqClCM)%Almcub4=@>O8UbDONdTt=p zl#AMs$#o-sO8i4x$H%B+mzKo9L9+UxN=g({4iZ64bi z#Z}Vdd?`FGEA)Q{_Zs-h4qr!qDR43!p6dABaxqzpk20Fq(bbZ8Zj=^d6gL~G!UU9>jnI+7$(je z(f4;cUNv37f6C{rmX~BKov&NpvSgqFUY%f8P3oEuo;Wli`x zd?^(#qKL4vOW#L!+1DAXSXmRk4z}#kDytn0?$URQU7k%bnv(*HEHo2XbirO)Hc^Gq zg3hLp%BhG^bc`B(-`M3o%t%hnB)RU_3#!$lY^6rC4_- zY6KM{M&C7ddCc@P1u=*FSuwTAUXM?6%*2<%!NQ9eEBc$N1Q8x89G6GG)dBSZ*3fL#FBV)KHW!p0LB$5_VH+{4gfx{DWc7 z-fP>M*AnD%1Z>0v#*K*^?C#NK7jRQtp6MR)JHeVb+VJJ@*oZnt&AKBjZa6hNftt0l z&hP}b&hW%)>kRMIcZ6NO-ZTuX(5Gb|o+p~EybMr<@q%7&63XF$;Z=;7b#GYQaAJl8 zVv19|wZ!P3llXEFW>)CQ=zGI1&(_-^P-8DKnzQw|QV?2dNHOq%9li@;J0&HU_xn*c z(@KLNCVfJZvy~dnyAaT_1b&b#Lej8-JM8eNdk{z(?WesY9a%0uPg@DnA9V}m@bE|p zjGJ{|Sln=KUI5&T^s|h5U-Q;-qwfoIk7(Dv10FZ8nlD?rau?0 zk+YUsmVgkF#Yi&oirqc>JfA0NEPok`*OoOn`ml0Tbf}CmW8f1zymG+h1v7Dw`dP5A zm4zqr|I_J`*0Q6yazIU497HvFj3yKR*xgy8KS^jB9gPA%?sqLd`smIQtx93ga1zFe ziFfSo`0BEp6Y{|8kuYwPCmH(-_Rc=n9AC-hRK%zWj2nFi+2!j~&m-I3hU3_jNBRnJK<~_VS|H*JY)MtkfS{h73Gmhi95Ur{W}x*jo9K zwY+G~G*?QJun{sCJqGTu!y~0_B|Y4oX10=}J5rL$5y4sQj=CWeFW6mfo=v#PKgQyY zR=TFk>CTN*4&z2iVB8q^!47k?mFMPAzqmJXt#CujQMsuS7&rRPugkMRpCxhQdG?;C z2B^ZgL1%*s<)F~i5Tow_yX?p(xKcP+coAbo-}iO-tn|#Bm0~Qh zc6z~bITbT%0^>&C1Kv5Lo|Rm=x_xoZ%~f@&`*OyNfyp8TkQR5KEX~ciBW{45Po*( zd&VwbXV^^m33^$YEYtNeLu=X5yv`t&!?=-Tj2Q#}*x_^7(+g&zAPbs{Y5pnhKNV&N z{J0$jskQ9rp2KR&;wY+Xfbq2MD2p4;(?u0e`=V&F<1YlK{oEV59El%3fpMenD7$>U z^JxV)bNvM}>Aw}Ru(FA<66IezYgy5}51cDSMkT5}s_47LE+19S zFG(3m(zeB;B$J~GEk#775;0cv9b%VR8K_t(?k8IttUxIeE2W6BqVN8?%*s=9R`O0? z8pK&Mw0K1TO;-3)Dpo`hVP(64)9bKncOGFS4g59e+SQfC7^-c6@nqlvJ3PPUDHTuD zQuh*TIU1k};|QH!Ba|b-v(j~g?FK%t!}HEJR>Y7+Rm*2_*n8bubKbd9l0=S>!RRq@ zd)@8pJh`H$csiT4)adqgxKbowN)cm4-|=;M1)Fm#R=^S^&omj!UybB!IbI#xBp+I)~7d zbeH$V?TILv^P~MI{K&JHB+c1cYDo+tB!%&#?<2cBTkA;$Kb>wr3--mW#UwrbpDQJn z!*L_Z7&9h*vU&z{rQduuVI~T@#qu4Vy?*jWsxV%*dTeVHW3S^}DGU{+V3e#o$>N4n z@EAM7qAkEfIr%K@zoO2oyE zI0d7`zzKGE#C!&&q&PMc6U(#rJft~d7RwQE;bn{&1JBptr$RlBGQ-{SY%MdJsKS^* zp9&?FBS5p-o!x^b-mZEVlPkU62B9XnDGXA0j`?1&akUnydrS?vh@6mt1o3?z>W^ z6*1|LHVh6naQJHykp0nLvR_ittuXda_Dk4*DYW2zia(t1cbEI_(qxJ-U--WF$@4w; z-gkHJ_mJ176sxSgJ9?V*M>=yRCuh!`kx%$zcLlhScy%bUf#_3d74E?ei+$3@rAI|HglzBSx ze3@LP|H;y_oXuugp3DZ%H!n!Q;+hC>+(VL(qUt(@Fir>nKd~1f`oEvYK|sEgT2`n6 z{~XgGcT*+Xj&d&z(S5~qR)4`9j$ed+9oCyJE?!t@9*(t*~x#^a`TU86W??bx4Oda zw%F=A`*Y6at%tc0=cDxfgZPy-*q(h+n91!r?`_Y&EVS-9zkBz<+O(aQ+G2;j!S;;Q ziFrBJiF-NTImT}EYjZFD@uy3l+*xs(hw%zjgd-bGKfsNKvf-lM(>R+4Kjtf-N#UA% za|D3ZICgN=b=^W0prGkC(Q6Gut*LdYP~EH(bA=SDWZ6`0Qa35Fokqj7FnisE!S>4b z|1^x@JnEs7IKSYbulcIW(RGe)aCDQSU0&rbukst`4ml?Z0T&YjF14Z?D){l&BY;&Q z?C>&#A@#C=-6$UE6Bf}vX3HbOD}vv>5ly7!L{9?)5$)d*PczuT(cYCj&A9;$i{rh_ z>iEa$WN-y%QsBSEka-73ypPF)|II=s`esCE;QW945-l5{2OTk?$9ZhvL6g}m_t?OL zu8YCf8T6n%@I5I0ggi)s!5HR2*Kn*q)`KR{f2Pofrti)slWgeGBu7OClWO`&BC zEcG)-w^V{1fV8Eq={A}O;JU5XS3TDtR4ExMX_$H)H8B3>+XTi>5yMoL)n&4#TI>ok z4rGEAQ*GMMHk5KzSykbE%Q7wRDpr_%)4&hj!1*~3eZaZ%oGWoo=-Jo{SF-cJZJOT^-P{80+QGKVFZlijV>L_dgze4)8an CD9bDW diff --git a/mingw/lib/tclConfig.sh b/mingw/lib/tclConfig.sh deleted file mode 100644 index f107c1585b..0000000000 --- a/mingw/lib/tclConfig.sh +++ /dev/null @@ -1,182 +0,0 @@ -# tclConfig.sh -- -# -# This shell script (for sh) is generated automatically by Tcl's -# configure script. It will create shell variables for most of -# the configuration options discovered by the configure script. -# This script is intended to be included by the configure scripts -# for Tcl extensions so that they don't have to figure this all -# out for themselves. -# -# The information in this file is specific to a single platform. -# -# RCS: @(#) $Id: tclConfig.sh.in,v 1.8 2001/11/08 03:07:22 mdejong Exp $ - -TCL_DLL_FILE="tcl85.dll" - -# Tcl's version number. -TCL_VERSION='8.5' -TCL_MAJOR_VERSION='8' -TCL_MINOR_VERSION='5' -TCL_PATCH_LEVEL='.5' - -# C compiler to use for compilation. -TCL_CC='gcc' - -# -D flags for use with the C compiler. -TCL_DEFS='-DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" -DPACKAGE_STRING=\"\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_NO_SEH=1 -DEXCEPTION_DISPOSITION=int -DHAVE_WINNT_IGNORE_VOID=1 -DHAVE_ALLOCA_GCC_INLINE=1 -DHAVE_CAST_TO_UNION=1 -DTCL_CFGVAL_ENCODING=\"cp1252\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1 ' - -# If TCL was built with debugging symbols, generated libraries contain -# this string at the end of the library name (before the extension). -TCL_DBGX= - -# Default flags used in an optimized and debuggable build, respectively. -TCL_CFLAGS_DEBUG='-g' -TCL_CFLAGS_OPTIMIZE='-O2 -fomit-frame-pointer' - -# Default linker flags used in an optimized and debuggable build, respectively. -TCL_LDFLAGS_DEBUG='' -TCL_LDFLAGS_OPTIMIZE='' - -# Flag, 1: we built a shared lib, 0 we didn't -TCL_SHARED_BUILD=1 - -# The name of the Tcl library (may be either a .a file or a shared library): -TCL_LIB_FILE='libtcl85.a' - -# Flag to indicate whether shared libraries need export files. -TCL_NEEDS_EXP_FILE= - -# String that can be evaluated to generate the part of the export file -# name that comes after the "libxxx" (includes version number, if any, -# extension, and anything else needed). May depend on the variables -# VERSION. On most UNIX systems this is ${VERSION}.exp. -TCL_EXPORT_FILE_SUFFIX='${NODOT_VERSION}${DBGX}.a' - -# Additional libraries to use when linking Tcl. -TCL_LIBS='-lws2_32' - -# Top-level directory in which Tcl's platform-independent files are -# installed. -TCL_PREFIX='/mingw' - -# Top-level directory in which Tcl's platform-specific files (e.g. -# executables) are installed. -TCL_EXEC_PREFIX='/mingw' - -# Flags to pass to cc when compiling the components of a shared library: -TCL_SHLIB_CFLAGS='' - -# Flags to pass to cc to get warning messages -TCL_CFLAGS_WARNING='-Wall' - -# Extra flags to pass to cc: -TCL_EXTRA_CFLAGS='' - -# Base command to use for combining object files into a shared library: -TCL_SHLIB_LD='${CC} -shared ${CFLAGS}' - -# Base command to use for combining object files into a static library: -TCL_STLIB_LD='${AR} cr' - -# Either '$LIBS' (if dependent libraries should be included when linking -# shared libraries) or an empty string. See Tcl's configure.in for more -# explanation. -TCL_SHLIB_LD_LIBS='${LIBS}' - -# Suffix to use for the name of a shared library. -TCL_SHLIB_SUFFIX='.dll' - -# Library file(s) to include in tclsh and other base applications -# in order to provide facilities needed by DLOBJ above. -TCL_DL_LIBS='' - -# Flags to pass to the compiler when linking object files into -# an executable tclsh or tcltest binary. -TCL_LD_FLAGS='' - -# Flags to pass to ld, such as "-R /usr/local/tcl/lib", that tell the -# run-time dynamic linker where to look for shared libraries such as -# libtcl.so. Used when linking applications. Only works if there -# is a variable "LIB_RUNTIME_DIR" defined in the Makefile. -TCL_LD_SEARCH_FLAGS='' - -# Additional object files linked with Tcl to provide compatibility -# with standard facilities from ANSI C or POSIX. -TCL_COMPAT_OBJS='' - -# Name of the ranlib program to use. -TCL_RANLIB='ranlib' - -# -l flag to pass to the linker to pick up the Tcl library -TCL_LIB_FLAG='-ltcl85' - -# String to pass to linker to pick up the Tcl library from its -# build directory. -TCL_BUILD_LIB_SPEC='-L/src/tcltk/tcl8.5.5/win -ltcl85' - -# String to pass to linker to pick up the Tcl library from its -# installed directory. -TCL_LIB_SPEC='-L/mingw/lib -ltcl85' - -# String to pass to the compiler so that an extension can -# find installed Tcl headers. -TCL_INCLUDE_SPEC='-I/mingw/include' - -# Indicates whether a version numbers should be used in -l switches -# ("ok" means it's safe to use switches like -ltcl7.5; "nodots" means -# use switches like -ltcl75). SunOS and FreeBSD require "nodots", for -# example. -TCL_LIB_VERSIONS_OK='' - -# String that can be evaluated to generate the part of a shared library -# name that comes after the "libxxx" (includes version number, if any, -# extension, and anything else needed). May depend on the variables -# VERSION and SHLIB_SUFFIX. On most UNIX systems this is -# ${VERSION}${SHLIB_SUFFIX}. -TCL_SHARED_LIB_SUFFIX='${NODOT_VERSION}${DBGX}.dll' - -# String that can be evaluated to generate the part of an unshared library -# name that comes after the "libxxx" (includes version number, if any, -# extension, and anything else needed). May depend on the variable -# VERSION. On most UNIX systems this is ${VERSION}.a. -TCL_UNSHARED_LIB_SUFFIX='${NODOT_VERSION}${DBGX}.a' - -# Location of the top-level source directory from which Tcl was built. -# This is the directory that contains a README file as well as -# subdirectories such as generic, unix, etc. If Tcl was compiled in a -# different place than the directory containing the source files, this -# points to the location of the sources, not the location where Tcl was -# compiled. -TCL_SRC_DIR='/src/tcltk/tcl8.5.5' - -# List of standard directories in which to look for packages during -# "package require" commands. Contains the "prefix" directory plus also -# the "exec_prefix" directory, if it is different. -TCL_PACKAGE_PATH='/mingw/lib' - -# Tcl supports stub. -TCL_SUPPORTS_STUBS=1 - -# The name of the Tcl stub library (.a): -TCL_STUB_LIB_FILE='libtclstub85.a' - -# -l flag to pass to the linker to pick up the Tcl stub library -TCL_STUB_LIB_FLAG='-ltclstub85' - -# String to pass to linker to pick up the Tcl stub library from its -# build directory. -TCL_BUILD_STUB_LIB_SPEC='-L/src/tcltk/tcl8.5.5/win -ltclstub85' - -# String to pass to linker to pick up the Tcl stub library from its -# installed directory. -TCL_STUB_LIB_SPEC='-L/mingw/lib -ltclstub85' - -# Path to the Tcl stub library in the build directory. -TCL_BUILD_STUB_LIB_PATH='/src/tcltk/tcl8.5.5/win/libtclstub85.a' - -# Path to the Tcl stub library in the install directory. -TCL_STUB_LIB_PATH='/mingw/lib/libtclstub85.a' - -# Flag, 1: we built Tcl with threads enables, 0 we didn't -TCL_THREADS=0 - diff --git a/mingw/lib/tifftclConfig.sh b/mingw/lib/tifftclConfig.sh deleted file mode 100644 index f758d2e16b..0000000000 --- a/mingw/lib/tifftclConfig.sh +++ /dev/null @@ -1,57 +0,0 @@ -# tifftclConfig.sh -- -# -# This shell script (for sh) is generated automatically by tifftcl's -# configure script. It will create shell variables for most of -# the configuration options discovered by the configure script. -# This script is intended to be included by the configure scripts -# for tifftcl extensions so that they don't have to figure this all -# out for themselves. This file does not duplicate information -# already provided by tclConfig.sh, so you may need to use that -# file in addition to this one. -# -# The information in this file is specific to a single platform. - -# tifftcl's version number. -tifftcl_VERSION='3.6.1' -tifftcl_MAJOR_VERSION='3' -tifftcl_MINOR_VERSION='6' -tifftcl_RELEASE_LEVEL='1' - -# The name of the tifftcl library (may be either a .a file or a shared library): -tifftcl_LIB_FILE=tifftcl361.dll - -# String to pass to linker to pick up the tifftcl library from its -# build directory. -tifftcl_BUILD_LIB_SPEC='-L/src/tcltk/tkimg1.3/libtiff/tcl -ltifftcl361' - -# String to pass to linker to pick up the tifftcl library from its -# installed directory. -tifftcl_LIB_SPEC='-L/mingw/lib/tifftcl3.6.1 -ltifftcl361' - -# The name of the tifftcl stub library (a .a file): -tifftcl_STUB_LIB_FILE=tifftclstub361.a - -# String to pass to linker to pick up the tifftcl stub library from its -# build directory. -tifftcl_BUILD_STUB_LIB_SPEC='-L/src/tcltk/tkimg1.3/libtiff/tcl -ltifftclstub361' - -# String to pass to linker to pick up the tifftcl stub library from its -# installed directory. -tifftcl_STUB_LIB_SPEC='-L/mingw/lib/tifftcl3.6.1 -ltifftclstub361' - -# String to pass to linker to pick up the tifftcl stub library from its -# build directory. -tifftcl_BUILD_STUB_LIB_PATH='/src/tcltk/tkimg1.3/libtiff/tcl/tifftclstub361.a' - -# String to pass to linker to pick up the tifftcl stub library from its -# installed directory. -tifftcl_STUB_LIB_PATH='/mingw/lib/tifftcl3.6.1/tifftclstub361.a' - -# Location of the top-level source directories from which tifftcl -# was built. This is the directory that contains generic, unix, etc. -# If tifftcl was compiled in a different place than the directory -# containing the source files, this points to the location of the -# sources, not the location where tifftcl was compiled. This can -# be relative to the build directory. - -tifftcl_SRC_DIR='/src/tcltk/tkimg1.3/libtiff/tcl' diff --git a/mingw/lib/tk8.5/demos/README b/mingw/lib/tk8.5/demos/README deleted file mode 100644 index 2996cdd206..0000000000 --- a/mingw/lib/tk8.5/demos/README +++ /dev/null @@ -1,46 +0,0 @@ -This directory contains a collection of programs to demonstrate -the features of the Tk toolkit. The programs are all scripts for -"wish", a windowing shell. If wish has been installed on your path -then you can invoke any of the programs in this directory just -by typing its file name to your command shell under Unix. Otherwise -invoke wish with the file as its first argument, e.g., "wish hello". -The rest of this file contains a brief description of each program. -Files with names ending in ".tcl" are procedure packages used by one -or more of the demo programs; they can't be used as programs by -themselves so they aren't described below. - -hello - Creates a single button; if you click on it, a message - is typed and the application terminates. - -widget - Contains a collection of demonstrations of the widgets - currently available in the Tk library. Most of the .tcl - files are scripts for individual demos available through - the "widget" program. - -ixset - A simple Tk-based wrapper for the "xset" program, which - allows you to interactively query and set various X options - such as mouse acceleration and bell volume. Thanks to - Pierre David for contributing this example. - -rolodex - A mock-up of a simple rolodex application. It has much of - the user interface for such an application but no back-end - database. This program was written in response to Tom - LaStrange's toolkit benchmark challenge. - -tcolor - A color editor. Allows you to edit colors in several - different ways, and will also perform automatic updates - using "send". - -rmt - Allows you to "hook-up" remotely to any Tk application - on the display. Select an application with the menu, - then just type commands: they'll go to that application. - -timer - Displays a seconds timer with start and stop buttons. - Control-c and control-q cause it to exit. - -browse - A simple directory browser. Invoke it with and argument - giving the name of the directory you'd like to browse. - Double-click on files or subdirectories to browse them. - Control-c and control-q cause the program to exit. - -RCS: @(#) $Id: README,v 1.3 2003/11/05 13:20:21 dkf Exp $ diff --git a/mingw/lib/tk8.5/demos/anilabel.tcl b/mingw/lib/tk8.5/demos/anilabel.tcl deleted file mode 100644 index dadf52e85b..0000000000 --- a/mingw/lib/tk8.5/demos/anilabel.tcl +++ /dev/null @@ -1,162 +0,0 @@ -# anilabel.tcl -- -# -# This demonstration script creates a toplevel window containing -# several animated label widgets. -# -# RCS: @(#) $Id: anilabel.tcl,v 1.2 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .anilabel -catch {destroy $w} -toplevel $w -wm title $w "Animated Label Demonstration" -wm iconname $w "anilabel" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "Four animated labels are displayed below; each of the labels on the left is animated by making the text message inside it appear to scroll, and the label on the right is animated by animating the image that it displays." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -# Ensure that this this is an array -array set animationCallbacks {} - -## This callback is the core of how to do animation in Tcl/Tk; all -## animations work in basically the same way, with a procedure that -## uses the [after] command to reschedule itself at some point in the -## future. Of course, the details of how to update the state will vary -## according to what is being animated. -proc RotateLabelText {w interval} { - global animationCallbacks - - # Schedule the calling of this procedure again in the future - set animationCallbacks($w) [after $interval RotateLabelText $w $interval] - - # We do marquee-like scrolling text by chopping characters off the - # front of the text and sticking them on the end. - set text [$w cget -text] - set newText [string range $text 1 end][string index $text 0] - $w configure -text $newText -} - -## A helper procedure to start the animation happening. -proc animateLabelText {w text interval} { - global animationCallbacks - - # Install the text into the widget - $w configure -text $text - - # Schedule the start of the animation loop - set animationCallbacks($w) [after $interval RotateLabelText $w $interval] - - # Make sure that the animation stops and is cleaned up after itself - # when the animated label is destroyed. Note that at this point we - # cannot manipulate the widget itself, as that has already died. - bind $w { - after cancel $animationCallbacks(%W) - unset animationCallbacks(%W) - } -} - -## Next, a similar pair of procedures to animate a GIF loaded into a -## photo image. -proc SelectNextImageFrame {w interval} { - global animationCallbacks - set animationCallbacks($w) \ - [after $interval SelectNextImageFrame $w $interval] - set image [$w cget -image] - - # The easy way to animate a GIF! - set idx -1 - scan [$image cget -format] "GIF -index %d" idx - if {[catch { - # Note that we get an error if the index is out of range - $image configure -format "GIF -index [incr idx]" - }]} then { - $image configure -format "GIF -index 0" - } -} -proc animateLabelImage {w imageData interval} { - global animationCallbacks - - # Create a multi-frame GIF from base-64-encoded data - set image [image create photo -format GIF -data $imageData] - - # Install the image into the widget - $w configure -image $image - - # Schedule the start of the animation loop - set animationCallbacks($w) \ - [after $interval SelectNextImageFrame $w $interval] - - # Make sure that the animation stops and is cleaned up after itself - # when the animated label is destroyed. Note that at this point we - # cannot manipulate the widget itself, as that has already died. - # Also note that this script is in double-quotes; this is always OK - # because image names are chosen automatically to be simple words. - bind $w " - after cancel \$animationCallbacks(%W) - unset animationCallbacks(%W) - rename $image {} - " -} - -# Make some widgets to contain the animations -labelframe $w.left -text "Scrolling Texts" -labelframe $w.right -text "GIF Image" -pack $w.left $w.right -side left -padx 10 -pady 10 -expand yes - -# This method of scrolling text looks far better with a fixed-width font -label $w.left.l1 -bd 4 -relief ridge -font fixedFont -label $w.left.l2 -bd 4 -relief groove -font fixedFont -label $w.left.l3 -bd 4 -relief flat -font fixedFont -width 18 -pack $w.left.l1 $w.left.l2 $w.left.l3 -side top -expand yes -padx 10 -pady 10 -anchor w -# Don't need to do very much with this label except turn off the border -label $w.right.l -bd 0 -pack $w.right.l -side top -expand yes -padx 10 -pady 10 - -# This is a base-64-encoded animated GIF file. -set tclPoweredData { - R0lGODlhKgBAAPQAAP//////zP//AP/MzP/Mmf/MAP+Zmf+ZZv+ZAMz//8zM - zMyZmcyZZsxmZsxmAMwzAJnMzJmZzJmZmZlmmZlmZplmM5kzM2aZzGZmzGZm - mWZmZmYzZmYzMzNmzDMzZgAzmSH+IE1hZGUgd2l0aCBHSU1QIGJ5IExARGVt - YWlsbHkuY29tACH5BAVkAAEALAAAAAAqAEAAAAX+YCCOZEkyTKM2jOm66yPP - dF03bx7YcuHIDkGBR7SZeIyhTID4FZ+4Es8nQyCe2EeUNJ0peY2s9mi7PhAM - ngEAMGRbUpvzSxskLh1J+Hkg134OdDIDEB+GHxtYMEQMTjMGEYeGFoomezaC - DZGSHFmLXTQKkh8eNQVpZ2afmDQGHaOYSoEyhhcklzVmMpuHnaZmDqiGJbg0 - qFqvh6UNAwB7VA+OwydEjgujkgrPNhbTI8dFvNgEYcHcHx0lB1kX2IYeA2G6 - NN0YfkXJ2BsAMuAzHB9cZMk3qoEbRzUACsRCUBK5JxsC3iMiKd8GN088SIyT - 0RAFSROyeEg38caDiB/+JEgqxsODrZJ1BkT0oHKSmI0ceQxo94HDpg0qsuDk - UmRAMgu8OgwQ+uIJgUMVeGXA+IQkzEeHGvD8cIGlDXsLiRjQ+EHroQhea7xY - 8IQBSgYYDi1IS+OFBCgaDMGVS3fGi5BPJpBaENdQ0EomKGD56IHwO39EXiSC - Ysgxor5+Xfgq0qByYUpiXmwuoredB2aYH4gWWda0B7SeNENpEJHC1ghi+pS4 - AJpIAwWvKPBi+8YEht5EriEqpFfMlhEdkBNpx0HUhwypx5T4IB1MBg/Ws2sn - wV3MSQOkzI8fUd48Aw3dOZto71x85hHtHijYv18Gf/3GqCdDCXHNoICBobSo - IqBqJLyCoH8JPrLgdh88CKCFD0CGmAiGYPgffwceZh6FC2ohIIklnkhehTNY - 4CIHHGzgwYw01ujBBhvAqKOLLq5AAk9kuSPkkKO40NB+h1gnypJIIvkBf09a - N5QIRz5p5ZJXJpmlIVhOGQA2TmIJZZhKKmmll2BqyWSXWUrZpQtpatlmk1c2 - KaWRHeTZEJF8SqLDn/hhsOeQgBbqAh6DGqronxeARUIIACH5BAUeAAAALAUA - LgAFAAUAAAUM4CeKz/OV5YmqaRkCACH5BAUeAAEALAUALgAKAAUAAAUUICCK - z/OdJVCaa7p+7aOWcDvTZwgAIfkEBR4AAQAsCwAuAAkABQAABRPgA4zP95zA - eZqoWqqpyqLkZ38hACH5BAUKAAEALAcALgANAA4AAAU7ICA+jwiUJEqeKau+ - r+vGaTmac63v/GP9HM7GQyx+jsgkkoRUHJ3Qx0cK/VQVTKtWwbVKn9suNunc - WkMAIfkEBQoAAAAsBwA3AAcABQAABRGgIHzk842j+Yjlt5KuO8JmCAAh+QQF - CgAAACwLADcABwAFAAAFEeAnfN9TjqP5oOWziq05lmUIACH5BAUKAAAALA8A - NwAHAAUAAAUPoPCJTymS3yiQj4qOcPmEACH5BAUKAAAALBMANwAHAAUAAAUR - oCB+z/MJX2o+I2miKimiawgAIfkEBQoAAAAsFwA3AAcABQAABRGgIHzfY47j - Q4qk+aHl+pZmCAAh+QQFCgAAACwbADcABwAFAAAFEaAgfs/zCV9qPiNJouo7 - ll8IACH5BAUKAAAALB8ANwADAAUAAAUIoCB8o0iWZggAOw== -} - -# Finally, set up the text scrolling animation -animateLabelText $w.left.l1 "* Slow Animation *" 300 -animateLabelText $w.left.l2 "* Fast Animation *" 80 -animateLabelText $w.left.l3 "This is a longer scrolling text in a widget that will not show the whole message at once. " 150 -animateLabelImage $w.right.l $tclPoweredData 100 diff --git a/mingw/lib/tk8.5/demos/aniwave.tcl b/mingw/lib/tk8.5/demos/aniwave.tcl deleted file mode 100644 index fd2b1ec53f..0000000000 --- a/mingw/lib/tk8.5/demos/aniwave.tcl +++ /dev/null @@ -1,106 +0,0 @@ -# aniwave.tcl -- -# -# This demonstration script illustrates how to adjust canvas item -# coordinates in a way that does something fairly similar to waveform -# display. -# -# RCS: @(#) $Id: aniwave.tcl,v 1.2 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .aniwave -catch {destroy $w} -toplevel $w -wm title $w "Animated Wave Demonstration" -wm iconname $w "aniwave" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "This demonstration contains a canvas widget with a line item inside it. The animation routines work by adjusting the coordinates list of the line; a trace on a variable is used so updates to the variable result in a change of position of the line." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -# Create a canvas large enough to hold the wave. In fact, the wave -# sticks off both sides of the canvas to prevent visual glitches. -pack [canvas $w.c -width 300 -height 200 -background black] -padx 10 -pady 10 -expand yes - -# Ensure that this this is an array -array set animationCallbacks {} - -# Creates a coordinates list of a wave. This code does a very sketchy -# job and relies on Tk's line smoothing to make things look better. -set waveCoords {} -for {set x -10} {$x<=300} {incr x 5} { - lappend waveCoords $x 100 -} -lappend waveCoords $x 0 [incr x 5] 200 - -# Create a smoothed line and arrange for its coordinates to be the -# contents of the variable waveCoords. -$w.c create line $waveCoords -tags wave -width 1 -fill green -smooth 1 -proc waveCoordsTracer {w args} { - global waveCoords - # Actual visual update will wait until we have finished - # processing; Tk does that for us automatically. - $w.c coords wave $waveCoords -} -trace add variable waveCoords write [list waveCoordsTracer $w] - -# Basic motion handler. Given what direction the wave is travelling -# in, it advances the y coordinates in the coordinate-list one step in -# that direction. -proc basicMotion {} { - global waveCoords direction - set oc $waveCoords - for {set i 1} {$i<[llength $oc]} {incr i 2} { - if {$direction eq "left"} { - lset waveCoords $i [lindex $oc \ - [expr {$i+2>[llength $oc] ? 1 : $i+2}]] - } else { - lset waveCoords $i \ - [lindex $oc [expr {$i-2<0 ? "end" : $i-2}]] - } - } -} - -# Oscillation handler. This detects whether to reverse the direction -# of the wave by checking to see if the peak of the wave has moved off -# the screen (whose size we know already.) -proc reverser {} { - global waveCoords direction - if {[lindex $waveCoords 1] < 10} { - set direction "right" - } elseif {[lindex $waveCoords end] < 10} { - set direction "left" - } -} - -# Main animation "loop". This calls the two procedures that handle the -# movement repeatedly by scheduling asynchronous calls back to itself -# using the [after] command. This procedure is the fundamental basis -# for all animated effect handling in Tk. -proc move {} { - basicMotion - reverser - - # Theoretically 100 frames-per-second (==10ms between frames) - global animationCallbacks - set animationCallbacks(simpleWave) [after 10 move] -} - -# Initialise our remaining animation variables -set direction "left" -set animateAfterCallback {} -# Arrange for the animation loop to stop when the canvas is deleted -bind $w.c { - after cancel $animationCallbacks(simpleWave) - unset animationCallbacks(simpleWave) -} -# Start the animation processing -move diff --git a/mingw/lib/tk8.5/demos/arrow.tcl b/mingw/lib/tk8.5/demos/arrow.tcl deleted file mode 100644 index 81374738e9..0000000000 --- a/mingw/lib/tk8.5/demos/arrow.tcl +++ /dev/null @@ -1,239 +0,0 @@ -# arrow.tcl -- -# -# This demonstration script creates a canvas widget that displays a -# large line with an arrowhead whose shape can be edited interactively. -# -# RCS: @(#) $Id: arrow.tcl,v 1.6 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -# arrowSetup -- -# This procedure regenerates all the text and graphics in the canvas -# window. It's called when the canvas is initially created, and also -# whenever any of the parameters of the arrow head are changed -# interactively. -# -# Arguments: -# c - Name of the canvas widget. - -proc arrowSetup c { - upvar #0 demo_arrowInfo v - - # Remember the current box, if there is one. - - set tags [$c gettags current] - if {$tags != ""} { - set cur [lindex $tags [lsearch -glob $tags box?]] - } else { - set cur "" - } - - # Create the arrow and outline. - - $c delete all - eval {$c create line $v(x1) $v(y) $v(x2) $v(y) -arrow last \ - -width [expr {10*$v(width)}] -arrowshape [list \ - [expr {10*$v(a)}] [expr {10*$v(b)}] [expr {10*$v(c)}]]} \ - $v(bigLineStyle) - set xtip [expr {$v(x2)-10*$v(b)}] - set deltaY [expr {10*$v(c)+5*$v(width)}] - $c create line $v(x2) $v(y) $xtip [expr {$v(y)+$deltaY}] \ - [expr {$v(x2)-10*$v(a)}] $v(y) $xtip [expr {$v(y)-$deltaY}] \ - $v(x2) $v(y) -width 2 -capstyle round -joinstyle round - - # Create the boxes for reshaping the line and arrowhead. - - eval {$c create rect [expr {$v(x2)-10*$v(a)-5}] [expr {$v(y)-5}] \ - [expr {$v(x2)-10*$v(a)+5}] [expr {$v(y)+5}] \ - -tags {box1 box}} $v(boxStyle) - eval {$c create rect [expr {$xtip-5}] [expr {$v(y)-$deltaY-5}] \ - [expr {$xtip+5}] [expr {$v(y)-$deltaY+5}] \ - -tags {box2 box}} $v(boxStyle) - eval {$c create rect [expr {$v(x1)-5}] [expr {$v(y)-5*$v(width)-5}] \ - [expr {$v(x1)+5}] [expr {$v(y)-5*$v(width)+5}] \ - -tags {box3 box}} $v(boxStyle) - if {$cur != ""} { - eval $c itemconfigure $cur $v(activeStyle) - } - - # Create three arrows in actual size with the same parameters - - $c create line [expr {$v(x2)+50}] 0 [expr {$v(x2)+50}] 1000 \ - -width 2 - set tmp [expr {$v(x2)+100}] - $c create line $tmp [expr {$v(y)-125}] $tmp [expr {$v(y)-75}] \ - -width $v(width) \ - -arrow both -arrowshape "$v(a) $v(b) $v(c)" - $c create line [expr {$tmp-25}] $v(y) [expr {$tmp+25}] $v(y) \ - -width $v(width) \ - -arrow both -arrowshape "$v(a) $v(b) $v(c)" - $c create line [expr {$tmp-25}] [expr {$v(y)+75}] [expr {$tmp+25}] \ - [expr {$v(y)+125}] -width $v(width) \ - -arrow both -arrowshape "$v(a) $v(b) $v(c)" - - # Create a bunch of other arrows and text items showing the - # current dimensions. - - set tmp [expr {$v(x2)+10}] - $c create line $tmp [expr {$v(y)-5*$v(width)}] \ - $tmp [expr {$v(y)-$deltaY}] \ - -arrow both -arrowshape $v(smallTips) - $c create text [expr {$v(x2)+15}] [expr {$v(y)-$deltaY+5*$v(c)}] \ - -text $v(c) -anchor w - set tmp [expr {$v(x1)-10}] - $c create line $tmp [expr {$v(y)-5*$v(width)}] \ - $tmp [expr {$v(y)+5*$v(width)}] \ - -arrow both -arrowshape $v(smallTips) - $c create text [expr {$v(x1)-15}] $v(y) -text $v(width) -anchor e - set tmp [expr {$v(y)+5*$v(width)+10*$v(c)+10}] - $c create line [expr {$v(x2)-10*$v(a)}] $tmp $v(x2) $tmp \ - -arrow both -arrowshape $v(smallTips) - $c create text [expr {$v(x2)-5*$v(a)}] [expr {$tmp+5}] \ - -text $v(a) -anchor n - set tmp [expr {$tmp+25}] - $c create line [expr {$v(x2)-10*$v(b)}] $tmp $v(x2) $tmp \ - -arrow both -arrowshape $v(smallTips) - $c create text [expr {$v(x2)-5*$v(b)}] [expr {$tmp+5}] \ - -text $v(b) -anchor n - - $c create text $v(x1) 310 -text "-width $v(width)" \ - -anchor w -font {Helvetica 18} - $c create text $v(x1) 330 -text "-arrowshape {$v(a) $v(b) $v(c)}" \ - -anchor w -font {Helvetica 18} - - incr v(count) -} - -set w .arrow -catch {destroy $w} -toplevel $w -wm title $w "Arrowhead Editor Demonstration" -wm iconname $w "arrow" -positionWindow $w -set c $w.c - -label $w.msg -font $font -wraplength 5i -justify left -text "This widget allows you to experiment with different widths and arrowhead shapes for lines in canvases. To change the line width or the shape of the arrowhead, drag any of the three boxes attached to the oversized arrow. The arrows on the right give examples at normal scale. The text at the bottom shows the configuration options as you'd enter them for a canvas line item." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -canvas $c -width 500 -height 350 -relief sunken -borderwidth 2 -pack $c -expand yes -fill both - -set demo_arrowInfo(a) 8 -set demo_arrowInfo(b) 10 -set demo_arrowInfo(c) 3 -set demo_arrowInfo(width) 2 -set demo_arrowInfo(motionProc) arrowMoveNull -set demo_arrowInfo(x1) 40 -set demo_arrowInfo(x2) 350 -set demo_arrowInfo(y) 150 -set demo_arrowInfo(smallTips) {5 5 2} -set demo_arrowInfo(count) 0 -if {[winfo depth $c] > 1} { - set demo_arrowInfo(bigLineStyle) "-fill SkyBlue1" - set demo_arrowInfo(boxStyle) "-fill {} -outline black -width 1" - set demo_arrowInfo(activeStyle) "-fill red -outline black -width 1" -} else { - # Main widget program sets variable tk_demoDirectory - set demo_arrowInfo(bigLineStyle) "-fill black \ - -stipple @[file join $tk_demoDirectory images grey.25]" - set demo_arrowInfo(boxStyle) "-fill {} -outline black -width 1" - set demo_arrowInfo(activeStyle) "-fill black -outline black -width 1" -} -arrowSetup $c -$c bind box "$c itemconfigure current $demo_arrowInfo(activeStyle)" -$c bind box "$c itemconfigure current $demo_arrowInfo(boxStyle)" -$c bind box " " -$c bind box " " -$c bind box1 <1> {set demo_arrowInfo(motionProc) arrowMove1} -$c bind box2 <1> {set demo_arrowInfo(motionProc) arrowMove2} -$c bind box3 <1> {set demo_arrowInfo(motionProc) arrowMove3} -$c bind box "\$demo_arrowInfo(motionProc) $c %x %y" -bind $c "arrowSetup $c" - -# arrowMove1 -- -# This procedure is called for each mouse motion event on box1 (the -# one at the vertex of the arrow). It updates the controlling parameters -# for the line and arrowhead. -# -# Arguments: -# c - The name of the canvas window. -# x, y - The coordinates of the mouse. - -proc arrowMove1 {c x y} { - upvar #0 demo_arrowInfo v - set newA [expr {($v(x2)+5-round([$c canvasx $x]))/10}] - if {$newA < 0} { - set newA 0 - } - if {$newA > 25} { - set newA 25 - } - if {$newA != $v(a)} { - $c move box1 [expr {10*($v(a)-$newA)}] 0 - set v(a) $newA - } -} - -# arrowMove2 -- -# This procedure is called for each mouse motion event on box2 (the -# one at the trailing tip of the arrowhead). It updates the controlling -# parameters for the line and arrowhead. -# -# Arguments: -# c - The name of the canvas window. -# x, y - The coordinates of the mouse. - -proc arrowMove2 {c x y} { - upvar #0 demo_arrowInfo v - set newB [expr {($v(x2)+5-round([$c canvasx $x]))/10}] - if {$newB < 0} { - set newB 0 - } - if {$newB > 25} { - set newB 25 - } - set newC [expr {($v(y)+5-round([$c canvasy $y])-5*$v(width))/10}] - if {$newC < 0} { - set newC 0 - } - if {$newC > 20} { - set newC 20 - } - if {($newB != $v(b)) || ($newC != $v(c))} { - $c move box2 [expr {10*($v(b)-$newB)}] [expr {10*($v(c)-$newC)}] - set v(b) $newB - set v(c) $newC - } -} - -# arrowMove3 -- -# This procedure is called for each mouse motion event on box3 (the -# one that controls the thickness of the line). It updates the -# controlling parameters for the line and arrowhead. -# -# Arguments: -# c - The name of the canvas window. -# x, y - The coordinates of the mouse. - -proc arrowMove3 {c x y} { - upvar #0 demo_arrowInfo v - set newWidth [expr {($v(y)+2-round([$c canvasy $y]))/5}] - if {$newWidth < 0} { - set newWidth 0 - } - if {$newWidth > 20} { - set newWidth 20 - } - if {$newWidth != $v(width)} { - $c move box3 0 [expr {5*($v(width)-$newWidth)}] - set v(width) $newWidth - } -} diff --git a/mingw/lib/tk8.5/demos/bind.tcl b/mingw/lib/tk8.5/demos/bind.tcl deleted file mode 100644 index 5e67834f47..0000000000 --- a/mingw/lib/tk8.5/demos/bind.tcl +++ /dev/null @@ -1,80 +0,0 @@ -# bind.tcl -- -# -# This demonstration script creates a text widget with bindings set -# up for hypertext-like effects. -# -# RCS: @(#) $Id: bind.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .bind -catch {destroy $w} -toplevel $w -wm title $w "Text Demonstration - Tag Bindings" -wm iconname $w "bind" -positionWindow $w - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -text $w.text -yscrollcommand "$w.scroll set" -setgrid true \ - -width 60 -height 24 -font $font -wrap word -scrollbar $w.scroll -command "$w.text yview" -pack $w.scroll -side right -fill y -pack $w.text -expand yes -fill both - -# Set up display styles. - -if {[winfo depth $w] > 1} { - set bold "-background #43ce80 -relief raised -borderwidth 1" - set normal "-background {} -relief flat" -} else { - set bold "-foreground white -background black" - set normal "-foreground {} -background {}" -} - -# Add text to widget. - -$w.text insert 0.0 {\ -The same tag mechanism that controls display styles in text widgets can also be used to associate Tcl commands with regions of text, so that mouse or keyboard actions on the text cause particular Tcl commands to be invoked. For example, in the text below the descriptions of the canvas demonstrations have been tagged. When you move the mouse over a demo description the description lights up, and when you press button 1 over a description then that particular demonstration is invoked. - -} -$w.text insert end \ -{1. Samples of all the different types of items that can be created in canvas widgets.} d1 -$w.text insert end \n\n -$w.text insert end \ -{2. A simple two-dimensional plot that allows you to adjust the positions of the data points.} d2 -$w.text insert end \n\n -$w.text insert end \ -{3. Anchoring and justification modes for text items.} d3 -$w.text insert end \n\n -$w.text insert end \ -{4. An editor for arrow-head shapes for line items.} d4 -$w.text insert end \n\n -$w.text insert end \ -{5. A ruler with facilities for editing tab stops.} d5 -$w.text insert end \n\n -$w.text insert end \ -{6. A grid that demonstrates how canvases can be scrolled.} d6 - -# Create bindings for tags. - -foreach tag {d1 d2 d3 d4 d5 d6} { - $w.text tag bind $tag "$w.text tag configure $tag $bold" - $w.text tag bind $tag "$w.text tag configure $tag $normal" -} -# Main widget program sets variable tk_demoDirectory -$w.text tag bind d1 <1> {source [file join $tk_demoDirectory items.tcl]} -$w.text tag bind d2 <1> {source [file join $tk_demoDirectory plot.tcl]} -$w.text tag bind d3 <1> {source [file join $tk_demoDirectory ctext.tcl]} -$w.text tag bind d4 <1> {source [file join $tk_demoDirectory arrow.tcl]} -$w.text tag bind d5 <1> {source [file join $tk_demoDirectory ruler.tcl]} -$w.text tag bind d6 <1> {source [file join $tk_demoDirectory cscroll.tcl]} - -$w.text mark set insert 0.0 -$w.text configure -state disabled diff --git a/mingw/lib/tk8.5/demos/bitmap.tcl b/mingw/lib/tk8.5/demos/bitmap.tcl deleted file mode 100644 index e439d092c4..0000000000 --- a/mingw/lib/tk8.5/demos/bitmap.tcl +++ /dev/null @@ -1,54 +0,0 @@ -# bitmap.tcl -- -# -# This demonstration script creates a toplevel window that displays -# all of Tk's built-in bitmaps. -# -# RCS: @(#) $Id: bitmap.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -# bitmapRow -- -# Create a row of bitmap items in a window. -# -# Arguments: -# w - The window that is to contain the row. -# args - The names of one or more bitmaps, which will be displayed -# in a new row across the bottom of w along with their -# names. - -proc bitmapRow {w args} { - frame $w - pack $w -side top -fill both - set i 0 - foreach bitmap $args { - frame $w.$i - pack $w.$i -side left -fill both -pady .25c -padx .25c - label $w.$i.bitmap -bitmap $bitmap - label $w.$i.label -text $bitmap -width 9 - pack $w.$i.label $w.$i.bitmap -side bottom - incr i - } -} - -set w .bitmap -catch {destroy $w} -toplevel $w -wm title $w "Bitmap Demonstration" -wm iconname $w "bitmap" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "This window displays all of Tk's built-in bitmaps, along with the names you can use for them in Tcl scripts." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.frame -bitmapRow $w.frame.0 error gray12 gray25 gray50 gray75 -bitmapRow $w.frame.1 hourglass info question questhead warning -pack $w.frame -side top -expand yes -fill both diff --git a/mingw/lib/tk8.5/demos/browse b/mingw/lib/tk8.5/demos/browse deleted file mode 100644 index ced8385d74..0000000000 --- a/mingw/lib/tk8.5/demos/browse +++ /dev/null @@ -1,68 +0,0 @@ -#!/bin/sh -# the next line restarts using wish \ -exec wish "$0" ${1+"$@"} - -# browse -- -# This script generates a directory browser, which lists the working -# directory and allows you to open files or subdirectories by -# double-clicking. -# -# RCS: @(#) $Id: browse,v 1.5 2003/09/30 14:54:29 dkf Exp $ - -package require Tk - -# Create a scrollbar on the right side of the main window and a listbox -# on the left side. - -scrollbar .scroll -command ".list yview" -pack .scroll -side right -fill y -listbox .list -yscroll ".scroll set" -relief sunken -width 20 -height 20 \ - -setgrid yes -pack .list -side left -fill both -expand yes -wm minsize . 1 1 - -# The procedure below is invoked to open a browser on a given file; if the -# file is a directory then another instance of this program is invoked; if -# the file is a regular file then the Mx editor is invoked to display -# the file. - -set browseScript [file join [pwd] $argv0] -proc browse {dir file} { - global env browseScript - if {[string compare $dir "."] != 0} {set file $dir/$file} - switch [file type $file] { - directory { - exec [info nameofexecutable] $browseScript $file & - } - file { - if {[info exists env(EDITOR)]} { - eval exec $env(EDITOR) $file & - } else { - exec xedit $file & - } - } - default { - puts stdout "\"$file\" isn't a directory or regular file" - } - } -} - -# Fill the listbox with a list of all the files in the directory. - -if {$argc>0} {set dir [lindex $argv 0]} else {set dir "."} -foreach i [lsort [glob * .* *.*]] { - if {[file type $i] eq "directory"} { - # Safe to do since it is still a directory. - append i / - } - .list insert end $i -} - -# Set up bindings for the browser. - -bind all {destroy .} -bind .list {foreach i [selection get] {browse $dir $i}} - -# Local Variables: -# mode: tcl -# End: diff --git a/mingw/lib/tk8.5/demos/button.tcl b/mingw/lib/tk8.5/demos/button.tcl deleted file mode 100644 index 84407f4457..0000000000 --- a/mingw/lib/tk8.5/demos/button.tcl +++ /dev/null @@ -1,49 +0,0 @@ -# button.tcl -- -# -# This demonstration script creates a toplevel window containing -# several button widgets. -# -# RCS: @(#) $Id: button.tcl,v 1.9 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .button -catch {destroy $w} -toplevel $w -wm title $w "Button Demonstration" -wm iconname $w "button" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "If you click on any of the four buttons below, the background of the button area will change to the color indicated in the button. You can press Tab to move among the buttons, then press Space to invoke the current button." -pack $w.msg -side top - -## See Code / Dismiss buttons -pack [addSeeDismiss $w.buttons $w] -side bottom -fill x - -proc colorrefresh {w col} { - $w configure -bg $col - if {[tk windowingsystem] eq "aqua"} { - # set highlightbackground of all buttons in $w - set l [list $w] - while {[llength $l]} { - set l [concat [lassign $l b] [winfo children $b]] - if {[winfo class $b] eq "Button"} { - $b configure -highlightbackground $col - } - } - } -} - -button $w.b1 -text "Peach Puff" -width 10 \ - -command [list colorrefresh $w PeachPuff1] -button $w.b2 -text "Light Blue" -width 10 \ - -command [list colorrefresh $w LightBlue1] -button $w.b3 -text "Sea Green" -width 10 \ - -command [list colorrefresh $w SeaGreen2] -button $w.b4 -text "Yellow" -width 10 \ - -command [list colorrefresh $w Yellow1] -pack $w.b1 $w.b2 $w.b3 $w.b4 -side top -expand yes -pady 2 diff --git a/mingw/lib/tk8.5/demos/check.tcl b/mingw/lib/tk8.5/demos/check.tcl deleted file mode 100644 index c9ca56a7b8..0000000000 --- a/mingw/lib/tk8.5/demos/check.tcl +++ /dev/null @@ -1,73 +0,0 @@ -# check.tcl -- -# -# This demonstration script creates a toplevel window containing -# several checkbuttons. -# -# RCS: @(#) $Id: check.tcl,v 1.7 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .check -catch {destroy $w} -toplevel $w -wm title $w "Checkbutton Demonstration" -wm iconname $w "check" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "Four checkbuttons are displayed below. If you click on a button, it will toggle the button's selection state and set a Tcl variable to a value indicating the state of the checkbutton. The first button also follows the state of the other three. If only some of the three are checked, the first button will display the tri-state mode. Click the \"See Variables\" button to see the current values of the variables." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w [list safety wipers brakes sober]] -pack $btns -side bottom -fill x - -checkbutton $w.b0 -text "Safety Check" -variable safety -relief flat \ - -onvalue "all" \ - -offvalue "none" \ - -tristatevalue "partial" -checkbutton $w.b1 -text "Wipers OK" -variable wipers -relief flat -checkbutton $w.b2 -text "Brakes OK" -variable brakes -relief flat -checkbutton $w.b3 -text "Driver Sober" -variable sober -relief flat -pack $w.b0 -side top -pady 2 -anchor w -pack $w.b1 $w.b2 $w.b3 -side top -pady 2 -anchor w -padx 15 - -## This code makes $w.b0 function as a tri-state button; it's not -## needed at all for just straight yes/no buttons. - -set in_check 0 -proc tristate_check {n1 n2 op} { - global safety wipers brakes sober in_check - if {$in_check} { - return - } - set in_check 1 - if {$n1 eq "safety"} { - if {$safety eq "none"} { - set wipers 0 - set brakes 0 - set sober 0 - } elseif {$safety eq "all"} { - set wipers 1 - set brakes 1 - set sober 1 - } - } else { - if {$wipers == 1 && $brakes == 1 && $sober == 1} { - set safety all - } elseif {$wipers == 1 || $brakes == 1 || $sober == 1} { - set safety partial - } else { - set safety none - } - } - set in_check 0 -} - -trace variable wipers w tristate_check -trace variable brakes w tristate_check -trace variable sober w tristate_check -trace variable safety w tristate_check diff --git a/mingw/lib/tk8.5/demos/clrpick.tcl b/mingw/lib/tk8.5/demos/clrpick.tcl deleted file mode 100644 index c20b98f5a3..0000000000 --- a/mingw/lib/tk8.5/demos/clrpick.tcl +++ /dev/null @@ -1,56 +0,0 @@ -# clrpick.tcl -- -# -# This demonstration script prompts the user to select a color. -# -# RCS: @(#) $Id: clrpick.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .clrpick -catch {destroy $w} -toplevel $w -wm title $w "Color Selection Dialog" -wm iconname $w "colors" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "Press the buttons below to choose the foreground and background colors for the widgets in this window." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -button $w.back -text "Set background color ..." \ - -command \ - "setColor $w $w.back background {-background -highlightbackground}" -button $w.fore -text "Set foreground color ..." \ - -command \ - "setColor $w $w.back foreground -foreground" - -pack $w.back $w.fore -side top -anchor c -pady 2m - -proc setColor {w button name options} { - grab $w - set initialColor [$button cget -$name] - set color [tk_chooseColor -title "Choose a $name color" -parent $w \ - -initialcolor $initialColor] - if {[string compare $color ""]} { - setColor_helper $w $options $color - } - grab release $w -} - -proc setColor_helper {w options color} { - foreach option $options { - catch { - $w config $option $color - } - } - foreach child [winfo children $w] { - setColor_helper $child $options $color - } -} diff --git a/mingw/lib/tk8.5/demos/colors.tcl b/mingw/lib/tk8.5/demos/colors.tcl deleted file mode 100644 index abd9fb0e69..0000000000 --- a/mingw/lib/tk8.5/demos/colors.tcl +++ /dev/null @@ -1,101 +0,0 @@ -# colors.tcl -- -# -# This demonstration script creates a listbox widget that displays -# many of the colors from the X color database. You can click on -# a color to change the application's palette. -# -# RCS: @(#) $Id: colors.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .colors -catch {destroy $w} -toplevel $w -wm title $w "Listbox Demonstration (colors)" -wm iconname $w "Listbox" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "A listbox containing several color names is displayed below, along with a scrollbar. You can scan the list either using the scrollbar or by dragging in the listbox window with button 2 pressed. If you double-click button 1 on a color, then the application's color palette will be set to match that color" -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.frame -borderwidth 10 -pack $w.frame -side top -expand yes -fill y - -scrollbar $w.frame.scroll -command "$w.frame.list yview" -listbox $w.frame.list -yscroll "$w.frame.scroll set" \ - -width 20 -height 16 -setgrid 1 -pack $w.frame.list $w.frame.scroll -side left -fill y -expand 1 - -bind $w.frame.list { - tk_setPalette [selection get] -} -$w.frame.list insert 0 gray60 gray70 gray80 gray85 gray90 gray95 \ - snow1 snow2 snow3 snow4 seashell1 seashell2 \ - seashell3 seashell4 AntiqueWhite1 AntiqueWhite2 AntiqueWhite3 \ - AntiqueWhite4 bisque1 bisque2 bisque3 bisque4 PeachPuff1 \ - PeachPuff2 PeachPuff3 PeachPuff4 NavajoWhite1 NavajoWhite2 \ - NavajoWhite3 NavajoWhite4 LemonChiffon1 LemonChiffon2 \ - LemonChiffon3 LemonChiffon4 cornsilk1 cornsilk2 cornsilk3 \ - cornsilk4 ivory1 ivory2 ivory3 ivory4 honeydew1 honeydew2 \ - honeydew3 honeydew4 LavenderBlush1 LavenderBlush2 \ - LavenderBlush3 LavenderBlush4 MistyRose1 MistyRose2 \ - MistyRose3 MistyRose4 azure1 azure2 azure3 azure4 \ - SlateBlue1 SlateBlue2 SlateBlue3 SlateBlue4 RoyalBlue1 \ - RoyalBlue2 RoyalBlue3 RoyalBlue4 blue1 blue2 blue3 blue4 \ - DodgerBlue1 DodgerBlue2 DodgerBlue3 DodgerBlue4 SteelBlue1 \ - SteelBlue2 SteelBlue3 SteelBlue4 DeepSkyBlue1 DeepSkyBlue2 \ - DeepSkyBlue3 DeepSkyBlue4 SkyBlue1 SkyBlue2 SkyBlue3 \ - SkyBlue4 LightSkyBlue1 LightSkyBlue2 LightSkyBlue3 \ - LightSkyBlue4 SlateGray1 SlateGray2 SlateGray3 SlateGray4 \ - LightSteelBlue1 LightSteelBlue2 LightSteelBlue3 \ - LightSteelBlue4 LightBlue1 LightBlue2 LightBlue3 \ - LightBlue4 LightCyan1 LightCyan2 LightCyan3 LightCyan4 \ - PaleTurquoise1 PaleTurquoise2 PaleTurquoise3 PaleTurquoise4 \ - CadetBlue1 CadetBlue2 CadetBlue3 CadetBlue4 turquoise1 \ - turquoise2 turquoise3 turquoise4 cyan1 cyan2 cyan3 cyan4 \ - DarkSlateGray1 DarkSlateGray2 DarkSlateGray3 \ - DarkSlateGray4 aquamarine1 aquamarine2 aquamarine3 \ - aquamarine4 DarkSeaGreen1 DarkSeaGreen2 DarkSeaGreen3 \ - DarkSeaGreen4 SeaGreen1 SeaGreen2 SeaGreen3 SeaGreen4 \ - PaleGreen1 PaleGreen2 PaleGreen3 PaleGreen4 SpringGreen1 \ - SpringGreen2 SpringGreen3 SpringGreen4 green1 green2 \ - green3 green4 chartreuse1 chartreuse2 chartreuse3 \ - chartreuse4 OliveDrab1 OliveDrab2 OliveDrab3 OliveDrab4 \ - DarkOliveGreen1 DarkOliveGreen2 DarkOliveGreen3 \ - DarkOliveGreen4 khaki1 khaki2 khaki3 khaki4 \ - LightGoldenrod1 LightGoldenrod2 LightGoldenrod3 \ - LightGoldenrod4 LightYellow1 LightYellow2 LightYellow3 \ - LightYellow4 yellow1 yellow2 yellow3 yellow4 gold1 gold2 \ - gold3 gold4 goldenrod1 goldenrod2 goldenrod3 goldenrod4 \ - DarkGoldenrod1 DarkGoldenrod2 DarkGoldenrod3 DarkGoldenrod4 \ - RosyBrown1 RosyBrown2 RosyBrown3 RosyBrown4 IndianRed1 \ - IndianRed2 IndianRed3 IndianRed4 sienna1 sienna2 sienna3 \ - sienna4 burlywood1 burlywood2 burlywood3 burlywood4 wheat1 \ - wheat2 wheat3 wheat4 tan1 tan2 tan3 tan4 chocolate1 \ - chocolate2 chocolate3 chocolate4 firebrick1 firebrick2 \ - firebrick3 firebrick4 brown1 brown2 brown3 brown4 salmon1 \ - salmon2 salmon3 salmon4 LightSalmon1 LightSalmon2 \ - LightSalmon3 LightSalmon4 orange1 orange2 orange3 orange4 \ - DarkOrange1 DarkOrange2 DarkOrange3 DarkOrange4 coral1 \ - coral2 coral3 coral4 tomato1 tomato2 tomato3 tomato4 \ - OrangeRed1 OrangeRed2 OrangeRed3 OrangeRed4 red1 red2 red3 \ - red4 DeepPink1 DeepPink2 DeepPink3 DeepPink4 HotPink1 \ - HotPink2 HotPink3 HotPink4 pink1 pink2 pink3 pink4 \ - LightPink1 LightPink2 LightPink3 LightPink4 PaleVioletRed1 \ - PaleVioletRed2 PaleVioletRed3 PaleVioletRed4 maroon1 \ - maroon2 maroon3 maroon4 VioletRed1 VioletRed2 VioletRed3 \ - VioletRed4 magenta1 magenta2 magenta3 magenta4 orchid1 \ - orchid2 orchid3 orchid4 plum1 plum2 plum3 plum4 \ - MediumOrchid1 MediumOrchid2 MediumOrchid3 MediumOrchid4 \ - DarkOrchid1 DarkOrchid2 DarkOrchid3 DarkOrchid4 purple1 \ - purple2 purple3 purple4 MediumPurple1 MediumPurple2 \ - MediumPurple3 MediumPurple4 thistle1 thistle2 thistle3 \ - thistle4 diff --git a/mingw/lib/tk8.5/demos/combo.tcl b/mingw/lib/tk8.5/demos/combo.tcl deleted file mode 100644 index 521e37b07d..0000000000 --- a/mingw/lib/tk8.5/demos/combo.tcl +++ /dev/null @@ -1,64 +0,0 @@ -# combo.tcl -- -# -# This demonstration script creates several combobox widgets. -# -# RCS: @(#) $Id: combo.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk -package require Ttk - -set w .combo -catch {destroy $w} -toplevel $w -wm title $w "Combobox Demonstration" -wm iconname $w "combo" -positionWindow $w - -ttk::label $w.msg -font $font -wraplength 5i -justify left -text "Three different\ - combo-boxes are displayed below. You can add characters to the first\ - one by pointing, clicking and typing, just as with an entry; pressing\ - Return will cause the current value to be added to the list that is\ - selectable from the drop-down list, and you can choose other values\ - by pressing the Down key, using the arrow keys to pick another one,\ - and pressing Return again. The second combo-box is fixed to a\ - particular value, and cannot be modified at all. The third one only\ - allows you to select values from its drop-down list of Australian\ - cities." -pack $w.msg -side top -fill x - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w {firstValue secondValue ozCity}] -pack $btns -side bottom -fill x - -ttk::frame $w.f -pack $w.f -fill both -expand 1 -set w $w.f - -set australianCities { - Canberra Sydney Melbourne Perth Adelaide Brisbane - Hobart Darwin "Alice Springs" -} -set secondValue unchangable -set ozCity Sydney - -ttk::labelframe $w.c1 -text "Fully Editable" -ttk::combobox $w.c1.c -textvariable firstValue -ttk::labelframe $w.c2 -text Disabled -ttk::combobox $w.c2.c -textvariable secondValue -state disabled -ttk::labelframe $w.c3 -text "Defined List Only" -ttk::combobox $w.c3.c -textvariable ozCity -state readonly \ - -values $australianCities -bind $w.c1.c { - if {[%W get] ni [%W cget -values]} { - %W configure -values [concat [%W cget -values] [list [%W get]]] - } -} - -pack $w.c1 $w.c2 $w.c3 -side top -pady 5 -padx 10 -pack $w.c1.c -pady 5 -padx 10 -pack $w.c2.c -pady 5 -padx 10 -pack $w.c3.c -pady 5 -padx 10 diff --git a/mingw/lib/tk8.5/demos/cscroll.tcl b/mingw/lib/tk8.5/demos/cscroll.tcl deleted file mode 100644 index 7ad390a272..0000000000 --- a/mingw/lib/tk8.5/demos/cscroll.tcl +++ /dev/null @@ -1,110 +0,0 @@ -# cscroll.tcl -- -# -# This demonstration script creates a simple canvas that can be -# scrolled in two dimensions. -# -# RCS: @(#) $Id: cscroll.tcl,v 1.6 2005/12/13 03:44:34 das Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .cscroll -catch {destroy $w} -toplevel $w -wm title $w "Scrollable Canvas Demonstration" -wm iconname $w "cscroll" -positionWindow $w -set c $w.c - -label $w.msg -font $font -wraplength 4i -justify left -text "This window displays a canvas widget that can be scrolled either using the scrollbars or by dragging with button 2 in the canvas. If you click button 1 on one of the rectangles, its indices will be printed on stdout." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.grid -scrollbar $w.hscroll -orient horiz -command "$c xview" -scrollbar $w.vscroll -command "$c yview" -canvas $c -relief sunken -borderwidth 2 -scrollregion {-11c -11c 50c 20c} \ - -xscrollcommand "$w.hscroll set" \ - -yscrollcommand "$w.vscroll set" -pack $w.grid -expand yes -fill both -padx 1 -pady 1 -grid rowconfig $w.grid 0 -weight 1 -minsize 0 -grid columnconfig $w.grid 0 -weight 1 -minsize 0 - -grid $c -padx 1 -in $w.grid -pady 1 \ - -row 0 -column 0 -rowspan 1 -columnspan 1 -sticky news -grid $w.vscroll -in $w.grid -padx 1 -pady 1 \ - -row 0 -column 1 -rowspan 1 -columnspan 1 -sticky news -grid $w.hscroll -in $w.grid -padx 1 -pady 1 \ - -row 1 -column 0 -rowspan 1 -columnspan 1 -sticky news - - -set bg [lindex [$c config -bg] 4] -for {set i 0} {$i < 20} {incr i} { - set x [expr {-10 + 3*$i}] - for {set j 0; set y -10} {$j < 10} {incr j; incr y 3} { - $c create rect ${x}c ${y}c [expr {$x+2}]c [expr {$y+2}]c \ - -outline black -fill $bg -tags rect - $c create text [expr {$x+1}]c [expr {$y+1}]c -text "$i,$j" \ - -anchor center -tags text - } -} - -$c bind all "scrollEnter $c" -$c bind all "scrollLeave $c" -$c bind all <1> "scrollButton $c" -bind $c <2> "$c scan mark %x %y" -bind $c "$c scan dragto %x %y" -if {[tk windowingsystem] eq "aqua"} { - bind $c { - %W yview scroll [expr {- (%D)}] units - } - bind $c { - %W yview scroll [expr {-10 * (%D)}] units - } - bind $c { - %W xview scroll [expr {- (%D)}] units - } - bind $c { - %W xview scroll [expr {-10 * (%D)}] units - } -} - -proc scrollEnter canvas { - global oldFill - set id [$canvas find withtag current] - if {[lsearch [$canvas gettags current] text] >= 0} { - set id [expr {$id-1}] - } - set oldFill [lindex [$canvas itemconfig $id -fill] 4] - if {[winfo depth $canvas] > 1} { - $canvas itemconfigure $id -fill SeaGreen1 - } else { - $canvas itemconfigure $id -fill black - $canvas itemconfigure [expr {$id+1}] -fill white - } -} - -proc scrollLeave canvas { - global oldFill - set id [$canvas find withtag current] - if {[lsearch [$canvas gettags current] text] >= 0} { - set id [expr {$id-1}] - } - $canvas itemconfigure $id -fill $oldFill - $canvas itemconfigure [expr {$id+1}] -fill black -} - -proc scrollButton canvas { - global oldFill - set id [$canvas find withtag current] - if {[lsearch [$canvas gettags current] text] < 0} { - set id [expr {$id+1}] - } - puts stdout "You buttoned at [lindex [$canvas itemconf $id -text] 4]" -} diff --git a/mingw/lib/tk8.5/demos/ctext.tcl b/mingw/lib/tk8.5/demos/ctext.tcl deleted file mode 100644 index b65635b782..0000000000 --- a/mingw/lib/tk8.5/demos/ctext.tcl +++ /dev/null @@ -1,147 +0,0 @@ -# ctext.tcl -- -# -# This demonstration script creates a canvas widget with a text -# item that can be edited and reconfigured in various ways. -# -# RCS: @(#) $Id: ctext.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .ctext -catch {destroy $w} -toplevel $w -wm title $w "Canvas Text Demonstration" -wm iconname $w "Text" -positionWindow $w -set c $w.c - -label $w.msg -font $font -wraplength 5i -justify left -text "This window displays a string of text to demonstrate the text facilities of canvas widgets. You can click in the boxes to adjust the position of the text relative to its positioning point or change its justification. The text also supports the following simple bindings for editing: - 1. You can point, click, and type. - 2. You can also select with button 1. - 3. You can copy the selection to the mouse position with button 2. - 4. Backspace and Control+h delete the selection if there is one; - otherwise they delete the character just before the insertion cursor. - 5. Delete deletes the selection if there is one; otherwise it deletes - the character just after the insertion cursor." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -canvas $c -relief flat -borderwidth 0 -width 500 -height 350 -pack $w.c -side top -expand yes -fill both - -set textFont {Helvetica 24} - -$c create rectangle 245 195 255 205 -outline black -fill red - -# First, create the text item and give it bindings so it can be edited. - -$c addtag text withtag [$c create text 250 200 -text "This is just a string of text to demonstrate the text facilities of canvas widgets. Bindings have been been defined to support editing (see above)." -width 440 -anchor n -font {Helvetica 24} -justify left] -$c bind text <1> "textB1Press $c %x %y" -$c bind text "textB1Move $c %x %y" -$c bind text "$c select adjust current @%x,%y" -$c bind text "textB1Move $c %x %y" -$c bind text "textInsert $c %A" -$c bind text "textInsert $c \\n" -$c bind text "textBs $c" -$c bind text "textBs $c" -$c bind text "textDel $c" -$c bind text <2> "textPaste $c @%x,%y" - -# Next, create some items that allow the text's anchor position -# to be edited. - -proc mkTextConfig {w x y option value color} { - set item [$w create rect $x $y [expr {$x+30}] [expr {$y+30}] \ - -outline black -fill $color -width 1] - $w bind $item <1> "$w itemconf text $option $value" - $w addtag config withtag $item -} - -set x 50 -set y 50 -set color LightSkyBlue1 -mkTextConfig $c $x $y -anchor se $color -mkTextConfig $c [expr {$x+30}] [expr {$y }] -anchor s $color -mkTextConfig $c [expr {$x+60}] [expr {$y }] -anchor sw $color -mkTextConfig $c [expr {$x }] [expr {$y+30}] -anchor e $color -mkTextConfig $c [expr {$x+30}] [expr {$y+30}] -anchor center $color -mkTextConfig $c [expr {$x+60}] [expr {$y+30}] -anchor w $color -mkTextConfig $c [expr {$x }] [expr {$y+60}] -anchor ne $color -mkTextConfig $c [expr {$x+30}] [expr {$y+60}] -anchor n $color -mkTextConfig $c [expr {$x+60}] [expr {$y+60}] -anchor nw $color -set item [$c create rect \ - [expr {$x+40}] [expr {$y+40}] [expr {$x+50}] [expr {$y+50}] \ - -outline black -fill red] -$c bind $item <1> "$c itemconf text -anchor center" -$c create text [expr {$x+45}] [expr {$y-5}] \ - -text {Text Position} -anchor s -font {Times 24} -fill brown - -# Lastly, create some items that allow the text's justification to be -# changed. - -set x 350 -set y 50 -set color SeaGreen2 -mkTextConfig $c $x $y -justify left $color -mkTextConfig $c [expr {$x+30}] $y -justify center $color -mkTextConfig $c [expr {$x+60}] $y -justify right $color -$c create text [expr {$x+45}] [expr {$y-5}] \ - -text {Justification} -anchor s -font {Times 24} -fill brown - -$c bind config "textEnter $c" -$c bind config "$c itemconf current -fill \$textConfigFill" - -set textConfigFill {} - -proc textEnter {w} { - global textConfigFill - set textConfigFill [lindex [$w itemconfig current -fill] 4] - $w itemconfig current -fill black -} - -proc textInsert {w string} { - if {$string == ""} { - return - } - catch {$w dchars text sel.first sel.last} - $w insert text insert $string -} - -proc textPaste {w pos} { - catch { - $w insert text $pos [selection get] - } -} - -proc textB1Press {w x y} { - $w icursor current @$x,$y - $w focus current - focus $w - $w select from current @$x,$y -} - -proc textB1Move {w x y} { - $w select to current @$x,$y -} - -proc textBs {w} { - if {![catch {$w dchars text sel.first sel.last}]} { - return - } - set char [expr {[$w index text insert] - 1}] - if {$char >= 0} {$w dchar text $char} -} - -proc textDel {w} { - if {![catch {$w dchars text sel.first sel.last}]} { - return - } - $w dchars text insert -} diff --git a/mingw/lib/tk8.5/demos/dialog1.tcl b/mingw/lib/tk8.5/demos/dialog1.tcl deleted file mode 100644 index e76bab37c9..0000000000 --- a/mingw/lib/tk8.5/demos/dialog1.tcl +++ /dev/null @@ -1,15 +0,0 @@ -# dialog1.tcl -- -# -# This demonstration script creates a dialog box with a local grab. -# -# RCS: @(#) $Id: dialog1.tcl,v 1.2 1998/09/14 18:23:27 stanton Exp $ - -after idle {.dialog1.msg configure -wraplength 4i} -set i [tk_dialog .dialog1 "Dialog with local grab" {This is a modal dialog box. It uses Tk's "grab" command to create a "local grab" on the dialog box. The grab prevents any pointer-related events from getting to any other windows in the application until you have answered the dialog by invoking one of the buttons below. However, you can still interact with other applications.} \ -info 0 OK Cancel {Show Code}] - -switch $i { - 0 {puts "You pressed OK"} - 1 {puts "You pressed Cancel"} - 2 {showCode .dialog1} -} diff --git a/mingw/lib/tk8.5/demos/dialog2.tcl b/mingw/lib/tk8.5/demos/dialog2.tcl deleted file mode 100644 index 502ac8b218..0000000000 --- a/mingw/lib/tk8.5/demos/dialog2.tcl +++ /dev/null @@ -1,19 +0,0 @@ -# dialog2.tcl -- -# -# This demonstration script creates a dialog box with a global grab. -# -# RCS: @(#) $Id: dialog2.tcl,v 1.3 2001/11/05 10:13:53 dkf Exp $ - -after idle { - .dialog2.msg configure -wraplength 4i -} -after 100 { - grab -global .dialog2 -} -set i [tk_dialog .dialog2 "Dialog with global grab" {This dialog box uses a global grab, so it prevents you from interacting with anything on your display until you invoke one of the buttons below. Global grabs are almost always a bad idea; don't use them unless you're truly desperate.} warning 0 OK Cancel {Show Code}] - -switch $i { - 0 {puts "You pressed OK"} - 1 {puts "You pressed Cancel"} - 2 {showCode .dialog2} -} diff --git a/mingw/lib/tk8.5/demos/en.msg b/mingw/lib/tk8.5/demos/en.msg deleted file mode 100644 index d4783fe7fd..0000000000 --- a/mingw/lib/tk8.5/demos/en.msg +++ /dev/null @@ -1,97 +0,0 @@ -::msgcat::mcset en "Widget Demonstration" -::msgcat::mcset en "tkWidgetDemo" -::msgcat::mcset en "&File" -::msgcat::mcset en "About..." -::msgcat::mcset en "&About..." -::msgcat::mcset en "" -::msgcat::mcset en "&Quit" -::msgcat::mcset en "Meta+Q" ;# Displayed hotkey -::msgcat::mcset en "Meta-q" ;# Actual binding sequence -::msgcat::mcset en "Ctrl+Q" ;# Displayed hotkey -::msgcat::mcset en "Control-q" ;# Actual binding sequence -::msgcat::mcset en "Variable values" -::msgcat::mcset en "Variable values:" -::msgcat::mcset en "OK" -::msgcat::mcset en "Run the \"%s\" sample program" -::msgcat::mcset en "Dismiss" -::msgcat::mcset en "Rerun Demo" -::msgcat::mcset en "Demo code: %s" -::msgcat::mcset en "About Widget Demo" -::msgcat::mcset en "Tk widget demonstration application" -::msgcat::mcset en "Copyright (c) %s" "Copyright \u00a9 %s" -::msgcat::mcset en " - @@title - Tk Widget Demonstrations - @@newline - @@normal - @@newline - - This application provides a front end for several short scripts - that demonstrate what you can do with Tk widgets. Each of the - numbered lines below describes a demonstration; you can click on - it to invoke the demonstration. Once the demonstration window - appears, you can click the - @@bold - See Code - @@normal - button to see the Tcl/Tk code that created the demonstration. If - you wish, you can edit the code and click the - @@bold - Rerun Demo - @@normal - button in the code window to reinvoke the demonstration with the - modified code. - @@newline -" -::msgcat::mcset en "Labels, buttons, checkbuttons, and radiobuttons" -::msgcat::mcset en "Labels (text and bitmaps)" -::msgcat::mcset en "Labels and UNICODE text" -::msgcat::mcset en "Buttons" -::msgcat::mcset en "Check-buttons (select any of a group)" -::msgcat::mcset en "Radio-buttons (select one of a group)" -::msgcat::mcset en "A 15-puzzle game made out of buttons" -::msgcat::mcset en "Iconic buttons that use bitmaps" -::msgcat::mcset en "Two labels displaying images" -::msgcat::mcset en "A simple user interface for viewing images" -::msgcat::mcset en "Labelled frames" -::msgcat::mcset en "Listboxes" -::msgcat::mcset en "The 50 states" -::msgcat::mcset en "Colors: change the color scheme for the application" -::msgcat::mcset en "A collection of famous and infamous sayings" -::msgcat::mcset en "Entries and Spin-boxes" -::msgcat::mcset en "Entries without scrollbars" -::msgcat::mcset en "Entries with scrollbars" -::msgcat::mcset en "Validated entries and password fields" -::msgcat::mcset en "Spin-boxes" -::msgcat::mcset en "Simple Rolodex-like form" -::msgcat::mcset en "Text" -::msgcat::mcset en "Basic editable text" -::msgcat::mcset en "Text display styles" -::msgcat::mcset en "Hypertext (tag bindings)" -::msgcat::mcset en "A text widget with embedded windows" -::msgcat::mcset en "A search tool built with a text widget" -::msgcat::mcset en "Canvases" -::msgcat::mcset en "The canvas item types" -::msgcat::mcset en "A simple 2-D plot" -::msgcat::mcset en "Text items in canvases" -::msgcat::mcset en "An editor for arrowheads on canvas lines" -::msgcat::mcset en "A ruler with adjustable tab stops" -::msgcat::mcset en "A building floor plan" -::msgcat::mcset en "A simple scrollable canvas" -::msgcat::mcset en "Scales" -::msgcat::mcset en "Horizontal scale" -::msgcat::mcset en "Vertical scale" -::msgcat::mcset en "Paned Windows" -::msgcat::mcset en "Horizontal paned window" -::msgcat::mcset en "Vertical paned window" -::msgcat::mcset en "Menus" -::msgcat::mcset en "Menus and cascades (sub-menus)" -::msgcat::mcset en "Menu-buttons" -::msgcat::mcset en "Common Dialogs" -::msgcat::mcset en "Message boxes" -::msgcat::mcset en "File selection dialog" -::msgcat::mcset en "Color picker" -::msgcat::mcset en "Miscellaneous" -::msgcat::mcset en "The built-in bitmaps" -::msgcat::mcset en "A dialog box with a local grab" -::msgcat::mcset en "A dialog box with a global grab" diff --git a/mingw/lib/tk8.5/demos/entry1.tcl b/mingw/lib/tk8.5/demos/entry1.tcl deleted file mode 100644 index f7faf699b5..0000000000 --- a/mingw/lib/tk8.5/demos/entry1.tcl +++ /dev/null @@ -1,36 +0,0 @@ -# entry1.tcl -- -# -# This demonstration script creates several entry widgets without -# scrollbars. -# -# RCS: @(#) $Id: entry1.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .entry1 -catch {destroy $w} -toplevel $w -wm title $w "Entry Demonstration (no scrollbars)" -wm iconname $w "entry1" -positionWindow $w - -label $w.msg -font $font -wraplength 5i -justify left -text "Three different entries are displayed below. You can add characters by pointing, clicking and typing. The normal Motif editing characters are supported, along with many Emacs bindings. For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor. For entries that are too large to fit in the window all at once, you can scan through the entries by dragging with mouse button2 pressed." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -entry $w.e1 -entry $w.e2 -entry $w.e3 -pack $w.e1 $w.e2 $w.e3 -side top -pady 5 -padx 10 -fill x - -$w.e1 insert 0 "Initial value" -$w.e2 insert end "This entry contains a long value, much too long " -$w.e2 insert end "to fit in the window at one time, so long in fact " -$w.e2 insert end "that you'll have to scan or scroll to see the end." diff --git a/mingw/lib/tk8.5/demos/entry2.tcl b/mingw/lib/tk8.5/demos/entry2.tcl deleted file mode 100644 index 3459591139..0000000000 --- a/mingw/lib/tk8.5/demos/entry2.tcl +++ /dev/null @@ -1,48 +0,0 @@ -# entry2.tcl -- -# -# This demonstration script is the same as the entry1.tcl script -# except that it creates scrollbars for the entries. -# -# RCS: @(#) $Id: entry2.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .entry2 -catch {destroy $w} -toplevel $w -wm title $w "Entry Demonstration (with scrollbars)" -wm iconname $w "entry2" -positionWindow $w - -label $w.msg -font $font -wraplength 5i -justify left -text "Three different entries are displayed below, with a scrollbar for each entry. You can add characters by pointing, clicking and typing. The normal Motif editing characters are supported, along with many Emacs bindings. For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor. For entries that are too large to fit in the window all at once, you can scan through the entries with the scrollbars, or by dragging with mouse button2 pressed." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.frame -borderwidth 10 -pack $w.frame -side top -fill x -expand 1 - -entry $w.frame.e1 -xscrollcommand "$w.frame.s1 set" -scrollbar $w.frame.s1 -relief sunken -orient horiz -command \ - "$w.frame.e1 xview" -frame $w.frame.spacer1 -width 20 -height 10 -entry $w.frame.e2 -xscrollcommand "$w.frame.s2 set" -scrollbar $w.frame.s2 -relief sunken -orient horiz -command \ - "$w.frame.e2 xview" -frame $w.frame.spacer2 -width 20 -height 10 -entry $w.frame.e3 -xscrollcommand "$w.frame.s3 set" -scrollbar $w.frame.s3 -relief sunken -orient horiz -command \ - "$w.frame.e3 xview" -pack $w.frame.e1 $w.frame.s1 $w.frame.spacer1 $w.frame.e2 $w.frame.s2 \ - $w.frame.spacer2 $w.frame.e3 $w.frame.s3 -side top -fill x - -$w.frame.e1 insert 0 "Initial value" -$w.frame.e2 insert end "This entry contains a long value, much too long " -$w.frame.e2 insert end "to fit in the window at one time, so long in fact " -$w.frame.e2 insert end "that you'll have to scan or scroll to see the end." diff --git a/mingw/lib/tk8.5/demos/entry3.tcl b/mingw/lib/tk8.5/demos/entry3.tcl deleted file mode 100644 index 2e54b05bd9..0000000000 --- a/mingw/lib/tk8.5/demos/entry3.tcl +++ /dev/null @@ -1,187 +0,0 @@ -# entry3.tcl -- -# -# This demonstration script creates several entry widgets whose -# permitted input is constrained in some way. It also shows off a -# password entry. -# -# RCS: @(#) $Id: entry3.tcl,v 1.7 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .entry3 -catch {destroy $w} -toplevel $w -wm title $w "Constrained Entry Demonstration" -wm iconname $w "entry3" -positionWindow $w - -label $w.msg -font $font -wraplength 5i -justify left -text "Four different\ - entries are displayed below. You can add characters by pointing,\ - clicking and typing, though each is constrained in what it will\ - accept. The first only accepts 32-bit integers or the empty string\ - (checking when focus leaves it) and will flash to indicate any\ - problem. The second only accepts strings with fewer than ten\ - characters and sounds the bell when an attempt to go over the limit\ - is made. The third accepts US phone numbers, mapping letters to\ - their digit equivalent and sounding the bell on encountering an\ - illegal character or if trying to type over a character that is not\ - a digit. The fourth is a password field that accepts up to eight\ - characters (silently ignoring further ones), and displaying them as\ - asterisk characters." - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -# focusAndFlash -- -# Error handler for entry widgets that forces the focus onto the -# widget and makes the widget flash by exchanging the foreground and -# background colours at intervals of 200ms (i.e. at approximately -# 2.5Hz). -# -# Arguments: -# W - Name of entry widget to flash -# fg - Initial foreground colour -# bg - Initial background colour -# count - Counter to control the number of times flashed - -proc focusAndFlash {W fg bg {count 9}} { - focus -force $W - if {$count<1} { - $W configure -foreground $fg -background $bg - } else { - if {$count%2} { - $W configure -foreground $bg -background $fg - } else { - $W configure -foreground $fg -background $bg - } - after 200 [list focusAndFlash $W $fg $bg [expr {$count-1}]] - } -} - -labelframe $w.l1 -text "Integer Entry" -# Alternatively try using {string is digit} for arbitrary length numbers, -# and not just 32-bit ones. -entry $w.l1.e -validate focus -vcmd {string is integer %P} -$w.l1.e configure -invalidcommand \ - "focusAndFlash %W [$w.l1.e cget -fg] [$w.l1.e cget -bg]" -pack $w.l1.e -fill x -expand 1 -padx 1m -pady 1m - -labelframe $w.l2 -text "Length-Constrained Entry" -entry $w.l2.e -validate key -invcmd bell -vcmd {expr {[string length %P]<10}} -pack $w.l2.e -fill x -expand 1 -padx 1m -pady 1m - -### PHONE NUMBER ENTRY ### -# Note that the source to this is quite a bit longer as the behaviour -# demonstrated is a lot more ambitious than with the others. - -# Initial content for the third entry widget -set entry3content "1-(000)-000-0000" -# Mapping from alphabetic characters to numbers. This is probably -# wrong, but it is the only mapping I have; the UK doesn't really go -# for associating letters with digits for some reason. -set phoneNumberMap {} -foreach {chars digit} {abc 2 def 3 ghi 4 jkl 5 mno 6 pqrs 7 tuv 8 wxyz 9} { - foreach char [split $chars ""] { - lappend phoneNumberMap $char $digit [string toupper $char] $digit - } -} - -# validatePhoneChange -- -# Checks that the replacement (mapped to a digit) of the given -# character in an entry widget at the given position will leave a -# valid phone number in the widget. -# -# W - The entry widget to validate -# vmode - The widget's validation mode -# idx - The index where replacement is to occur -# char - The character (or string, though that will always be -# refused) to be overwritten at that point. - -proc validatePhoneChange {W vmode idx char} { - global phoneNumberMap entry3content - if {$idx == -1} {return 1} - after idle [list $W configure -validate $vmode -invcmd bell] - if { - !($idx<3 || $idx==6 || $idx==7 || $idx==11 || $idx>15) && - [string match {[0-9A-Za-z]} $char] - } then { - $W delete $idx - $W insert $idx [string map $phoneNumberMap $char] - after idle [list phoneSkipRight $W -1] - return 1 - } - return 0 -} - -# phoneSkipLeft -- -# Skip over fixed characters in a phone-number string when moving left. -# -# Arguments: -# W - The entry widget containing the phone-number. - -proc phoneSkipLeft {W} { - set idx [$W index insert] - if {$idx == 8} { - # Skip back two extra characters - $W icursor [incr idx -2] - } elseif {$idx == 7 || $idx == 12} { - # Skip back one extra character - $W icursor [incr idx -1] - } elseif {$idx <= 3} { - # Can't move any further - bell - return -code break - } -} - -# phoneSkipRight -- -# Skip over fixed characters in a phone-number string when moving right. -# -# Arguments: -# W - The entry widget containing the phone-number. -# add - Offset to add to index before calculation (used by validation.) - -proc phoneSkipRight {W {add 0}} { - set idx [$W index insert] - if {$idx+$add == 5} { - # Skip forward two extra characters - $W icursor [incr idx 2] - } elseif {$idx+$add == 6 || $idx+$add == 10} { - # Skip forward one extra character - $W icursor [incr idx] - } elseif {$idx+$add == 15 && !$add} { - # Can't move any further - bell - return -code break - } -} - -labelframe $w.l3 -text "US Phone-Number Entry" -entry $w.l3.e -validate key -invcmd bell -textvariable entry3content \ - -vcmd {validatePhoneChange %W %v %i %S} -# Click to focus goes to the first editable character... -bind $w.l3.e { - if {"%d" ne "NotifyAncestor"} { - %W icursor 3 - after idle {%W selection clear} - } -} -bind $w.l3.e {phoneSkipLeft %W} -bind $w.l3.e {phoneSkipRight %W} -pack $w.l3.e -fill x -expand 1 -padx 1m -pady 1m - -labelframe $w.l4 -text "Password Entry" -entry $w.l4.e -validate key -show "*" -vcmd {expr {[string length %P]<=8}} -pack $w.l4.e -fill x -expand 1 -padx 1m -pady 1m - -lower [frame $w.mid] -grid $w.l1 $w.l2 -in $w.mid -padx 3m -pady 1m -sticky ew -grid $w.l3 $w.l4 -in $w.mid -padx 3m -pady 1m -sticky ew -grid columnconfigure $w.mid {0 1} -uniform 1 -pack $w.msg -side top -pack $w.mid -fill both -expand 1 diff --git a/mingw/lib/tk8.5/demos/filebox.tcl b/mingw/lib/tk8.5/demos/filebox.tcl deleted file mode 100644 index d9144560bf..0000000000 --- a/mingw/lib/tk8.5/demos/filebox.tcl +++ /dev/null @@ -1,80 +0,0 @@ -# filebox.tcl -- -# -# This demonstration script prompts the user to select a file. -# -# RCS: @(#) $Id: filebox.tcl,v 1.9 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .filebox -catch {destroy $w} -toplevel $w -wm title $w "File Selection Dialogs" -wm iconname $w "filebox" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "Enter a file name in the entry box or click on the \"Browse\" buttons to select a file name using the file selection dialog." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -foreach i {open save} { - set f [frame $w.$i] - label $f.lab -text "Select a file to $i: " -anchor e - entry $f.ent -width 20 - button $f.but -text "Browse ..." -command "fileDialog $w $f.ent $i" - pack $f.lab -side left - pack $f.ent -side left -expand yes -fill x - pack $f.but -side left - pack $f -fill x -padx 1c -pady 3 -} - -if {$tcl_platform(platform) eq "unix"} { - checkbutton $w.strict -text "Use Motif Style Dialog" \ - -variable tk_strictMotif -onvalue 1 -offvalue 0 - pack $w.strict -anchor c - - # This binding ensures that we don't run the rest of the demos - # with motif style interactions - bind $w.strict {set tk_strictMotif 0} -} - -proc fileDialog {w ent operation} { - # Type names Extension(s) Mac File Type(s) - # - #--------------------------------------------------------- - set types { - {"Text files" {.txt .doc} } - {"Text files" {} TEXT} - {"Tcl Scripts" {.tcl} TEXT} - {"C Source Files" {.c .h} } - {"All Source Files" {.tcl .c .h} } - {"Image Files" {.gif} } - {"Image Files" {.jpeg .jpg} } - {"Image Files" "" {GIFF JPEG}} - {"All files" *} - } - if {$operation == "open"} { - global selected_type - if {![info exists selected_type]} { - set selected_type "Tcl Scripts" - } - set file [tk_getOpenFile -filetypes $types -parent $w \ - -typevariable selected_type] - puts "You selected filetype \"$selected_type\"" - } else { - set file [tk_getSaveFile -filetypes $types -parent $w \ - -initialfile Untitled -defaultextension .txt] - } - if {[string compare $file ""]} { - $ent delete 0 end - $ent insert 0 $file - $ent xview end - } -} diff --git a/mingw/lib/tk8.5/demos/floor.tcl b/mingw/lib/tk8.5/demos/floor.tcl deleted file mode 100644 index 4302538a65..0000000000 --- a/mingw/lib/tk8.5/demos/floor.tcl +++ /dev/null @@ -1,1368 +0,0 @@ -# floor.tcl -- -# -# This demonstration script creates a canvas widet that displays the -# floorplan for DEC's Western Research Laboratory. -# -# RCS: @(#) $Id: floor.tcl,v 1.8 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -# floorDisplay -- -# Recreate the floorplan display in the canvas given by "w". The -# floor given by "active" is displayed on top with its office structure -# visible. -# -# Arguments: -# w - Name of the canvas window. -# active - Number of active floor (1, 2, or 3). - -proc floorDisplay {w active} { - global floorLabels floorItems colors activeFloor - - if {$activeFloor == $active} { - return - } - - $w delete all - set activeFloor $active - - # First go through the three floors, displaying the backgrounds for - # each floor. - - bg1 $w $colors(bg1) $colors(outline1) - bg2 $w $colors(bg2) $colors(outline2) - bg3 $w $colors(bg3) $colors(outline3) - - # Raise the background for the active floor so that it's on top. - - $w raise floor$active - - # Create a dummy item just to mark this point in the display list, - # so we can insert highlights here. - - $w create rect 0 100 1 101 -fill {} -outline {} -tags marker - - # Add the walls and labels for the active floor, along with - # transparent polygons that define the rooms on the floor. - # Make sure that the room polygons are on top. - - catch {unset floorLabels} - catch {unset floorItems} - fg$active $w $colors(offices) - $w raise room - - # Offset the floors diagonally from each other. - - $w move floor1 2c 2c - $w move floor2 1c 1c - - # Create items for the room entry and its label. - - $w create window 600 100 -anchor w -window $w.entry - $w create text 600 100 -anchor e -text "Room: " - $w config -scrollregion [$w bbox all] -} - -# newRoom -- -# This procedure is invoked whenever the mouse enters a room -# in the floorplan. It changes tags so that the current room is -# highlighted. -# -# Arguments: -# w - The name of the canvas window. - -proc newRoom w { - global currentRoom floorLabels - - set id [$w find withtag current] - if {$id != ""} { - set currentRoom $floorLabels($id) - } - update idletasks -} - -# roomChanged -- -# This procedure is invoked whenever the currentRoom variable changes. -# It highlights the current room and unhighlights any previous room. -# -# Arguments: -# w - The canvas window displaying the floorplan. -# args - Not used. - -proc roomChanged {w args} { - global currentRoom floorItems colors - $w delete highlight - if {[catch {set item $floorItems($currentRoom)}]} { - return - } - set new [eval \ - "$w create polygon [$w coords $item] -fill $colors(active) \ - -tags highlight"] - $w raise $new marker -} - -# bg1 -- -# This procedure represents part of the floorplan database. When -# invoked, it instantiates the background information for the first -# floor. -# -# Arguments: -# w - The canvas window. -# fill - Fill color to use for the floor's background. -# outline - Color to use for the floor's outline. - -proc bg1 {w fill outline} { - $w create poly 347 80 349 82 351 84 353 85 363 92 375 99 386 104 \ - 386 129 398 129 398 162 484 162 484 129 559 129 559 133 725 \ - 133 725 129 802 129 802 389 644 389 644 391 559 391 559 327 \ - 508 327 508 311 484 311 484 278 395 278 395 288 400 288 404 \ - 288 409 290 413 292 418 297 421 302 422 309 421 318 417 325 \ - 411 330 405 332 397 333 344 333 340 334 336 336 335 338 332 \ - 342 331 347 332 351 334 354 336 357 341 359 340 360 335 363 \ - 331 365 326 366 304 366 304 355 258 355 258 387 60 387 60 391 \ - 0 391 0 337 3 337 3 114 8 114 8 25 30 25 30 5 93 5 98 5 104 7 \ - 110 10 116 16 119 20 122 28 123 32 123 68 220 68 220 34 221 \ - 22 223 17 227 13 231 8 236 4 242 2 246 0 260 0 283 1 300 5 \ - 321 14 335 22 348 25 365 29 363 39 358 48 352 56 337 70 \ - 344 76 347 80 \ - -tags {floor1 bg} -fill $fill - $w create line 386 129 398 129 -fill $outline -tags {floor1 bg} - $w create line 258 355 258 387 -fill $outline -tags {floor1 bg} - $w create line 60 387 60 391 -fill $outline -tags {floor1 bg} - $w create line 0 337 0 391 -fill $outline -tags {floor1 bg} - $w create line 60 391 0 391 -fill $outline -tags {floor1 bg} - $w create line 3 114 3 337 -fill $outline -tags {floor1 bg} - $w create line 258 387 60 387 -fill $outline -tags {floor1 bg} - $w create line 484 162 398 162 -fill $outline -tags {floor1 bg} - $w create line 398 162 398 129 -fill $outline -tags {floor1 bg} - $w create line 484 278 484 311 -fill $outline -tags {floor1 bg} - $w create line 484 311 508 311 -fill $outline -tags {floor1 bg} - $w create line 508 327 508 311 -fill $outline -tags {floor1 bg} - $w create line 559 327 508 327 -fill $outline -tags {floor1 bg} - $w create line 644 391 559 391 -fill $outline -tags {floor1 bg} - $w create line 644 389 644 391 -fill $outline -tags {floor1 bg} - $w create line 559 129 484 129 -fill $outline -tags {floor1 bg} - $w create line 484 162 484 129 -fill $outline -tags {floor1 bg} - $w create line 725 133 559 133 -fill $outline -tags {floor1 bg} - $w create line 559 129 559 133 -fill $outline -tags {floor1 bg} - $w create line 725 129 802 129 -fill $outline -tags {floor1 bg} - $w create line 802 389 802 129 -fill $outline -tags {floor1 bg} - $w create line 3 337 0 337 -fill $outline -tags {floor1 bg} - $w create line 559 391 559 327 -fill $outline -tags {floor1 bg} - $w create line 802 389 644 389 -fill $outline -tags {floor1 bg} - $w create line 725 133 725 129 -fill $outline -tags {floor1 bg} - $w create line 8 25 8 114 -fill $outline -tags {floor1 bg} - $w create line 8 114 3 114 -fill $outline -tags {floor1 bg} - $w create line 30 25 8 25 -fill $outline -tags {floor1 bg} - $w create line 484 278 395 278 -fill $outline -tags {floor1 bg} - $w create line 30 25 30 5 -fill $outline -tags {floor1 bg} - $w create line 93 5 30 5 -fill $outline -tags {floor1 bg} - $w create line 98 5 93 5 -fill $outline -tags {floor1 bg} - $w create line 104 7 98 5 -fill $outline -tags {floor1 bg} - $w create line 110 10 104 7 -fill $outline -tags {floor1 bg} - $w create line 116 16 110 10 -fill $outline -tags {floor1 bg} - $w create line 119 20 116 16 -fill $outline -tags {floor1 bg} - $w create line 122 28 119 20 -fill $outline -tags {floor1 bg} - $w create line 123 32 122 28 -fill $outline -tags {floor1 bg} - $w create line 123 68 123 32 -fill $outline -tags {floor1 bg} - $w create line 220 68 123 68 -fill $outline -tags {floor1 bg} - $w create line 386 129 386 104 -fill $outline -tags {floor1 bg} - $w create line 386 104 375 99 -fill $outline -tags {floor1 bg} - $w create line 375 99 363 92 -fill $outline -tags {floor1 bg} - $w create line 353 85 363 92 -fill $outline -tags {floor1 bg} - $w create line 220 68 220 34 -fill $outline -tags {floor1 bg} - $w create line 337 70 352 56 -fill $outline -tags {floor1 bg} - $w create line 352 56 358 48 -fill $outline -tags {floor1 bg} - $w create line 358 48 363 39 -fill $outline -tags {floor1 bg} - $w create line 363 39 365 29 -fill $outline -tags {floor1 bg} - $w create line 365 29 348 25 -fill $outline -tags {floor1 bg} - $w create line 348 25 335 22 -fill $outline -tags {floor1 bg} - $w create line 335 22 321 14 -fill $outline -tags {floor1 bg} - $w create line 321 14 300 5 -fill $outline -tags {floor1 bg} - $w create line 300 5 283 1 -fill $outline -tags {floor1 bg} - $w create line 283 1 260 0 -fill $outline -tags {floor1 bg} - $w create line 260 0 246 0 -fill $outline -tags {floor1 bg} - $w create line 246 0 242 2 -fill $outline -tags {floor1 bg} - $w create line 242 2 236 4 -fill $outline -tags {floor1 bg} - $w create line 236 4 231 8 -fill $outline -tags {floor1 bg} - $w create line 231 8 227 13 -fill $outline -tags {floor1 bg} - $w create line 223 17 227 13 -fill $outline -tags {floor1 bg} - $w create line 221 22 223 17 -fill $outline -tags {floor1 bg} - $w create line 220 34 221 22 -fill $outline -tags {floor1 bg} - $w create line 340 360 335 363 -fill $outline -tags {floor1 bg} - $w create line 335 363 331 365 -fill $outline -tags {floor1 bg} - $w create line 331 365 326 366 -fill $outline -tags {floor1 bg} - $w create line 326 366 304 366 -fill $outline -tags {floor1 bg} - $w create line 304 355 304 366 -fill $outline -tags {floor1 bg} - $w create line 395 288 400 288 -fill $outline -tags {floor1 bg} - $w create line 404 288 400 288 -fill $outline -tags {floor1 bg} - $w create line 409 290 404 288 -fill $outline -tags {floor1 bg} - $w create line 413 292 409 290 -fill $outline -tags {floor1 bg} - $w create line 418 297 413 292 -fill $outline -tags {floor1 bg} - $w create line 421 302 418 297 -fill $outline -tags {floor1 bg} - $w create line 422 309 421 302 -fill $outline -tags {floor1 bg} - $w create line 421 318 422 309 -fill $outline -tags {floor1 bg} - $w create line 421 318 417 325 -fill $outline -tags {floor1 bg} - $w create line 417 325 411 330 -fill $outline -tags {floor1 bg} - $w create line 411 330 405 332 -fill $outline -tags {floor1 bg} - $w create line 405 332 397 333 -fill $outline -tags {floor1 bg} - $w create line 397 333 344 333 -fill $outline -tags {floor1 bg} - $w create line 344 333 340 334 -fill $outline -tags {floor1 bg} - $w create line 340 334 336 336 -fill $outline -tags {floor1 bg} - $w create line 336 336 335 338 -fill $outline -tags {floor1 bg} - $w create line 335 338 332 342 -fill $outline -tags {floor1 bg} - $w create line 331 347 332 342 -fill $outline -tags {floor1 bg} - $w create line 332 351 331 347 -fill $outline -tags {floor1 bg} - $w create line 334 354 332 351 -fill $outline -tags {floor1 bg} - $w create line 336 357 334 354 -fill $outline -tags {floor1 bg} - $w create line 341 359 336 357 -fill $outline -tags {floor1 bg} - $w create line 341 359 340 360 -fill $outline -tags {floor1 bg} - $w create line 395 288 395 278 -fill $outline -tags {floor1 bg} - $w create line 304 355 258 355 -fill $outline -tags {floor1 bg} - $w create line 347 80 344 76 -fill $outline -tags {floor1 bg} - $w create line 344 76 337 70 -fill $outline -tags {floor1 bg} - $w create line 349 82 347 80 -fill $outline -tags {floor1 bg} - $w create line 351 84 349 82 -fill $outline -tags {floor1 bg} - $w create line 353 85 351 84 -fill $outline -tags {floor1 bg} -} - -# bg2 -- -# This procedure represents part of the floorplan database. When -# invoked, it instantiates the background information for the second -# floor. -# -# Arguments: -# w - The canvas window. -# fill - Fill color to use for the floor's background. -# outline - Color to use for the floor's outline. - -proc bg2 {w fill outline} { - $w create poly 559 129 484 129 484 162 398 162 398 129 315 129 \ - 315 133 176 133 176 129 96 129 96 133 3 133 3 339 0 339 0 391 \ - 60 391 60 387 258 387 258 329 350 329 350 311 395 311 395 280 \ - 484 280 484 311 508 311 508 327 558 327 558 391 644 391 644 \ - 367 802 367 802 129 725 129 725 133 559 133 559 129 \ - -tags {floor2 bg} -fill $fill - $w create line 350 311 350 329 -fill $outline -tags {floor2 bg} - $w create line 398 129 398 162 -fill $outline -tags {floor2 bg} - $w create line 802 367 802 129 -fill $outline -tags {floor2 bg} - $w create line 802 129 725 129 -fill $outline -tags {floor2 bg} - $w create line 725 133 725 129 -fill $outline -tags {floor2 bg} - $w create line 559 129 559 133 -fill $outline -tags {floor2 bg} - $w create line 559 133 725 133 -fill $outline -tags {floor2 bg} - $w create line 484 162 484 129 -fill $outline -tags {floor2 bg} - $w create line 559 129 484 129 -fill $outline -tags {floor2 bg} - $w create line 802 367 644 367 -fill $outline -tags {floor2 bg} - $w create line 644 367 644 391 -fill $outline -tags {floor2 bg} - $w create line 644 391 558 391 -fill $outline -tags {floor2 bg} - $w create line 558 327 558 391 -fill $outline -tags {floor2 bg} - $w create line 558 327 508 327 -fill $outline -tags {floor2 bg} - $w create line 508 327 508 311 -fill $outline -tags {floor2 bg} - $w create line 484 311 508 311 -fill $outline -tags {floor2 bg} - $w create line 484 280 484 311 -fill $outline -tags {floor2 bg} - $w create line 398 162 484 162 -fill $outline -tags {floor2 bg} - $w create line 484 280 395 280 -fill $outline -tags {floor2 bg} - $w create line 395 280 395 311 -fill $outline -tags {floor2 bg} - $w create line 258 387 60 387 -fill $outline -tags {floor2 bg} - $w create line 3 133 3 339 -fill $outline -tags {floor2 bg} - $w create line 3 339 0 339 -fill $outline -tags {floor2 bg} - $w create line 60 391 0 391 -fill $outline -tags {floor2 bg} - $w create line 0 339 0 391 -fill $outline -tags {floor2 bg} - $w create line 60 387 60 391 -fill $outline -tags {floor2 bg} - $w create line 258 329 258 387 -fill $outline -tags {floor2 bg} - $w create line 350 329 258 329 -fill $outline -tags {floor2 bg} - $w create line 395 311 350 311 -fill $outline -tags {floor2 bg} - $w create line 398 129 315 129 -fill $outline -tags {floor2 bg} - $w create line 176 133 315 133 -fill $outline -tags {floor2 bg} - $w create line 176 129 96 129 -fill $outline -tags {floor2 bg} - $w create line 3 133 96 133 -fill $outline -tags {floor2 bg} - $w create line 315 133 315 129 -fill $outline -tags {floor2 bg} - $w create line 176 133 176 129 -fill $outline -tags {floor2 bg} - $w create line 96 133 96 129 -fill $outline -tags {floor2 bg} -} - -# bg3 -- -# This procedure represents part of the floorplan database. When -# invoked, it instantiates the background information for the third -# floor. -# -# Arguments: -# w - The canvas window. -# fill - Fill color to use for the floor's background. -# outline - Color to use for the floor's outline. - -proc bg3 {w fill outline} { - $w create poly 159 300 107 300 107 248 159 248 159 129 96 129 96 \ - 133 21 133 21 331 0 331 0 391 60 391 60 370 159 370 159 300 \ - -tags {floor3 bg} -fill $fill - $w create poly 258 370 258 329 350 329 350 311 399 311 399 129 \ - 315 129 315 133 176 133 176 129 159 129 159 370 258 370 \ - -tags {floor3 bg} -fill $fill - $w create line 96 133 96 129 -fill $outline -tags {floor3 bg} - $w create line 176 129 96 129 -fill $outline -tags {floor3 bg} - $w create line 176 129 176 133 -fill $outline -tags {floor3 bg} - $w create line 315 133 176 133 -fill $outline -tags {floor3 bg} - $w create line 315 133 315 129 -fill $outline -tags {floor3 bg} - $w create line 399 129 315 129 -fill $outline -tags {floor3 bg} - $w create line 399 311 399 129 -fill $outline -tags {floor3 bg} - $w create line 399 311 350 311 -fill $outline -tags {floor3 bg} - $w create line 350 329 350 311 -fill $outline -tags {floor3 bg} - $w create line 350 329 258 329 -fill $outline -tags {floor3 bg} - $w create line 258 370 258 329 -fill $outline -tags {floor3 bg} - $w create line 60 370 258 370 -fill $outline -tags {floor3 bg} - $w create line 60 370 60 391 -fill $outline -tags {floor3 bg} - $w create line 60 391 0 391 -fill $outline -tags {floor3 bg} - $w create line 0 391 0 331 -fill $outline -tags {floor3 bg} - $w create line 21 331 0 331 -fill $outline -tags {floor3 bg} - $w create line 21 331 21 133 -fill $outline -tags {floor3 bg} - $w create line 96 133 21 133 -fill $outline -tags {floor3 bg} - $w create line 107 300 159 300 159 248 107 248 107 300 \ - -fill $outline -tags {floor3 bg} -} - -# fg1 -- -# This procedure represents part of the floorplan database. When -# invoked, it instantiates the foreground information for the first -# floor (office outlines and numbers). -# -# Arguments: -# w - The canvas window. -# color - Color to use for drawing foreground information. - -proc fg1 {w color} { - global floorLabels floorItems - set i [$w create polygon 375 246 375 172 341 172 341 246 -fill {} -tags {floor1 room}] - set floorLabels($i) 101 - set {floorItems(101)} $i - $w create text 358 209 -text 101 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 307 240 339 240 339 206 307 206 -fill {} -tags {floor1 room}] - set floorLabels($i) {Pub Lift1} - set {floorItems(Pub Lift1)} $i - $w create text 323 223 -text {Pub Lift1} -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 339 205 307 205 307 171 339 171 -fill {} -tags {floor1 room}] - set floorLabels($i) {Priv Lift1} - set {floorItems(Priv Lift1)} $i - $w create text 323 188 -text {Priv Lift1} -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 42 389 42 337 1 337 1 389 -fill {} -tags {floor1 room}] - set floorLabels($i) 110 - set {floorItems(110)} $i - $w create text 21.5 363 -text 110 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 59 389 59 385 90 385 90 337 44 337 44 389 -fill {} -tags {floor1 room}] - set floorLabels($i) 109 - set {floorItems(109)} $i - $w create text 67 363 -text 109 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 51 300 51 253 6 253 6 300 -fill {} -tags {floor1 room}] - set floorLabels($i) 111 - set {floorItems(111)} $i - $w create text 28.5 276.5 -text 111 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 98 248 98 309 79 309 79 248 -fill {} -tags {floor1 room}] - set floorLabels($i) 117B - set {floorItems(117B)} $i - $w create text 88.5 278.5 -text 117B -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 51 251 51 204 6 204 6 251 -fill {} -tags {floor1 room}] - set floorLabels($i) 112 - set {floorItems(112)} $i - $w create text 28.5 227.5 -text 112 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 6 156 51 156 51 203 6 203 -fill {} -tags {floor1 room}] - set floorLabels($i) 113 - set {floorItems(113)} $i - $w create text 28.5 179.5 -text 113 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 85 169 79 169 79 192 85 192 -fill {} -tags {floor1 room}] - set floorLabels($i) 117A - set {floorItems(117A)} $i - $w create text 82 180.5 -text 117A -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 77 302 77 168 53 168 53 302 -fill {} -tags {floor1 room}] - set floorLabels($i) 117 - set {floorItems(117)} $i - $w create text 65 235 -text 117 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 51 155 51 115 6 115 6 155 -fill {} -tags {floor1 room}] - set floorLabels($i) 114 - set {floorItems(114)} $i - $w create text 28.5 135 -text 114 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 95 115 53 115 53 168 95 168 -fill {} -tags {floor1 room}] - set floorLabels($i) 115 - set {floorItems(115)} $i - $w create text 74 141.5 -text 115 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 87 113 87 27 10 27 10 113 -fill {} -tags {floor1 room}] - set floorLabels($i) 116 - set {floorItems(116)} $i - $w create text 48.5 70 -text 116 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 89 91 128 91 128 113 89 113 -fill {} -tags {floor1 room}] - set floorLabels($i) 118 - set {floorItems(118)} $i - $w create text 108.5 102 -text 118 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 178 128 178 132 216 132 216 91 163 91 163 112 149 112 149 128 -fill {} -tags {floor1 room}] - set floorLabels($i) 120 - set {floorItems(120)} $i - $w create text 189.5 111.5 -text 120 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 79 193 87 193 87 169 136 169 136 192 156 192 156 169 175 169 175 246 79 246 -fill {} -tags {floor1 room}] - set floorLabels($i) 122 - set {floorItems(122)} $i - $w create text 131 207.5 -text 122 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 138 169 154 169 154 191 138 191 -fill {} -tags {floor1 room}] - set floorLabels($i) 121 - set {floorItems(121)} $i - $w create text 146 180 -text 121 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 99 300 126 300 126 309 99 309 -fill {} -tags {floor1 room}] - set floorLabels($i) 106A - set {floorItems(106A)} $i - $w create text 112.5 304.5 -text 106A -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 128 299 128 309 150 309 150 248 99 248 99 299 -fill {} -tags {floor1 room}] - set floorLabels($i) 105 - set {floorItems(105)} $i - $w create text 124.5 278.5 -text 105 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 174 309 174 300 152 300 152 309 -fill {} -tags {floor1 room}] - set floorLabels($i) 106B - set {floorItems(106B)} $i - $w create text 163 304.5 -text 106B -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 176 299 176 309 216 309 216 248 152 248 152 299 -fill {} -tags {floor1 room}] - set floorLabels($i) 104 - set {floorItems(104)} $i - $w create text 184 278.5 -text 104 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 138 385 138 337 91 337 91 385 -fill {} -tags {floor1 room}] - set floorLabels($i) 108 - set {floorItems(108)} $i - $w create text 114.5 361 -text 108 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 256 337 140 337 140 385 256 385 -fill {} -tags {floor1 room}] - set floorLabels($i) 107 - set {floorItems(107)} $i - $w create text 198 361 -text 107 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 300 353 300 329 260 329 260 353 -fill {} -tags {floor1 room}] - set floorLabels($i) Smoking - set {floorItems(Smoking)} $i - $w create text 280 341 -text Smoking -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 314 135 314 170 306 170 306 246 177 246 177 135 -fill {} -tags {floor1 room}] - set floorLabels($i) 123 - set {floorItems(123)} $i - $w create text 245.5 190.5 -text 123 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 217 248 301 248 301 326 257 326 257 310 217 310 -fill {} -tags {floor1 room}] - set floorLabels($i) 103 - set {floorItems(103)} $i - $w create text 259 287 -text 103 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 396 188 377 188 377 169 316 169 316 131 396 131 -fill {} -tags {floor1 room}] - set floorLabels($i) 124 - set {floorItems(124)} $i - $w create text 356 150 -text 124 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 397 226 407 226 407 189 377 189 377 246 397 246 -fill {} -tags {floor1 room}] - set floorLabels($i) 125 - set {floorItems(125)} $i - $w create text 392 217.5 -text 125 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 399 187 409 187 409 207 474 207 474 164 399 164 -fill {} -tags {floor1 room}] - set floorLabels($i) 126 - set {floorItems(126)} $i - $w create text 436.5 185.5 -text 126 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 409 209 409 229 399 229 399 253 486 253 486 239 474 239 474 209 -fill {} -tags {floor1 room}] - set floorLabels($i) 127 - set {floorItems(127)} $i - $w create text 436.5 231 -text 127 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 501 164 501 174 495 174 495 188 490 188 490 204 476 204 476 164 -fill {} -tags {floor1 room}] - set floorLabels($i) MShower - set {floorItems(MShower)} $i - $w create text 488.5 184 -text MShower -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 497 176 513 176 513 204 492 204 492 190 497 190 -fill {} -tags {floor1 room}] - set floorLabels($i) Closet - set {floorItems(Closet)} $i - $w create text 502.5 190 -text Closet -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 476 237 476 206 513 206 513 254 488 254 488 237 -fill {} -tags {floor1 room}] - set floorLabels($i) WShower - set {floorItems(WShower)} $i - $w create text 494.5 230 -text WShower -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 486 131 558 131 558 135 724 135 724 166 697 166 697 275 553 275 531 254 515 254 515 174 503 174 503 161 486 161 -fill {} -tags {floor1 room}] - set floorLabels($i) 130 - set {floorItems(130)} $i - $w create text 638.5 205 -text 130 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 308 242 339 242 339 248 342 248 342 246 397 246 397 276 393 276 393 309 300 309 300 248 308 248 -fill {} -tags {floor1 room}] - set floorLabels($i) 102 - set {floorItems(102)} $i - $w create text 367.5 278.5 -text 102 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 397 255 486 255 486 276 397 276 -fill {} -tags {floor1 room}] - set floorLabels($i) 128 - set {floorItems(128)} $i - $w create text 441.5 265.5 -text 128 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 510 309 486 309 486 255 530 255 552 277 561 277 561 325 510 325 -fill {} -tags {floor1 room}] - set floorLabels($i) 129 - set {floorItems(129)} $i - $w create text 535.5 293 -text 129 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 696 281 740 281 740 387 642 387 642 389 561 389 561 277 696 277 -fill {} -tags {floor1 room}] - set floorLabels($i) 133 - set {floorItems(133)} $i - $w create text 628.5 335 -text 133 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 742 387 742 281 800 281 800 387 -fill {} -tags {floor1 room}] - set floorLabels($i) 132 - set {floorItems(132)} $i - $w create text 771 334 -text 132 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 800 168 800 280 699 280 699 168 -fill {} -tags {floor1 room}] - set floorLabels($i) 134 - set {floorItems(134)} $i - $w create text 749.5 224 -text 134 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 726 131 726 166 800 166 800 131 -fill {} -tags {floor1 room}] - set floorLabels($i) 135 - set {floorItems(135)} $i - $w create text 763 148.5 -text 135 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 340 360 335 363 331 365 326 366 304 366 304 312 396 312 396 288 400 288 404 288 409 290 413 292 418 297 421 302 422 309 421 318 417 325 411 330 405 332 397 333 344 333 340 334 336 336 335 338 332 342 331 347 332 351 334 354 336 357 341 359 -fill {} -tags {floor1 room}] - set floorLabels($i) {Ramona Stair} - set {floorItems(Ramona Stair)} $i - $w create text 368 323 -text {Ramona Stair} -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 30 23 30 5 93 5 98 5 104 7 110 10 116 16 119 20 122 28 123 32 123 68 220 68 220 87 90 87 90 23 -fill {} -tags {floor1 room}] - set floorLabels($i) {University Stair} - set {floorItems(University Stair)} $i - $w create text 155 77.5 -text {University Stair} -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 282 37 295 40 312 49 323 56 337 70 352 56 358 48 363 39 365 29 348 25 335 22 321 14 300 5 283 1 260 0 246 0 242 2 236 4 231 8 227 13 223 17 221 22 220 34 260 34 -fill {} -tags {floor1 room}] - set floorLabels($i) {Plaza Stair} - set {floorItems(Plaza Stair)} $i - $w create text 317.5 28.5 -text {Plaza Stair} -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 220 34 260 34 282 37 295 40 312 49 323 56 337 70 350 83 365 94 377 100 386 104 386 128 220 128 -fill {} -tags {floor1 room}] - set floorLabels($i) {Plaza Deck} - set {floorItems(Plaza Deck)} $i - $w create text 303 81 -text {Plaza Deck} -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 257 336 77 336 6 336 6 301 77 301 77 310 257 310 -fill {} -tags {floor1 room}] - set floorLabels($i) 106 - set {floorItems(106)} $i - $w create text 131.5 318.5 -text 106 -fill $color -anchor c -tags {floor1 label} - set i [$w create polygon 146 110 162 110 162 91 130 91 130 115 95 115 95 128 114 128 114 151 157 151 157 153 112 153 112 130 97 130 97 168 175 168 175 131 146 131 -fill {} -tags {floor1 room}] - set floorLabels($i) 119 - set {floorItems(119)} $i - $w create text 143.5 133 -text 119 -fill $color -anchor c -tags {floor1 label} - $w create line 155 191 155 189 -fill $color -tags {floor1 wall} - $w create line 155 177 155 169 -fill $color -tags {floor1 wall} - $w create line 96 129 96 169 -fill $color -tags {floor1 wall} - $w create line 78 169 176 169 -fill $color -tags {floor1 wall} - $w create line 176 247 176 129 -fill $color -tags {floor1 wall} - $w create line 340 206 307 206 -fill $color -tags {floor1 wall} - $w create line 340 187 340 170 -fill $color -tags {floor1 wall} - $w create line 340 210 340 201 -fill $color -tags {floor1 wall} - $w create line 340 247 340 224 -fill $color -tags {floor1 wall} - $w create line 340 241 307 241 -fill $color -tags {floor1 wall} - $w create line 376 246 376 170 -fill $color -tags {floor1 wall} - $w create line 307 247 307 170 -fill $color -tags {floor1 wall} - $w create line 376 170 307 170 -fill $color -tags {floor1 wall} - $w create line 315 129 315 170 -fill $color -tags {floor1 wall} - $w create line 147 129 176 129 -fill $color -tags {floor1 wall} - $w create line 202 133 176 133 -fill $color -tags {floor1 wall} - $w create line 398 129 315 129 -fill $color -tags {floor1 wall} - $w create line 258 352 258 387 -fill $color -tags {floor1 wall} - $w create line 60 387 60 391 -fill $color -tags {floor1 wall} - $w create line 0 337 0 391 -fill $color -tags {floor1 wall} - $w create line 60 391 0 391 -fill $color -tags {floor1 wall} - $w create line 3 114 3 337 -fill $color -tags {floor1 wall} - $w create line 258 387 60 387 -fill $color -tags {floor1 wall} - $w create line 52 237 52 273 -fill $color -tags {floor1 wall} - $w create line 52 189 52 225 -fill $color -tags {floor1 wall} - $w create line 52 140 52 177 -fill $color -tags {floor1 wall} - $w create line 395 306 395 311 -fill $color -tags {floor1 wall} - $w create line 531 254 398 254 -fill $color -tags {floor1 wall} - $w create line 475 178 475 238 -fill $color -tags {floor1 wall} - $w create line 502 162 398 162 -fill $color -tags {floor1 wall} - $w create line 398 129 398 188 -fill $color -tags {floor1 wall} - $w create line 383 188 376 188 -fill $color -tags {floor1 wall} - $w create line 408 188 408 194 -fill $color -tags {floor1 wall} - $w create line 398 227 398 254 -fill $color -tags {floor1 wall} - $w create line 408 227 398 227 -fill $color -tags {floor1 wall} - $w create line 408 222 408 227 -fill $color -tags {floor1 wall} - $w create line 408 206 408 210 -fill $color -tags {floor1 wall} - $w create line 408 208 475 208 -fill $color -tags {floor1 wall} - $w create line 484 278 484 311 -fill $color -tags {floor1 wall} - $w create line 484 311 508 311 -fill $color -tags {floor1 wall} - $w create line 508 327 508 311 -fill $color -tags {floor1 wall} - $w create line 559 327 508 327 -fill $color -tags {floor1 wall} - $w create line 644 391 559 391 -fill $color -tags {floor1 wall} - $w create line 644 389 644 391 -fill $color -tags {floor1 wall} - $w create line 514 205 475 205 -fill $color -tags {floor1 wall} - $w create line 496 189 496 187 -fill $color -tags {floor1 wall} - $w create line 559 129 484 129 -fill $color -tags {floor1 wall} - $w create line 484 162 484 129 -fill $color -tags {floor1 wall} - $w create line 725 133 559 133 -fill $color -tags {floor1 wall} - $w create line 559 129 559 133 -fill $color -tags {floor1 wall} - $w create line 725 149 725 167 -fill $color -tags {floor1 wall} - $w create line 725 129 802 129 -fill $color -tags {floor1 wall} - $w create line 802 389 802 129 -fill $color -tags {floor1 wall} - $w create line 739 167 802 167 -fill $color -tags {floor1 wall} - $w create line 396 188 408 188 -fill $color -tags {floor1 wall} - $w create line 0 337 9 337 -fill $color -tags {floor1 wall} - $w create line 58 337 21 337 -fill $color -tags {floor1 wall} - $w create line 43 391 43 337 -fill $color -tags {floor1 wall} - $w create line 105 337 75 337 -fill $color -tags {floor1 wall} - $w create line 91 387 91 337 -fill $color -tags {floor1 wall} - $w create line 154 337 117 337 -fill $color -tags {floor1 wall} - $w create line 139 387 139 337 -fill $color -tags {floor1 wall} - $w create line 227 337 166 337 -fill $color -tags {floor1 wall} - $w create line 258 337 251 337 -fill $color -tags {floor1 wall} - $w create line 258 328 302 328 -fill $color -tags {floor1 wall} - $w create line 302 355 302 311 -fill $color -tags {floor1 wall} - $w create line 395 311 302 311 -fill $color -tags {floor1 wall} - $w create line 484 278 395 278 -fill $color -tags {floor1 wall} - $w create line 395 294 395 278 -fill $color -tags {floor1 wall} - $w create line 473 278 473 275 -fill $color -tags {floor1 wall} - $w create line 473 256 473 254 -fill $color -tags {floor1 wall} - $w create line 533 257 531 254 -fill $color -tags {floor1 wall} - $w create line 553 276 551 274 -fill $color -tags {floor1 wall} - $w create line 698 276 553 276 -fill $color -tags {floor1 wall} - $w create line 559 391 559 327 -fill $color -tags {floor1 wall} - $w create line 802 389 644 389 -fill $color -tags {floor1 wall} - $w create line 741 314 741 389 -fill $color -tags {floor1 wall} - $w create line 698 280 698 167 -fill $color -tags {floor1 wall} - $w create line 707 280 698 280 -fill $color -tags {floor1 wall} - $w create line 802 280 731 280 -fill $color -tags {floor1 wall} - $w create line 741 280 741 302 -fill $color -tags {floor1 wall} - $w create line 698 167 727 167 -fill $color -tags {floor1 wall} - $w create line 725 137 725 129 -fill $color -tags {floor1 wall} - $w create line 514 254 514 175 -fill $color -tags {floor1 wall} - $w create line 496 175 514 175 -fill $color -tags {floor1 wall} - $w create line 502 175 502 162 -fill $color -tags {floor1 wall} - $w create line 475 166 475 162 -fill $color -tags {floor1 wall} - $w create line 496 176 496 175 -fill $color -tags {floor1 wall} - $w create line 491 189 496 189 -fill $color -tags {floor1 wall} - $w create line 491 205 491 189 -fill $color -tags {floor1 wall} - $w create line 487 238 475 238 -fill $color -tags {floor1 wall} - $w create line 487 240 487 238 -fill $color -tags {floor1 wall} - $w create line 487 252 487 254 -fill $color -tags {floor1 wall} - $w create line 315 133 304 133 -fill $color -tags {floor1 wall} - $w create line 256 133 280 133 -fill $color -tags {floor1 wall} - $w create line 78 247 270 247 -fill $color -tags {floor1 wall} - $w create line 307 247 294 247 -fill $color -tags {floor1 wall} - $w create line 214 133 232 133 -fill $color -tags {floor1 wall} - $w create line 217 247 217 266 -fill $color -tags {floor1 wall} - $w create line 217 309 217 291 -fill $color -tags {floor1 wall} - $w create line 217 309 172 309 -fill $color -tags {floor1 wall} - $w create line 154 309 148 309 -fill $color -tags {floor1 wall} - $w create line 175 300 175 309 -fill $color -tags {floor1 wall} - $w create line 151 300 175 300 -fill $color -tags {floor1 wall} - $w create line 151 247 151 309 -fill $color -tags {floor1 wall} - $w create line 78 237 78 265 -fill $color -tags {floor1 wall} - $w create line 78 286 78 309 -fill $color -tags {floor1 wall} - $w create line 106 309 78 309 -fill $color -tags {floor1 wall} - $w create line 130 309 125 309 -fill $color -tags {floor1 wall} - $w create line 99 309 99 247 -fill $color -tags {floor1 wall} - $w create line 127 299 99 299 -fill $color -tags {floor1 wall} - $w create line 127 309 127 299 -fill $color -tags {floor1 wall} - $w create line 155 191 137 191 -fill $color -tags {floor1 wall} - $w create line 137 169 137 191 -fill $color -tags {floor1 wall} - $w create line 78 171 78 169 -fill $color -tags {floor1 wall} - $w create line 78 190 78 218 -fill $color -tags {floor1 wall} - $w create line 86 192 86 169 -fill $color -tags {floor1 wall} - $w create line 86 192 78 192 -fill $color -tags {floor1 wall} - $w create line 52 301 3 301 -fill $color -tags {floor1 wall} - $w create line 52 286 52 301 -fill $color -tags {floor1 wall} - $w create line 52 252 3 252 -fill $color -tags {floor1 wall} - $w create line 52 203 3 203 -fill $color -tags {floor1 wall} - $w create line 3 156 52 156 -fill $color -tags {floor1 wall} - $w create line 8 25 8 114 -fill $color -tags {floor1 wall} - $w create line 63 114 3 114 -fill $color -tags {floor1 wall} - $w create line 75 114 97 114 -fill $color -tags {floor1 wall} - $w create line 108 114 129 114 -fill $color -tags {floor1 wall} - $w create line 129 114 129 89 -fill $color -tags {floor1 wall} - $w create line 52 114 52 128 -fill $color -tags {floor1 wall} - $w create line 132 89 88 89 -fill $color -tags {floor1 wall} - $w create line 88 25 88 89 -fill $color -tags {floor1 wall} - $w create line 88 114 88 89 -fill $color -tags {floor1 wall} - $w create line 218 89 144 89 -fill $color -tags {floor1 wall} - $w create line 147 111 147 129 -fill $color -tags {floor1 wall} - $w create line 162 111 147 111 -fill $color -tags {floor1 wall} - $w create line 162 109 162 111 -fill $color -tags {floor1 wall} - $w create line 162 96 162 89 -fill $color -tags {floor1 wall} - $w create line 218 89 218 94 -fill $color -tags {floor1 wall} - $w create line 218 89 218 119 -fill $color -tags {floor1 wall} - $w create line 8 25 88 25 -fill $color -tags {floor1 wall} - $w create line 258 337 258 328 -fill $color -tags {floor1 wall} - $w create line 113 129 96 129 -fill $color -tags {floor1 wall} - $w create line 302 355 258 355 -fill $color -tags {floor1 wall} - $w create line 386 104 386 129 -fill $color -tags {floor1 wall} - $w create line 377 100 386 104 -fill $color -tags {floor1 wall} - $w create line 365 94 377 100 -fill $color -tags {floor1 wall} - $w create line 350 83 365 94 -fill $color -tags {floor1 wall} - $w create line 337 70 350 83 -fill $color -tags {floor1 wall} - $w create line 337 70 323 56 -fill $color -tags {floor1 wall} - $w create line 312 49 323 56 -fill $color -tags {floor1 wall} - $w create line 295 40 312 49 -fill $color -tags {floor1 wall} - $w create line 282 37 295 40 -fill $color -tags {floor1 wall} - $w create line 260 34 282 37 -fill $color -tags {floor1 wall} - $w create line 253 34 260 34 -fill $color -tags {floor1 wall} - $w create line 386 128 386 104 -fill $color -tags {floor1 wall} - $w create line 113 152 156 152 -fill $color -tags {floor1 wall} - $w create line 113 152 156 152 -fill $color -tags {floor1 wall} - $w create line 113 152 113 129 -fill $color -tags {floor1 wall} -} - -# fg2 -- -# This procedure represents part of the floorplan database. When -# invoked, it instantiates the foreground information for the second -# floor (office outlines and numbers). -# -# Arguments: -# w - The canvas window. -# color - Color to use for drawing foreground information. - -proc fg2 {w color} { - global floorLabels floorItems - set i [$w create polygon 748 188 755 188 755 205 758 205 758 222 800 222 800 168 748 168 -fill {} -tags {floor2 room}] - set floorLabels($i) 238 - set {floorItems(238)} $i - $w create text 774 195 -text 238 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 726 188 746 188 746 166 800 166 800 131 726 131 -fill {} -tags {floor2 room}] - set floorLabels($i) 237 - set {floorItems(237)} $i - $w create text 763 148.5 -text 237 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 497 187 497 204 559 204 559 324 641 324 643 324 643 291 641 291 641 205 696 205 696 291 694 291 694 314 715 314 715 291 715 205 755 205 755 190 724 190 724 187 -fill {} -tags {floor2 room}] - set floorLabels($i) 246 - set {floorItems(246)} $i - $w create text 600 264 -text 246 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 694 279 643 279 643 314 694 314 -fill {} -tags {floor2 room}] - set floorLabels($i) 247 - set {floorItems(247)} $i - $w create text 668.5 296.5 -text 247 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 232 250 308 250 308 242 339 242 339 246 397 246 397 255 476 255 476 250 482 250 559 250 559 274 482 274 482 278 396 278 396 274 232 274 -fill {} -tags {floor2 room}] - set floorLabels($i) 202 - set {floorItems(202)} $i - $w create text 285.5 260 -text 202 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 53 228 53 338 176 338 233 338 233 196 306 196 306 180 175 180 175 169 156 169 156 196 176 196 176 228 -fill {} -tags {floor2 room}] - set floorLabels($i) 206 - set {floorItems(206)} $i - $w create text 143 267 -text 206 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 51 277 6 277 6 338 51 338 -fill {} -tags {floor2 room}] - set floorLabels($i) 212 - set {floorItems(212)} $i - $w create text 28.5 307.5 -text 212 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 557 276 486 276 486 309 510 309 510 325 557 325 -fill {} -tags {floor2 room}] - set floorLabels($i) 245 - set {floorItems(245)} $i - $w create text 521.5 300.5 -text 245 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 560 389 599 389 599 326 560 326 -fill {} -tags {floor2 room}] - set floorLabels($i) 244 - set {floorItems(244)} $i - $w create text 579.5 357.5 -text 244 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 601 389 601 326 643 326 643 389 -fill {} -tags {floor2 room}] - set floorLabels($i) 243 - set {floorItems(243)} $i - $w create text 622 357.5 -text 243 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 688 316 645 316 645 365 688 365 -fill {} -tags {floor2 room}] - set floorLabels($i) 242 - set {floorItems(242)} $i - $w create text 666.5 340.5 -text 242 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 802 367 759 367 759 226 802 226 -fill {} -tags {floor2 room}] - set floorLabels($i) {Barbecue Deck} - set {floorItems(Barbecue Deck)} $i - $w create text 780.5 296.5 -text {Barbecue Deck} -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 755 262 755 314 717 314 717 262 -fill {} -tags {floor2 room}] - set floorLabels($i) 240 - set {floorItems(240)} $i - $w create text 736 288 -text 240 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 755 316 689 316 689 365 755 365 -fill {} -tags {floor2 room}] - set floorLabels($i) 241 - set {floorItems(241)} $i - $w create text 722 340.5 -text 241 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 755 206 717 206 717 261 755 261 -fill {} -tags {floor2 room}] - set floorLabels($i) 239 - set {floorItems(239)} $i - $w create text 736 233.5 -text 239 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 695 277 643 277 643 206 695 206 -fill {} -tags {floor2 room}] - set floorLabels($i) 248 - set {floorItems(248)} $i - $w create text 669 241.5 -text 248 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 676 135 676 185 724 185 724 135 -fill {} -tags {floor2 room}] - set floorLabels($i) 236 - set {floorItems(236)} $i - $w create text 700 160 -text 236 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 675 135 635 135 635 145 628 145 628 185 675 185 -fill {} -tags {floor2 room}] - set floorLabels($i) 235 - set {floorItems(235)} $i - $w create text 651.5 160 -text 235 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 626 143 633 143 633 135 572 135 572 143 579 143 579 185 626 185 -fill {} -tags {floor2 room}] - set floorLabels($i) 234 - set {floorItems(234)} $i - $w create text 606 160 -text 234 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 557 135 571 135 571 145 578 145 578 185 527 185 527 131 557 131 -fill {} -tags {floor2 room}] - set floorLabels($i) 233 - set {floorItems(233)} $i - $w create text 552.5 158 -text 233 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 476 249 557 249 557 205 476 205 -fill {} -tags {floor2 room}] - set floorLabels($i) 230 - set {floorItems(230)} $i - $w create text 516.5 227 -text 230 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 476 164 486 164 486 131 525 131 525 185 476 185 -fill {} -tags {floor2 room}] - set floorLabels($i) 232 - set {floorItems(232)} $i - $w create text 500.5 158 -text 232 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 476 186 495 186 495 204 476 204 -fill {} -tags {floor2 room}] - set floorLabels($i) 229 - set {floorItems(229)} $i - $w create text 485.5 195 -text 229 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 474 207 409 207 409 187 399 187 399 164 474 164 -fill {} -tags {floor2 room}] - set floorLabels($i) 227 - set {floorItems(227)} $i - $w create text 436.5 185.5 -text 227 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 399 228 399 253 474 253 474 209 409 209 409 228 -fill {} -tags {floor2 room}] - set floorLabels($i) 228 - set {floorItems(228)} $i - $w create text 436.5 231 -text 228 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 397 246 397 226 407 226 407 189 377 189 377 246 -fill {} -tags {floor2 room}] - set floorLabels($i) 226 - set {floorItems(226)} $i - $w create text 392 217.5 -text 226 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 377 169 316 169 316 131 397 131 397 188 377 188 -fill {} -tags {floor2 room}] - set floorLabels($i) 225 - set {floorItems(225)} $i - $w create text 356.5 150 -text 225 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 234 198 306 198 306 249 234 249 -fill {} -tags {floor2 room}] - set floorLabels($i) 224 - set {floorItems(224)} $i - $w create text 270 223.5 -text 224 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 270 179 306 179 306 170 314 170 314 135 270 135 -fill {} -tags {floor2 room}] - set floorLabels($i) 223 - set {floorItems(223)} $i - $w create text 292 157 -text 223 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 268 179 221 179 221 135 268 135 -fill {} -tags {floor2 room}] - set floorLabels($i) 222 - set {floorItems(222)} $i - $w create text 244.5 157 -text 222 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 177 179 219 179 219 135 177 135 -fill {} -tags {floor2 room}] - set floorLabels($i) 221 - set {floorItems(221)} $i - $w create text 198 157 -text 221 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 299 327 349 327 349 284 341 284 341 276 299 276 -fill {} -tags {floor2 room}] - set floorLabels($i) 204 - set {floorItems(204)} $i - $w create text 324 301.5 -text 204 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 234 276 297 276 297 327 257 327 257 338 234 338 -fill {} -tags {floor2 room}] - set floorLabels($i) 205 - set {floorItems(205)} $i - $w create text 265.5 307 -text 205 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 256 385 256 340 212 340 212 385 -fill {} -tags {floor2 room}] - set floorLabels($i) 207 - set {floorItems(207)} $i - $w create text 234 362.5 -text 207 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 210 340 164 340 164 385 210 385 -fill {} -tags {floor2 room}] - set floorLabels($i) 208 - set {floorItems(208)} $i - $w create text 187 362.5 -text 208 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 115 340 162 340 162 385 115 385 -fill {} -tags {floor2 room}] - set floorLabels($i) 209 - set {floorItems(209)} $i - $w create text 138.5 362.5 -text 209 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 89 228 89 156 53 156 53 228 -fill {} -tags {floor2 room}] - set floorLabels($i) 217 - set {floorItems(217)} $i - $w create text 71 192 -text 217 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 89 169 97 169 97 190 89 190 -fill {} -tags {floor2 room}] - set floorLabels($i) 217A - set {floorItems(217A)} $i - $w create text 93 179.5 -text 217A -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 89 156 89 168 95 168 95 135 53 135 53 156 -fill {} -tags {floor2 room}] - set floorLabels($i) 216 - set {floorItems(216)} $i - $w create text 71 145.5 -text 216 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 51 179 51 135 6 135 6 179 -fill {} -tags {floor2 room}] - set floorLabels($i) 215 - set {floorItems(215)} $i - $w create text 28.5 157 -text 215 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 51 227 6 227 6 180 51 180 -fill {} -tags {floor2 room}] - set floorLabels($i) 214 - set {floorItems(214)} $i - $w create text 28.5 203.5 -text 214 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 51 275 6 275 6 229 51 229 -fill {} -tags {floor2 room}] - set floorLabels($i) 213 - set {floorItems(213)} $i - $w create text 28.5 252 -text 213 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 114 340 67 340 67 385 114 385 -fill {} -tags {floor2 room}] - set floorLabels($i) 210 - set {floorItems(210)} $i - $w create text 90.5 362.5 -text 210 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 59 389 59 385 65 385 65 340 1 340 1 389 -fill {} -tags {floor2 room}] - set floorLabels($i) 211 - set {floorItems(211)} $i - $w create text 33 364.5 -text 211 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 393 309 350 309 350 282 342 282 342 276 393 276 -fill {} -tags {floor2 room}] - set floorLabels($i) 203 - set {floorItems(203)} $i - $w create text 367.5 292.5 -text 203 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 99 191 91 191 91 226 174 226 174 198 154 198 154 192 109 192 109 169 99 169 -fill {} -tags {floor2 room}] - set floorLabels($i) 220 - set {floorItems(220)} $i - $w create text 132.5 208.5 -text 220 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 339 205 307 205 307 171 339 171 -fill {} -tags {floor2 room}] - set floorLabels($i) {Priv Lift2} - set {floorItems(Priv Lift2)} $i - $w create text 323 188 -text {Priv Lift2} -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 307 240 339 240 339 206 307 206 -fill {} -tags {floor2 room}] - set floorLabels($i) {Pub Lift 2} - set {floorItems(Pub Lift 2)} $i - $w create text 323 223 -text {Pub Lift 2} -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 175 168 97 168 97 131 175 131 -fill {} -tags {floor2 room}] - set floorLabels($i) 218 - set {floorItems(218)} $i - $w create text 136 149.5 -text 218 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 154 191 111 191 111 169 154 169 -fill {} -tags {floor2 room}] - set floorLabels($i) 219 - set {floorItems(219)} $i - $w create text 132.5 180 -text 219 -fill $color -anchor c -tags {floor2 label} - set i [$w create polygon 375 246 375 172 341 172 341 246 -fill {} -tags {floor2 room}] - set floorLabels($i) 201 - set {floorItems(201)} $i - $w create text 358 209 -text 201 -fill $color -anchor c -tags {floor2 label} - $w create line 641 186 678 186 -fill $color -tags {floor2 wall} - $w create line 757 350 757 367 -fill $color -tags {floor2 wall} - $w create line 634 133 634 144 -fill $color -tags {floor2 wall} - $w create line 634 144 627 144 -fill $color -tags {floor2 wall} - $w create line 572 133 572 144 -fill $color -tags {floor2 wall} - $w create line 572 144 579 144 -fill $color -tags {floor2 wall} - $w create line 398 129 398 162 -fill $color -tags {floor2 wall} - $w create line 174 197 175 197 -fill $color -tags {floor2 wall} - $w create line 175 197 175 227 -fill $color -tags {floor2 wall} - $w create line 757 206 757 221 -fill $color -tags {floor2 wall} - $w create line 396 188 408 188 -fill $color -tags {floor2 wall} - $w create line 727 189 725 189 -fill $color -tags {floor2 wall} - $w create line 747 167 802 167 -fill $color -tags {floor2 wall} - $w create line 747 167 747 189 -fill $color -tags {floor2 wall} - $w create line 755 189 739 189 -fill $color -tags {floor2 wall} - $w create line 769 224 757 224 -fill $color -tags {floor2 wall} - $w create line 802 224 802 129 -fill $color -tags {floor2 wall} - $w create line 802 129 725 129 -fill $color -tags {floor2 wall} - $w create line 725 189 725 129 -fill $color -tags {floor2 wall} - $w create line 725 186 690 186 -fill $color -tags {floor2 wall} - $w create line 676 133 676 186 -fill $color -tags {floor2 wall} - $w create line 627 144 627 186 -fill $color -tags {floor2 wall} - $w create line 629 186 593 186 -fill $color -tags {floor2 wall} - $w create line 579 144 579 186 -fill $color -tags {floor2 wall} - $w create line 559 129 559 133 -fill $color -tags {floor2 wall} - $w create line 725 133 559 133 -fill $color -tags {floor2 wall} - $w create line 484 162 484 129 -fill $color -tags {floor2 wall} - $w create line 559 129 484 129 -fill $color -tags {floor2 wall} - $w create line 526 129 526 186 -fill $color -tags {floor2 wall} - $w create line 540 186 581 186 -fill $color -tags {floor2 wall} - $w create line 528 186 523 186 -fill $color -tags {floor2 wall} - $w create line 511 186 475 186 -fill $color -tags {floor2 wall} - $w create line 496 190 496 186 -fill $color -tags {floor2 wall} - $w create line 496 205 496 202 -fill $color -tags {floor2 wall} - $w create line 475 205 527 205 -fill $color -tags {floor2 wall} - $w create line 558 205 539 205 -fill $color -tags {floor2 wall} - $w create line 558 205 558 249 -fill $color -tags {floor2 wall} - $w create line 558 249 475 249 -fill $color -tags {floor2 wall} - $w create line 662 206 642 206 -fill $color -tags {floor2 wall} - $w create line 695 206 675 206 -fill $color -tags {floor2 wall} - $w create line 695 278 642 278 -fill $color -tags {floor2 wall} - $w create line 642 291 642 206 -fill $color -tags {floor2 wall} - $w create line 695 291 695 206 -fill $color -tags {floor2 wall} - $w create line 716 208 716 206 -fill $color -tags {floor2 wall} - $w create line 757 206 716 206 -fill $color -tags {floor2 wall} - $w create line 757 221 757 224 -fill $color -tags {floor2 wall} - $w create line 793 224 802 224 -fill $color -tags {floor2 wall} - $w create line 757 262 716 262 -fill $color -tags {floor2 wall} - $w create line 716 220 716 264 -fill $color -tags {floor2 wall} - $w create line 716 315 716 276 -fill $color -tags {floor2 wall} - $w create line 757 315 703 315 -fill $color -tags {floor2 wall} - $w create line 757 325 757 224 -fill $color -tags {floor2 wall} - $w create line 757 367 644 367 -fill $color -tags {floor2 wall} - $w create line 689 367 689 315 -fill $color -tags {floor2 wall} - $w create line 647 315 644 315 -fill $color -tags {floor2 wall} - $w create line 659 315 691 315 -fill $color -tags {floor2 wall} - $w create line 600 325 600 391 -fill $color -tags {floor2 wall} - $w create line 627 325 644 325 -fill $color -tags {floor2 wall} - $w create line 644 391 644 315 -fill $color -tags {floor2 wall} - $w create line 615 325 575 325 -fill $color -tags {floor2 wall} - $w create line 644 391 558 391 -fill $color -tags {floor2 wall} - $w create line 563 325 558 325 -fill $color -tags {floor2 wall} - $w create line 558 391 558 314 -fill $color -tags {floor2 wall} - $w create line 558 327 508 327 -fill $color -tags {floor2 wall} - $w create line 558 275 484 275 -fill $color -tags {floor2 wall} - $w create line 558 302 558 275 -fill $color -tags {floor2 wall} - $w create line 508 327 508 311 -fill $color -tags {floor2 wall} - $w create line 484 311 508 311 -fill $color -tags {floor2 wall} - $w create line 484 275 484 311 -fill $color -tags {floor2 wall} - $w create line 475 208 408 208 -fill $color -tags {floor2 wall} - $w create line 408 206 408 210 -fill $color -tags {floor2 wall} - $w create line 408 222 408 227 -fill $color -tags {floor2 wall} - $w create line 408 227 398 227 -fill $color -tags {floor2 wall} - $w create line 398 227 398 254 -fill $color -tags {floor2 wall} - $w create line 408 188 408 194 -fill $color -tags {floor2 wall} - $w create line 383 188 376 188 -fill $color -tags {floor2 wall} - $w create line 398 188 398 162 -fill $color -tags {floor2 wall} - $w create line 398 162 484 162 -fill $color -tags {floor2 wall} - $w create line 475 162 475 254 -fill $color -tags {floor2 wall} - $w create line 398 254 475 254 -fill $color -tags {floor2 wall} - $w create line 484 280 395 280 -fill $color -tags {floor2 wall} - $w create line 395 311 395 275 -fill $color -tags {floor2 wall} - $w create line 307 197 293 197 -fill $color -tags {floor2 wall} - $w create line 278 197 233 197 -fill $color -tags {floor2 wall} - $w create line 233 197 233 249 -fill $color -tags {floor2 wall} - $w create line 307 179 284 179 -fill $color -tags {floor2 wall} - $w create line 233 249 278 249 -fill $color -tags {floor2 wall} - $w create line 269 179 269 133 -fill $color -tags {floor2 wall} - $w create line 220 179 220 133 -fill $color -tags {floor2 wall} - $w create line 155 191 110 191 -fill $color -tags {floor2 wall} - $w create line 90 190 98 190 -fill $color -tags {floor2 wall} - $w create line 98 169 98 190 -fill $color -tags {floor2 wall} - $w create line 52 133 52 165 -fill $color -tags {floor2 wall} - $w create line 52 214 52 177 -fill $color -tags {floor2 wall} - $w create line 52 226 52 262 -fill $color -tags {floor2 wall} - $w create line 52 274 52 276 -fill $color -tags {floor2 wall} - $w create line 234 275 234 339 -fill $color -tags {floor2 wall} - $w create line 226 339 258 339 -fill $color -tags {floor2 wall} - $w create line 211 387 211 339 -fill $color -tags {floor2 wall} - $w create line 214 339 177 339 -fill $color -tags {floor2 wall} - $w create line 258 387 60 387 -fill $color -tags {floor2 wall} - $w create line 3 133 3 339 -fill $color -tags {floor2 wall} - $w create line 165 339 129 339 -fill $color -tags {floor2 wall} - $w create line 117 339 80 339 -fill $color -tags {floor2 wall} - $w create line 68 339 59 339 -fill $color -tags {floor2 wall} - $w create line 0 339 46 339 -fill $color -tags {floor2 wall} - $w create line 60 391 0 391 -fill $color -tags {floor2 wall} - $w create line 0 339 0 391 -fill $color -tags {floor2 wall} - $w create line 60 387 60 391 -fill $color -tags {floor2 wall} - $w create line 258 329 258 387 -fill $color -tags {floor2 wall} - $w create line 350 329 258 329 -fill $color -tags {floor2 wall} - $w create line 395 311 350 311 -fill $color -tags {floor2 wall} - $w create line 398 129 315 129 -fill $color -tags {floor2 wall} - $w create line 176 133 315 133 -fill $color -tags {floor2 wall} - $w create line 176 129 96 129 -fill $color -tags {floor2 wall} - $w create line 3 133 96 133 -fill $color -tags {floor2 wall} - $w create line 66 387 66 339 -fill $color -tags {floor2 wall} - $w create line 115 387 115 339 -fill $color -tags {floor2 wall} - $w create line 163 387 163 339 -fill $color -tags {floor2 wall} - $w create line 234 275 276 275 -fill $color -tags {floor2 wall} - $w create line 288 275 309 275 -fill $color -tags {floor2 wall} - $w create line 298 275 298 329 -fill $color -tags {floor2 wall} - $w create line 341 283 350 283 -fill $color -tags {floor2 wall} - $w create line 321 275 341 275 -fill $color -tags {floor2 wall} - $w create line 375 275 395 275 -fill $color -tags {floor2 wall} - $w create line 315 129 315 170 -fill $color -tags {floor2 wall} - $w create line 376 170 307 170 -fill $color -tags {floor2 wall} - $w create line 307 250 307 170 -fill $color -tags {floor2 wall} - $w create line 376 245 376 170 -fill $color -tags {floor2 wall} - $w create line 340 241 307 241 -fill $color -tags {floor2 wall} - $w create line 340 245 340 224 -fill $color -tags {floor2 wall} - $w create line 340 210 340 201 -fill $color -tags {floor2 wall} - $w create line 340 187 340 170 -fill $color -tags {floor2 wall} - $w create line 340 206 307 206 -fill $color -tags {floor2 wall} - $w create line 293 250 307 250 -fill $color -tags {floor2 wall} - $w create line 271 179 238 179 -fill $color -tags {floor2 wall} - $w create line 226 179 195 179 -fill $color -tags {floor2 wall} - $w create line 176 129 176 179 -fill $color -tags {floor2 wall} - $w create line 182 179 176 179 -fill $color -tags {floor2 wall} - $w create line 174 169 176 169 -fill $color -tags {floor2 wall} - $w create line 162 169 90 169 -fill $color -tags {floor2 wall} - $w create line 96 169 96 129 -fill $color -tags {floor2 wall} - $w create line 175 227 90 227 -fill $color -tags {floor2 wall} - $w create line 90 190 90 227 -fill $color -tags {floor2 wall} - $w create line 52 179 3 179 -fill $color -tags {floor2 wall} - $w create line 52 228 3 228 -fill $color -tags {floor2 wall} - $w create line 52 276 3 276 -fill $color -tags {floor2 wall} - $w create line 155 177 155 169 -fill $color -tags {floor2 wall} - $w create line 110 191 110 169 -fill $color -tags {floor2 wall} - $w create line 155 189 155 197 -fill $color -tags {floor2 wall} - $w create line 350 283 350 329 -fill $color -tags {floor2 wall} - $w create line 162 197 155 197 -fill $color -tags {floor2 wall} - $w create line 341 275 341 283 -fill $color -tags {floor2 wall} -} - -# fg3 -- -# This procedure represents part of the floorplan database. When -# invoked, it instantiates the foreground information for the third -# floor (office outlines and numbers). -# -# Arguments: -# w - The canvas window. -# color - Color to use for drawing foreground information. - -proc fg3 {w color} { - global floorLabels floorItems - set i [$w create polygon 89 228 89 180 70 180 70 228 -fill {} -tags {floor3 room}] - set floorLabels($i) 316 - set {floorItems(316)} $i - $w create text 79.5 204 -text 316 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 115 368 162 368 162 323 115 323 -fill {} -tags {floor3 room}] - set floorLabels($i) 309 - set {floorItems(309)} $i - $w create text 138.5 345.5 -text 309 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 164 323 164 368 211 368 211 323 -fill {} -tags {floor3 room}] - set floorLabels($i) 308 - set {floorItems(308)} $i - $w create text 187.5 345.5 -text 308 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 256 368 212 368 212 323 256 323 -fill {} -tags {floor3 room}] - set floorLabels($i) 307 - set {floorItems(307)} $i - $w create text 234 345.5 -text 307 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 244 276 297 276 297 327 260 327 260 321 244 321 -fill {} -tags {floor3 room}] - set floorLabels($i) 305 - set {floorItems(305)} $i - $w create text 270.5 301.5 -text 305 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 251 219 251 203 244 203 244 219 -fill {} -tags {floor3 room}] - set floorLabels($i) 324B - set {floorItems(324B)} $i - $w create text 247.5 211 -text 324B -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 251 249 244 249 244 232 251 232 -fill {} -tags {floor3 room}] - set floorLabels($i) 324A - set {floorItems(324A)} $i - $w create text 247.5 240.5 -text 324A -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 223 135 223 179 177 179 177 135 -fill {} -tags {floor3 room}] - set floorLabels($i) 320 - set {floorItems(320)} $i - $w create text 200 157 -text 320 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 114 368 114 323 67 323 67 368 -fill {} -tags {floor3 room}] - set floorLabels($i) 310 - set {floorItems(310)} $i - $w create text 90.5 345.5 -text 310 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 23 277 23 321 68 321 68 277 -fill {} -tags {floor3 room}] - set floorLabels($i) 312 - set {floorItems(312)} $i - $w create text 45.5 299 -text 312 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 23 229 68 229 68 275 23 275 -fill {} -tags {floor3 room}] - set floorLabels($i) 313 - set {floorItems(313)} $i - $w create text 45.5 252 -text 313 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 68 227 23 227 23 180 68 180 -fill {} -tags {floor3 room}] - set floorLabels($i) 314 - set {floorItems(314)} $i - $w create text 45.5 203.5 -text 314 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 95 179 95 135 23 135 23 179 -fill {} -tags {floor3 room}] - set floorLabels($i) 315 - set {floorItems(315)} $i - $w create text 59 157 -text 315 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 99 226 99 204 91 204 91 226 -fill {} -tags {floor3 room}] - set floorLabels($i) 316B - set {floorItems(316B)} $i - $w create text 95 215 -text 316B -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 91 202 99 202 99 180 91 180 -fill {} -tags {floor3 room}] - set floorLabels($i) 316A - set {floorItems(316A)} $i - $w create text 95 191 -text 316A -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 97 169 109 169 109 192 154 192 154 198 174 198 174 226 101 226 101 179 97 179 -fill {} -tags {floor3 room}] - set floorLabels($i) 319 - set {floorItems(319)} $i - $w create text 141.5 209 -text 319 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 65 368 58 368 58 389 1 389 1 333 23 333 23 323 65 323 -fill {} -tags {floor3 room}] - set floorLabels($i) 311 - set {floorItems(311)} $i - $w create text 29.5 361 -text 311 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 154 191 111 191 111 169 154 169 -fill {} -tags {floor3 room}] - set floorLabels($i) 318 - set {floorItems(318)} $i - $w create text 132.5 180 -text 318 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 175 168 97 168 97 131 175 131 -fill {} -tags {floor3 room}] - set floorLabels($i) 317 - set {floorItems(317)} $i - $w create text 136 149.5 -text 317 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 274 194 274 221 306 221 306 194 -fill {} -tags {floor3 room}] - set floorLabels($i) 323 - set {floorItems(323)} $i - $w create text 290 207.5 -text 323 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 306 222 274 222 274 249 306 249 -fill {} -tags {floor3 room}] - set floorLabels($i) 325 - set {floorItems(325)} $i - $w create text 290 235.5 -text 325 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 263 179 224 179 224 135 263 135 -fill {} -tags {floor3 room}] - set floorLabels($i) 321 - set {floorItems(321)} $i - $w create text 243.5 157 -text 321 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 314 169 306 169 306 192 273 192 264 181 264 135 314 135 -fill {} -tags {floor3 room}] - set floorLabels($i) 322 - set {floorItems(322)} $i - $w create text 293.5 163.5 -text 322 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 307 240 339 240 339 206 307 206 -fill {} -tags {floor3 room}] - set floorLabels($i) {Pub Lift3} - set {floorItems(Pub Lift3)} $i - $w create text 323 223 -text {Pub Lift3} -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 339 205 307 205 307 171 339 171 -fill {} -tags {floor3 room}] - set floorLabels($i) {Priv Lift3} - set {floorItems(Priv Lift3)} $i - $w create text 323 188 -text {Priv Lift3} -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 350 284 376 284 376 276 397 276 397 309 350 309 -fill {} -tags {floor3 room}] - set floorLabels($i) 303 - set {floorItems(303)} $i - $w create text 373.5 292.5 -text 303 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 272 203 272 249 252 249 252 230 244 230 244 221 252 221 252 203 -fill {} -tags {floor3 room}] - set floorLabels($i) 324 - set {floorItems(324)} $i - $w create text 262 226 -text 324 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 299 276 299 327 349 327 349 284 341 284 341 276 -fill {} -tags {floor3 room}] - set floorLabels($i) 304 - set {floorItems(304)} $i - $w create text 324 301.5 -text 304 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 375 246 375 172 341 172 341 246 -fill {} -tags {floor3 room}] - set floorLabels($i) 301 - set {floorItems(301)} $i - $w create text 358 209 -text 301 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 397 246 377 246 377 185 397 185 -fill {} -tags {floor3 room}] - set floorLabels($i) 327 - set {floorItems(327)} $i - $w create text 387 215.5 -text 327 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 316 131 316 169 377 169 377 185 397 185 397 131 -fill {} -tags {floor3 room}] - set floorLabels($i) 326 - set {floorItems(326)} $i - $w create text 356.5 150 -text 326 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 308 251 242 251 242 274 342 274 342 282 375 282 375 274 397 274 397 248 339 248 339 242 308 242 -fill {} -tags {floor3 room}] - set floorLabels($i) 302 - set {floorItems(302)} $i - $w create text 319.5 261 -text 302 -fill $color -anchor c -tags {floor3 label} - set i [$w create polygon 70 321 242 321 242 200 259 200 259 203 272 203 272 193 263 180 242 180 175 180 175 169 156 169 156 196 177 196 177 228 107 228 70 228 70 275 107 275 107 248 160 248 160 301 107 301 107 275 70 275 -fill {} -tags {floor3 room}] - set floorLabels($i) 306 - set {floorItems(306)} $i - $w create text 200.5 284.5 -text 306 -fill $color -anchor c -tags {floor3 label} - $w create line 341 275 341 283 -fill $color -tags {floor3 wall} - $w create line 162 197 155 197 -fill $color -tags {floor3 wall} - $w create line 396 247 399 247 -fill $color -tags {floor3 wall} - $w create line 399 129 399 311 -fill $color -tags {floor3 wall} - $w create line 258 202 243 202 -fill $color -tags {floor3 wall} - $w create line 350 283 350 329 -fill $color -tags {floor3 wall} - $w create line 251 231 243 231 -fill $color -tags {floor3 wall} - $w create line 243 220 251 220 -fill $color -tags {floor3 wall} - $w create line 243 250 243 202 -fill $color -tags {floor3 wall} - $w create line 155 197 155 190 -fill $color -tags {floor3 wall} - $w create line 110 192 110 169 -fill $color -tags {floor3 wall} - $w create line 155 192 110 192 -fill $color -tags {floor3 wall} - $w create line 155 177 155 169 -fill $color -tags {floor3 wall} - $w create line 176 197 176 227 -fill $color -tags {floor3 wall} - $w create line 69 280 69 274 -fill $color -tags {floor3 wall} - $w create line 21 276 69 276 -fill $color -tags {floor3 wall} - $w create line 69 262 69 226 -fill $color -tags {floor3 wall} - $w create line 21 228 69 228 -fill $color -tags {floor3 wall} - $w create line 21 179 75 179 -fill $color -tags {floor3 wall} - $w create line 69 179 69 214 -fill $color -tags {floor3 wall} - $w create line 90 220 90 227 -fill $color -tags {floor3 wall} - $w create line 90 204 90 202 -fill $color -tags {floor3 wall} - $w create line 90 203 100 203 -fill $color -tags {floor3 wall} - $w create line 90 187 90 179 -fill $color -tags {floor3 wall} - $w create line 90 227 176 227 -fill $color -tags {floor3 wall} - $w create line 100 179 100 227 -fill $color -tags {floor3 wall} - $w create line 100 179 87 179 -fill $color -tags {floor3 wall} - $w create line 96 179 96 129 -fill $color -tags {floor3 wall} - $w create line 162 169 96 169 -fill $color -tags {floor3 wall} - $w create line 173 169 176 169 -fill $color -tags {floor3 wall} - $w create line 182 179 176 179 -fill $color -tags {floor3 wall} - $w create line 176 129 176 179 -fill $color -tags {floor3 wall} - $w create line 195 179 226 179 -fill $color -tags {floor3 wall} - $w create line 224 133 224 179 -fill $color -tags {floor3 wall} - $w create line 264 179 264 133 -fill $color -tags {floor3 wall} - $w create line 238 179 264 179 -fill $color -tags {floor3 wall} - $w create line 273 207 273 193 -fill $color -tags {floor3 wall} - $w create line 273 235 273 250 -fill $color -tags {floor3 wall} - $w create line 273 224 273 219 -fill $color -tags {floor3 wall} - $w create line 273 193 307 193 -fill $color -tags {floor3 wall} - $w create line 273 222 307 222 -fill $color -tags {floor3 wall} - $w create line 273 250 307 250 -fill $color -tags {floor3 wall} - $w create line 384 247 376 247 -fill $color -tags {floor3 wall} - $w create line 340 206 307 206 -fill $color -tags {floor3 wall} - $w create line 340 187 340 170 -fill $color -tags {floor3 wall} - $w create line 340 210 340 201 -fill $color -tags {floor3 wall} - $w create line 340 247 340 224 -fill $color -tags {floor3 wall} - $w create line 340 241 307 241 -fill $color -tags {floor3 wall} - $w create line 376 247 376 170 -fill $color -tags {floor3 wall} - $w create line 307 250 307 170 -fill $color -tags {floor3 wall} - $w create line 376 170 307 170 -fill $color -tags {floor3 wall} - $w create line 315 129 315 170 -fill $color -tags {floor3 wall} - $w create line 376 283 366 283 -fill $color -tags {floor3 wall} - $w create line 376 283 376 275 -fill $color -tags {floor3 wall} - $w create line 399 275 376 275 -fill $color -tags {floor3 wall} - $w create line 341 275 320 275 -fill $color -tags {floor3 wall} - $w create line 341 283 350 283 -fill $color -tags {floor3 wall} - $w create line 298 275 298 329 -fill $color -tags {floor3 wall} - $w create line 308 275 298 275 -fill $color -tags {floor3 wall} - $w create line 243 322 243 275 -fill $color -tags {floor3 wall} - $w create line 243 275 284 275 -fill $color -tags {floor3 wall} - $w create line 258 322 226 322 -fill $color -tags {floor3 wall} - $w create line 212 370 212 322 -fill $color -tags {floor3 wall} - $w create line 214 322 177 322 -fill $color -tags {floor3 wall} - $w create line 163 370 163 322 -fill $color -tags {floor3 wall} - $w create line 165 322 129 322 -fill $color -tags {floor3 wall} - $w create line 84 322 117 322 -fill $color -tags {floor3 wall} - $w create line 71 322 64 322 -fill $color -tags {floor3 wall} - $w create line 115 322 115 370 -fill $color -tags {floor3 wall} - $w create line 66 322 66 370 -fill $color -tags {floor3 wall} - $w create line 52 322 21 322 -fill $color -tags {floor3 wall} - $w create line 21 331 0 331 -fill $color -tags {floor3 wall} - $w create line 21 331 21 133 -fill $color -tags {floor3 wall} - $w create line 96 133 21 133 -fill $color -tags {floor3 wall} - $w create line 176 129 96 129 -fill $color -tags {floor3 wall} - $w create line 315 133 176 133 -fill $color -tags {floor3 wall} - $w create line 315 129 399 129 -fill $color -tags {floor3 wall} - $w create line 399 311 350 311 -fill $color -tags {floor3 wall} - $w create line 350 329 258 329 -fill $color -tags {floor3 wall} - $w create line 258 322 258 370 -fill $color -tags {floor3 wall} - $w create line 60 370 258 370 -fill $color -tags {floor3 wall} - $w create line 60 370 60 391 -fill $color -tags {floor3 wall} - $w create line 0 391 0 331 -fill $color -tags {floor3 wall} - $w create line 60 391 0 391 -fill $color -tags {floor3 wall} - $w create line 307 250 307 242 -fill $color -tags {floor3 wall} - $w create line 273 250 307 250 -fill $color -tags {floor3 wall} - $w create line 258 250 243 250 -fill $color -tags {floor3 wall} -} - -# Below is the "main program" that creates the floorplan demonstration. - -set w .floor -global c currentRoom colors activeFloor -catch {destroy $w} -toplevel $w -wm title $w "Floorplan Canvas Demonstration" -wm iconname $w "Floorplan" -wm geometry $w +20+20 -wm minsize $w 100 100 - -label $w.msg -font $font -wraplength 8i -justify left -text "This window contains a canvas widget showing the floorplan of Digital Equipment Corporation's Western Research Laboratory. It has three levels. At any given time one of the levels is active, meaning that you can see its room structure. To activate a level, click the left mouse button anywhere on it. As the mouse moves over the active level, the room under the mouse lights up and its room number appears in the \"Room:\" entry. You can also type a room number in the entry and the room will light up." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -set f [frame $w.frame] -pack $f -side top -fill both -expand yes -set h [scrollbar $f.hscroll -orient horizontal] -set v [scrollbar $f.vscroll -orient vertical] -set f1 [frame $f.f1 -borderwidth 2 -relief sunken] -set c [canvas $f1.c -width 900 -height 500 -highlightthickness 0 \ - -xscrollcommand [list $h set] \ - -yscrollcommand [list $v set]] -pack $c -expand yes -fill both -grid $f1 -padx 1 -pady 1 -row 0 -column 0 -rowspan 1 -columnspan 1 -sticky news -grid $v -padx 1 -pady 1 -row 0 -column 1 -rowspan 1 -columnspan 1 -sticky news -grid $h -padx 1 -pady 1 -row 1 -column 0 -rowspan 1 -columnspan 1 -sticky news -grid rowconfig $f 0 -weight 1 -minsize 0 -grid columnconfig $f 0 -weight 1 -minsize 0 -pack $f -expand yes -fill both -padx 1 -pady 1 - -$v configure -command [list $c yview] -$h configure -command [list $c xview] - -# Create an entry for displaying and typing in current room. - -entry $c.entry -width 10 -textvariable currentRoom - -# Choose colors, then fill in the floorplan. - -if {[winfo depth $c] > 1} { - set colors(bg1) #a9c1da - set colors(outline1) #77889a - set colors(bg2) #9ab0c6 - set colors(outline2) #687786 - set colors(bg3) #8ba0b3 - set colors(outline3) #596673 - set colors(offices) Black - set colors(active) #c4d1df -} else { - set colors(bg1) white - set colors(outline1) black - set colors(bg2) white - set colors(outline2) black - set colors(bg3) white - set colors(outline3) black - set colors(offices) Black - set colors(active) black -} -set activeFloor "" -floorDisplay $c 3 - -# Set up event bindings for canvas: - -$c bind floor1 <1> "floorDisplay $c 1" -$c bind floor2 <1> "floorDisplay $c 2" -$c bind floor3 <1> "floorDisplay $c 3" -$c bind room "newRoom $c" -$c bind room {set currentRoom ""} -bind $c <2> "$c scan mark %x %y" -bind $c "$c scan dragto %x %y" -bind $c "unset currentRoom" -set currentRoom "" -trace variable currentRoom w "roomChanged $c" diff --git a/mingw/lib/tk8.5/demos/form.tcl b/mingw/lib/tk8.5/demos/form.tcl deleted file mode 100644 index 999c7cf6ec..0000000000 --- a/mingw/lib/tk8.5/demos/form.tcl +++ /dev/null @@ -1,40 +0,0 @@ -# form.tcl -- -# -# This demonstration script creates a simple form with a bunch -# of entry widgets. -# -# RCS: @(#) $Id: form.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .form -catch {destroy $w} -toplevel $w -wm title $w "Form Demonstration" -wm iconname $w "form" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "This window contains a simple form where you can type in the various entries and use tabs to move circularly between the entries." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -foreach i {f1 f2 f3 f4 f5} { - frame $w.$i -bd 2 - entry $w.$i.entry -relief sunken -width 40 - label $w.$i.label - pack $w.$i.entry -side right - pack $w.$i.label -side left -} -$w.f1.label config -text Name: -$w.f2.label config -text Address: -$w.f5.label config -text Phone: -pack $w.msg $w.f1 $w.f2 $w.f3 $w.f4 $w.f5 -side top -fill x -bind $w "destroy $w" -focus $w.f1.entry diff --git a/mingw/lib/tk8.5/demos/goldberg.tcl b/mingw/lib/tk8.5/demos/goldberg.tcl deleted file mode 100644 index 284b5c2e52..0000000000 --- a/mingw/lib/tk8.5/demos/goldberg.tcl +++ /dev/null @@ -1,1833 +0,0 @@ -##+################################################################# -# -# TkGoldberg.tcl -# by Keith Vetter, March 13, 2003 -# -# "Man will always find a difficult means to perform a simple task" -# Rube Goldberg -# -# Reproduced here with permission. -# -##+################################################################# -# -# Keith Vetter 2003-03-21: this started out as a simple little program -# but was so much fun that it grew and grew. So I apologize about the -# size but I just couldn't resist sharing it. -# -# This is a whizzlet that does a Rube Goldberg type animation, the -# design of which comes from an New Years e-card from IncrediMail. -# That version had nice sound effects which I eschewed. On the other -# hand, that version was in black and white (actually dark blue and -# light blue) and this one is fully colorized. -# -# One thing I learned from this project is that drawing filled complex -# objects on a canvas is really hard. More often than not I had to -# draw each item twice--once with the desired fill color but no -# outline, and once with no fill but with the outline. Another trick -# is erasing by drawing with the background color. Having a flood fill -# command would have been extremely helpful. -# -# Two wiki pages were extremely helpful: Drawing rounded rectangles -# which I generalized into Drawing rounded polygons, and regular -# polygons which allowed me to convert ovals and arcs into polygons -# which could then be rotated (see Canvas Rotation). I also wrote -# Named Colors to aid in the color selection. -# -# I could comment on the code, but it's just 26 state machines with -# lots of canvas create and move calls. - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .goldberg -catch {destroy $w} -toplevel $w -wm title $w "Tk Goldberg (demonstration)" -wm iconname $w "goldberg" -wm resizable $w 0 0 -#positionWindow $w - -label $w.msg -font {Arial 10} -wraplength 4i -justify left -text "This is a\ - demonstration of just how complex you can make your animations\ - become. Click the ball to start things moving!\n\n\"Man will always\ - find a difficult means to perform a simple task\"\n - Rube Goldberg" -pack $w.msg -side top - -###--- End of Boilerplate ---### - -# Ensure that this this is an array -array set animationCallbacks {} -bind $w { - if {"%W" eq [winfo toplevel %W]} { - unset S C speed - } -} - -set S(title) "Tk Goldberg" -set S(speed) 5 -set S(cnt) 0 -set S(message) "\\nWelcome\\nto\\nTcl/Tk" -array set speed {1 10 2 20 3 50 4 80 5 100 6 150 7 200 8 300 9 400 10 500} - -set MSTART 0; set MGO 1; set MPAUSE 2; set MSSTEP 3; set MBSTEP 4; set MDONE 5 -set S(mode) $::MSTART - -# Colors for everything -set C(fg) black -set C(bg) gray75 -set C(bg) cornflowerblue - -set C(0) white; set C(1a) darkgreen; set C(1b) yellow -set C(2) red; set C(3a) green; set C(3b) darkblue -set C(4) $C(fg); set C(5a) brown; set C(5b) white -set C(6) magenta; set C(7) green; set C(8) $C(fg) -set C(9) blue4; set C(10a) white; set C(10b) cyan -set C(11a) yellow; set C(11b) mediumblue; set C(12) tan2 -set C(13a) yellow; set C(13b) red; set C(14) white -set C(15a) green; set C(15b) yellow; set C(16) gray65 -set C(17) \#A65353; set C(18) $C(fg); set C(19) gray50 -set C(20) cyan; set C(21) gray65; set C(22) $C(20) -set C(23a) blue; set C(23b) red; set C(23c) yellow -set C(24a) red; set C(24b) white; - -proc DoDisplay {w} { - global S C - - ttk::frame $w.ctrl -relief ridge -borderwidth 2 -padding 5 - pack [frame $w.screen -bd 2 -relief raised] \ - -side left -fill both -expand 1 - - canvas $w.c -width 860 -height 730 -bg $C(bg) -highlightthickness 0 - $w.c config -scrollregion {0 0 1000 1000} ;# Kludge: move everything up - $w.c yview moveto .05 - pack $w.c -in $w.screen -side top -fill both -expand 1 - - bind $w.c <3> [list $w.pause invoke] - bind $w.c { - after cancel $animationCallbacks(goldberg) - unset animationCallbacks(goldberg) - } - DoCtrlFrame $w - DoDetailFrame $w - if {[tk windowingsystem] ne "aqua"} { - ttk::button $w.show -text "\u00bb" -command [list ShowCtrl $w] -width 2 - } else { - button $w.show -text "\u00bb" -command [list ShowCtrl $w] -width 2 -highlightbackground $C(bg) - } - place $w.show -in $w.c -relx 1 -rely 0 -anchor ne - update -} - -proc DoCtrlFrame {w} { - global S - ttk::button $w.start -text "Start" -command [list DoButton $w 0] - ttk::checkbutton $w.pause -text "Pause" -command [list DoButton $w 1] \ - -variable S(pause) - ttk::button $w.step -text "Single Step" -command [list DoButton $w 2] - ttk::button $w.bstep -text "Big Step" -command [list DoButton $w 4] - ttk::button $w.reset -text "Reset" -command [list DoButton $w 3] - ttk::labelframe $w.details - raise $w.details - set S(details) 0 - ttk::checkbutton $w.details.cb -text "Details" -variable S(details) - ttk::labelframe $w.message -text "Message" - ttk::entry $w.message.e -textvariable S(message) -justify center - ttk::labelframe $w.speed -text "Speed: 0" - ttk::scale $w.speed.scale -orient h -from 1 -to 10 -variable S(speed) - ttk::button $w.about -text About -command [list About $w] - - grid $w.start -in $w.ctrl -row 0 -sticky ew - grid rowconfigure $w.ctrl 1 -minsize 10 - grid $w.pause -in $w.ctrl -row 2 -sticky ew - grid $w.step -in $w.ctrl -sticky ew -pady 2 - grid $w.bstep -in $w.ctrl -sticky ew - grid $w.reset -in $w.ctrl -sticky ew -pady 2 - grid rowconfigure $w.ctrl 10 -minsize 18 - grid $w.details -in $w.ctrl -row 11 -sticky ew - grid rowconfigure $w.ctrl 11 -minsize 20 - $w.details configure -labelwidget $w.details.cb - grid [ttk::frame $w.details.b -height 1] ;# Work around minor bug - raise $w.details - raise $w.details.cb - grid rowconfigure $w.ctrl 50 -weight 1 - trace variable ::S(mode) w [list ActiveGUI $w] - trace variable ::S(details) w [list ActiveGUI $w] - trace variable ::S(speed) w [list ActiveGUI $w] - - grid $w.message -in $w.ctrl -row 98 -sticky ew -pady 5 - grid $w.message.e -sticky nsew - grid $w.speed -in $w.ctrl -row 99 -sticky ew -pady {0 5} - pack $w.speed.scale -fill both -expand 1 - grid $w.about -in $w.ctrl -row 100 -sticky ew - bind $w.reset <3> {set S(mode) -1} ;# Debugging - - ## See Code / Dismiss buttons hack! - set btns [addSeeDismiss $w.ctrl.buttons $w] - grid [ttk::separator $w.ctrl.sep] -sticky ew -pady 4 - set i 0 - foreach b [winfo children $btns] { - if {[winfo class $b] eq "TButton"} { - grid [set b2 [ttk::button $w.ctrl.b[incr i]]] -sticky ew - foreach b3 [$b configure] { - set b3 [lindex $b3 0] - # Some options are read-only; ignore those errors - catch {$b2 configure $b3 [$b cget $b3]} - } - } - } - destroy $btns -} - -proc DoDetailFrame {w} { - set w2 $w.details.f - ttk::frame $w2 - - set bd 2 - ttk::label $w2.l -textvariable S(cnt) -background white - grid $w2.l - - - -sticky ew -row 0 - for {set i 1} {1} {incr i} { - if {[info procs "Move$i"] eq ""} break - ttk::label $w2.l$i -text $i -anchor e -width 2 -background white - ttk::label $w2.ll$i -textvariable STEP($i) -width 5 -background white - set row [expr {($i + 1) / 2}] - set col [expr {(($i + 1) & 1) * 2}] - grid $w2.l$i -sticky ew -row $row -column $col - grid $w2.ll$i -sticky ew -row $row -column [incr col] - } - grid columnconfigure $w2 1 -weight 1 -} - -# Map or unmap the ctrl window -proc ShowCtrl {w} { - if {[winfo ismapped $w.ctrl]} { - pack forget $w.ctrl - $w.show config -text "\u00bb" - } else { - pack $w.ctrl -side right -fill both -ipady 5 - $w.show config -text "\u00ab" - } -} - -proc DrawAll {w} { - ResetStep - $w.c delete all - for {set i 0} {1} {incr i} { - set p "Draw$i" - if {[info procs $p] eq ""} break - $p $w - } -} - -proc ActiveGUI {w var1 var2 op} { - global S MGO MSTART MDONE - array set z {0 disabled 1 normal} - - set m $S(mode) - set S(pause) [expr {$m == 2}] - $w.start config -state $z([expr {$m != $MGO}]) - $w.pause config -state $z([expr {$m != $MSTART && $m != $MDONE}]) - $w.step config -state $z([expr {$m != $MGO && $m != $MDONE}]) - $w.bstep config -state $z([expr {$m != $MGO && $m != $MDONE}]) - $w.reset config -state $z([expr {$m != $MSTART}]) - - if {$S(details)} { - grid $w.details.f -sticky ew - } else { - grid forget $w.details.f - } - set S(speed) [expr {round($S(speed))}] - $w.speed config -text "Speed: $S(speed)" -} - -proc Start {} { - global S MGO - set S(mode) $MGO -} - -proc DoButton {w what} { - global S MDONE MGO MSSTEP MBSTEP MPAUSE - - if {$what == 0} { ;# Start - if {$S(mode) == $MDONE} { - Reset $w - } - set S(mode) $MGO - } elseif {$what == 1} { ;# Pause - set S(mode) [expr {$S(pause) ? $MPAUSE : $MGO}] - } elseif {$what == 2} { ;# Step - set S(mode) $MSSTEP - } elseif {$what == 3} { ;# Reset - Reset $w - } elseif {$what == 4} { ;# Big step - set S(mode) $MBSTEP - } -} - -proc Go {w {who {}}} { - global S speed animationCallbacks MGO MPAUSE MSSTEP MBSTEP - - set now [clock clicks -milliseconds] - catch {after cancel $animationCallbacks(goldberg)} - if {$who ne ""} { ;# Start here for debugging - set S(active) $who; - set S(mode) $MGO - } - if {$S(mode) == -1} return ;# Debugging - set n 0 - if {$S(mode) != $MPAUSE} { ;# Not paused - set n [NextStep $w] ;# Do the next move - } - if {$S(mode) == $MSSTEP} { ;# Single step - set S(mode) $MPAUSE - } - if {$S(mode) == $MBSTEP && $n} { ;# Big step - set S(mode) $MSSTEP - } - - set elapsed [expr {[clock click -milliseconds] - $now}] - set delay [expr {$speed($S(speed)) - $elapsed}] - if {$delay <= 0} { - set delay 1 - } - set animationCallbacks(goldberg) [after $delay [list Go $w]] -} - -# NextStep: drives the next step of the animation -proc NextStep {w} { - global S MSTART MDONE - set rval 0 ;# Return value - - if {$S(mode) != $MSTART && $S(mode) != $MDONE} { - incr S(cnt) - } - set alive {} - foreach {who} $S(active) { - set n ["Move$who" $w] - if {$n & 1} { ;# This guy still alive - lappend alive $who - } - if {$n & 2} { ;# Next guy is active - lappend alive [expr {$who + 1}] - set rval 1 - } - if {$n & 4} { ;# End of puzzle flag - set S(mode) $MDONE ;# Done mode - set S(active) {} ;# No more animation - return 1 - } - } - set S(active) $alive - return $rval -} -proc About {w} { - set msg "$::S(title)\nby Keith Vetter, March 2003\n(Reproduced by kind\ - permission of the author)\n\n\"Man will always find a difficult\ - means to perform a simple task.\"\nRube Goldberg" - tk_messageBox -parent $w -message $msg -title About -} -################################################################ -# -# All the drawing and moving routines -# - -# START HERE! banner -proc Draw0 {w} { - set color $::C(0) - set xy {579 119} - $w.c create text $xy -text "START HERE!" -fill $color -anchor w \ - -tag I0 -font {{Times Roman} 12 italic bold} - set xy {719 119 763 119} - $w.c create line $xy -tag I0 -fill $color -width 5 -arrow last \ - -arrowshape {18 18 5} - $w.c bind I0 <1> Start -} -proc Move0 {w {step {}}} { - set step [GetStep 0 $step] - - if {$::S(mode) > $::MSTART} { ;# Start the ball rolling - MoveAbs $w I0 {-100 -100} ;# Hide the banner - return 2 - } - - set pos { - {673 119} {678 119} {683 119} {688 119} - {693 119} {688 119} {683 119} {678 119} - } - set step [expr {$step % [llength $pos]}] - MoveAbs $w I0 [lindex $pos $step] - return 1 -} - -# Dropping ball -proc Draw1 {w} { - set color $::C(1a) - set color2 $::C(1b) - set xy {844 133 800 133 800 346 820 346 820 168 844 168 844 133} - $w.c create poly $xy -width 3 -fill $color -outline {} - set xy {771 133 685 133 685 168 751 168 751 346 771 346 771 133} - $w.c create poly $xy -width 3 -fill $color -outline {} - - set xy [box 812 122 9] - $w.c create oval $xy -tag I1 -fill $color2 -outline {} - $w.c bind I1 <1> Start -} -proc Move1 {w {step {}}} { - set step [GetStep 1 $step] - set pos { - {807 122} {802 122} {797 123} {793 124} {789 129} {785 153} - {785 203} {785 278 x} {785 367} {810 392} {816 438} {821 503} - {824 585 y} {838 587} {848 593} {857 601} {-100 -100} - } - if {$step >= [llength $pos]} { - return 0 - } - set where [lindex $pos $step] - MoveAbs $w I1 $where - - if {[lindex $where 2] eq "y"} { - Move15a $w - } - if {[lindex $where 2] eq "x"} { - return 3 - } - return 1 -} - -# Lighting the match -proc Draw2 {w} { - set color red - set color $::C(2) - set xy {750 369 740 392 760 392} ;# Fulcrum - $w.c create poly $xy -fill $::C(fg) -outline $::C(fg) - set xy {628 335 660 383} ;# Strike box - $w.c create rect $xy -fill {} -outline $::C(fg) - for {set y 0} {$y < 3} {incr y} { - set yy [expr {335+$y*16}] - $w.c create bitmap 628 $yy -bitmap gray25 -anchor nw \ - -foreground $::C(fg) - $w.c create bitmap 644 $yy -bitmap gray25 -anchor nw \ - -foreground $::C(fg) - } - - set xy {702 366 798 366} ;# Lever - $w.c create line $xy -fill $::C(fg) -width 6 -tag I2_0 - set xy {712 363 712 355} ;# R strap - $w.c create line $xy -fill $::C(fg) -width 3 -tag I2_1 - set xy {705 363 705 355} ;# L strap - $w.c create line $xy -fill $::C(fg) -width 3 -tag I2_2 - set xy {679 356 679 360 717 360 717 356 679 356} ;# Match stick - $w.c create line $xy -fill $::C(fg) -tag I2_3 - - #set xy {662 352 680 365} ;# Match head - set xy { - 671 352 677.4 353.9 680 358.5 677.4 363.1 671 365 664.6 363.1 - 662 358.5 664.6 353.9 - } - $w.c create poly $xy -fill $color -outline $color -tag I2_4 -} -proc Move2 {w {step {}}} { - set step [GetStep 2 $step] - - set stages {0 0 1 2 0 2 1 0 1 2 0 2 1} - set xy(0) { - 686 333 692 323 682 316 674 309 671 295 668 307 662 318 662 328 - 671 336 - } - set xy(1) {687 331 698 322 703 295 680 320 668 297 663 311 661 327 671 335} - set xy(2) { - 686 331 704 322 688 300 678 283 678 283 674 298 666 309 660 324 - 672 336 - } - - if {$step >= [llength $stages]} { - $w.c delete I2 - return 0 - } - - if {$step == 0} { ;# Rotate the match - set beta 20 - lassign [Anchor $w I2_0 s] Ox Oy ;# Where to pivot - for {set i 0} {[$w.c find withtag I2_$i] ne ""} {incr i} { - RotateItem $w I2_$i $Ox $Oy $beta - } - $w.c create poly -tag I2 -smooth 1 -fill $::C(2) ;# For the flame - return 1 - } - $w.c coords I2 $xy([lindex $stages $step]) - return [expr {$step == 7 ? 3 : 1}] -} - -# Weight and pulleys -proc Draw3 {w} { - set color $::C(3a) - set color2 $::C(3b) - - set xy {602 296 577 174 518 174} - foreach {x y} $xy { ;# 3 Pulleys - $w.c create oval [box $x $y 13] -fill $color -outline $::C(fg) \ - -width 3 - $w.c create oval [box $x $y 2] -fill $::C(fg) -outline $::C(fg) - } - - set xy {750 309 670 309} ;# Wall to flame - $w.c create line $xy -tag I3_s -width 3 -fill $::C(fg) -smooth 1 - set xy {670 309 650 309} ;# Flame to pulley 1 - $w.c create line $xy -tag I3_0 -width 3 -fill $::C(fg) - set xy {650 309 600 309} ;# Flame to pulley 1 - $w.c create line $xy -tag I3_1 -width 3 -fill $::C(fg) - set xy {589 296 589 235} ;# Pulley 1 half way to 2 - $w.c create line $xy -tag I3_2 -width 3 -fill $::C(fg) - set xy {589 235 589 174} ;# Pulley 1 other half to 2 - $w.c create line $xy -width 3 -fill $::C(fg) - set xy {577 161 518 161} ;# Across the top - $w.c create line $xy -width 3 -fill $::C(fg) - set xy {505 174 505 205} ;# Down to weight - $w.c create line $xy -tag I3_w -width 3 -fill $::C(fg) - - # Draw the weight as 2 circles, two rectangles and 1 rounded rectangle - set xy {515 207 495 207} - foreach {x1 y1 x2 y2} $xy { - $w.c create oval [box $x1 $y1 6] -tag I3_ -fill $color2 \ - -outline $color2 - $w.c create oval [box $x2 $y2 6] -tag I3_ -fill $color2 \ - -outline $color2 - incr y1 -6; incr y2 6 - $w.c create rect $x1 $y1 $x2 $y2 -tag I3_ -fill $color2 \ - -outline $color2 - } - set xy {492 220 518 263} - set xy [RoundRect $w $xy 15] - $w.c create poly $xy -smooth 1 -tag I3_ -fill $color2 -outline $color2 - set xy {500 217 511 217} - $w.c create line $xy -tag I3_ -fill $color2 -width 10 - - set xy {502 393 522 393 522 465} ;# Bottom weight target - $w.c create line $xy -tag I3__ -fill $::C(fg) -join miter -width 10 -} -proc Move3 {w {step {}}} { - set step [GetStep 3 $step] - - set pos {{505 247} {505 297} {505 386.5} {505 386.5}} - set rope(0) {750 309 729 301 711 324 690 300} - set rope(1) {750 309 737 292 736 335 717 315 712 320} - set rope(2) {750 309 737 309 740 343 736 351 725 340} - set rope(3) {750 309 738 321 746 345 742 356} - - if {$step >= [llength $pos]} { - return 0 - } - - $w.c delete "I3_$step" ;# Delete part of the rope - MoveAbs $w I3_ [lindex $pos $step] ;# Move weight down - $w.c coords I3_s $rope($step) ;# Flapping rope end - $w.c coords I3_w [concat 505 174 [lindex $pos $step]] - if {$step == 2} { - $w.c move I3__ 0 30 - return 2 - } - return 1 -} - -# Cage and door -proc Draw4 {w} { - set color $::C(4) - lassign {527 356 611 464} x0 y0 x1 y1 - - for {set y $y0} {$y <= $y1} {incr y 12} { ;# Horizontal bars - $w.c create line $x0 $y $x1 $y -fill $color -width 1 - } - for {set x $x0} {$x <= $x1} {incr x 12} { ;# Vertical bars - $w.c create line $x $y0 $x $y1 -fill $color -width 1 - } - - set xy {518 464 518 428} ;# Swing gate - $w.c create line $xy -tag I4 -fill $color -width 3 -} -proc Move4 {w {step {}}} { - set step [GetStep 4 $step] - - set angles {-10 -20 -30 -30} - if {$step >= [llength $angles]} { - return 0 - } - RotateItem $w I4 518 464 [lindex $angles $step] - $w.c raise I4 - return [expr {$step == 3 ? 3 : 1}] -} - -# Mouse -proc Draw5 {w} { - set color $::C(5a) - set color2 $::C(5b) - set xy {377 248 410 248 410 465 518 465} ;# Mouse course - lappend xy 518 428 451 428 451 212 377 212 - $w.c create poly $xy -fill $color2 -outline $::C(fg) -width 3 - - set xy { - 534.5 445.5 541 440 552 436 560 436 569 440 574 446 575 452 574 454 - 566 456 554 456 545 456 537 454 530 452 - } - $w.c create poly $xy -tag {I5 I5_0} -fill $color - set xy {573 452 592 458 601 460 613 456} ;# Tail - $w.c create line $xy -tag {I5 I5_1} -fill $color -smooth 1 -width 3 - set xy [box 540 446 2] ;# Eye - set xy {540 444 541 445 541 447 540 448 538 447 538 445} - #.c create oval $xy -tag {I5 I5_2} -fill $::C(bg) -outline {} - $w.c create poly $xy -tag {I5 I5_2} -fill $::C(bg) -outline {} -smooth 1 - set xy {538 454 535 461} ;# Front leg - $w.c create line $xy -tag {I5 I5_3} -fill $color -width 2 - set xy {566 455 569 462} ;# Back leg - $w.c create line $xy -tag {I5 I5_4} -fill $color -width 2 - set xy {544 455 545 460} ;# 2nd front leg - $w.c create line $xy -tag {I5 I5_5} -fill $color -width 2 - set xy {560 455 558 460} ;# 2nd back leg - $w.c create line $xy -tag {I5 I5_6} -fill $color -width 2 -} -proc Move5 {w {step {}}} { - set step [GetStep 5 $step] - - set pos { - {553 452} {533 452} {513 452} {493 452} {473 452} - {463 442 30} {445.5 441.5 30} {425.5 434.5 30} {422 414} {422 394} - {422 374} {422 354} {422 334} {422 314} {422 294} - {422 274 -30} {422 260.5 -30 x} {422.5 248.5 -28} {425 237} - } - if {$step >= [llength $pos]} { - return 0 - } - - lassign [lindex $pos $step] x y beta next - MoveAbs $w I5 [list $x $y] - if {$beta ne ""} { - lassign [Centroid $w I5_0] Ox Oy - foreach id {0 1 2 3 4 5 6} { - RotateItem $w I5_$id $Ox $Oy $beta - } - } - if {$next eq "x"} { - return 3 - } - return 1 -} - -# Dropping gumballs -array set XY6 { - -1 {366 207} -2 {349 204} -3 {359 193} -4 {375 192} -5 {340 190} - -6 {349 177} -7 {366 177} -8 {380 176} -9 {332 172} -10 {342 161} - -11 {357 164} -12 {372 163} -13 {381 149} -14 {364 151} -15 {349 146} - -16 {333 148} 0 {357 219} - 1 {359 261} 2 {359 291} 3 {359 318} 4 {361 324} 5 {365 329} 6 {367 334} - 7 {367 340} 8 {366 346} 9 {364 350} 10 {361 355} 11 {359 370} 12 {359 391} - 13,0 {360 456} 13,1 {376 456} 13,2 {346 456} 13,3 {330 456} - 13,4 {353 444} 13,5 {368 443} 13,6 {339 442} 13,7 {359 431} - 13,8 {380 437} 13,9 {345 428} 13,10 {328 434} 13,11 {373 424} - 13,12 {331 420} 13,13 {360 417} 13,14 {345 412} 13,15 {376 410} - 13,16 {360 403} -} -proc Draw6 {w} { - set color $::C(6) - set xy {324 130 391 204} ;# Ball holder - set xy [RoundRect $w $xy 10] - $w.c create poly $xy -smooth 1 -outline $::C(fg) -width 3 -fill $color - set xy {339 204 376 253} ;# Below the ball holder - $w.c create rect $xy -fill {} -outline $::C(fg) -width 3 -fill $color \ - -tag I6c - set xy [box 346 339 28] - $w.c create oval $xy -fill $color -outline {} ;# Rotor - $w.c create arc $xy -outline $::C(fg) -width 2 -style arc \ - -start 80 -extent 205 - $w.c create arc $xy -outline $::C(fg) -width 2 -style arc \ - -start -41 -extent 85 - - set xy [box 346 339 15] ;# Center of rotor - $w.c create oval $xy -outline $::C(fg) -fill $::C(fg) -tag I6m - set xy {352 312 352 254 368 254 368 322} ;# Top drop to rotor - $w.c create poly $xy -fill $color -outline {} - $w.c create line $xy -fill $::C(fg) -width 2 - - set xy {353 240 367 300} ;# Poke bottom hole - $w.c create rect $xy -fill $color -outline {} - set xy {341 190 375 210} ;# Poke another hole - $w.c create rect $xy -fill $color -outline {} - - set xy {368 356 368 403 389 403 389 464 320 464 320 403 352 403 352 366} - $w.c create poly $xy -fill $color -outline {} -width 2 ;# Below rotor - $w.c create line $xy -fill $::C(fg) -width 2 - set xy [box 275 342 7] ;# On/off rotor - $w.c create oval $xy -outline $::C(fg) -fill $::C(fg) - set xy {276 334 342 325} ;# Fan belt top - $w.c create line $xy -fill $::C(fg) -width 3 - set xy {276 349 342 353} ;# Fan belt bottom - $w.c create line $xy -fill $::C(fg) -width 3 - - set xy {337 212 337 247} ;# What the mouse pushes - $w.c create line $xy -fill $::C(fg) -width 3 -tag I6_ - set xy {392 212 392 247} - $w.c create line $xy -fill $::C(fg) -width 3 -tag I6_ - set xy {337 230 392 230} - $w.c create line $xy -fill $::C(fg) -width 7 -tag I6_ - - set who -1 ;# All the balls - set colors {red cyan orange green blue darkblue} - lappend colors {*}$colors {*}$colors - - for {set i 0} {$i < 17} {incr i} { - set loc [expr {-1 * $i}] - set color [lindex $colors $i] - $w.c create oval [box {*}$::XY6($loc) 5] -fill $color \ - -outline $color -tag I6_b$i - } - Draw6a $w 12 ;# The wheel -} -proc Draw6a {w beta} { - $w.c delete I6_0 - lassign {346 339} Ox Oy - for {set i 0} {$i < 4} {incr i} { - set b [expr {$beta + $i * 45}] - lassign [RotateC 28 0 0 0 $b] x y - set xy [list [expr {$Ox+$x}] [expr {$Oy+$y}] \ - [expr {$Ox-$x}] [expr {$Oy-$y}]] - $w.c create line $xy -tag I6_0 -fill $::C(fg) -width 2 - } -} -proc Move6 {w {step {}}} { - set step [GetStep 6 $step] - if {$step > 62} { - return 0 - } - - if {$step < 2} { ;# Open gate for balls to drop - $w.c move I6_ -7 0 - if {$step == 1} { ;# Poke a hole - set xy {348 226 365 240} - $w.c create rect $xy -fill [$w.c itemcget I6c -fill] -outline {} - } - return 1 - } - - set s [expr {$step - 1}] ;# Do the gumball drop dance - for {set i 0} {$i <= int(($s-1) / 3)} {incr i} { - set tag "I6_b$i" - if {[$w.c find withtag $tag] eq ""} break - set loc [expr {$s - 3 * $i}] - - if {[info exists ::XY6($loc,$i)]} { - MoveAbs $w $tag $::XY6($loc,$i) - } elseif {[info exists ::XY6($loc)]} { - MoveAbs $w $tag $::XY6($loc) - } - } - if {($s % 3) == 1} { - set first [expr {($s + 2) / 3}] - for {set i $first} {1} {incr i} { - set tag "I6_b$i" - if {[$w.c find withtag $tag] eq ""} break - set loc [expr {$first - $i}] - MoveAbs $w $tag $::XY6($loc) - } - } - if {$s >= 3} { ;# Rotate the motor - set idx [expr {$s % 3}] - #Draw6a $w [lindex {12 35 64} $idx] - Draw6a $w [expr {12 + $s * 15}] - } - return [expr {$s == 3 ? 3 : 1}] -} - -# On/off switch -proc Draw7 {w} { - set color $::C(7) - set xy {198 306 277 374} ;# Box - $w.c create rect $xy -outline $::C(fg) -width 2 -fill $color -tag I7z - $w.c lower I7z - set xy {275 343 230 349} - $w.c create line $xy -tag I7 -fill $::C(fg) -arrow last \ - -arrowshape {23 23 8} -width 6 - set xy {225 324} ;# On button - $w.c create oval [box {*}$xy 3] -fill $::C(fg) -outline $::C(fg) - set xy {218 323} ;# On text - set font {{Times Roman} 8} - $w.c create text $xy -text "on" -anchor e -fill $::C(fg) -font $font - set xy {225 350} ;# Off button - $w.c create oval [box {*}$xy 3] -fill $::C(fg) -outline $::C(fg) - set xy {218 349} ;# Off button - $w.c create text $xy -text "off" -anchor e -fill $::C(fg) -font $font -} -proc Move7 {w {step {}}} { - set step [GetStep 7 $step] - set numsteps 30 - if {$step > $numsteps} { - return 0 - } - set beta [expr {30.0 / $numsteps}] - RotateItem $w I7 275 343 $beta - - return [expr {$step == $numsteps ? 3 : 1}] -} - -# Electricity to the fan -proc Draw8 {w} { - Sine $w 271 248 271 306 5 8 -tag I8_s -fill $::C(8) -width 3 -} -proc Move8 {w {step {}}} { - set step [GetStep 8 $step] - - if {$step > 3} { - return 0 - } - if {$step == 0} { - Sparkle $w [Anchor $w I8_s s] I8 - return 1 - - } elseif {$step == 1} { - MoveAbs $w I8 [Anchor $w I8_s c] - } elseif {$step == 2} { - MoveAbs $w I8 [Anchor $w I8_s n] - } else { - $w.c delete I8 - } - return [expr {$step == 2 ? 3 : 1}] -} - -# Fan -proc Draw9 {w} { - set color $::C(9) - set xy {266 194 310 220} - $w.c create oval $xy -outline $color -fill $color - set xy {280 209 296 248} - $w.c create oval $xy -outline $color -fill $color - set xy {288 249 252 249 260 240 280 234 296 234 316 240 324 249 288 249} - $w.c create poly $xy -fill $color -smooth 1 - - set xy {248 205 265 214 264 205 265 196} ;# Spinner - $w.c create poly $xy -fill $color - - set xy {255 206 265 234} ;# Fan blades - $w.c create oval $xy -fill {} -outline $::C(fg) -width 3 -tag I9_0 - set xy {255 176 265 204} - $w.c create oval $xy -fill {} -outline $::C(fg) -width 3 -tag I9_0 - set xy {255 206 265 220} - $w.c create oval $xy -fill {} -outline $::C(fg) -width 1 -tag I9_1 - set xy {255 190 265 204} - $w.c create oval $xy -fill {} -outline $::C(fg) -width 1 -tag I9_1 -} -proc Move9 {w {step {}}} { - set step [GetStep 9 $step] - - if {$step & 1} { - $w.c itemconfig I9_0 -width 4 - $w.c itemconfig I9_1 -width 1 - $w.c lower I9_1 I9_0 - } else { - $w.c itemconfig I9_0 -width 1 - $w.c itemconfig I9_1 -width 4 - $w.c lower I9_0 I9_1 - } - if {$step == 0} { - return 3 - } - return 1 -} - -# Boat -proc Draw10 {w} { - set color $::C(10a) - set color2 $::C(10b) - set xy {191 230 233 230 233 178 191 178} ;# Sail - $w.c create poly $xy -fill $color -width 3 -outline $::C(fg) -tag I10 - set xy [box 209 204 31] ;# Front - $w.c create arc $xy -outline {} -fill $color -style pie \ - -start 120 -extent 120 -tag I10 - $w.c create arc $xy -outline $::C(fg) -width 3 -style arc \ - -start 120 -extent 120 -tag I10 - set xy [box 249 204 31] ;# Back - $w.c create arc $xy -outline {} -fill $::C(bg) -width 3 -style pie \ - -start 120 -extent 120 -tag I10 - $w.c create arc $xy -outline $::C(fg) -width 3 -style arc \ - -start 120 -extent 120 -tag I10 - - set xy {200 171 200 249} ;# Mast - $w.c create line $xy -fill $::C(fg) -width 3 -tag I10 - set xy {159 234 182 234} ;# Bow sprit - $w.c create line $xy -fill $::C(fg) -width 3 -tag I10 - set xy {180 234 180 251 220 251} ;# Hull - $w.c create line $xy -fill $::C(fg) -width 6 -tag I10 - - set xy {92 255 221 255} ;# Waves - Sine $w {*}$xy 2 25 -fill $color2 -width 1 -tag I10w - - set xy [lrange [$w.c coords I10w] 4 end-4] ;# Water - set xy [concat $xy 222 266 222 277 99 277] - $w.c create poly $xy -fill $color2 -outline $color2 - set xy {222 266 222 277 97 277 97 266} ;# Water bottom - $w.c create line $xy -fill $::C(fg) -width 3 - - set xy [box 239 262 17] - $w.c create arc $xy -outline $::C(fg) -width 3 -style arc \ - -start 95 -extent 103 - set xy [box 76 266 21] - $w.c create arc $xy -outline $::C(fg) -width 3 -style arc -extent 190 -} -proc Move10 {w {step {}}} { - set step [GetStep 10 $step] - set pos { - {195 212} {193 212} {190 212} {186 212} {181 212} {176 212} - {171 212} {166 212} {161 212} {156 212} {151 212} {147 212} {142 212} - {137 212} {132 212 x} {127 212} {121 212} {116 212} {111 212} - } - - if {$step >= [llength $pos]} { - return 0 - } - set where [lindex $pos $step] - MoveAbs $w I10 $where - - if {[lindex $where 2] eq "x"} { - return 3 - } - return 1 -} - -# 2nd ball drop -proc Draw11 {w} { - set color $::C(11a) - set color2 $::C(11b) - set xy {23 264 55 591} ;# Color the down tube - $w.c create rect $xy -fill $color -outline {} - set xy [box 71 460 48] ;# Color the outer loop - $w.c create oval $xy -fill $color -outline {} - - set xy {55 264 55 458} ;# Top right side - $w.c create line $xy -fill $::C(fg) -width 3 - set xy {55 504 55 591} ;# Bottom right side - $w.c create line $xy -fill $::C(fg) -width 3 - set xy [box 71 460 48] ;# Outer loop - $w.c create arc $xy -outline $::C(fg) -width 3 -style arc \ - -start 110 -extent -290 -tag I11i - set xy [box 71 460 16] ;# Inner loop - $w.c create oval $xy -outline $::C(fg) -fill {} -width 3 -tag I11i - $w.c create oval $xy -outline $::C(fg) -fill $::C(bg) -width 3 - - set xy {23 264 23 591} ;# Left side - $w.c create line $xy -fill $::C(fg) -width 3 - set xy [box 1 266 23] ;# Top left curve - $w.c create arc $xy -outline $::C(fg) -width 3 -style arc -extent 90 - - set xy [box 75 235 9] ;# The ball - $w.c create oval $xy -fill $color2 -outline {} -width 3 -tag I11 -} -proc Move11 {w {step {}}} { - set step [GetStep 11 $step] - set pos { - {75 235} {70 235} {65 237} {56 240} {46 247} {38 266} {38 296} - {38 333} {38 399} {38 475} {74 496} {105 472} {100 437} {65 423} - {-100 -100} {38 505} {38 527 x} {38 591} - } - - if {$step >= [llength $pos]} { - return 0 - } - set where [lindex $pos $step] - MoveAbs $w I11 $where - if {[lindex $where 2] eq "x"} { - return 3 - } - return 1 -} - -# Hand -proc Draw12 {w} { - set xy {20 637 20 617 20 610 20 590 40 590 40 590 60 590 60 610 60 610} - lappend xy 60 610 65 620 60 631 ;# Thumb - lappend xy 60 631 60 637 60 662 60 669 52 669 56 669 50 669 50 662 50 637 - - set y0 637 ;# Bumps for fingers - set y1 645 - for {set x 50} {$x > 20} {incr x -10} { - set x1 [expr {$x - 5}] - set x2 [expr {$x - 10}] - lappend xy $x $y0 $x1 $y1 $x2 $y0 - } - $w.c create poly $xy -fill $::C(12) -outline $::C(fg) -smooth 1 -tag I12 \ - -width 3 -} -proc Move12 {w {step {}}} { - set step [GetStep 12 $step] - set pos {{42.5 641 x}} - if {$step >= [llength $pos]} { - return 0 - } - - set where [lindex $pos $step] - MoveAbs $w I12 $where - if {[lindex $where 2] eq "x"} { - return 3 - } - return 1 -} - -# Fax -proc Draw13 {w} { - set color $::C(13a) - set xy {86 663 149 663 149 704 50 704 50 681 64 681 86 671} - set xy2 {784 663 721 663 721 704 820 704 820 681 806 681 784 671} - set radii {2 9 9 8 5 5 2} - - RoundPoly $w.c $xy $radii -width 3 -outline $::C(fg) -fill $color - RoundPoly $w.c $xy2 $radii -width 3 -outline $::C(fg) -fill $color - - set xy {56 677} - $w.c create rect [box {*}$xy 4] -fill {} -outline $::C(fg) -width 3 \ - -tag I13 - set xy {809 677} - $w.c create rect [box {*}$xy 4] -fill {} -outline $::C(fg) -width 3 \ - -tag I13R - - set xy {112 687} ;# Label - $w.c create text $xy -text "FAX" -fill $::C(fg) \ - -font {{Times Roman} 12 bold} - set xy {762 687} - $w.c create text $xy -text "FAX" -fill $::C(fg) \ - -font {{Times Roman} 12 bold} - - set xy {138 663 148 636 178 636} ;# Paper guide - $w.c create line $xy -smooth 1 -fill $::C(fg) -width 3 - set xy {732 663 722 636 692 636} - $w.c create line $xy -smooth 1 -fill $::C(fg) -width 3 - - Sine $w 149 688 720 688 5 15 -tag I13_s -fill $::C(fg) -width 3 -} -proc Move13 {w {step {}}} { - set step [GetStep 13 $step] - set numsteps 7 - - if {$step == $numsteps+2} { - MoveAbs $w I13_star {-100 -100} - $w.c itemconfig I13R -fill $::C(13b) -width 2 - return 2 - } - if {$step == 0} { ;# Button down - $w.c delete I13 - Sparkle $w {-100 -100} I13_star ;# Create off screen - return 1 - } - lassign [Anchor $w I13_s w] x0 y0 - lassign [Anchor $w I13_s e] x1 y1 - set x [expr {$x0 + ($x1-$x0) * ($step - 1) / double($numsteps)}] - MoveAbs $w I13_star [list $x $y0] - return 1 -} - -# Paper in fax -proc Draw14 {w} { - set color $::C(14) - set xy {102 661 113 632 130 618} ;# Left paper edge - $w.c create line $xy -smooth 1 -fill $color -width 3 -tag I14L_0 - set xy {148 629 125 640 124 662} ;# Right paper edge - $w.c create line $xy -smooth 1 -fill $color -width 3 -tag I14L_1 - Draw14a $w L - - set xy { - 768.0 662.5 767.991316225 662.433786215 767.926187912 662.396880171 - } - $w.c create line $xy -smooth 1 -fill $color -width 3 -tag I14R_0 - $w.c lower I14R_0 - # NB. these numbers are VERY sensitive, you must start with final size - # and shrink down to get the values - set xy { - 745.947897349 662.428358855 745.997829056 662.452239237 746.0 662.5 - } - $w.c create line $xy -smooth 1 -fill $color -width 3 -tag I14R_1 - $w.c lower I14R_1 -} -proc Draw14a {w side} { - set color $::C(14) - set xy [$w.c coords I14${side}_0] - set xy2 [$w.c coords I14${side}_1] - lassign $xy x0 y0 x1 y1 x2 y2 - lassign $xy2 x3 y3 x4 y4 x5 y5 - set zz [concat \ - $x0 $y0 $x0 $y0 $xy $x2 $y2 $x2 $y2 \ - $x3 $y3 $x3 $y3 $xy2 $x5 $y5 $x5 $y5] - $w.c delete I14$side - $w.c create poly $zz -tag I14$side -smooth 1 -fill $color -outline $color \ - -width 3 - $w.c lower I14$side -} -proc Move14 {w {step {}}} { - set step [GetStep 14 $step] - - # Paper going down - set sc [expr {.9 - .05*$step}] - if {$sc < .3} { - $w.c delete I14L - return 0 - } - - lassign [$w.c coords I14L_0] Ox Oy - $w.c scale I14L_0 $Ox $Oy $sc $sc - lassign [lrange [$w.c coords I14L_1] end-1 end] Ox Oy - $w.c scale I14L_1 $Ox $Oy $sc $sc - Draw14a $w L - - # Paper going up - set sc [expr {.35 + .05*$step}] - set sc [expr {1 / $sc}] - - lassign [$w.c coords I14R_0] Ox Oy - $w.c scale I14R_0 $Ox $Oy $sc $sc - lassign [lrange [$w.c coords I14R_1] end-1 end] Ox Oy - $w.c scale I14R_1 $Ox $Oy $sc $sc - Draw14a $w R - - return [expr {$step == 10 ? 3 : 1}] -} - -# Light beam -proc Draw15 {w} { - set color $::C(15a) - set xy {824 599 824 585 820 585 829 585} - $w.c create line $xy -fill $::C(fg) -width 3 -tag I15a - set xy {789 599 836 643} - $w.c create rect $xy -fill $color -outline $::C(fg) -width 3 - set xy {778 610 788 632} - $w.c create rect $xy -fill $color -outline $::C(fg) -width 3 - set xy {766 617 776 625} - $w.c create rect $xy -fill $color -outline $::C(fg) -width 3 - - set xy {633 600 681 640} - $w.c create rect $xy -fill $color -outline $::C(fg) -width 3 - set xy {635 567 657 599} - $w.c create rect $xy -fill $color -outline $::C(fg) -width 2 - set xy {765 557 784 583} - $w.c create rect $xy -fill $color -outline $::C(fg) -width 2 - - Sine $w 658 580 765 580 3 15 -tag I15_s -fill $::C(fg) -width 3 -} -proc Move15a {w} { - set color $::C(15b) - $w.c scale I15a 824 599 1 .3 ;# Button down - set xy {765 621 681 621} - $w.c create line $xy -dash "-" -width 3 -fill $color -tag I15 -} -proc Move15 {w {step {}}} { - set step [GetStep 15 $step] - set numsteps 6 - - if {$step == $numsteps+2} { - MoveAbs $w I15_star {-100 -100} - return 2 - } - if {$step == 0} { ;# Break the light beam - Sparkle $w {-100 -100} I15_star - set xy {765 621 745 621} - $w.c coords I15 $xy - return 1 - } - lassign [Anchor $w I15_s w] x0 y0 - lassign [Anchor $w I15_s e] x1 y1 - set x [expr {$x0 + ($x1-$x0) * ($step - 1) / double($numsteps)}] - MoveAbs $w I15_star [list $x $y0] - return 1 -} - -# Bell -proc Draw16 {w} { - set color $::C(16) - set xy {722 485 791 556} - $w.c create rect $xy -fill {} -outline $::C(fg) -width 3 - set xy [box 752 515 25] ;# Bell - $w.c create oval $xy -fill $color -outline black -tag I16b -width 2 - set xy [box 752 515 5] ;# Bell button - $w.c create oval $xy -fill black -outline black -tag I16b - - set xy {784 523 764 549} ;# Clapper - $w.c create line $xy -width 3 -tag I16c -fill $::C(fg) - set xy [box 784 523 4] - $w.c create oval $xy -fill $::C(fg) -outline $::C(fg) -tag I16d -} -proc Move16 {w {step {}}} { - set step [GetStep 16 $step] - - # Note: we never stop - lassign {760 553} Ox Oy - if {$step & 1} { - set beta 12 - $w.c move I16b 3 0 - } else { - set beta -12 - $w.c move I16b -3 0 - } - RotateItem $w I16c $Ox $Oy $beta - RotateItem $w I16d $Ox $Oy $beta - - return [expr {$step == 1 ? 3 : 1}] -} - -# Cat -proc Draw17 {w} { - set color $::C(17) - - set xy {584 556 722 556} - $w.c create line $xy -fill $::C(fg) -width 3 - set xy {584 485 722 485} - $w.c create line $xy -fill $::C(fg) -width 3 - - set xy {664 523 717 549} ;# Body - $w.c create arc $xy -outline $::C(fg) -fill $color -width 3 \ - -style chord -start 128 -extent -260 -tag I17 - - set xy {709 554 690 543} ;# Paw - $w.c create oval $xy -outline $::C(fg) -fill $color -width 3 -tag I17 - set xy {657 544 676 555} - $w.c create oval $xy -outline $::C(fg) -fill $color -width 3 -tag I17 - - set xy [box 660 535 15] ;# Lower face - $w.c create arc $xy -outline $::C(fg) -width 3 -style arc \ - -start 150 -extent 240 -tag I17_ - $w.c create arc $xy -outline {} -fill $color -width 1 -style chord \ - -start 150 -extent 240 -tag I17_ - set xy {674 529 670 513 662 521 658 521 650 513 647 529} ;# Ears - $w.c create line $xy -fill $::C(fg) -width 3 -tag I17_ - $w.c create poly $xy -fill $color -outline {} -width 1 -tag {I17_ I17_c} - set xy {652 542 628 539} ;# Whiskers - $w.c create line $xy -fill $::C(fg) -width 3 -tag I17_ - set xy {652 543 632 545} - $w.c create line $xy -fill $::C(fg) -width 3 -tag I17_ - set xy {652 546 632 552} - $w.c create line $xy -fill $::C(fg) -width 3 -tag I17_ - - set xy {668 543 687 538} - $w.c create line $xy -fill $::C(fg) -width 3 -tag {I17_ I17w} - set xy {668 544 688 546} - $w.c create line $xy -fill $::C(fg) -width 3 -tag {I17_ I17w} - set xy {668 547 688 553} - $w.c create line $xy -fill $::C(fg) -width 3 -tag {I17_ I17w} - - set xy {649 530 654 538 659 530} ;# Left eye - $w.c create line $xy -fill $::C(fg) -width 2 -smooth 1 -tag I17 - set xy {671 530 666 538 661 530} ;# Right eye - $w.c create line $xy -fill $::C(fg) -width 2 -smooth 1 -tag I17 - set xy {655 543 660 551 665 543} ;# Mouth - $w.c create line $xy -fill $::C(fg) -width 2 -smooth 1 -tag I17 -} -proc Move17 {w {step {}}} { - set step [GetStep 17 $step] - - if {$step == 0} { - $w.c delete I17 ;# Delete most of the cat - set xy {655 543 660 535 665 543} ;# Mouth - $w.c create line $xy -fill $::C(fg) -width 3 -smooth 1 -tag I17_ - set xy [box 654 530 4] ;# Left eye - $w.c create oval $xy -outline $::C(fg) -width 3 -fill {} -tag I17_ - set xy [box 666 530 4] ;# Right eye - $w.c create oval $xy -outline $::C(fg) -width 3 -fill {} -tag I17_ - - $w.c move I17_ 0 -20 ;# Move face up - set xy {652 528 652 554} ;# Front leg - $w.c create line $xy -fill $::C(fg) -width 3 -tag I17_ - set xy {670 528 670 554} ;# 2nd front leg - $w.c create line $xy -fill $::C(fg) -width 3 -tag I17_ - - set xy { - 675 506 694 489 715 513 715 513 715 513 716 525 716 525 716 525 - 706 530 695 530 679 535 668 527 668 527 668 527 675 522 676 517 - 677 512 - } ;# Body - $w.c create poly $xy -fill [$w.c itemcget I17_c -fill] \ - -outline $::C(fg) -width 3 -smooth 1 -tag I17_ - set xy {716 514 716 554} ;# Back leg - $w.c create line $xy -fill $::C(fg) -width 3 -tag I17_ - set xy {694 532 694 554} ;# 2nd back leg - $w.c create line $xy -fill $::C(fg) -width 3 -tag I17_ - set xy {715 514 718 506 719 495 716 488};# Tail - $w.c create line $xy -fill $::C(fg) -width 3 -smooth 1 -tag I17_ - - $w.c raise I17w ;# Make whiskers visible - $w.c move I17_ -5 0 ;# Move away from wall a bit - return 2 - } - return 0 -} - -# Sling shot -proc Draw18 {w} { - set color $::C(18) - set xy {721 506 627 506} ;# Sling hold - $w.c create line $xy -width 4 -fill $::C(fg) -tag I18 - - set xy {607 500 628 513} ;# Sling rock - $w.c create oval $xy -fill $color -outline {} -tag I18a - - set xy {526 513 606 507 494 502} ;# Sling band - $w.c create line $xy -fill $::C(fg) -width 4 -tag I18b - set xy { 485 490 510 540 510 575 510 540 535 491 } ;# Sling - $w.c create line $xy -fill $::C(fg) -width 6 -} -proc Move18 {w {step {}}} { - set step [GetStep 18 $step] - - set pos { - {587 506} {537 506} {466 506} {376 506} {266 506 x} {136 506} - {16 506} {-100 -100} - } - - set b(0) {490 502 719 507 524 512} ;# Band collapsing - set b(1) { - 491 503 524 557 563 505 559 496 546 506 551 525 553 536 538 534 - 532 519 529 499 - } - set b(2) {491 503 508 563 542 533 551 526 561 539 549 550 530 500} - set b(3) {491 503 508 563 530 554 541 562 525 568 519 544 530 501} - - if {$step >= [llength $pos]} { - return 0 - } - - if {$step == 0} { - $w.c delete I18 - $w.c itemconfig I18b -smooth 1 - } - if {[info exists b($step)]} { - $w.c coords I18b $b($step) - } - - set where [lindex $pos $step] - MoveAbs $w I18a $where - if {[lindex $where 2] eq "x"} { - return 3 - } - return 1 -} - -# Water pipe -proc Draw19 {w} { - set color $::C(19) - set xx {249 181 155 118 86 55 22 0} - foreach {x1 x2} $xx { - $w.c create rect $x1 453 $x2 467 -fill $color -outline {} -tag I19 - $w.c create line $x1 453 $x2 453 -fill $::C(fg) -width 1;# Pipe top - $w.c create line $x1 467 $x2 467 -fill $::C(fg) -width 1;# Pipe bottom - } - $w.c raise I11i - - set xy [box 168 460 16] ;# Bulge by the joint - $w.c create oval $xy -fill $color -outline {} - $w.c create arc $xy -outline $::C(fg) -width 1 -style arc \ - -start 21 -extent 136 - $w.c create arc $xy -outline $::C(fg) -width 1 -style arc \ - -start -21 -extent -130 - - set xy {249 447 255 473} ;# First joint 26x6 - $w.c create rect $xy -fill $color -outline $::C(fg) -width 1 - - set xy [box 257 433 34] ;# Bend up - $w.c create arc $xy -outline {} -fill $color -width 1 \ - -style pie -start 0 -extent -91 - $w.c create arc $xy -outline $::C(fg) -width 1 \ - -style arc -start 0 -extent -90 - set xy [box 257 433 20] - $w.c create arc $xy -outline {} -fill $::C(bg) -width 1 \ - -style pie -start 0 -extent -92 - $w.c create arc $xy -outline $::C(fg) -width 1 \ - -style arc -start 0 -extent -90 - set xy [box 257 421 34] ;# Bend left - $w.c create arc $xy -outline {} -fill $color -width 1 \ - -style pie -start 1 -extent 91 - $w.c create arc $xy -outline $::C(fg) -width 1 \ - -style arc -start 0 -extent 90 - set xy [box 257 421 20] - $w.c create arc $xy -outline {} -fill $::C(bg) -width 1 \ - -style pie -start 0 -extent 90 - $w.c create arc $xy -outline $::C(fg) -width 1 \ - -style arc -start 0 -extent 90 - set xy [box 243 421 34] ;# Bend down - $w.c create arc $xy -outline {} -fill $color -width 1 \ - -style pie -start 90 -extent 90 - $w.c create arc $xy -outline $::C(fg) -width 1 \ - -style arc -start 90 -extent 90 - set xy [box 243 421 20] - $w.c create arc $xy -outline {} -fill $::C(bg) -width 1 \ - -style pie -start 90 -extent 90 - $w.c create arc $xy -outline $::C(fg) -width 1 \ - -style arc -start 90 -extent 90 - - set xy {270 427 296 433} ;# 2nd joint bottom - $w.c create rect $xy -fill $color -outline $::C(fg) -width 1 - set xy {270 421 296 427} ;# 2nd joint top - $w.c create rect $xy -fill $color -outline $::C(fg) -width 1 - set xy {249 382 255 408} ;# Third joint right - $w.c create rect $xy -fill $color -outline $::C(fg) -width 1 - set xy {243 382 249 408} ;# Third joint left - $w.c create rect $xy -fill $color -outline $::C(fg) -width 1 - set xy {203 420 229 426} ;# Last joint - $w.c create rect $xy -fill $color -outline $::C(fg) -width 1 - - set xy [box 168 460 6] ;# Handle joint - $w.c create oval $xy -fill $::C(fg) -outline {} -tag I19a - set xy {168 460 168 512} ;# Handle bar - $w.c create line $xy -fill $::C(fg) -width 5 -tag I19b -} -proc Move19 {w {step {}}} { - set step [GetStep 19 $step] - - set angles {30 30 30} - if {$step == [llength $angles]} { - return 2 - } - - RotateItem $w I19b {*}[Centroid $w I19a] [lindex $angles $step] - return 1 -} - -# Water pouring -proc Draw20 {w} { -} -proc Move20 {w {step {}}} { - set step [GetStep 20 $step] - - set pos {451 462 473 484 496 504 513 523 532} - set freq {20 40 40 40 40 40 40 40 40} - set pos { - {451 20} {462 40} {473 40} {484 40} {496 40} {504 40} {513 40} - {523 40} {532 40 x} - } - if {$step >= [llength $pos]} { - return 0 - } - - $w.c delete I20 - set where [lindex $pos $step] - lassign $where y f - H2O $w $y $f - if {[lindex $where 2] eq "x"} { - return 3 - } - return 1 -} -proc H2O {w y f} { - set color $::C(20) - $w.c delete I20 - - Sine $w 208 428 208 $y 4 $f -tag {I20 I20s} -width 3 -fill $color \ - -smooth 1 - $w.c create line [$w.c coords I20s] -width 3 -fill $color -smooth 1 \ - -tag {I20 I20a} - $w.c create line [$w.c coords I20s] -width 3 -fill $color -smooth 1 \ - -tag {I20 I20b} - $w.c move I20a 8 0 - $w.c move I20b 16 0 -} - -# Bucket -proc Draw21 {w} { - set color $::C(21) - set xy {217 451 244 490} ;# Right handle - $w.c create line $xy -fill $::C(fg) -width 2 -tag I21_a - set xy {201 467 182 490} ;# Left handle - $w.c create line $xy -fill $::C(fg) -width 2 -tag I21_a - - set xy {245 490 237 535} ;# Right side - set xy2 {189 535 181 490} ;# Left side - $w.c create poly [concat $xy $xy2] -fill $color -outline {} \ - -tag {I21 I21f} - $w.c create line $xy -fill $::C(fg) -width 2 -tag I21 - $w.c create line $xy2 -fill $::C(fg) -width 2 -tag I21 - - set xy {182 486 244 498} ;# Top - $w.c create oval $xy -fill $color -outline {} -width 2 -tag {I21 I21f} - $w.c create oval $xy -fill {} -outline $::C(fg) -width 2 -tag {I21 I21t} - set xy {189 532 237 540} ;# Bottom - $w.c create oval $xy -fill $color -outline $::C(fg) -width 2 \ - -tag {I21 I21b} -} -proc Move21 {w {step {}}} { - set step [GetStep 21 $step] - - set numsteps 30 - if {$step >= $numsteps} { - return 0 - } - - lassign [$w.c coords I21b] x1 y1 x2 y2 - #lassign [$w.c coords I21t] X1 Y1 X2 Y2 - lassign {183 492 243 504} X1 Y1 X2 Y2 - - set f [expr {$step / double($numsteps)}] - set y2 [expr {$y2 - 3}] - set xx1 [expr {$x1 + ($X1 - $x1) * $f}] - set yy1 [expr {$y1 + ($Y1 - $y1) * $f}] - set xx2 [expr {$x2 + ($X2 - $x2) * $f}] - set yy2 [expr {$y2 + ($Y2 - $y2) * $f}] - #H2O $w $yy1 40 - - $w.c itemconfig I21b -fill $::C(20) - $w.c delete I21w - $w.c create poly $x2 $y2 $x1 $y1 $xx1 $yy1 $xx2 $yy1 -tag {I21 I21w} \ - -outline {} -fill $::C(20) - $w.c lower I21w I21 - $w.c raise I21b - $w.c lower I21f - - return [expr {$step == $numsteps-1 ? 3 : 1}] -} - -# Bucket drop -proc Draw22 {w} { -} -proc Move22 {w {step {}}} { - set step [GetStep 22 $step] - set pos {{213 513} {213 523} {213 543 x} {213 583} {213 593}} - - if {$step == 0} {$w.c itemconfig I21f -fill $::C(22)} - if {$step >= [llength $pos]} { - return 0 - } - set where [lindex $pos $step] - MoveAbs $w I21 $where - H2O $w [lindex $where 1] 40 - $w.c delete I21_a ;# Delete handles - - if {[lindex $where 2] eq "x"} { - return 3 - } - return 1 -} - -# Blow dart -proc Draw23 {w} { - set color $::C(23a) - set color2 $::C(23b) - set color3 $::C(23c) - - set xy {185 623 253 650} ;# Block - $w.c create rect $xy -fill black -outline $::C(fg) -width 2 -tag I23a - set xy {187 592 241 623} ;# Balloon - $w.c create oval $xy -outline {} -fill $color -tag I23b - $w.c create arc $xy -outline $::C(fg) -width 3 -tag I23b \ - -style arc -start 12 -extent 336 - set xy {239 604 258 589 258 625 239 610} ;# Balloon nozzle - $w.c create poly $xy -outline {} -fill $color -tag I23b - $w.c create line $xy -fill $::C(fg) -width 3 -tag I23b - - set xy {285 611 250 603} ;# Dart body - $w.c create oval $xy -fill $color2 -outline $::C(fg) -width 3 -tag I23d - set xy {249 596 249 618 264 607 249 596} ;# Dart tail - $w.c create poly $xy -fill $color3 -outline $::C(fg) -width 3 -tag I23d - set xy {249 607 268 607} ;# Dart detail - $w.c create line $xy -fill $::C(fg) -width 3 -tag I23d - set xy {285 607 305 607} ;# Dart needle - $w.c create line $xy -fill $::C(fg) -width 3 -tag I23d -} -proc Move23 {w {step {}}} { - set step [GetStep 23 $step] - - set pos { - {277 607} {287 607} {307 607 x} {347 607} {407 607} {487 607} - {587 607} {687 607} {787 607} {-100 -100} - } - - if {$step >= [llength $pos]} { - return 0 - } - if {$step <= 1} { - $w.c scale I23b {*}[Anchor $w I23a n] .9 .5 - } - set where [lindex $pos $step] - MoveAbs $w I23d $where - - if {[lindex $where 2] eq "x"} { - return 3 - } - return 1 -} - -# Balloon -proc Draw24 {w} { - set color $::C(24a) - set xy {366 518 462 665} ;# Balloon - $w.c create oval $xy -fill $color -outline $::C(fg) -width 3 -tag I24 - set xy {414 666 414 729} ;# String - $w.c create line $xy -fill $::C(fg) -width 3 -tag I24 - set xy {410 666 404 673 422 673 418 666} ;# Nozzle - $w.c create poly $xy -fill $color -outline $::C(fg) -width 3 -tag I24 - - set xy {387 567 390 549 404 542} ;# Reflections - $w.c create line $xy -fill $::C(fg) -smooth 1 -width 2 -tag I24 - set xy {395 568 399 554 413 547} - $w.c create line $xy -fill $::C(fg) -smooth 1 -width 2 -tag I24 - set xy {403 570 396 555 381 553} - $w.c create line $xy -fill $::C(fg) -smooth 1 -width 2 -tag I24 - set xy {408 564 402 547 386 545} - $w.c create line $xy -fill $::C(fg) -smooth 1 -width 2 -tag I24 -} -proc Move24 {w {step {}}} { - global S - set step [GetStep 24 $step] - - if {$step > 4} { - return 0 - } elseif {$step == 4} { - return 2 - } - - if {$step == 0} { - $w.c delete I24 ;# Exploding balloon - set xy { - 347 465 361 557 271 503 272 503 342 574 259 594 259 593 362 626 - 320 737 320 740 398 691 436 738 436 739 476 679 528 701 527 702 - 494 627 548 613 548 613 480 574 577 473 577 473 474 538 445 508 - 431 441 431 440 400 502 347 465 347 465 - } - $w.c create poly $xy -tag I24 -fill $::C(24b) -outline $::C(24a) \ - -width 10 -smooth 1 - set msg [subst $S(message)] - $w.c create text [Centroid $w I24] -text $msg -tag {I24 I24t} \ - -justify center -font {{Times Roman} 18 bold} - return 1 - } - - $w.c itemconfig I24t -font [list {Times Roman} [expr {18 + 6*$step}] bold] - $w.c move I24 0 -60 - $w.c scale I24 {*}[Centroid $w I24] 1.25 1.25 - return 1 -} - -# Displaying the message -proc Move25 {w {step {}}} { - global S - set step [GetStep 25 $step] - if {$step == 0} { - set ::XY(25) [clock clicks -milliseconds] - return 1 - } - set elapsed [expr {[clock clicks -milliseconds] - $::XY(25)}] - if {$elapsed < 5000} { - return 1 - } - return 2 -} - -# Collapsing balloon -proc Move26 {w {step {}}} { - global S - set step [GetStep 26 $step] - - if {$step >= 3} { - $w.c delete I24 I26 - $w.c create text 430 755 -anchor s -tag I26 \ - -text "click to continue" -font {{Times Roman} 24 bold} - bind $w.c <1> [list Reset $w] - return 4 - } - - $w.c scale I24 {*}[Centroid $w I24] .8 .8 - $w.c move I24 0 60 - $w.c itemconfig I24t -font [list {Times Roman} [expr {30 - 6*$step}] bold] - return 1 -} - -################################################################ -# -# Helper functions -# - -proc box {x y r} { - return [list [expr {$x-$r}] [expr {$y-$r}] [expr {$x+$r}] [expr {$y+$r}]] -} - -proc MoveAbs {w item xy} { - lassign $xy x y - lassign [Centroid $w $item] Ox Oy - set dx [expr {$x - $Ox}] - set dy [expr {$y - $Oy}] - $w.c move $item $dx $dy -} - -proc RotateItem {w item Ox Oy beta} { - set xy [$w.c coords $item] - set xy2 {} - foreach {x y} $xy { - lappend xy2 {*}[RotateC $x $y $Ox $Oy $beta] - } - $w.c coords $item $xy2 -} - -proc RotateC {x y Ox Oy beta} { - # rotates vector (Ox,Oy)->(x,y) by beta degrees clockwise - - set x [expr {$x - $Ox}] ;# Shift to origin - set y [expr {$y - $Oy}] - - set beta [expr {$beta * atan(1) * 4 / 180.0}] ;# Radians - set xx [expr {$x * cos($beta) - $y * sin($beta)}] ;# Rotate - set yy [expr {$x * sin($beta) + $y * cos($beta)}] - - set xx [expr {$xx + $Ox}] ;# Shift back - set yy [expr {$yy + $Oy}] - - return [list $xx $yy] -} - -proc Reset {w} { - global S - DrawAll $w - bind $w.c <1> {} - set S(mode) $::MSTART - set S(active) 0 -} - -# Each Move## keeps its state info in STEP, this retrieves and increments it -proc GetStep {who step} { - global STEP - if {$step ne ""} { - set STEP($who) $step - } elseif {![info exists STEP($who)] || $STEP($who) eq ""} { - set STEP($who) 0 - } else { - incr STEP($who) - } - return $STEP($who) -} - -proc ResetStep {} { - global STEP - set ::S(cnt) 0 - foreach a [array names STEP] { - set STEP($a) "" - } -} - -proc Sine {w x0 y0 x1 y1 amp freq args} { - set PI [expr {4 * atan(1)}] - set step 2 - set xy {} - if {$y0 == $y1} { ;# Horizontal - for {set x $x0} {$x <= $x1} {incr x $step} { - set beta [expr {($x - $x0) * 2 * $PI / $freq}] - set y [expr {$y0 + $amp * sin($beta)}] - lappend xy $x $y - } - } else { - for {set y $y0} {$y <= $y1} {incr y $step} { - set beta [expr {($y - $y0) * 2 * $PI / $freq}] - set x [expr {$x0 + $amp * sin($beta)}] - lappend xy $x $y - } - } - return [$w.c create line $xy {*}$args] -} - -proc RoundRect {w xy radius args} { - lassign $xy x0 y0 x3 y3 - set r [winfo pixels $w.c $radius] - set d [expr {2 * $r}] - - # Make sure that the radius of the curve is less than 3/8 size of the box! - set maxr 0.75 - if {$d > $maxr * ($x3 - $x0)} { - set d [expr {$maxr * ($x3 - $x0)}] - } - if {$d > $maxr * ($y3 - $y0)} { - set d [expr {$maxr * ($y3 - $y0)}] - } - - set x1 [expr { $x0 + $d }] - set x2 [expr { $x3 - $d }] - set y1 [expr { $y0 + $d }] - set y2 [expr { $y3 - $d }] - - set xy [list $x0 $y0 $x1 $y0 $x2 $y0 $x3 $y0 $x3 $y1 $x3 $y2] - lappend xy $x3 $y3 $x2 $y3 $x1 $y3 $x0 $y3 $x0 $y2 $x0 $y1 - return $xy -} - -proc RoundPoly {canv xy radii args} { - set lenXY [llength $xy] - set lenR [llength $radii] - if {$lenXY != 2*$lenR} { - error "wrong number of vertices and radii" - } - - set knots {} - lassign [lrange $xy end-1 end] x0 y0 - lassign $xy x1 y1 - lappend xy {*}[lrange $xy 0 1] - - for {set i 0} {$i < $lenXY} {incr i 2} { - set radius [lindex $radii [expr {$i/2}]] - set r [winfo pixels $canv $radius] - - lassign [lrange $xy [expr {$i + 2}] [expr {$i + 3}]] x2 y2 - set z [_RoundPoly2 $x0 $y0 $x1 $y1 $x2 $y2 $r] - lappend knots {*}$z - - lassign [list $x1 $y1] x0 y0 - lassign [list $x2 $y2] x1 y1 - } - set n [$canv create polygon $knots -smooth 1 {*}$args] - return $n -} - -proc _RoundPoly2 {x0 y0 x1 y1 x2 y2 radius} { - set d [expr {2 * $radius}] - set maxr 0.75 - - set v1x [expr {$x0 - $x1}] - set v1y [expr {$y0 - $y1}] - set v2x [expr {$x2 - $x1}] - set v2y [expr {$y2 - $y1}] - - set vlen1 [expr {sqrt($v1x*$v1x + $v1y*$v1y)}] - set vlen2 [expr {sqrt($v2x*$v2x + $v2y*$v2y)}] - if {$d > $maxr * $vlen1} { - set d [expr {$maxr * $vlen1}] - } - if {$d > $maxr * $vlen2} { - set d [expr {$maxr * $vlen2}] - } - - lappend xy [expr {$x1 + $d * $v1x/$vlen1}] [expr {$y1 + $d * $v1y/$vlen1}] - lappend xy $x1 $y1 - lappend xy [expr {$x1 + $d * $v2x/$vlen2}] [expr {$y1 + $d * $v2y/$vlen2}] - - return $xy -} - -proc Sparkle {w Oxy tag} { - set xy {299 283 298 302 295 314 271 331 239 310 242 292 256 274 281 273} - foreach {x y} $xy { - $w.c create line 271 304 $x $y -fill white -width 3 -tag $tag - } - MoveAbs $w $tag $Oxy -} - -proc Centroid {w item} { - return [Anchor $w $item c] -} - -proc Anchor {w item where} { - lassign [$w.c bbox $item] x1 y1 x2 y2 - if {[string match *n* $where]} { - set y $y1 - } elseif {[string match *s* $where]} { - set y $y2 - } else { - set y [expr {($y1 + $y2) / 2.0}] - } - if {[string match *w* $where]} { - set x $x1 - } elseif {[string match *e* $where]} { - set x $x2 - } else { - set x [expr {($x1 + $x2) / 2.0}] - } - return [list $x $y] -} - -DoDisplay $w -Reset $w -Go $w ;# Start everything going diff --git a/mingw/lib/tk8.5/demos/hello b/mingw/lib/tk8.5/demos/hello deleted file mode 100644 index 6461f468d8..0000000000 --- a/mingw/lib/tk8.5/demos/hello +++ /dev/null @@ -1,24 +0,0 @@ -#!/bin/sh -# the next line restarts using wish \ -exec wish "$0" "$@" - -# hello -- -# Simple Tk script to create a button that prints "Hello, world". -# Click on the button to terminate the program. -# -# RCS: @(#) $Id: hello,v 1.4 2003/09/30 14:54:30 dkf Exp $ - -package require Tk - -# The first line below creates the button, and the second line -# asks the packer to shrink-wrap the application's main window -# around the button. - -button .hello -text "Hello, world" -command { - puts stdout "Hello, world"; destroy . -} -pack .hello - -# Local Variables: -# mode: tcl -# End: diff --git a/mingw/lib/tk8.5/demos/hscale.tcl b/mingw/lib/tk8.5/demos/hscale.tcl deleted file mode 100644 index 1498902219..0000000000 --- a/mingw/lib/tk8.5/demos/hscale.tcl +++ /dev/null @@ -1,47 +0,0 @@ -# hscale.tcl -- -# -# This demonstration script shows an example with a horizontal scale. -# -# RCS: @(#) $Id: hscale.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .hscale -catch {destroy $w} -toplevel $w -wm title $w "Horizontal Scale Demonstration" -wm iconname $w "hscale" -positionWindow $w - -label $w.msg -font $font -wraplength 3.5i -justify left -text "An arrow and a horizontal scale are displayed below. If you click or drag mouse button 1 in the scale, you can change the length of the arrow." -pack $w.msg -side top -padx .5c - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.frame -borderwidth 10 -pack $w.frame -side top -fill x - -canvas $w.frame.canvas -width 50 -height 50 -bd 0 -highlightthickness 0 -$w.frame.canvas create polygon 0 0 1 1 2 2 -fill DeepSkyBlue3 -tags poly -$w.frame.canvas create line 0 0 1 1 2 2 0 0 -fill black -tags line -scale $w.frame.scale -orient horizontal -length 284 -from 0 -to 250 \ - -command "setWidth $w.frame.canvas" -tickinterval 50 -pack $w.frame.canvas -side top -expand yes -anchor s -fill x -padx 15 -pack $w.frame.scale -side bottom -expand yes -anchor n -$w.frame.scale set 75 - -proc setWidth {w width} { - incr width 21 - set x2 [expr {$width - 30}] - if {$x2 < 21} { - set x2 21 - } - $w coords poly 20 15 20 35 $x2 35 $x2 45 $width 25 $x2 5 $x2 15 20 15 - $w coords line 20 15 20 35 $x2 35 $x2 45 $width 25 $x2 5 $x2 15 20 15 -} diff --git a/mingw/lib/tk8.5/demos/icon.tcl b/mingw/lib/tk8.5/demos/icon.tcl deleted file mode 100644 index e8a7ab2aec..0000000000 --- a/mingw/lib/tk8.5/demos/icon.tcl +++ /dev/null @@ -1,53 +0,0 @@ -# icon.tcl -- -# -# This demonstration script creates a toplevel window containing -# buttons that display bitmaps instead of text. -# -# RCS: @(#) $Id: icon.tcl,v 1.6 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .icon -catch {destroy $w} -toplevel $w -wm title $w "Iconic Button Demonstration" -wm iconname $w "icon" -positionWindow $w - -label $w.msg -font $font -wraplength 5i -justify left -text "This window shows three ways of using bitmaps or images in radiobuttons and checkbuttons. On the left are two radiobuttons, each of which displays a bitmap and an indicator. In the middle is a checkbutton that displays a different image depending on whether it is selected or not. On the right is a checkbutton that displays a single bitmap but changes its background color to indicate whether or not it is selected." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -# Main widget program sets variable tk_demoDirectory -image create bitmap flagup \ - -file [file join $tk_demoDirectory images flagup.xbm] \ - -maskfile [file join $tk_demoDirectory images flagup.xbm] -image create bitmap flagdown \ - -file [file join $tk_demoDirectory images flagdown.xbm] \ - -maskfile [file join $tk_demoDirectory images flagdown.xbm] -frame $w.frame -borderwidth 10 -pack $w.frame -side top - -checkbutton $w.frame.b1 -image flagdown -selectimage flagup \ - -indicatoron 0 -$w.frame.b1 configure -selectcolor [$w.frame.b1 cget -background] -checkbutton $w.frame.b2 \ - -bitmap @[file join $tk_demoDirectory images letters.xbm] \ - -indicatoron 0 -selectcolor SeaGreen1 -frame $w.frame.left -pack $w.frame.left $w.frame.b1 $w.frame.b2 -side left -expand yes -padx 5m - -radiobutton $w.frame.left.b3 \ - -bitmap @[file join $tk_demoDirectory images letters.xbm] \ - -variable letters -value full -radiobutton $w.frame.left.b4 \ - -bitmap @[file join $tk_demoDirectory images noletter.xbm] \ - -variable letters -value empty -pack $w.frame.left.b3 $w.frame.left.b4 -side top -expand yes diff --git a/mingw/lib/tk8.5/demos/image1.tcl b/mingw/lib/tk8.5/demos/image1.tcl deleted file mode 100644 index 95a2c713de..0000000000 --- a/mingw/lib/tk8.5/demos/image1.tcl +++ /dev/null @@ -1,37 +0,0 @@ -# image1.tcl -- -# -# This demonstration script displays two image widgets. -# -# RCS: @(#) $Id: image1.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .image1 -catch {destroy $w} -toplevel $w -wm title $w "Image Demonstration #1" -wm iconname $w "Image1" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "This demonstration displays two images, each in a separate label widget." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -# Main widget program sets variable tk_demoDirectory -catch {image delete image1a} -image create photo image1a -file [file join $tk_demoDirectory images earth.gif] -label $w.l1 -image image1a -bd 1 -relief sunken - -catch {image delete image1b} -image create photo image1b \ - -file [file join $tk_demoDirectory images earthris.gif] -label $w.l2 -image image1b -bd 1 -relief sunken - -pack $w.l1 $w.l2 -side top -padx .5m -pady .5m diff --git a/mingw/lib/tk8.5/demos/image2.tcl b/mingw/lib/tk8.5/demos/image2.tcl deleted file mode 100644 index 0444dd40e8..0000000000 --- a/mingw/lib/tk8.5/demos/image2.tcl +++ /dev/null @@ -1,110 +0,0 @@ -# image2.tcl -- -# -# This demonstration script creates a simple collection of widgets -# that allow you to select and view images in a Tk label. -# -# RCS: @(#) $Id: image2.tcl,v 1.11 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -# loadDir -- -# This procedure reloads the directory listbox from the directory -# named in the demo's entry. -# -# Arguments: -# w - Name of the toplevel window of the demo. - -proc loadDir w { - global dirName - - $w.f.list delete 0 end - foreach i [lsort [glob -type f -directory $dirName *]] { - $w.f.list insert end [file tail $i] - } -} - -# selectAndLoadDir -- -# This procedure pops up a dialog to ask for a directory to load into -# the listobx and (if the user presses OK) reloads the directory -# listbox from the directory named in the demo's entry. -# -# Arguments: -# w - Name of the toplevel window of the demo. - -proc selectAndLoadDir w { - global dirName - set dir [tk_chooseDirectory -initialdir $dirName -parent $w -mustexist 1] - if {[string length $dir] != 0} { - set dirName $dir - loadDir $w - } -} - -# loadImage -- -# Given the name of the toplevel window of the demo and the mouse -# position, extracts the directory entry under the mouse and loads -# that file into a photo image for display. -# -# Arguments: -# w - Name of the toplevel window of the demo. -# x, y- Mouse position within the listbox. - -proc loadImage {w x y} { - global dirName - - set file [file join $dirName [$w.f.list get @$x,$y]] - if {[catch { - image2a configure -file $file - }]} then { - # Mark the file as not loadable - $w.f.list itemconfigure @$x,$y -bg \#c00000 -selectbackground \#ff0000 - } -} - -set w .image2 -catch {destroy $w} -toplevel $w -wm title $w "Image Demonstration #2" -wm iconname $w "Image2" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "This demonstration allows you to view images using a Tk \"photo\" image. First type a directory name in the listbox, then type Return to load the directory into the listbox. Then double-click on a file name in the listbox to see that image." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.mid -pack $w.mid -fill both -expand 1 - -labelframe $w.dir -text "Directory:" -# Main widget program sets variable tk_demoDirectory -set dirName [file join $tk_demoDirectory images] -entry $w.dir.e -width 30 -textvariable dirName -button $w.dir.b -pady 0 -padx 2m -text "Select Dir." \ - -command "selectAndLoadDir $w" -bind $w.dir.e "loadDir $w" -pack $w.dir.e -side left -fill both -padx 2m -pady 2m -expand true -pack $w.dir.b -side left -fill y -padx {0 2m} -pady 2m -labelframe $w.f -text "File:" -padx 2m -pady 2m - -listbox $w.f.list -width 20 -height 10 -yscrollcommand "$w.f.scroll set" -scrollbar $w.f.scroll -command "$w.f.list yview" -pack $w.f.list $w.f.scroll -side left -fill y -expand 1 -$w.f.list insert 0 earth.gif earthris.gif teapot.ppm -bind $w.f.list "loadImage $w %x %y" - -catch {image delete image2a} -image create photo image2a -labelframe $w.image -text "Image:" -label $w.image.image -image image2a -pack $w.image.image -padx 2m -pady 2m - -grid $w.dir - -sticky ew -padx 1m -pady 1m -in $w.mid -grid $w.f $w.image -sticky nw -padx 1m -pady 1m -in $w.mid -grid columnconfigure $w.mid 1 -weight 1 diff --git a/mingw/lib/tk8.5/demos/images/earth.gif b/mingw/lib/tk8.5/demos/images/earth.gif deleted file mode 100644 index 2c229eb1101cfd51df5cc91a4cef18e38b5fcef6..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcwPel00001 literal 51712 zcwRJ@XH-+!_ps9&E%Xpt=tvDc6g7nsnuI2yY3Kn_gQ7-7C!J6Yh!7DqAZRE$0a39| z5{js(0UIjggrcJ3_`^EPjKjS7e|XQ@>&dgu+4n>CI{Tb^V`8HTA$dgLB;Zc~U{<3< z=mr1{K%fx_G+IaW{|y8Hg9cy#2n+&&K_f62ouDyjGzOz1=Klr)fkPv32s93j#$j~C z;4r$t>FAEZxx3@=cy|Kf|AI)s6Nz{tRTl)EQ;B#g6;CA)s6+ylN}$pRRJu-xR2q>= zCsG-@EIf^frx6G=B7sIF&}cd#(x^lljYy*tX$+lEX>=-$L8UQuPZQ`w0-Z{r({w_l zQ;BpMkxthMl}@A5=~Oy{N@wbXMrY9IOd6e~qi&tZpb{B09jOc&l|iR67&@Ub=rjg{ z#$eJIES=C9Oge)_XRvi-Fxa{jB9lsG(x^;2mC4WvjY+3588jx7#$@T7&ScP;OgfWA zXR>v|V6qrYHiOC0k;&vRnPOccjYX%i7&_8f3_6QRXR&l-uviQho5AAfgvnwvSsW%y z%w$P)!eWV8ED4Jx)sfATvRO15n@(pl=xnAg7;F}U&DN30W;59wCR?l%7MsIji&<<5 zi!Id&n=N6prEIoLM-E%YVaqveB}exxhsD(WaM&ykhs6==$mWRI90{8vWpiXY=Wrw( zj+DcZaX50Fh&eJbM=s_lbPH^;m@Ss*$Pr68Vkt)~(@`vziN$iUSfLY%SS}GOB;pYr zrMe}FOe~S>D3Qn|5`{!Eq7$h^A(f0sB}%DoUMiPJ6*@|#3aNBNDpl%4CLNJUl{(6$ zO1W-crjW@-WHO~prjW}<A0;psZdw@@eJ^&czZQLg1AUXi{9K8I?pQZw(B`b8?0 zSPJZ^RsO|SEA2tm`q)5*R!IW??>A*AIszFmA6JLibjyow(>b+hL2-m2n>o~4Yd58{ z=JQ`X5F~KTq-ulYhVn#cK^^;(6UvUJYWD*_?SJOm6Z=!_AD80Hebdjcnxr36dOc~W z`s>q7o#zSKfK< zw+&kPT(~*UJWbJ>YnjH$Dmwo!=7r?arQ)UX!R^Eo+pZR|UcyvS>pH3@f=XN}Afbw! zc-!7IO(cXJnsW>hTWGu6&>4T~82p{f(Y=`{XSeFJr9_baegXL&{sG?Ux1eW)W9FWH z^sYD;QQrd6YY@-BA8;SwRL?o&KRy*Sn?pH$h#vG!&$B~3&qEZ}>}@YC`Bnaiv18q3 zi>+(rgYw0ihIh-v0iSDqR#{gTq6)Gue>Ufe1D_r{dZhd>dKOa#^eoJ>ggk$-&2sE} z`z5UN^X{D~YcQ)5K1kj7&457sv@d`Yz~~VY1w%eRxRj)?P?PIGir*sPIycnbdo$D?cFd6Op6$gC8&! z6Yx_v^3xCBT1~O{72Ws*>K)9ZAI~EEb?j(%xKTX4uw?u$v2I%hhAtWe#j7BDfK}y< z9KSy*hc9p^vY6+xTEAQxOs^wdemc{-{j&Aa(?53Feg5Zl1?tkU%}9}9q3?0T)jyKg z=63oL=MwGiewD^lGw^}htw(~*?c%`l^Zr(R`~cI&LmKR*(A z!{c^&7Qt^!-?w>%pPr0|<=d+6|IR7rJ==vSk=#(!ZG9L@Y`vR$>RhZA?6V4Tp>b=| zySvO^tVD-uNR1VO6`K#l+d-#D^>i7}gvS8epz@H>vQ2vk3BS6TOp7C{$d+p_@iCz< z^1>@v{C%#F#{sgYhVqCrn9D0ruLGY@TWD&%h!tYewWpZzF_f?3F0vZXYKi%S3A*`r z`as9IzTP137zy`f$nf-zd?s>I*B*d`NI^nUoEflj9 z`Zlidn4LQ0BSQeJ?=T!0b3PYjz7*OpXuXNm4AejDU@l+6!P7fYblMpkg-tac0FiG| zd^TyO^RbVWA`&~_>se z7Y|6RzGXsfvlKUq6B`2dRBZXCald6?I}y$E%ld*1z}VL$9hzU`EBh*Wz=z#1@Z{at zi$2Pu4%11&kNXmzHw(Bwdd^Eycr}jG=^a-|krAfejaqCM8fJz&ss+up-(BqZyo~U+ z!f`Rd(zx{e1#=Z`9FMlp-#XT1(Yivx{ZPU;DDn)pE5QC6KZ%pkK}P$D#fEJMP=&6J z#y!;Nu$cf(DOA2WIjU%L64Fe_cQwTX1M7w2^5Pfl5wB<>4q}S zVxQ(ibm;7KrHkQj-*+AQF2paMD0ws@ zYKK!9={*&{mC*T@CZjDRM-MgZd@OqY+n8``Eu?0jIx2ZDDYEJBzrC(T{C)>oxs2QL zUUT*CQA?%D0_2DWyRoNFrzyHD2XK!)+mq|dsiQY00IsR$JoTOk|FlTj9%;8E`Sp*o zXJ!Mdv)<7adIjB^urte|@VVs1;&vz7H>;wxPL^RP1PROvt09&S6cgNxE7+k z^YX^XaL3!JhGqz6@V7pJ@e$`S&W_*Zk)-PY@W{Hzpkl!GJOwgi#nJqi5mEYPKV-rb z+4>nr6g1?~VB^8>y(l(JAXW0 zAI_$ky?0M5d7R5SgS|)a4ZJ`9ao_N$?YkA&5MNc0mgWGlRxTbcDRjF2H6h^VyEU5C zsji#YZRxDQgyN6w7N74-&-Xt+L)tp(b*GpUY>j#O`o!ZCBv46Idqe7OFRZck>FVwd zVdF7E?AiJYds~)O&!A@%$hp5q%+C`=?N`Fy^auZnoniew)7DpiwyxlL?CtNE_W<#E zH_*!?_^4;;ZC}s+1G4O4kNL%{aS0MFiz1JGzIRhXJ^uG;fA%^Cter;FvfAC^l51pPzwN~FLE9Cir)o^or}eON76!MsZl7k<7q8#h$*eO6n&0+10`)eK?uQ0Mr_Jf|@HN;LY!5xtkB z|K`3{l~iIdmLX7!DIqOs1!!0d9vZ`-ke{Tb7Z+`cITU||Kfy}d&w=ysi1RBbt-|m< z!|)r?XohI?g<<#%ueYYs8&KHyf6af2Gkl}vZA%JsjA{)QsYdTKkwZ!YMYq8(=zyErV;jG(>jxn1WLsO4fq$xHfj@ zpNI+>x?G0+X6xwYW>pjd=UT?>2Ks7Hx8CSoQML~eihtGa*+{R-E;5K(ZT~s8Xcq@o zf`=ubVF}{2@s{?d3d7%tM;~0yO<@{jyf#qL41Xm?{;~pZ#py4}4DM_7T#xGw;sXZI z0h`mHHkzbk$wBd^84b~1w}&haJ!S5D@>7V(ktI_gC}w@S>FItRaMjt{sygq_tHD0S zrfDWJo4i`%tFHMb+1u3si1xtB5TN>uFH*B>eA>Zm%)t%^yRcF~{F}dK`=Yb=%fSVl zp_U=H3p-S>g1D|kG)fTBcxV&=N9X!b~wyMut zAD&0wRpY^nb^5k@W0{l7mX@>4&u#qQn*6&i<;Sk$bxv-(%Vg~YI~W(xP+_+i0NSTS zDOPxodU7L}Ra#AX!?m9i&9~p-AYy0`f&@%MA3Dd#J;yNm&Z=5acBSk;T79=J_D|$b z4A=n~T%v$ip^;UZzL8_dPMY2jx_@v5)u-U~;{q-ak$(oSVZRUWWLBggq5}_!JbpZ3 zN|WjT2ppJAJ?7e;hI8V0kNt6366=!8WFDr=a$7m?07P|QZ85~`&e^V*6qH}VawpJ7 zfjke`GB}bJw?}?XyIq+fcrf|%%c9&Ai|qnDESUufMMEWh`ZX-ndxp_BKwl5GFMhnP z_bB2316Il!wCaa9Y5L?c)Ib^XG`?Sj*XvNCxa}ynZ1VvP+?^G(iaF)z$T$S2S3Y5W zqSKf7Om!TVpHV`zJ`aiA2;Z~6Eyh~5nTo}uD}`q(DNQ}MZLaARl(yI4lL2(=a}SaW z8Uo-Ozw@>{E$n}U*hNgJK5#TaeEFYidqUS{k?nX$C;-M_paPHQ=D#^OR^1u;7;#1k zEn~pmdyX8Er5+_B&wC)70LUf|s#SulQzMU~uh!PZ^{;fa;GnVCig`X8Gw^cye zFu$8^f%p3Rd*dHR84o^hSbIqJeo`A$#1FnPm{(nYx--r6!dqL{1Q+|z1FvdbFeAS3 z+DnUzpmo3NjVW#f>kGqe?)L7^y;_s|%mto@hFy`#oBjrqS0JxmrahQF@wyHgO{-6% zL5pax5(X@-eDJ^ue1L&7BB!E>vJ623wv-rD^vj>JXyiLzujOl=J2g7SNshdXX&|Y&k`HuMmC3dUoSerav z?eVgJeSv2RfmRyuI&1yFh{3Ko%{j^4aO8A>21)}!^BB`-W&G&{V~(&(>F)7$aK}MkaEmnpbYgIY_tbx{AhKZbR*m zTrDM8y}qi~?uY>!A*Z1P|KYyf(oehufc%nu|*_Q@s`8nYQ(l;^YGKaTnx! zY0bOX*11@RKc!>aj6+C{`ZC}aTDMxJ|EjgHB>Ywqe6Y)Ay0>cD{9kaw3fO%6iT*Fh z>ool%0O)m%K|n(8hHm6`282$7MAIN?4CrPeG!+jmBEr(O_ilMXi&tRH0L0G{)FB1@ zm;@zPz%kb!eU1M`PD4sLH>I*TIcK6z3oo!bfB)#F7v(|!dwiri+kY^g;xIy1~tx_H{?#=4m-=zJ1ar7vi#^WNQMj=&!|tuK{^jX zX#=-TZ67R_+$!WiGFIS+IfyADa%32JOQzegFDL59AO1ic=OAzX@lqa%q~aaQfDd-r zR0QW+HO@bVmpedXl8%wAe7Bu?cr&I2{*=*>ceQCh0_h?)&iXAbf3AHO!B{pICNsOL zUM6J|EcM3~e6!l$9-jT}pZmXsc8}&MN73tN|I3}-fYXMrfLV=u1}=v6D2mn+Bw(@z z94&(!%YsBnW)3&P_j6z@7A%c1vu)+x%_=CDi0oU@>r)_`SKz~1REKQ*kaA%n0{K#m z z+8)S#W&EH1D}&z5{iHjYhYvvGd|oU9dzE@>ZRj;lOKwQtaDDTOJ-N^JOc$_Fuh%rZ z-0AnH?k3P?K_9`r9q?S;^~oN6bgBFt4b>w7i%-?ltGhxVFdhq*iigBApe00@?O|An z7S5v~e_DZ8v9iZmhR+npUm8$N3b@w>qztVmWgr5_Q2i@wC5Wk6#N8F-`K!Mv zXZN_ByqC&=W=LSgG-#&g`A!+E6p!eY!MH5s6{X>l1jUoYWt6`>DnnghATI*Um9k&@ zB=6-kSa}gvuPOu5Y8rokgXW^s;{eX{;|v1V;vN}D{HLcFNb66wK6;zO*gc75F!!ro zwN2)`zx}HBcMUk%Sc2Srr1U__Y19R@KK7>G^jiAQuYW%gum3%dF=O%Tx7nY*SLc2Q z9i9endAnf+L}TTqh{9x6?GL|K+1-WcpN3IoFd+@G69DJ#gzb>P$`tT2&8;#eycK{x zCH~ajf=chEO3XgiK&Zz&lI{;Th3{*4)|Y;R-RUomtAisgBDb&s^CThMF|l=+^H~Lk z8@b;|I6gzZd)&o7Qg-}HablA(`$bw!r>h9z=qDcLs7fE{Zwg>3B@Ux7Ln}-ITd4#J zp?Owz&E7AekY#@cEoIDQ^UW5kmwSGHoHtfu?z`hL zqT)=%-U$Kn5%g}6d%|JjJCow6C7-p8f&bxdUTs+yo_h_SnHV;ZS|7*f+Fh(?6w%bLdC@8 zb(_6d!n-s@M>oA59(D9g@pG+RBk+%GoONGn_8b>o);EiCOe%Y1Qv)wCgebAq8wpL+pn-2i>DHkf!vpzj&Iq2TYJ85%_| z$mZMVk&SB#b$#H}?4oQvZl2#9i^x0MRz73=_C#LCw8$zYWWjyIdNNbud~9>xNvA5MrLbZpDMq5@r9AxpV>r{Us%z>PoEIBQO{8KQ|rq;+QfHeNrrh66Vq14&sDE~hj#5I zndE8thlPffVTfG2z-bYFtjjp{z?lC)XMJ!78GBZC-|>S+9Mh6-c4l@wKVe!rIy-?K zT2a{z5QWxeTtu`~jRkOFzDx&XmK^kTKnV*G>@=ua8STUg-PcP=CUR+{y(_6^y^M=_ zhM$OdGjGW59<`ogN8_b=zchZ}Zdg~tIW!QAYhOVT;U>tq5pr;QM`DKmyQH|WVv{ZN z)uh{N2jbG^_IApd0Px)$W%b``@{OfGcIL5;$-(#ayxwTlm1o+ z7$c92N)81mTQJ+Wxkr(}j36B1Yf&4V_j=P|;pt18mw5@D4DOB;?&Wn+6pMv52}}+> zuRQjezv!q3`tjXynD`|tmz$h%Sx7g&=?u=KMg`PYINKZ^tUj_TFPDxvhnLs;)0$^Y z>gAAWTM|5&%|&gJflL&{%C75gH&EO(mI@pk&roBcI|n1^<(8LIqsLJNwb`6A)(guM zZg^K`r}aK3Pb*2rOd7;yc(^CZU2U<-5(cdT4R)f(Tz(LTqSf<8hw&8lpTxA-$eF66 zAHX>Lr@9R1GuV{#G3&K{M_7o2g{e$1qdaQe^pM?92a@--C|d z@ZY#C)!K7kiVT$|_bA_eLbTSZHZ@Ty_J-aIi86EC!9BX8sT@92gj5)4y_f$dLm4aiyL-fI8Ax4%Jz$FHa`N(E$g2!P6)oieS`JT#yC4*lSxN-W@jaW6TPYf zKgl7uRR(On{GrhyZLhN^&W^eaG;AJ$@SI2pMj+Vc13KoXKS)OVWKNj#^eB(b#`e9P zY9seq4wO8EQw(16)YGSV*~+$o44CCkgZ;@U=W?J+f9rVtiMg)ku4@B5CnW3ht_(f5 zK&xLzasO$}+432f1^{F4N?=#-oiBD+-(?)tSdU(NeYNOG+F8A%S>U@5e}R4Q`|q(C zV@@{4LKh{cAR!-8nxjpcd#^R_T$%D2NN&i*ELt>_o(V6?Ghi)6TRmpj#Kt6}MhQ0_ z#A(&$?JQA3jc-25U>@7lslR!avijnBb-=*9(cW^E-ZsvFLO71Y+Oqiw12q z`-|n)ng|}*;%M3JF7!@FMv=uTc&9ag$Ez_!0sa~G z4t~Zx`ao@j*wIRm856No^*o!H7P1s9a^bOrPR@B}w@C!{b22DpbWW3ksxUhUx!G4=7^#%t@fQEXWJY1qTI)lmc?n@HQ%sCisKbNqC_&-f}O0W zBdJO+Hr<-^vjx@}$JUrF`&pB3r4po(63TOGLlqc|*YbRq^~31RG-`trwaZ-zmaHwp zN@+IHEFXNNfW86=#R({AVVM?If`%rqLXwD(7zy8n4T@kx>~ciHUSYO!WXG!GoKl)g zxHC$KT^fS^Rsabo<2xyVj+{^j@vWvzZ~z|cG0DRNpc`p?Z-j8C29_le1WocjAU(b< z2-2wC9sql9Jmj;6zd?R$1KOiAKd^uk#b#CSWWe%9#_N@c21$E7hi@ehIz~r>x@s=} zz{{jAZTQ-uJmOkj&oTOmlT6tOYO5aM?Byn7sUqCeUsbBUj8?l|yVqp(rPd^ebMb!hL#cG#Y({^0^f7w zRtTQIVU-Vnp8mrRLX!ys<)H#h`-WNmMkypw7OBZSjKPe4lhp+5Hg zJma$cHC9bcKeLer5{EtUv=z z!G&y-j_#0m_(z>n$)(BelaWf04V9;>2oAu*NV!&+Csr~b766i51$jzAPMn9Hv%D|` zWCH;lNZ>EWnjP;2c}e-ySx|_apNWBGF+?5y{QnV8zyAUz;si;IN816S3@M`jo*3jb zPU7&LsX$0o&1T2xf#m-Fzm8mdQS;v?WMSGw&dVAg33V3TDp&UFHFFAH)K1ppODh27 zYhDRgI0KGRbtZv&yUi>sZUF2g?IkQ&Hg$60gCKzc4wmr=QvCxC%a8mNT&Gn~A_AH;DF|lrC>&@C6Pk#C7t-PT z(eNFBY8JiPdZ~eL#g7&Tyj_|sqQ<7u;XT{=rgC7c8PA%Ugp~j-Ss)K4$V0}Bapqa$ zcsM23iv@BViEKOY#FYjPAn;e3j(bwUgjGoXvY#om=%OBOjU|k~td=oU{oOLpXNlG( zi_h-pw^{1jV0QzQ+f+=?6qB*K!R2t%uBHnJU?UxxHzK6tS~jgh641|`9zP;1^MWVA z8~zY%!s+Hk^Vgx#jOI;r%iYVO6s9PjBPs+$iVCTT?!rnI%$fzXUB2x?;5pEM_(@12 zPS+;zDoHgP4c|tr-nAmMNAvxd_fzPix&RoN$&Yjw?qR`;(A9fJst-zFR$8EonCH8~ zb3r>h$hdx!kQ_WD0LS~?1GH{A%ZVkJtpiig;0PtiLlPMv2Q^>K`;Z3;)rg7}u>G^u z2ifrLbRlsTyxtugqy;ZY1SIB~FaskhofTEEM0vC0X&7ZXO_=U3Ac#ROm}#i-^-Rab zEj&*|%EXZM<@_-my+(5RrShCYQhuCs^^vhU&ba)qXJ*e&+@vO8>zcxgIr^NLw8_5B z9AVb7fP#T6Xn8&y@Dm2uM+T0O3$w(~oJnY&LU^QskgR~tX`qE-5px8Z&4OjhC!<+6 z{Sa^#8W!jY4W$9I?YI_nt`mSC#^A?D;0Gr~Rf_7=d$9Of;QBp~7fY&KqN(dT=r&e$ zF1@;Hc4Hu&*Jcb3!$WlWo>ZRmDlmQ$S|$;?uYf%85Rw$^HVH0SfqE0cVeZha9587W z?7PO|`?^EI*!&Q82yqtTs}YoQv@?VM85mk1bjZ0c@5LIX57iG>~`zgh=y^o#0c%d;$X;MHH2;K

$T_Y^R z!zL~YbJ^5Vjd0#+TjGj9cRfcEMa4>ZsSLw&g&&f^ zvlUz;8n9@C={Bk$6%E(!evwSC-a&^ST!zK7`QDnV-Yk%t_QTq5j|EX90vf&g0HQjZ z0H#Ty`3lJQ?eI7>lrDo6BLpO+a2r5W%7!112{W}2H-dmj6_gvIR%rj0J3&V=wQ$0_!BISrRFj9a z04A4StIsGb4Ti5u?0W`HkTEx`JFMfqjNj?OsQ^{vjPrSpfjFqQSCB3#BZ~PXF__5Y zxBUSLmVhHBg?n-EEC3`%3p*f%XEMRz%Yrh1ZtuYNEW`5guzYv3e{)4FMfE}A$Fj@S zd2dAbje*8gt{IIBY6MlVs`tyQM?bEKXdDC2e8I#We)D?hHg{ogiio`oOPu8Ta&$+_ zQEvbwQVtNB$!NTq;up_@KWx)}XBW^ZAl)gkRB{`m=S{KK*Y;?^zQQJ@Xoi>sB2% z^P zPW2nCAPEQYT3c>QVOGCxuRb`ds|W4C?4NA0Fo6a#MFUOQTt6IC*L6G4)wo;LIh^WU z@exIYJ1>=l`fPXsM%esB5P=s&0iY+iNgnKUCn_&SD@-7YME|>6j;M}Rg1qp8FodrC zst;;K(GPN7Ui7Met@l&Ox-zXB)^u1J`y{7>f^gpVE|}>ShRGBMMS{jnfzpX$XcQT z>@^F*v-zDtnWYF}Fah$E4tf|aI)H{Bz{A*+aP}muVx{|_tU8zhGRJd`H4&j4U@8l~ zj|x9D3$I%KWrrA6fv-+d5XkOX6Ap({r3}>fU-si5AF&`O7SB@y-3kzHybCTAS07-* zQN=JDG~a>2qs&4ND&c!2(4AEHR*7gA)4l`^Kb^#MfQie;FNX4)=Nj+=%!cKny|nEKe9O&E zwCp|GpIk7tA+Z0!fo-?QX|c_LHA(gxf6^*}f^(bwGEW6gbDhr4V8eKdoX$tZ@$OkN z^_`=e2k4$ridM0zrw$!(@XrsKsg@7h37JnmJ_&dR6Nrty)Pnb)&$LAB|NSd)w)$bt z<(P>=@9fJvPI~SCzLZ%9e;^$>xcYVe#9Kp}jZK6?>>$*C?iLt*;KRb@3wG=Goqphc z*IBfA=rTXMa+!mQql@fGmtR=z!DTK5s@>1FwDZx@ZS&(3+j3gxnstbV- zV`91~Y|~W%37TvxRHd2aTzZ7hiBZ~uq!Hs>nD z1neYxEI$E%iv1bowp~NMjpHik1(-byW0-f%q<>-$9^PFxOPQ?(^f(P1Xc$9x7mHb*9#Zt|is_GL^gTdEYAchdF#)+HJJ{S9I5Q zYeCh5e#i?%!GnlT&d&22{+!$Wz+!N6M&G4la&5>U^x2PHNLK{_tmoU2U~*@RgRuK9 zZjWYK0JlQKEE>Gxm6+HyTB;Y^Q_%Bp_L9V+tw@@0QPNN)&Xw>>mVD_?`V+p^DFB%fY z{xCg4cuy#(U-#G2nHQC+Jx)m*ew8`Yxz-DKFoPhC1n%B*H41EQqZ{ckter|f@v);R$9>%Ig_0k~E!e-0$iqHm zKpj_=-!CNjZI2Z)_j6!`Pjxq`JQK+Z*d8&8%qLPXrvQ+=SwJ)ki&^ufNoF+i{9(nAy#@9+koTOddhQ7^AjN6%>qJr(V+Jyv1{Qbi_wLqXOpz z_(tU#-+Qk^L)oOtbOyKS{EO+3Qbv-^0&OB}!NFkWk5Q{31<=qYxyCba9$BG)g?Dti zWv`UkuP9=0o3DXFop)i*vjx5naE1r9eA{_IOn}9wYDYp6G77IYf1nUKQs+?(tm^Q- z`9^l-L)+IQ(cWZI?Izu+`jrzCny;$fxax4MoR$_ksj69@05b1mpLf{=Lima~;13DM zp)&Ol4Dn82P+xN=E11|~-h0CPpF0h!)fZ94GM_TzqvdTbDuJ|)A-hp+~E=0(Z={6Ky=$O zAGfxG+FH42`&KqqvwW^L9+!-cQx@;qmQU2eGCI6SGUz6DPM6s}*R}YMz_zpiJ^u`l z-OJ45%WAdBE+`P^YQzuF*dAJR#8aU4Zq28lBa?i*mmeZg0n|I* zD?pXw7Z&udT5nR2jN*(9Z++xjv(gY7uBnol1d3q^$Hl6PRUImyN2STtX4hz9I(^jc z8~gTOKY|*!jPcBeB+=ooxD9#Q1(ThKF=u^XT^<7bc1kwpoc5_MT@EroCgJ0>641-1 zlQYWm#t_krf9yuwNbrGkgd#_-)%bvGT-WoX-D{4(RzlXxe8DD6F6IQ*A4oN=J zze!@kZg|v&jd5X#1m3z0#v(tjpAMq-PdJJIF$boc9KNtMHb_6{+ZvwVPPy9SJOk>1 znb%Jzf{YdT>d445ECG5Vh}!JNAlv9S;W?w>60qNmB%DU~nMxMRdBR+ z%|a9X8qyV5Fpao(&ogMG0p%0arIJ@N$PbpZ+J68>t#Gj)RE|?1mo$(?H`ko4vep27 zboV9^yuPaOyOtj&1`{}=>&I%-dii0JX|4cFrcSPxj_&TrcIBP9zk-%P=X7=ZV;Xo zO=YX(t$7hfgR0^P60m+I~P~Ap;xhYm=aVJBIyjyJhC;uQLO*crn12YT!Xr zdja?%ve8f`823T-^LeiQD(Qb8NN$B{tPE(L1GGVqaR{Cx8_b*H2M|ZYH2nBD#D)P% zSS7d${lI6Sv(}|L;>MG=7`}Jpz4aKd-H*F_#G@M!F+p>@iw=UfoKgF}QJ+caHJrem z4GuE7C)d9ZZu++A4=z0*l^9IDzk_+?g3|#NrK8; z3jC1{G}k&>LAb_pt~G*;C6KT*F3wrc?FJdw0kpx52Fca^Y|3}VXs}lOXgkkik{j|J z>XD%KT;WlPzlNG{x1XQVdjWxpPiAQrr#cu(vfPNFU-c|36BA-LE81Jl%vv$`Hy+O- z*(N?@w8^gu!8t^u0Z`dTs80(eTtNwC@Ham6T*9A(_l=mELT&aOO4yFYe3YT2ujDMz~lh$(RPTP9RwfaDBh>?4_Xf8Zb{Y zO2C5y6g(F>+4sDz7a$HdK(LQc7YI2{03e#Qby+x(`-T_Au)qB z{%TL`ag6h$)r1$F?Fk)du>1vj2Qe~B-@j!vq-B)AR6DN%T@_>(1(1456?>NCz#(`4 zU33r$dP=RuOadL|;32eg>%AaZcH$2NDIBl{rctbkpi zs~kUxp>|;b(~cB5JnGQIU9<i+d2oOO_*)U1|&_KHXD4d7TPi^gIJFyH?b%%tOb1!s;OhF>O1to{ISGyCq62~U9b9v* zyU7R;XT!DlO0vRmEn#YlDV2E+*K$NK)N-gvQu)gO$p@PMp)c$IJ5wKST(fDaAi)c| z86lK@)h9U+Pqk}$JE0PEU-ze}OgR)H29}*wd$Kp<@f4S;ZV%kAxHYQ&FHhwSA62e7 zYV#lc#u~1}4V8sE&<#&AdvG%gXq%586y+$D02;nPgnWHFj6IjF5w-k6SBMwm(!R za;^nh?NSIdcjsEPa4o1q<}F^wph|w=nA$CZhsT4QW_do;QST4x{Zf#BCB+}o9KH-slWgVR#UPuX>tPP-10&PYeH9Qv^vM+;Y zNmpT4w|$Y3tmg8szhPRKkxZp3YX%p+1hC+!@%msK#0d-FIqSc%?&khwLNaBlY-Sye zsU-7qt|N;VRK*X}UmNvL00%%u10(ot!9R-%Ke*(O9jI#i1fGR}12>Dki?}moSd;(1 z`a}RN8L@kPYr+|1z<*1v5Z1HJf)|Ey8JU8b)(#1}`6L+Kncl4hD`Gtccx46KN;i@J zO(T0k$WQ7wf6P)D+gMm2USeq~3+d-z2HzJyYQa8^TIHB9IxHE&sVV_er9 zo-2#&Mon-?P&+G0dX))jO4smLk^hFZt=;`!MU(BFrLl@nh$*`o|8pmkZj5J@3o{`1 zH|AMxyoCODVduYFls2+Ae}TXOX}Md8xz#i^wuN9n1@uvX%&EY%M?iZ9(448l>5m4C zkv)gWw+y+)Os?@V$HWV$|CSWg4JNqrz3bI(vk%;~z#uWjX;Qa+$bo5m9~{}eT^+W> z4{UiQsc7`VjOu!G9s5cdEqmQ8WwVw05tlAM=P~~gK3>2dAa4DC6r71$QtA7~58Gjf zBW{Rj;1(_^E)_1>!F{XH%CM|(NzJU#%q*?p03t3KnwgaqE}4}TmQ%J4sHvG#RMuG2 z^hL9>Wg1$htZAHIzyIL9p6hn-!d#{fU6UYx=AJyylT~u)%p$CQqjG+Vj zdnIT7_uciCot50jDCYqRH>Uiz9mu;)1`B;EmDf8z6Ej~On*~Ug)b2I&EfXjTsbngJIFS6CVIh>FhPBdpi$vHg)Yr_x8_8c?IhsnwKlY4Sx8T~ zw;81LaAp-C< zqAl{m5<$@t{Yd^e_R;c#2|Db*D`i;S{dyofxk+@pVEg{J_wyZ>EjL*v3iv4_IGkGV z@hQwFwNH>5?%yG=Fe8qgldMtH4_$0UM_iKRbc#=eMOIq-M|BwO+Bb?l;UlIz#9968 zQ9;hZv8lwF5ph@Q6~^=YfT$+lE%)-~df*nbdRE;sJ^!a|#flX>PlX^xbsm5PgZzW8R9Jcn0J-LkNvn=-y=ngDXMG1g zhU!YcNC{Uxu`f4{%W)K@qgX6!GAJi(^!{S0<2B4D(;eq+CLj<;vX$8`+4XOj<(gk) zzHc6o8)ufy8!y`v52Dr`+_>ZB4fd9ySSO-qyBS?WIKi7B2;@jsV*)xQeD@rZopQIo z5y&WKUne|ksPDHJWUY_t8fc8jJmGs_Q(NFMi|)7Xkq1`qc>MB6>Ez9qj@#O{x3RWs zlA;~+GjC>CEoD`Z*c(Q=q8iq<+(gLE14b9y{NkGiT70F2+uo4+uEE2lX7_SP+%1+< zoGUqU&{a;D@bP~NV=A0p2%Oamj*nTEv#JGs>VOdmrcpxK?yB)QBfwO7)|pzMxJl#W zzJ!=s*G5Tce$>GtQ~qGnhR^13Ml3wOZm$qMj;XN;8IoOmb$P=(a5AhVP@|j_E)lR>n3*l*JxXu*_Glp%MAtJ zvK&et29~k%S?eeFuG_KfMg8i$ORfi3cP0)V+4;F*_Tkb^n@;jFCWyn1%ypOiJl1#K zO>9VtGsF>{cd5e<6rD*6C)bar%+A_UGjjZJI)k`Q!=CbJA+VA<9`9T90hrt!>2+X2 z^-DXiaml&8vJCo2<@PM=fH7vqUT(XruU0JEUPev82Da@J5e}#hWIjBAcicKOJ`-6N zJHyPhP5@7|wXh?`^g*V!)eV7Jd(NA#Jxg79?V_o!3J`3V)4{>u-9($w&ny4&UNG7J zchQ3BmTNVFX_@7?ZC29?+`hP+lt@OX$4xBs%P+`ryAU|-d9V9WV;DJdhr1IYQnenm zhbxB+ggIv#Gb-jxFeX&&28k1!x53XZ^KVU*qvKs_#@jGEVu;BbDt4)T<>mN~ZeYpV zH2Tg@ZH^!LgR|q_6PNPBSvPr6?wRk2OX}s&JTuy+3BZRyt;~JmTK9e~y|^&kcJT+2 z6Z^edDo&@Ro5LUVnh5bDXl7o3$kSwj7Cm$T#*N;O{n(gY{1pBCqAdEbIRs8QRsz!x3TxJW zO1JK4jPTrnkV2($n{G~&kJ3QRz52}I7pT|rodohCOpsMDcJ2U|VzwS97wd2MuIU1U zGUe1rNY1H|F}BFU9aj4eOoqO%2&r#Tx%nTQ%M=(i*0I@t@CSnm+xL{b?RWgDE)PgZ zqplOLw>rlxb6~tDtS)uJMNOmIut=Hr5JKC-o0+By$E%MCwc;}sS zHm=Uno6oNfhME%hm~SryCOO&#N54~@e|jbZr)$s@tqkKWE#H#rZQa$`@46C2DZHw1 zc+QCq%tO(Nx?9=%1bv*+M5U_~ZF^Q9!E34AE$I{zi(!1wy+qpbtC55rosug^RJ2^> zWxiu71{Z%OEbZxYcpcL}Q+;l73I0XK><{AT`IBi&wvTnj{L_I)A7E5PRkv8R>M_o& zTD3zbfIsBX%gU7~j=4Xx6y+#$s?oG7K z8*^-1i(Td++Ynw;k=+e+fK1+Zq(h~8>iknBryACSI;9w@mizyF&Nqx6 z{+?L{>(ZbqQv_SmOxX(fJD8yIfDRP30zf^1R=b9>%Ayup6MjNV@A zJnRApmeB;ap9f{u1b1W58~{^L9^xU<)H|oD%14yPR}HrcRz}y4Jx6IJPl{32BE(kA zWlRH5(>Qy~U@H>QZtE!>GRi2FPOax6P{Agl1j`_JR#kInYzxCa9!3)LdqTrTCYjMgB5 zfV8KYCHQKXm}|l_)CgEf)JiCELdOxItroGSAk==?ZVKi2nrp8@G2IaAL%4SsAgDP6 zl7i6ULmo8|PMSz3wS95LZSB$G85bZ5rt7Uz{mo`*J2H1cQY%WrF!xr^7(Fg!iW z^VP~tvr~I9_2^Rz)W;V%>Vclf`nTaBHpG3*S150p#n3n_Nytbt*yg%#85?&fMJOYB z$}n7dTLPwuEO!`6V1yQ$zl4HV*Gnw4Y4&4Ws~q9|O&p589h7KQE_;qVF|b5Ye-Ciz z-(u~q-(q!g=^spSS#2?|$1mrBl!{5m39jp(CW|O8)6i3RD5z^zRS78Ep%<`;> zB-b7*gox(=tJHDIRTKFKOpgH;D~06Gy9w0*%>+{k&6ZCx9Ux!ZXbihYXzzt$TFjvV zN>-w8P2m zFQMD!C{{-pt8)?U_A8qxA$;tE%6LYfrXY|WPG;)j!Wj7 zY7oz$e`MU`dG zixfploMXB3@Z(P?-Yb+0H~iQl#O79fII(yrF(Gn&LgI;AK@!$5Vq46$7B?p?8)xab zOu&yi1XEN9%ZS*U5QnB_hi-&f&9!fuLH(dJnrfWQ7ux3o2X`T zjh@&G(;fn3orKt}r(@eKe|`m)Y84*!#3Bivjj)>1Xs1o2ZV4?21x0Wz@`UUul)X{1 zq>ba9uO&SNXv4tHjxD4~>R00+Nn;|7a&|rezP59~mjfKI=r}KdB0#Kr(j5I7>`w}9 zFL7Cwh#lWR|8Am3HPA2D?BPfPe*HAu+r6Zub?d|2m7!anPbq>Z6@i_;!94ey-W96> z^O?^cdu=$V8En-mw*Ksg0NsdUerGFcA#8tU+?HT%y-di+X}0q-oa7;Nv({#4{QQe? zhn_ThT^h?Mw9iAaI2}ht$+e0bcQyb|9EqP2rZqO5(B;+wI{Q6fyCX6fP z&{Ka6O9Md1W~NaKDmi$m3<~F}XC(i>%7SK~R04#PK-d{QF#&NngMdnSyRB-vWeKTG z;@u%5>;PzE`zV!?<70lkoiNp;r$7Fg8k%N1YH%<$vwKkNlU&;&6f38B#xh8_<(n+? z&S_kb9*}5@2wIPpy zo@)JaBn*7R^wU8?ugU6&=Wo(W<8@rXfI8(?3U#P3=p5{ zDHi}L2}Rc!?3=hawS;k=^G3}fo{=!BIK&n;ZR|ElHFK61M%-*yjM&J>mHrPM z-!o=^>SQ@Stg%)6XgO-0&R#+ zljI-P7?(${mwdSg|F1^|DGmOcxXevyi?UF*btwBr1C*3T_lu?$Xu&ucrqek^>0OlE z5ZHieED68m(G#d`4d$ByE_z`E?t819SwDQageG?=Ir}yvbw>s*LW*@pF*pdrL&(tZ z?9VkPQ4rSDxMP6&@GFCz5oLc{XfGLONArm=yV8;sr%y}2KqRe<*eG%NDBJQoK%3H9rgNDG4YyC);_F~Ssa6_WAnlXf zYe^$WIf=lt8OAR#O^iS=%2LB+%5v?DX@sExq5w58Dq;Be5(WmlpKu6;rs;zw>L!?Q z5++~J(gbOY+Z?M>6r?jjyA0HmdWy|=C^wC{E6p;f*?LlI88&XIYPR)2S$=~VVFPv4&qB`N~F)zbG8sYbXej|vwKrAe>t)OB zw^}SiK$lAt;3K`~wUb{6tr4*Wv#1xe)Q}(5L~IEL$fTvc<~;L8S1pH41LuVwL z|7&a6zNYo7#^SObtKkr`B;Y1lo(4Fv4)8t0A@|HDLM^{GSJ1BmG}^j0l92xN^ynd& zdR@!-E+@6aU=_#8d9t@N*m_h#$AUM!nz!@DsW6r{qot4O88MHoSEA?>5@Li5qjdel zKK4h%wtti>@PMByBePIF{#W|y8ZtCPW%KJBitD}y_r9Nhy>~W#klkFl%l7bNadj^1y2V_@WF_RBfhLZ3txtmHuTxsN`z0>2 z_E^^`_DxwgZ0(`I z35iPUD6DV!tW3hBh_j5-&#vQbzT zxoad}&7T<^OQOvGeJnlN{b6B7f@7b-R^>3b+kRvgp&evq@!EX3lsaO0gy#MC16B~u}EqZMp*;|kozexCx2j8f#`#Z zmF$9Qw%PRrilD}H#T7Q^y0zFtdxBZ(<@W<+1`u~m56a`Pq0z-Yf?DvnxA$) zTDO+M)*jo(^9ejANv|}EUBaAQZ@T0WXKslhWd=f^ANB11GDNogo9S05h&8k zrjg7E{OkjI3q0q%&I#}PK$Jlhyr^Hg+k05-d@KJ(ZRHpD<6$qK6#jYbh%oBs?2fdR*6TFQSl;!w!l)%B5iNKZti4z4ta_|dh3mCX z=i(gVrnJ3yX2)`yl;qmA4RsC~Wh>UiHxONhm!I(ZZ^e>_W#bOWH9WWocy4xdkp`_PTDNsd+w2=SGUu-)8 zm78@!^0UO=ywoj>th=(!Y3kdMln-&@8BqGMz#2Z0q01mOsp#}k$4Y~Tc6b{ zXPGoui((GuebxW!jRn`2y?dTeZip8bsa!rGIJBMUR?7Eue}l_F)>Z7@HKX@zFNit# zt6GYOTUx@alE z+-Lr88WfzYr4{R)9fqO7g2nmsxqipRiVb_V>@r3MFWW>Z)`dH~hRWyhXk@Xm*P^uS zh!de1420ws%{q+Dl<&evuMM_OHOf18;p)gnbo8Q&UK|rZT>1lWNVR2d1T-~U?@UV% zQ@XntNa@nU-D*kMeCD2&%X{`)QVc|xl0e_w*v~n789z^qwk&}$?C&z-a!DAJ-xEfP zTHgj*t>0O07)DjryY$Omm9BVvpsw)~@Uhw2ccr23zZ_MYp7&yZ$?7+_dVN(o%kn^n zy4vNFgt%7RVyBng2pG$!I*)*mO#N~u_{Do#VRzr5UmFMfY57=JCWn0MbBZijjDmsYum4;D!rfyi9IA`X-SmHWfuSK^J z8!JKx_QP_kHrd(Z1DRAsg2M5hMs=)#Tem^i?>eIaRf)Zflbl~|q>!BYopJiK%cC_7 z5usNue>fc+oTA^uf8s=l(kj6v-enw!AcYH|OyPqWhAIW=B*H_~8RtdJyjk=C@y{ldKa>^S)qVQhr z=?vG&PvT_%DyDqin6M_h@PTVKbIiKOSdk=aW#2VL1;0l2lyp3Dcy|?amSbKnRT`Ft zb*ltxLN9I=_gR_0_LqL5DEOlY4S%eU1N@5fN=1>Qb#g|BOyNZm;xL!cj>n}@za@-2 z?QKUfF7uWC2R9M7c0@SJ-dC^f@oW?D!HjS(WnU%4)ljWbgJ5Z*Pg~U{wQ2 z^I_i>VM5hkevRHImdBrn-g)y(7!s5kuIrpG^Z4v=V5kwr*xS+Xl$1Y%gI!weMs}^3 zbFPb;0Hs?7SpW7vpCqj7WHalz5p<&@k~h`&CH-ntvIB&K;DBC1n(?^cLoI##(7b;q zOi^1L-&ZWRuBGOiF0lb$LJ;p={xXebvTy}9O6wRWnk#1{&6i*!fvBkhhM+9!x4Jp0 zFxja8fmy_T8tlo>UJLb<255DR-bb__x6MS#hOu$_bt-`9l9>0`1Xi!dFW2I6FYpMT z;xL7;wTdk;k~%bCj%-1;4qPR|@l2>sTee4rF`Yi|SohraS-Z__XP2e&(2$RSHDqhU zu{l1O{-?s)`*V6%J=01PFZr;;R!SI+utWBdYP%#e8Yng(kytCsTgD-B)4(J>PAyyK zTZ_xq%(YF7}f=51Y zTO%X>ED1XSJO3c6fG%(+w4el1hi}8V8c~~SH?6x7+HoxZ+O*-RmBKKv3$FF+M)RrOrrr7z2VS^<{AmOMXxy&gZD1=_(EZ@`ZosF%>tWata2A&1kn0$GkT$vw2w)@2eF6q*5!i2ng~k2tlezH zXPdw*Ex5%*y3eOQ1}Iw~!awIEt=q*VIxtHEu8?ARI#le$LMlh&t@6)(uzgpeTk4Fk zOnlC^j2pkQ*)O*im5okM6{^H(wSgI~_w6?AOaoBMTng@5+j7A3UznHhNB(`tUvvRK zcE8Tx?Bs9o9!cJirNN!_4ct+`cSMefkYMM_F!QvIb4}<#6IvvpzLC&drwVTRdK{Hd zhb5Fh0NMu*-DD;PY}5aVmMIL4uIw^0wl;5~IvhMBB^aL4$R96eaV z!F@>&`2kh8qi~B&;1)em&!_%oBFlia;`0ZyG_eo*@SCOJ%q{EfH&584AB&@CfS(N3 zGQ@BD-?lf_?h^(xej(PcB`tG7Tk_Qm@HKVU|ZO zUEG|j!xx%JY6yV|Ay^Ohm8w=+c_j$o~So9DkNaXMkqW^8u zP8g{VIn-`z_VaA&-#VIsOZ%Hc-Oj;pH?mKlaZ98*@uFA-M0x^I?`w&xWH|W*Yq@0Y zc?-v7Ch#9uT$~mctHqw&QMIiCGhc>{mSB+pT(%7N-D!7{-m72jtqN?LmeQ{4@i83T z6DLp)P)@<5chA91B3!oFo4~~_+R9q3nj!0f_Brdp4O+0F+j1A5_!C5Qe#}|Mx8A#A z(`2~Yymni<-nC%`u(n0BD93h<(B}6jKS2@dqosejZ|&BTD*~LEs85^T-dFN1PlP3& z*f^mI1BnOq#`y80%6|2L=>%llF zcCMLlTeKw6hW=h#PbGC$Xy~7fRCinUb`5?)O8(WtGhT;Xq{C+V6KuMvkF~^9zCFXw zKFk=kl8@gEV=|-F4=23*I8j0=W@^IAAHwkX7-h_w6KObq(`lE3b9^PF&yuW{GO!FF z>@c17))Q{&sK1*iduK#T=jF2$%a%Qu!0pn2>1GmsRX)z`;AV~09|d#!_JYg!7`8Mt zH%()om7!XB{KLmR;U7XJ`Elh4%9i6+mJj>;!{T!Q&J_Aiv13J8S*#qj3KGYj>aI%@ z*NKQ{wbbV_@`#b#V8&ywg2`G?{DQGk$0)C7-K*RC&@b^KbG5q^9WB8`X)w`7%yuo= z8&4ZXW#3ApUSV~WT(#%(bX_W^NHoRyJ$>~D3L zRlpB1<7(`%l22akt#gk1W84AGgRM!AoaQ_X!w6tph6#+7q4^N)la&6Kj8rKi8MNTc z+DvS-i97;Pax}O-Xd>`=+t&Ro6wTkM)?ZL_5|S?*!mSbD9Hm4ORnzP%NHD!M!80}$LmI-z&dpfXJr zq&f|$Q%|}MBYArKg4DgJ<-^j7W^B_;I0bFwqhZc=pUdQ2Pu zDmmm~sCU6+xcAG77r-oD_7Ve%HlZW8%Cd`0#43Pt!H8R=^UTxXBxdYd4k2Q{MR{hm zP=dB_;za;?&em90*iUK7}s0YVJRReIu8J~2x~`rSxcFWPqFie-V6*rB)lNslkl;wl*1 z_u`vWl`eFt>!rz1!{jEq6p-g9Z_9;O3rE9$wb`#$-fxMKk*BDWaK+~Vu_yklZ?1mf;|dRPQc`|5`vt6 z4c)l+1{3QiL31T&ccb$H?GM%9R*ULCx6!)SQK$B6`?}b}x*x`zz1@sX=M%O<+G`}pAQ3t7i{>mnmXjIo)d{YjiljIyIKl4C*{_VB4$?F#SbbCX&Qp#!DF zQ_$+II>M-i>e5ENs+G;2BJ>%_yUe(qt1WlTkI9u1_lrQWKQTBFgsr`I>hSgEZCNI8 zq#bP8hrSr=H7-5eb09E2*?hm_%&6-tw~WMJugUX6 zZA|EIHklh+@O83>S1#h~%;0`0SPoFGOMh1Ah%!CF2#+=Ci7J2~(GpyFKT;Frq#2Ls zTkM!;M;Mq|@R6Sp9W29z0Jy~(!WF4QOhv&PQPu~D9_voquBH4TpZgKy|p5 zWI}LP`yKy~RT8YL9yRhPboy|-VYKYu@KG~)bE)BfG!c-quj$07(pKxoTspjJx2@oO z^1J)nQSMDD6v|05UbgOp$&Q$%!|yQTADsdB!NhzRSE#|?Fp(+%Y6G8e?keG+j-b;2 z=r2s5?(`}czt5OA`y?Yu=NKkIzvg;*O3^+#bdbq$H^(FH=Bdv*`d2O6HE)J`MM7G7 zfRF)`e*S<>)#DN*gnlz+32-)!kKMhLpn`FBsk}%%CI-fBw%fVJ1TNC!p9kS(I?NXe zHVno$>cL3OEO!&;gbs8r^S{bo2Nl)ql+HKQ| ziHMK>#c6bwF~tlX(rq|*0^Fp-zdeTw2hbP4?)fuWCERVh;P>R?<=0ZeMjPh){cU+Y za8-v`==M5Fg-xkNziJxKnr4H4{*!#dbP2C9j{8qMY|w*^5I$iG7_T8qRucE~@k3I| zeTdv^rd$T-gHp=Xd)QbbHd%%V(&EBIRx4x}H=){nhJ%4quo*hs_?Gz(-xf?rNpEDk zK0}W`Xm-8V(cWnAN)b8Dj1|f7mUpm~Ch9Q&to!#}l%A;59u3quZhm!%M94+V_zjh^ z+V(l$giv$Fnp+I4yE*Wp7>dmcI*h@^3bDO%yuwU<3Dbe*)Ay`cD>@~lxz%<$|D=#Z@D`rp z_$kCJ$wuK9IwXiqlI**ru#%a8Z}(r~$Vta0ye^xv7K4!vg=LTYPuwDfUithfwi)BI zrsGLeB{tUk*xZtda}^&|H6B^lg5J#}7M@Pw$8Q)m99nUE)wylcQ`bJ$yW4h0N+pI$ z*BH${Zmg2vp5z=^VKw)lniv^RA@YtdwzHhQ`S9DVUq6iR#h*EHY3yCh^Ej8|Td4eZ8NuXb~9HwK=DZ45%5YFPJ)~w)dVg>32K~{W{s$k)*&j# zU&<6RT!tu4ZxAEzEP=D8*jeLe3LmfC`gVIcJFA`7LhzMdQrW?suv1mQC-o3%&S;~Y zP(IX=Ug^<2)>`c~GTj;}Fp0yfJf#G#qMwcziCeC9vo-p>>734MQQKajiULnMSd$Q9PlE)+Kmbu(jST1ur zprprqH}&m_JaRLWvG9!S8I-j$(1n(%_02v~VlupREPdUKcPP*_s~XePLbtsk^D3Uz zxE6{h@cat`IT$Dyk7z0^Lei_3_FLfDTk{TWowf7x&B4P<9KS|1@TUZAHcK8$qwH6K zc9<%+BRzezmrcd;-K=Dj5bs*hAq-|;*R<|UehoOOrB$%c0suF<8Dv#!&_ovz&xz=y zp5Aly%iBJBnIq*yTjiG={_{hHQ)$QRSi>cg2a|_5@=AEr7(?>1ioHRpYU8(7R|k0a zQEYICGbET9?U|@_3hB|#cKU8YmQRljayh#N^Ah2-JB!HKc zjM!;W#_ok)h~gmf+lj#=zq7BEJMJ(wA3wa=vE-#g@lzrGKsGvG$=;|=!?JR64Q>uw zdTMXX&F{Pv=~(jiZuHU8P5YwR>*`VlYLhg+F14b{^^ummu$zk7NF_1Kg7;dVL9<`X z>s7zp5yQo?>-6Z|4h6+$u~u&nH-jH#>T#8os1a4hX@}+D-#Nw4D05z1OS|$#YT^=R zdb_-4v24T7cf%t*uTO_NxlYB@TD8NfFiJ1U#y#8)ZBgOT)|^3H)@N_x6NS@h z)VM|=K52lle*u7ocj!ke+bltj-Zkzn=>b#fe@q+cmHg_!l7si^{T6UA%ew$PSK`+G zZ;WS(;$Xv>e%a|VTy#V?3?>;GT+s^aU!;+)qOMA@rq8yKspPA>Dw998*kWRPf1Cm5 zTv)~Y)HAqXqHE92wnS;=A$-u|yR_^~4Ev)tI#6p-HOJV@em*qN+$5yridvcf6O}KR z?26gIduDa718@H*$G)ULtM+eA`P|1aC7W*m<7GE|!)nP<#TfQQ(M*JcRx5Y(5)!vb zBW!nwFf741+0U=nB2Fa#mUkQ!b_gj=I?yp8N|K})JHVfi!wLJA17obT9B`3N zUiwZ#2#v7B6^T@)Gbkb_Mi}w+!2ZC<0DRn((2122?lCPXgGIfRY^map?{GQ%T}Y17 z2=Vnr{hi3M+$`d~rRQGs9(R?+2c|q;dRyM=CUjkA*)iOh>esC+9E}%Z;}66z8&1CM zS8NtX#+9LVZy>bVJthqJob#>8*R@!WNd{c_hRPKp17$@=FLcmcCKU7OQ#qr-uWJWN zx-s@oczCaq23n@3mHi?I?@mcmvUC7d%QJ!L?l56DPi(*EDXU2T##a@3qPQcM#*V8Bw#`I%PVb$y!jl!k_#sy4u5|VWo z`%V*fq2Na9zeR_3bcEYhLy;R_=LV(D&2=z~%U{=bRo$&nIDSC$U)**tsojyTQbZsYrwFYdveQ%mytyP5BDqEjD{G|~kT|1_NN zfHV!Ne%f^lf%ZLm))CA*Z^HGLq0F%)ZUif)x)dG_RP0GWtKgYD51_0T; z@!`VuzQI>+m*}NR_N`C4!O+)tX_;@sEUS4pg4@Q4_DT*ohZ#mbvPJG4Sn2vjN#o?{3@&z1nktPH};p*{1r3Ez9pn)O*_$=cvy$9W?}#v!SfOkODXW|ZigQ0Ax3^gFyeY? zIP0}6I%EVzd&-Y{R)>XGqohGVeberXkE6eB{@Agpn~P86-~t$T%Y3}jSDlh6)<1T% z9+S_@L2Mxme;OTK|zq?KO7nHtQ%yk8BObxJ(`KC6o`E zaKIzFQ;yuvNUzc>7D?4rQON{s|PITQLWJ`w@C17 z&8ltu@@+ZzEG;ep0J8)NcaEKlQQp(6V7kbyG^njzC^xmLP*R@H1Xqoz@^e(e%TD2X za*){9mG5ZBM_jb9We&=r1I08WvxX20F^U(XjOZ!L)s!0^;o@0`OVz*B1Rt)sU%p%M z%kKDvsq39frc}Puh@)CQi>U~o_Vm?a;31Ti`uyq^n7YU?h9S3$0B$^2!NW2eAuGm~)pWzk~9C7)-fZ z8&HfPGn5PUa+Vn&Pn~J7=sPb4T7W9I(b|#o#D?($ry37_tn2M44k4R|@Ex+#D5sJ0 zb^7}}G|>0wIZ~6XE`_PvpjWMhaS}kaOsXnsEC)|`B&*9LIy85z&k|A0H_63JRe%^9 z$;XDope+fQG$y`K+`n>4DUx7TGO?*9rLhNnM}*uyiL&IO1WOTLPFa$me2W$g&pF0o zDxz{41a0_D;`+MZyDsnel@39#=xw`GSQII zw^)^Bl(YD9uCf2&r}J}}XloNHLX1rzs5U|>p;YcFnnBqXqxgWrbqJfH!)<{tmB@NZ zG?A+=?b~zehKqIJnydTtC(4Uu_+kLRTBnEv97D8a6C5m^cOD`j4ja+V)3n(dB)S;f zC@V{avEDuC1Xyvm`cl3IVG&U8E+I~mf%TQBn-M7MVr)@y`4*YdjBz!2$^`K-b7KE7yo|t}^-Jp|TBA z$^@w@sH4oY5n-F;d<_oH1y{}xz_l=TBcNiLQEaW;S%(%G8VmUsZO!*>d38CwKwX*lS-Km&inAQJaN$`xu_US zQKPK^1Tq735#pAEww5VEAlxiIZnG4OG~?hY)RHz7L#mAa|DC{cPc7=ztNZ_G_N+eF z&KHBR|CAL(w0mjL`R>PErZ98)*cgqv$|#>N#mrT61WYBYld~XXMHTnU!HOT^vhtH1 zB0l)r<$+t$vr4(~?U5m1a6G`$uXx;hXImzNk-#f9=PHTHv1;w#3* zh-;mUXm>4oj#d#5^w=VbKv==yBNkJ@`C^~X6oxv1>-1=bbYoSW&E|HP>v+Tl6kp+n7* z$-PbfK^+RdaV<}xe7*|HHzKxDxvdTf;g`L;(sRFy>ilzgbc)Npt{eAa@6~QeiX-6* zr@#&fh=KQ!qo~_0eW@^CP;V82fzrop!wSWAL5RJ!7QdC3`SY#Q6nBG z`d5sPY*CgHStr96NpL<)#qt@rOxkSAF(Zp)%FpWkzUculb8bSTV(F^+meVrwH0iLN zJ6;xZf-gJEVH|F@V-ye%-#l3Qx$>~qM-ohSKf$wiPj5@P>V6=m-0F$#<4VOj23aEe z)~`Zu0Glpjv*6$IbMV_5@kN@Z4Un@Z2kkg5&o<*0#i-!8a*v((JORE?7w#pI7cT%; z5EPM2<=h_m`g&9tJB2$l8;VXm0=vfk!4KIZulDkc# zy!DEiV3|VDs2H%qxC%z3G57*LCPvG9#f>nZ^ckmADvainp%;&~0&S9+DP+<8lnRUG}OC(lT!tbJGi{TZF3n`$x=ZfL*X*Ol724xfsH& zi3R6*tJ2I^o=m>7vBUVy$P@`h#2`z+x zr*2R!8k4*0QCmE=3%bQRsWLHmbYY3A!1{M&0J+lrQzgc`Bo8rn;QSi zt6M+s_~p_j=ecNn2cvumgy{!y-eY%XOJVwyjLt;)7!hARE>jGq!C(jVJ-UhWyFqv*lKYwAH(f|S!(oZBVSdnoSq}+Xyi`DIdced7c;@LcoqyP7wNIW z#^ZbUAj+#mEL3%VQM2hG$qD&ClCC|j<^BKfv-_=G+S;X7wsl+SvhHhzt*r}%l_Uu( zVG$;wh_lbOYF%U{N#d*`kxLOmoNZl%FbQ!SXG@6VlFK2E)A{*6e*e55@5lSU_xtsF zJui><44oh8>L=lx@w+2wYo)4RY3h9+7D#MT46yfQEJm6i0HcF)mA8d0^~9F62?_X zq9%468Y@GtNrfl!E7K?8S!~u;OHuVIlptSCfq*O1tTGwGlL4g|0Cyc2IhmV3P&|VK zWf}Id<963xKu>3D0#z{KBus_YVip{kvG8y&`fdhPgCIDDrpx6(Ul|RToMqT3mR2%w z{QPkv2$m3Ca?_Po6IexLMCuAYijg=PFEw8z_8i>jI>kxqjU$h05YYvWMaPC)2T}BT z$ch+3s>iCQ<99D_-LNcT)633vrqQEuhgJ_CDw-469D^kXDF%4tQHhScb)x2Dj1QKP zG+@XE$Yu@dl1Ef0>8`1l9MvVW%0!;~ zpkv;fDye7JXLG;%Osi=&#of{l#b;JqcUpM;?+|6?;h-*ouGj{|{E zsn1HCrk}9F$wdK8yF9!OPXL%S-Bbr&_#;D7Ox#(QD5Z%R3M+L%az?S!szUK~x19}Q zxE;Gt3C57c)KMrxb$ApCPY5Q@p{>ko-%YS6suN?bq$XF-UD}>CFYF4{9u`|0nQ0bn z%*wqP?e(_^F=M4{V9%5E9<1-+$fqSU{%+l~j8@dX5$@d6s+KSs@vu1Bk+JFo!7D>a zWoUuL2E{Eks&Tx7S!eAc_T|a8po%tsj3vA1NpnL?`Q~CmhL%$n)LV0=BJhIWvzwj; z*2EIx(aqmY=yT&|=FR+~+jM;9mAk8cU*GjdEirN;Zo#gAn>m!Z0XO3o;Jwm+$eo?@ zNos=dRpBQ)PNg=m*zeF($w#!;CF!=C_65WCcrT@Z1I79oL=2a)^kz80y-OACa^ual zc|lcH8G736nnXBRs%R{sF3@KbIju?kfSQ)qK<>r6=NO)u2viXy7M&;k2@8n{5X9v6 z&+XD#&TKb{F!5#-x4BZx_6W}wT@M~=+NDys62a^9J;s|4b-H=X+;$yN$lkj#9me>p zzGUxfGBGbzO;{x8p(1Sv<`XMv-GJtj^+V;>&SvMZ-m;XZV!KGKm~l-8byXx1ayt$4 zwH$zZ-U>Lp8D%|$0O)$QmOqwBZ{o!YFQIp3`AAr=x)3h85KTbd8kk?c*0pfO?yynV zw9frg>Bm#=A5Z?H$N5EjjIgV!VvS5fKgW&^7;A@-b#jEn0uuY#_^i%i$5N%#tDjw# z)H_N(LW*&X>Od#?KvNr4(bTI-DBWsBYC%(Aoel2NszT)%qeCnk3A|%ayLkeM{c)L= z4Y%R4A<(OXR>X{CF=oA0!&H!9#B>!@LcU>c*>8_j!2#a4xRB{dHHO0q4^(Pu+_F3_ z<2uiSbGCF)?k3v9JE3}ixuwr7)l~9kEP9%?D72qbk)UsO{xndQ^7<}eIn|6#BdJL( zat(LbNPVxm7I`CpkSAZ^_(WAA%xA*mV*OOFyr5yb7oFjgr8z)!SmiQOVRUtc0f?K{5x#PQYL`_~*#LIf)ru17CS zN`11b&=KucSkVV#{Ok#+^RN*mA880Ot1icms~vBW`U(AzMVXN;N#(NLxEh(pm)!`T z#^?zs%+NTpIEX|xBIJh2E>GV>FPFiY#TIy&zEOnmhD{F1i+$1?#aR$2Rw!>THr~nn z7nWEiJj1DASPx(|%i)PmTpi!wKI<-f!8ZF_?lagRzaDZ;b~)e)R`1H)XkF)(AFy8_ zg0)%tLu4RUQPIpw{kC|<(~Wk^(i-=Pd1m{m){Pf))1MKG(Gt%!8MsY&s>|orYdK%Q z-P>6jjIPVgub&NdAGQ7_GZgzrvemR26`Zev2G-aJ+jJ7vWPbCEPhxzq$h6$#h0gE)2~zSTv_mRqMT`a7@x=??ulm{N(h~r0&Iz7?# zyRIW+=MQmE{&lcvy%R{P-bl8f`$!FO&tpnq+9QyGfu+#UQ&nXP+o6nGq*(D^0lPQW0fYmx10)8Eke8rg zT~V58`4dQ=H`dg8U2*ssHSwRvbjP_mbAY94moL60$1jygRf{pi3Ipm3sHU(waM^A> zj%Alm3u}Pg+ect7M;Hrdy!jvyj`knhTA0pyMcxe_e?}`%N(F;rJ4KfP<-PJwcDfbj z@Y#x9A(whqitX0FVbcx`AZTWNiL%|*={hMk+C6EekXWH6G-qMcDE#;$5NQ%{JHAr%G4mV7R{gp* zBy(z3Mf-^iX6`n@2i6*E%$|eTWl96fIASbjY#w~3hEe5pDW!QLje`{yZa z`XfDzo0^E3-fm-<#S*R)N zAHov(ZuCqmGb?v=9L5-=XfjY%xM$+l0Z3# z;^{I_eo7NDSr5JUS%jHC9?I($+a-~r2;6J1%7ftL&5bKq!-g1MN@VH2G9#+u4`dMf z1Hyg4M!tyd=NEVET1)DopK9%OIBwC-gzFsMG%)MLlgVOcoryZA8Y;r~PQ}5c=ptZX ze%WVcNhom6 zH5)fm1y6_i8=!6zX8$g=Z^MBUizNK#Q^+NCB&>tg6eNc^`hfO1fO8>88w8!Z#dMvC z`~$Kqr)LIh$rWEUudpX#Se&gBUDT`SJ|IWG5cTHwAHFabH;IoM?D!LnkaxR{bwKwa zX2W=l^Ihb+I*agxCS*LyuQfhmMDlYVaU$LY(!<4TSlvdV!YS#4(c?9QUMTh}>Ryi2H07G337v$xq^c=npm%?i7rQ4ovWHKC z`J}2Hs31kEc0v!V{M+QhW<%2eG8*`YT~Q1#iYbI2LKMl^3FbI0k|w&5g^p&a0JsHK z(|pJ|I)|yB-C(G&3?u}@H_jDp!jJ|9df=864nD4ogu^FPo5gCk1hre9I>54MhD8$| z_tWvhf&}IeIY?4M*;EsG62ck*oGpM8)l5@?_7)RC3T$Ra1?VK}-}FRCHLl&Ta5T(k z3?x)QsD&n?K>R53PFS$|r+W=bC-}8L-Y}p^K2pYV{{7iV%)$@085TOZUgnwy&`B_1 zH*AJc6FCt({l*lOGHE2_i>X#owg@Eph^azg^N2dE28w5~>^fj!GL60n7CxYMwTj7l z)uu79T_EAXVf+&eUaHw00u2n7_>DsYL_Hz=9-l7rG_=Vn6>t|pNemsu2u>pb%s7yw z*xj($Xp%dJ?p;xaj)wHzd$d>@8J-Z|ON@bA5a%9Lwl*W4_hOQa8`6yBby|Qkh^t+& zj=Va2e*&xz4a*aGr_#OSpl)brpiv_kf)O^teumMXWF`!Vu#-lo3c#7C<`_-%3V>k& zSR%lMWoCDq?At-#RLKmPOWZ=u?-ohKnA*P1$WWmWWS%6rMiX2Z#l@>xod91T@sq+r3_V$IpcEgd<0ORG2_a~W z)NvKX$Ami}B5M1q7M9R;*CO&H0$oo*jl^>Rv>!Jzl*@${SVaD#V1?QBGr|7>Hjo7i zjO+<&W%+iiISi9WoO;@4U^Oi+e>MP80aD}wRKtryj~4$J+5JOBiB_-=+N*vP_QH>7 z0jae|DxKXLryGE;xwsU%t766)eY~Rih+WafY#Hot?fkI?zatjer!Mk740UTa1$Xy| zR*pw@Ny5>R=|9ByI@PW|C}&XY!BDdpP-m5Rils0;WI>&DAfX%L%$5i{B|9&{1Ow2W zl@jL>BT=Qc*Ig5g0n-0)@I73Xnfs&2F98-z>In#j@gcD3PfXseQI2pl2`;u*h#mDW zs8lgtB|>GXg1sK%k}7_!k2?f?9s9&9?5$V$Izw!pwA_-CFv5(?wjgTcRpZ)-b@kUt z(YlIWNwDZe`cxK0y3UUT6_ z%nU8e<%9+kK6b9ZDn;9vG6GxlLPp5A&yfNwidG-A>H z#BK=Yv+9%?!kY{8$%pw?m{1}UrCW7*i^iOZ5Ex2&Prb7{#|>p`!tyo#V`5JW;3b8f z3fA~Bp7HrT)0JkAoTzDRkOVQ|^A1nbgI@;y7rz>iu^`aopXyR|XP))H@AJ#160|=^ zkbhgzVVehlfA-@Z@4qQHm>UX#k7?)C814r~iwLEM*SxK4kT(7OtVJx!T_tjpdb&xW zo>ExKU{6GsCZbakWDwh<0aqi`Gyf%n9pyYMX0?OtEGRci?QArAC_u^+&{+lx{2}&f zg{`wnX6Q8`-4nrl(0&Z`kZHoxVR))0M5XDvFA=tCB<3DQswNnZ%AtD5l7 zcS8j|zKWkT5%sgqsjVvFq>;h`C_2DJ3i9&+modO=BS@@(5PX)Sbs}ORK$BeyMoWI? zPAJJt^I5)0x%~8veXN@ugxNmZMAuyvlJI<3XuEmpp}-u7UmWmY+8^hkp2{fiI5oY? zgdcoQ?-nzyBGTXnlzd>L7=93ofTH@Kb-IS{^8udd2OM$mu~(=#A--bI+A5uSa)0Q* z+6^g?UFj3BRyoX0zj3iFeDT|sj=0u^-j5O?ScBSoLhg-Mhd#03ewz>sM0w-`UNx|+ z`%n70QH2CEo2OoGbzrDK$}r&iqmQOHdb0i2S$h0h--ZsD9JJyPg~piyp3}_{sx-nb ziMB}NnyL|WS0(qu1Ol(fLP<#SPn^<(cNGUdiDIOW5=pdRE4b;i5jO^Mhs9hz;M^)= z2!e6!YWp`o4@J0|Q3ierpz+nN6`&m-pnet+KC2iOa7ZKx&XGhY-BaS;L>&G}m9=3? zNzhn)M_Sfkk=k{r?1Bi$Gs`oD&qVn02sR!ro!u^uac7T|y2~$GjS2wtnX@b!u;mI1#`6WBX0BA6c1c84MA7*sb*u?|Yeee+U$z5gOmsyE{tOE)81NNDrC$7*bxbdn znI;8^m9ESE7CYSXUvf~$pTrn9<2vzRnE*bOQ!h2d zH61h{hMR|k5J{Xj9HW1{PS+<@{lhEmGbUUYKxV8x?hR3gNqv-Odj$EbS@}_3#=n1R z8BbnR%mY(@an$sDDBlw0{KUj1sqK{@c|=6$g1E3x?YJVDViKOS1>!(KkDpEw(5YE_ zSQDP7Sz8Cw-qu78NFoOwK7X=Jdr~6Q_5`wToOJ8q1*pRYpuBdBi&gB$k8(*(a&1>t zc&Q&M%!CFNwo`@Wfj;Jv*df;1eqpk1|`RG7fs1kUXeRcPtX88RV-}>=IcKw4@g4bc! zwaCMO_k=lQQXK~0ir=RRm)CflFfqoa%z_F@Unaon1sE)-XQz2ON#dymJ@TOZ;Ka|R z09{}r`k4G=E_3(wgi$4)EBb|&o~+^Eu#wI{-cQLOjO@|~3wwmEuv430f}HW^#vWnT zyH&jn0Y-5<$L(7ikVqsqwmnbZ$@R_&b5JCp1SAu7HK*OZ+l(9$I{T zRZ;(}S99tf^?8a(2BW-l{*?6WfBDS~w~yVa{{@)z59L6h5k^7jx4`$WU_9gFMkyju zx(mJN+CYMEYC2vNDL2Z+rk^g2l-#8PMJS9@AgfL$m*A$!PF~vbHudt>caK+2zqXzg zB#!xLm>xUN$;mzb)Nt8z3_Wn(L59~*XWxK*L^&;_w3&D3%8q~D?QQG#P2>BlsJ-9( zGUwq1#8qz(L~MO!1Q#6jbB<81bRzMkcW#Gm?4u>!M(yO*8?k1_&+ zIl>fRmpzbRD@A zS1^`q#VrmJ8ncWNk(1xFXCAasT`HWp_^3CN2sT_oJs=}lRh|1uWr7XKEC3sBe5a(7W!fhDe9`d)P(V-J&K0A{d#L}YgIEL{7}0MwY0SZd8lCGBFbgkW3Lj&Gy$`(K6j{e6;+XN(S85QhME^uYYcBZ zSev?L7gx!Ir(QTMcjOe+q&Ja|)URvEmhQ_eD=n@|GaEIItD{U)(Uh#}jw1b%r~qk& z-&N5HghP6Ml$Ksx)uW+G(IAo}RhS$Swh3PBmnD;I<&m^(535;Yt`U9(v6KJJp9GxYHp%T{ForlV9wc_i%23jbN!i_cHlw!0UnW|nye*3Bxa-P(TT8%0~k`44$q2cYxy zWeedFr)P{3ewi&`i$KHZsEaAXw_?e4BK)}lWXQ;eU1=mWCJ)`ih9{QH?QJ9!j37eZ zWDpBRp1Hg?l0lhkMC^i^ChD*b8CXN!wLz(IyfiR7yvc@0%a+KXt{0c_I zB?%?h0An7u24uAEw@ZSkU*%bs!3tao8@~Fc+KUR`JI>EnVqA9CloY%!e|i}Yz4=9t z14dnS=Bd@dN=F6MK_L4vx`>b8tP_)lc1sR>>0v)`65=aSUq0BeQ3PA@LXHa6ac~N~ zj`h+Ig`FePB^i1e-pCJ3Ig?6D(pZ_~4jwWjr}6N%5sA0IHa0@bDOss08c8$ zipfyypNz~@V@Bn=tY&IcJHjiAT$ZYjqE<3scl3$a`A?!)&n<|se3&KG7)3~&h@$t4 zN~E12E)6z(zNdNgviJa;iRR+x)Jf528jB`hX8aLJ zl1{PvIdHK7)fR^cYUf;*>zk#Ic>U8WGAeWPB~En$0P~uJZMgz-nHcEzUG|~K51q+t z;uZ6^0K2z6dFBE?g4$%_lt;V4SbvC6VfkO|GA$h9R)Gn9KC`7ORpOWj#suUluuBSW zQJWQT*PSHfQc-hv{E3(#WmBo}r5fFan#KAE)Q)ZrF{Sqpb(d*>7lf(IvDG!K}+@7 zkNnB(bb*hWkRuo2fSi1WQnl%N?3stpp7JmIJo=FOvbH<#dBMA>6^;K)mbBkrp}XoL z0x{H9?hmmngk0N>Aou=4A6*pXlFRuQEff<5RBlP++Z*LQ^m309AA1`nvnFoKpbkVg zs7i9WH5VtW#c%tSD4|ajp+XVkQ*EmRpGv&n$Hhii0`Ss&wc`sJDy;18F5lZt$g1+W zUh|sqE8i%Yn@W)(X|5G(e445GAA4Qr1e{yJUcxx1i1ABHL@mmLk~K!SSNC1K$Cwe5 z$uJcs-p40aWMC@mkV4A`d{mdAEmF48eoCR8YZ7C;TY($g*k=Pr3^14c1P&fRM*2Xh zr|bHr^KDu;ff!S71_TOkhWwr{BJfCl_J(^Z}qJaBv`AG>|`?x6B4RI_k+P}_pUeS)HY4sAn zlt98dz68yYf#u2OS6gc&PA!fw*HI%}*AngR^W$BlHL+68=Q29@#X&WbcG-|%DqjxP zL_jo2JlJoSMxqans_}Ej&5omj(}A^jTROL7Al&MD0&;D38J&wL1#<0+hPz0*ii6$C z(72|MiWXC0^b3$^pH5)+)&^Iy!Uz(ie69O(j}*5_SJqR#ny6Qy+I;eH`BsqB1tIQ_ z>vO`BQPMm$MWF;8VwmcwliWsRcsodGki)MgJ(`6g?*`6?xtQiWD8MxD7I$ktP8hF2 zcwZ|&j|8=UHvGwc(01pt{b=ovXs8ba`tkYxad*p$65#6d!rG${eYTj?yPWSP@sMZm zlo{+7fFIkgVV*-L$Eg!=QiC)hKzi}2;XKG3Q6c9T5lDb}mE)Xs+BtBXA!s*$Fd^T39>Pr&g#^nT=s{e3Nf11dCqY;)5A?DlcMU51yjd&G;QOmKbAPAW; z{7}!+8Wk$p@XSYEp!KR7lPnpOETxI)=lX7*Dv5ltVLPL|VECEvJMrH)J+tap1J(*C zPn7xenlRK&{J2N_{ltG0gCaiZ{Pz`>-j#r(D$^UusLzmUL5D!jMN6Y|Y7=uOXqO2| zqJddM;x|L$<}wb=s^aTRv^k*DaHGo$;N9cKY&GZyxj{?dI1Yh6O*VTMv12Vr?N=eT zaGaXN^iBn<)kax%*tvfCyaBCaw+NmG`8r{s6obq-8?#PDo|4-r7Lc{mh+1aFNsZ+C zMmv^`spb&-<#?kUbKZdKHD0fK@7Q7@6^jtU68O7TYn1UJcD+zB=(Su$xGG2MZs2Gj zMZ}?ai|tOSu&e&p@(isIIjl9Ho+P2V*TCFb{j;YdM;@{G3C=1G3dTz9QNF@ za_aHQh)G~SOEqKA^Cpc1t$7tN`)2+4%bnk0Fhpi#YCMN!0C-A^W%VqA;TI%#d6FSB z8E{aUm|B1|WhJ4-EGyvLX>+XSFtX%`UKPRn)tvNJ=fP4ZEy&!)Ch7qvbOzmMav2BS zSwUxuiFUY=^|+Cq$6;;(ogOz%IhQr!3`Xox6E#oFe5|Bb+kB6YJ3RnhYCkzuG&-ga z(DST_We^H2gAfRkNTnEBBeff3U1DS9a?}CQAGDsI3D7VCsdf35M;e|cN3d& z-sX5oh0N+h%rwB0RQ=d@`B=Xbg>w7T2E?I3zudSW5ExGE-Z(jZHGE5}ix@7Vr?TBaH*zSF62(xMf=6raT_7QcP{Ym6#tzWh_ z;^PVNm*)Bx(XgZ08C2~uzr$SkD6~`Vkk4`8HB!x0A?59#?yfwNUK=xFhJ;%W>9a z(9! zCWBZLY@&`s?-YO90zrLL5#F(>ksu-+;%zZGUCqF^amf8fRD+!G5kfEK&<$cn&R!hv z)Tqc>*?Zsnf;T3ejj1(Y>J8C02;mT$aNdfHliO9Z(MmR^%<7|&Bh?19PK1mTA-n?$ zuz%g~nVzmH<&fC3QGeaMlq0`IHjZpT~Uy+lb|8KAkpW1z=R`1JwHFM_&Ir&>{Hw>sRp#g0#Uaw&DKh0zt z1MDV5lPmB1B&bmoSGcGCc*i)zZrq!6AUz&_sFI!nI;7a}Eh4lILQpjdIvN>@AV$oy zd0+Biom@*E*%#`DmAcZ^RIs`aYfUMs2PG!3o6ZdLZ8PpgPWrB@2v&nO8xFZ?a zW)suzm4n%e6BUus8F+gRJ{NS-a~z-AIk$5*)PsyD8>!X`Yf@3q7cUO)_grFQw%Qmi zjWiL5Q71>eGm>7bP&F#tc`L3~?i*pOoI(>Nrk_bf6=jf@*&HgL*<(#aJsUGs&BiGW z@Kqvo5(F);M^;<06%dqsBRusLKzwlX#-RVw+h+({YL&<6yOP`6E7G}(XAS#r%L$0c zsRWRRcZ}zBI!4vJj}6k49&l4Hvru>N)XN!0=8;!>{`15rYUwH)-2=p{Rp)NVO`rkILXIF$jy%O+|6yggrVO&_h~JRq`s zz`NEq=Z4s^vyqu9pf*`Oqr{salTH)2gY#^RGQjar219NmPFNXASd697u`+{By5HbFc3ehWHY=qeC6J!7Jt(fI=c(silC8P#`Q?ylp&vuY9WkCB8P}2MXR#E&{ZIPQiN5r(Y^osl&p9KVF*f@ zLg@VKx-hjZ1ql+8MW`+jLdjl?H<1lM!1_kvMX|djgVl@tEr&y`wPAlF&AXA|aSvoQ znbt;RB#m1!`Kw;nh`r7L%n83HJ>aWR};v zT`as$Jl7hK6_O$+wcIh+Bt)?7?cdT*HPXL`u!jxkdI&|(=)gB&^Lr^YPQ)XSVT8~R zna-9p66RFHrB>J)5yD_3tWi-<1YO%?3-0>K$0nybWvQVtGThf$-^Dr)zDeWYsTt(@ zLcA1Y7&wjtnRRUT9{;(uk&lvEZtkIQ45Fg4hv(KF8>-pQ?Ul7SMpfsO z!cfF>xi8O~K8`9FXQiEK4j(K)EYU+*Q!yaHGDFsMwd}yyfl=$?7m?Vcr`{ zV)N#KVjXc7b?&G0c4@~HzjtqR{p!0UOJV7bzSpwO>D-iZ7`nR6JvPxV_jlo1O$@HA zSyr!fj)!}eHAc;Q&A7BqNAXGPQC<0%hoZL1P8V*jN3_w~qKfbsY)wi$nJds|-Q9Bp zUFjwe<+NLs0PqQQ@91**gaP~nhZ{YO?+gF^j-to7$*liwpTd)kA{CB7BF7^Hd7=WW z=(7dpn5{L%IEg1zFiPsU5f&D%O#*!u=QYOj#oD3ha9QXevVwG8zYhdVHYe41X=8$Y+bi)JHQsAs730Dl)Nx@tS*c z!*}k7RffIk+*29xs`K8w@WQZ>^1!9+4P7>8!rZQ^;?1*@$r_YXuoklIpODYfwtfDv$XH-^?C2pea_&tT@Yuyo zzwQ0PzkC5(eaTZG;21nn?JnkLAZZCApycz=O=CB%Rm+ufO`St?!gq`h8R;LgM&l{p z4vZqaq}AA<*rh##{%!K1oBlOck_6*!)Z@eUWZc6zms_A%A0u88%eXWaxW>6JL4$K? z&~f8Ks@Hw83)=$TdodO9y!G3v@ZVWMcEQ(Jlz6{I*&0Xr`*upIyyWU8UPS8*N`;@v z+7ah@kqxs8>e|^Dg`06=0z?Z{QFg(%wMpf?YhWPG*JQQ7@kgV!X<+^7LGA#n`0yxp zdPB~cQtukL{lK)H3R|($PW0M-hnN8ifP7vW?|T+#dH8hOU$zU7oqxLv-kupYmpncD z;@JA9DvV>7QT=kMwrVyxZ9?__xBu3guDI_EZT3cBDSr=Y`Y#$@1lgw}eP$?_!O`8A5|U)JNdC)C`IfNA?^pWMmTd zjzrlDOr_cKXO6vSq)+bMEAl*l+NsG~d^M*nK8H)%YLIZK*DxvRO{AI$&9kRglwh)P z(Kd^j*(!o%g%51DoT;T`uX)A@Tzg z+pgP6iPH!JwYu&zcAhnpF;IZ;U3Rxr#%g97N20!_ld+d?HBt66dYw~%$6^MTu+`Y> z&Id7lOSz;Pz1Ho8q1R&@2e*Ky#?Iuslvfa%I&lYSw-5`y^YfZ4!lf}q@h9Q#ZWmqb zpS|1?<%?9g<&&UK6GChJRVJxBG5qca79@#aHx$kN_tbCcQT8bJVRt&i+nd*cT{aj+ zUWO_Dy6P@Y%vuq0UDY4j4(!UIYN+S(i+rjRAO6+=oBmdGO@NKCTLYh?x})q5#=WWC zAnj-Vj*j(pP7oU-gFwQ};UMz%S*!8q+qZ`d2bE8K!AAE&X@?*&)9b*+@?Z_)qygrE z|4^R7Qd54c?4u`@>!N*blk&PG&P@w+@iOjtP%%2~1q2nQXv8K7K$O53K2%Uyjxq0s zQsusPc62n6|KRStbU%DUI2#BMCra|dhJ-1Q-Nu{E1sjCz?{Bz?{VvV^kP5FMo{RGc z22%5n{`JRXOQu6jT~Rm)R4j+UHuT65f$dehl46lgj|H)zwHtR0$7xh=dC7*W85vi# z*(%FG(XE7lhX)g3D(UaI2(xYBvFn1mj5#kt`^9oay6gQ#u6u?nO6RWPMUjhmOn!dF zqcjqXe!f21U1K`Fco0hU8PiU`eRAq?)L;fd&4;`DeRw>x8z5|`gE@B_il#&QT&)G5JdL1tz4E@gE<;5=*6r_kzX zk4!JuFvkTA4dYT@;oaym&jlsvZ~)z<0}`MB>oC`$VZ?*)_X3yJuD+LWFlP06F)z15 zqu}@@)!nEXS+z=ESL}E#R9{t|iI>oC$P+@Y2JBMu7wjupv+DSj8-r%ytzQN$@W8Sw zgLw^-)7jTrLf@@IN0Xiv8A)Nh;EuP=!F%t8eh&5({;{}k9hagu!rfnp4u<6ee@>=E zk&~=I)>6nN=cW1Eyw{wX`eJxlzNTA|d#z}q^3-3EnR#&lO*?L18g_*0{q6mW5DM+> zaMkNI;S=IH+bp36+_X{Upw+{=l|_=$Bq5? zHxBd2p3UuFd-{X*z_B|6fsTEm{-Brd<+;jLjt|*BO9RmObo33G1sSp+Xx+}Lt#`71 z8MMN-LIUm>Fl|GaD-ir0C3Vi`*@GmO>2CHZS-^pIr#zAKa@B^l?TBUVh}94m$U}f> zW#2yo$!T$U+yq&iM}n$+Uwn)vtrTJ|M4xp{$8dd5-V3*D-1t0z&&rLxs)=P~+TT5^ zxUf1>NM3MlE2rW`!GjMMy-U@7J$F>@-P!U7hf4Pt3!Rink3XINqeJPBr*4rrWtxjZ^?ej2fn|4(zrPIx%BxGlD6B~BHcGa zrh(cyXna(k%{vyisaiAfiSG*o7Dl&eTW^vY!P)<2__C@H>|=Njh-X?gw%k| z<8s0+>CSCcjtwC5$Fo_zD*S;eyK6H1W0GAj33rVTj>t0Iym))#GF4IQZcb$-)J-lN zsoC1lXy_Z?pR)f zIOUEETiTBQlTY~bf@AB8gsrP{-mp{pkvv**eQHO-c8BN)g)Sm40RPxu34 z4!tDSgRi)I*D!5L%!YQv91CoQ0b$NYT**9~B1bF~!KM3w(V>{BK8EjNDp}c5bE9b5 z&D5NrZb!e7Luc zRVKC+m-esXwX9jx;=Q&|SE}8c>H4kyHuAtjYmS9~;Fc0>8_CWY!JYo!;4Mt52o|h| z&vC=-w4k4#q1l=4ywCX8){a{;L@|1K9`ro4Y4)r`nN`*8gw7i&^|dy4HYPtcOSQVWW2; z_yEn(9+wQNFZSz6I$~ODNkz(jmzBNBjWnU~>gKx!frtw~n& zK0F_I{ag{Au`l@RA+HZ?TS#Tl!i}gNzo#Ke+h%}gLDd*`NB)J|&&Qpch^lyuAF(pO z2FY(v(BeHy+Q@ck7x3qd3qMUQy5yEE-mwHf#Hs{$o-12t#arw82vsbLxS^KaArzKZL zk!xg#g%h2ec7V>WKqhLYXniM>t`nDyB_@}hyLWxsrec>nZP7!MHH&+FVd7=%Oi1zN z)qfYnQn-BdXEuDJ3%!jd^aslEH+wwkxtJ?yEi4rkkp?Fxw ze_g#y>v0W}$#-2i)&J|gjh8=d`!n4aR&DR1M;x0tds2`6MTT6&-|to&PPyW5PvBkFRu`1a-8qt=eQx(ml<>+>x)Z(sctGkJ`hLH~ZFh=)Ih*bEXAu4j z3v7e3{(P3*{TS0-xbn>3^LOgIV_9&v1sLn-yPkjW568Xt9NAwRPcAAPZd-kB#oB`l zh1#6XYs2@1udB)I4zj(--+T41+q{--U%TD+LnVWJXJ!V!FGQQ~rG5GBXz+7?kOf`e zj%m|lK{;}j3USPWeRN^o%$Ngpi6af-ooA)^ixbNe!kCTT#}9YwwWA#_4-&ivna4o8 z`W-_D#f>BU1FxsPJ{q(hJ5dw%>-qd%{k(l+*=McT(zBQp+LCGuYOMh=Z#!&Zjn4wy z`NVL|ve!qNR`j7t&MEteFeMv*Ke6p>%**5HMP;YjJtfaQ2l(GD7{oc5PS0V|wP8@|S5<;v6iFdls zeF%860l9jrcXP$ikk6k_rrqT3o{?c6@s&*Db7l*!h2A}MdBugG0HC~6yHuCEzL!F< zXa_uFHr4EUC;-H|F6a-^uX~c5m53Vt^2II4)pE>l*6cqd_|pjo1}1Xa$USAwI5zUk zo?DM_v(F@i?LSzhI~HIqI(efGOf6bBuQPk@teAPBk@)W4FLw@NuH1+^y?5ogE~In` zA{cTqzHoT{I+xbw;bz#A=9foid+n9_{WUUpZr&};?-eaWeYwxGk8Vy*8fO7iV{Fd? z?u?ZeCXYXWulUvfE{7bD6tb_@)3dn4wH1{_iDEo=$pt)AhZlv)Y9`M9p(#t~ORnYC z4MFU#>!&jAu)zkL>6m!DZXL6Y{AySf|Eh#Z8OI-Rn@|@7cRs>z63-iw&Lg~kWwPSV z@p1PrfTvET#n&9ZH3xRDWYIv|RvxH<6n@FMhk!D+&3D+jlkbzV0o$eG`TsvFdU7+e;Ao z1dwcy?vP<(QF{*LwFM{0|E;u}vl+kirTO&Yv#nop{+lU3W{Wy|eCN6F1Dinn@(o|N z5XXB(kN-->br~njDx3h1yApu|pS86gT)DO#nFx2e_;10i*0E&F{Z|2yR@c6S?1Kwm zDQlUI@Hwy*&f*E9(sV3Z1{= zYV6y3`-$t7o*x&C&LiDFvN7-AzJGnR8OJut~*m&8;8 zpQCVd49?JOw0aZ-Mqq894R3*J1zyy(eKaQLp! z37h~BmI1A; zjXtnCwEins1{ApZOv)hZ)dvQM673q)!ULBCtR8T%z;02y5Q`o#u%NG5yE^aQ73$yu zh%##W1j5uS7%*m$B{Lf)jF_`#!-f$<_KeyzY}lMVg9h!{Gi{`yMT<7=S~O_bN|%;x znpm@D%!m;yMod_)X2E=GCO+&jEn2T$v0}xERi{pyFjW%d$Bz~(W~vYY(Shs4yA?aS z{77Ks#-998cI1b#eMbT1HB!`R(jx)EF*D+fDA?ppz9cf>A*%$7h=BtJdtj>zn6lu4 z2PmMxsRbi6ih`t!;*T)1utH0yuD%LtK?V@`P%ji0K)|O05D2P3tAffYr@SBnNhlWw z{tK$E1RC%lh%_ikMU`HDf$SP+ARC4mV2lIi$zfD`Cbub>Y34K}P16#ZW@gKhOJX7m zCYWJ>2}T&}2I{iQD7_L~5HANZ zco2gNa(%!8u{zw!tgEbobypHY1Pd&)lJd~QWF3H2uZZ$`HCV!ET!5&$;sVSrwg&SF zq6Ri7!Hhj7$z&B?%si9HC&zpemSAvehL|O-B*wHXPrEW2(xyD^n9augWz1Us%yd(; z+lI-dU|N1rZk1K&yhIgDFrnBGINmrT2^?tX4#H>|=%~E@G-ZjOlF+M^J(cas=)Iao z{!cucFgjpn6(uSFC-M#)wPy#&`WD5yVtl|>3?6LifeWBA%Ys%tY#`aGzXEKnV1X4j zSgeuC8i8)5t&1oQW0Y~{7j?XAXRvC#_JSYP@BPurQ(q6FS(S0hjp` z%tlaQ0?ECP{%db$P2amn) zHwo*kAy6~;m{nTBpBE}XKIj?Vd0sZNN4W<*pn?>oT86u55g-BO$xl!gkRZ88?;#2D z*|+A0y{1I*DNuR91hP^gu3T|h6DZ4qGSt1W7%N5xKv9T_QnUh{(TGO$&_kf-GNEiJ zM`@E0h(Izn20-8fAF#sQhJ-Fx^g@ul=mju%;R|3Ouw4Cprkal~X*Qn!2%siGa}nBHf;<(a?TyZRkx#f{m!?=CX~g1Y)2?`xVLhM$ zS&Z7UIz&zaeZ^VAN{|_i_>;Z_##vk;qZfmsmT10ejb_V{^Je8XyYLSLLAb))PysPl ze2^ClO(-D+SwOu}CXog+k|a4P$X~dE6||__EL@?{h;`0$rZh+ztYCx^fZ&y8bJ?Q^ z@F{50k^n)Q;Y7}3l9cgdQ5flz%5+I7OzrTcE{jV@{$!WDxX@=tHZs8R-dF$v5$0MQ zVoI(o5P=I!C@U6l00ffNq4j+zi_G%S1i}X_taXo!;$y%B(k7H!ZmmMsx@O2!6i5BF zZ!qk`EBvknfenDb2xo`{DKVirh(U}MiB&8wTHy;s3i5zYI^^a4s0xj;LKUhYB_&W1 zh&}W{4`(Pt5D3+Q3{*`=G6YHSZ1OT;x@aW0Q`GEWo4cfbgqX;TNi<)(s+M>}C;0)- z&XA|7kmW=}20$Ab-+9ieMkOlP!^&HB6@jy)PgoV|5EsKj#jYqT0rX@5)EclnWT|g$ z8R`&S4~18j-fw4hDcVf+X-2(3uPY7E;|EOsAOte(!4Hz~>?lW=iUTW_Ij@+7az4l$ z1d~z~t01KbODTyx=)nwSAVLg0pgIU4XfO(Z9S!aKs6~B*wN3pkaR=~Xkz~ZRE|SPm zg?b;1B%qiY2_gZM*}6xusHoTS2?2l-l(jBkh%ds5267eM>b}Lg5;6<+tQa-3Oyw+C zAzxO+f+6yS@mN=5RvF3IMeeq$EbTo?U$D4Fyy(wWX2a`NUKFCPUZ4XYIKc^~P=+(? zVGpL{lV?#e%2iZ?l%zDJDI@V{NSFa3WFP_!O7P)aInP9`!;fA-($pSXBs}!7i*SEO zYL}kcBmz)RNKkg_jm(6nGwkt1Sj-ZWk3esJI57}JkarZaK|lfl0XqNy0000000000 z00000000000000000000000Oe0HsAC s6~F-k0)tA7uoe{pf`d>N`^XR=A_Cwby1*bHA`=D%kOJU?;8-AoLbU(4i~s-t diff --git a/mingw/lib/tk8.5/demos/images/earthris.gif b/mingw/lib/tk8.5/demos/images/earthris.gif deleted file mode 100644 index c4ee4737279f15b585de27a7f218a1ad63ad4ce9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcwPel00001 literal 6343 zcwX&y_g7Qv^YuCD6gBiF5FkK8GYP$jp#?%S6e)sA7fTRn0*ZzZq*)-M1n@#=N>L2O zh&><*iUkl*j3pu}qW50J0;o6n9zO5C@jhp*Svm9U*|Yb|IzPmlPIIu2rGmr2d0_Q$ z>3AWRE|bZGOuAUe6brdbJRlQuWiqjt%Y@!!Vj&#>#IjWgbjKBn#bOy0@K7z2PG@rQ zOfCc!GV##85MqHY06Y^a;nD#-T__YoDTtj(hkDVuc)VD=O2K48Ofn%I&xP<%M;RA_ zGx2yKoxa)`0tx9*O1v5&T};`k7%0hwDgivylPl!n#WFEO!{tH&Ix-<7n#%1r2wKutvUTeYzU&mT6k=emUILG;|W@QM#Vq-F*KPA*4O}es{}A6)FC~ zS$fa8N3{;=^DpoBoPSbJEs)ps?QI=v@;PO;?LlwbLv_%^N0WMa9zcip`0}u#wr7{f zaK>p#3>)69#PDCv=pUI2b~YV|yxW&vq=eFa0aIBQ4Y4eCx)_x4EYs zJD%LS`Fm;M-5%8iHxcaDcR5vt;5HRRpb)JrAWM@4pw^u&m%!yn%Pat7;NEZ?auxu*V4TNZ3ScJzytU_BbI`i}3(qs#rc~ zdX|+BuEUk^*@~nXem({#62U{Xi}NcL|Cr7m2~ua>J%XX|SX&ad-j!4;;`pGtosGl< zsT}MxQJXTg%M^*0e9EsyXQxu(N2K>bz7Fg`|54C}3Tp({OOgS@UQHte>}ABRenkYwSV(rT1g=^gp!RoOLgiHoA8a4g zem>h4Xjcuufi*KbX3{I68d(6px62UxQ-Nr*$%Q~W*7=_O%Vr4@EB8jI8t zEP&%=8|_`kVG;%rlvlvsVewz=Zpy0`?){uc-uohcz|Jb#Xf0y!f(V8^;?S69yJ+$K zvB%;KuoHy6q6{mPyO=$JWnX*WA(LApsql8n$!rGr7nxHl0v!nQOaL=eMJt+JO*4bjy&gGe7_WvxuEBCfqnXL>@ zS$WUf*}3xJ?19b|aQ}`%7&ak*4^tBqF4Q0h47Z4F;jzZfU&1pbIUf`h861RJ^v@Sb z!i&-ukvrF5-QV{?cl6sbU7OtKs6{_+I5rW89#p4 z7P}kxJ_!TP>w+Ssu5BB@--}VAYs_Bpt^YpY9PTKuZM^*kheqf!^Z`O@m4Q!xKAa4f z6?>nNMJ}*4AM#Q5!~JV>7YcBS4H$1sJ?&-(Zoe5%b3O(c{HKH?R-l$x*^$*+2yhb> zDr!K$LUI}a=~6?#aQwSjQlVAA!(5=+-QH@~%8*Cai)XM{o=#3=#pY!g^|n+kISM08=bK#E)K11#z&5^`{&0DuSHO@y2&yTOSUFZgs zx;G_{zvxgT!I0k{Y&zMj-6hYzKs1Ocj-xbgsZn!iPfa`JS6Pdql>ix${qiSr8)g;n zHk2_hpb)IYmaQ2q1>|lh@WeJjiEIqlue4M${*K%x8p)GWj zbhPHx;{A@S-J%pZ(q#9AL<`i}7=Jm3e&E(=MygjwWUPls4ya@uR+l8}IOL;HrK9z{rx0||CQKVp%q+LoykbixE(MS=2$3-*~!|Cb9a{(aWcXDrG zlT)UeF`pjBq_!(L{KgC!C{4L$=>|RY9GtGo44_`iOgS(je*Np`715f`)FQu^Gulgi!vURXRUHpd-tW~sn}m#LkpKGl zK$R)RH0R-+5yZXg*RJ_XfT@dtdcB_k)m{xu@YNAy4Xb9@fo+|c|474R0jZ{V)Z$Xv zD*(?IeYa{s#_zhsHf3-g`2ZNI!w4dU@6_%uI_Nq#k{!f{ttkRXxHEc@rKzW3I@ttd z--9HA3e0SIGmcpPFTy?bt>$Mwyz!H0n^1sUTyyEhSglCWodlnXUPppE>;>mP4zv#++U^> z7)?|0$-q(betK9STx>uj#^~1T!Qhl8`~`<*rM&UK4b+n-ph+kH|vV}$VIrdtFQsw_y{hHJS89h3SaK;KuG#KReC>+J#W&WhtH zq$>QA3!xqG`=>wxHNU3&Tsrf^#_BA;!aN+UPN{pn6%0a_&7VsGy9 z^_@TP*ZO@ULvx&PKa!q|9xwSG@~CsAV_l;Tq)2 zcsRVN$m;HM2iiqce-T4J$d#`bruNs~+T4*|X^xEmybmOXOrG4!2NuPpnIM?Z}S6B54a6k);0qt z*qJU$A(@nYNlU>;Ves`aA!Tvo|E3H}XF^NdJ&sXGT8o5O)kBuuRz(A#1>es?LReo; zI0z%ya6Ax0hkkSw%pcXKasVT0gk;cKU!V_P1YNB2ibe7fSOYbs{Jteq>A|=Sx6kiSp@fjULfFbQEoCCv5U>@H)qn`rmNY*v z8iD~jP|3X$h85igm6{X<792m9uNRSKSIHJ&!i_w(8ghvUba-Go(ayuju!pGdtt7zO z(CSp=F|Slx)zX1yVd9~%*S#R8FfB{XuF@X=`lCMWP6`TZ+1Z`ZPH9I({oz0?K1o~0?UI7bl1L53_=gwJ}6HCQWr0Puk9Uh4p%oQj2vc6}HByDm~>%z@eD}!xapBmtb*bRm#=@cemIg z!Y^XVj7f$Y9HnF~3^Zm3IEH{^6*zw&EMkkHQ8-ag3vO&^6adFl@ML3LWwCMu{#yl7 z02fBUdWyret2t$b0XhYRKb26^h;UC88^RDJ^E(k2az@AtFyfM{fgEQba5;!b<8gR# zTb*M7=TzI*gEl{fRfndl4zE2DQ%`3giJ2uTbvBE3Ys^&UYS4LK! z$*Ja5SJzyvK094qw^Gg5s%dnrX^yNpms4XphDI}BKwvU68V(mM5x>U`AOt6Da8@Q)>R zp>Gq?TY>=)v6~=0w+qHQNu1P3YPYPNu zl}osj?s8w{FZZA8^TuMYd$>$Ex+#-tEXx5myGD%<*B}?5?9j1t_2N*zb45)xpyG@QaSZJvw#p<#UDp{I7)N{!O z37b%8B@$ej1Q)#pQYH0!epdh367MQNxt41TK8-yb=Bk|Pno7n>-<*c+H(0+Fw-W$h z&*L?6zUrt8P%2JprBl_ftU=xaV)H_)QflG>H?62xIS|j!OWM?(ukByn{_LB}Pmg+k zz-7}>wZ@g*J}mTwxA46r@b!I^+bDQ43mY%LDJRyszpGW9gzRtFq`aVmsia=|irTlJ z4d&KdI)^O+VT*7e3DDRGU|zrLc=D+UHm{=;D{$D&Q{Ffaw;xWGw&QcY79g! zXdKSk8HL(7sIvZjd&9gLRsk!Yn1p@OMzwd^v~UXcZCWn1f~qpnx|Xp==1c9g>ujok z<#oZ`0p#i3AcquxwxLcXN(m&jX8hFD7{xr^4;GQ6-B!Q5Njg0g=N_A=9=n4*4z)c_ z*Lz&VJ+8lds5-sw&b^*dy|jb9KDE8R*L(fNy~r*)WdVrb=YVqzwhANkS&y)fGEalo zUiOw}pg&-6J(MU+jG?ka_uH&83LCDq0Dq;5OW$(rXBY6L7;wg+(->+f9I(_Vw1^3l zB*Bb_4o%GJ(-*U4=yYT%{@ap8?z^IfZ|PP7Dr@#S63Q_Z*>eyXj^)H-0Sm$P>%XtuR|ld;kqw`1JExGwp=hm5t zo8?P6=((a!9S0Qjk8I}pfLF-2^O<_125-~{bli#UbEQf6h=#NSvk5t$Cj!&V&34L} zIj0|g6Jfr8HjOudpTTFBFX2Pu?7IfiCJ0xyg#gHbY(bhaMo`2E@2~p~)G4FqjIlkA zUb1(Y9+ypRi%q37{yK}d+7P$(X8dFJl8vhZ`Uz&g`mLo6`o^h28mG-uAEy2JiuVpS zi)I_Yy`JG*WpamYA!R6w0;_xiD86n4JN@$EjAEPJjV7TpsWsn=#*{DLTO6+URP*w- z^5y__EMM~$hmrx%Ez!?y(pS&D&vKE$hUL>CYJxSfrmhhVqPaCQ~60N%g5u z(@#;g5p|Eq$QD8F53Ts174F0)2aDnL#vT;!7Pi@?ZXZD!-6zfB+{_)Hv`3qV><`D^ z_n%G0ByRRHWt~)bye2#diACB(m{wx*d9|8R4^6wy9<=o#m`0fDNldj5988R68%27& zxp#;VZ+9!GyfDgTKD?Z&)_HQRypJLcZe(b4mzf1wYucRH74~r`tySWrx!dfC;ZW_Fe`P zcjdiTHFLMPg72~0-VwO((b3)3^fXm(kDZUID)G!p^F;BH#p2CrQA6#f##NQ9r0n}! zz7G4&S`^q@j;k~4GaiSyqfRPbJ>=kU*b)`Tm%CG<()SV6ncHBe#wqRH2`e;Lg4kikZJns5r9f%TYc)8)7=Hp*S$+EuB6Y6&7a#> zBmIGYAFBVSVr$A(?~RRS6G>NS@Wa^}xOtn`=T8s5&ohR9!SBD3(Hkt3RheW*up(hY zDYipV!FE~cjIi<7iUW+bbA#^}ftFPHMw0xAZlz3j@Z0(g-Ys|6kO+B;Y&<{H`Z+*< zzfXr-wv$u#Xx0F~z`o|^q3>=Kd6~%nY=F2D>eoW7CmajKP=@|`8R&5!@#2&VKgFWR zzP9BmF`n~s@I>RdO_HwJo-g`i6kk_f)hC}6?`5;5-a8Lno}z>C*2lr{#m!#a_iMZy z1n!S$3$)BHeK!UIrt)5X{CM+oZxCpUKX-s3CjqE=*@sT$et7AL;rp(uFuiC|E)5^t zP?BtleeA2Vh}l?JuJzi+mI0RhGpWX?oWKX_yel8VpTbcNO?Xm(fW>e5uS z01^Q1TL+IC;n>S)h!_|?-r58Gi(A#t!J~`h`ZUbisTpJvHPp7{K}e05+02UjP6A diff --git a/mingw/lib/tk8.5/demos/images/face.xbm b/mingw/lib/tk8.5/demos/images/face.xbm deleted file mode 100644 index 03d829f4d1..0000000000 --- a/mingw/lib/tk8.5/demos/images/face.xbm +++ /dev/null @@ -1,173 +0,0 @@ -#define face_width 108 -#define face_height 144 -#define face_x_hot 48 -#define face_y_hot 80 -static char face_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x09, - 0x20, 0x80, 0x24, 0x05, 0x00, 0x80, 0x08, 0x00, 0x00, 0x00, 0x00, 0x88, - 0x24, 0x20, 0x80, 0x24, 0x00, 0x00, 0x00, 0x10, 0x80, 0x04, 0x00, 0x01, - 0x00, 0x01, 0x40, 0x0a, 0x09, 0x00, 0x92, 0x04, 0x80, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x10, 0x40, 0x12, 0x00, 0x00, 0x10, 0x40, 0x00, 0x00, 0x84, - 0x24, 0x40, 0x22, 0xa8, 0x02, 0x14, 0x84, 0x92, 0x40, 0x42, 0x12, 0x04, - 0x10, 0x00, 0x00, 0x00, 0x00, 0x52, 0x00, 0x52, 0x11, 0x00, 0x12, 0x00, - 0x40, 0x02, 0x00, 0x20, 0x00, 0x08, 0x00, 0xaa, 0x02, 0x54, 0x85, 0x24, - 0x00, 0x10, 0x12, 0x00, 0x00, 0x81, 0x44, 0x00, 0x90, 0x5a, 0x00, 0xea, - 0x1b, 0x00, 0x80, 0x40, 0x40, 0x02, 0x00, 0x08, 0x00, 0x20, 0xa2, 0x05, - 0x8a, 0xb4, 0x6e, 0x45, 0x12, 0x04, 0x08, 0x00, 0x00, 0x00, 0x10, 0x02, - 0xa8, 0x92, 0x00, 0xda, 0x5f, 0x10, 0x00, 0x10, 0xa1, 0x04, 0x20, 0x41, - 0x02, 0x00, 0x5a, 0x25, 0xa0, 0xff, 0xfb, 0x05, 0x41, 0x02, 0x04, 0x00, - 0x00, 0x08, 0x40, 0x80, 0xec, 0x9b, 0xec, 0xfe, 0x7f, 0x01, 0x04, 0x20, - 0x90, 0x02, 0x04, 0x00, 0x08, 0x20, 0xfb, 0x2e, 0xf5, 0xff, 0xff, 0x57, - 0x00, 0x04, 0x02, 0x00, 0x00, 0x20, 0x01, 0xc1, 0x6e, 0xab, 0xfa, 0xff, - 0xff, 0x05, 0x90, 0x20, 0x48, 0x02, 0x00, 0x04, 0x20, 0xa8, 0xdf, 0xb5, - 0xfe, 0xff, 0xff, 0x0b, 0x01, 0x00, 0x01, 0x00, 0x80, 0x80, 0x04, 0xe0, - 0xbb, 0xef, 0xff, 0xff, 0x7f, 0x01, 0x00, 0x04, 0x48, 0x02, 0x00, 0x20, - 0x80, 0xf4, 0x6f, 0xfb, 0xff, 0xff, 0xff, 0x20, 0x90, 0x40, 0x02, 0x00, - 0x00, 0x04, 0x08, 0xb8, 0xf6, 0xff, 0xff, 0xdf, 0xbe, 0x12, 0x45, 0x10, - 0x90, 0x04, 0x90, 0x00, 0x22, 0xfa, 0xff, 0xff, 0xff, 0xbb, 0xd7, 0xe9, - 0x3a, 0x02, 0x02, 0x00, 0x04, 0x90, 0x80, 0xfe, 0xdf, 0xf6, 0xb7, 0xef, - 0xbe, 0x56, 0x57, 0x40, 0x48, 0x09, 0x00, 0x04, 0x00, 0xfa, 0xf5, 0xdf, - 0xed, 0x5a, 0xd5, 0xea, 0xbd, 0x09, 0x00, 0x00, 0x40, 0x00, 0x92, 0xfe, - 0xbf, 0x7d, 0xb7, 0x6a, 0x55, 0xbf, 0xf7, 0x02, 0x11, 0x01, 0x00, 0x91, - 0x00, 0xff, 0xff, 0xaf, 0x55, 0x55, 0x5b, 0xeb, 0xef, 0x22, 0x04, 0x04, - 0x04, 0x00, 0xa4, 0xff, 0xf7, 0xad, 0xaa, 0xaa, 0xaa, 0xbe, 0xfe, 0x03, - 0x20, 0x00, 0x10, 0x44, 0x80, 0xff, 0x7f, 0x55, 0x12, 0x91, 0x2a, 0xeb, - 0xbf, 0x0b, 0x82, 0x02, 0x00, 0x00, 0xd1, 0x7f, 0xdf, 0xa2, 0xa4, 0x54, - 0x55, 0xfd, 0xfd, 0x47, 0x08, 0x08, 0x00, 0x21, 0xe4, 0xff, 0x37, 0x11, - 0x09, 0xa5, 0xaa, 0xb6, 0xff, 0x0d, 0x80, 0x00, 0x00, 0x04, 0xd0, 0xff, - 0x4f, 0x44, 0x20, 0x48, 0x55, 0xfb, 0xff, 0x27, 0x11, 0x02, 0x40, 0x40, - 0xe2, 0xfb, 0x15, 0x11, 0x4a, 0x55, 0x4a, 0x7d, 0xf7, 0x0f, 0x00, 0x00, - 0x04, 0x08, 0xf8, 0xdf, 0x52, 0x44, 0x01, 0x52, 0xb5, 0xfa, 0xff, 0x0f, - 0x49, 0x02, 0x00, 0x02, 0xe9, 0xf6, 0x0a, 0x11, 0xa4, 0x88, 0x4a, 0x6d, - 0xff, 0x5f, 0x00, 0x00, 0x10, 0x20, 0xf0, 0x2f, 0x21, 0x44, 0x10, 0x52, - 0xb5, 0xfa, 0xff, 0x0f, 0x44, 0x04, 0x80, 0x08, 0xf8, 0xab, 0x8a, 0x00, - 0x81, 0xa4, 0xd4, 0xd6, 0xfe, 0x2f, 0x00, 0x00, 0x04, 0x40, 0xb5, 0x2d, - 0x21, 0x08, 0x04, 0x90, 0xaa, 0xfa, 0xff, 0x1f, 0x11, 0x01, 0x00, 0x04, - 0xf0, 0x57, 0x0a, 0x22, 0x40, 0x4a, 0xda, 0x5e, 0xfb, 0x1f, 0x40, 0x00, - 0x40, 0x20, 0xba, 0x95, 0x90, 0x00, 0x01, 0xa0, 0xaa, 0xea, 0xff, 0x5f, - 0x02, 0x02, 0x00, 0x01, 0xe8, 0x57, 0x05, 0x00, 0x00, 0x12, 0xd5, 0xfe, - 0xfd, 0x1f, 0x48, 0x00, 0x04, 0x48, 0x7a, 0x95, 0x08, 0x02, 0x10, 0x40, - 0xaa, 0x55, 0xf7, 0x1f, 0x00, 0x09, 0x20, 0x00, 0xf8, 0x57, 0x22, 0x10, - 0x00, 0x28, 0xa9, 0xfa, 0xff, 0x5f, 0x02, 0x00, 0x00, 0x49, 0xdd, 0x29, - 0x01, 0x00, 0x80, 0x80, 0xaa, 0xd7, 0xff, 0x0f, 0x10, 0x00, 0x08, 0x00, - 0xf8, 0x96, 0x08, 0x00, 0x00, 0x20, 0x54, 0xfa, 0xee, 0x3f, 0x81, 0x04, - 0x40, 0x24, 0xfe, 0x55, 0x82, 0x00, 0x00, 0x82, 0xd2, 0xad, 0xff, 0x0f, - 0x08, 0x00, 0x04, 0x80, 0x6c, 0x97, 0x00, 0x00, 0x02, 0x20, 0xa9, 0xf6, - 0xdf, 0x5f, 0x00, 0x02, 0x20, 0x09, 0xfa, 0x49, 0x12, 0x00, 0x20, 0x84, - 0x54, 0xdb, 0xfe, 0x1f, 0x91, 0x00, 0x00, 0x00, 0xf8, 0x2b, 0x00, 0x20, - 0x00, 0x40, 0xa4, 0xf6, 0xbb, 0x1f, 0x04, 0x00, 0x44, 0x92, 0x7e, 0x95, - 0x02, 0x00, 0x00, 0x89, 0xaa, 0xdd, 0xff, 0x1f, 0x20, 0x09, 0x10, 0x00, - 0xf4, 0x57, 0x20, 0x01, 0x08, 0x20, 0xa9, 0x76, 0xff, 0x5f, 0x02, 0x00, - 0x00, 0x21, 0xfc, 0x4a, 0x05, 0x00, 0x01, 0x80, 0x54, 0xdb, 0xff, 0x1e, - 0x08, 0x02, 0x04, 0x08, 0xf9, 0x2b, 0x00, 0x00, 0x40, 0x28, 0xd2, 0xf6, - 0xff, 0xbf, 0x80, 0x00, 0x90, 0x00, 0xbc, 0x92, 0x08, 0x10, 0x00, 0x82, - 0x54, 0xdb, 0xff, 0x1f, 0x20, 0x00, 0x00, 0x44, 0xf9, 0x55, 0x02, 0x01, - 0x00, 0x20, 0xaa, 0xbd, 0xfd, 0x3f, 0x08, 0x04, 0x04, 0x10, 0xf4, 0x2a, - 0x01, 0x00, 0x22, 0x80, 0xd4, 0xf6, 0xff, 0x5f, 0x82, 0x00, 0x40, 0x02, - 0xf8, 0x55, 0x20, 0x00, 0x00, 0x50, 0x6a, 0xdf, 0xfe, 0x3f, 0x00, 0x00, - 0x00, 0x48, 0xe9, 0x4a, 0x05, 0x08, 0x00, 0xa5, 0xd5, 0xf5, 0xff, 0x3f, - 0x10, 0x01, 0x10, 0x01, 0xb0, 0xab, 0x92, 0x02, 0x40, 0xf8, 0xbf, 0xde, - 0xfe, 0x5f, 0x02, 0x04, 0x04, 0x48, 0xfa, 0xd4, 0x6f, 0x20, 0x84, 0xef, - 0xff, 0xfb, 0xff, 0x1f, 0x20, 0x00, 0x00, 0x00, 0xe0, 0xed, 0xbf, 0x0b, - 0xa1, 0x7e, 0xff, 0xbf, 0xfd, 0x5f, 0x04, 0x01, 0x20, 0x49, 0xd2, 0xfb, - 0xfe, 0x55, 0xd4, 0xff, 0xff, 0xf6, 0xff, 0x07, 0x00, 0x04, 0x00, 0x00, - 0xc0, 0xaa, 0xfb, 0x2b, 0xa2, 0xfe, 0xff, 0xdf, 0xee, 0x1f, 0x91, 0x00, - 0x82, 0xa4, 0xa4, 0xf5, 0xff, 0x57, 0xd5, 0xff, 0xbf, 0xfd, 0xff, 0x4d, - 0x00, 0x00, 0x20, 0x00, 0x88, 0x5b, 0xff, 0x2f, 0x69, 0xff, 0xff, 0xdb, - 0xfe, 0x1f, 0x24, 0x02, 0x00, 0x49, 0xa2, 0xd6, 0xff, 0x5f, 0xea, 0xff, - 0x7f, 0x7f, 0x7f, 0x0d, 0x00, 0x00, 0x10, 0x00, 0x40, 0xab, 0xf7, 0xbb, - 0xf0, 0xdf, 0xff, 0xd5, 0xff, 0xbf, 0x82, 0x04, 0x42, 0x24, 0x91, 0xd5, - 0xaa, 0xae, 0xd4, 0xaa, 0x52, 0x7b, 0xff, 0x15, 0x08, 0x00, 0x00, 0x01, - 0x04, 0x55, 0xd5, 0x55, 0x70, 0x5b, 0x75, 0xdd, 0xdf, 0x1f, 0x40, 0x00, - 0x08, 0x48, 0xa0, 0x4a, 0xa9, 0x56, 0xea, 0x56, 0xad, 0x6a, 0x7d, 0x9b, - 0x04, 0x01, 0x00, 0x02, 0x42, 0x2a, 0xd5, 0xaa, 0xa8, 0xaa, 0xaa, 0xfa, - 0xdf, 0x2f, 0x10, 0x04, 0x22, 0x48, 0x08, 0x45, 0x2a, 0x15, 0x68, 0x55, - 0x55, 0xd7, 0x76, 0x1b, 0x00, 0x00, 0x00, 0x01, 0x40, 0x2a, 0x80, 0xa0, - 0xb2, 0x09, 0x48, 0xb9, 0xdf, 0x17, 0x22, 0x01, 0x00, 0x24, 0x45, 0x8a, - 0x24, 0x4a, 0x54, 0x51, 0x91, 0xf6, 0x6e, 0x4b, 0x00, 0x04, 0x90, 0x00, - 0x80, 0x52, 0x00, 0x20, 0x69, 0x05, 0xa4, 0xaa, 0xff, 0x1e, 0x48, 0x00, - 0x02, 0x92, 0x08, 0x05, 0x81, 0x94, 0xd4, 0x92, 0x40, 0xfd, 0xb6, 0x8b, - 0x00, 0x01, 0x40, 0x00, 0x82, 0x54, 0x00, 0x48, 0x68, 0x05, 0x90, 0xa4, - 0xef, 0x06, 0x24, 0x00, 0x08, 0x12, 0x10, 0x05, 0x00, 0x10, 0xb5, 0x01, - 0x42, 0xfb, 0xbf, 0x43, 0x00, 0x09, 0x00, 0x40, 0x81, 0xa8, 0x08, 0x4a, - 0xaa, 0x96, 0x90, 0xac, 0x6d, 0x15, 0x22, 0x00, 0x20, 0x09, 0x04, 0x15, - 0x80, 0x28, 0xdc, 0x01, 0x24, 0xfb, 0xbf, 0x01, 0x80, 0x04, 0x09, 0x00, - 0x40, 0x48, 0x02, 0x45, 0xb2, 0x2e, 0x41, 0x6d, 0xef, 0x05, 0x11, 0x00, - 0x40, 0x52, 0x02, 0x15, 0x29, 0x2a, 0xac, 0x42, 0x54, 0xfb, 0x3b, 0x51, - 0x84, 0x00, 0x08, 0x00, 0x20, 0x54, 0x80, 0x05, 0xb5, 0x3d, 0xa2, 0xb6, - 0xdf, 0x00, 0x20, 0x04, 0x20, 0x49, 0x89, 0xa8, 0x6a, 0x29, 0xac, 0xd6, - 0x54, 0xff, 0x3f, 0x84, 0x00, 0x01, 0x04, 0x10, 0x00, 0x94, 0xa8, 0x56, - 0xda, 0x5f, 0xab, 0xd5, 0x1e, 0x10, 0x48, 0x00, 0x90, 0x82, 0x48, 0xa8, - 0xb2, 0xac, 0xfd, 0x55, 0xd5, 0xfe, 0x9f, 0x80, 0x00, 0x0a, 0x02, 0x08, - 0x02, 0x55, 0x5a, 0x75, 0xff, 0xaf, 0xb6, 0xf7, 0x2d, 0x12, 0x92, 0x00, - 0x10, 0x20, 0x10, 0xa8, 0x54, 0xd5, 0xbf, 0x5d, 0xad, 0xdd, 0x0f, 0x00, - 0x00, 0x04, 0x40, 0x09, 0x84, 0xa8, 0xaa, 0x5a, 0xed, 0xeb, 0x6a, 0xff, - 0x9f, 0xa4, 0x24, 0x01, 0x02, 0xa0, 0x20, 0x50, 0x55, 0xd5, 0xbe, 0xae, - 0xad, 0xfd, 0x16, 0x00, 0x10, 0x04, 0x20, 0x0a, 0x08, 0xb4, 0xaa, 0x95, - 0xaa, 0x7b, 0xb7, 0xdb, 0x5f, 0x92, 0x04, 0x01, 0x84, 0x20, 0x21, 0x51, - 0xd5, 0x2a, 0xa9, 0xee, 0xd5, 0xfe, 0x0d, 0x00, 0x20, 0x04, 0x10, 0x00, - 0x08, 0x50, 0xe9, 0xd7, 0xd4, 0xfb, 0xb5, 0xff, 0x9f, 0x24, 0x09, 0x01, - 0x42, 0x4a, 0xa2, 0x64, 0xd5, 0x55, 0x7b, 0x7f, 0xda, 0x7d, 0x4f, 0x00, - 0x20, 0x04, 0x00, 0x80, 0x00, 0xa0, 0x2a, 0x13, 0x84, 0x6a, 0x55, 0xff, - 0x1d, 0x48, 0x8a, 0x00, 0x94, 0x24, 0x8a, 0xc8, 0xaa, 0x42, 0x20, 0x5d, - 0xf5, 0xff, 0x5f, 0x01, 0x00, 0x02, 0x01, 0x00, 0x20, 0xa2, 0x4a, 0x1a, - 0x82, 0x56, 0xda, 0xbd, 0x3f, 0x92, 0x92, 0x00, 0x90, 0x92, 0x00, 0x40, - 0x95, 0x6a, 0xf4, 0x55, 0x6d, 0xff, 0xd6, 0x00, 0x00, 0x0a, 0x04, 0x20, - 0x14, 0x49, 0x4b, 0xaa, 0xaa, 0x56, 0xf5, 0xff, 0xbf, 0xab, 0xa4, 0x00, - 0x20, 0x89, 0x40, 0x80, 0xaa, 0xaa, 0xaa, 0xaa, 0xde, 0xbf, 0xeb, 0x03, - 0x00, 0x02, 0x04, 0x02, 0x0a, 0x10, 0x2b, 0x2a, 0x55, 0x5b, 0xf5, 0xff, - 0xd7, 0x2f, 0x92, 0x00, 0x10, 0x28, 0x21, 0x01, 0x56, 0x95, 0xa0, 0x56, - 0xdf, 0xef, 0xea, 0x87, 0x40, 0x0a, 0x42, 0x41, 0x00, 0x90, 0xaa, 0x52, - 0xb6, 0xad, 0xfa, 0xff, 0xd5, 0x2f, 0x14, 0x00, 0x00, 0x04, 0x95, 0x04, - 0xaa, 0xac, 0x55, 0x6b, 0xff, 0xb7, 0xea, 0x9f, 0x40, 0x02, 0x28, 0x51, - 0x00, 0x40, 0x58, 0xd5, 0xda, 0xd6, 0x6e, 0x7f, 0xf9, 0x3f, 0x12, 0x04, - 0x02, 0x04, 0x49, 0x25, 0x55, 0xaa, 0x77, 0xab, 0xff, 0x2b, 0xfd, 0x3f, - 0x48, 0x01, 0x20, 0x41, 0x00, 0x00, 0x58, 0xa9, 0xda, 0xea, 0xfd, 0xaf, - 0xfa, 0xff, 0x02, 0x04, 0x08, 0x14, 0x29, 0x49, 0x52, 0x55, 0x55, 0x55, - 0xff, 0x8d, 0xfe, 0x3f, 0xa8, 0x00, 0x02, 0x41, 0x00, 0x02, 0xa0, 0xa2, - 0xaa, 0xea, 0xff, 0x53, 0xfd, 0xff, 0x02, 0x04, 0x50, 0x04, 0x25, 0xa8, - 0x54, 0x49, 0x52, 0xb5, 0xbf, 0x8a, 0xfe, 0xff, 0xa9, 0x08, 0x04, 0x50, - 0x80, 0x02, 0xa1, 0x2a, 0x95, 0xea, 0xff, 0xa1, 0xff, 0xff, 0x03, 0x02, - 0x90, 0x02, 0x09, 0x08, 0x44, 0x49, 0x52, 0xbd, 0x7f, 0xca, 0xff, 0xff, - 0x2b, 0x09, 0x04, 0x48, 0x40, 0x82, 0x90, 0x56, 0xa9, 0xf6, 0xbf, 0xd0, - 0xff, 0xff, 0x47, 0x00, 0x50, 0x02, 0x15, 0x11, 0x40, 0x95, 0xaa, 0xfd, - 0x2f, 0xe9, 0xff, 0xff, 0x8f, 0x0a, 0x84, 0x50, 0x40, 0x84, 0x14, 0xaa, - 0x6a, 0xff, 0x5f, 0xf2, 0xff, 0xff, 0x7f, 0x00, 0x10, 0x02, 0x09, 0x10, - 0x40, 0x7d, 0xf7, 0xff, 0x0b, 0xfc, 0xff, 0xff, 0xaf, 0x02, 0x84, 0x50, - 0x42, 0x85, 0x12, 0xd0, 0xdd, 0xff, 0xa7, 0xf2, 0xff, 0xff, 0xff, 0x04, - 0x00, 0x0a, 0x08, 0x10, 0x48, 0xf8, 0xff, 0xff, 0x0a, 0xfe, 0xff, 0xff, - 0x7f, 0x03, 0xa4, 0x80, 0xa2, 0x8a, 0x02, 0x68, 0xff, 0xff, 0x52, 0xfd, - 0xff, 0xff, 0xff, 0x07, 0x00, 0x2a, 0x08, 0x20, 0x28, 0xdc, 0xff, 0x5f, - 0x05, 0xff, 0xff, 0xff, 0xff, 0x0d, 0x92, 0x40, 0x22, 0x09, 0x02, 0xea, - 0xfb, 0xaf, 0x48, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x12, 0x81, 0xa0, - 0x48, 0x9c, 0x6e, 0x93, 0xa2, 0xff, 0xff, 0xff, 0xff, 0x07, 0xa8, 0x40, - 0x28, 0x0a, 0x02, 0x74, 0xb5, 0x45, 0x81, 0xff, 0xff, 0xff, 0xff, 0x0f, - 0x02, 0x0a, 0x81, 0x20, 0x08, 0xae, 0xaa, 0x90, 0xe8, 0xff, 0xff, 0xff, - 0xff, 0x0f, 0x90, 0x40, 0x28, 0x88, 0x12, 0x58, 0x15, 0x50, 0xd0, 0xff, - 0xff, 0xff, 0xff, 0x0f, 0x44, 0x0a, 0x41, 0x21, 0x08, 0xae, 0x04, 0x14, - 0xf0, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x10, 0x40, 0x14, 0x88, 0x04, 0xba, - 0x02, 0x28, 0xe8, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x42, 0x15, 0x41, 0x21, - 0x05, 0xad, 0x00, 0x05, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x10, 0x40, - 0x24, 0x8a, 0x0e, 0x36, 0x00, 0x0a, 0xf4, 0xff, 0xff, 0xff, 0xff, 0x0f, - 0x42, 0x25, 0x90, 0xd0, 0x8b, 0xc2, 0x41, 0x05, 0xfc, 0xff, 0xff, 0xff, - 0xff, 0x0f, 0x10, 0x08, 0x05, 0xe8, 0x8e, 0x58, 0x80, 0x02, 0xfa, 0xff, - 0xff, 0xff, 0xff, 0x0f, 0x4a, 0x20, 0xa8, 0xba, 0x0b, 0x2b, 0x51, 0x01, - 0xfe, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x8a, 0x02, 0xe8, 0xaf, 0x84, - 0x90, 0x04, 0xfd, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x52, 0x21, 0x54, 0xbf, - 0x1f, 0x15, 0xa5, 0x02, 0xfe, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x08, - 0x01, 0xfa, 0xb6, 0xa4, 0x52, 0x40, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, - 0x4a, 0xa2, 0x54, 0xef, 0x5f, 0x4b, 0xa4, 0x80, 0xff, 0xff, 0xff, 0xff, - 0xff, 0x0f, 0x80, 0x10, 0x82, 0xfe, 0xbf, 0x92, 0x52, 0x42, 0xff, 0xff, - 0xff, 0xff, 0xff, 0x0f, 0x12, 0x42, 0xa8, 0xbf, 0x1f, 0x24, 0x80, 0xa0, - 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x84, 0x28, 0x8a, 0xf7, 0x37, 0x80, - 0x52, 0x80, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x10, 0x82, 0xe0, 0xff, - 0x1f, 0x00, 0x20, 0xe1, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x84, 0x28, - 0xca, 0xff, 0x1f, 0x00, 0x00, 0xc0, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, - 0x10, 0x42, 0xf0, 0xfd, 0x1b, 0x00, 0x50, 0xf0, 0xff, 0xff, 0xff, 0xff, - 0xff, 0x0f, 0xa4, 0x10, 0xc5, 0xff, 0x1f, 0x00, 0x00, 0xe0, 0xff, 0xff, - 0xff, 0xff, 0xff, 0x0f, 0x00, 0x22, 0xf8, 0xff, 0x0e, 0x00, 0x00, 0xf0, - 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xaa, 0x88, 0xe2, 0xff, 0x0f, 0x10, - 0x00, 0xf0, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x25, 0xfa, 0xff, - 0x0f, 0x01, 0x11, 0xfd, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xfb, - 0xfb, 0xff, 0x7f, 0x5d, 0xd5, 0xfa, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f}; diff --git a/mingw/lib/tk8.5/demos/images/flagdown.xbm b/mingw/lib/tk8.5/demos/images/flagdown.xbm deleted file mode 100644 index 55abc51825..0000000000 --- a/mingw/lib/tk8.5/demos/images/flagdown.xbm +++ /dev/null @@ -1,27 +0,0 @@ -#define flagdown_width 48 -#define flagdown_height 48 -static char flagdown_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1e, 0x00, 0x00, - 0x00, 0x00, 0x80, 0x7f, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xe1, 0x00, 0x00, - 0x00, 0x00, 0x70, 0x80, 0x01, 0x00, 0x00, 0x00, 0x18, 0x00, 0x03, 0x00, - 0x00, 0x00, 0x0c, 0x00, 0x03, 0x00, 0x00, 0x00, 0x06, 0x00, 0x06, 0x04, - 0x00, 0x00, 0x03, 0x00, 0x06, 0x06, 0x00, 0x80, 0x01, 0x00, 0x06, 0x07, - 0x00, 0xc0, 0x1f, 0x00, 0x87, 0x07, 0x00, 0xe0, 0x7f, 0x80, 0xc7, 0x07, - 0x00, 0x70, 0xe0, 0xc0, 0xe5, 0x07, 0x00, 0x38, 0x80, 0xe1, 0x74, 0x07, - 0x00, 0x18, 0x80, 0x71, 0x3c, 0x07, 0x00, 0x0c, 0x00, 0x3b, 0x1e, 0x03, - 0x00, 0x0c, 0x00, 0x1f, 0x0f, 0x00, 0x00, 0x86, 0x1f, 0x8e, 0x07, 0x00, - 0x00, 0x06, 0x06, 0xc6, 0x05, 0x00, 0x00, 0x06, 0x00, 0xc6, 0x05, 0x00, - 0x00, 0x06, 0x00, 0xc6, 0x04, 0x00, 0x00, 0x06, 0x00, 0x06, 0x04, 0x00, - 0x7f, 0x06, 0x00, 0x06, 0xe4, 0xff, 0x00, 0x06, 0x00, 0x06, 0x04, 0x00, - 0x00, 0x06, 0x00, 0x06, 0x04, 0x00, 0x00, 0x06, 0x00, 0x06, 0x06, 0x00, - 0x00, 0x06, 0x00, 0x06, 0x03, 0x00, 0x00, 0x06, 0x00, 0x86, 0x01, 0x00, - 0x00, 0x06, 0x00, 0xc6, 0x00, 0x00, 0x00, 0x06, 0x00, 0x66, 0x00, 0x00, - 0x00, 0x06, 0x00, 0x36, 0x00, 0x00, 0x00, 0x06, 0x00, 0x3e, 0x00, 0x00, - 0x00, 0xfe, 0xff, 0x2f, 0x00, 0x00, 0x00, 0xfc, 0xff, 0x27, 0x00, 0x00, - 0x00, 0x00, 0x88, 0x20, 0x00, 0x00, 0x00, 0x00, 0x88, 0x20, 0x00, 0x00, - 0x00, 0x00, 0x88, 0x20, 0x00, 0x00, 0x00, 0x00, 0x88, 0x20, 0x00, 0x00, - 0x00, 0x00, 0x88, 0x20, 0x00, 0x00, 0x00, 0x00, 0x88, 0x20, 0x00, 0x00, - 0x00, 0x00, 0x88, 0x20, 0x00, 0x00, 0x00, 0x00, 0x88, 0x20, 0x00, 0x00, - 0xf7, 0xbf, 0x8e, 0xfc, 0xdf, 0xf8, 0x9d, 0xeb, 0x9b, 0x76, 0xd2, 0x7a, - 0x46, 0x30, 0xe2, 0x0f, 0xe1, 0x47, 0x55, 0x84, 0x48, 0x11, 0x84, 0x19}; diff --git a/mingw/lib/tk8.5/demos/images/flagup.xbm b/mingw/lib/tk8.5/demos/images/flagup.xbm deleted file mode 100644 index 6eb0d846a3..0000000000 --- a/mingw/lib/tk8.5/demos/images/flagup.xbm +++ /dev/null @@ -1,27 +0,0 @@ -#define flagup_width 48 -#define flagup_height 48 -static char flagup_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x7f, 0x00, - 0x00, 0x00, 0x00, 0xe0, 0x7f, 0x00, 0x00, 0x00, 0x00, 0xef, 0x6a, 0x00, - 0x00, 0x00, 0xc0, 0x7b, 0x75, 0x00, 0x00, 0x00, 0xe0, 0xe0, 0x6a, 0x00, - 0x00, 0x00, 0x30, 0x60, 0x75, 0x00, 0x00, 0x00, 0x18, 0xe0, 0x7f, 0x00, - 0x00, 0x00, 0x0c, 0xe0, 0x7f, 0x00, 0x00, 0x00, 0x06, 0xe0, 0x04, 0x00, - 0x00, 0x00, 0x03, 0xe0, 0x04, 0x00, 0x00, 0x80, 0x01, 0xe0, 0x06, 0x00, - 0x00, 0xc0, 0x1f, 0xe0, 0x07, 0x00, 0x00, 0xe0, 0x7f, 0xe0, 0x07, 0x00, - 0x00, 0x70, 0xe0, 0xe0, 0x05, 0x00, 0x00, 0x38, 0x80, 0xe1, 0x04, 0x00, - 0x00, 0x18, 0x80, 0xf1, 0x04, 0x00, 0x00, 0x0c, 0x00, 0xfb, 0x04, 0x00, - 0x00, 0x0c, 0x00, 0xff, 0x04, 0x00, 0x00, 0x86, 0x1f, 0xee, 0x04, 0x00, - 0x00, 0x06, 0x06, 0xe6, 0x04, 0x00, 0x00, 0x06, 0x00, 0xe6, 0x04, 0x00, - 0x00, 0x06, 0x00, 0xe6, 0x04, 0x00, 0x00, 0x06, 0x00, 0x66, 0x04, 0x00, - 0x7f, 0x56, 0x52, 0x06, 0xe4, 0xff, 0x00, 0x76, 0x55, 0x06, 0x04, 0x00, - 0x00, 0x56, 0x57, 0x06, 0x04, 0x00, 0x00, 0x56, 0x55, 0x06, 0x06, 0x00, - 0x00, 0x56, 0xd5, 0x06, 0x03, 0x00, 0x00, 0x06, 0x00, 0x86, 0x01, 0x00, - 0x54, 0x06, 0x00, 0xc6, 0x54, 0x55, 0xaa, 0x06, 0x00, 0x66, 0xaa, 0x2a, - 0x54, 0x06, 0x00, 0x36, 0x55, 0x55, 0xaa, 0x06, 0x00, 0xbe, 0xaa, 0x2a, - 0x54, 0xfe, 0xff, 0x6f, 0x55, 0x55, 0xaa, 0xfc, 0xff, 0xa7, 0xaa, 0x2a, - 0x54, 0x01, 0x88, 0x60, 0x55, 0x55, 0xaa, 0xaa, 0x8a, 0xa0, 0xaa, 0x2a, - 0x54, 0x55, 0x8d, 0x60, 0x55, 0x55, 0xaa, 0xaa, 0x8a, 0xa0, 0xaa, 0x2a, - 0x54, 0x55, 0x8d, 0x60, 0x55, 0x55, 0xaa, 0xaa, 0x8a, 0xa0, 0xaa, 0x2a, - 0x54, 0x55, 0x8d, 0x50, 0x55, 0x55, 0xaa, 0xaa, 0x8a, 0xa8, 0xaa, 0x2a, - 0x54, 0x55, 0x95, 0x54, 0x55, 0x55, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0x2a, - 0x54, 0x55, 0x55, 0x55, 0x55, 0x15, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; diff --git a/mingw/lib/tk8.5/demos/images/gray25.xbm b/mingw/lib/tk8.5/demos/images/gray25.xbm deleted file mode 100644 index b234b3cb0b..0000000000 --- a/mingw/lib/tk8.5/demos/images/gray25.xbm +++ /dev/null @@ -1,6 +0,0 @@ -#define grey_width 16 -#define grey_height 16 -static char grey_bits[] = { - 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44, - 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44, - 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44}; diff --git a/mingw/lib/tk8.5/demos/images/letters.xbm b/mingw/lib/tk8.5/demos/images/letters.xbm deleted file mode 100644 index 0f12568d1a..0000000000 --- a/mingw/lib/tk8.5/demos/images/letters.xbm +++ /dev/null @@ -1,27 +0,0 @@ -#define letters_width 48 -#define letters_height 48 -static char letters_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0xfe, 0xff, 0xff, 0xff, 0x3f, 0x00, 0x02, 0x00, 0x00, 0x00, 0x20, - 0x00, 0xfa, 0x00, 0x00, 0x00, 0x2e, 0x00, 0x02, 0x00, 0x00, 0x00, 0x2a, - 0x00, 0x3a, 0x00, 0x00, 0x00, 0x2a, 0x00, 0x02, 0x00, 0x00, 0x00, 0x2e, - 0xe0, 0xff, 0xff, 0xff, 0xff, 0x21, 0x20, 0x00, 0x00, 0x00, 0x00, 0x21, - 0xa0, 0x03, 0x00, 0x00, 0x70, 0x21, 0x20, 0x00, 0x00, 0x00, 0x50, 0x21, - 0xa0, 0x1f, 0x00, 0x00, 0x50, 0x21, 0x20, 0x00, 0x00, 0x00, 0x70, 0x21, - 0xfe, 0xff, 0xff, 0xff, 0x0f, 0x21, 0x02, 0x00, 0x00, 0x00, 0x08, 0x21, - 0xfa, 0x01, 0x00, 0x80, 0x0b, 0x21, 0x02, 0x00, 0x00, 0x80, 0x0a, 0x21, - 0xba, 0x01, 0x00, 0x80, 0x0a, 0x21, 0x02, 0x00, 0x00, 0x80, 0x0b, 0x21, - 0x3a, 0x00, 0x00, 0x00, 0x08, 0x21, 0x02, 0x00, 0x00, 0x00, 0x08, 0x21, - 0x02, 0xc0, 0xfb, 0x03, 0x08, 0x21, 0x02, 0x00, 0x00, 0x00, 0x08, 0x3f, - 0x02, 0xc0, 0xbd, 0x0f, 0x08, 0x01, 0x02, 0x00, 0x00, 0x00, 0x08, 0x01, - 0x02, 0xc0, 0x7f, 0x7b, 0x08, 0x01, 0x02, 0x00, 0x00, 0x00, 0x08, 0x01, - 0x02, 0x00, 0x00, 0x00, 0xf8, 0x01, 0x02, 0x00, 0x00, 0x00, 0x08, 0x00, - 0x02, 0x00, 0x00, 0x00, 0x08, 0x00, 0x02, 0x00, 0x00, 0x00, 0x08, 0x00, - 0x02, 0x00, 0x00, 0x00, 0x08, 0x00, 0x02, 0x00, 0x00, 0x00, 0x08, 0x00, - 0xfe, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; diff --git a/mingw/lib/tk8.5/demos/images/noletter.xbm b/mingw/lib/tk8.5/demos/images/noletter.xbm deleted file mode 100644 index 5774124efe..0000000000 --- a/mingw/lib/tk8.5/demos/images/noletter.xbm +++ /dev/null @@ -1,27 +0,0 @@ -#define noletters_width 48 -#define noletters_height 48 -static char noletters_bits[] = { - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x1f, 0x00, 0x00, - 0x00, 0x00, 0xff, 0xff, 0x01, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x07, 0x00, - 0x00, 0xf0, 0x0f, 0xe0, 0x1f, 0x00, 0x00, 0xfc, 0x01, 0x00, 0x7f, 0x00, - 0x00, 0x3e, 0x00, 0x00, 0xf8, 0x00, 0x00, 0x1f, 0x00, 0x00, 0xf0, 0x01, - 0x80, 0x07, 0x00, 0x00, 0xc0, 0x03, 0xc0, 0x03, 0x00, 0x00, 0xe0, 0x07, - 0xe0, 0x01, 0x00, 0x00, 0xf0, 0x0f, 0xe0, 0x00, 0x00, 0x00, 0x78, 0x0e, - 0xf0, 0x00, 0x00, 0x00, 0x3c, 0x1e, 0x70, 0x00, 0x00, 0x00, 0x1e, 0x1c, - 0x38, 0x00, 0x00, 0x00, 0x0f, 0x38, 0x38, 0x00, 0x00, 0x80, 0x07, 0x38, - 0x3c, 0xfc, 0xff, 0xff, 0x7f, 0x78, 0x1c, 0x04, 0x00, 0xe0, 0x41, 0x70, - 0x1c, 0x04, 0x00, 0xf0, 0x40, 0x70, 0x1c, 0x74, 0x00, 0x78, 0x4e, 0x70, - 0x0e, 0x04, 0x00, 0x3c, 0x4a, 0xe0, 0x0e, 0x74, 0x03, 0x1e, 0x4a, 0xe0, - 0x0e, 0x04, 0x00, 0x0f, 0x4e, 0xe0, 0x0e, 0x04, 0x80, 0x07, 0x40, 0xe0, - 0x0e, 0x04, 0xf8, 0x0f, 0x40, 0xe0, 0x0e, 0x04, 0xe0, 0x01, 0x40, 0xe0, - 0x0e, 0x04, 0xf8, 0x00, 0x40, 0xe0, 0x0e, 0x04, 0x78, 0x00, 0x40, 0xe0, - 0x0e, 0x04, 0xfc, 0xf3, 0x40, 0xe0, 0x1c, 0x04, 0x1e, 0x00, 0x40, 0x70, - 0x1c, 0x04, 0x0f, 0x00, 0x40, 0x70, 0x1c, 0x84, 0x07, 0x00, 0x40, 0x70, - 0x3c, 0xfc, 0xff, 0xff, 0x7f, 0x78, 0x38, 0xe0, 0x01, 0x00, 0x00, 0x38, - 0x38, 0xf0, 0x00, 0x00, 0x00, 0x38, 0x70, 0x78, 0x00, 0x00, 0x00, 0x1c, - 0xf0, 0x3c, 0x00, 0x00, 0x00, 0x1e, 0xe0, 0x1e, 0x00, 0x00, 0x00, 0x0e, - 0xe0, 0x0f, 0x00, 0x00, 0x00, 0x0f, 0xc0, 0x07, 0x00, 0x00, 0x80, 0x07, - 0x80, 0x07, 0x00, 0x00, 0xc0, 0x03, 0x00, 0x1f, 0x00, 0x00, 0xf0, 0x01, - 0x00, 0x3e, 0x00, 0x00, 0xf8, 0x00, 0x00, 0xfc, 0x01, 0x00, 0x7f, 0x00, - 0x00, 0xf0, 0x0f, 0xe0, 0x1f, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x07, 0x00, - 0x00, 0x00, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0xf0, 0x1f, 0x00, 0x00}; diff --git a/mingw/lib/tk8.5/demos/images/pattern.xbm b/mingw/lib/tk8.5/demos/images/pattern.xbm deleted file mode 100644 index df31baf789..0000000000 --- a/mingw/lib/tk8.5/demos/images/pattern.xbm +++ /dev/null @@ -1,6 +0,0 @@ -#define foo_width 16 -#define foo_height 16 -static char foo_bits[] = { - 0x60, 0x06, 0x90, 0x09, 0x90, 0x09, 0xb0, 0x0d, 0x4e, 0x72, 0x49, 0x92, - 0x71, 0x8e, 0x8e, 0x71, 0x8e, 0x71, 0x71, 0x8e, 0x49, 0x92, 0x4e, 0x72, - 0xb0, 0x0d, 0x90, 0x09, 0x90, 0x09, 0x60, 0x06}; diff --git a/mingw/lib/tk8.5/demos/images/tcllogo.gif b/mingw/lib/tk8.5/demos/images/tcllogo.gif deleted file mode 100644 index 4603d4ff417d9ec1cc1ba3c0d1eeec29120a3f8d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcwPel00001 literal 2341 zcwVJb`#)6s8h+g`*|SH8DP#sa2Ax=4OiX*!xRubBaY+$c`s8p>j*fF`W28Y!Dq587 zTGJ$nok*wcwl%R5QE8Wxa?37uwNsty(>mYp{0ry(eAW-|df)eXpXYhk^7i#|73>s4 zEPP;q!9g<&#V{np5Da>QGMZ*+ilIq{CKwuUk)j!jVknZK2!;aOOVSKUF(k>51VaKI zC1{4A7=mO7f*}B71I+-%0LcKs0AOGYjj+%#>IS?A2Sw8)O%pT?crD5(il#`KB4`RQ z3sfX2nj~qGph>`_P%lBz1W6MFO#tGEMrojEAZZ|I08ANcK%@~%L<_J2ya_=gEHn&Q z5YADM6h%-JV0~yU%1DwT35oWp=o3X(ht}h zED3=j(ugHstMFokji3=0VCQfdm`uShOpfr=y$BmlMn_wOk2FB2UPlUTEyaxxMiyyacs3ys<2?G0nL~lG>%^JIpJa`jlE(EeB^) zv^yScvi45eUePmmHhsSN>RR^4djtPGHrz0}_Ybc#x4P0zUPRdMD_L+PgwaVc&JbEX zx|XOjFna#oW4Dy^-&b{6W~2uwhW8eJb@H%~=PuHWyFX*K)kNu9U12ht5Nrv8q^qX8 z9$9P&5!Tqrxh~r)c0CmtCeBld&SCpAgnE1ATu$75&p=t`{hlF1U3pL>i)1~pN3P*xHPHKCP)P8H0H_koN8&$#@{FOO>KRq&cKi`iP zm^;o_SdGV9vb{pK{pcnPbqE*LB~_p8*Hmve$VzBEc}2IvGtz`sjCeL&OqhQb`CzJI zPjl^L#l!0E-dNL?IE&-bdb+;TFx|tTbh)3*uqHHgt}}j`yYRTKeb9d!-HO}#eiL{J zU0$TdOZ*q^+tDVli6B|?0}fG=AA56NH7Y;0>HB{8H0+$FeD1Tc^OL#ga%j=l;$r?{ z%c6iziF;sUfb*J?2YiQcwUmmO!Mw)M5sNA=dqg1*kZwD*i=7eetJ%Fyzn)j0Cu!bQ zC)#>A_=Iq)rAt@K_1P~&57|dkGxQxCWHODjbxIE}W&P*a`vG#sr$>0bUfoBmEv#%wKawch`H!mU6?;MCTAkOYSg(G!%JbSJ*HdIwmM4j-|5^OkAB=-c zIIIeX@2VQ?wYiIFdA97fz1`Ba@e8I4qn)gtSbH3XvpKOz-tLPgHXZ8LF|im}DT?iP zl4i$p|MbW+e|LvtQIwzmzPQ-BaOYA%pyc7yy&KJUYzq#%4n-U>X}$C!gSR62(Z4fZ zgXYi4;llMtr+U@RBeiE-Cx7EOr9C$uc7+2!NhN+YyxJ&d&pjG?j}xYTt(p55tCTRS zK6EqXLQ3++Ws4kTt2e(pRnpq0wnVLejnUQPr`^Yvm-9ouSOzkEB?AiKlN$w*yli8o zyOHagHu_3pP`&x?d&?NdEuz$zQ$za(2%ST@U);w{lZ&T-(-v~~hTt#KM(-_;&pewx zDDXda&^CK!@ddG3;O5X(MD51X%$2D_gDLCfD?_t=zY(6Zx!7(L;!0)CWQlI3@Bh8{ zqyB9Jvij!VA80Q7&RS{UYb3CcYeqVDm`Wm_8&6Nz)P>#gOXYV!td z!)t+inf}Q8=9W8`5_J}`!R>#p C+cg6K diff --git a/mingw/lib/tk8.5/demos/images/teapot.ppm b/mingw/lib/tk8.5/demos/images/teapot.ppm deleted file mode 100644 index b8ab85f3a5..0000000000 --- a/mingw/lib/tk8.5/demos/images/teapot.ppm +++ /dev/null @@ -1,31 +0,0 @@ -P6 -256 256 -255 -\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À[7 eOLjQLmSMoTMnSMlRMhPL_9 \À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀnSMtVMzYN~[N~[N\N\O€\O€]O€]O€]O€]O€\O€\O}[NyYNtVM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀG-wXN}[N€]O„^O†_O†`O‡`Oˆ`Oˆ`OˆaO‰aO‰aO‰aO‰aO‰aO‰aOˆaOˆ`O†_Oƒ^O\N \À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀaMLyYN…_O‰aP‹bP�cPŽcPŽdPŽdP�dP�dP�dP�dP�dP�dP�dP�eP‘eP’eP’eP‘eP�dP�cP…_OpUM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀwXN…_O�dP“fP•gQ–hQ˜hQ˜iQ™iQ™iQšiQšiQšjQ›jQ›jQœjQœjQœjQœjQœjQ›jQœjQ™iQ“fP‡`O\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀNCJiQL‹bP—hQ�kQ¡mR¤nR¥oR¥oR¥oR¥oR¥oR¥oR¦oR¦oR¦pR¨pS©qSªqS«rS¬rS«rS©qS¤oRœjQ€]O\KK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀfOLrUM�cPŸlR©qS¯tS²uTµwT·xT¸xT¹yTºyT»zT»zU¼zU¼zU¼zU»zUºyT¸xT¶wT¯tS¡mR‰aOhPL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\Àa0 cNLqUM€\O”fQ¦pS²wVºzV¿|VÂ}VÄVÆVÇ€VÉ‚WÌ…[Õ�eæ w÷³‹êª…Ĉg§qT“fQ{ZNYIK9\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀO1{G#‘JkRMqUMtVN–iS¨v\·€d¹�bµzZ±vU°uT®sSªqS¤nRœjQ’eP„^OrUM�Hh>!T4\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀG-V5wE"~I#†M%�U+¥e7²l:°g2®b*­a(­`(©^(¥])¡^-›]1ŠS,qC$`9 R3G-\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@)J/i>!pA"tD"wF$yH&xH&tE$wE#yG%}M+ƒT4S5mE*Z7!K/B*;'\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À‰aO¦oR½{UÇ€VÏ…X<(F-a: e!j@#k@$h>"dµf-¨^(¡Z'šW&–T&œN>)F-J/b; g>#nD(jB&c y< u: r9 o7 l6 -j5 -h4 -g3 -5$D,K/b; h>"wM1tK.e="a<#cA,U8&E-<(9&.!a0 b1 c1     - -+3#@)46G<:HMCIXHK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀU*´vT¿~X¸{YÃk+›W&‰N$|> u: p8 k5 -f3 -a0 _/ ]. [- �I¡\*ª_(‘LkRMmSMmSMnSMnSMD,R3W5mA"|O0|P1j?"c!a: X/K%&4$+2F=;HPEJL&\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀŸlR¶xT­sTµd)ŠO$w; m6 -g3 -a0 Z- \/ T*Q(ŠHµm8kRMmSMnTMoTMpTMpUM15G15G05G04G04GpUMpTM5^9 d!Y0W+]. s=‡M$�dPŸlR\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀoTM¥oR�dPvE"V+K%A 99†F¤['qUMtVM99H:9H:9H:9H:9H:9H:9H:9H:9H:9H99H99H99H99H99H99H:9H;:H>;HB=HPDJ\JKmSMwXN|ZN°y[ᦆ֘uº{W¹yU¿€]Á„b­tU£nR—hQˆaO{ZNvWNtVMvXNwXNyYNzYN{ZN|ZN}[N}[N~[N~[N~[N~[N~[N~[N~[N}[N}[N{ZNzYNxXN…L$f3 -I$L&P(U*\. €J#\O›jQ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀžkR‰aOo9 L&C!:4f3 -�X&pUMuWMwXNxXN<:H<:H<:H<:H<;H<;H<;H<;H=;H=;H=;H=;H>;H>;H?HG@ILBIREJ[JKcNLjQL§pR±uTºzUÃ~VÈ�WË‚XÖŽcä�sÒŽe¼{V²vT¨pSžkR•gQŒbP†_O‚^O�]O€\O€\O€\O€\O€]O�]O�]O�]O�]O�]O�]O�]O�]O�]O�]O€\O€\O~\N}[N|ZNxXN•T%H$G#K%Q(W+zG#nTM˜iQ\À\À\À\À\À\À\À\À\À\À\À\ÀdOLrUMuWNwXNyYN{ZN}[N{ZNwXNsVM \À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\Àˆ`O�cPnA"M&@ 8F#m6 -›W&rVMvWNyYNzYN|ZN}[N}[N>HE?IG@IIAIKBIODJSFJWHK—hQŸlR§pR°b(¾i*Én+Ù|7Û|6Ïr,Íq+Êp-Ãl+»g)±b(®sS§pS lRšiQ•gQ�eP�cPŠaPˆaO‡`O‡`O†_O†_O…_O…_O…_O…_O…_O…_O…_O„_O„^O„^Oƒ^Oƒ^O‚]O�]O€\O~[N{ZN•T%F#B!Y,L&U*~I#„^O†`O\À\À\À\ÀcNLrUMzYN\O„^Oˆ`OŠbPŒcP�dP�eP’fP“fP“fQ“fQ”fQ‘eP�cP‰aP~[N\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À’fPsVM^/ C!7 ŽQ%tVMwXNzYN|ZN}[N\N\O€\O�]O�]O‚]O‚]OA=HB=HB=HB>HC>HC>ID?IE?IF@IG@IIAIKBIŒcP�dP’eP–gQšiQŸlR£nR¤\'´d)¿i*Æm+Îs/Ïs/Êo+Én+Ål*¾i*ºg)³c(ª_(ªqS¦oR¡mR�kQ™iQ•gQ“fP‘ePŽdP�cPŒbP‹bPŠbPŠaP‰aP‰aO‰aOˆaOˆ`Oˆ`O‡`O‡`O‡`O†`O†_O…_O„^Oƒ^O‚]O\O}[N›QD"?D"K%_/ kRL’fPODJSFJ†_OŠbPŽcP‘eP“fQ–gQ™iQœjQžkR lR¡mR£nR¤nR¥oR¥oR¥oR¤nR¢mRŸlRšiQ‘eP…_O\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀB+‘ePI#L&90y< šPxXN{ZN}[N\N€\O�]O‚]Oƒ^Oƒ^O„^O„_O…_O…_O†_O†`O‡`O‡`Oˆ`O‰aOŠaP‹bPŒbP�cPŽdP‘eP“fP•gQ˜hQšiQžkR¢mR¡Z'«_(¶e)½h)Âk*Çn,Çn,Æm*Æl*Áj*ºf)¶e)²c(«_(¦]'§pR¤nR¡mRžkR›jQ™iQ–gQ”gQ“fP‘eP�dP�dPŽdPŽcP�cPŒcPŒbP‹bP‹bP‹bPŠbPŠaP‰aP‰aO‰aOˆ`O‡`O†_O…_Oƒ^O�]Oª_(�@ B!I$B!N'w=‘eP`LKbNLeOL�kR mR£nR¥oR§pSªqS¬rS®sS¯tS°tS°tS±uS±uS°tS¯tS­sSªrS§pS¢mRšjQŒbPjQL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À‹bPpTME"5‡M$tVM{ZN}[N\O�]O‚^Oƒ^O„_O…_O†_O†`O‡`Oˆ`Oˆ`O‰aO‰aPŠaPŠbP‹bPŒbP�cPŽcP�dP�dP’eP“fP•gQ—hQ™iQ›jQ�kR lR¢mR¡Z'¬`(µd)ºg)ÇgÀj*Àj*¾i*¿i*»g)µd)²c(¯a(ª_(¤\'§pR¥oR¢nR mRžkRœjQšiQ˜iQ—hQ•gQ”gQ“fP’eP‘eP‘eP�dP�dP�dPŽcPŽcP�cP�cPŒcPŒbP‹bP‹bPŠbPŠaP‰aOˆ`O†_O„^O\NœQ@ <G#_LKŽcPlSMnTMpUMsVM°tS²uT³vTµwT¶wT¶xT¶xT¶wTµwT´vT²uT¯tS¬sSªqS§pS¤oR¢nRžkR˜hQ‹bPeOL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀwXN\NJ%01ŽJvWN}[N\O�]Oƒ^O…_O†_O†`O‡`Oˆ`O‰aO‰aPŠaPŠbP‹bPŒbPŒbP�cPŽcPŽdP�dP�dP‘eP’eP”fQ•gQ–gQ˜hQ™iQ›jQ�kQŸlR¡mRžY&¦]'­`(³c(·e)Àc¸\¸\¹\º]»]¶^®a(¬`(©^'£['¢['¥oR£nR¡mR lRžkRœkQ›jQšiQ˜iQ—hQ–gQ•gQ”gQ”fQ“fP’eP’eP‘eP‘eP�dP�dP�dP�dPŽdPŽcP�cP�cPŒbP‹bPŠaPˆaO†`O�]O˜OG#7F#uWMƒ^OwXNxXNzYN{ZN|ZN¹yT¸yT·xT´wT±uT­sS¨pS¡mRœjQ•gQ�dPŒbP‰aP‰aPŒbPŽcP‘eP�cP|ZN\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À[JKŠbP^/ 1 01|> wXN}[N�]Oƒ^O…_O‡`O‡`OˆaO‰aPŠaP‹bP‹bPŒbPŒcP�cPŽcPŽcP�dP�dP�dP‘eP’eP“fP”fQ•gQ–gQ—hQ˜hQ™iQ›jQœkQžkRŸlR mRžY&¦]'­`(±b(·[ÇgÉiÉhÅfÂdÃe¿c«Uª_(§]'£[' Z'¤nR£nR¡mR mRŸlRžkR�kQœjQšjQšiQ™iQ˜hQ—hQ–gQ•gQ•gQ”fQ”fQ“fP“fP’eP’eP‘eP‘eP�eP�dP�dP�dPŽcP�cPŒbPŠbPˆ`Oƒ^O‰D 4M&�dPnSM|[N|[O|[OzZOxXNªrS¢nR˜hQŽcPƒ^OvXNiQL^KKRFJMCJJAIKBISFJ\JKnSMxYN†_O€\OaMK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀB!qUMŠaPC!/00a0 uWN}[N‚]O…_O†`Oˆ`O‰aPŠaP‹bPŒbPŒcP�cPŽcPŽcP�dP�dP�dP‘eP‘eP’eP“fP“fQ”fQ•gQ–gQ—hQ˜hQ™iQ™iQ›jQœjQ�kRžlRŸlRœX&¢['¨^'¬`(´ZÂdÄfÈiÆgÂd¿c¿c¼a¸_©T¥\'£[' Z'ŸY&£nR¢mR¡mR lRŸlRžkR�kQœjQ›jQšjQšiQ™iQ˜hQ—hQ—hQ–hQ–gQ•gQ•gQ”gQ”fQ”fQ“fQ“fP’fP’eP‘eP‘eP�dP�dPŽcPŒbP‰aOƒ^Ox< :ŠaP�]Oj8sVMmSMfOL^KKUGJIAIQEJ?IeZY638*  B\À\À\À\À\À,  4 .G1!\TU¡ƒrsVM{ZN`MK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À[JKyYNŒbP/0ˆN$�]O…_Oˆ`O‹bPŒbP�cPŽcP�dP�dP�dP‘eP‘eP’eP’fP“fP“fQ”fQ”gQ•gQ–gQ–gQ—hQ—hQ˜hQ™iQ™iQšiQ›jQœjQœkQ�kRžkRŸlRœO¡Z'¥\'©^'­V¼a¾bÁeÆi!Ãf¾b»a¹`·_³]²\µZ¢[' Z'ŸY&œQ¡mR¡mR mR lRŸlRŸlRžkR�kR�kQœkQœjQ›jQ›jQšjQšiQšiQ™iQ™iQ˜iQ˜hQ˜hQ—hQ—hQ—hQ–hQ–gQ–gQ•gQ•gQ”fQ’fP�dP�cPšW&�dPŠaPrUM - B\À\À\À\À\À\À\À\À\À\À%7!!C*F#P) {dYœze»�p€\OgPL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSFJ`LKvWNŠaPm6 - X,uWM‚]O‡`OŠbP�cPŽdP�dP�dP‘eP’eP’fP“fP“fQ”fQ”gQ•gQ•gQ–gQ–gQ—hQ—hQ˜hQ˜iQ™iQ™iQšiQ›jQ›jQœjQœkQ�kQžkRžlRŸlR¢Z'¤\'§]'·_¹`¼a½bÁeÅi"Áe¼aº`·_¶_²]²\±\«Y¡Z' Z'¡Z'¡mR¡mR mR lR lRŸlRŸlRžlRžkRžkR�kR�kQœkQœjQœjQ›jQ›jQ›jQšjQšiQšiQšiQ™iQ™iQ™iQ˜iQ˜hQ˜hQ—hQ–gQ•gQ“fQ�dP†_Oq8 –gQˆ`OuWM”T%\À\À\À\À\À\À\À\À\À\À B B!!T,c5ƒF‚T3È›~Æ“qƒ^OfOL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀXHK_LKsVM‡`O�cP ’S%�]OŠbP�cP�dP‘eP’eP“fP“fQ”fQ”gQ•gQ•gQ–gQ–gQ—hQ—hQ—hQ˜hQ˜iQ™iQ™iQšiQšiQ›jQ›jQœjQœjQ�kQ�kRžkRžlRŸlRŸlR¥\'¦]'¨^'­Vº`»a½bÁfÄi"Àe»a¹`·_¶_³]±\±\¤R¢Z'¢Z'£['¡mR¡mR¡mR¡mR mR lR lRŸlRŸlRŸlRžlRžkRžkR�kR�kR�kQ�kQœjQœjQœjQœjQœjQ›jQ›jQ›jQ›jQšjQšiQ™iQ™iQ˜hQ–gQ‘eP§Sq8 ‰aO•gQ‡`OtVMœX&\À\À\À\À\À\À\À\À\À\À B B B l@!{A…L$›Y'½†a“fPˆaO]KK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀODJ[JKaMKqUM\O�cPƒ^OvE"‚]OŠaP�dP‘eP“fP”fQ•gQ•gQ–gQ–hQ—hQ—hQ˜hQ˜hQ˜iQ™iQ™iQ™iQšiQšjQ›jQ›jQœjQœjQœkQ�kQ�kRžkRžkRŸlRŸlRŸlR lR©^'©^'ª_(®W»a¼a¾cÂg Äi"¿e»a¹`·_¶_³^±\±\¤R£['£['§]'¢mR¢mR¡mR¡mR¡mR¡mR mR lR lR lR lRŸlRŸlRŸlRŸlRžlRžlRžkRžkRžkRžkR�kR�kR�kR�kR�kQ�kQ�kQœjQœjQšiQ˜hQ’ePšW&M&oTMšiQ‘eP…_OtVMmSMdOL\À\À\À\À\À\À\À\À\À B B B ‘J Z'ª_(œkQ™iQ‡`OSFJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀTFJ\JKcNLlRMzYN‡`O’ePzZN \Nˆ`O�dP“fQ•gQ–gQ—hQ˜hQ˜hQ™iQ™iQ™iQšiQšiQšiQ›jQ›jQ›jQœjQœjQœjQœkQ�kQ�kRžkRžkRžlRŸlRŸlRŸlR lR lR mR®a(­`(¬`(¶[½a½b¿dÃh!Äi"¿d»a¹`¸_¶_µ^²]³]¦S¤\'§]'«_(¢nR¢mR¢mR¢mR¢mR¢mR¢mR¡mR¡mR¡mR¡mR¡mR mR mR mR mR lR lR lR lR lR lR lR lR lRŸlRŸlR lRŸlRžkRœkQ™iQ�ePt: �kQ˜hQ�cP€]OtVMlSMa2 \À\À\À\À\À\À\À\À\À B B -$5 ¬`(¶e)£nRœjQƒ^OJAI\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀXIK^KKdNLhPLuWM‚]OŒbP”fQ�eP m6 -†`OŽcP“fQ—hQ˜hQ™iQšiQšjQ›jQ›jQ›jQœjQœjQœjQœkQ�kQ�kQ�kRžkRžkRžkRžlRŸlRŸlRŸlR lR lR lR¡mR¡mR¡mR¡mRºg)³c(²c(±b(­V¿cÂeÅi!Åi!Àd¼bº`¹`·_·_¶^¢Q§]'ª_(­`(¹f)£nR£nR£nR£nR£nR£nR£nR¢nR¢nR¢nR¢nR¢nR¢nR¢mR¢mR¢mR¢mR¢mR¢mR¢mR¢mR¢mR¢nR¢mR¢mR£nR¢mR¢mR¡mR mR�kR—hQˆGa0 ŠbP mRœjQ“fQ‰aP}[NrUMmSM…L$\À\À\À\À\À\À\À\À B B #C, 8&H.Z7 §pR›jQ{ZN\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀQEJ[JK`LKdNLhQLqUM{ZN…_OŽcP–gQ—hQ -‹bP‘eP–hQšiQ›jQœjQ�kQ�kQ�kRžkRžkRžlRžlRŸlRŸlRŸlRŸlRŸlR lR lR lR mR¡mR¡mR¡mR¡mR¡mR¢mR¢mR¢mR¢nR£nRÀj*ºg)·e)¶d)Âd°XÅgÅhÂe¿c½b½b¾bªU­`(®a(¯a(³c(¾i*¤oR¤oR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤oR¤oR¥oR¥oR¥oR¥oR¥oR¥oR¦oR¦oR¥oR¥oR¤nR¡mR›jQŽQ%Z- œjQ£nRŸlR—hQŽdP…_OuWMpTMnSMkRLa: \À\À\À\À\À\À\À B B&D2 @*S6#G@IPDJ˜hQmSM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀVGJ]KKbMLeOLiQLlRMvWN\OˆaO‘eP—hQœjQ•gQoTM•gQ™iQ�kQŸlRŸlR lR mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¢mR¢mR¢mR¢mR¢mR¢mR¢nR£nR£nR£nR£nR£nR¤nR¤nR¤nR¤nR¤nR¤nRÆl*Ãl+¾j+¹g)¸f)¶e)µd)¶e)¶e)·e)·e)¸f)¾i*Ìs0Ðs.¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦pR§pR§pR§pR§pR§pS§pS¨pS¨qS©qS©qS©qS¨pS©qS§pS¤nRŸlR‘I˜hQ§pR¥oR¡mRšiQ’ePŠaP€\OsVMpTMnTMlRM–X)\À\À\À\À\À\À\À B%C)D$;J/[8"LBITGJYIKWHK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀNCJYIK_LKcNLgPLjQLlRMpUMzYNƒ^O‹bP‘eP˜hQ�kQŸlR”fQ- —hQ›jQŸlR¢mR£nR£nR£nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤oR¤oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¦oR¦oR¦oR¦oR¦oR¦pR¦pR§pRàpßy-Ûw-Ûw-Þy.â{-ãu§pS§pS§pS§pS§pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨qS©qS©qS©qS©qS©qS©qS©qSªqSªrS«rS«rS¬rS¬rS¬rS¬rS¬sS«rSªqS¦oRšiQ™iQ©qSªqS§pR¡mRœjQ•gQ�cP„_O{ZNtVMpUMoTMmSMjQL_9 \À\À\À\À\À B "C(D#*A$[<)dI\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSFJ[JKaMKeOLhPLkRLmSMoTMuWM}[N…_O‹bP’eP˜hQžkR¢mR£nRžkR!-E�kR¡mR¤nR¥oR¦pR§pR§pS§pS§pS§pS§pS§pS§pS§pR§pS§pS§pS§pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨qS¨qS¨qS©qS©qS©qS©qS©qS©qS©qS©qS©qS©qS©qSªqSªqSªqSªqSªrS«rS«rS«rS«rS«rS«rS¬rS¬rS¬rS¬sS­sS®sS®sS¯tS¯tS¯tS¯tS°tS°uS°tS®sS«rS£nR¦oR®sS­sS«rS§pR¢mRœjQ–gQ�dPˆaO\OyYNuWMqUMoTMnSMkRLo8 \À\À\À\À\À B'D+E$(1 J/jH1NCJUGJYIKUGJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀXHK]KKbNLfOLiQLkRMmSMoTMqUMxXN\N†_OŒbP’fP˜hQ�kQ¡mR¥oR§pS¦pR˜hQ¢mR¥oR¨pSªqS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rSªrSªrSªrS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS¬rS¬rS¬rS¬rS¬rS¬rS¬rS¬sS¬sS­sS­sS­sS­sS­sS­sS®sS®sS®sS®sS®tS¯tS°tS°uS±uS±uT±uT²uT²uT²uT´vTµwT´vT³vT²uT¯tS¢mR¯tS±uT±uS®tS«rS§pR¢mR�kQ—hQ‘ePŠaPƒ^O\N{ZNvXNqUMpTMnSMlRM�P%\À\À\À\À B#C*E$.E- .!G$Y:%d<"SFJYIKZIKNCJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀPDJZIK_LKdNLgPLjQLlRMnSMpTMqUMuWMyYN€\O†`O�cP’fP—hQœjQ¡mR¥oR¨qS«rS«rSªrS mR«rS­sS¯tS°tS°tS°tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS®tS®sS®sS®sS®sS®sS®sS®sS®sS®sS®tS®tS®tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS°tS°tS°tS±uS±uS±uT²uT²vT³vT³vT´vT´vT´wTµwTµwTµwT·xT·xT¸xT¸yT¸yU·xU¥\'©qS³vTµwTµwT´vT±uT®tTªrS¦oR¡mR�kQ˜hQ’eP‹bP‡`Oƒ^O€\O|ZNxXNtVMpTMoTMmSMjQLh7\À\À\À B(D"-E*1F, 4#K)pL5PEJWHK[JKXHK:9H\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀUGJ\JKaMLeOLhPLkRLmSMoTMpUMrVMvWNyYN|ZN�]O‡`OŒcP‘eP—hQ›jQ lR¤nR§pSªqS­sS¯tS°uS¯tS­sS mR^/ ²vT³vT´vT´wTµwT´wT´vT³vT´vT´vT´vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT´vT´vT´vT´vT´wTµwTµwTµwTµwT¶wT¶wT¶xT·xT·xT·xT¸xT¸xT¸xT¹yTºyT»zU¼zU½{U½{V½|V•gQ¬rSµwT¸xT¹yU¹yU¹zV·yVµxV±vU­tT©qS¥oS mRœjQ—hQ’eP�cPŠbP‡`O„_O�]O}[NyYNuWMpUMoTMmSMkRL}H#\À\À &D -E(1F/!2#8 W7"iA&UGJ[JK\JKREJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀMCIXIK^KKcNLfOLiQLkRMmSMoTMqUMsVMwXNzYN}[N€\Oƒ^O‡`OŒbP‘eP–gQšjQžkR¢mR¥oR©qS¬rS¯tS±uS³vT´vTµwT´wT²uT­sS lR«_(¹yT¹yTºyTºyTºyTºyTºyT¹yT¹yT¸yT¸xT¸xT¸xT¸xT¸xT¸xT¸yT¸yT¸yT¸yT¹yT¹yT¹yT¹yT¹yT¹yT¹yTºyTºyTºyTºyTºzT»zT¼zU¼{U½{U¾{U¾|U¿|UÀ}VÁ~VÂWÀY™iQ«rSµwT¹yT¼zU½|V¿}XÁ€ZÂ�]Á�]¾€]»~[¶zY±wW¬tU¨qS¤nSŸlR›jQ–gQ“fP�ePŽcP‹bPˆ`O…_O‚]O~\NzZNvXNqUMoTMnSMlRMiQLg=!\À -!C+E'0F.4F7%8%U/lG.SFJZIK]KKZIKB=H\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀREJZJK`LKdNLgPLjQLlRMnSMpTMqUMtWMxXN{ZN~[N�]O„^O†`O‰aO‹bP�dP•gQ™iQœkQ lR¤nR§pSªrS­sS¯tT²uT´vT¶wT·xT¹yT¹yTºyTºyT¹yT¶xT´vT¬rS¢nR—hQ¿|U¿|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ}UÀ}UÁ}UÁ}UÁ}UÁ}UÂ}UÂ~UÃ~UÃ~VÃ~VÄVÅ€WÆ�X®a(ŸlRªrS´vT¸yT¼zU¾|UÁ~VÃXÆ‚[Ɇ_΋dÓ‘jÔ“mÔ“nБlÊŒhĆd½�_¶{[°vWªsU¦pS¢nRžkRšiQ˜hQ•gQ“fQ‘eP�dPŒbP‰aO†_Oƒ^O€\O|ZNxXNsVMpTMnTMmSMjQL€C B)D&/F-3F47G6%>" Y7 kA$YIK]KK^KKSFJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀVGJ\KKbMLeOLhPLkRLmSMnTMpTMrUMuWNyYN|ZN\N‚]O„_O‡`OŠaPŒbPŽcP�eP“fP—hQ›jQžlR¢nR¥oS©qT¬sT¯uU²vU´wV¶xV¸yV¹yUºzU»zU¼{U½{U¾{U¾|U¿|U¿|U¿|U¿|U¾{U½{U¼{U¼zU»zTºyT¹yT¸xTµwT³vT´vT´vT´vT´wT´wTµwT·xT¹yTºzT¼zU½{U¾{U¿|UÀ|UÂ}UÄVÅ€WÇ‚YÉ„\͈_ÑŒdÙ”lá�uç£|쩂ſt명æ¦�ÞŸ{Õ—sËŽl†d¹^³yZ­uW¨qU¤oSŸlRžkRœjQšiQ˜hQ–gQ”fQ‘eP�dP�cPŠaP‡`O„^O�]O}[NyYNuWMpTMoTMmSMkRLgPL&D#.E,3F46G;'<(D"iB(VGJ]KK`LK[JKB>H\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀNCJYIK^LKcNLfOLiQLkRMmSMoTMqUMsVMvXNzYN}[N€\O‚^O…_Oˆ`OŠaPŒcP�dP‘eP“fQ•gQ—hQ™iQ�kR mS¤oT¨rU¬tW°wY´zZ¸}\»]¾€^À�^Á‚^‚^Â�\Á€ZÁYÁXÁ~WÁ~WÂ~VÂ~VÂ~VÃ~VÃ~UÃ~UÄ~UÄ~UÄUÄUÅVÅVÅVÅVÆVÆ€VÆ€VÇ€WÇ�WÈ‚XɃZË…[͇^ЊaÓ�dØ’iÜ—nâ�tè£zî©�ó¯‡ø´�û¸‘üº“û¹“÷¶�ñ±Œé©…à¡~Ö˜vË�mÇf»€`´z[®vX©rU¥pT£oS¢nS lRžkRœkRšjQ˜iQ–hQ”fQ’eP�dP�cP‹bPˆ`O…_O‚]O~[NzYNvWNpTMoTMnSMkRMhQLo7 ,2F36G99HC+@ ]8 nA"\JK`ML_LKSFJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSFJ[JK`LKdNLgPLjQLlRMnSMpTMqUMtVMwXNzZN}[N€]Oƒ^O†_OˆaO‹bP�cP�dP‘eP“fQ•gQ—hQ™iQ›jRžlR mS£oU§rW¬vZ²{]¹€a¿…fÅŠjË�nГqÓ•sÕ–sÕ–rÕ–qÕ”oÓ’mÑ�jÏ�gÍŠcˈaɆ^È„\Ç‚[Æ�YÅ€XÅ€WÅWÅWÅVÅVÅWÅ€WÆ€WÇ�XÈ‚YɃ[Ê…\͇_ÏŠaÒ�eÕ‘hÙ•mÝ™qá�vä¡zç¤}꧀멃몄騃奀ߠ|Ù›wÓ•rÌ�mƉh¿„c¸~^²yZ®vX¬tWªsV¨qU¦pT¤oS¢nS mRžlRœkR›jQ™iQ—hQ•gQ“fP�ePŽcP‹bPˆaO…_O‚^O\N{ZNwXNsVMoTMnSMlRMiQL~I#26G99G?IQ2P+XHK_LLfQOcNLXIK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À©qSºyTÃ~VΈ`遲ޜv¾€]ªqS–LŽG|> g3 -S)?*%.—hQ—hQ‘eP‡`OuWM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSFJ[JK`LKdNLgPLjQLlRMnSMoTMqUMsVMwXNzYN}[N€\O‚^O…_O‡`OŠaPŒbPŽdP‘eP“fP•gQ—hQ˜iQšjRœkRŸlS¡nT¤pV§sX«vZ°z^¶b¼…gËmÊ’sјzØŸ€Þ¤…ã©Šè­�ê¯�ë°�ꯎ謋娇ं۞|Ö™wÑ“qÌŽlljgÃ…bÀ‚_½\»}Zº{X¹zW¸yV·yU·xU·xU·xT·xT·xU·xU·xU·yV·yV·yW¸zW¸{X¹{Y¹|Zº}[º}[º}\º~\¹~]¹~]¸}]·|\µ{\´z[²yZ°wY®vX¬tWªsV¨rU¦pT¤oS¢nS¡mRŸlR�kRœjQšiQ˜hQ–gQ”fQ’eP�dP�cPŠbP‡`O…_O‚]O~[NzZNvWNrUMoTMmSMlRMiQLeOLJAIJ(h>!]KKfQOgQN_LKD>I\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À™iQ°tS¸yT¼{UÂYÎŒeï­ˆô´�Õ—u¶|\ Z'™LˆD |> ’eP¦oR¨qS¦oR¡mRšjQ‘eP„^OhPL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀWHJ\KKaMLeOLhPLjQLlRMnSMpTMqUMtVMwXNzZN}[N€]Oƒ^O†_Oˆ`OŠbP�cP�dP‘eP“fQ•gQ—hQ™iQ›jR�kRŸmS¢nT¤qV¨sX¬w[±{_¶€c½†hÄŒnË’tÒ™zØŸ€Þ¥…㩉ç­�ꯎꯎê®�竊䧆ߣ�Ûž|Õ˜vГpËŽkljfÃ…bÀ‚_½\»}Yº{X¸zW¸yV·xU·xU·xT¶xT¶xT¶xU¶xU·xU·xU·yV·yV·zW¸zX¸{Y¹|Y¹|Z¹}[¹}[¹}\¹}\¸}\·}\¶|\µ{[³zZ²yZ°wY®vX¬tWªsV¨rU¦pT¤oS£nS¡mRŸlRžkRœjQšiQ˜hQ–gQ”fQ’eP�dPŽcP‹bPˆ`O…_O‚^O\N{ZNwXNsVMoTMnSMlRMiQLfOLJ(V.]KKePNkUQcNLQEJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À‚]O¡mR©qS¬rS°tS³vTµwT·xUº{WĆbÒ“qךxÊ�o -�K«rS´vT¶wT´vT²uT®sSªqS¤nR�kQ•gQˆ`OuWNY,\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀNCJYIK^KKbNLfOLhQLkRLmSMoTMpUMrUMuWMxXN{ZN~[N�]O„^O†_O‰aO‹bP�cP�dP‘eP“fQ•gQ—hQ™iQ›jR�kRŸmS¢oT¥qV¨tX­w[±|_·�d½†iÄŒnË“tÒ™zØŸ€Þ¥…㩉笌鮎ꮎ魌檉㧅ߢ€Ú�{Õ—uÏ’pË�jƈfÂ…b¿�^½\»|Y¹{X¸zV·yV·xU·xU¶xT¶xT¶xT¶xU¶xU¶xU¶xU·yV·yV·yW¸zW¸{X¸{Y¸|Z¹|Z¹|[¹}[¸}\¸}\·|\¶|[µ{[³zZ±xY°wX®vX¬tWªsV¨rU¦pT¥oS£nS¡mRŸlRžkRœjQšjQ˜iQ—hQ”gQ’fP�dPŽcP‹bP‰aO†_Oƒ^O€\O|ZNxXNtVMoTMnSMlRMjQLgPLzG#\JKcOMoXUgPMZIK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À’fP”gQ•gQ—hQ™iQ�kQ lR¤nR§pRªqS¬sS¯tS:"r<zYN­sS¹yT¾|UÁ~WÆ„^ËŠeË‹gƈe¾‚aµz[­tV¦pS¢mR�kQ–gQŠbPzYNkRL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀRFJZJK`LKcNLfPLiQLkRMmSMoTMqUMrVMvWNyYN|ZN\N�]O„^O‡`O‰aO‹bP�cP�dP’eP”fQ–gQ—hQ™iQ›jR�lR mS¢oU¥qV©tY­x\²|`¸�d¾‡iÅ�oË“uÒ™{ÙŸ€Þ¥…㩉笌é®�é®�謋婈⦄ޡÙœzÔ—tÏ‘oÊŒjƈe„a¿�^½~[»|Y¹{X¸zV·yV·xU¶xU¶xT¶xT¶xT¶xT¶xU¶xU¶xU¶xV·yV·yW·zW·zX¸{Y¸{Y¸|Z¸|Z¸|[¸|[·|[·|[¶{[´z[³yZ±xY°wX®vW¬tWªsV¨rU¦pT¥oS£nS¡mRŸlRžkRœkRšjQ™iQ—hQ•gQ“fP‘ePŽdPŒbP‰aP†`Oƒ^O€]O}[NyYNuWNqUMnSMlSMkRLhPLcNLbNLpYVlUP`LK>;H\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À›jQ‡`O{ZN©^'¨^'­`(·e)½h)Ãk*Êo+±b(£nRºyTÃ~UÇ�XÒ�dãŸwò°‰ñ°‹è©…ÝŸ}Ô˜vÈ�m¾„eµ}_®x[°y\®x[«tW§qT¡mRœjQ–gQ‹bP}[NlRM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀVGJ\JKaMKdNLgPLjQLlRMnSMpTMqUMsVMvXNzYN|[N\O‚]O…_O‡`O‰aPŒbPŽcP�dP’eP”fQ–gQ˜hQšiQœjRžlS mS£oU¦rW©uY®x\³|`¸�d¾‡jÅ�oÌ“uÒš{Ù €Þ¥…㩉欋è­�譌竊婇᥃ݠ~Ø›yÓ–tΑoÊŒjňe„a¿�^¼~[º|Y¹{W¸zV·yV·xU¶xU¶xT¶xT¶xT¶xT¶xU¶xU¶xU¶xU¶xV·yV·yW·zX·zX¸{Y¸{Z¸{Z·|Z·|[·|[¶{[µ{[´zZ³yZ±xY¯wX®uW¬tVªsV¨rU¦pT¥oS£nS¡mR lRžkRœkR›jQ™iQ—hQ•gQ“fQ‘eP�dPŒcPŠaP‡`O„^O�]O~[NzYNvWNrUMnSMmSMkRLiQLeOLoXUu]XdOLKBI\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À:9H\N–hQ¸}\¯uU­sT¯tT¯tS¨qS¤nR£nR¢nRŸlR›jQšiQ˜hQ—hQ–gQ”fQ’eP‘eP—hQœkR mS¥pUªtX«uY¨sW¦qU mS›jQ•gQƒB’S%jQL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀLBIXHK^KKbMLeOLhPLjRLlSMnSMpTMqUMtVMwXNzYN}[N€\O‚^O…_O‡`OŠaPŒbPŽcP�eP’fP”fQ–gQ˜hQšiRœkRžlS nT£pU¦rWªuY®y]³}`¹‚e¿ˆjÅŽpÌ”vÓš{Ù �Þ¤…⨉櫋笌笋櫊䨆ंܟ~ךxÒ•sÎ�nÉŒiŇeÁ„a¾€^¼~[º|Y¹{W¸yV·yV·xU¶xU¶xT¶wT¶wT¶wT¶xT¶xU¶xU¶xU¶xV¶yV¶yW·zW·zX·zY·{Y·{Z·{Z·{Z¶{Z¶{ZµzZ³yZ²yY±xY¯vX­uW¬tVªsU¨rU¦pT¥oS£nS¡mR lRžlR�kR›jQ™iQ—hQ•gQ“fQ‘eP�dP�cPŠaP‡`O…_O‚]O\N{ZNwXNsVMnSMmSMkRMiQLfOL_LKhQMUGJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À (6BFP>=DKHMqjk€trwf`~kc„ndŠqe�se�te¯Ž{�w`¡v[\N†_O�cP“fP˜iQœjRŸlS£oT¦qV¥qV£oTžlR™iQº^‡`O�Q%hPL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀQEJZIK_LKcNLfOLiQLkRLmSMoTMpUMrUMuWMxXN{ZN~[N€]Oƒ^O…_Oˆ`OŠaPŒcPŽdP‘eP“fP”gQ–hQ˜iQšjRœkRžlS¡nT£pU¦rWªuZ®y]³}a¹‚e¿ˆkÆŽpÌ”vÓš{ÙŸ€Þ¤…⨈媊櫋櫊婈⦅ߣ�Ûž}ÖšxÑ•rÍ�mÈ‹ićdÁƒa¾€]¼~[º|Y¹zW¸yV·yU¶xU¶xU¶wT¶wT¶wT¶wT¶wT¶xU¶xU¶xU¶xU¶xV¶yV¶yW¶zX·zX·zY¶zY¶{Y¶{Z¶{ZµzZ´zZ³yY²xY°wX¯vX­uW«tVªsU¨rU¦pT¥oS£nS¡mS mRžlR�kR›jQ™iQ˜hQ–gQ”fQ‘eP�dP�cP‹bPˆ`O…_O‚]O\O|ZNxXNtVMoTMmSMlRMjQLgPLbML[JK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À%5 (6$/79CEEKjgkrc_›…{‘uf±�{Ÿw_º�q�]Oˆ`OŽcP”fQ˜hQ›jRžlR¡nT¢oT¡nT�kR˜hQŽdP¦]'ŽQ%\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀUGJ[JK`MKdNLgPLiQLkRMmSMoTMqUMrUMuWNxXN{ZN~[N�]Oƒ^O†_Oˆ`OŠbP�cP�dP£['µd)•gQ—hQ˜iQšjRœkRžlS¡nT£pU§rWªvZ¯y]´~aºƒfÀˆkÆŽpÌ”vÓš{ØŸ€Ý¤„ᧇ䩉媊媉䨇᥄ޡ€Ú�|Õ˜wДrÌ�mÈŠhĆdÀƒ`¾€]»}[º|Y¸zW·yV·xU¶xU¶xU¶wTµwTµwTµwTµwTµwUµwUµxUµxUµxV¶xV¶yW¶yW¶yX¶zX¶zY¶zYµzYµzY´zY´yY²yY±xY°wX®vW­uW«tVªsU¨qU¦pT¥oS£nS¢mS mRžlR�kR›jQ™iQ˜hQ–gQ”fQ’eP�dP�cP‹bPˆaO†_Oƒ^O€\O|[NxYNtWMpUMmSMlRMjQLgPLcNLA;=\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À#*6+.8;:AHEJmgjd\]‡pe«�}œxc w^»�pƒ^OŠaP‘eP–gQšiQžlR mS¢nT mS›jR•gQ»h*œX&ˆM$\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀC+WHJ]KKaMLdOLgPLjQLlRMnSMoTMqUMrVMvWNyYN|ZN\N�]O„^O†_OˆaO‹bP�cPžY&«_(³c(•gQ—hQ™iQšjRœkRŸlS¡nT¤pV§sX«vZ¯z^´~bºƒfÀ‰kÆŽpÌ”vÒš{ØŸ€Ý£„ই㩉䩉䩈⧆ःܠØœ{Ô—vÏ“qËŽlljgÆcÀ‚`½]»}Z¹{Y¸zW·yV¶xU¶xU¶wUµwTµwTµwTµwTµwTµwTµwUµwUµxUµxVµxVµxVµyWµyWµyXµyXµyYµzY´yY´yY³yY²xY±wX°wX®vW­uV«tVªrU¨qU¦pT¥oS£nS¢mS mRžlR�kR›jQ™iQ˜hQ–gQ”fQ’eP�dPŽcP‹bP‰aO†_Oƒ^O€\O}[NyYNuWNqUMmSMlRMjQLhPLdNL\1\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À+.775;ICFphhŠztŠre¯�}Ÿya¢vZ�]OŠaP‘eP–gQšiQ�kRŸlS¡nTžlS™iQÌq.¯b*“S%zG#\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀMCJXHK^KKbMLeOLhPLjRLlSMnSMpTMqUMsVMvWNyYN|ZN\N‚]O„^O†`O‰aO‹bP—U&¥\'¯a(»g)Ìr/—hQ™iQ›jR�kRŸmS¡nT¤pV§sX«v[¯z^´~bºƒfÀ‰kÆŽpÌ”vÒ™{מÜ£ƒà¦†â¨ˆã¨ˆã¨‡á¦…Þ£‚ÛŸ~×›yÓ–uÎ’pÊ�kƉgÂ…c¿‚_½]»}Z¹{X¸zW·yV¶xU¶xUµwTµwTµwTµwTµwTµwTµwTµwUµwUµwUµxUµxVµxVµxWµyWµyWµyXµyX´yX´yY³yY³xX²xX°wX¯vW®uW¬tV«sV©rU¨qT¦pT¥oS£nS¡mR mRžlR�kR›jQšiQ˜hQ–gQ”fQ’eP�dPŽcPŒbP‰aO†`Oƒ^O€]O}[NzYNvWNrUMmSMlRMjQLhQLeOL_LK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À,)/ZTVXON„uq‡od®�}Ÿyb»�s�]OŠaP�eP•gQšiQ�kRžlRŸlSœkR–hQ»g*¤\(ŽQ%`LK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À B B_LKcNLfOLiQLkRLmSMoTMpTMrUMtVMwXNzYN}[N\O‚]O„_O‡`O‰aO�Q%ŸY&©^'±b(¾i*Õ{8—hQ™iQ›jR�kRŸmS¡nT¤qV§sX«v[°z^µ~bºƒfÀ‰kÆŽpÌ”vÒ™{מÛ¢ƒß¥…ᧇ⧇ᦆऄݢ�Úž}ÖšxÒ•tÍ‘oÉŒjňfÂ…b¿�_¼\º}Z¹{X·zW·yV¶xU¶xUµwTµwTµwTµwTµwTµwTµwTµwT´wU´wU´wU´xVµxVµxVµxW´xW´yW´yX´yX³xX³xX²xX±wX°wW¯vW­uW¬tV«sU©rU§qT¦pT¤oS£nS¡mR mRžlR�kR›jQšiQ˜hQ–gQ”gQ’fP�dPŽcPŒbP‰aP‡`O„^O�]O~[N{ZNvXNrVMnSMlRMjRLhQLeOLaML+O�+O�\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀHFLXQRTJH~pm‚la¬Ž}Ÿzc»�t¤tT‰aP�dP•gQšiQœjRžlRžlS›jRÖ|:´e*˜V&ˆN$\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À B B`LKdNLgPLiQLkRMmSMoTMpUMrUMtVMwXNzYN}[N€\O‚]O…_O‡`O‰aPšW&£['«_(´d)Âl,݃@Òt.™iQ›jR�kRŸmS¡oU¤qV¨sX«w[°z^µbºƒgÀ‰kÆŽpÌ”uÑ™zÖ�~Ú¡‚Þ¤„ॆআॅޣ‚Ü Ø�{Õ™wÑ”sÌ�nÈŒjňfÁ„b¾�_¼~\º|Z¸{X·yW¶yV¶xUµwUµwTµwTµwTµwT´wT´wT´wT´wT´wU´wU´wU´wU´wV´xV´xV´xW´xW³xW³xW³xX²xX±wX°wW¯vW®uW­uV¬tVªsU©rU§qT¦pT¤oS£nS¡mR lRžlR�kR›jQšiQ˜hQ–hQ”gQ’fP�dPŽcPŒbPŠaP‡`O„^O�]O~[N{ZNwXNsVMoTMlRMjRLiQLfOLbML+O�+O‚+O‚+O‚\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À6./fZXeVRHAIZIKiQLuWM¤tU‰aO�dP–gQšjQ�kRžlR�kR˜iQÄn/¬b,‘R%rC"\À\À\À\À\À\À\À\À\À\À\À\À"Fx"Fx!Fx!Fx B B BdNLgPLjQLlRMmSMoTMqUMrUMtWMwXNzZN}[N€\O‚^O…_O‡`O“S%�X&¥\'®a(·g+Ês2Ó{9Àj*™iQ›jR�kSŸmS¢oU¤qV¨sX«w[°z^µbº„gÀ‰kÆŽpË“uИyÕœ}Ù �Ü¢ƒÞ¤„ߤ„Þ£ƒÝ¡�ÚŸ~×›zÓ—vÏ“rË�mÇ‹ićeÀƒa¾€^»~\¹|Z¸zX·yW¶xVµxUµwUµwTµwT´wT´wT´wT´wT´wT´wT´wT´wU´wU´wU´wU´wV³wV³xV³xW³xW²wW²wW±wW±wW°vW¯vW®uV¬tV«sUªsU¨rT§qT¦pT¤oS£nS¡mR lRžlR�kR›jQšiQ˜hQ–gQ”gQ’fP�ePŽcPŒbPŠaP‡`O„_O�]O~\N{ZNxXNsVMoTMlRMjRLiQLfPLbNL +O‚+O‚+P‚+P‚+P‚\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@89dWT@IIAI\JKlRMyYN„^O�cP”gQ™iQ�kRžlRžkR™iRÍt3±d-’S%I#\À\À\À:^‘:^‘:^‘:^‘:^�:^�:^�:^�:^�"Fx"Fx B B B BeOLhPLjRLlSMnSMpTMqUMrVMuWMxXN{ZN~[N€]Oƒ^O…_O“S%›W&¢['©^(¹k2½i+Ó{:•gQ—hQ™iQ›jR�kSŸmT¢oU¤qV¨tY¬w[°{_µbºƒf¿ˆkÄ�oÊ’tÏ–xÓš|×�~Ù €Û¡�Û¡�Û €Ùž~×›{Ô˜wДsÌ�oÉŒkʼngÂ…c¿‚`¼]º}[¸{Y·zX¶yVµxVµwU´wU´wT´wT´vT´vT´vT´vT³vT³vT³vT³vT³vU³vU³vU³wU²wU²wV²wV²wV±wV±vV°vV°vV¯uV®uV­tV¬tUªsU©rU¨qT§pT¥pS¤oS¢nS¡mR lRžlR�kR›jQ™iQ˜hQ–gQ”gQ’fP�ePŽdPŒbPŠaPˆ`O…_O‚]O\N|ZNxYNtWMpTMlRMjRLiQLgPLcNL_LK+P‚+P‚+P‚,P‚,P‚,P‚,P‚,P‚Nr¤\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À]QNl\VG@IMCI_LKoTM|ZN†`O�dP–gQšjQ�kRžlRœkR—hQºh*¤^,ŒP%X3:_‘:_‘:_‘:_‘:_‘:_‘:_‘:_‘:^‘:^‘:^‘:^‘"Fx B B B BfOLiQLkRLmSMnTMpTMqUMrVMuWNxYN{ZN~[N€]Oƒ^OŽP%—U&�X&£['¬`)½n4Ãn/Àj*•gQ—hQ™iQ›jR�kSŸmT¢oU¤qW¨tY«w[°z^´~b¹ƒf¿ˆjÄŒoÉ‘sΕwÒ™{Õœ}ØžÙŸ€ÚŸ€Ùž~ל|ÕšyÒ—vÏ“rË�nÇ‹jĈfÁ„c¾�`¼]¹}[¸{Y·zW¶xVµxU´wU´wT´wT´vT´vT³vT³vT³vT³vT³vT³vT³vT³vT²vU²vU²vU²vU²vU±vV±vV±vV°vV°vV¯uV®uV­uV¬tU«sUªrU©rT¨qT¦pT¥oS£oS¢nS¡mRŸlRžkRœkR›jQ™iQ˜hQ–gQ”gQ“fP�ePŽdPŒbPŠaPˆ`O…_O‚]O\N|ZNyYNuWMpUMlRMjQLiQLgPLdNL_LK,P‚,P‚,P‚,P‚,P‚Nr¤Nr¤Nr¤Nr¤Nr¥Nr¥\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀaSOD>IJAIQEJbNLrUM~[NˆaO‘eP—hQœjQžkRŸlR›jRÌs0²e,“T&ƒK$;_‘;_‘;_‘;_‘;_‘;_‘;_‘:_‘:_‘:_‘:_‘:_‘:_‘ B B B BgPLiQLkRLmSMoTMpTMqUMsVMuWNxYN{ZN~[N�]O‡M$“S%™V&ŸY&¥\'±e-¹j/Ñz:”fQ•gQ—hQ™iR›jR�kSŸmT¢oU¤qW¨tY«w[¯z^´~b¹ƒf¾‡jÃŒnÈ�rÍ”vјyÔ›|Ö�~מ~Øž~×�}Õ›{Ó˜xЕtÍ’qÊŽmÆŠiÇeÀ„b½�_»~\¹|Z·{Y¶yWµxVµxU´wU´wT´vT³vT³vT³vT³vT³vT³vT³vT³vT²vT²vT²vT²vU²vU²vU±vU±vU±vU°vV°vV¯uV®uV®uV­tU¬sU«sUªrU¨qT§qT¦pS¥oS£nS¢nR¡mRŸlRžkRœkR›jQ™iQ˜hQ–gQ”gQ’fP�ePŽdPŒbPŠaPˆ`O…_O‚]O\O|ZNyYNuWMqUMlSMjQLhQLfPLdNL_LK,P‚,P‚Nr¤Nr¤Nr¤Nr¤Nr¥Nr¥Nr¥Ns¥Ns¥Ns¥Ns¥\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀdUOG@IMCITFJeOLtWM€]O‹bP“fP™iQ�kRŸlR�kR™iQ¾j,©c/�P%[JK;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘ B B B BgPLiQLkRMmSMoTMpTMqUMsVMvWNyYN{ZN~[N|H#ŽQ%•T%›W& Z'¦]'ºm5¸f*Ív5”fQ•gQ—hQ™iR›jR�kSŸmT¡oU¤qW§sY«v[¯z^³~b¸‚e½‡i‹nÇ�qË“uÏ–xÒ™zÔ›|Öœ}Öœ|Õ›{Ô™yÑ–vÏ“sÌ�oÈ�lʼnh†e¿ƒa¼€_º~\¸|Z·zX¶yWµxV´wU´wU³vT³vT³vT³vT³vT³vT³vT²vT²vT²vT²vT²vT²vT±vT±vU±vU±vU°uU°uU°uU¯uU®uU®tU­tU¬tU«sUªrU©rT¨qT§pT¥pS¤oS£nS¢mR mRŸlRžkRœjR›jQ™iQ—hQ–gQ”fQ’fP�ePŽcPŒbPŠaPˆ`O…_O‚^O\O|ZNyYNuWNqUMmSMjQLhQLfPLdNL`LKNr¤Nr¤Nr¥Nr¥Nr¥Ns¥Ns¥Ns¥Ns¥Os¥Os¥Os¥Os¥Os¥Os¥\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À2#TB3REJVGJ`LKpTM}[N‰aO’ePšiQžkR lRžlR˜hQ·e)¢^.�P%^8 #Gy#Gy#Gy#Gy#Gy#Gy#Gy#Gy * B B B B BjQLlRMnSMoTMpUMrUMsVMxF#‡M$ŽQ%’S%–U&šW&žY&¢['ªa+¿s;¹g+�dP‘eP“fQ”gQ–hQ˜iQšjRœkSžlS nU£pV¦rX©uZ¬x]°{_´~b¸‚e¼…iÀ‰kÃŒnÆŽpÈ�rÊ‘sË’sË‘rÊ�qÉ�oÇ�mÅ‹kÈhÀ…e¾ƒb¼€`º~^¸|[¶{ZµyX´xW³wV²vU²vU²vT±uT±uT±uT±uT±uT±uT±uT±uT°uT°uT°tT°tT¯tT¯tT¯tT¯tT®tT®tT­sT­sT¬sT¬sT«rTªrT©rT©qT¨qS§pS¦pS¥oS£nS¢nR¡mR lRŸlR�kRœjQ›jQ™iQ˜hQ–gQ•gQ“fP‘eP�dP�cP‹bP‰aO‡`O„^O‚]O\N|ZNxXNuWMqUMmSMhPLgPLeOLcNL`LKZIK,Pƒ,Pƒ,QƒOs¦Os¦Ot¦Ot¦Ot¦Ot¦Pt¦Pt¦Pt¦Pt¦Pt¦-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀvšÍvšÍv›Ív›Ív›Ív›Ív›Íw›Íw›Í=a“=a“=a“#Gy#Gy#Gy#Gy#Gy#Gy#Gy#GymYPODJUGJXIKeOLtWM‚]O�cP•gQœjQ lR mR�kRÈp.´g0”T&ˆN$]8 #Gy#Gy#Gy#Gy#Gy#Gy#Gy * B B B B BjQLlRMnSMoTMpUMrUMv>„L$ŒP%‘R%•T%˜V&œX& Z'¤\'°f0¹m5Äq3�dP‘eP“fQ”gQ–gQ˜hQ™jR›kS�lS nT¢pV¥rX¨tZ«w\¯z_³}a·�dº„g¾‡jÁŠlÄŒnÆŽpÇ�qÈ�qÈ�pÇŽoÆ�mÅ‹kÉiÁ‡g¿„d½‚aº_¸}]·|[µzY´yX³xW³wV²vU²vU±uT±uT±uT±uT±uT±uT°uS°uS°tS°tS°tS¯tS¯tT¯tT¯tT®tT®tT®sT­sT­sT¬sT¬sT«rTªrTªrT©qT¨qS§pS¦pS¥oS¤oS£nS¢mR¡mRŸlRžlR�kRœjQšjQ™iQ—hQ–gQ”fQ’fP‘eP�dP�cP‹bP‰aO†`O„^O�]O~\N{ZNxXNuWMqUMiQLgPLfOLeOLbNL_LKZIK,Qƒ,Qƒ,Qƒ,Qƒ,QƒOt¦Pt¦Pt¦Pt¦Pt¦Pt¦-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\Àv›Ív›Ív›Ív›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Í=a“=a“=a“=a“=a“#Gz#Gz#Gz#Gz#Gz#Gz#GzgUOS=2RFJWHJ[JKlRMzYN†`O�eP˜iQžkR mRŸlR™iQ¼h*°h4‘R%ˆN$^9 [JK#Gy#Gy#Gy#Gy#Gy * B B B B BjQLlRMnSMoTMpUMI#†L$‹O$�Q%“S%—U&šW&�X&¡Z'¦](·l5´f,Èt5�dP�eP’fP”fQ–gQ—hQ™iR›kR�lSŸmT¢oV¤qW§tY«v[®y^±|aµc¸‚f¼…h¿ˆkÁŠlÃŒnÅ�nÅ�oÅ�nÅŒmÄ‹k‰iÁ‡g¿…e½ƒc»€`¹~^·|\¶{Z´yY³xW²wV²vU±vU±uT±uT±uT°uT°uT°tS°tS°tS°tS°tS¯tS¯tS¯tS¯tS®tS®tS®sS­sT­sT­sT¬sT¬rT«rTªrTªrS©qS¨qS§pS¦pS¦oS¥oS¤nS¢nR¡mR mRŸlRžkR�kR›jQšiQ˜iQ—hQ•gQ”fQ’eP�eP�dP�cPŠbPˆ`O†_Oƒ^O�]O~[N{ZNxXNtVMqUMhPLgPLfOLdNLbML_LKbE6,Qƒ,Qƒ,Qƒ,Qƒ-Qƒ-Qƒ-QƒPt¦-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Q„-Q„-Q„\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@d–w›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Îw›Îw›Î=a”=a”=a”=a”=a”=a”=a“#Hz#Gz#Gz#Gz#Gz#Gz#GzmYPPDJUGJYIKbMLqUM\NŠbP”fQ›jQŸlR¡mRžlRËp,µe+ \+�R%ˆN$b; ]8 [7 XHKO+N1L/L/L/K/K/ eb”>b”>b”>b”>b”>b”>b”>b”=b”=b”=b”=b”=b”=b”=b”=b”YEUGJYIK_LKnSM|ZNˆ`O’ePšiQŸlR¡mR mR™iQºg*´j4šW'‘R%ŽQ%h>!g=!f=!db”>b”>b”>b”>b”>b”>b”$Hz$Hz$Hz$Hz$Hz>b”>b”>b”>b”>b”gVOS=2RFJWHK[JKeOLsVM€]OŒbP•gQœjQ lR¡mRžlRÌr/¹g*²h2–U&“S%‘R%�Q%ŽQ%ŒP%£['¨]'¬`(°b(´d)¸f)»g)¾i*Áj*I#¡Z'¡Z' Z' Z'¡Z'£['¤['¥\'¦]'ª_)±d,³d)Äq3‹bP�cP�dP‘eP’fQ”fQ–gQ—hQ™iR›kS�lSŸmU¡oV¤qW¦sY©u[¬x]¯z^±|`´~b¶€d¸‚eºƒf»„f»„f¼„f»ƒe»‚dº�b¹€a·~_¶}^µ{\´zZ³yY²wX±wW°vV°uU¯uU¯tT¯tT¯tT®tS®tS®tS®sS®sS®sS®sS®sS­sS­sS­sS­sS¬sS¬rS¬rS«rS«rSªrSªqS©qS©qS¨pS§pS¦pS¦oS¥oS¤oR£nR¢nR¡mR mRŸlRžkR�kRœjQšjQ™iQ˜hQ–hQ•gQ“fQ’eP�dPŽcPŒcPŠbPˆ`O†_O„^O�]O\N|ZNyYNuWNrUMnSMjQLdNLcNLaMK_LK[JK`D6Pt¦Pt¦Pt§Pt§Pt§Pu§Pu§Pu§Pu§Qu§Qu§Qu§Qu§Qu§Qu§-Q„-Q„-Q„-R„-R„-R„-R„-R„-R„-R„-R„-R„.R„.R„Rv¨Rv¨Rv¨~¢Ô~¢Ô~¢Ô~¢Ô\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@e—@e—@e—@e—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—xœÏxœÏxœÏx�Ïx�Ïx�Ïx�Ïy�Ïy�Ï>b•>b”>b”$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz>b”>b”>b”>b”>b”YDb”>b”>b”>b”Q@:R<2fL@WHJZJKaMKoTM|ZNˆ`O‘eP™iQŸlR¡mR¡mRœjRÇo-»i-´h0«`)§]'¨]'¬`(°b(´d)¸f)¼h)Àj*Ãk*Æm*Én+Ìp+Ïq+Òr,§]'§]'§]'¨^'ª_(«_(¬`(­`(¯b)²c)ºi.ˆ`OŠaPŒbPŽcP�dP‘eP“fQ”gQ–hQ˜iRšjR›kS�lTŸnU¢oV¤qW¦sY©uZ«w\­y]°{_²|`³}aµ~b¶b¶b¶b¶a¶~`µ}_µ|^´{]³z[²yZ±xY°wX¯vW¯uV®uU®tU®tT­tT­sT­sS­sS­sS­sS­sS­sS­sS­sS¬sS¬rS¬rS¬rS«rS«rS«rSªrSªqS©qS©qS¨qS¨pS§pS¦pS¦oS¥oR¤oR¤nR£nR¢mR¡mR lRŸlRžkR�kRœjQšjQ™iQ˜hQ–hQ•gQ“fQ’eP�dP�dP�cP‹bP‰aO‡`O…_O‚]O\O}[NzYNwXNtVMpTMlRMhPLcNLaMK_LK]KKbR]C5Pu§Pu§Pu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu¨Qu¨Qu¨Qv¨Qv¨Qv¨-R„-R„.R„.R„.R„Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAe—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae˜Ae˜Ae˜Ae˜y�Ïy�Ïy�ÏAf˜Af˜Af˜$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz>b•>b•>b”>b”WD3TFJXHK[JKfOLsVM€]O‹bP”gQœjQ lR¡mR mRœkRÅm,½i,ºj/²d+±c)²c(¶e)ºf)¾h*Áj*Ål*Én+Ëo+Îq+Ñr+Ós,Õt,ƒK$ª^(ª_(«_(¬`(®a(¯a)°b)³d*¶f+¾m1‡`O‰aP‹bP�cP�dP�eP’fQ”fQ•gQ—hR™iR›kS�lTŸmT¡oV£pW¥rX§tY©v[¬w\®y]¯z^±{_²|`³}`´}`´}`´}_´|^³{^³{\²z[±yZ°xY°wX¯vW®uV®tU­tU­tT­sT­sT­sS­sS¬sS¬sS¬sS¬rS¬rS¬rS¬rS¬rS«rS«rS«rS«rSªrSªqSªqS©qS©qS¨qS¨pS§pS¦pS¦oS¥oR¤oR¤nR£nR¢mR¡mR mRŸlRžlR�kRœjQ›jQšiQ˜iQ—hQ–gQ”fQ“fP‘eP�dPŽcPŒbPŠaPˆ`O†_O„^O�]O\N|ZNyYNvWNsVMoTMkRLgPLbML`LK^KK\JK~aR[B5Pu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu¨Qu¨Qu¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©Rv©£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAe—Ae—Ae—Ae—Ae—Ae—Ae˜Ae˜Ae˜Ae˜Ae˜Ae˜Ae˜Af˜Af˜Af˜y�ÐAf˜Af˜Af˜Af˜Af˜Bf˜$H{$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz>c•>c•>b•>b•O?:[E|aRZA5-QƒQu§Qu§Qu§Qu§Qu§Qu§Qu§Qu¨Qu¨Qu¨Qv¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨Rv¨.R„.R„.R„.R„Rv¨Rv¨Rv©Rv©Rv©Rw©£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAe˜Ae˜Ae˜Ae˜Ae˜Ae˜Ae˜Af˜Af˜Af˜Af˜Af˜yžÐyžÐyžÐzžÐzžÐzžÐBf˜Bf˜Bf˜Bf˜Bf˜$H{$H{$H{$H{$H{$H{$H{$H{$H{$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz>c•>c•>c•>c•VC^C6W@5-Q„-Q„Qu§Qu§Qu§Qu§Qu¨Qu¨Qv¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨Rv¨.R„.R„.R„.R„.R„.R„.R„.R„.R„Rv©Rw©Rw©Rw©¤Ö¤Ö¤Ö¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö¤Ö¤Ö¤Ö\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAf˜Af˜Af˜Af˜Af˜Af˜Af˜Af˜zžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÐBf˜Bf˜Bf˜Bf˜$I{$I{$I{$H{$H{$H{$H{$H{$H{$H{$H{$H{$H{$H{$H{$H{$Hz$Hz$Hz$Hz$Hz YE\C6T>4-Q„-Q„-Q„-R„Qu¨Qu¨Qv¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„Rw©Sw©€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤ÖEi›Ei›Ei›\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAf˜Af˜Bf˜Bf˜Bf˜zžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÑzžÑzžÑzŸÑzŸÑzŸÑzŸÑBf˜Bf˜Bf˜$I{$I{$I{$I{$I{$I{$I{$I{$I{$I{$I{$H{$H{$H{$H{?c•?c•?c•?c•$H{$H{$H{SB;R<2zbVUGJXIK[JK[JKuWN€\OŠaP’fP™iQŸlR¡mR£nS£nS¥pTà€9Þ9Õw2Öw0Öv/Öv.Ùx/Üz0Þz0á|1ã~2æ€3è�5éƒ6ë…8ë…8ºm4¼o7¾q8Äu;Ãs9Ãs8ºj0‚]O„^O†_Oˆ`OŠaPŒbP�cP�dP‘eP’fQ”fQ•gQ—hR™iRšjSœkS�lTŸnU¡oV¢pV¤qW¦rX§sY¨tY©uYªuZ«uZ«vZ«vY«uY«uX«uX«tW«tV«sVªsUªsUªrTªrTªrTªrSªqSªqSªqSªqSªqS©qS©qS©qS©qS©qS©qS©qS©qS¨qS¨pS¨pS§pS§pR§pR¦oR¦oR¥oR¥oR¤nR£nR£nR¢mR¡mR mR lRŸlRžkR�kRœjQ›jQšiQ™iQ—hQ–gQ•gQ”fQ’eP‘eP�dP�cPŒbPŠaPˆ`O†_O„^O‚]O\O}[NzYNwXNtVMqUMnSMiQLeOL`LK]KKmP?kN?|aSZA5P<4-R„-R„-R„-R„-R„-R„Qv¨Rv¨Rv¨Rv¨Rv¨.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×Ei›Ei›Ei›Ei›Ei›Ei›Ei›\À\À\À\À\À\À\À\À\À\À\À\ÀBf˜zžÐzžÐzžÐzžÐzžÐzžÐzžÑzžÑzžÑzŸÑzŸÑzŸÑzŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑBf™Bf™Bf™%I{$I{$I{$I{$I{$I{$I{$I{$I{$I{$I{?c–?c–?c–?c–?c–?c•?c•?c•?c•$H{$H{$H{jXP^H=}dXUGJXHKZIKkRLwXN‚]O‹bP”fQšiQžkR mR£nS¥pT¨qU¨rUç…;ç†>ì‰?è†<å‚9ê†;î‰=ðŠ=ðŠ>ôŽAø‘Dü•Hÿ˜Kù’E¿r:Àt;Àt;Át<Ãt:½n4´f,�]Oƒ^O…_O‡`O‰aO‹bPŒcPŽcP�dP‘eP“fQ”gQ–hQ˜iR™jR›kSœlSžmTŸnU¡oV¢pV¤qW¥rW¦rX§sX¨tX©tX©tX©tX©tXªtWªsW©sV©sV©rU©rU©rT©qT©qT©qS©qS©qS©qS©qS©qS©qS©qS©qS¨qS¨qS¨pS¨pS¨pS¨pS§pS§pS§pR¦pR¦oR¦oR¥oR¥oR¤nR¤nR£nR¢nR¢mR¡mR mR lRŸlRžkR�kRœjQ›jQšiQ™iQ˜hQ–hQ•gQ”fQ’fP‘eP�dPŽcPŒcP‹bP‰aO‡`O…_Oƒ^O�]O~[N{ZNyYNvWNsVMpTMlRMgPLcNL†gUƒeUlO?~bT{`SW@5-R„-R„-R„-R„-R„-R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R….R…Ei›Ei›Ei›€¥×€¥×€¥×€¥×€¥×€¥×€¥×€¥×€¥×€¥×€¥×€¥×Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›\À\À\À\À\À\À\À\À\À\ÀzžÑzžÑzžÑzžÑzŸÑzŸÑzŸÑzŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÒBg™Bg™Bg™%I{%I{%I{%I{%I{%I{%I{@d–?d–?d–?d–?d–?d–?d–?d–?d–?c–?c–?c–?c–$I{$I{L=:WD`KA-R„-R„-R„.R„.R„.R„.R„Rv¨Rv¨Rv¨Rv¨.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R….R….R….R…EiœEiœEiœEiœEiœEiœ�¥×�¥×�¥×�¥×�¥×�¥×�¥×EiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœ\À\À\À\À\À\À\À\ÀzŸÑzŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÒ{ŸÒ{ŸÒ{ŸÒ{ Ò{ Ò{ Ò{ Ò| ÒCg™Cg™%I{%I{%I{@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–?d–?d–?d–?d–?d–?d–$I{$I{dUPYEXG@-R„.R„.R„.R„Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©.R„.R„.R„.R„.R„.R„.R„.R„.R….R….R….R….R….R….S…EiœEiœEiœEjœEjœEjœEjœEjœ�¥×�¥×�¥×EjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEiœEiœEiœ\À\À\À\À\À\À{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÒ{ŸÒ{ŸÒ{ Ò{ Ò{ Ò{ Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| ÒCg™@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–?d–$I{$I{RA;P<3zcXnVI�uh™~pdNLpUMÁ”w¬zZ«vS‘eP–gQœjQžlR¡mR¤oS§pT­uV¯vW±xY¶|\¼€_ÆdƉgÈŠhÊŒiÌŽkÎ�lÿ�Rñ�F¶k4²g1¯d-­b+ª_(¢Z'}[N€\O‚]O„^O†_Oˆ`O‰aP‹bP�cPŽcP�dP‘eQ’fQ”gQ•gQ—hR˜iR™jR›kSœkS�lTžmT nT¡nU¡oU¢oU£pU¤pU¤pU¤pU¥pU¥pT¥pT¥pT¥pT¥pS¥pS¥oS¦oS¦oS¦oS¦oS¦oS¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¥oR¥oR¥oR¥oR¤oR¤nR¤nR£nR£nR¢nR¢mR¡mR¡mR lRŸlRŸlRžkR�kRœkQœjQ›jQšiQ™iQ˜hQ—hQ•gQ”gQ“fP’eP�eP�dP�cPŒbPŠbP‰aO‡`O…_Oƒ^O�]O~\N|[NzYNwXNtVMpUM—pY”oXzWBuUB…gVlP@jO@|bUx`TcMB3!.R„Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©Rv©Rv©Rw©Rw©Rw©.R„.R„.R„.R„.R….R….R….R….R….S….S….S…EjœEjœEjœEjœEjœEjœEjœEjœEjœ�¦Ø�¦ØEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœ\À\À\À\ÀBg™{ŸÒ{ŸÒ{ŸÒ{ Ò{ Ò{ Ò{ Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| ÒCg™Cg™Cg™Cg™|¡Ó@d—@d—@d—@d—@d—@d—@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–%I{;0/SB;R=4fODpXL‘xkš€r˜vbº“zÀ”x«{[Ã�l�dP•gQ™iQ›jQŸlR£nR¦pS¨qTªrT¬tU°wWµ{Z¸}\¸|\¸}\¹~]»]å}+Ý~6­d.ªa+¨_)§^(¤\'zYN|ZN~\N€]Oƒ^O„_O†_Oˆ`OŠaP‹bP�cPŽdP�dP‘eQ“fQ”gQ•gQ—hR˜iR™jRšjSœkS�lSžlTŸmT mT nT¡nT¢nT¢oT£oT£oT£oT£oT¤oS¤oS¤oS¤oS¤oS¤oS¤oS¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¤oR¤oR¤nR¤nR¤nR£nR£nR£nR¢mR¢mR¡mR¡mR lR lRŸlRžlRžkR�kQœjQ›jQšjQ™iQ™iQ˜hQ—hQ•gQ”gQ“fQ’eP�eP�dPŽcPŒbPŠbP‰aO‡`O…_Oƒ^O�]O\N}[NzZNxXNuWMrUM™rZ–pY|XCxVCsTBmQAkOA~cVzaU`I>\IARv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©Rv©Rv©Rw©Rw©Rw©Sw©Sw©Sw©Sw©.R….R….R….R….R….S….S….S….S…FjœFjœFjœFjœFjœFjœFjœFjœ‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦ØFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœ\À\ÀBg™{ Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ó| ÓCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™}¡Ó@e—@e—@e—@e—@e—@e—@d—@d—@d—@d—@d—@d—@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–%I{<1/J82^I@gQFqYN‘xl™€s—vc¢{d¿”yª{\«wUÄ�i‘eP•gQ˜hQ�kQ mR¢mR¤nR¥oS§pSªrT¬tU¬tU¬tU¬tU­tU®tUÒt.ƒL&¤](¢['¡Z'žY&xYN{ZN}[N\N�]Oƒ^O…_O‡`OˆaOŠaPŒbP�cP�dP�eP‘eQ“fQ”gQ•gQ—hR˜iR™iRšjR›kSœkS�lSžlSŸmSŸmS mS nS¡nS¡nS¢nS¢nS¢nS¢nS£nS£nS£nR£nR£nR£nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR£nR£nR£nR£nR£nR¢nR¢mR¢mR¡mR¡mR¡mR lR lRŸlRžlRžkR�kRœkQœjQ›jQšiQ™iQ˜iQ—hQ–hQ•gQ”fQ“fP’eP�eP�dPŽcPŒbP‹bP‰aO‡`O†_O„^O‚]O\O}[N{ZNxYNvWNsVM›s[˜rZ~ZD�nYŒkYqSBkPAiOA|cVbK?\G>NB?Rv¨Rv¨Rv¨Rv¨Rv¨Rv©Rv©Rv©Rw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©.S….S….S….S….S….S…FjœFjœFjœFjœFjœFjœ‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦ØFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœCg™Cg™| Ò| Ò| Ò| Ò| Ò| Ó| Ó| Ó| Ó|¡Ó|¡ÓCg™Cg™Cg™Cg™Cg™Cg™Cg™CgšCgšCgšCgšCgš}¡ÓAe—Ae—Ae—@e—@e—@e—@e—@e—@e—@e—@e—@d—@d—@d—@d—@d—@d—@d–@d–@d–@d–%I{@d–@d–<1/H72\I@ePGpYN�xm˜€t–vc¡{e¾”zÁ“u‘p«wU¬uQ‘eP•gQ™iQšjQœjQžlR¡mR£nR¤nR¤oR¤oR¤oR¤oR¤oRÇgb;  Z'žY&›W&“S%vXNyYN{ZN~[N€\O‚]Oƒ^O…_O‡`O‰aOŠaPŒbP�cP�dP�dP‘eQ“fQ”gQ•gQ–hQ˜iR™iRšjR›jR›kSœkS�lSžlSžlSŸlSŸmS mS mS¡mS¡mS¡mR¡mR¢mR¢mR¢mR¢mR¢nR¢nR¢nR£nR£nR£nR£nR£nR¢nR¢nR¢mR¢mR¢mR¢mR¡mR¡mR¡mR mR lRŸlRŸlRžlRžkR�kR�kQœjQ›jQ›jQšiQ™iQ˜hQ—hQ–gQ•gQ”fQ“fP‘eP�dP�dP�cPŒbP‹bP‰aO‡`O†_O„^O‚]O€\O}[N{ZNyYNvXNtVM�u\„]E€[E’oZŽmZŠkYnRBjOB}cVdL@`I?XGARv¨Rv¨Rv¨Rv¨Rv©Rv©Rw©Rw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwª.S….S….S….S…/S…FjœFjœFjœFjœ‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦ÙFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœ‚¦Ù‚¦ÙCg™Cg™| Ó| Ó|¡Ó|¡Ó|¡Ó|¡Ó|¡ÓCg™Cg™Cg™Cg™CgšCgšCgšCgšCgšCgšCgšCgšChšChšChšChšChš}¢ÔAe—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—@e—@e—@e—@e—@e—@e—@e—@d—%I{%I{%I{%I{%I{@d–@d–<10F61o]Vye]„oeŽxmœ‚u”udŸ{e¥}d¨|aÀ’tÁ�pÃ�l¬uQ�dP’eP”fQ–gQ˜iQ›jQœjQœjQœjQœjQœkQœkQ�kQ_9 œX&™V&•T%rUMuWMwXNzYN|ZN~[N€\O‚]O„^O…_O‡`O‰aOŠbPŒbP�cPŽdP�dP‘eQ’fQ”fQ•gQ–hQ—hR˜iR™iRšjR›jRœkRœkR�kR�lRžlRžlRŸlRŸlRŸlR lR mR mR mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR mR lR lRŸlRŸlRŸlRžkRžkR�kR�kQœjQ›jQ›jQšiQ™iQ˜iQ—hQ–hQ•gQ”gQ“fQ’fP‘eP�dP�dP�cPŒbPŠbP‰aO‡`O†_O„^O‚]O€\O~[N{ZNyYNwXNtVMrUM†^F‚]F”q\�o[ŒlZqTD€fX}dWeMAbK@O=6NB@Rv¨Rv©Rv©Rv©Rw©Rw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwªSwªSxªSxªSxª/S…/S…FjœFjœFjœƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§ÙFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœƒ§Ùƒ§Ùƒ§Ùƒ§ÙCg™Cg™Cg™}¡Ó}¡Ó}¡ÓCg™CgšCgšCgšCgšCgšCgšCgšChšChšChšChšChšChšChšChšChšChšDhšDhšDhš~¢ÔAe—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—%I{%I{%I{%I{%I{%I{%I{%I{%I{@d—@d—E:9D61m\Vwe]lXOuaX„k_¨‹z±�|¡|e¥|c§|`©z]ªyXÂ�nÃ�lÄŽkÄŽi�dP’eP“fP“fP“fP’fP“fP“fP“fP[7 —U&”T%�P%pTMsVMuWMxXNzYN|ZN~[N€\O‚]O„^O†_O‡`O‰aOŠbPŒbP�cPŽdP�dP‘eP’eQ“fQ”gQ•gQ–hQ—hQ˜iR™iRšjR›jR›jRœkRœkR�kR�kRžkRžlRžlRŸlRŸlRŸlRŸlR lR lR lR lR lR lR lR lR lR lR lR lR lRŸlRŸlRŸlRŸlRžkRžkR�kR�kQœkQœjQ›jQ›jQšiQ™iQ˜iQ˜hQ—hQ–gQ•gQ”fQ“fP’eP‘eP�dPŽdP�cPŒbPŠbP‰aO‡`O…_O„^O‚]O€\O~[N|ZNyYNwXNuWMrUM‡`G„^G–r]|ZFxXFtVE�gY~eY{cXbLA[H?REA.R„.R„Rv©Rw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwªSxªSxªSxªSxªTxªTxªTxªƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§ÙFj�Fj�Fj�Fj�Fj�Fj�Fj�Fj�Fj�Fj�Fj�ƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§ÙCg™Cgš}¡Ó}¡ÓCgšCgšCgšCgšChšChšChšChšChšChšChšChšChšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhš~¢ÔAe—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—%I|%I|%I|%I{%I{%I{%I{%I{%I{%I{%I{%I{%I{%I{@e—@e—B99B51k[Vud]iWPr_Wye] †yªŒ|²�}¡|e¤|c¾’w¨{^¨z\©yZÁ�p«xW«wU«wU«wU«wUÃŽlÃŽlÂŽlÂŽlkD(’S%ŒP%nSMoTMqUMsVMvWNxXNzYN|ZN~[N€\O‚]O„^O†_O‡`O‰aOŠaP‹bP�cPŽcP�dP�eP’eQ“fQ”fQ•gQ–gQ–hQ—hQ˜iQ™iR™iRšjR›jR›jRœjRœkRœkR�kR�kR�kRžkRžkRžlRžlRŸlRŸlRŸlRŸlRŸlRŸlRŸlRŸlRŸlRžlRžkRžkRžkR�kR�kQ�kQœkQœjQ›jQ›jQšjQšiQ™iQ˜iQ˜hQ—hQ–gQ•gQ”gQ“fQ’fP‘eP�eP�dPŽcP�cP‹bPŠaPˆaO‡`O…_Oƒ^O‚]O€\O~[N|ZNyYNwXNuWMrUMŸw_œv_˜t^~\GzYGvWF†j[fZ|dYybX\I@VGB5/2.R„.R„.R„.R„Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwªSwªSxªSxªSxªSxªTxªTxªTxªTxªFk�Fk�Fk�Fk�ƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§ÚFk�Fk�Fk�Fk�Fk�Fk�Fk�Fk�ƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Ú}¡Ó}¡Ó}¡Ô}¡ÔChšChšChšChšChšChšChšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhš~£ÕAe˜Ae˜Ae˜Ae˜Ae˜%J|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I{%I{%I{%I{%I{%I{@e—@e—<68?31gYVpa\bRMjYTq`Z€j`¡‡z«�}²‘}¶’|¸’{º’z»’x¼’w§z^¿‘t¿‘s¿‘s¿�s¿�r¿�r¾�r¾�r°h2‹O$„L$mSMnSMnTMoTMtVMvWNxXNzYN|ZN~[N€\O‚]O„^O…_O‡`OˆaOŠaP‹bPŒcPŽcP�dP�dP‘eP’eQ“fQ”fQ•gQ–gQ–hQ—hQ˜hQ˜iQ™iQšiQšiQšjQ›jQ›jQœjQœjQœkQœkQ�kQ�kR�kR�kR�kR�kR�kR�kR�kR�kR�kQ�kQ�kQœkQœjQœjQœjQ›jQ›jQšjQšiQ™iQ™iQ˜hQ—hQ—hQ–gQ•gQ•gQ”fQ“fP’eP‘eP�dP�dP�cPŒbP‹bP‰aPˆ`O†`O…_Oƒ^O�]O€\O~[N|ZNyYNwXNtWM£z` y`�w`šu_€]I|[HwXGˆl\ƒi[}eZycYr_WjZU;23.R„.R„.R„.R„.R….R….R…Sw©Sw©Sw©Sw©Sw©SwªSwªSwªSxªSxªSxªTxªTxªTxªTxª/S…/S…Gk�Gk�Gk�Gk�Gk�Gk�Gk�ƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨ÚGk�Gk�Gk�ƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Ú}¢Ô}¢Ô}¢Ô}¢Ô~¢ÔDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhš£ÕAf˜%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I{%I{Ae—Ae—Ae—?89H=:?YUY`QGfVLudXjeitlm{po|qp}rp~rpsqsq€tqŒr_=1+xJ)’o[~[F€\G‚^H„_I…`IkRLlRMnSMpTMrVMuWMwXNyYN{ZN}[N~\N€\O‚]Oƒ^O„_O†_O‡`Oˆ`O‰aPŠbP‹bPŒcP�cPŽcP�dP�dP�eP‘eP’eP’fP“fQ“fQ”fQ”gQ•gQ•gQ•gQ–gQ–gQ–gQ–hQ–hQ—hQ—hQ—hQ—hQ—hQ–hQ–hQ–gQ–gQ–gQ•gQ•gQ•gQ”fQ”fQ“fQ“fP’eP‘eP‘eP�dP�dPŽdPŽcP�cPŒbP‹bPŠaP‰aO‡`O†_O…_Oƒ^O‚]O€\O~\N}[N{ZNyYNwXNuWM“iO�hOŽgO‹eOžze›yd—wd”tc�rbtYKjTIaOG[KFj]Y^UU?;@.R….R….S….S….S….S….S….S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…GkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkž…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©ÛGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlž…©Û…©Û…©Û…©Û…©Û…©Û£Õ£Õ£Õ£Õ£Õ£Õ£Õ£ÕDh›Dh›Dh›Dh›Di›Di›Di›Di›Di›¤Ö¤Ö¤Ö¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤ÖEi›Ei›&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|%J|%J|%J|%J|%J|%J|Af˜Ae˜Ae˜%J|%J|%J|%I|%I|%I|%I|#-#%.()1MEAQIEUMI]SL]TM=4.1+(=.#6,&5( 1%"ŒlY�n[“p\•r]�]Hƒ_I…`JœwažybkRLmSMpTMrUMtVMvWNxXNzYN|ZN}[N\N€]O‚]Oƒ^O…_O†_O‡`OˆaO‰aPŠaP‹bPŒbP�cPŽcPŽdP�dP�dP�eP‘eP‘eP’eP’fP“fP“fQ“fQ”fQ”fQ”fQ”gQ”gQ•gQ•gQ•gQ•gQ•gQ”gQ”fQ”fQ”fQ”fQ“fQ“fP“fP’eP’eP‘eP‘eP�dP�dP�dPŽcP�cPŒcPŒbP‹bPŠaP‰aO‡`O†_O…_Oƒ^O‚]O�]O\O}[N|ZNzYNxXNvWN¬‚gª�g¨€g�hPŒfPŸ|fœzf˜xe”vd�scsYLiTK_NHYKFh\Z]UV=;@.R….S….S….S….S….S….S…/S…/S…/S…/S…/S…/S…/S…TxªTxªTxªTxªTxª/S…/S…/S…/S…GlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlž…©Û…©Û…©Û…©Û…©Û…©Û…©ÛGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlž…©Û…©Û…©Û…©Û£Õ£Õ£Õ£Õ£Õ£Õ£Ö£ÖDi›Di›Di›Di›Di›Di›¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤×€¤×€¤×€¤×Ei›&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|Bf˜Bf˜Af˜Af˜Af˜Af˜Af˜%J|%J|%J|%J|%J|%J|%I|%I|%I|, +,!.! "`E6†iYŒlZ�o\“q]•s^�^J™va›wb�ycŸzd {e¤}foTMqUMsVMuWNwXNyYN{ZN|ZN~[N\O�]O‚]Oƒ^O…_O†_O‡`Oˆ`O‰aOŠaP‹bPŒbPŒcP�cPŽcPŽdP�dP�dP�dP�eP‘eP‘eP‘eP’eP’eP’eP’eP’fP’fP’fP“fP’fP’fP’fP’eP’eP’eP‘eP‘eP‘eP�eP�dP�dP�dPŽdPŽcP�cPŒcPŒbP‹bPŠaP‰aOˆ`O‡`O†_O…_Oƒ^O‚]O�]O\O~[N|[N{ZNyYNwXN®ƒi¬ƒiª‚i¨�i¦€hŒhR‰fQ†dQ‚bP•wfx]Oˆpdkbtd_m`]OEDG?A;:@.S….S….S….S….S…/S…/S…/S…/S…/S…/S…/S…/S…TxªTxªTxªTxªTxªTx«Tx«Tx«Ty«/S†GlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž…ªÜ…ªÜ…ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž…ªÜ…ªÜ£Ö£Ö£Ö£Ö¤Ö¤Ö¤Ö¤Ö¤ÖEi›€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤×€¤×€¤×€¤×€¥×€¥×€¥×Bg™Bg™Bg™Bg™Bg™&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Af˜Af˜%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|%I|%I|%I|%I| +,YA5jPBpSD‹l[�o]’q^–t`‚_Kšwbœycžze {f¡}g¤h¨�i”lSrVMtWMvWNxXNyYN{ZN|[N~[N\O�]O‚]Oƒ^O„_O…_O†`O‡`Oˆ`O‰aPŠaP‹bP‹bPŒbP�cP�cPŽcPŽcP�dP�dP�dP�dP�dP�dP�dP�dP�eP�eP�eP�eP�eP�dP�dP�dP�dP�dP�dP�dPŽcPŽcP�cP�cPŒbP‹bP‹bPŠaP‰aOˆ`O‡`O†`O…_O„^Oƒ^O‚]O€]O\O~[N|[N{ZNyYNxXN°…j®„j¬„jªƒj¨‚j¦€jŒhSŠgS†eRƒcR|`QŒsf…oe}jcrd`k_]LCDC=@,,3(4F(4F.S….S…/S…/S…/S…/S…/S…/S…/S…TxªTxªTxªTxªTxªTxªTx«Tx«Tx«Ty«Ty«Ty«…ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžChšChš¤Ö€¤Ö€¤Ö€¤Ö€¤ÖEi›Ei›Ei›€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤×€¤×€¤×€¤×Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Bg™Bg™&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜&J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|%I|%I|%I|#5H71O;3V?4iOBoSDsVF�o]{[I^Kƒ`L…bN‡dOŸ{f }g¢~h¥€j’kT•mU˜oVšqW�rWwXNxXNzYN{ZN}[N~[N\O€]O‚]Oƒ^O„^O…_O…_O†`O‡`Oˆ`O‰aO‰aPŠaP‹bP‹bPŒbPŒbPŒcP�cP�cP�cPŽcPŽcPŽcPŽcPŽcPŽcPŽcPŽcPŽcPŽcP�cP�cP�cPŒcPŒbP‹bP‹bP‹bPŠaP‰aP‰aOˆ`O‡`O†_O…_O„_O„^Oƒ^O�]O€\O\N~[N|ZN{ZNyYN›oTšoT™oT—nT¬„lªƒl¨‚l�jUŒiTŠhT†fT€cS�vi‰rg�nfyidqdah^^HBD?<@)+3OZkMYk(5F(5F(5F/S…/S…/S…/S…/S…TxªTxªTxªTxªTxªTxªTx«Tx«Ty«Ty«Ty«Ty«Uy«†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžDhšDhšDhšChš&K}&K}&K}&K}&K}&K}ChšChšCgšCgšCgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™&J|&J|&J|&J|&J|&J|Bg™Bg™Bg™Bf™Bf™Bf™Bf™Bf™Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜&J|&J|&J|&J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|A99N?;L:2T>4gNBlRD‡k\‹n^z[J~^L�aN…cO‡dP‰fQŠgRŒhT�jU’lV•nW˜pXšrX�sY¶‹q¸�qºŽr¼�r½�r¿�s©z[©z[ªz[«{[¬{[¬{ZÅ“rÅ’qÅ’qÅ’pÅ’pÅ‘o­yV­xV¬xU¬wT¬wTŠaPŠbP‹bP‹bP‹bP‹bP‹bP‹bP‹bP‹bP‹bP‹bP‹bP‹bPŠaPŠaPŠaP‰aP‰aOˆaOˆ`O‡`O‡`O†_O…_O„^Oƒ^O‚^O‚]O�]O€\O~\N}[N|ZNzYN�pTœpU›pUšpU˜oV—oV•nV“mV‘lV�kVŒjVˆhVƒfU~cU�uj†qh~mfugdkaad\^E@D98?$(2minffm^blV^lMYk(5F(5F/S…TxªTxªTxªTxªTxªTxªTxªTx«Tx«Ty«Ty«Ty«Uy«Uy«†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸ'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}&K}ChšChšChšChšChšChšChšCgšCgšCgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™&J|Cg™Cg™Cg™Cg™Cg™Bg™Bg™Bg™Bg™Bg™Bg™Bf™Bf™Bf™Bf™Bf™Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜&J|&J|&J|&J|&J|&J|&J|%J|%J|%J|%J|%J|%J|%J|Ae˜Ae˜;GY<68I=:I82Q=4XA6~fZ„j\‰m^�p`|]L€`NƒcP†eQˆgS¡j£€l¦‚m©„n•oX˜qYšrZ�t[¶Œr¸�sº�s¼�t½�t¾‘t¨z]©{]ª{]«{\«{\¬{\¬{[Ä“sÄ“rÄ’rÄ’qÄ’pÄ‘p¬yWÄ�oÃ�nÃ�mÃ�lÂŽlÂŽkÁ�kˆaOˆaOˆaOˆaOˆaOˆaOˆaOˆ`Oˆ`O‡`O‡`O‡`O†`O†_O…_O…_O„_O„^Oƒ^O‚]O�]O€]O\O~\N}[N|ZN¶‰l¶‰lµˆmœqV›qVšqV™pW˜pW–oW¬…nª…n§„n¤‚nŸ€n›~n€eW‘xlŠtk‚piykfodcf_`JDG@>C*,5$1MYk�tr~tstmolinadmX_lNZkMZkTxªTxªTxªTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†«Ý†«Ý†«Ý†«ÝHlŸHlŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸ†«Ý†«Ý†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸ'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšChšChšChšChšChšChšChšCgšCgšCgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™&J}&J}&J}Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Bg™Bg™Bg™Bg™Bg™Bg™Bf™Bf™Bf™Bf™Bf˜Bf˜Bf˜Bf˜Bf˜&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|Af˜Af˜Af˜Af˜;GY;GY;GY1'!D:9N?;N;3]I?zdY€h[†l^‹oa�sc“ue€bQ„dR‡fT l¢�m¦ƒn©…o«‡p®ˆq±Šr³‹sžv] w]¹�u»�u¼‘u¾‘u¿’v¨{^©{^ª|^«|]«|]«{\¬{\¬{[¬{[¬zZ«zZ«yY«yX«xXÂ�oÂ�nÂ�nÁŽmÁŽm¨uT¨uS§tS§tS§tR¦sR¦sQ…_O…_O…_O„^O„^Oƒ^Oƒ^O‚^O‚]O�]O€]O¢rS¡rS¡rS¸‰k·‰l·‰l¶‰m¶‰mµ‰m´‰n³‰n›qWšqX™qX®‡o­‡o«†p¨…p¤ƒp �pœp—}o{cXv`Vp]U}nishfhaba\_DAF::B$)4MYkMYkMYkŒtc�tq\QPPIKFDI;>H/8GMZkTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«†«Ý†«Ý†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝHmŸHmŸHmŸImŸImŸImŸImŸImŸ‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸ'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšDhšDhšDhšDhšDhšChšChšChšChšChšChšChšChšCgšCgš&K}&K}&K}&K}&J}&J}Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Bg™Bg™Bg™Bg™Bg™Bg™Bf™Bf™Bf™Bf™Bf˜Bf˜&J|&J|&J|&J|&J|&J|Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜;HY;HY;GY;GY;GY;GY;,#I=:H82YF?^JA|e[‚j]ˆn`Œqc�te”wg—yiš|k�~l €n£‚o¤ƒp¦…q­‰s°Šs›u]žv^Ÿw^¡x_£y_¤z_¥z_¦{_¿“w¿“wÀ“vÁ“vÁ“v“u“u“tª{\ª{\ªz[ªzZªyZªyY©xXÁ�pÀ�o¨wW¨vV§vV§uU¦uU¦uT¥tT½Œl¼‹k¼‹k¼‹k»‹k»‹kºŠk¢sT¢rT¢rT¡rT¡rT¡rU rU rV·Šn¶ŠnµŠnµŠo´Šo³‰o²‰p±‰p™qY®ˆq¬‡qª†r§…r¤„r ‚rœ€q€gZ{dYvaXp^WiYU`TRVNOb]aEBH<+[NL^SQWNNKFJ?AI2:HTx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝImŸImŸImŸImŸ‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«ÞImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸ'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšChš&K}&K}&K}&K}&K}&K}&K}&K}&K}&K}CgšCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Bg™Bg™Bg™Bg™Bg™Bg™Bf™Bf™Bf™&J|&J|Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜;HY;HY;HY;HY;HY;HY;GY3("D::B41RB=YG@wcZ}g\ƒk_‡nbŒrd�ug}aR�dT„gV‡iX‰kY¢ƒq¤„r¥…s§†t‘p^’q^Ÿw` x`¢y`£z`¤za¥{a½“x¾“x¿“w¿“wÀ“wÀ“vÀ“vÀ“vÀ“uÀ’uÀ’tÀ‘sÀ‘sÀ‘r¿�r¿�q¿�q¾�p¾Žp¾Žo½Žo¥vW¼�n¼Œn»Œn»Œn»ŒnºŒnº‹m¢tV¡sV¡sV¡sV sV sWŸsWŸsXžsXµŠpµŠp´ŠpœsY›sYšrZ˜r[–r\”q\‘p]¦†t£„tŸƒsœ�s€h\{e[vbYo^XhZV`USXPQNJMECJRS[47A+((MYkMYkMYkMZk(5F(5F(5FOHJT=+YML_SRZQQMGJABI2:H/T†Uy«Uy«Uy«Uy«Uy«Uy«‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸˆ¬Þˆ¬Þ'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhš'K}'K}'K}'K}'K}'K}&K}&K}&K}&K}&K}&K}&K}&K}CgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Bg™Bg™Bg™Bg™&J|&J|Bf™Bf™Bf™Bf™Bf˜Bf˜Bf˜Bf˜Bf˜;HY;HY;HY;HY;HY;HY>DM>DM;HY89<:+#9&B52I94ZHAxd[}g^�k`†nc‹rey_R}bT�eVƒgX…iYˆk[Šl\Œn]�o^¥‡v§ˆvšvaœwažxa yb¢zb¤{b¤{a¼“x½“x¦|a§|a§|`§{`§{_§{_§{^§z^¾‘u¾‘t¾‘t¾�s½�s½�r½�r¥wZ¤wZ¤vY¤vY£vY£uX¢uX¢uX¢uX¹Œp¸Œp¸Œp·Œp·‹p¶‹p¶‹pµ‹qµ‹q�tZ›t[šs\™s\˜s]–r]”r^’q^�p^�o^Šn^‡l^ƒj^h]{f\ub[n^YgZW_UTWPQOKOEEKST]JNY>=?JJIMYkMYk(5F(5F(5F(5F(5F)5G)5GK=4S<*XMLbWVYPPLGJ@AI/T†/T†Uy«Uy«Uy«‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞImŸImŸImŸIm ˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞIm Im Im Im Im Im Im Im ˆ¬Þˆ¬Þˆ¬Þˆ¬Þ'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}Dh›Dh›Dh›Dh›DhšDhšDhšDhš'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}&K}&K}&K}ChšChšCgšCgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™&J|&J|&J|&J|&J|Bg™Bg™Bg™Bf™Bf™Bf™Bf™Bf˜Bf˜;HY;HY;HY;HY;HY;HYCIR>DMCIR;HYCIR.$0"8&?*G/V=+w[F{g^€kanXMs\Px_S{bU~dW�fYƒhZ†j\ˆl]Šm^¢…v§ˆwªŠx­Œy¯�y±Žz´�zµ�z·‘z¹’z£{b£{b¤{b¥{b¥{a¥{a¥{`¥{`¥z_¥z_¥z^¼‘u¥y]¤y]¤x]¤x\£w\£w[¢w[¢v[¢v[¡v[¡v[¸�r·�r¶�r¶ŒsµŒs´Œs´Œs²Œt±‹u°‹u˜t^–s_•s_“r_’r`�q`�p`¡…wž„v›‚v—€u“~twd]sb[l^ZeYW]TUUORLJOYYaRU^JOZ>>@!$)RXaMYk39B-3<-3<(5F)5G)5G)5G)5G)5GFDJK9*^K=YONg\\TLMIFJ:>I0T†0T†ImŸˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞIm Im In In In In In In ˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßIn In In In In ˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ß'K~'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}Di›Di›Dh›'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}ChšChšChšChšChšCgšCgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™Cg™&J}&J}&J}&J}&J|&J|&J|&J|&J|Bg™Bg™Bg™Bg™Bg™Bf™Bf™EM>EMCIR;HY;HYCIRCIR)6&8&@*H0I1!\B0}_JhTKjM8q[Pt]Sw`U{cW~eY�g[ƒi\…k^‡m_Ÿ…v¢†w¥ˆx¨Šyª‹z­�z¯Ž{±�{²�{³�{´�{žzdŸzd zc zc¡zc¸‘y¸‘y¸‘y¸‘x¸�x¸�x·�w·�w·�w·�wŸw_Ÿw_žw_µŽv´Žv³�v²�v²�w±�w°Œw¯Œw®Œw­‹w«‹xªŠx¨‰x¦‰x¥ˆx£‡x¡†xž…x›ƒw—�v’~vŽ|t‰ys„vrh\YcXX[TUSNRIHOUXaNS^JFE>>A')+"%(4:C(5F(5F3:B3:B-3<-3<)5G)5G)5G)5G)5G)5GE:4O:*TKLbXWcZZPIKDCJIm Im Im Im ˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ßˆ¬ßˆ¬ßˆ¬ßIn In In In In In Jn Jn Jn Jn Jn ˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ß‰­ß‰­ß‰­ß‰­ß‰­ßJn ‰­ß‰­ß‰­ß‰­ßˆ­ßˆ­ßˆ­ßˆ­ß'K~'K~'K~'K~'K~'K~'K~'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšChšChšChšChšChšChšCgšCgšCgšCgš&K}&K}&J}&J}&J}&J}&J}&J}&J}&J}&J|&J|&J|Cg™Cg™Cg™Bg™Bg™Bg™EMCIRCIRCIR888DGNCJRCIRBBB(0 8&<)G0M5"X@0z^K†bFŠkUlXPp[Rs^TvaVzcX}fZg\�i]™�u›‚v�„wŸ†x¢‡y¥‰z§Šz©‹{ªŒ{•ve–ve—we˜we°�|°�|±�{²�{²�{²�{²�{²�{±�z±�z±Žz±Žz±Žz°Žy™vb˜vb—vb–ub•ub•uc”tc“tc’sb�sc�rc�qc¢‡y †y�…y›„x˜‚x•�w’w�|uˆytƒvs~sqyooslmVQTOLR[\dQU`KHHAAD:<@68; &Z`i-4<%');AJ4:C4:C4:C-4<)5G)5G)5G)5G)6G)6G@84H8-N?5YPQmccoghd`dIn In In In In In ˆ¬ßˆ¬ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßJn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ßJn Jn Jn ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~Ei›Ei›Ei›Ei›'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšDhšDhšChšChšChš&K}&K}&K}&K}&K}&K}&K}&K}&J}&J}&J}&J}&J}&J}&J}&J}&J}Cg™Cg™Cg™Cg™B9;>68;Z`iZ`iMZk)5G4:C-4<4:C4:C-4<;BJ)5G)6G)6G)6G)6G)6GC6-L;.leg„{{ypqhbeVYcJn Jn Jn Jn Jn Jn Jn ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ßJn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­àJn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡‰­à‰­à‰­à‰­à‰­à'L~'L~'L~'L~'L~'L~'K~'K~'K~Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›'K~'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšDhš'K}'K}'K}'K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&J}&J}&J}&J}&J}&J}Cg™Cg™Cg™<535=AG=?D?AD==1(B3)B2&F4'E4)gTGlXJs^OzcTzaPqfethgvjhbVTcWUdXVeYWfZXg[Yh\Zi]Zi][j^\€us€ususts~tt~tt}tt|st{stut~tt|sszrsyqrwpquoqsmpqloXTXTQWPOULLSSJEA<:=99757335./2113)+.'),)+.8:="(3@QJMPV\eT[cNZlNZlZ`iZ`iZ`iZ`iSYbY`h4;C.4=)6GCPaCPaCPaCPaCPaEQbZOGa_emhkŠƒ„nfgeaeJn¡Jn¡Jn¡Jn¡Jn¡Jn¡Š®àŠ®àŠ®àŠ®àŠ®àJo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Š®àŠ®áŠ®áŠ®áŠ®áŠ®áŠ®áŠ®áKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡ƒ§Úƒ§Úƒ§Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨ÚEjœEiœEiœEiœEiœ'L~'L~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K}'K}'K}'K}'K}'K}'K}Di›Di›Di›Di›Dh›Dh›'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}&K}&K}&K}&K}&K}&K}&K}&K}$.>=I[=I[2)>0&A2'C3(I8-^OFbRHfUJjXMq^RwcVzfYfRDfQCdN@zdTqijrjksklrklrklrklqjmpjmpjmojmojmnimmimkhliflscYm`Xg\VbYT^VRE>;A<:>98:77645:873220/0,-/)+.*,/#%( &15;5BSKKKJMP]dlU[dNZlNZlZ`iTZcZaiZaiZ`iZ`iSZbŽ”�LS[V]eDPbDPbDPbDPbDPbDPbWMF^^diei®”†…rkeaeJo¡Jo¡Jo¡Jo¡Š®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Š¯áŠ¯áŠ¯áŠ¯áKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡ƒ¨Úƒ¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Û„¨ÛGk�'L~'L~'L~'L~'L~'L~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~Ei›Ei›Ei›Ei›Ei›Di›Di›Di›Di›Di›'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}&K}&K}&K}&K}%/> ,>=I[=I[ ,> ,>#)2(.7#)2(.7#)2#)2#)2#)2(.7(.7(.767@D>A214$+3#%("$'###""""""&&&888888cB*}\I@!%+%!5*$:/(;0)<1*>3+@4+>1(bUKN@6OA6L=3QB8M?4_RKaTLbUMcVNcVNcVObVOaVOaUO`UO_UO^UO^TO\SOYRNWPNUOMWPKYSOWRN;63953:76755333,/2'),%(+"%(!' "&,KXi04:JMP]_b^emU[dNZlNZlT[cU[dU[dU[d[aj�•ž�•ž�•žˆŽ—–�¥W]fDPbDPbDPbDPbDPbDPb‘nSž…w—|m¨�‚ƒqjKo¡Ko¡Ko¡Š®àŠ®àŠ®àŠ®áŠ®áŠ®áŠ®áŠ®áŠ®áŠ¯áŠ¯áŠ¯áKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Û„¨Û„¨Û„¨Û„¨Û„©Û„©Û„©Û„©ÛGk�Gk�Gk�Gk�Gk�Gk�'L~'L~'L~'L~'K~'K~'K~Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Di›Di›'K}'K}'K}'K}HlžHlžHlžHlžHlžHlžHlžHlž'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}*2? ->=I[=I[ ,> ,> ,>#)2#)2#)2(.7(.7#)2#)2(.7(.7(.7(.7/28:79G@A<89',4#%(#%(######""""""8888888887'vS:‹jW;) - &3#.$-% .% .& /&!,#,#@70A71XNHXNHWNHWNHZRLYQLYQLXQLWQLWPLUOLSNLQMKOLJMJJ0//.-.,,-&(+"(!' 15;6CT37=MMMKMP^ad_enY`hNZlNZlU\dV\eŠ‘™Š�™Š�™�–Ÿ�–Ÿ�–ž�•ž�“œ—�¦Œ’›ƒ�¡DQbDQbDQbDQbDQbMUc¤�ƒ‘ylŸ‡|€oiKo¡Š¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯áKo¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢‹¯â‹¯â‹¯â‹¯âLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Û„¨Û„¨Û„¨Û„©Û„©Û„©Û„©Û„©Û„©Û…©Û…©Û…©Û…©Û…©Û…©ÛGkžGkžGkžGkžGkžGkžGkžGkžGkž…©Û…©Ü…©Ü…©Ü…©Ü…©Ü…©Ü…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž'K}'K}'K}'K}'K}'K}'K}'K}'K}HO\=J[=J[=J[ -> ,> ,>(.7#)2#)2(.7(.7(.7#)2(.7(.7(/7(/7)/8/28114H7,99@.05&,5$&)$$$######"""(((8888888888888884"nO9„gXˆjZE/ (-" - %' %$#" ! !$ 48>7CU:GX JJJLLLKMPagp_enNZlLPV˜Ÿ§Œ’›Œ’›Œ’›‹’š‹‘šŠ‘™‘— �–Ÿ�–Ÿ�–Ÿ�“œ�“œ—�¦„�¢„�¢DQbDQbDQbDQbNVc…uo‡rjѼ³º«§‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯áKp¢Kp¢Kp¢Kp¢Kp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢‹°â‹°â‹°â‹°âŒ°âŒ°âŒ°âLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢„¨Û„¨Û„¨Û„©Û„©Û„©Û„©Û„©Û„©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©ÛGkžGkžGkžGlžGlžGlž…©Ü…©Ü…©Ü…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž'K}'K}'K}'K}DhšDhšDhšIP\=J[=J[=J[=J[ -> ->(.7#)2#)2(.7(.7(.7#)2(.7(/7(/7)/8)/8)/803966:E?AC>A856,07%'*%')$$$######(((DDDBBB8888888880 cF1w]O�cS{`QS;+57'   *      ;?E7CU;HY=I[ JJJMMMKMPacfbhq‘— ƒ�¡ƒ�¡‘— �“œ�“œ�“œŒ“›Œ’›Œ’›‹‘š‘— ‘— �—Ÿ™Ÿ¨�”œ�“œ�“œ„‘¢„‘¢„‘¢„‘¢EQcHScNVd´¨§¿®¨Èµ®¯�‘‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯â‹¯â‹¯â‹¯â‹¯â‹¯â‹°â‹°â‹°â‹°â‹°â‹°â‹°âLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Œ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lp£„©Û„©Û„©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Ü…©Ü…©ÜGlžGlž…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÝHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž‡«Ý‡«ÝDhšDhšDhšDhš=J[=J[=J[=J[=J[=J[ ->(/7#)2#)2(.7(.7(.7#*2(/7)/8)/8)/8)/8)08*0903:56:88@KBB=;@348*08&(+'(*%%%$$$(((EEE(((&&&">-"bF3oXMs[Ow]Py^P�qbpXMdH5R<,Q;, &%%#'-"'-&3DS_qP\nR_p>J\?K]AG@B::@66:-29'),)'%BBBFFFEEE)))))))))&&& @@@FFFACFZ\_[ajagp„�¢„�¢„�¢ž¥­Ÿ¦®—�¦–�¥�–ž�•žŽ•�Ž”��”œ�“œ‘— �—Ÿ›¡ªš ©™ ¨Ž•�Ž”�Ž”�…‘£…‘£…‘£EQcGRcKTdPWd­¥§¿¯ª‹°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãLp£Lp£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Œ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ãMq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£…©Û…©Û…©Û…©Û…©Û…©Û…©Ü…©Ü…©Ü…©Ü…©Ü…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ†ªÜHlžHlžHlžHlžHlž†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†«Ý†«Ý†«Ý†«Ý†«Ý†«Ý†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝHlžHlžHlŸHlŸHlŸHlŸHlŸ‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ��Ÿ>J\>J\=J[=J[=J[=J[FLU39B#*2(/7)/7)/8$*3$*3$*3)/8)08*09*09*19',5(-5*.6.17338@<=G@BH@BXW]UUXLPWFHKDFHKKKHHH+++%%%%%%$$$###!!!!!!777777777777777777777AAAFFFACFACF\^aeltbhqDQbDQbDQbŸ¥®¡§°¡§°¡§°¡§°—�¦�–Ÿ”š£”š£“™¢’™¡’˜¡‘˜ ‘— ›¡ª›¡ªš ©�•ž™Ÿ¨Ž”�ERcERcERcERcHScLUdRXd|njŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ã�±ã�±ã�±ã�±ãMq£Mq£Mq£Mq£Mq£Mq£�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ãMq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£…©Ü…©Ü…©Ü…©Ü…©Ü…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlž†ªÜ†ªÜ†ªÜ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†«Ý†«Ý†«Ý†«Ý†«Ý†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝHlŸHlŸHlŸHlŸHlŸ‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ�ŽŸ�ŽŸ�ŽŸ�ŽŸ>J\=J[=J[FLUFLU(/7(/7*08*08%+3$*3$+3$+3*09*09*19&,5&,5'-6).6*/7-18NPURRVXUVc]^f^_[X]\XYTUZLQYKMPFHJ)))(((&&&%%%%%%$$$$$$###!!!!!!!!!777777777BBBEEEACGADGFIL\ckZ`iTZcDQbDQbDQbagpbiqcircir¢©±¢¨±¡¨°¡§°•œ¤•›¤”›£”š£“™¢’™¡’˜¡œ¢«œ¢«›¡ªš¡©�•žY`hY_hERcERcERcGSdJTdNVdTYeLp¢Lp¢Œ°ãŒ°ãŒ°ãŒ°ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ãMq£Mq£�±ã�±ã�±ã�±ä�±ä�±ä�±ä�±ä�±ä�±ä�±ä�±ä�±ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²äMq¤Mq¤Mq¤Mq¤Mq¤Mq¤Mq¤Mq¤Mq¤Mq¤Mq¤…ªÜ…ªÜ…ªÜ…ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž†ªÝ†ªÝ†«Ý†«Ý†«Ý†«Ý†«Ý†«Ý†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝHmŸ‡«Þ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þ�ŽŸ�ŽŸ�ŽŸ�ŽŸ�ŽŸ�ŽŸ�ŽŸFLUFLUFLU)/8+08+08&+3&+3%+4%+4%+4*19+1:&,5'-5'-6(.6FLTHMTINUKOVOQWSTXYWX`[^lbac]_f_\a_aY\aRX_,.1*,.*+-***((('''&&&%%%%%%$$$$$$$$$###!!!!!!!!!!!!!!!%%%%%%%%%%%%"""""""""KKKJJJFFFGIL]_b^dm\bkV]eDQbEQcEQcEQccirdjsdksektdjsdjscir£©²¢¨±¢¨±–œ¥•œ¤•›¤”›£”š£“™¢’™¡�£¬œ¢«›¢ª[ajZ`iOU^ERcERcFRdFRdITdLUdPWeVZeLp£Lq£Lq£Lq£�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ä�±ä�±ä�±ä�±ä�±ä�²ä�²ä�²äMq£�²ä�²ä�²ä�²ä�²ä�²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äMr¤Mr¤Mr¤Mr¤Mr¤Mr¤Mr¤Mr¤Mr¤Mr¤†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«ÞHmŸHmŸHmŸ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þ�ŽŸ�ŽŸ�ŽŸ�ŽŸ‚Ž ‚Ž ‚Ž ‚Ž ”›£Š�™ŠŽ•-18,18',3',4',4&,4%,4+1:,2:'-5DJSEKSEKTFLTFLUHMUINVKOWLPWQSYTUZWWZpjje^`offb\_h`]eaaCCG8;A27?-/2+-/.+)******)))((('''&&&&&&%%%%%%$$$$$$$$$$$$$$$$$$######???EEEEEEEEE((((((###&&&%%%HJMHJMHJMHJM_en]dlZ`i_enEQcEQcEQcEQcbhqektflufluflufluektektdksdjscjr£©²¢©±¢¨±–œ¥•œ¤•›¤”›£”š£“™¢�£¬\ckQW`[ajZaiOU^FRdFRdFRdHSdKUdNVeRXeX\fLq£Mq£Mq£Mq£Mq£�±ã�±ã�±ã�±ã�±ã�±ä�±ä�±ä�±ä�±ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²äŽ²äŽ²äŽ²äŽ²äŽ²äMr¤Mr¤Mr¤Mr¤Mr¤Ž²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²åŽ²åŽ²åŽ²åŽ²åŽ²åŽ²åŽ²åŽ²åNr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬ÞHmŸHmŸHmŸHmŸImŸImŸImŸˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þ‚Ž ‚Ž ‚Ž ‚Ž ‚Ž ‚Ž ‚Ž ‚Ž ”›£Š‘™‹�•‹�•PT[KOVJOV(-4(-4'-5'-5JOXEKSEKSEKTFLTFLTGMUGMUHNVIOWKPWLQXMRYPTZTV[\]a_^asljd^azporjkE@CLEBIEFEDG29A28A17@135,.1+-0+,/./1..0'),)))++++++++++++***FFFFFFACFACFEEEACFACFŠŒ�JLOJLOKQZ_en]clY_hU[dEQcEQcEQcEQcEQcagp[aj\bk\bkgnvgnvgmvgmvfluflueltektdksdjscjrcir¢©±—�¦–œ¥•œ¤•›¤TZcSYbRYaRXaQW`[bj[ajZ`iFSdFSdGSdJTdLVePXeTZfZ]fMq£Mq£Mq£Mq£Mq£Mq£Mq£�²ä�²ä�²ä�²ä�²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äNr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Ž²åŽ²åŽ²åŽ²åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³å�³å�³å�³å�³å�³å�³å�³åNr¤Nr¤Nr¤Nr¤Nr¤�³å�³å†ªÜ†ªÜ†ªÝHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlŸHlŸHlŸHlŸHlŸHlŸ‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬ÞImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ­ß‚Ž ‚Ž ‚Ž ‚Ž ‚� ‚� ‚� ‚� ‚� …Œ”’•šŒ�•‘”›LPVLPWKPW‹�—‹�—‹�˜�•�‹‘™FLTFLTFLUGMUGMUHMVHNVINWIOWKPXLQYMRYNSZTX`X[a[]b]^c__ccacib`JDGi__aYYPJLD@C=;AKEDTQR@?A>>A;/5>.4=-4 1} { - set blue DeepSkyBlue3 - set red red - set bisque bisque3 - set green SeaGreen3 -} else { - set blue black - set red black - set bisque black - set green black -} - -# Set up demos within each of the areas of the grid. - -$c create text 5c .2c -text Lines -anchor n -$c create line 1c 1c 3c 1c 1c 4c 3c 4c -width 2m -fill $blue \ - -cap butt -join miter -tags item -$c create line 4.67c 1c 4.67c 4c -arrow last -tags item -$c create line 6.33c 1c 6.33c 4c -arrow both -tags item -$c create line 5c 6c 9c 6c 9c 1c 8c 1c 8c 4.8c 8.8c 4.8c 8.8c 1.2c \ - 8.2c 1.2c 8.2c 4.6c 8.6c 4.6c 8.6c 1.4c 8.4c 1.4c 8.4c 4.4c \ - -width 3 -fill $red -tags item -# Main widget program sets variable tk_demoDirectory -$c create line 1c 5c 7c 5c 7c 7c 9c 7c -width .5c \ - -stipple @[file join $tk_demoDirectory images gray25.xbm] \ - -arrow both -arrowshape {15 15 7} -tags item -$c create line 1c 7c 1.75c 5.8c 2.5c 7c 3.25c 5.8c 4c 7c -width .5c \ - -cap round -join round -tags item - -$c create text 15c .2c -text "Curves (smoothed lines)" -anchor n -$c create line 11c 4c 11.5c 1c 13.5c 1c 14c 4c -smooth on \ - -fill $blue -tags item -$c create line 15.5c 1c 19.5c 1.5c 15.5c 4.5c 19.5c 4c -smooth on \ - -arrow both -width 3 -tags item -$c create line 12c 6c 13.5c 4.5c 16.5c 7.5c 18c 6c \ - 16.5c 4.5c 13.5c 7.5c 12c 6c -smooth on -width 3m -cap round \ - -stipple @[file join $tk_demoDirectory images gray25.xbm] \ - -fill $red -tags item - -$c create text 25c .2c -text Polygons -anchor n -$c create polygon 21c 1.0c 22.5c 1.75c 24c 1.0c 23.25c 2.5c \ - 24c 4.0c 22.5c 3.25c 21c 4.0c 21.75c 2.5c -fill $green \ - -outline black -width 4 -tags item -$c create polygon 25c 4c 25c 4c 25c 1c 26c 1c 27c 4c 28c 1c \ - 29c 1c 29c 4c 29c 4c -fill $red -smooth on -tags item -$c create polygon 22c 4.5c 25c 4.5c 25c 6.75c 28c 6.75c \ - 28c 5.25c 24c 5.25c 24c 6.0c 26c 6c 26c 7.5c 22c 7.5c \ - -stipple @[file join $tk_demoDirectory images gray25.xbm] \ - -outline black -tags item - -$c create text 5c 8.2c -text Rectangles -anchor n -$c create rectangle 1c 9.5c 4c 12.5c -outline $red -width 3m -tags item -$c create rectangle 0.5c 13.5c 4.5c 15.5c -fill $green -tags item -$c create rectangle 6c 10c 9c 15c -outline {} \ - -stipple @[file join $tk_demoDirectory images gray25.xbm] \ - -fill $blue -tags item - -$c create text 15c 8.2c -text Ovals -anchor n -$c create oval 11c 9.5c 14c 12.5c -outline $red -width 3m -tags item -$c create oval 10.5c 13.5c 14.5c 15.5c -fill $green -tags item -$c create oval 16c 10c 19c 15c -outline {} \ - -stipple @[file join $tk_demoDirectory images gray25.xbm] \ - -fill $blue -tags item - -$c create text 25c 8.2c -text Text -anchor n -$c create rectangle 22.4c 8.9c 22.6c 9.1c -$c create text 22.5c 9c -anchor n -font $font1 -width 4c \ - -text "A short string of text, word-wrapped, justified left, and anchored north (at the top). The rectangles show the anchor points for each piece of text." -tags item -$c create rectangle 25.4c 10.9c 25.6c 11.1c -$c create text 25.5c 11c -anchor w -font $font1 -fill $blue \ - -text "Several lines,\n each centered\nindividually,\nand all anchored\nat the left edge." \ - -justify center -tags item -$c create rectangle 24.9c 13.9c 25.1c 14.1c -$c create text 25c 14c -font $font2 -anchor c -fill $red -stipple gray50 \ - -text "Stippled characters" -tags item - -$c create text 5c 16.2c -text Arcs -anchor n -$c create arc 0.5c 17c 7c 20c -fill $green -outline black \ - -start 45 -extent 270 -style pieslice -tags item -$c create arc 6.5c 17c 9.5c 20c -width 4m -style arc \ - -outline $blue -start -135 -extent 270 -tags item \ - -outlinestipple @[file join $tk_demoDirectory images gray25.xbm] -$c create arc 0.5c 20c 9.5c 24c -width 4m -style pieslice \ - -fill {} -outline $red -start 225 -extent -90 -tags item -$c create arc 5.5c 20.5c 9.5c 23.5c -width 4m -style chord \ - -fill $blue -outline {} -start 45 -extent 270 -tags item - -$c create text 15c 16.2c -text Bitmaps -anchor n -$c create bitmap 13c 20c -tags item \ - -bitmap @[file join $tk_demoDirectory images face.xbm] -$c create bitmap 17c 18.5c -tags item \ - -bitmap @[file join $tk_demoDirectory images noletter.xbm] -$c create bitmap 17c 21.5c -tags item \ - -bitmap @[file join $tk_demoDirectory images letters.xbm] - -$c create text 25c 16.2c -text Windows -anchor n -button $c.button -text "Press Me" -command "butPress $c $red" -$c create window 21c 18c -window $c.button -anchor nw -tags item -entry $c.entry -width 20 -relief sunken -$c.entry insert end "Edit this text" -$c create window 21c 21c -window $c.entry -anchor nw -tags item -scale $c.scale -from 0 -to 100 -length 6c -sliderlength .4c \ - -width .5c -tickinterval 0 -$c create window 28.5c 17.5c -window $c.scale -anchor n -tags item -$c create text 21c 17.9c -text Button: -anchor sw -$c create text 21c 20.9c -text Entry: -anchor sw -$c create text 28.5c 17.4c -text Scale: -anchor s - -# Set up event bindings for canvas: - -$c bind item "itemEnter $c" -$c bind item "itemLeave $c" -bind $c <2> "$c scan mark %x %y" -bind $c "$c scan dragto %x %y" -bind $c <3> "itemMark $c %x %y" -bind $c "itemStroke $c %x %y" -bind $c "itemsUnderArea $c" -bind $c <1> "itemStartDrag $c %x %y" -bind $c "itemDrag $c %x %y" - -# Utility procedures for highlighting the item under the pointer: - -proc itemEnter {c} { - global restoreCmd - - if {[winfo depth $c] == 1} { - set restoreCmd {} - return - } - set type [$c type current] - if {$type == "window"} { - set restoreCmd {} - return - } - if {$type == "bitmap"} { - set bg [lindex [$c itemconf current -background] 4] - set restoreCmd [list $c itemconfig current -background $bg] - $c itemconfig current -background SteelBlue2 - return - } - set fill [lindex [$c itemconfig current -fill] 4] - if {(($type == "rectangle") || ($type == "oval") || ($type == "arc")) - && ($fill == "")} { - set outline [lindex [$c itemconfig current -outline] 4] - set restoreCmd "$c itemconfig current -outline $outline" - $c itemconfig current -outline SteelBlue2 - } else { - set restoreCmd "$c itemconfig current -fill $fill" - $c itemconfig current -fill SteelBlue2 - } -} - -proc itemLeave {c} { - global restoreCmd - - eval $restoreCmd -} - -# Utility procedures for stroking out a rectangle and printing what's -# underneath the rectangle's area. - -proc itemMark {c x y} { - global areaX1 areaY1 - set areaX1 [$c canvasx $x] - set areaY1 [$c canvasy $y] - $c delete area -} - -proc itemStroke {c x y} { - global areaX1 areaY1 areaX2 areaY2 - set x [$c canvasx $x] - set y [$c canvasy $y] - if {($areaX1 != $x) && ($areaY1 != $y)} { - $c delete area - $c addtag area withtag [$c create rect $areaX1 $areaY1 $x $y \ - -outline black] - set areaX2 $x - set areaY2 $y - } -} - -proc itemsUnderArea {c} { - global areaX1 areaY1 areaX2 areaY2 - set area [$c find withtag area] - set items "" - foreach i [$c find enclosed $areaX1 $areaY1 $areaX2 $areaY2] { - if {[lsearch [$c gettags $i] item] != -1} { - lappend items $i - } - } - puts stdout "Items enclosed by area: $items" - set items "" - foreach i [$c find overlapping $areaX1 $areaY1 $areaX2 $areaY2] { - if {[lsearch [$c gettags $i] item] != -1} { - lappend items $i - } - } - puts stdout "Items overlapping area: $items" -} - -set areaX1 0 -set areaY1 0 -set areaX2 0 -set areaY2 0 - -# Utility procedures to support dragging of items. - -proc itemStartDrag {c x y} { - global lastX lastY - set lastX [$c canvasx $x] - set lastY [$c canvasy $y] -} - -proc itemDrag {c x y} { - global lastX lastY - set x [$c canvasx $x] - set y [$c canvasy $y] - $c move current [expr {$x-$lastX}] [expr {$y-$lastY}] - set lastX $x - set lastY $y -} - -# Procedure that's invoked when the button embedded in the canvas -# is invoked. - -proc butPress {w color} { - set i [$w create text 25c 18.1c -text "Ouch!!" -fill $color -anchor n] - after 500 "$w delete $i" -} diff --git a/mingw/lib/tk8.5/demos/ixset b/mingw/lib/tk8.5/demos/ixset deleted file mode 100644 index 21a099f53f..0000000000 --- a/mingw/lib/tk8.5/demos/ixset +++ /dev/null @@ -1,331 +0,0 @@ -#!/bin/sh -# the next line restarts using wish \ -exec wish "$0" ${1+"$@"} - -# ixset -- -# A nice interface to "xset" to change X server settings -# -# History : -# 91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design -# 92/08/01 : pda@masi.ibp.fr : cleaning -# -# RCS: @(#) $Id: ixset,v 1.5 2003/09/30 14:54:30 dkf Exp $ - -package require Tcl 8.4 -package require Tk - -# -# Button actions -# - -proc quit {} { - destroy . -} - -proc ok {} { - writesettings - quit -} - -proc cancel {} { - readsettings - dispsettings - .buttons.apply configure -state disabled - .buttons.cancel configure -state disabled -} - -proc apply {} { - writesettings - .buttons.apply configure -state disabled - .buttons.cancel configure -state disabled -} - -# -# Read current settings -# - -proc readsettings {} { - global kbdrep ; set kbdrep "on" - global kbdcli ; set kbdcli 0 - global bellvol ; set bellvol 100 - global bellpit ; set bellpit 440 - global belldur ; set belldur 100 - global mouseacc ; set mouseacc "3/1" - global mousethr ; set mousethr 4 - global screenbla ; set screenbla "blank" - global screentim ; set screentim 600 - global screencyc ; set screencyc 600 - - set xfd [open "|xset q" r] - while {[gets $xfd line] > -1} { - switch -- [lindex $line 0] { - auto { - set rpt [lindex $line 1] - if {$rpt eq "repeat:"} { - set kbdrep [lindex $line 2] - set kbdcli [lindex $line 6] - } - } - bell { - set bellvol [lindex $line 2] - set bellpit [lindex $line 5] - set belldur [lindex $line 8] - } - acceleration: { - set mouseacc [lindex $line 1] - set mousethr [lindex $line 3] - } - prefer { - set bla [lindex $line 2] - set screenbla [expr {$bla eq "yes" ? "blank" : "noblank"}] - } - timeout: { - set screentim [lindex $line 1] - set screencyc [lindex $line 3] - } - } - } - close $xfd - - # puts stdout [format "Key REPEAT = %s\n" $kbdrep] - # puts stdout [format "Key CLICK = %s\n" $kbdcli] - # puts stdout [format "Bell VOLUME = %s\n" $bellvol] - # puts stdout [format "Bell PITCH = %s\n" $bellpit] - # puts stdout [format "Bell DURATION = %s\n" $belldur] - # puts stdout [format "Mouse ACCELERATION = %s\n" $mouseacc] - # puts stdout [format "Mouse THRESHOLD = %s\n" $mousethr] - # puts stdout [format "Screen BLANCK = %s\n" $screenbla] - # puts stdout [format "Screen TIMEOUT = %s\n" $screentim] - # puts stdout [format "Screen CYCLE = %s\n" $screencyc] -} - - -# -# Write settings into the X server -# - -proc writesettings {} { - global kbdrep kbdcli bellvol bellpit belldur - global mouseacc mousethr screenbla screentim screencyc - - set bellvol [.bell.vol get] - set bellpit [.bell.val.pit.entry get] - set belldur [.bell.val.dur.entry get] - - if {$kbdrep eq "on"} { - set kbdcli [.kbd.val.cli get] - } else { - set kbdcli "off" - } - - set mouseacc [.mouse.hor.acc.entry get] - set mousethr [.mouse.hor.thr.entry get] - - set screentim [.screen.tim.entry get] - set screencyc [.screen.cyc.entry get] - - exec xset \ - b $bellvol $bellpit $belldur \ - c $kbdcli \ - r $kbdrep \ - m $mouseacc $mousethr \ - s $screentim $screencyc \ - s $screenbla -} - - -# -# Sends all settings to the window -# - -proc dispsettings {} { - global kbdrep kbdcli bellvol bellpit belldur - global mouseacc mousethr screenbla screentim screencyc - - .bell.vol set $bellvol - .bell.val.pit.entry delete 0 end - .bell.val.pit.entry insert 0 $bellpit - .bell.val.dur.entry delete 0 end - .bell.val.dur.entry insert 0 $belldur - - .kbd.val.onoff [expr {$kbdrep eq "on" ? "select" : "deselect"}] - .kbd.val.cli set $kbdcli - - .mouse.hor.acc.entry delete 0 end - .mouse.hor.acc.entry insert 0 $mouseacc - .mouse.hor.thr.entry delete 0 end - .mouse.hor.thr.entry insert 0 $mousethr - - .screen.blank [expr {$screenbla eq "blank" ? "select" : "deselect"}] - .screen.pat [expr {$screenbla ne "blank" ? "select" : "deselect"}] - .screen.tim.entry delete 0 end - .screen.tim.entry insert 0 $screentim - .screen.cyc.entry delete 0 end - .screen.cyc.entry insert 0 $screencyc -} - - -# -# Create all windows, and pack them -# - -proc labelentry {path text length {range {}}} { - frame $path - label $path.label -text $text - if {[llength $range]} { - spinbox $path.entry -width $length -relief sunken \ - -from [lindex $range 0] -to [lindex $range 1] - } else { - entry $path.entry -width $length -relief sunken - } - pack $path.label -side left - pack $path.entry -side right -expand y -fill x -} - -proc createwindows {} { - # - # Buttons - # - - frame .buttons - button .buttons.ok -default active -command ok -text "Ok" - button .buttons.apply -default normal -command apply -text "Apply" \ - -state disabled - button .buttons.cancel -default normal -command cancel -text "Cancel" \ - -state disabled - button .buttons.quit -default normal -command quit -text "Quit" - - pack .buttons.ok .buttons.apply .buttons.cancel .buttons.quit \ - -side left -expand yes -pady 5 - - bind . {.buttons.ok flash; .buttons.ok invoke} - bind . {.buttons.quit flash; .buttons.quit invoke} - bind . <1> { - if {![string match .buttons* %W]} { - .buttons.apply configure -state normal - .buttons.cancel configure -state normal - } - } - bind . { - if {![string match .buttons* %W]} { - switch -glob %K { - Return - Escape - Tab - *Shift* {} - default { - .buttons.apply configure -state normal - .buttons.cancel configure -state normal - } - } - } - } - - # - # Bell settings - # - - labelframe .bell -text "Bell Settings" -padx 1.5m -pady 1.5m - scale .bell.vol \ - -from 0 -to 100 -length 200 -tickinterval 20 \ - -label "Volume (%)" -orient horizontal - - frame .bell.val - labelentry .bell.val.pit "Pitch (Hz)" 6 {25 20000} - labelentry .bell.val.dur "Duration (ms)" 6 {1 10000} - pack .bell.val.pit -side left -padx 5 - pack .bell.val.dur -side right -padx 5 - pack .bell.vol .bell.val -side top -expand yes - - # - # Keyboard settings - # - - labelframe .kbd -text "Keyboard Repeat Settings" -padx 1.5m -pady 1.5m - - frame .kbd.val - checkbutton .kbd.val.onoff \ - -text "On" \ - -onvalue "on" -offvalue "off" -variable kbdrep \ - -relief flat - scale .kbd.val.cli \ - -from 0 -to 100 -length 200 -tickinterval 20 \ - -label "Click Volume (%)" -orient horizontal - pack .kbd.val.onoff -side left -fill x -expand yes -padx {0 1m} - pack .kbd.val.cli -side left -expand yes -fill x -padx {1m 0} - - pack .kbd.val -side top -expand yes -pady 2 -fill x - - # - # Mouse settings - # - - labelframe .mouse -text "Mouse Settings" -padx 1.5m -pady 1.5m - - frame .mouse.hor - labelentry .mouse.hor.acc "Acceleration" 5 - labelentry .mouse.hor.thr "Threshold (pixels)" 3 {1 2000} - - pack .mouse.hor.acc -side left -padx {0 1m} - pack .mouse.hor.thr -side right -padx {1m 0} - - pack .mouse.hor -side top -expand yes - - # - # Screen Saver settings - # - - labelframe .screen -text "Screen-saver Settings" -padx 1.5m -pady 1.5m - - radiobutton .screen.blank \ - -variable screenblank -text "Blank" -relief flat \ - -value "blank" -variable screenbla -anchor w - radiobutton .screen.pat \ - -variable screenblank -text "Pattern" -relief flat \ - -value "noblank" -variable screenbla -anchor w - labelentry .screen.tim "Timeout (s)" 5 {1 100000} - labelentry .screen.cyc "Cycle (s)" 5 {1 100000} - - grid .screen.blank .screen.tim -sticky e - grid .screen.pat .screen.cyc -sticky e - grid configure .screen.blank .screen.pat -sticky ew - - # - # Main window - # - - pack .buttons -side top -fill both - pack .bell .kbd .mouse .screen -side top -fill both -expand yes \ - -padx 1m -pady 1m - - # - # Let the user resize our window - # - wm minsize . 10 10 -} - -############################################################################## -# Main program - -# -# Listen what "xset" tells us... -# - -readsettings - -# -# Create all windows -# - -createwindows - -# -# Write xset parameters -# - -dispsettings - -# -# Now, wait for user actions... -# - -# Local Variables: -# mode: tcl -# End: diff --git a/mingw/lib/tk8.5/demos/knightstour.tcl b/mingw/lib/tk8.5/demos/knightstour.tcl deleted file mode 100644 index 95ee6cacb9..0000000000 --- a/mingw/lib/tk8.5/demos/knightstour.tcl +++ /dev/null @@ -1,257 +0,0 @@ -# Copyright (C) 2008 Pat Thoyts -# -# Calculate a Knight's tour of a chessboard. -# -# This uses Warnsdorff's rule to calculate the next square each -# time. This specifies that the next square should be the one that -# has the least number of available moves. -# -# Using this rule it is possible to get to a position where -# there are no squares available to move into. In this implementation -# this occurs when the starting square is d6. -# -# To solve this fault an enhancement to the rule is that if we -# have a choice of squares with an equal score, we should choose -# the one nearest the edge of the board. -# -# If the call to the Edgemost function is commented out you can see -# this occur. -# -# You can drag the knight to a specific square to start if you wish. -# If you let it repeat then it will choose random start positions -# for each new tour. - -package require Tk 8.5 - -# Return a list of accessible squares from a given square -proc ValidMoves {square} { - set moves {} - foreach pair {{-1 -2} {-2 -1} {-2 1} {-1 2} {1 2} {2 1} {2 -1} {1 -2}} { - set col [expr {($square % 8) + [lindex $pair 0]}] - set row [expr {($square / 8) + [lindex $pair 1]}] - if {$row > -1 && $row < 8 && $col > -1 && $col < 8} { - lappend moves [expr {$row * 8 + $col}] - } - } - return $moves -} - -# Return the number of available moves for this square -proc CheckSquare {square} { - variable visited - set moves 0 - foreach test [ValidMoves $square] { - if {[lsearch -exact -integer $visited $test] == -1} { - incr moves - } - } - return $moves -} - -# Select the next square to move to. Returns -1 if there are no available -# squares remaining that we can move to. -proc Next {square} { - variable visited - set minimum 9 - set nextSquare -1 - foreach testSquare [ValidMoves $square] { - if {[lsearch -exact -integer $visited $testSquare] == -1} { - set count [CheckSquare $testSquare] - if {$count < $minimum} { - set minimum $count - set nextSquare $testSquare - } elseif {$count == $minimum} { - set nextSquare [Edgemost $nextSquare $testSquare] - } - } - } - return $nextSquare -} - -# Select the square nearest the edge of the board -proc Edgemost {a b} { - set colA [expr {3-int(abs(3.5-($a%8)))}] - set colB [expr {3-int(abs(3.5-($b%8)))}] - set rowA [expr {3-int(abs(3.5-($a/8)))}] - set rowB [expr {3-int(abs(3.5-($b/8)))}] - return [expr {($colA * $rowA) < ($colB * $rowB) ? $a : $b}] -} - -# Display a square number as a standard chess square notation. -proc N {square} { - return [format %c%d [expr {97 + $square % 8}] \ - [expr {$square / 8 + 1}]] -} - -# Perform a Knight's move and schedule the next move. -proc MovePiece {dlg last square} { - variable visited - variable delay - variable continuous - $dlg.f.txt insert end "[llength $visited]. [N $last] .. [N $square]\n" {} - $dlg.f.txt see end - $dlg.f.c itemconfigure [expr {1+$last}] -state normal -outline black - $dlg.f.c itemconfigure [expr {1+$square}] -state normal -outline red - $dlg.f.c coords knight [lrange [$dlg.f.c coords [expr {1+$square}]] 0 1] - lappend visited $square - set next [Next $square] - if {$next ne -1} { - variable aid [after $delay [list MovePiece $dlg $square $next]] - } else { - $dlg.tf.b1 configure -state normal - if {[llength $visited] == 64} { - variable initial - if {$initial == $square} { - $dlg.f.txt insert end "Closed tour!" - } else { - $dlg.f.txt insert end "Success\n" {} - if {$continuous} { - after [expr {$delay * 2}] [namespace code \ - [list Tour $dlg [expr {int(rand() * 64)}]]] - } - } - } else { - $dlg.f.txt insert end "FAILED!\n" {} - } - } -} - -# Begin a new tour of the board given a random start position -proc Tour {dlg {square {}}} { - variable visited {} - $dlg.f.txt delete 1.0 end - $dlg.tf.b1 configure -state disabled - for {set n 0} {$n < 64} {incr n} { - $dlg.f.c itemconfigure $n -state disabled -outline black - } - if {$square eq {}} { - set square [expr {[$dlg.f.c find closest \ - {*}[$dlg.f.c coords knight] 0 65]-1}] - } - variable initial $square - after idle [list MovePiece $dlg $initial $initial] -} - -proc Stop {} { - variable aid - catch {after cancel $aid} -} - -proc Exit {dlg} { - Stop - destroy $dlg -} - -proc SetDelay {new} { - variable delay [expr {int($new)}] -} - -proc DragStart {w x y} { - $w dtag selected - $w addtag selected withtag current - variable dragging [list $x $y] -} -proc DragMotion {w x y} { - variable dragging - if {[info exists dragging]} { - $w move selected [expr {$x - [lindex $dragging 0]}] \ - [expr {$y - [lindex $dragging 1]}] - variable dragging [list $x $y] - } -} -proc DragEnd {w x y} { - set square [$w find closest $x $y 0 65] - $w coords selected [lrange [$w coords $square] 0 1] - $w dtag selected - variable dragging ; unset dragging -} - -proc CreateGUI {} { - catch {destroy .knightstour} - set dlg [toplevel .knightstour] - wm title $dlg "Knights tour" - wm withdraw $dlg - set f [ttk::frame $dlg.f] - set c [canvas $f.c -width 240 -height 240] - text $f.txt -width 10 -height 1 -background white \ - -yscrollcommand [list $f.vs set] -font {Arial 8} - ttk::scrollbar $f.vs -command [list $f.txt yview] - - variable delay 600 - variable continuous 0 - ttk::frame $dlg.tf - ttk::label $dlg.tf.ls -text Speed - ttk::scale $dlg.tf.sc -from 8 -to 2000 -command [list SetDelay] \ - -variable [namespace which -variable delay] - ttk::checkbutton $dlg.tf.cc -text Repeat \ - -variable [namespace which -variable continuous] - ttk::button $dlg.tf.b1 -text Start -command [list Tour $dlg] - ttk::button $dlg.tf.b2 -text Exit -command [list Exit $dlg] - set square 0 - for {set row 7} {$row != -1} {incr row -1} { - for {set col 0} {$col < 8} {incr col} { - if {(($col & 1) ^ ($row & 1))} { - set fill tan3 ; set dfill tan4 - } else { - set fill bisque ; set dfill bisque3 - } - set coords [list [expr {$col * 30 + 4}] [expr {$row * 30 + 4}] \ - [expr {$col * 30 + 30}] [expr {$row * 30 + 30}]] - $c create rectangle $coords -fill $fill -disabledfill $dfill \ - -width 2 -state disabled - } - } - catch {eval font create KnightFont -size -24} - $c create text 0 0 -font KnightFont -text "\u265e" \ - -anchor nw -tags knight -fill black -activefill "#600000" - $c coords knight [lrange [$c coords [expr {1 + int(rand() * 64)}]] 0 1] - $c bind knight [namespace code [list DragStart %W %x %y]] - $c bind knight [namespace code [list DragMotion %W %x %y]] - $c bind knight [namespace code [list DragEnd %W %x %y]] - - grid $c $f.txt $f.vs -sticky news - grid rowconfigure $f 0 -weight 1 - grid columnconfigure $f 1 -weight 1 - - grid $f - - - - - -sticky news - set things [list $dlg.tf.ls $dlg.tf.sc $dlg.tf.cc $dlg.tf.b1] - if {![info exists ::widgetDemo]} { - lappend things $dlg.tf.b2 - if {[tk windowingsystem] ne "aqua"} { - set things [linsert $things 0 [ttk::sizegrip $dlg.tf.sg]] - } - } - pack {*}$things -side right - if {[tk windowingsystem] eq "aqua"} { - pack configure {*}$things -padx {4 4} -pady {12 12} - pack configure [lindex $things 0] -padx {4 24} - pack configure [lindex $things end] -padx {16 4} - } - grid $dlg.tf - - - - - -sticky ew - if {[info exists ::widgetDemo]} { - grid [addSeeDismiss $dlg.buttons $dlg] - - - - - -sticky ew - } - - grid rowconfigure $dlg 0 -weight 1 - grid columnconfigure $dlg 0 -weight 1 - - bind $dlg {console show} - bind $dlg [list $dlg.tf.b1 invoke] - bind $dlg [list $dlg.tf.b2 invoke] - bind $dlg [namespace code [list Stop]] - wm protocol $dlg WM_DELETE_WINDOW [namespace code [list Exit $dlg]] - - wm deiconify $dlg - tkwait window $dlg -} - -if {!$tcl_interactive} { - if {![winfo exists .knightstour]} { - if {![info exists widgetDemo]} { wm withdraw . } - set r [catch [linsert $argv 0 CreateGUI] err] - if {$r} { - tk_messageBox -icon error -title "Error" -message $err - } - if {![info exists widgetDemo]} { exit $r } - } -} diff --git a/mingw/lib/tk8.5/demos/label.tcl b/mingw/lib/tk8.5/demos/label.tcl deleted file mode 100644 index cb26e6dc3c..0000000000 --- a/mingw/lib/tk8.5/demos/label.tcl +++ /dev/null @@ -1,41 +0,0 @@ -# label.tcl -- -# -# This demonstration script creates a toplevel window containing -# several label widgets. -# -# RCS: @(#) $Id: label.tcl,v 1.6 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .label -catch {destroy $w} -toplevel $w -wm title $w "Label Demonstration" -wm iconname $w "label" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "Five labels are displayed below: three textual ones on the left, and a bitmap label and a text label on the right. Labels are pretty boring because you can't do anything with them." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.left -frame $w.right -pack $w.left $w.right -side left -expand yes -padx 10 -pady 10 -fill both - -label $w.left.l1 -text "First label" -label $w.left.l2 -text "Second label, raised" -relief raised -label $w.left.l3 -text "Third label, sunken" -relief sunken -pack $w.left.l1 $w.left.l2 $w.left.l3 -side top -expand yes -pady 2 -anchor w - -# Main widget program sets variable tk_demoDirectory -label $w.right.bitmap -borderwidth 2 -relief sunken \ - -bitmap @[file join $tk_demoDirectory images face.xbm] -label $w.right.caption -text "Tcl/Tk Proprietor" -pack $w.right.bitmap $w.right.caption -side top diff --git a/mingw/lib/tk8.5/demos/labelframe.tcl b/mingw/lib/tk8.5/demos/labelframe.tcl deleted file mode 100644 index 65411b1a25..0000000000 --- a/mingw/lib/tk8.5/demos/labelframe.tcl +++ /dev/null @@ -1,78 +0,0 @@ -# labelframe.tcl -- -# -# This demonstration script creates a toplevel window containing -# several labelframe widgets. -# -# RCS: @(#) $Id: labelframe.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .labelframe -catch {destroy $w} -toplevel $w -wm title $w "Labelframe Demonstration" -wm iconname $w "labelframe" -positionWindow $w - -# Some information - -label $w.msg -font $font -wraplength 4i -justify left -text "Labelframes are\ - used to group related widgets together. The label may be either \ - plain text or another widget." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -# Demo area - -frame $w.f -pack $w.f -side bottom -fill both -expand 1 -set w $w.f - -# A group of radiobuttons in a labelframe - -labelframe $w.f -text "Value" -padx 2 -pady 2 -grid $w.f -row 0 -column 0 -pady 2m -padx 2m - -foreach value {1 2 3 4} { - radiobutton $w.f.b$value -text "This is value $value" \ - -variable lfdummy -value $value - pack $w.f.b$value -side top -fill x -pady 2 -} - - -# Using a label window to control a group of options. - -proc lfEnableButtons {w} { - foreach child [winfo children $w] { - if {$child == "$w.cb"} continue - if {$::lfdummy2} { - $child configure -state normal - } else { - $child configure -state disabled - } - } -} - -labelframe $w.f2 -pady 2 -padx 2 -checkbutton $w.f2.cb -text "Use this option." -variable lfdummy2 \ - -command "lfEnableButtons $w.f2" -padx 0 -$w.f2 configure -labelwidget $w.f2.cb -grid $w.f2 -row 0 -column 1 -pady 2m -padx 2m - -set t 0 -foreach str {Option1 Option2 Option3} { - checkbutton $w.f2.b$t -text $str - pack $w.f2.b$t -side top -fill x -pady 2 - incr t -} -lfEnableButtons $w.f2 - - -grid columnconfigure $w {0 1} -weight 1 diff --git a/mingw/lib/tk8.5/demos/license.terms b/mingw/lib/tk8.5/demos/license.terms deleted file mode 100644 index 03ca6fcb31..0000000000 --- a/mingw/lib/tk8.5/demos/license.terms +++ /dev/null @@ -1,39 +0,0 @@ -This software is copyrighted by the Regents of the University of -California, Sun Microsystems, Inc., and other parties. The following -terms apply to all files associated with the software unless explicitly -disclaimed in individual files. - -The authors hereby grant permission to use, copy, modify, distribute, -and license this software and its documentation for any purpose, provided -that existing copyright notices are retained in all copies and that this -notice is included verbatim in any distributions. No written agreement, -license, or royalty fee is required for any of the authorized uses. -Modifications to this software may be copyrighted by their authors -and need not follow the licensing terms described here, provided that -the new terms are clearly indicated on the first page of each file where -they apply. - -IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY -FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES -ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY -DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE -POSSIBILITY OF SUCH DAMAGE. - -THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, -INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE -IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE -NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR -MODIFICATIONS. - -GOVERNMENT USE: If you are acquiring this software on behalf of the -U.S. government, the Government shall have only "Restricted Rights" -in the software and related documentation as defined in the Federal -Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you -are acquiring the software on behalf of the Department of Defense, the -software shall be classified as "Commercial Computer Software" and the -Government shall have only "Restricted Rights" as defined in Clause -252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the -authors grant the U.S. Government and others acting in its behalf -permission to use and distribute the software in accordance with the -terms specified in this license. diff --git a/mingw/lib/tk8.5/demos/mclist.tcl b/mingw/lib/tk8.5/demos/mclist.tcl deleted file mode 100644 index 18d8781841..0000000000 --- a/mingw/lib/tk8.5/demos/mclist.tcl +++ /dev/null @@ -1,98 +0,0 @@ -# mclist.tcl -- -# -# This demonstration script creates a toplevel window containing a Ttk -# tree widget configured as a multi-column listbox. -# -# RCS: @(#) $Id: mclist.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk -package require Ttk - -set w .mclist -catch {destroy $w} -toplevel $w -wm title $w "Multi-Column List" -wm iconname $w "mclist" -positionWindow $w - -## Explanatory text -ttk::label $w.msg -font $font -wraplength 4i -justify left -anchor n -padding {10 2 10 6} -text "Ttk is the new Tk themed widget set. One of the widgets it includes is a tree widget, which can be configured to display multiple columns of informational data without displaying the tree itself. This is a simple way to build a listbox that has multiple columns. Clicking on the heading for a column will sort the data by that column. You can also change the width of the columns by dragging the boundary between them." -pack $w.msg -fill x - -## See Code / Dismiss -pack [addSeeDismiss $w.seeDismiss $w] -side bottom -fill x - -ttk::frame $w.container -ttk::treeview $w.tree -columns {country capital currency} -show headings \ - -yscroll "$w.vsb set" -xscroll "$w.hsb set" -if {[tk windowingsystem] ne "aqua"} { - ttk::scrollbar $w.vsb -orient vertical -command "$w.tree yview" - ttk::scrollbar $w.hsb -orient horizontal -command "$w.tree xview" -} else { - scrollbar $w.vsb -orient vertical -command "$w.tree yview" - scrollbar $w.hsb -orient horizontal -command "$w.tree xview" -} -pack $w.container -fill both -expand 1 -grid $w.tree $w.vsb -in $w.container -sticky nsew -grid $w.hsb -in $w.container -sticky nsew -grid column $w.container 0 -weight 1 -grid row $w.container 0 -weight 1 - -## The data we're going to insert -set data { - Argentina {Buenos Aires} ARS - Australia Canberra AUD - Brazil Brazilia BRL - Canada Ottawa CAD - China Beijing CNY - France Paris EUR - Germany Berlin EUR - India {New Delhi} INR - Italy Rome EUR - Japan Tokyo JPY - Mexico {Mexico City} MXN - Russia Moscow RUB - {South Africa} Pretoria ZAR - {United Kingdom} London GBP - {United States} {Washington, D.C.} USD -} - -## Code to insert the data nicely -set font [ttk::style lookup [$w.tree cget -style] -font] -foreach col {country capital currency} name {Country Capital Currency} { - $w.tree heading $col -command [list SortBy $w.tree $col 0] -text $name - $w.tree column $col -width [font measure $font $name] -} -foreach {country capital currency} $data { - $w.tree insert {} end -values [list $country $capital $currency] - foreach col {country capital currency} { - set len [font measure $font "[set $col] "] - if {[$w.tree column $col -width] < $len} { - $w.tree column $col -width $len - } - } -} - -## Code to do the sorting of the tree contents when clicked on -proc SortBy {tree col direction} { - # Build something we can sort - set data {} - foreach row [$tree children {}] { - lappend data [list [$tree set $row $col] $row] - } - - set dir [expr {$direction ? "-decreasing" : "-increasing"}] - set r -1 - - # Now reshuffle the rows into the sorted order - foreach info [lsort -dictionary -index 0 $dir $data] { - $tree move [lindex $info 1] {} [incr r] - } - - # Switch the heading so that it will sort in the opposite direction - $tree heading $col -command [list SortBy $tree $col [expr {!$direction}]] -} diff --git a/mingw/lib/tk8.5/demos/menu.tcl b/mingw/lib/tk8.5/demos/menu.tcl deleted file mode 100644 index d1b7c1cb41..0000000000 --- a/mingw/lib/tk8.5/demos/menu.tcl +++ /dev/null @@ -1,163 +0,0 @@ -# menu.tcl -- -# -# This demonstration script creates a window with a bunch of menus -# and cascaded menus using menubars. -# -# RCS: @(#) $Id: menu.tcl,v 1.11 2007/04/23 21:16:00 das Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .menu -catch {destroy $w} -toplevel $w -wm title $w "Menu Demonstration" -wm iconname $w "menu" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -if {[tk windowingsystem] eq "aqua"} { - catch {set origUseCustomMDEF $::tk::mac::useCustomMDEF; set ::tk::mac::useCustomMDEF 1} - $w.msg configure -text "This window has a menubar with cascaded menus. You can invoke entries with an accelerator by typing Command+x, where \"x\" is the character next to the command key symbol. The rightmost menu can be torn off into a palette by selecting the first item in the menu." -} else { - $w.msg configure -text "This window contains a menubar with cascaded menus. You can post a menu from the keyboard by typing Alt+x, where \"x\" is the character underlined on the menu. You can then traverse among the menus using the arrow keys. When a menu is posted, you can invoke the current entry by typing space, or you can invoke any entry by typing its underlined character. If a menu entry has an accelerator, you can invoke the entry without posting the menu just by typing the accelerator. The rightmost menu can be torn off into a palette by selecting the first item in the menu." -} -pack $w.msg -side top - -set menustatus " " -frame $w.statusBar -label $w.statusBar.label -textvariable menustatus -relief sunken -bd 1 -font "Helvetica 10" -anchor w -pack $w.statusBar.label -side left -padx 2 -expand yes -fill both -pack $w.statusBar -side bottom -fill x -pady 2 - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -menu $w.menu -tearoff 0 - -set m $w.menu.file -menu $m -tearoff 0 -$w.menu add cascade -label "File" -menu $m -underline 0 -$m add command -label "Open..." -command {error "this is just a demo: no action has been defined for the \"Open...\" entry"} -$m add command -label "New" -command {error "this is just a demo: no action has been defined for the \"New\" entry"} -$m add command -label "Save" -command {error "this is just a demo: no action has been defined for the \"Save\" entry"} -$m add command -label "Save As..." -command {error "this is just a demo: no action has been defined for the \"Save As...\" entry"} -$m add separator -$m add command -label "Print Setup..." -command {error "this is just a demo: no action has been defined for the \"Print Setup...\" entry"} -$m add command -label "Print..." -command {error "this is just a demo: no action has been defined for the \"Print...\" entry"} -$m add separator -$m add command -label "Dismiss Menus Demo" -command "destroy $w" - -set m $w.menu.basic -$w.menu add cascade -label "Basic" -menu $m -underline 0 -menu $m -tearoff 0 -$m add command -label "Long entry that does nothing" -if {[tk windowingsystem] eq "aqua"} { - set modifier Command -} elseif {$tcl_platform(platform) == "windows"} { - set modifier Control -} else { - set modifier Meta -} -foreach i {A B C D E F} { - $m add command -label "Print letter \"$i\"" -underline 14 \ - -accelerator Meta+$i -command "puts $i" -accelerator $modifier+$i - bind $w <$modifier-[string tolower $i]> "puts $i" -} - -set m $w.menu.cascade -$w.menu add cascade -label "Cascades" -menu $m -underline 0 -menu $m -tearoff 0 -$m add command -label "Print hello" \ - -command {puts stdout "Hello"} -accelerator $modifier+H -underline 6 -bind $w <$modifier-h> {puts stdout "Hello"} -$m add command -label "Print goodbye" -command {\ - puts stdout "Goodbye"} -accelerator $modifier+G -underline 6 -bind $w <$modifier-g> {puts stdout "Goodbye"} -$m add cascade -label "Check buttons" \ - -menu $w.menu.cascade.check -underline 0 -$m add cascade -label "Radio buttons" \ - -menu $w.menu.cascade.radio -underline 0 - -set m $w.menu.cascade.check -menu $m -tearoff 0 -$m add check -label "Oil checked" -variable oil -$m add check -label "Transmission checked" -variable trans -$m add check -label "Brakes checked" -variable brakes -$m add check -label "Lights checked" -variable lights -$m add separator -$m add command -label "Show current values" \ - -command "showVars $w.menu.cascade.dialog oil trans brakes lights" -$m invoke 1 -$m invoke 3 - -set m $w.menu.cascade.radio -menu $m -tearoff 0 -$m add radio -label "10 point" -variable pointSize -value 10 -$m add radio -label "14 point" -variable pointSize -value 14 -$m add radio -label "18 point" -variable pointSize -value 18 -$m add radio -label "24 point" -variable pointSize -value 24 -$m add radio -label "32 point" -variable pointSize -value 32 -$m add sep -$m add radio -label "Roman" -variable style -value roman -$m add radio -label "Bold" -variable style -value bold -$m add radio -label "Italic" -variable style -value italic -$m add sep -$m add command -label "Show current values" \ - -command "showVars $w.menu.cascade.dialog pointSize style" -$m invoke 1 -$m invoke 7 - -set m $w.menu.icon -$w.menu add cascade -label "Icons" -menu $m -underline 0 -menu $m -tearoff 0 -# Main widget program sets variable tk_demoDirectory -$m add command -bitmap @[file join $tk_demoDirectory images pattern.xbm] \ - -hidemargin 1 -command [list \ - tk_dialog $w.pattern {Bitmap Menu Entry} \ - "The menu entry you invoked displays a bitmap rather than\ - a text string. Other than this, it is just like any other\ - menu entry." {} 0 OK ] -foreach i {info questhead error} { - $m add command -bitmap $i -hidemargin 1 -command [list \ - puts "You invoked the $i bitmap" ] -} -$m entryconfigure 2 -columnbreak 1 - -set m $w.menu.more -$w.menu add cascade -label "More" -menu $m -underline 0 -menu $m -tearoff 0 -foreach i {{An entry} {Another entry} {Does nothing} {Does almost nothing} {Make life meaningful}} { - $m add command -label $i -command [list puts "You invoked \"$i\""] -} -$m entryconfigure "Does almost nothing" -bitmap questhead -compound left \ - -command [list \ - tk_dialog $w.compound {Compound Menu Entry} \ - "The menu entry you invoked displays both a bitmap and a\ - text string. Other than this, it is just like any other\ - menu entry." {} 0 OK ] - -set m $w.menu.colors -$w.menu add cascade -label "Colors" -menu $m -underline 1 -menu $m -tearoff 1 -foreach i {red orange yellow green blue} { - $m add command -label $i -background $i -command [list \ - puts "You invoked \"$i\"" ] -} - -$w configure -menu $w.menu - -bind Menu <> { - global $menustatus - if {[catch {%W entrycget active -label} label]} { - set label " " - } - set menustatus $label - update idletasks -} - -if {[tk windowingsystem] eq "aqua"} {catch {set ::tk::mac::useCustomMDEF $origUseCustomMDEF}} diff --git a/mingw/lib/tk8.5/demos/menubu.tcl b/mingw/lib/tk8.5/demos/menubu.tcl deleted file mode 100644 index cec3284568..0000000000 --- a/mingw/lib/tk8.5/demos/menubu.tcl +++ /dev/null @@ -1,92 +0,0 @@ -# menubu.tcl -- -# -# This demonstration script creates a window with a bunch of menus -# and cascaded menus using menubuttons. -# -# # RCS: @(#) $Id: menubu.tcl,v 1.6 2007/04/23 21:16:01 das Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .menubu -catch {destroy $w} -toplevel $w -wm title $w "Menu Button Demonstration" -wm iconname $w "menubutton" -positionWindow $w - -frame $w.body -pack $w.body -expand 1 -fill both -if {[tk windowingsystem] eq "aqua"} {catch {set origUseCustomMDEF $::tk::mac::useCustomMDEF; set ::tk::mac::useCustomMDEF 1}} - -menubutton $w.body.below -text "Below" -underline 0 -direction below -menu $w.body.below.m -relief raised -menu $w.body.below.m -tearoff 0 -$w.body.below.m add command -label "Below menu: first item" -command "puts \"You have selected the first item from the Below menu.\"" -$w.body.below.m add command -label "Below menu: second item" -command "puts \"You have selected the second item from the Below menu.\"" -grid $w.body.below -row 0 -column 1 -sticky n -menubutton $w.body.right -text "Right" -underline 0 -direction right -menu $w.body.right.m -relief raised -menu $w.body.right.m -tearoff 0 -$w.body.right.m add command -label "Right menu: first item" -command "puts \"You have selected the first item from the Right menu.\"" -$w.body.right.m add command -label "Right menu: second item" -command "puts \"You have selected the second item from the Right menu.\"" -frame $w.body.center -menubutton $w.body.left -text "Left" -underline 0 -direction left -menu $w.body.left.m -relief raised -menu $w.body.left.m -tearoff 0 -$w.body.left.m add command -label "Left menu: first item" -command "puts \"You have selected the first item from the Left menu.\"" -$w.body.left.m add command -label "Left menu: second item" -command "puts \"You have selected the second item from the Left menu.\"" -grid $w.body.right -row 1 -column 0 -sticky w -grid $w.body.center -row 1 -column 1 -sticky news -grid $w.body.left -row 1 -column 2 -sticky e -menubutton $w.body.above -text "Above" -underline 0 -direction above -menu $w.body.above.m -relief raised -menu $w.body.above.m -tearoff 0 -$w.body.above.m add command -label "Above menu: first item" -command "puts \"You have selected the first item from the Above menu.\"" -$w.body.above.m add command -label "Above menu: second item" -command "puts \"You have selected the second item from the Above menu.\"" -grid $w.body.above -row 2 -column 1 -sticky s - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -set body $w.body.center -label $body.label -wraplength 300 -font "Helvetica 14" -justify left -text "This is a demonstration of menubuttons. The \"Below\" menubutton pops its menu below the button; the \"Right\" button pops to the right, etc. There are two option menus directly below this text; one is just a standard menu and the other is a 16-color palette." -pack $body.label -side top -padx 25 -pady 25 -frame $body.buttons -pack $body.buttons -padx 25 -pady 25 -tk_optionMenu $body.buttons.options menubuttonoptions one two three -pack $body.buttons.options -side left -padx 25 -pady 25 -set m [tk_optionMenu $body.buttons.colors paletteColor Black red4 DarkGreen NavyBlue gray75 Red Green Blue gray50 Yellow Cyan Magenta White Brown DarkSeaGreen DarkViolet] -if {[tk windowingsystem] eq "aqua"} { - set topBorderColor Black - set bottomBorderColor Black -} else { - set topBorderColor gray50 - set bottomBorderColor gray75 -} -for {set i 0} {$i <= [$m index last]} {incr i} { - set name [$m entrycget $i -label] - image create photo image_$name -height 16 -width 16 - image_$name put $topBorderColor -to 0 0 16 1 - image_$name put $topBorderColor -to 0 1 1 16 - image_$name put $bottomBorderColor -to 0 15 16 16 - image_$name put $bottomBorderColor -to 15 1 16 16 - image_$name put $name -to 1 1 15 15 - - image create photo image_${name}_s -height 16 -width 16 - image_${name}_s put Black -to 0 0 16 2 - image_${name}_s put Black -to 0 2 2 16 - image_${name}_s put Black -to 2 14 16 16 - image_${name}_s put Black -to 14 2 16 14 - image_${name}_s put $name -to 2 2 14 14 - - $m entryconfigure $i -image image_$name -selectimage image_${name}_s -hidemargin 1 -} -$m configure -tearoff 1 -foreach i {Black gray75 gray50 White} { - $m entryconfigure $i -columnbreak 1 -} - -pack $body.buttons.colors -side left -padx 25 -pady 25 - -if {[tk windowingsystem] eq "aqua"} {catch {set ::tk::mac::useCustomMDEF $origUseCustomMDEF}} diff --git a/mingw/lib/tk8.5/demos/msgbox.tcl b/mingw/lib/tk8.5/demos/msgbox.tcl deleted file mode 100644 index fb986e198f..0000000000 --- a/mingw/lib/tk8.5/demos/msgbox.tcl +++ /dev/null @@ -1,65 +0,0 @@ -# msgbox.tcl -- -# -# This demonstration script creates message boxes of various type -# -# RCS: @(#) $Id: msgbox.tcl,v 1.6 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk -package require Ttk - -set w .msgbox -catch {destroy $w} -toplevel $w -wm title $w "Message Box Demonstration" -wm iconname $w "messagebox" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "Choose the icon and type option of the message box. Then press the \"Message Box\" button to see the message box." -pack $w.msg -side top - -pack [addSeeDismiss $w.buttons $w {} { - ttk::button $w.buttons.vars -text "Message Box" -command "showMessageBox $w" -}] -side bottom -fill x -#pack $w.buttons.dismiss $w.buttons.code $w.buttons.vars -side left -expand 1 - -frame $w.left -frame $w.right -pack $w.left $w.right -side left -expand yes -fill y -pady .5c -padx .5c - -label $w.left.label -text "Icon" -frame $w.left.sep -relief ridge -bd 1 -height 2 -pack $w.left.label -side top -pack $w.left.sep -side top -fill x -expand no - -set msgboxIcon info -foreach i {error info question warning} { - radiobutton $w.left.b$i -text $i -variable msgboxIcon \ - -relief flat -value $i -width 16 -anchor w - pack $w.left.b$i -side top -pady 2 -anchor w -fill x -} - -label $w.right.label -text "Type" -frame $w.right.sep -relief ridge -bd 1 -height 2 -pack $w.right.label -side top -pack $w.right.sep -side top -fill x -expand no - -set msgboxType ok -foreach t {abortretryignore ok okcancel retrycancel yesno yesnocancel} { - radiobutton $w.right.$t -text $t -variable msgboxType \ - -relief flat -value $t -width 16 -anchor w - pack $w.right.$t -side top -pady 2 -anchor w -fill x -} - -proc showMessageBox {w} { - global msgboxIcon msgboxType - set button [tk_messageBox -icon $msgboxIcon -type $msgboxType \ - -title Message -parent $w\ - -message "This is a \"$msgboxType\" type messagebox with the \"$msgboxIcon\" icon"] - - tk_messageBox -icon info -message "You have selected \"$button\"" -type ok\ - -parent $w -} diff --git a/mingw/lib/tk8.5/demos/nl.msg b/mingw/lib/tk8.5/demos/nl.msg deleted file mode 100644 index b17ceaafe1..0000000000 --- a/mingw/lib/tk8.5/demos/nl.msg +++ /dev/null @@ -1,125 +0,0 @@ -::msgcat::mcset nl "Widget Demonstration" "Demonstratie van widgets" -::msgcat::mcset nl "tkWidgetDemo" "tkWidgetDemo" -::msgcat::mcset nl "&File" "&Bestand" -::msgcat::mcset nl "About..." "Info..." -::msgcat::mcset nl "&About..." "&Info..." -::msgcat::mcset nl "" "" -::msgcat::mcset nl "&Quit" "&Einde" -::msgcat::mcset nl "Meta+Q" "Meta+E" ;# Displayed hotkey -::msgcat::mcset nl "Meta-q" "Meta-e" ;# Actual binding sequence -::msgcat::mcset nl "Ctrl+Q" "Ctrl+E" ;# Displayed hotkey -::msgcat::mcset nl "Control-q" "Control-e" ;# Actual binding sequence -::msgcat::mcset nl "Dismiss" "Sluiten" -::msgcat::mcset nl "See Variables" "Bekijk Variabelen" -::msgcat::mcset nl "Variable Values" "Waarden Variabelen" -::msgcat::mcset nl "OK" "OK" -::msgcat::mcset nl "Run the \"%s\" sample program" "Start voorbeeld \"%s\"" -::msgcat::mcset nl "Print Code" "Code Afdrukken" -::msgcat::mcset nl "Demo code: %s" "Code van Demo %s" -::msgcat::mcset nl "About Widget Demo" "Over deze demonstratie" -::msgcat::mcset nl "Tk widget demonstration" "Demonstratie van Tk widgets" -::msgcat::mcset nl "Copyright (c) %s" "Copyright (c) %s" - -::msgcat::mcset nl "Tk Widget Demonstrations" "Demostratie van Tk widgets" -::msgcat::mcset nl "This application provides a front end for several short scripts" \ - "Dit programma is een schil rond enkele korte scripts waarmee" -::msgcat::mcset nl "that demonstrate what you can do with Tk widgets. Each of the" \ - "gedemonstreerd wordt wat je kunt doen met Tk widgets. Elk van de" -::msgcat::mcset nl "numbered lines below describes a demonstration; you can click on" \ - "genummerde regels hieronder omschrijft een demonstratie; je kunt de" -::msgcat::mcset nl "it to invoke the demonstration. Once the demonstration window" \ - "demonstratie starten door op de regel te klikken." -::msgcat::mcset nl "appears, you can click the" \ - "Zodra het nieuwe venster verschijnt, kun je op de knop" -::msgcat::mcset nl "See Code" "Bekijk Code" ;# This is also button text! -::msgcat::mcset nl "button to see the Tcl/Tk code that created the demonstration. If" \ - "drukken om de achterliggende Tcl/Tk code te zien. Als je dat wilt," -::msgcat::mcset nl "you wish, you can edit the code and click the" \ - "kun je de code wijzigen en op de knop" -::msgcat::mcset nl "Rerun Demo" "Herstart Demo" ;# This is also button text! -::msgcat::mcset nl "button in the code window to reinvoke the demonstration with the" \ - "drukken in het codevenster om de demonstratie uit te voeren met de" -::msgcat::mcset nl "modified code." \ - "nieuwe code." - -::msgcat::mcset nl "Labels, buttons, checkbuttons, and radiobuttons" \ - "Labels, knoppen, vinkjes/aankruishokjes en radioknoppen" - -::msgcat::mcset nl "Labels (text and bitmaps)" "Labels (tekst en plaatjes)" -::msgcat::mcset nl "Labels and UNICODE text" "Labels en tekst in UNICODE" -::msgcat::mcset nl "Buttons" "Buttons (drukknoppen)" -::msgcat::mcset nl "Check-buttons (select any of a group)" \ - "Check-buttons (een of meer uit een groep)" -::msgcat::mcset nl "Radio-buttons (select one of a group)" \ - "Radio-buttons (een van een groep)" -::msgcat::mcset nl "A 15-puzzle game made out of buttons" \ - "Een schuifpuzzel van buttons" -::msgcat::mcset nl "Iconic buttons that use bitmaps" \ - "Buttons met pictogrammen" -::msgcat::mcset nl "Two labels displaying images" \ - "Twee labels met plaatjes in plaats van tekst" -::msgcat::mcset nl "A simple user interface for viewing images" \ - "Een eenvoudige user-interface voor het bekijken van plaatjes" -::msgcat::mcset nl "Labelled frames" \ - "Kaders met bijschrift" - -::msgcat::mcset nl "Listboxes" "Keuzelijsten" -::msgcat::mcset nl "The 50 states" "De 50 staten van de VS" -::msgcat::mcset nl "Colors: change the color scheme for the application" \ - "Kleuren: verander het kleurenschema voor het programma" -::msgcat::mcset nl "A collection of famous and infamous sayings" \ - "Beroemde en beruchte citaten en gezegden" - -::msgcat::mcset nl "Entries and Spin-boxes" "Invulvelden en Spinboxen" -::msgcat::mcset nl "Entries without scrollbars" "Invulvelden zonder schuifbalk" -::msgcat::mcset nl "Entries with scrollbars" "Invulvelden met schuifbalk" -::msgcat::mcset nl "Validated entries and password fields" \ - "Invulvelden met controle of wachtwoorden" -::msgcat::mcset nl "Spin-boxes" "Spinboxen" -::msgcat::mcset nl "Simple Rolodex-like form" "Simpel kaartsysteem" - -::msgcat::mcset nl "Text" "Tekst" -::msgcat::mcset nl "Basic editable text" "Voorbeeld met te wijzigen tekst" -::msgcat::mcset nl "Text display styles" "Tekst met verschillende stijlen" -::msgcat::mcset nl "Hypertext (tag bindings)" \ - "Hypertext (verwijzingen via \"tags\")" -::msgcat::mcset nl "A text widget with embedded windows" \ - "Tekstwidget met windows erin" -::msgcat::mcset nl "A search tool built with a text widget" \ - "Zoeken in tekst met behulp van een tekstwidget" - -::msgcat::mcset nl "Canvases" "Canvaswidgets" -::msgcat::mcset nl "The canvas item types" "Objecten in een canvas" -::msgcat::mcset nl "A simple 2-D plot" "Eenvoudige 2D-grafiek" -::msgcat::mcset nl "Text items in canvases" "Tekstobjecten in een canvas" -::msgcat::mcset nl "An editor for arrowheads on canvas lines" \ - "Editor voor de vorm van de pijl (begin/eind van een lijn)" -::msgcat::mcset nl "A ruler with adjustable tab stops" \ - "Een meetlat met aanpasbare ruiters" -::msgcat::mcset nl "A building floor plan" "Plattegrond van een gebouw" -::msgcat::mcset nl "A simple scrollable canvas" "Een schuifbaar canvas" - -::msgcat::mcset nl "Scales" "Schaalverdelingen" -::msgcat::mcset nl "Horizontal scale" "Horizontale schaal" -::msgcat::mcset nl "Vertical scale" "Verticale schaal" - -::msgcat::mcset nl "Paned Windows" "Vensters opgedeeld in stukken" -::msgcat::mcset nl "Horizontal paned window" "Horizontaal gedeeld venster" -::msgcat::mcset nl "Vertical paned window" "Verticaal gedeeld venster" - -::msgcat::mcset nl "Menus" "Menu's" -::msgcat::mcset nl "Menus and cascades (sub-menus)" \ - "Menu's en cascades (submenu's)" -::msgcat::mcset nl "Menu-buttons" "Menu-buttons" - -::msgcat::mcset nl "Common Dialogs" "Veel voorkomende dialoogvensters" -::msgcat::mcset nl "Message boxes" "Mededeling (message box)" -::msgcat::mcset nl "File selection dialog" "Selectie van bestanden" -::msgcat::mcset nl "Color picker" "Kleurenpalet" - -::msgcat::mcset nl "Miscellaneous" "Diversen" -::msgcat::mcset nl "The built-in bitmaps" "Ingebouwde plaatjes" -::msgcat::mcset nl "A dialog box with a local grab" \ - "Een dialoogvenster met een locale \"grab\"" -::msgcat::mcset nl "A dialog box with a global grab" \ - "Een dialoogvenster met een globale \"grab\"" diff --git a/mingw/lib/tk8.5/demos/paned1.tcl b/mingw/lib/tk8.5/demos/paned1.tcl deleted file mode 100644 index 1c9e3e620c..0000000000 --- a/mingw/lib/tk8.5/demos/paned1.tcl +++ /dev/null @@ -1,34 +0,0 @@ -# paned1.tcl -- -# -# This demonstration script creates a toplevel window containing -# a paned window that separates two windows horizontally. -# -# RCS: @(#) $Id: paned1.tcl,v 1.3 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .paned1 -catch {destroy $w} -toplevel $w -wm title $w "Horizontal Paned Window Demonstration" -wm iconname $w "paned1" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "The sash between the two coloured windows below can be used to divide the area between them. Use the left mouse button to resize without redrawing by just moving the sash, and use the middle mouse button to resize opaquely (always redrawing the windows in each position.)" -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -panedwindow $w.pane -pack $w.pane -side top -expand yes -fill both -pady 2 -padx 2m - -label $w.pane.left -text "This is the\nleft side" -bg yellow -label $w.pane.right -text "This is the\nright side" -bg cyan - -$w.pane add $w.pane.left $w.pane.right diff --git a/mingw/lib/tk8.5/demos/paned2.tcl b/mingw/lib/tk8.5/demos/paned2.tcl deleted file mode 100644 index 9e7213973b..0000000000 --- a/mingw/lib/tk8.5/demos/paned2.tcl +++ /dev/null @@ -1,76 +0,0 @@ -# paned2.tcl -- -# -# This demonstration script creates a toplevel window containing -# a paned window that separates two windows vertically. -# -# RCS: @(#) $Id: paned2.tcl,v 1.3 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .paned2 -catch {destroy $w} -toplevel $w -wm title $w "Vertical Paned Window Demonstration" -wm iconname $w "paned2" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "The sash between the two scrolled windows below can be used to divide the area between them. Use the left mouse button to resize without redrawing by just moving the sash, and use the middle mouse button to resize opaquely (always redrawing the windows in each position.)" -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -# Create the pane itself -panedwindow $w.pane -orient vertical -pack $w.pane -side top -expand yes -fill both -pady 2 -padx 2m - -# The top window is a listbox with scrollbar -set paneList { - {List of Tk Widgets} - button - canvas - checkbutton - entry - frame - label - labelframe - listbox - menu - menubutton - message - panedwindow - radiobutton - scale - scrollbar - spinbox - text - toplevel -} -set f [frame $w.pane.top] -listbox $f.list -listvariable paneList -yscrollcommand "$f.scr set" -# Invert the first item to highlight it -$f.list itemconfigure 0 \ - -background [$f.list cget -fg] -foreground [$f.list cget -bg] -scrollbar $f.scr -orient vertical -command "$f.list yview" -pack $f.scr -side right -fill y -pack $f.list -fill both -expand 1 - -# The bottom window is a text widget with scrollbar -set f [frame $w.pane.bottom] -text $f.text -xscrollcommand "$f.xscr set" -yscrollcommand "$f.yscr set" \ - -width 30 -height 8 -wrap none -scrollbar $f.xscr -orient horizontal -command "$f.text xview" -scrollbar $f.yscr -orient vertical -command "$f.text yview" -grid $f.text $f.yscr -sticky nsew -grid $f.xscr -sticky nsew -grid columnconfigure $f 0 -weight 1 -grid rowconfigure $f 0 -weight 1 -$f.text insert 1.0 "This is just a normal text widget" - -# Now add our contents to the paned window -$w.pane add $w.pane.top $w.pane.bottom diff --git a/mingw/lib/tk8.5/demos/pendulum.tcl b/mingw/lib/tk8.5/demos/pendulum.tcl deleted file mode 100644 index b70cbf12a9..0000000000 --- a/mingw/lib/tk8.5/demos/pendulum.tcl +++ /dev/null @@ -1,196 +0,0 @@ -# pendulum.tcl -- -# -# This demonstration illustrates how Tcl/Tk can be used to construct -# simulations of physical systems. -# -# RCS: @(#) $Id: pendulum.tcl,v 1.3 2006/10/17 05:52:40 das Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .pendulum -catch {destroy $w} -toplevel $w -wm title $w "Pendulum Animation Demonstration" -wm iconname $w "pendulum" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "This demonstration shows how Tcl/Tk can be used to carry out animations that are linked to simulations of physical systems. In the left canvas is a graphical representation of the physical system itself, a simple pendulum, and in the right canvas is a graph of the phase space of the system, which is a plot of the angle (relative to the vertical) against the angular velocity. The pendulum bob may be repositioned by clicking and dragging anywhere on the left canvas." -pack $w.msg - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -# Create some structural widgets -pack [panedwindow $w.p] -fill both -expand 1 -$w.p add [labelframe $w.p.l1 -text "Pendulum Simulation"] -$w.p add [labelframe $w.p.l2 -text "Phase Space"] - -# Create the canvas containing the graphical representation of the -# simulated system. -canvas $w.c -width 320 -height 200 -background white -bd 2 -relief sunken -$w.c create text 5 5 -anchor nw -text "Click to Adjust Bob Start Position" -# Coordinates of these items don't matter; they will be set properly below -$w.c create line 0 25 320 25 -width 2 -fill grey50 -tags plate -$w.c create line 1 1 1 1 -tags pendulumRod -width 3 -fill black -$w.c create oval 1 1 2 2 -tags pendulumBob -fill yellow -outline black -$w.c create oval 155 20 165 30 -fill grey50 -outline {} -pack $w.c -in $w.p.l1 -fill both -expand true - -# Create the canvas containing the phase space graph; this consists of -# a line that gets gradually paler as it ages, which is an extremely -# effective visual trick. -canvas $w.k -width 320 -height 200 -background white -bd 2 -relief sunken -$w.k create line 160 200 160 0 -fill grey75 -arrow last -tags y_axis -$w.k create line 0 100 320 100 -fill grey75 -arrow last -tags x_axis -for {set i 90} {$i>=0} {incr i -10} { - # Coordinates of these items don't matter; they will be set properly below - $w.k create line 0 0 1 1 -smooth true -tags graph$i -fill grey$i -} -# FIXME: UNICODE labels -$w.k create text 0 0 -anchor ne -text "q" -font {Symbol 8} -tags label_theta -$w.k create text 0 0 -anchor ne -text "dq" -font {Symbol 8} -tags label_dtheta -pack $w.k -in $w.p.l2 -fill both -expand true - -# Initialize some variables -set points {} -set Theta 45.0 -set dTheta 0.0 -set pi 3.1415926535897933 -set length 150 - -# This procedure makes the pendulum appear at the correct place on the -# canvas. If the additional arguments "at $x $y" are passed (the 'at' -# is really just syntactic sugar) instead of computing the position of -# the pendulum from the length of the pendulum rod and its angle, the -# length and angle are computed in reverse from the given location -# (which is taken to be the centre of the pendulum bob.) -proc showPendulum {canvas {at {}} {x {}} {y {}}} { - global Theta dTheta pi length - if {$at eq "at" && ($x!=160 || $y!=25)} { - set dTheta 0.0 - set x2 [expr {$x-160}] - set y2 [expr {$y-25}] - set length [expr {hypot($x2,$y2)}] - set Theta [expr {atan2($x2,$y2)*180/$pi}] - } else { - set angle [expr {$Theta * $pi/180}] - set x [expr {160+$length*sin($angle)}] - set y [expr {25+$length*cos($angle)}] - } - $canvas coords pendulumRod 160 25 $x $y - $canvas coords pendulumBob \ - [expr {$x-15}] [expr {$y-15}] [expr {$x+15}] [expr {$y+15}] -} -showPendulum $w.c - -# Update the phase-space graph according to the current angle and the -# rate at which the angle is changing (the first derivative with -# respect to time.) -proc showPhase {canvas} { - global Theta dTheta points psw psh - lappend points [expr {$Theta+$psw}] [expr {-20*$dTheta+$psh}] - if {[llength $points] > 100} { - set points [lrange $points end-99 end] - } - for {set i 0} {$i<100} {incr i 10} { - set list [lrange $points end-[expr {$i-1}] end-[expr {$i-12}]] - if {[llength $list] >= 4} { - $canvas coords graph$i $list - } - } -} - -# Set up some bindings on the canvases. Note that when the user -# clicks we stop the animation until they release the mouse -# button. Also note that both canvases are sensitive to -# events, which allows them to find out when they have been resized by -# the user. -bind $w.c { - after cancel $animationCallbacks(pendulum) - unset animationCallbacks(pendulum) -} -bind $w.c <1> { - after cancel $animationCallbacks(pendulum) - showPendulum %W at %x %y -} -bind $w.c { - showPendulum %W at %x %y -} -bind $w.c { - showPendulum %W at %x %y - set animationCallbacks(pendulum) [after 15 repeat [winfo toplevel %W]] -} -bind $w.c { - %W coords plate 0 25 %w 25 -} -bind $w.k { - set psh [expr %h/2] - set psw [expr %w/2] - %W coords x_axis 2 $psh [expr %w-2] $psh - %W coords y_axis $psw [expr %h-2] $psw 2 - %W coords label_dtheta [expr $psw-4] 6 - %W coords label_theta [expr %w-6] [expr $psh+4] -} - -# This procedure is the "business" part of the simulation that does -# simple numerical integration of the formula for a simple rotational -# pendulum. -proc recomputeAngle {} { - global Theta dTheta pi length - set scaling [expr {3000.0/$length/$length}] - - # To estimate the integration accurately, we really need to - # compute the end-point of our time-step. But to do *that*, we - # need to estimate the integration accurately! So we try this - # technique, which is inaccurate, but better than doing it in a - # single step. What we really want is bound up in the - # differential equation: - # .. - sin theta - # theta + theta = ----------- - # length - # But my math skills are not good enough to solve this! - - # first estimate - set firstDDTheta [expr {-sin($Theta * $pi/180)*$scaling}] - set midDTheta [expr {$dTheta + $firstDDTheta}] - set midTheta [expr {$Theta + ($dTheta + $midDTheta)/2}] - # second estimate - set midDDTheta [expr {-sin($midTheta * $pi/180)*$scaling}] - set midDTheta [expr {$dTheta + ($firstDDTheta + $midDDTheta)/2}] - set midTheta [expr {$Theta + ($dTheta + $midDTheta)/2}] - # Now we do a double-estimate approach for getting the final value - # first estimate - set midDDTheta [expr {-sin($midTheta * $pi/180)*$scaling}] - set lastDTheta [expr {$midDTheta + $midDDTheta}] - set lastTheta [expr {$midTheta + ($midDTheta + $lastDTheta)/2}] - # second estimate - set lastDDTheta [expr {-sin($lastTheta * $pi/180)*$scaling}] - set lastDTheta [expr {$midDTheta + ($midDDTheta + $lastDDTheta)/2}] - set lastTheta [expr {$midTheta + ($midDTheta + $lastDTheta)/2}] - # Now put the values back in our globals - set dTheta $lastDTheta - set Theta $lastTheta -} - -# This method ties together the simulation engine and the graphical -# display code that visualizes it. -proc repeat w { - global animationCallbacks - - # Simulate - recomputeAngle - - # Update the display - showPendulum $w.c - showPhase $w.k - - # Reschedule ourselves - set animationCallbacks(pendulum) [after 15 [list repeat $w]] -} -# Start the simulation after a short pause -set animationCallbacks(pendulum) [after 500 [list repeat $w]] diff --git a/mingw/lib/tk8.5/demos/plot.tcl b/mingw/lib/tk8.5/demos/plot.tcl deleted file mode 100644 index 82a2c609ed..0000000000 --- a/mingw/lib/tk8.5/demos/plot.tcl +++ /dev/null @@ -1,99 +0,0 @@ -# plot.tcl -- -# -# This demonstration script creates a canvas widget showing a 2-D -# plot with data points that can be dragged with the mouse. -# -# RCS: @(#) $Id: plot.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .plot -catch {destroy $w} -toplevel $w -wm title $w "Plot Demonstration" -wm iconname $w "Plot" -positionWindow $w -set c $w.c - -label $w.msg -font $font -wraplength 4i -justify left -text "This window displays a canvas widget containing a simple 2-dimensional plot. You can doctor the data by dragging any of the points with mouse button 1." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -canvas $c -relief raised -width 450 -height 300 -pack $w.c -side top -fill x - -set plotFont {Helvetica 18} - -$c create line 100 250 400 250 -width 2 -$c create line 100 250 100 50 -width 2 -$c create text 225 20 -text "A Simple Plot" -font $plotFont -fill brown - -for {set i 0} {$i <= 10} {incr i} { - set x [expr {100 + ($i*30)}] - $c create line $x 250 $x 245 -width 2 - $c create text $x 254 -text [expr {10*$i}] -anchor n -font $plotFont -} -for {set i 0} {$i <= 5} {incr i} { - set y [expr {250 - ($i*40)}] - $c create line 100 $y 105 $y -width 2 - $c create text 96 $y -text [expr {$i*50}].0 -anchor e -font $plotFont -} - -foreach point { - {12 56} {20 94} {33 98} {32 120} {61 180} {75 160} {98 223} -} { - set x [expr {100 + (3*[lindex $point 0])}] - set y [expr {250 - (4*[lindex $point 1])/5}] - set item [$c create oval [expr {$x-6}] [expr {$y-6}] \ - [expr {$x+6}] [expr {$y+6}] -width 1 -outline black \ - -fill SkyBlue2] - $c addtag point withtag $item -} - -$c bind point "$c itemconfig current -fill red" -$c bind point "$c itemconfig current -fill SkyBlue2" -$c bind point <1> "plotDown $c %x %y" -$c bind point "$c dtag selected" -bind $c "plotMove $c %x %y" - -set plot(lastX) 0 -set plot(lastY) 0 - -# plotDown -- -# This procedure is invoked when the mouse is pressed over one of the -# data points. It sets up state to allow the point to be dragged. -# -# Arguments: -# w - The canvas window. -# x, y - The coordinates of the mouse press. - -proc plotDown {w x y} { - global plot - $w dtag selected - $w addtag selected withtag current - $w raise current - set plot(lastX) $x - set plot(lastY) $y -} - -# plotMove -- -# This procedure is invoked during mouse motion events. It drags the -# current item. -# -# Arguments: -# w - The canvas window. -# x, y - The coordinates of the mouse. - -proc plotMove {w x y} { - global plot - $w move selected [expr {$x-$plot(lastX)}] [expr {$y-$plot(lastY)}] - set plot(lastX) $x - set plot(lastY) $y -} diff --git a/mingw/lib/tk8.5/demos/puzzle.tcl b/mingw/lib/tk8.5/demos/puzzle.tcl deleted file mode 100644 index 485f69c7b0..0000000000 --- a/mingw/lib/tk8.5/demos/puzzle.tcl +++ /dev/null @@ -1,84 +0,0 @@ -# puzzle.tcl -- -# -# This demonstration script creates a 15-puzzle game using a collection -# of buttons. -# -# RCS: @(#) $Id: puzzle.tcl,v 1.7 2007/04/23 21:16:01 das Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -# puzzleSwitch -- -# This procedure is invoked when the user clicks on a particular button; -# if the button is next to the empty space, it moves the button into th -# empty space. - -proc puzzleSwitch {w num} { - global xpos ypos - if {(($ypos($num) >= ($ypos(space) - .01)) - && ($ypos($num) <= ($ypos(space) + .01)) - && ($xpos($num) >= ($xpos(space) - .26)) - && ($xpos($num) <= ($xpos(space) + .26))) - || (($xpos($num) >= ($xpos(space) - .01)) - && ($xpos($num) <= ($xpos(space) + .01)) - && ($ypos($num) >= ($ypos(space) - .26)) - && ($ypos($num) <= ($ypos(space) + .26)))} { - set tmp $xpos(space) - set xpos(space) $xpos($num) - set xpos($num) $tmp - set tmp $ypos(space) - set ypos(space) $ypos($num) - set ypos($num) $tmp - place $w.frame.$num -relx $xpos($num) -rely $ypos($num) - } -} - -set w .puzzle -catch {destroy $w} -toplevel $w -wm title $w "15-Puzzle Demonstration" -wm iconname $w "15-Puzzle" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "A 15-puzzle appears below as a collection of buttons. Click on any of the pieces next to the space, and that piece will slide over the space. Continue this until the pieces are arranged in numerical order from upper-left to lower-right." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -# Special trick: select a darker color for the space by creating a -# scrollbar widget and using its trough color. - -scrollbar $w.s - -# The button metrics are a bit bigger in Aqua, and since we are -# using place which doesn't autosize, then we need to have a -# slightly larger frame here... - -if {[tk windowingsystem] eq "aqua"} { - set frameSize 168 -} else { - set frameSize 120 -} - -frame $w.frame -width $frameSize -height $frameSize -borderwidth 2\ - -relief sunken -bg [$w.s cget -troughcolor] -pack $w.frame -side top -pady 1c -padx 1c -destroy $w.s - -set order {3 1 6 2 5 7 15 13 4 11 8 9 14 10 12} -for {set i 0} {$i < 15} {set i [expr {$i+1}]} { - set num [lindex $order $i] - set xpos($num) [expr {($i%4)*.25}] - set ypos($num) [expr {($i/4)*.25}] - button $w.frame.$num -relief raised -text $num -highlightthickness 0 \ - -command "puzzleSwitch $w $num" - place $w.frame.$num -relx $xpos($num) -rely $ypos($num) \ - -relwidth .25 -relheight .25 -} -set xpos(space) .75 -set ypos(space) .75 diff --git a/mingw/lib/tk8.5/demos/radio.tcl b/mingw/lib/tk8.5/demos/radio.tcl deleted file mode 100644 index 28ea23606a..0000000000 --- a/mingw/lib/tk8.5/demos/radio.tcl +++ /dev/null @@ -1,68 +0,0 @@ -# radio.tcl -- -# -# This demonstration script creates a toplevel window containing -# several radiobutton widgets. -# -# RCS: @(#) $Id: radio.tcl,v 1.8 2007/04/23 21:16:01 das Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .radio -catch {destroy $w} -toplevel $w -wm title $w "Radiobutton Demonstration" -wm iconname $w "radio" -positionWindow $w -label $w.msg -font $font -wraplength 5i -justify left -text "Three groups of radiobuttons are displayed below. If you click on a button then the button will become selected exclusively among all the buttons in its group. A Tcl variable is associated with each group to indicate which of the group's buttons is selected. When the 'Tristate' button is pressed, the radio buttons will display the tri-state mode. Selecting any radio button will return the buttons to their respective on/off state. Click the \"See Variables\" button to see the current values of the variables." -grid $w.msg -row 0 -column 0 -columnspan 3 -sticky nsew - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w [list size color align]] -grid $btns -row 3 -column 0 -columnspan 3 -sticky ew - -labelframe $w.left -pady 2 -text "Point Size" -padx 2 -labelframe $w.mid -pady 2 -text "Color" -padx 2 -labelframe $w.right -pady 2 -text "Alignment" -padx 2 -button $w.tristate -text Tristate -command "set size multi; set color multi" \ - -pady 2 -padx 2 -if {[tk windowingsystem] eq "aqua"} { - $w.tristate configure -padx 10 -} -grid $w.left -column 0 -row 1 -pady .5c -padx .5c -rowspan 2 -grid $w.mid -column 1 -row 1 -pady .5c -padx .5c -rowspan 2 -grid $w.right -column 2 -row 1 -pady .5c -padx .5c -grid $w.tristate -column 2 -row 2 -pady .5c -padx .5c - -foreach i {10 12 14 18 24} { - radiobutton $w.left.b$i -text "Point Size $i" -variable size \ - -relief flat -value $i -tristatevalue "multi" - pack $w.left.b$i -side top -pady 2 -anchor w -fill x -} - -foreach c {Red Green Blue Yellow Orange Purple} { - set lower [string tolower $c] - radiobutton $w.mid.$lower -text $c -variable color \ - -relief flat -value $lower -anchor w \ - -command "$w.mid configure -fg \$color" \ - -tristatevalue "multi" - pack $w.mid.$lower -side top -pady 2 -fill x -} - - -label $w.right.l -text "Label" -bitmap questhead -compound left -$w.right.l configure -width [winfo reqwidth $w.right.l] -compound top -$w.right.l configure -height [winfo reqheight $w.right.l] -foreach a {Top Left Right Bottom} { - set lower [string tolower $a] - radiobutton $w.right.$lower -text $a -variable align \ - -relief flat -value $lower -indicatoron 0 -width 7 \ - -command "$w.right.l configure -compound \$align" -} - -grid x $w.right.top -grid $w.right.left $w.right.l $w.right.right -grid x $w.right.bottom diff --git a/mingw/lib/tk8.5/demos/rmt b/mingw/lib/tk8.5/demos/rmt deleted file mode 100644 index 41cee5c93d..0000000000 --- a/mingw/lib/tk8.5/demos/rmt +++ /dev/null @@ -1,213 +0,0 @@ -#!/bin/sh -# the next line restarts using wish \ -exec wish "$0" "$@" - -# rmt -- -# This script implements a simple remote-control mechanism for -# Tk applications. It allows you to select an application and -# then type commands to that application. -# -# RCS: @(#) $Id: rmt,v 1.6 2007/12/13 15:27:07 dgp Exp $ - -package require Tcl 8.4 -package require Tk - -wm title . "Tk Remote Controller" -wm iconname . "Tk Remote" -wm minsize . 1 1 - -# The global variable below keeps track of the remote application -# that we're sending to. If it's an empty string then we execute -# the commands locally. - -set app "local" - -# The global variable below keeps track of whether we're in the -# middle of executing a command entered via the text. - -set executing 0 - -# The global variable below keeps track of the last command executed, -# so it can be re-executed in response to !! commands. - -set lastCommand "" - -# Create menu bar. Arrange to recreate all the information in the -# applications sub-menu whenever it is cascaded to. - -. configure -menu [menu .menu] -menu .menu.file -menu .menu.file.apps -postcommand fillAppsMenu -.menu add cascade -label "File" -underline 0 -menu .menu.file -.menu.file add cascade -label "Select Application" -underline 0 \ - -menu .menu.file.apps -.menu.file add command -label "Quit" -command "destroy ." -underline 0 - -# Create text window and scrollbar. - -text .t -yscrollcommand ".s set" -setgrid true -scrollbar .s -command ".t yview" -grid .t .s -sticky nsew -grid rowconfigure . 0 -weight 1 -grid columnconfigure . 0 -weight 1 - -# Create a binding to forward commands to the target application, -# plus modify many of the built-in bindings so that only information -# in the current command can be deleted (can still set the cursor -# earlier in the text and select and insert; just can't delete). - -bindtags .t {.t Text . all} -bind .t { - .t mark set insert {end - 1c} - .t insert insert \n - invoke - break -} -bind .t { - catch {.t tag remove sel sel.first promptEnd} - if {[.t tag nextrange sel 1.0 end] eq ""} { - if {[.t compare insert < promptEnd]} { - break - } - } -} -bind .t { - catch {.t tag remove sel sel.first promptEnd} - if {[.t tag nextrange sel 1.0 end] eq ""} { - if {[.t compare insert <= promptEnd]} { - break - } - } -} -bind .t { - if {[.t compare insert < promptEnd]} { - break - } -} -bind .t { - if {[.t compare insert < promptEnd]} { - .t mark set insert promptEnd - } -} -bind .t { - if {[.t compare insert < promptEnd]} { - break - } -} -bind .t { - if {[.t compare insert < promptEnd]} { - break - } -} -bind .t { - if {[.t compare insert <= promptEnd]} { - break - } -} -bind .t { - if {[.t compare insert <= promptEnd]} { - break - } -} -### This next bit *isn't* nice - DKF ### -auto_load tk::TextInsert -proc tk::TextInsert {w s} { - if {$s eq ""} { - return - } - catch { - if { - [$w compare sel.first <= insert] && [$w compare sel.last >= insert] - } then { - $w tag remove sel sel.first promptEnd - $w delete sel.first sel.last - } - } - $w insert insert $s - $w see insert -} - -.t configure -font {Courier 12} -.t tag configure bold -font {Courier 12 bold} - -# The procedure below is used to print out a prompt at the -# insertion point (which should be at the beginning of a line -# right now). - -proc prompt {} { - global app - .t insert insert "$app: " - .t mark set promptEnd {insert} - .t mark gravity promptEnd left - .t tag add bold {promptEnd linestart} promptEnd -} - -# The procedure below executes a command (it takes everything on the -# current line after the prompt and either sends it to the remote -# application or executes it locally, depending on "app". - -proc invoke {} { - global app executing lastCommand - set cmd [.t get promptEnd insert] - incr executing 1 - if {[info complete $cmd]} { - if {$cmd eq "!!\n"} { - set cmd $lastCommand - } else { - set lastCommand $cmd - } - if {$app eq "local"} { - set result [catch [list uplevel #0 $cmd] msg] - } else { - set result [catch [list send $app $cmd] msg] - } - if {$result != 0} { - .t insert insert "Error: $msg\n" - } elseif {$msg ne ""} { - .t insert insert $msg\n - } - prompt - .t mark set promptEnd insert - } - incr executing -1 - .t yview -pickplace insert -} - -# The following procedure is invoked to change the application that -# we're talking to. It also updates the prompt for the current -# command, unless we're in the middle of executing a command from -# the text item (in which case a new prompt is about to be output -# so there's no need to change the old one). - -proc newApp appName { - global app executing - set app $appName - if {!$executing} { - .t mark gravity promptEnd right - .t delete "promptEnd linestart" promptEnd - .t insert promptEnd "$appName: " - .t tag add bold "promptEnd linestart" promptEnd - .t mark gravity promptEnd left - } - return -} - -# The procedure below will fill in the applications sub-menu with a list -# of all the applications that currently exist. - -proc fillAppsMenu {} { - set m .menu.file.apps - catch {$m delete 0 last} - foreach i [lsort [winfo interps]] { - $m add command -label $i -command [list newApp $i] - } - $m add command -label local -command {newApp local} -} - -set app [winfo name .] -prompt -focus .t - -# Local Variables: -# mode: tcl -# End: diff --git a/mingw/lib/tk8.5/demos/rolodex b/mingw/lib/tk8.5/demos/rolodex deleted file mode 100644 index 30946aaa77..0000000000 --- a/mingw/lib/tk8.5/demos/rolodex +++ /dev/null @@ -1,206 +0,0 @@ -#!/bin/sh -# the next line restarts using wish \ -exec wish "$0" ${1+"$@"} - -# rolodex -- -# This script was written as an entry in Tom LaStrange's rolodex -# benchmark. It creates something that has some of the look and -# feel of a rolodex program, although it's lifeless and doesn't -# actually do the rolodex application. -# -# RCS: @(#) $Id: rolodex,v 1.5 2003/09/30 14:54:30 dkf Exp $ - -package require Tk - -foreach i [winfo child .] { - catch {destroy $i} -} - -set version 1.2 - -#------------------------------------------ -# Phase 0: create the front end. -#------------------------------------------ - -frame .frame -relief flat -pack .frame -side top -fill y -anchor center - -set names {{} Name: Address: {} {} {Home Phone:} {Work Phone:} Fax:} -foreach i {1 2 3 4 5 6 7} { - label .frame.label$i -text [lindex $names $i] -anchor e - entry .frame.entry$i -width 35 - grid .frame.label$i .frame.entry$i -sticky ew -pady 2 -padx 1 -} - -frame .buttons -pack .buttons -side bottom -pady 2 -anchor center -button .buttons.clear -text Clear -button .buttons.add -text Add -button .buttons.search -text Search -button .buttons.delete -text "Delete ..." -pack .buttons.clear .buttons.add .buttons.search .buttons.delete \ - -side left -padx 2 - -#------------------------------------------ -# Phase 1: Add menus, dialog boxes -#------------------------------------------ - -# DKF - note that this is an old-style menu bar; I just have not yet -# got around to converting the context help code to work with the new -# menu system and its <> virtual event. - -frame .menu -relief raised -borderwidth 1 -pack .menu -before .frame -side top -fill x - -menubutton .menu.file -text "File" -menu .menu.file.m -underline 0 -menu .menu.file.m -.menu.file.m add command -label "Load ..." -command fileAction -underline 0 -.menu.file.m add command -label "Exit" -command {destroy .} -underline 0 -pack .menu.file -side left - -menubutton .menu.help -text "Help" -menu .menu.help.m -underline 0 -menu .menu.help.m -pack .menu.help -side right - -proc deleteAction {} { - if {[tk_dialog .delete {Confirm Action} {Are you sure?} {} 0 Cancel] - == 0} { - clearAction - } -} -.buttons.delete config -command deleteAction - -proc fileAction {} { - tk_dialog .fileSelection {File Selection} {This is a dummy file selection dialog box, which is used because there isn't a good file selection dialog built into Tk yet.} {} 0 OK - puts stderr {dummy file name} -} - -#------------------------------------------ -# Phase 3: Print contents of card -#------------------------------------------ - -proc addAction {} { - global names - foreach i {1 2 3 4 5 6 7} { - puts stderr [format "%-12s %s" [lindex $names $i] [.frame.entry$i get]] - } -} -.buttons.add config -command addAction - -#------------------------------------------ -# Phase 4: Miscellaneous other actions -#------------------------------------------ - -proc clearAction {} { - foreach i {1 2 3 4 5 6 7} { - .frame.entry$i delete 0 end - } -} -.buttons.clear config -command clearAction - -proc fillCard {} { - clearAction - .frame.entry1 insert 0 "John Ousterhout" - .frame.entry2 insert 0 "CS Division, Department of EECS" - .frame.entry3 insert 0 "University of California" - .frame.entry4 insert 0 "Berkeley, CA 94720" - .frame.entry5 insert 0 "private" - .frame.entry6 insert 0 "510-642-0865" - .frame.entry7 insert 0 "510-642-5775" -} -.buttons.search config -command "addAction; fillCard" - -#---------------------------------------------------- -# Phase 5: Accelerators, mnemonics, command-line info -#---------------------------------------------------- - -.buttons.clear config -text "Clear Ctrl+C" -bind . clearAction -.buttons.add config -text "Add Ctrl+A" -bind . addAction -.buttons.search config -text "Search Ctrl+S" -bind . "addAction; fillCard" -.buttons.delete config -text "Delete... Ctrl+D" -bind . deleteAction - -.menu.file.m entryconfig 1 -accel Ctrl+F -bind . fileAction -.menu.file.m entryconfig 2 -accel Ctrl+Q -bind . {destroy .} - -focus .frame.entry1 - -#---------------------------------------------------- -# Phase 6: help -#---------------------------------------------------- - -proc Help {topic {x 0} {y 0}} { - global helpTopics helpCmds - if {$topic == ""} return - while {[info exists helpCmds($topic)]} { - set topic [eval $helpCmds($topic)] - } - if [info exists helpTopics($topic)] { - set msg $helpTopics($topic) - } else { - set msg "Sorry, but no help is available for this topic" - } - tk_dialog .help {Rolodex Help} "Information on $topic:\n\n$msg" \ - {} 0 OK -} - -proc getMenuTopic {w x y} { - return $w.[$w index @[expr {$y-[winfo rooty $w]}]] -} - -event add <> -bind . <> {Help [winfo containing %X %Y] %X %Y} -bind Menu <> {Help [winfo containing %X %Y] %X %Y} - -# Help text and commands follow: - -set helpTopics(.menu.file) {This is the "file" menu. It can be used to invoke some overall operations on the rolodex applications, such as loading a file or exiting.} - -set helpCmds(.menu.file.m) {getMenuTopic $topic $x $y} -set helpTopics(.menu.file.m.1) {The "Load" entry in the "File" menu posts a dialog box that you can use to select a rolodex file} -set helpTopics(.menu.file.m.2) {The "Exit" entry in the "File" menu causes the rolodex application to terminate} -set helpCmds(.menu.file.m.none) {set topic ".menu.file"} - -set helpTopics(.frame.entry1) {In this field of the rolodex entry you should type the person's name} -set helpTopics(.frame.entry2) {In this field of the rolodex entry you should type the first line of the person's address} -set helpTopics(.frame.entry3) {In this field of the rolodex entry you should type the second line of the person's address} -set helpTopics(.frame.entry4) {In this field of the rolodex entry you should type the third line of the person's address} -set helpTopics(.frame.entry5) {In this field of the rolodex entry you should type the person's home phone number, or "private" if the person doesn't want his or her number publicized} -set helpTopics(.frame.entry6) {In this field of the rolodex entry you should type the person's work phone number} -set helpTopics(.frame.entry7) {In this field of the rolodex entry you should type the phone number for the person's FAX machine} - -set helpCmds(.frame.label1) {set topic .frame.entry1} -set helpCmds(.frame.label2) {set topic .frame.entry2} -set helpCmds(.frame.label3) {set topic .frame.entry3} -set helpCmds(.frame.label4) {set topic .frame.entry4} -set helpCmds(.frame.label5) {set topic .frame.entry5} -set helpCmds(.frame.label6) {set topic .frame.entry6} -set helpCmds(.frame.label7) {set topic .frame.entry7} - -set helpTopics(context) {Unfortunately, this application doesn't support context-sensitive help in the usual way, because when this demo was written Tk didn't have a grab mechanism and this is needed for context-sensitive help. Instead, you can achieve much the same effect by simply moving the mouse over the window you're curious about and pressing the Help or F1 keys. You can do this anytime.} -set helpTopics(help) {This application provides only very crude help. Besides the entries in this menu, you can get help on individual windows by moving the mouse cursor over the window and pressing the Help or F1 keys.} -set helpTopics(window) {This window is a dummy rolodex application created as part of Tom LaStrange's toolkit benchmark. It doesn't really do anything useful except to demonstrate a few features of the Tk toolkit.} -set helpTopics(keys) "The following accelerator keys are defined for this application (in addition to those already available for the entry windows):\n\nCtrl+A:\t\tAdd\nCtrl+C:\t\tClear\nCtrl+D:\t\tDelete\nCtrl+F:\t\tEnter file name\nCtrl+Q:\t\tExit application (quit)\nCtrl+S:\t\tSearch (dummy operation)" -set helpTopics(version) "This is version $version." - -# Entries in "Help" menu - -.menu.help.m add command -label "On Context..." -command {Help context} \ - -underline 3 -.menu.help.m add command -label "On Help..." -command {Help help} \ - -underline 3 -.menu.help.m add command -label "On Window..." -command {Help window} \ - -underline 3 -.menu.help.m add command -label "On Keys..." -command {Help keys} \ - -underline 3 -.menu.help.m add command -label "On Version..." -command {Help version} \ - -underline 3 - -# Local Variables: -# mode: tcl -# End: diff --git a/mingw/lib/tk8.5/demos/ruler.tcl b/mingw/lib/tk8.5/demos/ruler.tcl deleted file mode 100644 index 45881cd77e..0000000000 --- a/mingw/lib/tk8.5/demos/ruler.tcl +++ /dev/null @@ -1,173 +0,0 @@ -# ruler.tcl -- -# -# This demonstration script creates a canvas widget that displays a ruler -# with tab stops that can be set, moved, and deleted. -# -# RCS: @(#) $Id: ruler.tcl,v 1.7 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -# rulerMkTab -- -# This procedure creates a new triangular polygon in a canvas to -# represent a tab stop. -# -# Arguments: -# c - The canvas window. -# x, y - Coordinates at which to create the tab stop. - -proc rulerMkTab {c x y} { - upvar #0 demo_rulerInfo v - $c create polygon $x $y [expr {$x+$v(size)}] [expr {$y+$v(size)}] \ - [expr {$x-$v(size)}] [expr {$y+$v(size)}] -} - -set w .ruler -catch {destroy $w} -toplevel $w -wm title $w "Ruler Demonstration" -wm iconname $w "ruler" -positionWindow $w -set c $w.c - -label $w.msg -font $font -wraplength 5i -justify left -text "This canvas widget shows a mock-up of a ruler. You can create tab stops by dragging them out of the well to the right of the ruler. You can also drag existing tab stops. If you drag a tab stop far enough up or down so that it turns dim, it will be deleted when you release the mouse button." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -canvas $c -width 14.8c -height 2.5c -pack $w.c -side top -fill x - -set demo_rulerInfo(grid) .25c -set demo_rulerInfo(left) [winfo fpixels $c 1c] -set demo_rulerInfo(right) [winfo fpixels $c 13c] -set demo_rulerInfo(top) [winfo fpixels $c 1c] -set demo_rulerInfo(bottom) [winfo fpixels $c 1.5c] -set demo_rulerInfo(size) [winfo fpixels $c .2c] -set demo_rulerInfo(normalStyle) "-fill black" -# Main widget program sets variable tk_demoDirectory -if {[winfo depth $c] > 1} { - set demo_rulerInfo(activeStyle) "-fill red -stipple {}" - set demo_rulerInfo(deleteStyle) [list -fill red \ - -stipple @[file join $tk_demoDirectory images gray25.xbm]] -} else { - set demo_rulerInfo(activeStyle) "-fill black -stipple {}" - set demo_rulerInfo(deleteStyle) [list -fill black \ - -stipple @[file join $tk_demoDirectory images gray25.xbm]] -} - -$c create line 1c 0.5c 1c 1c 13c 1c 13c 0.5c -width 1 -for {set i 0} {$i < 12} {incr i} { - set x [expr {$i+1}] - $c create line ${x}c 1c ${x}c 0.6c -width 1 - $c create line $x.25c 1c $x.25c 0.8c -width 1 - $c create line $x.5c 1c $x.5c 0.7c -width 1 - $c create line $x.75c 1c $x.75c 0.8c -width 1 - $c create text $x.15c .75c -text $i -anchor sw -} -$c addtag well withtag [$c create rect 13.2c 1c 13.8c 0.5c \ - -outline black -fill [lindex [$c config -bg] 4]] -$c addtag well withtag [rulerMkTab $c [winfo pixels $c 13.5c] \ - [winfo pixels $c .65c]] - -$c bind well <1> "rulerNewTab $c %x %y" -$c bind tab <1> "rulerSelectTab $c %x %y" -bind $c "rulerMoveTab $c %x %y" -bind $c "rulerReleaseTab $c" - -# rulerNewTab -- -# Does all the work of creating a tab stop, including creating the -# triangle object and adding tags to it to give it tab behavior. -# -# Arguments: -# c - The canvas window. -# x, y - The coordinates of the tab stop. - -proc rulerNewTab {c x y} { - upvar #0 demo_rulerInfo v - $c addtag active withtag [rulerMkTab $c $x $y] - $c addtag tab withtag active - set v(x) $x - set v(y) $y - rulerMoveTab $c $x $y -} - -# rulerSelectTab -- -# This procedure is invoked when mouse button 1 is pressed over -# a tab. It remembers information about the tab so that it can -# be dragged interactively. -# -# Arguments: -# c - The canvas widget. -# x, y - The coordinates of the mouse (identifies the point by -# which the tab was picked up for dragging). - -proc rulerSelectTab {c x y} { - upvar #0 demo_rulerInfo v - set v(x) [$c canvasx $x $v(grid)] - set v(y) [expr {$v(top)+2}] - $c addtag active withtag current - eval "$c itemconf active $v(activeStyle)" - $c raise active -} - -# rulerMoveTab -- -# This procedure is invoked during mouse motion events to drag a tab. -# It adjusts the position of the tab, and changes its appearance if -# it is about to be dragged out of the ruler. -# -# Arguments: -# c - The canvas widget. -# x, y - The coordinates of the mouse. - -proc rulerMoveTab {c x y} { - upvar #0 demo_rulerInfo v - if {[$c find withtag active] == ""} { - return - } - set cx [$c canvasx $x $v(grid)] - set cy [$c canvasy $y] - if {$cx < $v(left)} { - set cx $v(left) - } - if {$cx > $v(right)} { - set cx $v(right) - } - if {($cy >= $v(top)) && ($cy <= $v(bottom))} { - set cy [expr {$v(top)+2}] - eval "$c itemconf active $v(activeStyle)" - } else { - set cy [expr {$cy-$v(size)-2}] - eval "$c itemconf active $v(deleteStyle)" - } - $c move active [expr {$cx-$v(x)}] [expr {$cy-$v(y)}] - set v(x) $cx - set v(y) $cy -} - -# rulerReleaseTab -- -# This procedure is invoked during button release events that end -# a tab drag operation. It deselects the tab and deletes the tab if -# it was dragged out of the ruler. -# -# Arguments: -# c - The canvas widget. -# x, y - The coordinates of the mouse. - -proc rulerReleaseTab c { - upvar #0 demo_rulerInfo v - if {[$c find withtag active] == {}} { - return - } - if {$v(y) != $v(top)+2} { - $c delete active - } else { - eval "$c itemconf active $v(normalStyle)" - $c dtag active - } -} diff --git a/mingw/lib/tk8.5/demos/sayings.tcl b/mingw/lib/tk8.5/demos/sayings.tcl deleted file mode 100644 index 091133e1c2..0000000000 --- a/mingw/lib/tk8.5/demos/sayings.tcl +++ /dev/null @@ -1,46 +0,0 @@ -# sayings.tcl -- -# -# This demonstration script creates a listbox that can be scrolled -# both horizontally and vertically. It displays a collection of -# well-known sayings. -# -# RCS: @(#) $Id: sayings.tcl,v 1.6 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .sayings -catch {destroy $w} -toplevel $w -wm title $w "Listbox Demonstration (well-known sayings)" -wm iconname $w "sayings" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "The listbox below contains a collection of well-known sayings. You can scan the list using either of the scrollbars or by dragging in the listbox window with button 2 pressed." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.frame -borderwidth 10 -pack $w.frame -side top -expand yes -fill both -padx 1c - - -scrollbar $w.frame.yscroll -command "$w.frame.list yview" -scrollbar $w.frame.xscroll -orient horizontal \ - -command "$w.frame.list xview" -listbox $w.frame.list -width 20 -height 10 -setgrid 1 \ - -yscroll "$w.frame.yscroll set" -xscroll "$w.frame.xscroll set" - -grid $w.frame.list -row 0 -column 0 -rowspan 1 -columnspan 1 -sticky news -grid $w.frame.yscroll -row 0 -column 1 -rowspan 1 -columnspan 1 -sticky news -grid $w.frame.xscroll -row 1 -column 0 -rowspan 1 -columnspan 1 -sticky news -grid rowconfig $w.frame 0 -weight 1 -minsize 0 -grid columnconfig $w.frame 0 -weight 1 -minsize 0 - - -$w.frame.list insert 0 "Don't speculate, measure" "Waste not, want not" "Early to bed and early to rise makes a man healthy, wealthy, and wise" "Ask not what your country can do for you, ask what you can do for your country" "I shall return" "NOT" "A picture is worth a thousand words" "User interfaces are hard to build" "Thou shalt not steal" "A penny for your thoughts" "Fool me once, shame on you; fool me twice, shame on me" "Every cloud has a silver lining" "Where there's smoke there's fire" "It takes one to know one" "Curiosity killed the cat" "Take this job and shove it" "Up a creek without a paddle" "I'm mad as hell and I'm not going to take it any more" "An apple a day keeps the doctor away" "Don't look a gift horse in the mouth" "Measure twice, cut once" diff --git a/mingw/lib/tk8.5/demos/search.tcl b/mingw/lib/tk8.5/demos/search.tcl deleted file mode 100644 index 3a792c4895..0000000000 --- a/mingw/lib/tk8.5/demos/search.tcl +++ /dev/null @@ -1,141 +0,0 @@ -# search.tcl -- -# -# This demonstration script creates a collection of widgets that -# allow you to load a file into a text widget, then perform searches -# on that file. -# -# RCS: @(#) $Id: search.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -# textLoadFile -- -# This procedure below loads a file into a text widget, discarding -# the previous contents of the widget. Tags for the old widget are -# not affected, however. -# -# Arguments: -# w - The window into which to load the file. Must be a -# text widget. -# file - The name of the file to load. Must be readable. - -proc textLoadFile {w file} { - set f [open $file] - $w delete 1.0 end - while {![eof $f]} { - $w insert end [read $f 10000] - } - close $f -} - -# textSearch -- -# Search for all instances of a given string in a text widget and -# apply a given tag to each instance found. -# -# Arguments: -# w - The window in which to search. Must be a text widget. -# string - The string to search for. The search is done using -# exact matching only; no special characters. -# tag - Tag to apply to each instance of a matching string. - -proc textSearch {w string tag} { - $w tag remove search 0.0 end - if {$string == ""} { - return - } - set cur 1.0 - while 1 { - set cur [$w search -count length $string $cur end] - if {$cur == ""} { - break - } - $w tag add $tag $cur "$cur + $length char" - set cur [$w index "$cur + $length char"] - } -} - -# textToggle -- -# This procedure is invoked repeatedly to invoke two commands at -# periodic intervals. It normally reschedules itself after each -# execution but if an error occurs (e.g. because the window was -# deleted) then it doesn't reschedule itself. -# -# Arguments: -# cmd1 - Command to execute when procedure is called. -# sleep1 - Ms to sleep after executing cmd1 before executing cmd2. -# cmd2 - Command to execute in the *next* invocation of this -# procedure. -# sleep2 - Ms to sleep after executing cmd2 before executing cmd1 again. - -proc textToggle {cmd1 sleep1 cmd2 sleep2} { - catch { - eval $cmd1 - after $sleep1 [list textToggle $cmd2 $sleep2 $cmd1 $sleep1] - } -} - -set w .search -catch {destroy $w} -toplevel $w -wm title $w "Text Demonstration - Search and Highlight" -wm iconname $w "search" -positionWindow $w - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.file -label $w.file.label -text "File name:" -width 13 -anchor w -entry $w.file.entry -width 40 -textvariable fileName -button $w.file.button -text "Load File" \ - -command "textLoadFile $w.text \$fileName" -pack $w.file.label $w.file.entry -side left -pack $w.file.button -side left -pady 5 -padx 10 -bind $w.file.entry " - textLoadFile $w.text \$fileName - focus $w.string.entry -" -focus $w.file.entry - -frame $w.string -label $w.string.label -text "Search string:" -width 13 -anchor w -entry $w.string.entry -width 40 -textvariable searchString -button $w.string.button -text "Highlight" \ - -command "textSearch $w.text \$searchString search" -pack $w.string.label $w.string.entry -side left -pack $w.string.button -side left -pady 5 -padx 10 -bind $w.string.entry "textSearch $w.text \$searchString search" - -text $w.text -yscrollcommand "$w.scroll set" -setgrid true -scrollbar $w.scroll -command "$w.text yview" -pack $w.file $w.string -side top -fill x -pack $w.scroll -side right -fill y -pack $w.text -expand yes -fill both - -# Set up display styles for text highlighting. - -if {[winfo depth $w] > 1} { - textToggle "$w.text tag configure search -background \ - #ce5555 -foreground white" 800 "$w.text tag configure \ - search -background {} -foreground {}" 200 -} else { - textToggle "$w.text tag configure search -background \ - black -foreground white" 800 "$w.text tag configure \ - search -background {} -foreground {}" 200 -} -$w.text insert 1.0 \ -{This window demonstrates how to use the tagging facilities in text -widgets to implement a searching mechanism. First, type a file name -in the top entry, then type or click on "Load File". Then -type a string in the lower entry and type or click on -"Load File". This will cause all of the instances of the string to -be tagged with the tag "search", and it will arrange for the tag's -display attributes to change to make all of the strings blink.} -$w.text mark set insert 0.0 - -set fileName "" -set searchString "" diff --git a/mingw/lib/tk8.5/demos/spin.tcl b/mingw/lib/tk8.5/demos/spin.tcl deleted file mode 100644 index 512515d5b6..0000000000 --- a/mingw/lib/tk8.5/demos/spin.tcl +++ /dev/null @@ -1,55 +0,0 @@ -# spin.tcl -- -# -# This demonstration script creates several spinbox widgets. -# -# RCS: @(#) $Id: spin.tcl,v 1.3 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .spin -catch {destroy $w} -toplevel $w -wm title $w "Spinbox Demonstration" -wm iconname $w "spin" -positionWindow $w - -label $w.msg -font $font -wraplength 5i -justify left -text "Three different\ - spin-boxes are displayed below. You can add characters by pointing,\ - clicking and typing. The normal Motif editing characters are\ - supported, along with many Emacs bindings. For example, Backspace\ - and Control-h delete the character to the left of the insertion\ - cursor and Delete and Control-d delete the chararacter to the right\ - of the insertion cursor. For values that are too large to fit in the\ - window all at once, you can scan through the value by dragging with\ - mouse button2 pressed. Note that the first spin-box will only permit\ - you to type in integers, and the third selects from a list of\ - Australian cities." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -set australianCities { - Canberra Sydney Melbourne Perth Adelaide Brisbane - Hobart Darwin "Alice Springs" -} - -spinbox $w.s1 -from 1 -to 10 -width 10 -validate key \ - -vcmd {string is integer %P} -spinbox $w.s2 -from 0 -to 3 -increment .5 -format %05.2f -width 10 -spinbox $w.s3 -values $australianCities -width 10 - -#entry $w.e1 -#entry $w.e2 -#entry $w.e3 -pack $w.s1 $w.s2 $w.s3 -side top -pady 5 -padx 10 ;#-fill x - -#$w.e1 insert 0 "Initial value" -#$w.e2 insert end "This entry contains a long value, much too long " -#$w.e2 insert end "to fit in the window at one time, so long in fact " -#$w.e2 insert end "that you'll have to scan or scroll to see the end." diff --git a/mingw/lib/tk8.5/demos/square b/mingw/lib/tk8.5/demos/square deleted file mode 100644 index 743148de20..0000000000 --- a/mingw/lib/tk8.5/demos/square +++ /dev/null @@ -1,62 +0,0 @@ -#!/bin/sh -# the next line restarts using wish \ -exec wish "$0" "$@" - -# square -- -# This script generates a demo application containing only a "square" -# widget. It's only usable in the "tktest" application or if Tk has -# been compiled with tkSquare.c. This demo arranges the following -# bindings for the widget: -# -# Button-1 press/drag: moves square to mouse -# "a": toggle size animation on/off -# -# RCS: @(#) $Id: square,v 1.3 2003/09/30 14:54:30 dkf Exp $ - -package require Tk ;# We use Tk generally, and... -package require Tktest ;# ... we use the square widget too. - -square .s -pack .s -expand yes -fill both -wm minsize . 1 1 - -bind .s <1> {center %x %y} -bind .s {center %x %y} -bind .s a animate -focus .s - -# The procedure below centers the square on a given position. - -proc center {x y} { - set a [.s size] - .s position [expr $x-($a/2)] [expr $y-($a/2)] -} - -# The procedures below provide a simple form of animation where -# the box changes size in a pulsing pattern: larger, smaller, larger, -# and so on. - -set inc 0 -proc animate {} { - global inc - if {$inc == 0} { - set inc 3 - timer - } else { - set inc 0 - } -} - -proc timer {} { - global inc - set s [.s size] - if {$inc == 0} return - if {$s >= 40} {set inc -3} - if {$s <= 10} {set inc 3} - .s size [expr {$s+$inc}] - after 30 timer -} - -# Local Variables: -# mode: tcl -# End: diff --git a/mingw/lib/tk8.5/demos/states.tcl b/mingw/lib/tk8.5/demos/states.tcl deleted file mode 100644 index 443fea51a6..0000000000 --- a/mingw/lib/tk8.5/demos/states.tcl +++ /dev/null @@ -1,45 +0,0 @@ -# states.tcl -- -# -# This demonstration script creates a listbox widget that displays -# the names of the 50 states in the United States of America. -# -# RCS: @(#) $Id: states.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .states -catch {destroy $w} -toplevel $w -wm title $w "Listbox Demonstration (50 states)" -wm iconname $w "states" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -justify left -text "A listbox containing the 50 states is displayed below, along with a scrollbar. You can scan the list either using the scrollbar or by scanning. To scan, press button 2 in the widget and drag up or down." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.frame -borderwidth .5c -pack $w.frame -side top -expand yes -fill y - -scrollbar $w.frame.scroll -command "$w.frame.list yview" -listbox $w.frame.list -yscroll "$w.frame.scroll set" -setgrid 1 -height 12 -pack $w.frame.scroll -side right -fill y -pack $w.frame.list -side left -expand 1 -fill both - -$w.frame.list insert 0 Alabama Alaska Arizona Arkansas California \ - Colorado Connecticut Delaware Florida Georgia Hawaii Idaho Illinois \ - Indiana Iowa Kansas Kentucky Louisiana Maine Maryland \ - Massachusetts Michigan Minnesota Mississippi Missouri \ - Montana Nebraska Nevada "New Hampshire" "New Jersey" "New Mexico" \ - "New York" "North Carolina" "North Dakota" \ - Ohio Oklahoma Oregon Pennsylvania "Rhode Island" \ - "South Carolina" "South Dakota" \ - Tennessee Texas Utah Vermont Virginia Washington \ - "West Virginia" Wisconsin Wyoming diff --git a/mingw/lib/tk8.5/demos/style.tcl b/mingw/lib/tk8.5/demos/style.tcl deleted file mode 100644 index e62d118e2d..0000000000 --- a/mingw/lib/tk8.5/demos/style.tcl +++ /dev/null @@ -1,157 +0,0 @@ -# style.tcl -- -# -# This demonstration script creates a text widget that illustrates the -# various display styles that may be set for tags. -# -# RCS: @(#) $Id: style.tcl,v 1.6 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .style -catch {destroy $w} -toplevel $w -wm title $w "Text Demonstration - Display Styles" -wm iconname $w "style" -positionWindow $w - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -# Only set the font family in one place for simplicity and consistency - -set family Courier - -text $w.text -yscrollcommand "$w.scroll set" -setgrid true \ - -width 70 -height 32 -wrap word -font "$family 12" -scrollbar $w.scroll -command "$w.text yview" -pack $w.scroll -side right -fill y -pack $w.text -expand yes -fill both - -# Set up display styles - -$w.text tag configure bold -font "$family 12 bold italic" -$w.text tag configure big -font "$family 14 bold" -$w.text tag configure verybig -font "Helvetica 24 bold" -$w.text tag configure tiny -font "Times 8 bold" -if {[winfo depth $w] > 1} { - $w.text tag configure color1 -background #a0b7ce - $w.text tag configure color2 -foreground red - $w.text tag configure raised -relief raised -borderwidth 1 - $w.text tag configure sunken -relief sunken -borderwidth 1 -} else { - $w.text tag configure color1 -background black -foreground white - $w.text tag configure color2 -background black -foreground white - $w.text tag configure raised -background white -relief raised \ - -borderwidth 1 - $w.text tag configure sunken -background white -relief sunken \ - -borderwidth 1 -} -$w.text tag configure bgstipple -background black -borderwidth 0 \ - -bgstipple gray12 -$w.text tag configure fgstipple -fgstipple gray50 -$w.text tag configure underline -underline on -$w.text tag configure overstrike -overstrike on -$w.text tag configure right -justify right -$w.text tag configure center -justify center -$w.text tag configure super -offset 4p -font "$family 10" -$w.text tag configure sub -offset -2p -font "$family 10" -$w.text tag configure margins -lmargin1 12m -lmargin2 6m -rmargin 10m -$w.text tag configure spacing -spacing1 10p -spacing2 2p \ - -lmargin1 12m -lmargin2 6m -rmargin 10m - -$w.text insert end {Text widgets like this one allow you to display information in a -variety of styles. Display styles are controlled using a mechanism -called } -$w.text insert end tags bold -$w.text insert end {. Tags are just textual names that you can apply to one -or more ranges of characters within a text widget. You can configure -tags with various display styles. If you do this, then the tagged -characters will be displayed with the styles you chose. The -available display styles are: -} -$w.text insert end "\n1. Font." big -$w.text insert end " You can choose any system font, " -$w.text insert end large verybig -$w.text insert end " or " -$w.text insert end "small" tiny ".\n" -$w.text insert end "\n2. Color." big -$w.text insert end " You can change either the " -$w.text insert end background color1 -$w.text insert end " or " -$w.text insert end foreground color2 -$w.text insert end "\ncolor, or " -$w.text insert end both {color1 color2} -$w.text insert end ".\n" -$w.text insert end "\n3. Stippling." big -$w.text insert end " You can cause either the " -$w.text insert end background bgstipple -$w.text insert end " or " -$w.text insert end foreground fgstipple -$w.text insert end { -information to be drawn with a stipple fill instead of a solid fill. -} -$w.text insert end "\n4. Underlining." big -$w.text insert end " You can " -$w.text insert end underline underline -$w.text insert end " ranges of text.\n" -$w.text insert end "\n5. Overstrikes." big -$w.text insert end " You can " -$w.text insert end "draw lines through" overstrike -$w.text insert end " ranges of text.\n" -$w.text insert end "\n6. 3-D effects." big -$w.text insert end { You can arrange for the background to be drawn -with a border that makes characters appear either } -$w.text insert end raised raised -$w.text insert end " or " -$w.text insert end sunken sunken -$w.text insert end ".\n" -$w.text insert end "\n7. Justification." big -$w.text insert end " You can arrange for lines to be displayed\n" -$w.text insert end "left-justified,\n" -$w.text insert end "right-justified, or\n" right -$w.text insert end "centered.\n" center -$w.text insert end "\n8. Superscripts and subscripts." big -$w.text insert end " You can control the vertical\n" -$w.text insert end "position of text to generate superscript effects like 10" -$w.text insert end "n" super -$w.text insert end " or\nsubscript effects like X" -$w.text insert end "i" sub -$w.text insert end ".\n" -$w.text insert end "\n9. Margins." big -$w.text insert end " You can control the amount of extra space left" -$w.text insert end " on\neach side of the text:\n" -$w.text insert end "This paragraph is an example of the use of " margins -$w.text insert end "margins. It consists of a single line of text " margins -$w.text insert end "that wraps around on the screen. There are two " margins -$w.text insert end "separate left margin values, one for the first " margins -$w.text insert end "display line associated with the text line, " margins -$w.text insert end "and one for the subsequent display lines, which " margins -$w.text insert end "occur because of wrapping. There is also a " margins -$w.text insert end "separate specification for the right margin, " margins -$w.text insert end "which is used to choose wrap points for lines.\n" margins -$w.text insert end "\n10. Spacing." big -$w.text insert end " You can control the spacing of lines with three\n" -$w.text insert end "separate parameters. \"Spacing1\" tells how much " -$w.text insert end "extra space to leave\nabove a line, \"spacing3\" " -$w.text insert end "tells how much space to leave below a line,\nand " -$w.text insert end "if a text line wraps, \"spacing2\" tells how much " -$w.text insert end "space to leave\nbetween the display lines that " -$w.text insert end "make up the text line.\n" -$w.text insert end "These indented paragraphs illustrate how spacing " spacing -$w.text insert end "can be used. Each paragraph is actually a " spacing -$w.text insert end "single line in the text widget, which is " spacing -$w.text insert end "word-wrapped by the widget.\n" spacing -$w.text insert end "Spacing1 is set to 10 points for this text, " spacing -$w.text insert end "which results in relatively large gaps between " spacing -$w.text insert end "the paragraphs. Spacing2 is set to 2 points, " spacing -$w.text insert end "which results in just a bit of extra space " spacing -$w.text insert end "within a pararaph. Spacing3 isn't used " spacing -$w.text insert end "in this example.\n" spacing -$w.text insert end "To see where the space is, select ranges of " spacing -$w.text insert end "text within these paragraphs. The selection " spacing -$w.text insert end "highlight will cover the extra space." spacing diff --git a/mingw/lib/tk8.5/demos/tclIndex b/mingw/lib/tk8.5/demos/tclIndex deleted file mode 100644 index 86a72e2443..0000000000 --- a/mingw/lib/tk8.5/demos/tclIndex +++ /dev/null @@ -1,67 +0,0 @@ -# Tcl autoload index file, version 2.0 -# This file is generated by the "auto_mkindex" command -# and sourced to set up indexing information for one or -# more commands. Typically each line is a command that -# sets an element in the auto_index array, where the -# element name is the name of a command and the value is -# a script that loads the command. - -set auto_index(arrowSetup) [list source [file join $dir arrow.tcl]] -set auto_index(arrowMove1) [list source [file join $dir arrow.tcl]] -set auto_index(arrowMove2) [list source [file join $dir arrow.tcl]] -set auto_index(arrowMove3) [list source [file join $dir arrow.tcl]] -set auto_index(textLoadFile) [list source [file join $dir search.tcl]] -set auto_index(textSearch) [list source [file join $dir search.tcl]] -set auto_index(textToggle) [list source [file join $dir search.tcl]] -set auto_index(itemEnter) [list source [file join $dir items.tcl]] -set auto_index(itemLeave) [list source [file join $dir items.tcl]] -set auto_index(itemMark) [list source [file join $dir items.tcl]] -set auto_index(itemStroke) [list source [file join $dir items.tcl]] -set auto_index(itemsUnderArea) [list source [file join $dir items.tcl]] -set auto_index(itemStartDrag) [list source [file join $dir items.tcl]] -set auto_index(itemDrag) [list source [file join $dir items.tcl]] -set auto_index(butPress) [list source [file join $dir items.tcl]] -set auto_index(loadDir) [list source [file join $dir image2.tcl]] -set auto_index(loadImage) [list source [file join $dir image2.tcl]] -set auto_index(rulerMkTab) [list source [file join $dir ruler.tcl]] -set auto_index(rulerNewTab) [list source [file join $dir ruler.tcl]] -set auto_index(rulerSelectTab) [list source [file join $dir ruler.tcl]] -set auto_index(rulerMoveTab) [list source [file join $dir ruler.tcl]] -set auto_index(rulerReleaseTab) [list source [file join $dir ruler.tcl]] -set auto_index(mkTextConfig) [list source [file join $dir ctext.tcl]] -set auto_index(textEnter) [list source [file join $dir ctext.tcl]] -set auto_index(textInsert) [list source [file join $dir ctext.tcl]] -set auto_index(textPaste) [list source [file join $dir ctext.tcl]] -set auto_index(textB1Press) [list source [file join $dir ctext.tcl]] -set auto_index(textB1Move) [list source [file join $dir ctext.tcl]] -set auto_index(textBs) [list source [file join $dir ctext.tcl]] -set auto_index(textDel) [list source [file join $dir ctext.tcl]] -set auto_index(bitmapRow) [list source [file join $dir bitmap.tcl]] -set auto_index(scrollEnter) [list source [file join $dir cscroll.tcl]] -set auto_index(scrollLeave) [list source [file join $dir cscroll.tcl]] -set auto_index(scrollButton) [list source [file join $dir cscroll.tcl]] -set auto_index(textWindOn) [list source [file join $dir twind.tcl]] -set auto_index(textWindOff) [list source [file join $dir twind.tcl]] -set auto_index(textWindPlot) [list source [file join $dir twind.tcl]] -set auto_index(embPlotDown) [list source [file join $dir twind.tcl]] -set auto_index(embPlotMove) [list source [file join $dir twind.tcl]] -set auto_index(textWindDel) [list source [file join $dir twind.tcl]] -set auto_index(embDefBg) [list source [file join $dir twind.tcl]] -set auto_index(floorDisplay) [list source [file join $dir floor.tcl]] -set auto_index(newRoom) [list source [file join $dir floor.tcl]] -set auto_index(roomChanged) [list source [file join $dir floor.tcl]] -set auto_index(bg1) [list source [file join $dir floor.tcl]] -set auto_index(bg2) [list source [file join $dir floor.tcl]] -set auto_index(bg3) [list source [file join $dir floor.tcl]] -set auto_index(fg1) [list source [file join $dir floor.tcl]] -set auto_index(fg2) [list source [file join $dir floor.tcl]] -set auto_index(fg3) [list source [file join $dir floor.tcl]] -set auto_index(setWidth) [list source [file join $dir hscale.tcl]] -set auto_index(plotDown) [list source [file join $dir plot.tcl]] -set auto_index(plotMove) [list source [file join $dir plot.tcl]] -set auto_index(puzzleSwitch) [list source [file join $dir puzzle.tcl]] -set auto_index(setHeight) [list source [file join $dir vscale.tcl]] -set auto_index(showMessageBox) [list source [file join $dir msgbox.tcl]] -set auto_index(setColor) [list source [file join $dir clrpick.tcl]] -set auto_index(setColor_helper) [list source [file join $dir clrpick.tcl]] -set auto_index(fileDialog) [list source [file join $dir filebox.tcl]] diff --git a/mingw/lib/tk8.5/demos/tcolor b/mingw/lib/tk8.5/demos/tcolor deleted file mode 100644 index b695c60827..0000000000 --- a/mingw/lib/tk8.5/demos/tcolor +++ /dev/null @@ -1,360 +0,0 @@ -#!/bin/sh -# the next line restarts using wish \ -exec wish "$0" "$@" - -# tcolor -- -# This script implements a simple color editor, where you can -# create colors using either the RGB, HSB, or CYM color spaces -# and apply the color to existing applications. -# -# RCS: @(#) $Id: tcolor,v 1.6 2007/12/13 15:27:07 dgp Exp $ - -package require Tk 8.4 -wm title . "Color Editor" - -# Global variables that control the program: -# -# colorSpace - Color space currently being used for -# editing. Must be "rgb", "cmy", or "hsb". -# label1, label2, label3 - Labels for the scales. -# red, green, blue - Current color intensities in decimal -# on a scale of 0-65535. -# color - A string giving the current color value -# in the proper form for x: -# #RRRRGGGGBBBB -# updating - Non-zero means that we're in the middle of -# updating the scales to load a new color,so -# information shouldn't be propagating back -# from the scales to other elements of the -# program: this would make an infinite loop. -# command - Holds the command that has been typed -# into the "Command" entry. -# autoUpdate - 1 means execute the update command -# automatically whenever the color changes. -# name - Name for new color, typed into entry. - -set colorSpace hsb -set red 65535 -set green 0 -set blue 0 -set color #ffff00000000 -set updating 0 -set autoUpdate 1 -set name "" - -# Create the menu bar at the top of the window. - -. configure -menu [menu .menu] -menu .menu.file -.menu add cascade -menu .menu.file -label File -underline 0 -.menu.file add radio -label "RGB color space" -variable colorSpace \ - -value rgb -underline 0 -command {changeColorSpace rgb} -.menu.file add radio -label "CMY color space" -variable colorSpace \ - -value cmy -underline 0 -command {changeColorSpace cmy} -.menu.file add radio -label "HSB color space" -variable colorSpace \ - -value hsb -underline 0 -command {changeColorSpace hsb} -.menu.file add separator -.menu.file add radio -label "Automatic updates" -variable autoUpdate \ - -value 1 -underline 0 -.menu.file add radio -label "Manual updates" -variable autoUpdate \ - -value 0 -underline 0 -.menu.file add separator -.menu.file add command -label "Exit program" -underline 0 -command {exit} - -# Create the command entry window at the bottom of the window, along -# with the update button. - -labelframe .command -text "Command:" -padx {1m 0} -entry .command.e -textvariable command -button .command.update -text Update -command doUpdate -pack .command.update -side right -pady .1c -padx {.25c 0} -pack .command.e -expand yes -fill x -ipadx 0.25c - - -# Create the listbox that holds all of the color names in rgb.txt, -# if an rgb.txt file can be found. - -grid .command -sticky nsew -row 2 -columnspan 3 -padx 1m -pady {0 1m} - -grid columnconfigure . {1 2} -weight 1 -grid rowconfigure . 0 -weight 1 -foreach i { - /usr/local/lib/X11/rgb.txt /usr/lib/X11/rgb.txt - /X11/R5/lib/X11/rgb.txt /X11/R4/lib/rgb/rgb.txt - /usr/openwin/lib/X11/rgb.txt -} { - if {![file readable $i]} { - continue; - } - set f [open $i] - labelframe .names -text "Select:" -padx .1c -pady .1c - grid .names -row 0 -column 0 -sticky nsew -padx .15c -pady .15c -rowspan 2 - grid columnconfigure . 0 -weight 1 - listbox .names.lb -width 20 -height 12 -yscrollcommand ".names.s set" \ - -exportselection false - bind .names.lb { - tc_loadNamedColor [.names.lb get [.names.lb curselection]] - } - scrollbar .names.s -orient vertical -command ".names.lb yview" - pack .names.lb .names.s -side left -fill y -expand 1 - while {[gets $f line] >= 0} { - if {[regexp {^\s*\d+\s+\d+\s+\d+\s+(\S+)$} $line -> col]} { - .names.lb insert end $col - } - } - close $f - break -} - -# Create the three scales for editing the color, and the entry for -# typing in a color value. - -frame .adjust -foreach i {1 2 3} { - label .adjust.l$i -textvariable label$i -pady 0 - labelframe .adjust.$i -labelwidget .adjust.l$i -padx 1m -pady 1m - scale .scale$i -from 0 -to 1000 -length 6c -orient horizontal \ - -command tc_scaleChanged - pack .scale$i -in .adjust.$i - pack .adjust.$i -} -grid .adjust -row 0 -column 1 -sticky nsew -padx .15c -pady .15c - -labelframe .name -text "Name:" -padx 1m -pady 1m -entry .name.e -textvariable name -width 10 -pack .name.e -side right -expand 1 -fill x -bind .name.e {tc_loadNamedColor $name} -grid .name -column 1 -row 1 -sticky nsew -padx .15c -pady .15c - -# Create the color display swatch on the right side of the window. - -labelframe .sample -text "Color:" -padx 1m -pady 1m -frame .sample.swatch -width 2c -height 5c -background $color -label .sample.value -textvariable color -width 13 -font {Courier 12} -pack .sample.swatch -side top -expand yes -fill both -pack .sample.value -side bottom -pady .25c -grid .sample -row 0 -column 2 -sticky nsew -padx .15c -pady .15c -rowspan 2 - - -# The procedure below is invoked when one of the scales is adjusted. -# It propagates color information from the current scale readings -# to everywhere else that it is used. - -proc tc_scaleChanged args { - global red green blue colorSpace color updating autoUpdate - if {$updating} { - return - } - switch $colorSpace { - rgb { - set red [format %.0f [expr {[.scale1 get]*65.535}]] - set green [format %.0f [expr {[.scale2 get]*65.535}]] - set blue [format %.0f [expr {[.scale3 get]*65.535}]] - } - cmy { - set red [format %.0f [expr {65535 - [.scale1 get]*65.535}]] - set green [format %.0f [expr {65535 - [.scale2 get]*65.535}]] - set blue [format %.0f [expr {65535 - [.scale3 get]*65.535}]] - } - hsb { - set list [hsbToRgb [expr {[.scale1 get]/1000.0}] \ - [expr {[.scale2 get]/1000.0}] \ - [expr {[.scale3 get]/1000.0}]] - set red [lindex $list 0] - set green [lindex $list 1] - set blue [lindex $list 2] - } - } - set color [format "#%04x%04x%04x" $red $green $blue] - .sample.swatch config -bg $color - if {$autoUpdate} doUpdate - update idletasks -} - -# The procedure below is invoked to update the scales from the -# current red, green, and blue intensities. It's invoked after -# a change in the color space and after a named color value has -# been loaded. - -proc tc_setScales {} { - global red green blue colorSpace updating - set updating 1 - switch $colorSpace { - rgb { - .scale1 set [format %.0f [expr {$red/65.535}]] - .scale2 set [format %.0f [expr {$green/65.535}]] - .scale3 set [format %.0f [expr {$blue/65.535}]] - } - cmy { - .scale1 set [format %.0f [expr {(65535-$red)/65.535}]] - .scale2 set [format %.0f [expr {(65535-$green)/65.535}]] - .scale3 set [format %.0f [expr {(65535-$blue)/65.535}]] - } - hsb { - set list [rgbToHsv $red $green $blue] - .scale1 set [format %.0f [expr {[lindex $list 0] * 1000.0}]] - .scale2 set [format %.0f [expr {[lindex $list 1] * 1000.0}]] - .scale3 set [format %.0f [expr {[lindex $list 2] * 1000.0}]] - } - } - set updating 0 -} - -# The procedure below is invoked when a named color has been -# selected from the listbox or typed into the entry. It loads -# the color into the editor. - -proc tc_loadNamedColor name { - global red green blue color autoUpdate - - if {[string index $name 0] != "#"} { - set list [winfo rgb .sample.swatch $name] - set red [lindex $list 0] - set green [lindex $list 1] - set blue [lindex $list 2] - } else { - switch [string length $name] { - 4 {set format "#%1x%1x%1x"; set shift 12} - 7 {set format "#%2x%2x%2x"; set shift 8} - 10 {set format "#%3x%3x%3x"; set shift 4} - 13 {set format "#%4x%4x%4x"; set shift 0} - default {error "syntax error in color name \"$name\""} - } - if {[scan $name $format red green blue] != 3} { - error "syntax error in color name \"$name\"" - } - set red [expr {$red<<$shift}] - set green [expr {$green<<$shift}] - set blue [expr {$blue<<$shift}] - } - tc_setScales - set color [format "#%04x%04x%04x" $red $green $blue] - .sample.swatch config -bg $color - if {$autoUpdate} doUpdate -} - -# The procedure below is invoked when a new color space is selected. -# It changes the labels on the scales and re-loads the scales with -# the appropriate values for the current color in the new color space - -proc changeColorSpace space { - global label1 label2 label3 - switch $space { - rgb { - set label1 "Adjust Red:" - set label2 "Adjust Green:" - set label3 "Adjust Blue:" - tc_setScales - return - } - cmy { - set label1 "Adjust Cyan:" - set label2 "Adjust Magenta:" - set label3 "Adjust Yellow:" - tc_setScales - return - } - hsb { - set label1 "Adjust Hue:" - set label2 "Adjust Saturation:" - set label3 "Adjust Brightness:" - tc_setScales - return - } - } -} - -# The procedure below converts an RGB value to HSB. It takes red, green, -# and blue components (0-65535) as arguments, and returns a list containing -# HSB components (floating-point, 0-1) as result. The code here is a copy -# of the code on page 615 of "Fundamentals of Interactive Computer Graphics" -# by Foley and Van Dam. - -proc rgbToHsv {red green blue} { - if {$red > $green} { - set max [expr {double($red)}] - set min [expr {double($green)}] - } else { - set max [expr {double($green)}] - set min [expr {double($red)}] - } - if {$blue > $max} { - set max [expr {double($blue)}] - } elseif {$blue < $min} { - set min [expr {double($blue)}] - } - set range [expr {$max-$min}] - if {$max == 0} { - set sat 0 - } else { - set sat [expr {($max-$min)/$max}] - } - if {$sat == 0} { - set hue 0 - } else { - set rc [expr {($max - $red)/$range}] - set gc [expr {($max - $green)/$range}] - set bc [expr {($max - $blue)/$range}] - if {$red == $max} { - set hue [expr {($bc - $gc)/6.0}] - } elseif {$green == $max} { - set hue [expr {(2 + $rc - $bc)/6.0}] - } else { - set hue [expr {(4 + $gc - $rc)/6.0}] - } - if {$hue < 0.0} { - set hue [expr {$hue + 1.0}] - } - } - return [list $hue $sat [expr {$max/65535}]] -} - -# The procedure below converts an HSB value to RGB. It takes hue, saturation, -# and value components (floating-point, 0-1.0) as arguments, and returns a -# list containing RGB components (integers, 0-65535) as result. The code -# here is a copy of the code on page 616 of "Fundamentals of Interactive -# Computer Graphics" by Foley and Van Dam. - -proc hsbToRgb {hue sat value} { - set v [format %.0f [expr {65535.0*$value}]] - if {$sat == 0} { - return "$v $v $v" - } else { - set hue [expr {$hue*6.0}] - if {$hue >= 6.0} { - set hue 0.0 - } - scan $hue. %d i - set f [expr {$hue-$i}] - set p [format %.0f [expr {65535.0*$value*(1 - $sat)}]] - set q [format %.0f [expr {65535.0*$value*(1 - ($sat*$f))}]] - set t [format %.0f [expr {65535.0*$value*(1 - ($sat*(1 - $f)))}]] - switch $i { - 0 {return "$v $t $p"} - 1 {return "$q $v $p"} - 2 {return "$p $v $t"} - 3 {return "$p $q $v"} - 4 {return "$t $p $v"} - 5 {return "$v $p $q"} - default {error "i value $i is out of range"} - } - } -} - -# The procedure below is invoked when the "Update" button is pressed, -# and whenever the color changes if update mode is enabled. It -# propagates color information as determined by the command in the -# Command entry. - -proc doUpdate {} { - global color command - set newCmd $command - regsub -all %% $command $color newCmd - eval $newCmd -} - -changeColorSpace hsb - -# Local Variables: -# mode: tcl -# End: diff --git a/mingw/lib/tk8.5/demos/text.tcl b/mingw/lib/tk8.5/demos/text.tcl deleted file mode 100644 index 6f25273360..0000000000 --- a/mingw/lib/tk8.5/demos/text.tcl +++ /dev/null @@ -1,88 +0,0 @@ -# text.tcl -- -# -# This demonstration script creates a text widget that describes -# the basic editing functions. -# -# RCS: @(#) $Id: text.tcl,v 1.8 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .text -catch {destroy $w} -toplevel $w -wm title $w "Text Demonstration - Basic Facilities" -wm iconname $w "text" -positionWindow $w - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -text $w.text -yscrollcommand [list $w.scroll set] -setgrid 1 \ - -height 30 -undo 1 -autosep 1 -scrollbar $w.scroll -command [list $w.text yview] -pack $w.scroll -side right -fill y -pack $w.text -expand yes -fill both -$w.text insert 0.0 \ -{This window is a text widget. It displays one or more lines of text -and allows you to edit the text. Here is a summary of the things you -can do to a text widget: - -1. Scrolling. Use the scrollbar to adjust the view in the text window. - -2. Scanning. Press mouse button 2 in the text window and drag up or down. -This will drag the text at high speed to allow you to scan its contents. - -3. Insert text. Press mouse button 1 to set the insertion cursor, then -type text. What you type will be added to the widget. - -4. Select. Press mouse button 1 and drag to select a range of characters. -Once you've released the button, you can adjust the selection by pressing -button 1 with the shift key down. This will reset the end of the -selection nearest the mouse cursor and you can drag that end of the -selection by dragging the mouse before releasing the mouse button. -You can double-click to select whole words or triple-click to select -whole lines. - -5. Delete and replace. To delete text, select the characters you'd like -to delete and type Backspace or Delete. Alternatively, you can type new -text, in which case it will replace the selected text. - -6. Copy the selection. To copy the selection into this window, select -what you want to copy (either here or in another application), then -click button 2 to copy the selection to the point of the mouse cursor. - -7. Edit. Text widgets support the standard Motif editing characters -plus many Emacs editing characters. Backspace and Control-h erase the -character to the left of the insertion cursor. Delete and Control-d -erase the character to the right of the insertion cursor. Meta-backspace -deletes the word to the left of the insertion cursor, and Meta-d deletes -the word to the right of the insertion cursor. Control-k deletes from -the insertion cursor to the end of the line, or it deletes the newline -character if that is the only thing left on the line. Control-o opens -a new line by inserting a newline character to the right of the insertion -cursor. Control-t transposes the two characters on either side of the -insertion cursor. Control-z undoes the last editing action performed, -and } - -switch $tcl_platform(platform) { - "unix" { - $w.text insert end "Control-Shift-z" - } - "windows" { - $w.text insert end "Control-y" - } -} - -$w.text insert end { redoes undone edits. - -7. Resize the window. This widget has been configured with the "setGrid" -option on, so that if you resize the window it will always resize to an -even number of characters high and wide. Also, if you make the window -narrow you can see that long lines automatically wrap around onto -additional lines so that all the information is always visible.} -$w.text mark set insert 0.0 diff --git a/mingw/lib/tk8.5/demos/textpeer.tcl b/mingw/lib/tk8.5/demos/textpeer.tcl deleted file mode 100644 index a93f1278a9..0000000000 --- a/mingw/lib/tk8.5/demos/textpeer.tcl +++ /dev/null @@ -1,64 +0,0 @@ -# textpeer.tcl -- -# -# This demonstration script creates a pair of text widgets that can edit a -# single logical buffer. This is particularly useful when editing related text -# in two (or more) parts of the same file. -# -# RCS: @(#) $Id: textpeer.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .textpeer -catch {destroy $w} -toplevel $w -wm title $w "Text Widget Peering Demonstration" -wm iconname $w "textpeer" -positionWindow $w - -set count 0 - -## Define a widget that we peer from; it won't ever actually be shown though -set first [text $w.text[incr count]] -$first insert end "This is a coupled pair of text widgets; they are peers to " -$first insert end "each other. They have the same underlying data model, but " -$first insert end "can show different locations, have different current edit " -$first insert end "locations, and have different selections. You can also " -$first insert end "create additional peers of any of these text widgets using " -$first insert end "the Make Peer button beside the text widget to clone, and " -$first insert end "delete a particular peer widget using the Delete Peer " -$first insert end "button." - -## Procedures to make and kill clones; most of this is just so that the demo -## looks nice... -proc makeClone {w parent} { - global count - set t [$parent peer create $w.text[incr count] -yscroll "$w.sb$count set"\ - -height 10 -wrap word] - set sb [scrollbar $w.sb$count -command "$t yview" -orient vertical] - set b1 [button $w.clone$count -command "makeClone $w $t" \ - -text "Make Peer"] - set b2 [button $w.kill$count -command "killClone $w $count" \ - -text "Delete Peer"] - set row [expr {$count * 2}] - grid $t $sb $b1 -sticky nsew -row $row - grid ^ ^ $b2 -row [incr row] - grid configure $b1 $b2 -sticky new - grid rowconfigure $w $b2 -weight 1 -} -proc killClone {w count} { - destroy $w.text$count $w.sb$count - destroy $w.clone$count $w.kill$count -} - -## Now set up the GUI -makeClone $w $first -makeClone $w $first -destroy $first - -## See Code / Dismiss buttons -grid [addSeeDismiss $w.buttons $w] - - -sticky ew -row 5000 -grid columnconfigure $w 0 -weight 1 diff --git a/mingw/lib/tk8.5/demos/timer b/mingw/lib/tk8.5/demos/timer deleted file mode 100644 index 99e6f4c704..0000000000 --- a/mingw/lib/tk8.5/demos/timer +++ /dev/null @@ -1,50 +0,0 @@ -#!/bin/sh -# the next line restarts using wish \ -exec wish "$0" "$@" - -# timer -- -# This script generates a counter with start and stop buttons. -# -# RCS: @(#) $Id: timer,v 1.4 2003/09/30 14:54:30 dkf Exp $ - -package require Tcl 8.4 -package require Tk - -label .counter -text 0.00 -relief raised -width 10 -padx 2m -pady 1m -button .start -text Start -command { - if {$stopped} { - set stopped 0 - set startMoment [clock clicks -milliseconds] - tick - .stop configure -state normal - .start configure -state disabled - } -} -button .stop -text Stop -state disabled -command { - set stopped 1 - .stop configure -state disabled - .start configure -state normal -} -pack .counter -side bottom -fill both -pack .start -side left -fill both -expand yes -pack .stop -side right -fill both -expand yes - -set startMoment {} - -set stopped 1 - -proc tick {} { - global startMoment stopped - if {$stopped} {return} - after 50 tick - set elapsedMS [expr {[clock clicks -milliseconds] - $startMoment}] - .counter config -text [format "%.2f" [expr {double($elapsedMS)/1000}]] -} - -bind . {destroy .} -bind . {destroy .} -focus . - -# Local Variables: -# mode: tcl -# End: diff --git a/mingw/lib/tk8.5/demos/toolbar.tcl b/mingw/lib/tk8.5/demos/toolbar.tcl deleted file mode 100644 index 74a490f1f1..0000000000 --- a/mingw/lib/tk8.5/demos/toolbar.tcl +++ /dev/null @@ -1,106 +0,0 @@ -# toolbar.tcl -- -# -# This demonstration script creates a toolbar that can be torn off. -# -# RCS: @(#) $Id: toolbar.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk -package require Ttk - -set w .toolbar -destroy $w -toplevel $w -wm title $w "Toolbar Demonstration" -wm iconname $w "toolbar" -positionWindow $w - -if {[tk windowingsystem] ne "aqua"} { - ttk::label $w.msg -wraplength 4i -text "This is a demonstration of how to do\ - a toolbar that is styled correctly and which can be torn off. The\ - buttons are configured to be \u201Ctoolbar style\u201D buttons by\ - telling them that they are to use the Toolbutton style. At the left\ - end of the toolbar is a simple marker that the cursor changes to a\ - movement icon over; drag that away from the toolbar to tear off the\ - whole toolbar into a separate toplevel widget. When the dragged-off\ - toolbar is no longer needed, just close it like any normal toplevel\ - and it will reattach to the window it was torn off from." -} else { -ttk::label $w.msg -wraplength 4i -text "This is a demonstration of how to do\ - a toolbar that is styled correctly. The buttons are configured to\ - be \u201Ctoolbar style\u201D buttons by telling them that they are\ - to use the Toolbutton style." -} - -## Set up the toolbar hull -set t [frame $w.toolbar] ;# Must be a frame! -ttk::separator $w.sep -ttk::frame $t.tearoff -cursor fleur -if {[tk windowingsystem] ne "aqua"} { - ttk::separator $t.tearoff.to -orient vertical - ttk::separator $t.tearoff.to2 -orient vertical - pack $t.tearoff.to -fill y -expand 1 -padx 2 -side left - pack $t.tearoff.to2 -fill y -expand 1 -side left -} -ttk::frame $t.contents -grid $t.tearoff $t.contents -sticky nsew -grid columnconfigure $t $t.contents -weight 1 -grid columnconfigure $t.contents 1000 -weight 1 - -if {[tk windowingsystem] ne "aqua"} { - ## Bindings so that the toolbar can be torn off and reattached - bind $t.tearoff [list tearoff $t %X %Y] - bind $t.tearoff.to [list tearoff $t %X %Y] - bind $t.tearoff.to2 [list tearoff $t %X %Y] - proc tearoff {w x y} { - if {[string match $w* [winfo containing $x $y]]} { - return - } - grid remove $w - grid remove $w.tearoff - wm manage $w - wm protocol $w WM_DELETE_WINDOW [list untearoff $w] - } - proc untearoff {w} { - wm forget $w - grid $w.tearoff - grid $w - } -} - -## Toolbar contents -ttk::button $t.button -text "Button" -style Toolbutton -command [list \ - $w.txt insert end "Button Pressed\n"] -ttk::checkbutton $t.check -text "Check" -variable check -style Toolbutton \ - -command [concat [list $w.txt insert end] {"check is $check\n"}] -ttk::menubutton $t.menu -text "Menu" -menu $t.menu.m -ttk::combobox $t.combo -value [lsort [font families]] -state readonly -menu $t.menu.m -$t.menu.m add command -label "Just" -command [list $w.txt insert end Just\n] -$t.menu.m add command -label "An" -command [list $w.txt insert end An\n] -$t.menu.m add command -label "Example" \ - -command [list $w.txt insert end Example\n] -bind $t.combo <> [list changeFont $w.txt $t.combo] -proc changeFont {txt combo} { - $txt configure -font [list [$combo get] 10] -} - -## Some content for the rest of the toplevel -text $w.txt -width 40 -height 10 -interp alias {} doInsert {} $w.txt insert end ;# Make bindings easy to write - -## Arrange contents -grid $t.button $t.check $t.menu $t.combo -in $t.contents -padx 2 -sticky ns -grid $t -sticky ew -grid $w.sep -sticky ew -grid $w.msg -sticky ew -grid $w.txt -sticky nsew -grid rowconfigure $w $w.txt -weight 1 -grid columnconfigure $w $w.txt -weight 1 - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -grid $btns -sticky ew diff --git a/mingw/lib/tk8.5/demos/tree.tcl b/mingw/lib/tk8.5/demos/tree.tcl deleted file mode 100644 index b46943a2e5..0000000000 --- a/mingw/lib/tk8.5/demos/tree.tcl +++ /dev/null @@ -1,96 +0,0 @@ -# tree.tcl -- -# -# This demonstration script creates a toplevel window containing a Ttk -# tree widget. -# -# RCS: @(#) $Id: tree.tcl,v 1.4 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk -package require Ttk - -set w .tree -catch {destroy $w} -toplevel $w -wm title $w "Directory Browser" -wm iconname $w "tree" -positionWindow $w - -## Explanatory text -ttk::label $w.msg -font $font -wraplength 4i -justify left -anchor n -padding {10 2 10 6} -text "Ttk is the new Tk themed widget set. One of the widgets it includes is a tree widget, which allows the user to browse a hierarchical data-set such as a filesystem. The tree widget not only allows for the tree part itself, but it also supports an arbitrary number of additional columns which can show additional data (in this case, the size of the files found in your filesystem). You can also change the width of the columns by dragging the boundary between them." -pack $w.msg -fill x - -## See Code / Dismiss -pack [addSeeDismiss $w.seeDismiss $w] -side bottom -fill x - -## Code to populate the roots of the tree (can be more than one on Windows) -proc populateRoots {tree} { - foreach dir [lsort -dictionary [file volumes]] { - populateTree $tree [$tree insert {} end -text $dir \ - -values [list $dir directory]] - } -} - -## Code to populate a node of the tree -proc populateTree {tree node} { - if {[$tree set $node type] ne "directory"} { - return - } - set path [$tree set $node fullpath] - $tree delete [$tree children $node] - foreach f [lsort -dictionary [glob -nocomplain -dir $path *]] { - set type [file type $f] - set id [$tree insert $node end -text [file tail $f] \ - -values [list $f $type]] - - if {$type eq "directory"} { - ## Make it so that this node is openable - $tree insert $id 0 -text dummy ;# a dummy - $tree item $id -text [file tail $f]/ - - } elseif {$type eq "file"} { - set size [file size $f] - ## Format the file size nicely - if {$size >= 1024*1024*1024} { - set size [format %.1f\ GB [expr {$size/1024/1024/1024.}]] - } elseif {$size >= 1024*1024} { - set size [format %.1f\ MB [expr {$size/1024/1024.}]] - } elseif {$size >= 1024} { - set size [format %.1f\ kB [expr {$size/1024.}]] - } else { - append size " bytes" - } - $tree set $id size $size - } - } - - # Stop this code from rerunning on the current node - $tree set $node type processedDirectory -} - -## Create the tree and set it up -ttk::treeview $w.tree -columns {fullpath type size} -displaycolumns {size} \ - -yscroll "$w.vsb set" -xscroll "$w.hsb set" -if {[tk windowingsystem] ne "aqua"} { - ttk::scrollbar $w.vsb -orient vertical -command "$w.tree yview" - ttk::scrollbar $w.hsb -orient horizontal -command "$w.tree xview" -} else { - scrollbar $w.vsb -orient vertical -command "$w.tree yview" - scrollbar $w.hsb -orient horizontal -command "$w.tree xview" -} -$w.tree heading \#0 -text "Directory Structure" -$w.tree heading size -text "File Size" -$w.tree column size -stretch 0 -width 70 -populateRoots $w.tree -bind $w.tree <> {populateTree %W [%W focus]} - -## Arrange the tree and its scrollbars in the toplevel -lower [ttk::frame $w.dummy] -pack $w.dummy -fill both -expand 1 -grid $w.tree $w.vsb -sticky nsew -in $w.dummy -grid $w.hsb -sticky nsew -in $w.dummy -grid columnconfigure $w.dummy 0 -weight 1 -grid rowconfigure $w.dummy 0 -weight 1 diff --git a/mingw/lib/tk8.5/demos/ttkbut.tcl b/mingw/lib/tk8.5/demos/ttkbut.tcl deleted file mode 100644 index 3d5d3a82b0..0000000000 --- a/mingw/lib/tk8.5/demos/ttkbut.tcl +++ /dev/null @@ -1,87 +0,0 @@ -# ttkbut.tcl -- -# -# This demonstration script creates a toplevel window containing several -# simple Ttk widgets, such as labels, labelframes, buttons, checkbuttons and -# radiobuttons. -# -# RCS: @(#) $Id: ttkbut.tcl,v 1.4 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk -package require Ttk - -set w .ttkbut -catch {destroy $w} -toplevel $w -wm title $w "Simple Ttk Widgets" -wm iconname $w "ttkbut" -positionWindow $w - -ttk::label $w.msg -font $font -wraplength 4i -justify left -text "Ttk is the new Tk themed widget set. This is a Ttk themed label, and below are three groups of Ttk widgets in Ttk labelframes. The first group are all buttons that set the current application theme when pressed. The second group contains three sets of checkbuttons, with a separator widget between the sets. Note that the \u201cEnabled\u201d button controls whether all the other themed widgets in this toplevel are in the disabled state. The third group has a collection of linked radiobuttons." -pack $w.msg -side top -fill x - -## See Code / Dismiss -pack [addSeeDismiss $w.seeDismiss $w {enabled cheese tomato basil oregano happyness}]\ - -side bottom -fill x - -## Add buttons for setting the theme -ttk::labelframe $w.buttons -text "Buttons" -foreach theme [ttk::themes] { - ttk::button $w.buttons.$theme -text $theme \ - -command [list ttk::setTheme $theme] - pack $w.buttons.$theme -pady 2 -} - -## Helper procedure for the top checkbutton -proc setState {rootWidget exceptThese value} { - if {$rootWidget in $exceptThese} { - return - } - ## Non-Ttk widgets (e.g. the toplevel) will fail, so make it silent - catch { - $rootWidget state $value - } - ## Recursively invoke on all children of this root that are in the same - ## toplevel widget - foreach w [winfo children $rootWidget] { - if {[winfo toplevel $w] eq [winfo toplevel $rootWidget]} { - setState $w $exceptThese $value - } - } -} - -## Set up the checkbutton group -ttk::labelframe $w.checks -text "Checkbuttons" -ttk::checkbutton $w.checks.e -text Enabled -variable enabled -command { - setState .ttkbut .ttkbut.checks.e \ - [expr {$enabled ? "!disabled" : "disabled"}] -} -set enabled 1 -## See ttk_widget(n) for other possible state flags -ttk::separator $w.checks.sep1 -ttk::checkbutton $w.checks.c1 -text Cheese -variable cheese -ttk::checkbutton $w.checks.c2 -text Tomato -variable tomato -ttk::separator $w.checks.sep2 -ttk::checkbutton $w.checks.c3 -text Basil -variable basil -ttk::checkbutton $w.checks.c4 -text Oregano -variable oregano -pack $w.checks.e $w.checks.sep1 $w.checks.c1 $w.checks.c2 $w.checks.sep2 \ - $w.checks.c3 $w.checks.c4 -fill x -pady 2 - -## Set up the radiobutton group -ttk::labelframe $w.radios -text "Radiobuttons" -ttk::radiobutton $w.radios.r1 -text "Great" -variable happyness -value great -ttk::radiobutton $w.radios.r2 -text "Good" -variable happyness -value good -ttk::radiobutton $w.radios.r3 -text "OK" -variable happyness -value ok -ttk::radiobutton $w.radios.r4 -text "Poor" -variable happyness -value poor -ttk::radiobutton $w.radios.r5 -text "Awful" -variable happyness -value awful -pack $w.radios.r1 $w.radios.r2 $w.radios.r3 $w.radios.r4 $w.radios.r5 \ - -fill x -padx 3 -pady 2 - -## Arrange things neatly -pack [ttk::frame $w.f] -fill both -expand 1 -lower $w.f -grid $w.buttons $w.checks $w.radios -in $w.f -sticky nwe -pady 2 -padx 3 -grid columnconfigure $w.f {0 1 2} -weight 1 -uniform yes diff --git a/mingw/lib/tk8.5/demos/ttkmenu.tcl b/mingw/lib/tk8.5/demos/ttkmenu.tcl deleted file mode 100644 index 235b4b14ab..0000000000 --- a/mingw/lib/tk8.5/demos/ttkmenu.tcl +++ /dev/null @@ -1,56 +0,0 @@ -# ttkmenu.tcl -- -# -# This demonstration script creates a toplevel window containing several Ttk -# menubutton widgets. -# -# RCS: @(#) $Id: ttkmenu.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk -package require Ttk - -set w .ttkmenu -catch {destroy $w} -toplevel $w -wm title $w "Ttk Menu Buttons" -wm iconname $w "ttkmenu" -positionWindow $w - -ttk::label $w.msg -font $font -wraplength 4i -justify left -text "Ttk is the new Tk themed widget set, and one widget that is available in themed form is the menubutton. Below are some themed menu buttons that allow you to pick the current theme in use. Notice how picking a theme changes the way that the menu buttons themselves look, and that the central menu button is styled differently (in a way that is normally suitable for toolbars). However, there are no themed menus; the standard Tk menus were judged to have a sufficiently good look-and-feel on all platforms, especially as they are implemented as native controls in many places." -pack $w.msg [ttk::separator $w.msgSep] -side top -fill x - -## See Code / Dismiss -pack [addSeeDismiss $w.seeDismiss $w] -side bottom -fill x - -ttk::menubutton $w.m1 -menu $w.m1.menu -text "Select a theme" -direction above -ttk::menubutton $w.m2 -menu $w.m1.menu -text "Select a theme" -direction left -ttk::menubutton $w.m3 -menu $w.m1.menu -text "Select a theme" -direction right -ttk::menubutton $w.m4 -menu $w.m1.menu -text "Select a theme" \ - -direction flush -style TMenubutton.Toolbutton -ttk::menubutton $w.m5 -menu $w.m1.menu -text "Select a theme" -direction below - -menu $w.m1.menu -tearoff 0 -menu $w.m2.menu -tearoff 0 -menu $w.m3.menu -tearoff 0 -menu $w.m4.menu -tearoff 0 -menu $w.m5.menu -tearoff 0 - -foreach theme [ttk::themes] { - $w.m1.menu add command -label $theme -command [list ttk::setTheme $theme] - $w.m2.menu add command -label $theme -command [list ttk::setTheme $theme] - $w.m3.menu add command -label $theme -command [list ttk::setTheme $theme] - $w.m4.menu add command -label $theme -command [list ttk::setTheme $theme] - $w.m5.menu add command -label $theme -command [list ttk::setTheme $theme] -} - -pack [ttk::frame $w.f] -fill x -pack [ttk::frame $w.f1] -fill both -expand yes -lower $w.f - -grid anchor $w.f center -grid x $w.m1 x -in $w.f -padx 3 -pady 2 -grid $w.m2 $w.m4 $w.m3 -in $w.f -padx 3 -pady 2 -grid x $w.m5 x -in $w.f -padx 3 -pady 2 diff --git a/mingw/lib/tk8.5/demos/ttknote.tcl b/mingw/lib/tk8.5/demos/ttknote.tcl deleted file mode 100644 index f7c70a3183..0000000000 --- a/mingw/lib/tk8.5/demos/ttknote.tcl +++ /dev/null @@ -1,64 +0,0 @@ -# ttknote.tcl -- -# -# This demonstration script creates a toplevel window containing a Ttk -# notebook widget. -# -# RCS: @(#) $Id: ttknote.tcl,v 1.5 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk -package require Ttk - -set w .ttknote -catch {destroy $w} -toplevel $w -wm title $w "Ttk Notebook Widget" -wm iconname $w "ttknote" -positionWindow $w - -## See Code / Dismiss -pack [addSeeDismiss $w.seeDismiss $w] -side bottom -fill x - -ttk::frame $w.f -pack $w.f -fill both -expand 1 -set w $w.f - -## Make the notebook and set up Ctrl+Tab traversal -ttk::notebook $w.note -pack $w.note -fill both -expand 1 -padx 2 -pady 3 -ttk::notebook::enableTraversal $w.note - -## Popuplate the first pane -ttk::frame $w.note.msg -ttk::label $w.note.msg.m -font $font -wraplength 4i -justify left -anchor n -text "Ttk is the new Tk themed widget set. One of the widgets it includes is the notebook widget, which provides a set of tabs that allow the selection of a group of panels, each with distinct content. They are a feature of many modern user interfaces. Not only can the tabs be selected with the mouse, but they can also be switched between using Ctrl+Tab when the notebook page heading itself is selected. Note that the second tab is disabled, and cannot be selected." -ttk::button $w.note.msg.b -text "Neat!" -underline 0 -command { - set neat "Yeah, I know..." - after 500 {set neat {}} -} -bind $w "focus $w.note.msg.b; $w.note.msg.b invoke" -ttk::label $w.note.msg.l -textvariable neat -$w.note add $w.note.msg -text "Description" -underline 0 -padding 2 -grid $w.note.msg.m - -sticky new -pady 2 -grid $w.note.msg.b $w.note.msg.l -pady {2 4} -grid rowconfigure $w.note.msg 1 -weight 1 -grid columnconfigure $w.note.msg {0 1} -weight 1 -uniform 1 - -## Populate the second pane. Note that the content doesn't really matter -ttk::frame $w.note.disabled -$w.note add $w.note.disabled -text "Disabled" -state disabled - -## Popuplate the third pane -ttk::frame $w.note.editor -$w.note add $w.note.editor -text "Text Editor" -underline 0 -text $w.note.editor.t -width 40 -height 10 -wrap char \ - -yscroll "$w.note.editor.s set" -if {[tk windowingsystem] ne "aqua"} { - ttk::scrollbar $w.note.editor.s -orient vertical -command "$w.note.editor.t yview" -} else { - scrollbar $w.note.editor.s -orient vertical -command "$w.note.editor.t yview" -} -pack $w.note.editor.s -side right -fill y -padx {0 2} -pady 2 -pack $w.note.editor.t -fill both -expand 1 -pady 2 -padx {2 0} diff --git a/mingw/lib/tk8.5/demos/ttkpane.tcl b/mingw/lib/tk8.5/demos/ttkpane.tcl deleted file mode 100644 index 549ef3f92e..0000000000 --- a/mingw/lib/tk8.5/demos/ttkpane.tcl +++ /dev/null @@ -1,109 +0,0 @@ -# ttkpane.tcl -- -# -# This demonstration script creates a Ttk pane with some content. -# -# RCS: @(#) $Id: ttkpane.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk -package require Ttk - -set w .ttkpane -catch {destroy $w} -toplevel $w -wm title $w "Themed Nested Panes" -wm iconname $w "ttkpane" -positionWindow $w - -ttk::label $w.msg -font $font -wraplength 4i -justify left -text "This demonstration shows off a nested set of themed paned windows. Their sizes can be changed by grabbing the area between each contained pane and dragging the divider." -pack $w.msg [ttk::separator $w.msgSep] -side top -fill x - -## See Code / Dismiss -pack [addSeeDismiss $w.seeDismiss $w] -side bottom -fill x - -ttk::frame $w.f -pack $w.f -fill both -expand 1 -set w $w.f -ttk::panedwindow $w.outer -orient horizontal -$w.outer add [ttk::panedwindow $w.outer.inLeft -orient vertical] -$w.outer add [ttk::panedwindow $w.outer.inRight -orient vertical] -$w.outer.inLeft add [ttk::labelframe $w.outer.inLeft.top -text Button] -$w.outer.inLeft add [ttk::labelframe $w.outer.inLeft.bot -text Clocks] -$w.outer.inRight add [ttk::labelframe $w.outer.inRight.top -text Progress] -$w.outer.inRight add [ttk::labelframe $w.outer.inRight.bot -text Text] -if {[tk windowingsystem] eq "aqua"} { - foreach i [list inLeft.top inLeft.bot inRight.top inRight.bot] { - $w.outer.$i configure -padding 3 - } -} - -# Fill the button pane -ttk::button $w.outer.inLeft.top.b -text "Press Me" -command { - tk_messageBox -type ok -icon info -message "Ouch!" -detail "That hurt..." \ - -parent .ttkpane -title "Button Pressed" -} -pack $w.outer.inLeft.top.b -padx 2 -pady 5 - -# Fill the clocks pane -set i 0 -proc every {delay script} { - uplevel #0 $script - after $delay [list every $delay $script] -} -set zones { - :Europe/Berlin - :America/Argentina/Buenos_Aires - :Africa/Johannesburg - :Europe/London - :America/Los_Angeles - :Europe/Moscow - :America/New_York - :Asia/Singapore - :Australia/Sydney - :Asia/Tokyo -} -# Force a pre-load of all the timezones needed; otherwise can end up -# poor-looking synch problems! -foreach zone $zones {clock format 0 -timezone $zone} -foreach zone $zones { - set city [string map {_ " "} [regexp -inline {[^/]+$} $zone]] - if {$i} { - pack [ttk::separator $w.outer.inLeft.bot.s$i] -fill x - } - ttk::label $w.outer.inLeft.bot.l$i -text $city -anchor w - ttk::label $w.outer.inLeft.bot.t$i -textvariable time($zone) -anchor w - pack $w.outer.inLeft.bot.l$i $w.outer.inLeft.bot.t$i -fill x - every 1000 "set time($zone) \[clock format \[clock seconds\] -timezone $zone -format %T\]" - incr i -} - -# Fill the progress pane -ttk::progressbar $w.outer.inRight.top.progress -mode indeterminate -pack $w.outer.inRight.top.progress -fill both -expand 1 -$w.outer.inRight.top.progress start - -# Fill the text pane -if {[tk windowingsystem] ne "aqua"} { - # The trick with the ttk::frame makes the text widget look like it fits with - # the current Ttk theme despite not being a themed widget itself. It is done - # by styling the frame like an entry, turning off the border in the text - # widget, and putting the text widget in the frame with enough space to allow - # the surrounding border to show through (2 pixels seems to be enough). - ttk::frame $w.outer.inRight.bot.f -style TEntry - text $w.txt -wrap word -yscroll "$w.sb set" -width 30 -borderwidth 0 - pack $w.txt -fill both -expand 1 -in $w.outer.inRight.bot.f -pady 2 -padx 2 - ttk::scrollbar $w.sb -orient vertical -command "$w.txt yview" - pack $w.sb -side right -fill y -in $w.outer.inRight.bot - pack $w.outer.inRight.bot.f -fill both -expand 1 - pack $w.outer -fill both -expand 1 -} else { - text $w.txt -wrap word -yscroll "$w.sb set" -width 30 -borderwidth 0 - scrollbar $w.sb -orient vertical -command "$w.txt yview" - pack $w.sb -side right -fill y -in $w.outer.inRight.bot - pack $w.txt -fill both -expand 1 -in $w.outer.inRight.bot - pack $w.outer -fill both -expand 1 -padx 10 -pady {6 10} -} - diff --git a/mingw/lib/tk8.5/demos/ttkprogress.tcl b/mingw/lib/tk8.5/demos/ttkprogress.tcl deleted file mode 100644 index 2db6d59d16..0000000000 --- a/mingw/lib/tk8.5/demos/ttkprogress.tcl +++ /dev/null @@ -1,49 +0,0 @@ -# ttkprogress.tcl -- -# -# This demonstration script creates several progress bar widgets. -# -# RCS: @(#) $Id: ttkprogress.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk -package require Ttk - -set w .ttkprogress -catch {destroy $w} -toplevel $w -wm title $w "Progress Bar Demonstration" -wm iconname $w "ttkprogress" -positionWindow $w - -ttk::label $w.msg -font $font -wraplength 4i -justify left -text "Below are two progress bars. The top one is a \u201Cdeterminate\u201D progress bar, which is used for showing how far through a defined task the program has got. The bottom one is an \u201Cindeterminate\u201D progress bar, which is used to show that the program is busy but does not know how long for. Both are run here in self-animated mode, which can be turned on and off using the buttons underneath." -pack $w.msg -side top -fill x - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -ttk::frame $w.f -pack $w.f -fill both -expand 1 -set w $w.f - -proc doBars {op args} { - foreach w $args { - $w $op - } -} -ttk::progressbar $w.p1 -mode determinate -ttk::progressbar $w.p2 -mode indeterminate -ttk::button $w.start -text "Start Progress" -command [list \ - doBars start $w.p1 $w.p2] -ttk::button $w.stop -text "Stop Progress" -command [list \ - doBars stop $w.p1 $w.p2] - -grid $w.p1 - -pady 5 -padx 10 -grid $w.p2 - -pady 5 -padx 10 -grid $w.start $w.stop -padx 10 -pady 5 -grid configure $w.start -sticky e -grid configure $w.stop -sticky w -grid columnconfigure $w all -weight 1 diff --git a/mingw/lib/tk8.5/demos/twind.tcl b/mingw/lib/tk8.5/demos/twind.tcl deleted file mode 100644 index 102be125bf..0000000000 --- a/mingw/lib/tk8.5/demos/twind.tcl +++ /dev/null @@ -1,327 +0,0 @@ -# twind.tcl -- -# -# This demonstration script creates a text widget with a bunch of -# embedded windows. -# -# RCS: @(#) $Id: twind.tcl,v 1.11 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .twind -catch {destroy $w} -toplevel $w -wm title $w "Text Demonstration - Embedded Windows and Other Features" -wm iconname $w "Embedded Windows" -positionWindow $w - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.f -highlightthickness 1 -borderwidth 1 -relief sunken -set t $w.f.text -text $t -yscrollcommand "$w.scroll set" -setgrid true -font $font -width 70 \ - -height 35 -wrap word -highlightthickness 0 -borderwidth 0 -pack $t -expand yes -fill both -scrollbar $w.scroll -command "$t yview" -pack $w.scroll -side right -fill y -panedwindow $w.pane -pack $w.pane -expand yes -fill both -$w.pane add $w.f -# Import to raise given creation order above -raise $w.f - -$t tag configure center -justify center -spacing1 5m -spacing3 5m -$t tag configure buttons -lmargin1 1c -lmargin2 1c -rmargin 1c \ - -spacing1 3m -spacing2 0 -spacing3 0 - -button $t.on -text "Turn On" -command "textWindOn $w" \ - -cursor top_left_arrow -button $t.off -text "Turn Off" -command "textWindOff $w" \ - -cursor top_left_arrow - -$t insert end "A text widget can contain many different kinds of items, " -$t insert end "both active and passive. It can lay these out in various " -$t insert end "ways, with wrapping, tabs, centering, etc. In addition, " -$t insert end "when the contents are too big for the window, smooth " -$t insert end "scrolling in all directions is provided.\n\n" - -$t insert end "A text widget can contain other widgets embedded " -$t insert end "it. These are called \"embedded windows\", " -$t insert end "and they can consist of arbitrary widgets. " -$t insert end "For example, here are two embedded button " -$t insert end "widgets. You can click on the first button to " -$t window create end -window $t.on -$t insert end " horizontal scrolling, which also turns off " -$t insert end "word wrapping. Or, you can click on the second " -$t insert end "button to\n" -$t window create end -window $t.off -$t insert end " horizontal scrolling and turn back on word wrapping.\n\n" - -$t insert end "Or, here is another example. If you " -$t window create end -create { - button %W.click -text "Click Here" -command "textWindPlot %W" \ - -cursor top_left_arrow} - -$t insert end " a canvas displaying an x-y plot will appear right here." -$t mark set plot insert -$t mark gravity plot left -$t insert end " You can drag the data points around with the mouse, " -$t insert end "or you can click here to " -$t window create end -create { - button %W.delete -text "Delete" -command "textWindDel %W" \ - -cursor top_left_arrow -} -$t insert end " the plot again.\n\n" - -$t insert end "You can also create multiple text widgets each of which " -$t insert end "display the same underlying text. Click this button to " -$t window create end \ - -create {button %W.peer -text "Make A Peer" -command "textMakePeer %W" \ - -cursor top_left_arrow} -padx 3 -$t insert end " widget. Notice how peer widgets can have different " -$t insert end "font settings, and by default contain all the images " -$t insert end "of the 'parent', but many of the embedded windows, " -$t insert end "such as buttons will not be there. The easiest way " -$t insert end "to ensure they are in all peers is to use '-create' " -$t insert end "embedded window creation scripts " -$t insert end "(the plot above and the 'Make A Peer' button are " -$t insert end "designed to show up in all peers). A good use of " -$t insert end "peers is for " -$t window create end \ - -create {button %W.split -text "Split Windows" -command "textSplitWindow %W" \ - -cursor top_left_arrow} -padx 3 -$t insert end " \n\n" - -$t insert end "Users of previous versions of Tk will also be interested " -$t insert end "to note that now cursor movement is now by visual line by " -$t insert end "default, and that all scrolling of this widget is by pixel.\n\n" - -$t insert end "You may also find it useful to put embedded windows in " -$t insert end "a text without any actual text. In this case the " -$t insert end "text widget acts like a geometry manager. For " -$t insert end "example, here is a collection of buttons laid out " -$t insert end "neatly into rows by the text widget. These buttons " -$t insert end "can be used to change the background color of the " -$t insert end "text widget (\"Default\" restores the color to " -$t insert end "its default). If you click on the button labeled " -$t insert end "\"Short\", it changes to a longer string so that " -$t insert end "you can see how the text widget automatically " -$t insert end "changes the layout. Click on the button again " -$t insert end "to restore the short string.\n" - -button $t.default -text Default -command "embDefBg $t" \ - -cursor top_left_arrow -$t window create end -window $t.default -padx 3 -global embToggle -set embToggle Short -checkbutton $t.toggle -textvariable embToggle -indicatoron 0 \ - -variable embToggle -onvalue "A much longer string" \ - -offvalue "Short" -cursor top_left_arrow -pady 5 -padx 2 -$t window create end -window $t.toggle -padx 3 -pady 2 -set i 1 -foreach color {AntiqueWhite3 Bisque1 Bisque2 Bisque3 Bisque4 - SlateBlue3 RoyalBlue1 SteelBlue2 DeepSkyBlue3 LightBlue1 - DarkSlateGray1 Aquamarine2 DarkSeaGreen2 SeaGreen1 - Yellow1 IndianRed1 IndianRed2 Tan1 Tan4} { - button $t.color$i -text $color -cursor top_left_arrow -command \ - "$t configure -bg $color" - $t window create end -window $t.color$i -padx 3 -pady 2 - incr i -} -$t tag add buttons $t.default end - -button $t.bigB -text "Big borders" -command "textWindBigB $t" \ - -cursor top_left_arrow -button $t.smallB -text "Small borders" -command "textWindSmallB $t" \ - -cursor top_left_arrow -button $t.bigH -text "Big highlight" -command "textWindBigH $t" \ - -cursor top_left_arrow -button $t.smallH -text "Small highlight" -command "textWindSmallH $t" \ - -cursor top_left_arrow -button $t.bigP -text "Big pad" -command "textWindBigP $t" \ - -cursor top_left_arrow -button $t.smallP -text "Small pad" -command "textWindSmallP $t" \ - -cursor top_left_arrow - -set text_normal(border) [$t cget -borderwidth] -set text_normal(highlight) [$t cget -highlightthickness] -set text_normal(pad) [$t cget -padx] - -$t insert end "\nYou can also change the usual border width and " -$t insert end "highlightthickness and padding.\n" -$t window create end -window $t.bigB -$t window create end -window $t.smallB -$t window create end -window $t.bigH -$t window create end -window $t.smallH -$t window create end -window $t.bigP -$t window create end -window $t.smallP - -$t insert end "\n\nFinally, images fit comfortably in text widgets too:" - -$t image create end -image \ - [image create bitmap -file [file join $tk_demoDirectory images face.xbm]] - - -proc textWindBigB w { - $w configure -borderwidth 15 -} - -proc textWindBigH w { - $w configure -highlightthickness 15 -} - -proc textWindBigP w { - $w configure -padx 15 -pady 15 -} - -proc textWindSmallB w { - $w configure -borderwidth $::text_normal(border) -} - -proc textWindSmallH w { - $w configure -highlightthickness $::text_normal(highlight) -} - -proc textWindSmallP w { - $w configure -padx $::text_normal(pad) -pady $::text_normal(pad) -} - - -proc textWindOn w { - catch {destroy $w.scroll2} - set t $w.f.text - scrollbar $w.scroll2 -orient horizontal -command "$t xview" - pack $w.scroll2 -after $w.buttons -side bottom -fill x - $t configure -xscrollcommand "$w.scroll2 set" -wrap none -} - -proc textWindOff w { - catch {destroy $w.scroll2} - set t $w.f.text - $t configure -xscrollcommand {} -wrap word -} - -proc textWindPlot t { - set c $t.c - if {[winfo exists $c]} { - return - } - - while {[string first [$t get plot] " \t\n"] >= 0} { - $t delete plot - } - $t insert plot "\n" - - $t window create plot -create {createPlot %W} - $t tag add center plot - $t insert plot "\n" -} - -proc createPlot {t} { - set c $t.c - - canvas $c -relief sunken -width 450 -height 300 -cursor top_left_arrow - - set font {Helvetica 18} - - $c create line 100 250 400 250 -width 2 - $c create line 100 250 100 50 -width 2 - $c create text 225 20 -text "A Simple Plot" -font $font -fill brown - - for {set i 0} {$i <= 10} {incr i} { - set x [expr {100 + ($i*30)}] - $c create line $x 250 $x 245 -width 2 - $c create text $x 254 -text [expr {10*$i}] -anchor n -font $font - } - for {set i 0} {$i <= 5} {incr i} { - set y [expr {250 - ($i*40)}] - $c create line 100 $y 105 $y -width 2 - $c create text 96 $y -text [expr {$i*50}].0 -anchor e -font $font - } - - foreach point { - {12 56} {20 94} {33 98} {32 120} {61 180} {75 160} {98 223} - } { - set x [expr {100 + (3*[lindex $point 0])}] - set y [expr {250 - (4*[lindex $point 1])/5}] - set item [$c create oval [expr {$x-6}] [expr {$y-6}] \ - [expr {$x+6}] [expr {$y+6}] -width 1 -outline black \ - -fill SkyBlue2] - $c addtag point withtag $item - } - - $c bind point "$c itemconfig current -fill red" - $c bind point "$c itemconfig current -fill SkyBlue2" - $c bind point <1> "embPlotDown $c %x %y" - $c bind point "$c dtag selected" - bind $c "embPlotMove $c %x %y" - return $c -} - -set embPlot(lastX) 0 -set embPlot(lastY) 0 - -proc embPlotDown {w x y} { - global embPlot - $w dtag selected - $w addtag selected withtag current - $w raise current - set embPlot(lastX) $x - set embPlot(lastY) $y -} - -proc embPlotMove {w x y} { - global embPlot - $w move selected [expr {$x-$embPlot(lastX)}] [expr {$y-$embPlot(lastY)}] - set embPlot(lastX) $x - set embPlot(lastY) $y -} - -proc textWindDel t { - if {[winfo exists $t.c]} { - $t delete $t.c - while {[string first [$t get plot] " \t\n"] >= 0} { - $t delete plot - } - $t insert plot " " - } -} - -proc embDefBg t { - $t configure -background [lindex [$t configure -background] 3] -} - -proc textMakePeer {parent} { - set n 1 - while {[winfo exists .peer$n]} { incr n } - set w [toplevel .peer$n] - wm title $w "Text Peer #$n" - frame $w.f -highlightthickness 1 -borderwidth 1 -relief sunken - set t [$parent peer create $w.f.text -yscrollcommand "$w.scroll set" \ - -borderwidth 0 -highlightthickness 0] - pack $t -expand yes -fill both - scrollbar $w.scroll -command "$t yview" - pack $w.scroll -side right -fill y - pack $w.f -expand yes -fill both -} - -proc textSplitWindow {textW} { - if {$textW eq ".twind.f.text"} { - if {[winfo exists .twind.peer]} { - destroy .twind.peer - } else { - set parent [winfo parent $textW] - set w [winfo parent $parent] - set t [$textW peer create $w.peer \ - -yscrollcommand "$w.scroll set"] - $w.pane add $t - } - } else { - return - } -} diff --git a/mingw/lib/tk8.5/demos/unicodeout.tcl b/mingw/lib/tk8.5/demos/unicodeout.tcl deleted file mode 100644 index 3d733e1519..0000000000 --- a/mingw/lib/tk8.5/demos/unicodeout.tcl +++ /dev/null @@ -1,94 +0,0 @@ -# unicodeout.tcl -- -# -# This demonstration script shows how you can produce output (in label -# widgets) using many different alphabets. -# -# RCS: @(#) $Id: unicodeout.tcl,v 1.7 2007/12/13 15:27:07 dgp Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .unicodeout -catch {destroy $w} -toplevel $w -wm title $w "Unicode Label Demonstration" -wm iconname $w "unicodeout" -positionWindow $w - -label $w.msg -font $font -wraplength 4i -anchor w -justify left \ - -text "This is a sample of Tk's support for languages that use\ - non-Western character sets. However, what you will actually see\ - below depends largely on what character sets you have installed,\ - and what you see for characters that are not present varies greatly\ - between platforms as well. The strings are written in Tcl using\ - UNICODE characters using the \\uXXXX escape so as to do so in a\ - portable fashion." -pack $w.msg -side top - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -pack [label $w.wait -text "Please wait while loading fonts..." \ - -font {Helvetica 12 italic}] -pack [frame $w.f] -expand 1 -fill both -padx 2m -pady 1m -grid columnconfigure $w.f 1 -weight 1 - -set i 0 -proc addSample {w language args} { - global font i - set sample [join $args ""] - set j [incr i] - label $w.f.l$j -font $font -text "${language}:" -anchor nw -pady 0 - label $w.f.s$j -font $font -text $sample -anchor nw -width 30 -pady 0 - grid $w.f.l$j $w.f.s$j -sticky ew -pady 0 - grid configure $w.f.l$j -padx 1m -} - -# Processing when some characters are missing might take a while, so make -# sure we're displaying something in the meantime... - -set oldCursor [$w cget -cursor] -$w conf -cursor watch -update - -if {[tk windowingsystem] in {x11 win32}} { - # Using presentation forms (pre-layouted) - addSample $w Arabic \ - "\uFE94\uFEF4\uFE91\uFEAE\uFECC\uFEDF\uFE8D " \ - "\uFE94\uFEE4\uFEE0\uFEDC\uFEDF\uFE8D" -} else { - # Using standard text characters - addSample $w Arabic \ - "\u0627\u0644\u0643\u0644\u0645\u0629 " \ - "\u0627\u0644\u0639\u0631\u0628\u064A\u0629" -} -addSample $w "Trad. Chinese" "\u4E2D\u570B\u7684\u6F22\u5B57" -addSample $w "Simpl. Chinese" "\u6C49\u8BED" -addSample $w Greek \ - "\u0395\u03BB\u03BB\u03B7\u03BD\u03B9\u03BA\u03AE " \ - "\u03B3\u03BB\u03CE\u03C3\u03C3\u03B1" -if {[tk windowingsystem] in {x11 win32}} { - # Visual order (pre-layouted) - addSample $w Hebrew \ - "\u05DD\u05D9\u05DC\u05E9\u05D5\u05E8\u05D9 " \ - "\u05DC\u05D9\u05D0\u05E8\u05E9\u05D9" -} else { - # Standard logical order - addSample $w Hebrew \ - "\u05D9\u05E9\u05E8\u05D0\u05D9\u05DC " \ - "\u05D9\u05E8\u05D5\u05E9\u05DC\u05D9\u05DD" -} -addSample $w Japanese \ - "\u65E5\u672C\u8A9E\u306E\u3072\u3089\u304C\u306A, " \ - "\u6F22\u5B57\u3068\u30AB\u30BF\u30AB\u30CA" -addSample $w Korean "\uB300\uD55C\uBBFC\uAD6D\uC758 \uD55C\uAE00" -addSample $w Russian \ - "\u0420\u0443\u0441\u0441\u043A\u0438\u0439 \u044F\u0437\u044B\u043A" - -# We're done processing, so change things back to normal running... -destroy $w.wait -$w conf -cursor $oldCursor diff --git a/mingw/lib/tk8.5/demos/vscale.tcl b/mingw/lib/tk8.5/demos/vscale.tcl deleted file mode 100644 index 599329c00c..0000000000 --- a/mingw/lib/tk8.5/demos/vscale.tcl +++ /dev/null @@ -1,48 +0,0 @@ -# vscale.tcl -- -# -# This demonstration script shows an example with a vertical scale. -# -# RCS: @(#) $Id: vscale.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $ - -if {![info exists widgetDemo]} { - error "This script should be run from the \"widget\" demo." -} - -package require Tk - -set w .vscale -catch {destroy $w} -toplevel $w -wm title $w "Vertical Scale Demonstration" -wm iconname $w "vscale" -positionWindow $w - -label $w.msg -font $font -wraplength 3.5i -justify left -text "An arrow and a vertical scale are displayed below. If you click or drag mouse button 1 in the scale, you can change the size of the arrow." -pack $w.msg -side top -padx .5c - -## See Code / Dismiss buttons -set btns [addSeeDismiss $w.buttons $w] -pack $btns -side bottom -fill x - -frame $w.frame -borderwidth 10 -pack $w.frame - -scale $w.frame.scale -orient vertical -length 284 -from 0 -to 250 \ - -command "setHeight $w.frame.canvas" -tickinterval 50 -canvas $w.frame.canvas -width 50 -height 50 -bd 0 -highlightthickness 0 -$w.frame.canvas create polygon 0 0 1 1 2 2 -fill SeaGreen3 -tags poly -$w.frame.canvas create line 0 0 1 1 2 2 0 0 -fill black -tags line -frame $w.frame.right -borderwidth 15 -pack $w.frame.scale -side left -anchor ne -pack $w.frame.canvas -side left -anchor nw -fill y -$w.frame.scale set 75 - -proc setHeight {w height} { - incr height 21 - set y2 [expr {$height - 30}] - if {$y2 < 21} { - set y2 21 - } - $w coords poly 15 20 35 20 35 $y2 45 $y2 25 $height 5 $y2 15 $y2 15 20 - $w coords line 15 20 35 20 35 $y2 45 $y2 25 $height 5 $y2 15 $y2 15 20 -} diff --git a/mingw/lib/tk8.5/demos/widget b/mingw/lib/tk8.5/demos/widget deleted file mode 100644 index 9182904cf7..0000000000 --- a/mingw/lib/tk8.5/demos/widget +++ /dev/null @@ -1,733 +0,0 @@ -#!/bin/sh -# the next line restarts using wish \ -exec wish "$0" "$@" - -# widget -- -# This script demonstrates the various widgets provided by Tk, along with many -# of the features of the Tk toolkit. This file only contains code to generate -# the main window for the application, which invokes individual -# demonstrations. The code for the actual demonstrations is contained in -# separate ".tcl" files is this directory, which are sourced by this script as -# needed. -# -# RCS: @(#) $Id: widget,v 1.51 2008/03/11 22:30:17 das Exp $ - -package require Tcl 8.5 -package require Tk 8.5 -package require msgcat -package require Ttk - -eval destroy [winfo child .] -set tk_demoDirectory [file join [pwd] [file dirname [info script]]] -::msgcat::mcload $tk_demoDirectory -namespace import ::msgcat::mc -wm title . [mc "Widget Demonstration"] -if {[tk windowingsystem] eq "x11"} { - # This won't work everywhere, but there's no other way in core Tk at the - # moment to display a coloured icon. - image create photo TclPowered \ - -file [file join $tk_library images logo64.gif] - wm iconwindow . [toplevel ._iconWindow] - pack [label ._iconWindow.i -image TclPowered] - wm iconname . [mc "tkWidgetDemo"] -} - -if {"defaultFont" ni [font names]} { - # TIP #145 defines some standard named fonts - if {"TkDefaultFont" in [font names] && "TkFixedFont" in [font names]} { - # FIX ME: the following technique of cloning the font to copy it works - # fine but means that if the system font is changed by Tk - # cannot update the copied font. font alias might be useful - # here -- or fix the app to use TkDefaultFont etc. - font create mainFont {*}[font configure TkDefaultFont] - font create fixedFont {*}[font configure TkFixedFont] - font create boldFont {*}[font configure TkDefaultFont] -weight bold - font create titleFont {*}[font configure TkDefaultFont] -weight bold - font create statusFont {*}[font configure TkDefaultFont] - font create varsFont {*}[font configure TkDefaultFont] - if {[tk windowingsystem] eq "aqua"} { - font configure titleFont -size 17 - } - } else { - font create mainFont -family Helvetica -size 12 - font create fixedFont -family Courier -size 10 - font create boldFont -family Helvetica -size 12 -weight bold - font create titleFont -family Helvetica -size 18 -weight bold - font create statusFont -family Helvetica -size 10 - font create varsFont -family Helvetica -size 14 - } -} - -set widgetDemo 1 -set font mainFont - -image create photo ::img::refresh -format GIF -data { - R0lGODlhEAAQAJEDAP///wAAACpnKv///yH5BAEAAAMALAAAAAAQABAAAAI63IKp - xgcPH2ouwgBCw1HIxHCQ4F3hSJKmwZXqWrmWxj7lKJ2dndcon9EBUq+gz3brVXAR - 2tICU0gXBQA7 -} - -image create photo ::img::view -format GIF -data { - R0lGODlhEAAQAKIHAP///wwMDAAAAMDAwNnZ2SYmJmZmZv///yH5BAEAAAcALAAA - AAAQABAAAANMKLos90+ASamDRxJCgw9YVnlDOXiQBgRDBRgHKE6sW8QR3doPKK27 - yg33q/GIOhdg6OsEJzeZykiBSUcs06e56Xx6np8ScIkFGuhQAgA7 -} - -image create photo ::img::delete -format GIF -data { - R0lGODlhEAAQAIABAIQAAP///yH5BAEAAAEALAAAAAAQABAAAAIjjI+pmwAc3HGy - PUSvqYpuvWQg40FfSVacBa5nN6JYDI3mzRQAOw== -} - -image create photo ::img::print -format GIF -data { - R0lGODlhEAAQALMKAAAAAP///52VunNkl8C82Yl+qldBgq+pyrOzs1fYAP///wAA - AAAAAAAAAAAAAAAAACH5BAEAAAoALAAAAAAQABAAAARGUMlJKwU4AztB+ODGeUiJ - fGLlgeEYmGWQXmx7aXgmAUTv/74N4EAsGhOJg1DAbDqbwoJ0Sp0KB9isNis0eL/g - ryhH5pgnEQA7 -} - -# Note that this is run through the message catalog! This is because this is -# actually an image of a word. -image create photo ::img::new -format GIF -data [mc { - R0lGODlhHgAOALMPALMAANyIiOu7u8dEROaqqvru7sxVVeGZmbgREfXd3b0iItZ3 - d8IzM9FmZvDMzP///yH5BAEAAA8ALAAAAAAeAA4AAASa8MlJq7046827WVOCHEkw - nANhUgJlEBIABJIwL3K+4IcUALCHjfbItYZDSgJgkBiYPmBMAUAkkLPKs/BAyLgM - wAQwOAAY2ByCaw4QAFQSoDEePJ6DmU1xInYZTw5nOEFFdgVUelkVDTIMd3AKFGQ1 - MgI2AwEmQW8APZ0gdRONAks5nhIFVVxdAAkUAS2pAVwFl7ITB4UqHb0XEQA7 -}] - -#---------------------------------------------------------------- -# The code below create the main window, consisting of a menu bar and a text -# widget that explains how to use the program, plus lists all of the demos as -# hypertext items. -#---------------------------------------------------------------- - -menu .menuBar -tearoff 0 - -if {[tk windowingsystem] ne "aqua"} { - # This is a tk-internal procedure to make i18n easier - ::tk::AmpMenuArgs .menuBar add cascade -label [mc "&File"] \ - -menu .menuBar.file - menu .menuBar.file -tearoff 0 - ::tk::AmpMenuArgs .menuBar.file add command -label [mc "&About..."] \ - -command {tkAboutDialog} -accelerator [mc ""] - bind . {tkAboutDialog} - .menuBar.file add sep - if {[string match win* [tk windowingsystem]]} { - # Windows doesn't usually have a Meta key - ::tk::AmpMenuArgs .menuBar.file add command -label [mc "&Quit"] \ - -command {exit} -accelerator [mc "Ctrl+Q"] - bind . <[mc "Control-q"]> {exit} - } else { - ::tk::AmpMenuArgs .menuBar.file add command -label [mc "&Quit"] \ - -command {exit} -accelerator [mc "Meta-Q"] - bind . <[mc "Meta-q"]> {exit} - } -} - -. configure -menu .menuBar - -ttk::frame .statusBar -ttk::label .statusBar.lab -text " " -anchor w -if {[tk windowingsystem] eq "aqua"} { - ttk::separator .statusBar.sep - pack .statusBar.sep -side top -expand yes -fill x -pady 0 -} -pack .statusBar.lab -side left -padx 2 -expand yes -fill both -if {[tk windowingsystem] ne "aqua"} { - ttk::sizegrip .statusBar.foo - pack .statusBar.foo -side left -padx 2 -} -pack .statusBar -side bottom -fill x -pady 2 - -set textheight 30 -catch { - set textheight [expr { - ([winfo screenheight .] * 0.7) / - [font metrics mainFont -displayof . -linespace] - }] -} - -ttk::frame .textFrame -scrollbar .s -orient vertical -command {.t yview} -takefocus 1 -pack .s -in .textFrame -side right -fill y -text .t -yscrollcommand {.s set} -wrap word -width 70 -height $textheight \ - -font mainFont -setgrid 1 -highlightthickness 0 \ - -padx 4 -pady 2 -takefocus 0 -pack .t -in .textFrame -expand y -fill both -padx 1 -pack .textFrame -expand yes -fill both -if {[tk windowingsystem] eq "aqua"} { - pack configure .statusBar.lab -padx {10 18} -pady {4 6} - pack configure .statusBar -pady 0 - .t configure -padx 10 -pady 0 -} - -# Create a bunch of tags to use in the text widget, such as those for section -# titles and demo descriptions. Also define the bindings for tags. - -.t tag configure title -font titleFont -.t tag configure subtitle -font titleFont -.t tag configure bold -font boldFont -if {[tk windowingsystem] eq "aqua"} { - .t tag configure title -spacing1 8 - .t tag configure subtitle -spacing3 3 -} - -# We put some "space" characters to the left and right of each demo -# description so that the descriptions are highlighted only when the mouse -# cursor is right over them (but not when the cursor is to their left or -# right). -# -.t tag configure demospace -lmargin1 1c -lmargin2 1c - -if {[winfo depth .] == 1} { - .t tag configure demo -lmargin1 1c -lmargin2 1c \ - -underline 1 - .t tag configure visited -lmargin1 1c -lmargin2 1c \ - -underline 1 - .t tag configure hot -background black -foreground white -} else { - .t tag configure demo -lmargin1 1c -lmargin2 1c \ - -foreground blue -underline 1 - .t tag configure visited -lmargin1 1c -lmargin2 1c \ - -foreground #303080 -underline 1 - .t tag configure hot -foreground red -underline 1 -} -.t tag bind demo { - invoke [.t index {@%x,%y}] -} -set lastLine "" -.t tag bind demo { - set lastLine [.t index {@%x,%y linestart}] - .t tag add hot "$lastLine +1 chars" "$lastLine lineend -1 chars" - .t config -cursor hand2 - showStatus [.t index {@%x,%y}] -} -.t tag bind demo { - .t tag remove hot 1.0 end - .t config -cursor xterm - .statusBar.lab config -text "" -} -.t tag bind demo { - set newLine [.t index {@%x,%y linestart}] - if {$newLine ne $lastLine} { - .t tag remove hot 1.0 end - set lastLine $newLine - - set tags [.t tag names {@%x,%y}] - set i [lsearch -glob $tags demo-*] - if {$i >= 0} { - .t tag add hot "$lastLine +1 chars" "$lastLine lineend -1 chars" - } - } - showStatus [.t index {@%x,%y}] -} - -############################################################################## -# Create the text for the text widget. - -# addFormattedText -- -# -# Add formatted text (but not hypertext) to the text widget after first -# passing it through the message catalog to allow for localization. -# Lines starting with @@ are formatting directives (insert title, insert -# demo hyperlink, begin newline, or change style) and all other lines -# are literal strings to be inserted. Substitutions are performed, -# allowing processing pieces through the message catalog. Blank lines -# are ignored. -# -proc addFormattedText {formattedText} { - set style normal - set isNL 1 - set demoCount 0 - set new 0 - foreach line [split $formattedText \n] { - set line [string trim $line] - if {$line eq ""} { - continue - } - if {[string match @@* $line]} { - set data [string range $line 2 end] - set key [lindex $data 0] - set values [lrange $data 1 end] - switch -exact -- $key { - title { - .t insert end [mc $values]\n title \n normal - } - newline { - .t insert end \n $style - set isNL 1 - } - subtitle { - .t insert end "\n" {} [mc $values] subtitle \ - " \n " demospace - set demoCount 0 - } - demo { - set description [lassign $values name] - .t insert end "[incr demoCount]. [mc $description]" \ - [list demo demo-$name] - if {$new} { - .t image create end -image ::img::new -padx 5 - set new 0 - } - .t insert end " \n " demospace - } - new { - set new 1 - } - default { - set style $key - } - } - continue - } - if {!$isNL} { - .t insert end " " $style - } - set isNL 0 - .t insert end [mc $line] $style - } -} - -addFormattedText { - @@title Tk Widget Demonstrations - - This application provides a front end for several short scripts - that demonstrate what you can do with Tk widgets. Each of the - numbered lines below describes a demonstration; you can click on - it to invoke the demonstration. Once the demonstration window - appears, you can click the - @@bold - See Code - @@normal - button to see the Tcl/Tk code that created the demonstration. If - you wish, you can edit the code and click the - @@bold - Rerun Demo - @@normal - button in the code window to reinvoke the demonstration with the - modified code. - @@newline - - @@subtitle Labels, buttons, checkbuttons, and radiobuttons - @@demo label Labels (text and bitmaps) - @@demo unicodeout Labels and UNICODE text - @@demo button Buttons - @@demo check Check-buttons (select any of a group) - @@demo radio Radio-buttons (select one of a group) - @@demo puzzle A 15-puzzle game made out of buttons - @@demo icon Iconic buttons that use bitmaps - @@demo image1 Two labels displaying images - @@demo image2 A simple user interface for viewing images - @@demo labelframe Labelled frames - @@new - @@demo ttkbut The simple Themed Tk widgets - - @@subtitle Listboxes and Trees - @@demo states The 50 states - @@demo colors Colors: change the color scheme for the application - @@demo sayings A collection of famous and infamous sayings - @@new - @@demo mclist A multi-column list of countries - @@new - @@demo tree A directory browser tree - - @@subtitle Entries, Spin-boxes and Combo-boxes - @@demo entry1 Entries without scrollbars - @@demo entry2 Entries with scrollbars - @@demo entry3 Validated entries and password fields - @@demo spin Spin-boxes - @@new - @@demo combo Combo-boxes - @@demo form Simple Rolodex-like form - - @@subtitle Text - @@demo text Basic editable text - @@demo style Text display styles - @@demo bind Hypertext (tag bindings) - @@demo twind A text widget with embedded windows and other features - @@demo search A search tool built with a text widget - @@new - @@demo textpeer Peering text widgets - - @@subtitle Canvases - @@demo items The canvas item types - @@demo plot A simple 2-D plot - @@demo ctext Text items in canvases - @@demo arrow An editor for arrowheads on canvas lines - @@demo ruler A ruler with adjustable tab stops - @@demo floor A building floor plan - @@demo cscroll A simple scrollable canvas - @@new - @@demo knightstour A Knight's tour of the chess board - - @@subtitle Scales and Progress Bars - @@demo hscale Horizontal scale - @@demo vscale Vertical scale - @@new - @@demo ttkprogress Progress bar - - @@subtitle Paned Windows and Notebooks - @@demo paned1 Horizontal paned window - @@demo paned2 Vertical paned window - @@new - @@demo ttkpane Themed nested panes - @@new - @@demo ttknote Notebook widget - - @@subtitle Menus and Toolbars - @@demo menu Menus and cascades (sub-menus) - @@demo menubu Menu-buttons - @@new - @@demo ttkmenu Themed menu buttons - @@new - @@demo toolbar Themed toolbar - - @@subtitle Common Dialogs - @@demo msgbox Message boxes - @@demo filebox File selection dialog - @@demo clrpick Color picker - - @@subtitle Animation - @@new - @@demo anilabel Animated labels - @@new - @@demo aniwave Animated wave - @@new - @@demo pendulum Pendulum simulation - @@new - @@demo goldberg A celebration of Rube Goldberg - - @@subtitle Miscellaneous - @@demo bitmap The built-in bitmaps - @@demo dialog1 A dialog box with a local grab - @@demo dialog2 A dialog box with a global grab -} - -############################################################################## - -.t configure -state disabled -focus .s - -# addSeeDismiss -- -# Add "See Code" and "Dismiss" button frame, with optional "See Vars" -# -# Arguments: -# w - The name of the frame to use. - -proc addSeeDismiss {w show {vars {}} {extra {}}} { - ## See Code / Dismiss buttons - ttk::frame $w - ttk::separator $w.sep - #ttk::frame $w.sep -height 2 -relief sunken - grid $w.sep -columnspan 4 -row 0 -sticky ew -pady 2 - ttk::button $w.dismiss -text [mc "Dismiss"] \ - -image ::img::delete -compound left \ - -command [list destroy [winfo toplevel $w]] - ttk::button $w.code -text [mc "See Code"] \ - -image ::img::view -compound left \ - -command [list showCode $show] - set buttons [list x $w.code $w.dismiss] - if {[llength $vars]} { - ttk::button $w.vars -text [mc "See Variables"] \ - -image ::img::view -compound left \ - -command [concat [list showVars $w.dialog] $vars] - set buttons [linsert $buttons 1 $w.vars] - } - if {$extra ne ""} { - set buttons [linsert $buttons 1 [uplevel 1 $extra]] - } - grid {*}$buttons -padx 4 -pady 4 - grid columnconfigure $w 0 -weight 1 - if {[tk windowingsystem] eq "aqua"} { - foreach b [lrange $buttons 1 end] {$b configure -takefocus 0} - grid configure $w.sep -pady 0 - grid configure {*}$buttons -pady {10 12} - grid configure [lindex $buttons 1] -padx {16 4} - grid configure [lindex $buttons end] -padx {4 18} - } - return $w -} - -# positionWindow -- -# This procedure is invoked by most of the demos to position a new demo -# window. -# -# Arguments: -# w - The name of the window to position. - -proc positionWindow w { - wm geometry $w +300+300 -} - -# showVars -- -# Displays the values of one or more variables in a window, and updates the -# display whenever any of the variables changes. -# -# Arguments: -# w - Name of new window to create for display. -# args - Any number of names of variables. - -proc showVars {w args} { - catch {destroy $w} - toplevel $w - wm title $w [mc "Variable values"] - - set b [ttk::frame $w.frame] - grid $b -sticky news - set f [ttk::labelframe $b.title -text [mc "Variable values:"]] - foreach var $args { - ttk::label $f.n$var -text "$var:" -anchor w - ttk::label $f.v$var -textvariable $var -anchor w - grid $f.n$var $f.v$var -padx 2 -pady 2 -sticky w - } - ttk::button $b.ok -text [mc "OK"] \ - -command [list destroy $w] -default active - bind $w [list $b.ok invoke] - bind $w [list $b.ok invoke] - - grid $f -sticky news -padx 4 - grid $b.ok -sticky e -padx 4 -pady {6 4} - if {[tk windowingsystem] eq "aqua"} { - $b.ok configure -takefocus 0 - grid configure $b.ok -pady {10 12} -padx {16 18} - grid configure $f -padx 10 -pady {10 0} - } - grid columnconfig $f 1 -weight 1 - grid rowconfigure $f 100 -weight 1 - grid columnconfig $b 0 -weight 1 - grid rowconfigure $b 0 -weight 1 - grid columnconfig $w 0 -weight 1 - grid rowconfigure $w 0 -weight 1 -} - -# invoke -- -# This procedure is called when the user clicks on a demo description. It is -# responsible for invoking the demonstration. -# -# Arguments: -# index - The index of the character that the user clicked on. - -proc invoke index { - global tk_demoDirectory - set tags [.t tag names $index] - set i [lsearch -glob $tags demo-*] - if {$i < 0} { - return - } - set cursor [.t cget -cursor] - .t configure -cursor watch - update - set demo [string range [lindex $tags $i] 5 end] - uplevel 1 [list source [file join $tk_demoDirectory $demo.tcl]] - update - .t configure -cursor $cursor - - .t tag add visited "$index linestart +1 chars" "$index lineend -1 chars" -} - -# showStatus -- -# -# Show the name of the demo program in the status bar. This procedure is -# called when the user moves the cursor over a demo description. -# -proc showStatus index { - set tags [.t tag names $index] - set i [lsearch -glob $tags demo-*] - set cursor [.t cget -cursor] - if {$i < 0} { - .statusBar.lab config -text " " - set newcursor xterm - } else { - set demo [string range [lindex $tags $i] 5 end] - .statusBar.lab config -text [mc "Run the \"%s\" sample program" $demo] - set newcursor hand2 - } - if {$cursor ne $newcursor} { - .t config -cursor $newcursor - } -} - -# evalShowCode -- -# -# Arguments: -# w - Name of text widget containing code to eval - -proc evalShowCode {w} { - set code [$w get 1.0 end-1c] - uplevel #0 $code -} - -# showCode -- -# This procedure creates a toplevel window that displays the code for a -# demonstration and allows it to be edited and reinvoked. -# -# Arguments: -# w - The name of the demonstration's window, which can be used to -# derive the name of the file containing its code. - -proc showCode w { - global tk_demoDirectory - set file [string range $w 1 end].tcl - set top .code - if {![winfo exists $top]} { - toplevel $top - - set t [frame $top.f] - set text [text $t.text -font fixedFont -height 24 -wrap word \ - -xscrollcommand [list $t.xscroll set] \ - -yscrollcommand [list $t.yscroll set] \ - -setgrid 1 -highlightthickness 0 -pady 2 -padx 3] - scrollbar $t.xscroll -command [list $t.text xview] -orient horizontal - scrollbar $t.yscroll -command [list $t.text yview] -orient vertical - - grid $t.text $t.yscroll -sticky news - #grid $t.xscroll - grid rowconfigure $t 0 -weight 1 - grid columnconfig $t 0 -weight 1 - - set btns [ttk::frame $top.btns] - ttk::separator $btns.sep - grid $btns.sep -columnspan 4 -row 0 -sticky ew -pady 2 - ttk::button $btns.dismiss -text [mc "Dismiss"] \ - -default active -command [list destroy $top] \ - -image ::img::delete -compound left - ttk::button $btns.print -text [mc "Print Code"] \ - -command [list printCode $text $file] \ - -image ::img::print -compound left - ttk::button $btns.rerun -text [mc "Rerun Demo"] \ - -command [list evalShowCode $text] \ - -image ::img::refresh -compound left - set buttons [list x $btns.rerun $btns.print $btns.dismiss] - grid {*}$buttons -padx 4 -pady 4 - grid columnconfigure $btns 0 -weight 1 - if {[tk windowingsystem] eq "aqua"} { - foreach b [lrange $buttons 1 end] {$b configure -takefocus 0} - grid configure $btns.sep -pady 0 - grid configure {*}$buttons -pady {10 12} - grid configure [lindex $buttons 1] -padx {16 4} - grid configure [lindex $buttons end] -padx {4 18} - } - grid $t -sticky news - grid $btns -sticky ew - grid rowconfigure $top 0 -weight 1 - grid columnconfig $top 0 -weight 1 - - bind $top { - if {[winfo class %W] ne "Text"} { .code.btns.dismiss invoke } - } - bind $top [bind $top ] - } else { - wm deiconify $top - raise $top - } - wm title $top [mc "Demo code: %s" [file join $tk_demoDirectory $file]] - wm iconname $top $file - set id [open [file join $tk_demoDirectory $file]] - $top.f.text delete 1.0 end - $top.f.text insert 1.0 [read $id] - $top.f.text mark set insert 1.0 - close $id -} - -# printCode -- -# Prints the source code currently displayed in the See Code dialog. Much -# thanks to Arjen Markus for this. -# -# Arguments: -# w - Name of text widget containing code to print -# file - Name of the original file (implicitly for title) - -proc printCode {w file} { - set code [$w get 1.0 end-1c] - - set dir "." - if {[info exists ::env(HOME)]} { - set dir "$::env(HOME)" - } - if {[info exists ::env(TMP)]} { - set dir $::env(TMP) - } - if {[info exists ::env(TEMP)]} { - set dir $::env(TEMP) - } - - set filename [file join $dir "tkdemo-$file"] - set outfile [open $filename "w"] - puts $outfile $code - close $outfile - - switch -- $::tcl_platform(platform) { - unix { - if {[catch {exec lp -c $filename} msg]} { - tk_messageBox -title "Print spooling failure" \ - -message "Print spooling probably failed: $msg" - } - } - windows { - if {[catch {PrintTextWin32 $filename} msg]} { - tk_messageBox -title "Print spooling failure" \ - -message "Print spooling probably failed: $msg" - } - } - default { - tk_messageBox -title "Operation not Implemented" \ - -message "Wow! Unknown platform: $::tcl_platform(platform)" - } - } - - # - # Be careful to throw away the temporary file in a gentle manner ... - # - if {[file exists $filename]} { - catch {file delete $filename} - } -} - -# PrintTextWin32 -- -# Print a file under Windows using all the "intelligence" necessary -# -# Arguments: -# filename - Name of the file -# -# Note: -# Taken from the Wiki page by Keith Vetter, "Printing text files under -# Windows". -# Note: -# Do not execute the command in the background: that way we can dispose of the -# file smoothly. -# -proc PrintTextWin32 {filename} { - package require registry - set app [auto_execok notepad.exe] - set pcmd "$app /p %1" - catch { - set app [registry get {HKEY_CLASSES_ROOT\.txt} {}] - set pcmd [registry get \ - {HKEY_CLASSES_ROOT\\$app\\shell\\print\\command} {}] - } - - regsub -all {%1} $pcmd $filename pcmd - puts $pcmd - - regsub -all {\\} $pcmd {\\\\} pcmd - set command "[auto_execok start] /min $pcmd" - eval exec $command -} - -# tkAboutDialog -- -# -# Pops up a message box with an "about" message -# -proc tkAboutDialog {} { - tk_messageBox -icon info -type ok -title [mc "About Widget Demo"] \ - -message [mc "Tk widget demonstration application"] -detail \ -"[mc {Copyright (c) %s} {1996-1997 Sun Microsystems, Inc.}] -[mc {Copyright (c) %s} {1997-2000 Ajuba Solutions, Inc.}] -[mc {Copyright (c) %s} {2001-2007 Donal K. Fellows}] -[mc {Copyright (c) %s} {2002-2007 Daniel A. Steffen}]" -} - -# Local Variables: -# mode: tcl -# End: diff --git a/mingw/lib/tkConfig.sh b/mingw/lib/tkConfig.sh deleted file mode 100644 index 9fd429f3bc..0000000000 --- a/mingw/lib/tkConfig.sh +++ /dev/null @@ -1,89 +0,0 @@ -# tkConfig.sh -- -# -# This shell script (for sh) is generated automatically by Tk's -# configure script. It will create shell variables for most of -# the configuration options discovered by the configure script. -# This script is intended to be included by the configure scripts -# for Tk extensions so that they don't have to figure this all -# out for themselves. This file does not duplicate information -# already provided by tclConfig.sh, so you may need to use that -# file in addition to this one. -# -# The information in this file is specific to a single platform. -# -# RCS: @(#) $Id: tkConfig.sh.in,v 1.3 2003/03/19 03:21:22 mdejong Exp $ - -TK_DLL_FILE="tk85.dll" - -# Tk's version number. -TK_VERSION='8.5' -TK_MAJOR_VERSION='8' -TK_MINOR_VERSION='5' -TK_PATCH_LEVEL='.5' - -# -D flags for use with the C compiler. -TK_DEFS='-DPACKAGE_NAME=\"\" -DPACKAGE_TARNAME=\"\" -DPACKAGE_VERSION=\"\" -DPACKAGE_STRING=\"\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_UXTHEME_H=1 -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1 ' - -# Flag, 1: we built a shared lib, 0 we didn't -TK_SHARED_BUILD=1 - -# This indicates if Tk was build with debugging symbols -TK_DBGX= - -# The name of the Tk library (may be either a .a file or a shared library): -TK_LIB_FILE='libtk85.a' - -# Additional libraries to use when linking Tk. -TK_LIBS='-lws2_32 -lgdi32 -lcomdlg32 -limm32 -lcomctl32 -lshell32 -luuid -lole32 -loleaut32' - -# Top-level directory in which Tcl's platform-independent files are -# installed. -TK_PREFIX='/mingw' - -# Top-level directory in which Tcl's platform-specific files (e.g. -# executables) are installed. -TK_EXEC_PREFIX='/mingw' - -# -l flag to pass to the linker to pick up the Tcl library -TK_LIB_FLAG='-ltk85' - -# String to pass to linker to pick up the Tk library from its -# build directory. -TK_BUILD_LIB_SPEC='-L/src/tcltk/tk8.5.5/win -ltk85' - -# String to pass to linker to pick up the Tk library from its -# installed directory. -TK_LIB_SPEC='-L/mingw/lib -ltk85' - -# Location of the top-level source directory from which Tk was built. -# This is the directory that contains a README file as well as -# subdirectories such as generic, unix, etc. If Tk was compiled in a -# different place than the directory containing the source files, this -# points to the location of the sources, not the location where Tk was -# compiled. -TK_SRC_DIR='/src/tcltk/tk8.5.5' - -# Needed if you want to make a 'fat' shared library library -# containing tk objects or link a different wish. -TK_CC_SEARCH_FLAGS='' -TK_LD_SEARCH_FLAGS='' - -# The name of the Tk stub library (.a): -TK_STUB_LIB_FILE='libtkstub85.a' - -# -l flag to pass to the linker to pick up the Tk stub library -TK_STUB_LIB_FLAG='-ltkstub85' - -# String to pass to linker to pick up the Tk stub library from its -# build directory. -TK_BUILD_STUB_LIB_SPEC='-L/src/tcltk/tk8.5.5/win -ltkstub85' - -# String to pass to linker to pick up the Tk stub library from its -# installed directory. -TK_STUB_LIB_SPEC='-L/mingw/lib -ltkstub85' - -# Path to the Tk stub library in the build directory. -TK_BUILD_STUB_LIB_PATH='/src/tcltk/tk8.5.5/win/libtkstub85.a' - -# Path to the Tk stub library in the install directory. -TK_STUB_LIB_PATH='/mingw/lib/libtkstub85.a' diff --git a/mingw/lib/tkimgConfig.sh b/mingw/lib/tkimgConfig.sh deleted file mode 100644 index e0d48356c5..0000000000 --- a/mingw/lib/tkimgConfig.sh +++ /dev/null @@ -1,57 +0,0 @@ -# tkimgConfig.sh -- -# -# This shell script (for sh) is generated automatically by tkimg's -# configure script. It will create shell variables for most of -# the configuration options discovered by the configure script. -# This script is intended to be included by the configure scripts -# for tkimg extensions so that they don't have to figure this all -# out for themselves. This file does not duplicate information -# already provided by tclConfig.sh, so you may need to use that -# file in addition to this one. -# -# The information in this file is specific to a single platform. - -# tkimg's version number. -tkimg_VERSION='1.3' -tkimg_MAJOR_VERSION='1' -tkimg_MINOR_VERSION='3' -tkimg_RELEASE_LEVEL='' - -# The name of the tkimg library (may be either a .a file or a shared library): -tkimg_LIB_FILE=tkimg13.dll - -# String to pass to linker to pick up the tkimg library from its -# build directory. -tkimg_BUILD_LIB_SPEC='-L/src/tcltk/tkimg1.3/base -ltkimg13' - -# String to pass to linker to pick up the tkimg library from its -# installed directory. -tkimg_LIB_SPEC='-L/mingw/lib/tkimg1.3 -ltkimg13' - -# The name of the tkimg stub library (a .a file): -tkimg_STUB_LIB_FILE=tkimgstub13.a - -# String to pass to linker to pick up the tkimg stub library from its -# build directory. -tkimg_BUILD_STUB_LIB_SPEC='-L/src/tcltk/tkimg1.3/base -ltkimgstub13' - -# String to pass to linker to pick up the tkimg stub library from its -# installed directory. -tkimg_STUB_LIB_SPEC='-L/mingw/lib/tkimg1.3 -ltkimgstub13' - -# String to pass to linker to pick up the tkimg stub library from its -# build directory. -tkimg_BUILD_STUB_LIB_PATH='/src/tcltk/tkimg1.3/base/tkimgstub13.a' - -# String to pass to linker to pick up the tkimg stub library from its -# installed directory. -tkimg_STUB_LIB_PATH='/mingw/lib/tkimg1.3/tkimgstub13.a' - -# Location of the top-level source directories from which tkimg -# was built. This is the directory that contains generic, unix, etc. -# If tkimg was compiled in a different place than the directory -# containing the source files, this points to the location of the -# sources, not the location where tkimg was compiled. This can -# be relative to the build directory. - -tkimg_SRC_DIR='/src/tcltk/tkimg1.3/base' diff --git a/mingw/lib/zlibtclConfig.sh b/mingw/lib/zlibtclConfig.sh deleted file mode 100644 index 1e4387b358..0000000000 --- a/mingw/lib/zlibtclConfig.sh +++ /dev/null @@ -1,57 +0,0 @@ -# zlibtclConfig.sh -- -# -# This shell script (for sh) is generated automatically by zlibtcl's -# configure script. It will create shell variables for most of -# the configuration options discovered by the configure script. -# This script is intended to be included by the configure scripts -# for zlibtcl extensions so that they don't have to figure this all -# out for themselves. This file does not duplicate information -# already provided by tclConfig.sh, so you may need to use that -# file in addition to this one. -# -# The information in this file is specific to a single platform. - -# zlibtcl's version number. -zlibtcl_VERSION='1.2.1' -zlibtcl_MAJOR_VERSION='1' -zlibtcl_MINOR_VERSION='2' -zlibtcl_RELEASE_LEVEL='1' - -# The name of the zlibtcl library (may be either a .a file or a shared library): -zlibtcl_LIB_FILE=zlibtcl121.dll - -# String to pass to linker to pick up the zlibtcl library from its -# build directory. -zlibtcl_BUILD_LIB_SPEC='-L/src/tcltk/tkimg1.3/libz/tcl -lzlibtcl121' - -# String to pass to linker to pick up the zlibtcl library from its -# installed directory. -zlibtcl_LIB_SPEC='-L/mingw/lib/zlibtcl1.2.1 -lzlibtcl121' - -# The name of the zlibtcl stub library (a .a file): -zlibtcl_STUB_LIB_FILE=zlibtclstub121.a - -# String to pass to linker to pick up the zlibtcl stub library from its -# build directory. -zlibtcl_BUILD_STUB_LIB_SPEC='-L/src/tcltk/tkimg1.3/libz/tcl -lzlibtclstub121' - -# String to pass to linker to pick up the zlibtcl stub library from its -# installed directory. -zlibtcl_STUB_LIB_SPEC='-L/mingw/lib/zlibtcl1.2.1 -lzlibtclstub121' - -# String to pass to linker to pick up the zlibtcl stub library from its -# build directory. -zlibtcl_BUILD_STUB_LIB_PATH='/src/tcltk/tkimg1.3/libz/tcl/zlibtclstub121.a' - -# String to pass to linker to pick up the zlibtcl stub library from its -# installed directory. -zlibtcl_STUB_LIB_PATH='/mingw/lib/zlibtcl1.2.1/zlibtclstub121.a' - -# Location of the top-level source directories from which zlibtcl -# was built. This is the directory that contains generic, unix, etc. -# If zlibtcl was compiled in a different place than the directory -# containing the source files, this points to the location of the -# sources, not the location where zlibtcl was compiled. This can -# be relative to the build directory. - -zlibtcl_SRC_DIR='/src/tcltk/tkimg1.3/libz/tcl' diff --git a/src/tcltk/fileList-tcl.txt b/src/tcltk/fileList-tcl.txt index 4295ac2003..321a5ffc79 100644 --- a/src/tcltk/fileList-tcl.txt +++ b/src/tcltk/fileList-tcl.txt @@ -2,17 +2,8 @@ /mingw/bin/tclpip85.dll /mingw/bin/tclsh.exe /mingw/bin/tclsh85.exe -/mingw/include/tcl.h -/mingw/include/tclDecls.h -/mingw/include/tclPlatDecls.h -/mingw/include/tclTomMath.h -/mingw/include/tclTomMathDecls.h -/mingw/include/tommath_class.h -/mingw/include/tommath_superclass.h /mingw/lib/dde1.3/pkgIndex.tcl /mingw/lib/dde1.3/tcldde13.dll -/mingw/lib/libtcl85.a -/mingw/lib/libtclstub85.a /mingw/lib/reg1.2/pkgIndex.tcl /mingw/lib/reg1.2/tclreg12.dll /mingw/lib/tcl8.5/auto.tcl @@ -809,4 +800,3 @@ /mingw/lib/tcl8/8.4/platform/shell-1.1.3.tm /mingw/lib/tcl8/8.5/msgcat-1.4.2.tm /mingw/lib/tcl8/8.5/tcltest-2.3.0.tm -/mingw/lib/tclConfig.sh diff --git a/src/tcltk/fileList-tk.txt b/src/tcltk/fileList-tk.txt index 2423d1854e..e02ec12680 100644 --- a/src/tcltk/fileList-tk.txt +++ b/src/tcltk/fileList-tk.txt @@ -1,108 +1,12 @@ /mingw/bin/tk85.dll /mingw/bin/wish.exe /mingw/bin/wish85.exe -/mingw/include/X11/X.h -/mingw/include/X11/Xatom.h -/mingw/include/X11/Xfuncproto.h -/mingw/include/X11/Xlib.h -/mingw/include/X11/Xutil.h -/mingw/include/X11/cursorfont.h -/mingw/include/X11/keysym.h -/mingw/include/X11/keysymdef.h -/mingw/include/tk.h -/mingw/include/tkDecls.h -/mingw/include/tkIntXlibDecls.h -/mingw/include/tkPlatDecls.h -/mingw/lib/libtk85.a -/mingw/lib/libtkstub85.a /mingw/lib/tk8.5/bgerror.tcl /mingw/lib/tk8.5/button.tcl /mingw/lib/tk8.5/choosedir.tcl /mingw/lib/tk8.5/clrpick.tcl /mingw/lib/tk8.5/comdlg.tcl /mingw/lib/tk8.5/console.tcl -/mingw/lib/tk8.5/demos/README -/mingw/lib/tk8.5/demos/anilabel.tcl -/mingw/lib/tk8.5/demos/aniwave.tcl -/mingw/lib/tk8.5/demos/arrow.tcl -/mingw/lib/tk8.5/demos/bind.tcl -/mingw/lib/tk8.5/demos/bitmap.tcl -/mingw/lib/tk8.5/demos/browse -/mingw/lib/tk8.5/demos/button.tcl -/mingw/lib/tk8.5/demos/check.tcl -/mingw/lib/tk8.5/demos/clrpick.tcl -/mingw/lib/tk8.5/demos/colors.tcl -/mingw/lib/tk8.5/demos/combo.tcl -/mingw/lib/tk8.5/demos/cscroll.tcl -/mingw/lib/tk8.5/demos/ctext.tcl -/mingw/lib/tk8.5/demos/dialog1.tcl -/mingw/lib/tk8.5/demos/dialog2.tcl -/mingw/lib/tk8.5/demos/en.msg -/mingw/lib/tk8.5/demos/entry1.tcl -/mingw/lib/tk8.5/demos/entry2.tcl -/mingw/lib/tk8.5/demos/entry3.tcl -/mingw/lib/tk8.5/demos/filebox.tcl -/mingw/lib/tk8.5/demos/floor.tcl -/mingw/lib/tk8.5/demos/form.tcl -/mingw/lib/tk8.5/demos/goldberg.tcl -/mingw/lib/tk8.5/demos/hello -/mingw/lib/tk8.5/demos/hscale.tcl -/mingw/lib/tk8.5/demos/icon.tcl -/mingw/lib/tk8.5/demos/image1.tcl -/mingw/lib/tk8.5/demos/image2.tcl -/mingw/lib/tk8.5/demos/images/earth.gif -/mingw/lib/tk8.5/demos/images/earthris.gif -/mingw/lib/tk8.5/demos/images/face.xbm -/mingw/lib/tk8.5/demos/images/flagdown.xbm -/mingw/lib/tk8.5/demos/images/flagup.xbm -/mingw/lib/tk8.5/demos/images/gray25.xbm -/mingw/lib/tk8.5/demos/images/letters.xbm -/mingw/lib/tk8.5/demos/images/noletter.xbm -/mingw/lib/tk8.5/demos/images/pattern.xbm -/mingw/lib/tk8.5/demos/images/tcllogo.gif -/mingw/lib/tk8.5/demos/images/teapot.ppm -/mingw/lib/tk8.5/demos/items.tcl -/mingw/lib/tk8.5/demos/ixset -/mingw/lib/tk8.5/demos/knightstour.tcl -/mingw/lib/tk8.5/demos/label.tcl -/mingw/lib/tk8.5/demos/labelframe.tcl -/mingw/lib/tk8.5/demos/license.terms -/mingw/lib/tk8.5/demos/mclist.tcl -/mingw/lib/tk8.5/demos/menu.tcl -/mingw/lib/tk8.5/demos/menubu.tcl -/mingw/lib/tk8.5/demos/msgbox.tcl -/mingw/lib/tk8.5/demos/nl.msg -/mingw/lib/tk8.5/demos/paned1.tcl -/mingw/lib/tk8.5/demos/paned2.tcl -/mingw/lib/tk8.5/demos/pendulum.tcl -/mingw/lib/tk8.5/demos/plot.tcl -/mingw/lib/tk8.5/demos/puzzle.tcl -/mingw/lib/tk8.5/demos/radio.tcl -/mingw/lib/tk8.5/demos/rmt -/mingw/lib/tk8.5/demos/rolodex -/mingw/lib/tk8.5/demos/ruler.tcl -/mingw/lib/tk8.5/demos/sayings.tcl -/mingw/lib/tk8.5/demos/search.tcl -/mingw/lib/tk8.5/demos/spin.tcl -/mingw/lib/tk8.5/demos/square -/mingw/lib/tk8.5/demos/states.tcl -/mingw/lib/tk8.5/demos/style.tcl -/mingw/lib/tk8.5/demos/tclIndex -/mingw/lib/tk8.5/demos/tcolor -/mingw/lib/tk8.5/demos/text.tcl -/mingw/lib/tk8.5/demos/textpeer.tcl -/mingw/lib/tk8.5/demos/timer -/mingw/lib/tk8.5/demos/toolbar.tcl -/mingw/lib/tk8.5/demos/tree.tcl -/mingw/lib/tk8.5/demos/ttkbut.tcl -/mingw/lib/tk8.5/demos/ttkmenu.tcl -/mingw/lib/tk8.5/demos/ttknote.tcl -/mingw/lib/tk8.5/demos/ttkpane.tcl -/mingw/lib/tk8.5/demos/ttkprogress.tcl -/mingw/lib/tk8.5/demos/twind.tcl -/mingw/lib/tk8.5/demos/unicodeout.tcl -/mingw/lib/tk8.5/demos/vscale.tcl -/mingw/lib/tk8.5/demos/widget /mingw/lib/tk8.5/dialog.tcl /mingw/lib/tk8.5/entry.tcl /mingw/lib/tk8.5/focus.tcl @@ -179,4 +83,3 @@ /mingw/lib/tk8.5/ttk/xpTheme.tcl /mingw/lib/tk8.5/unsupported.tcl /mingw/lib/tk8.5/xmfbox.tcl -/mingw/lib/tkConfig.sh diff --git a/src/tcltk/fileList-tkImg.txt b/src/tcltk/fileList-tkImg.txt index e1c4f1ef05..9f7a23ec2f 100644 --- a/src/tcltk/fileList-tkImg.txt +++ b/src/tcltk/fileList-tkImg.txt @@ -1,22 +1,6 @@ -/mingw/include/jpegtcl.h -/mingw/include/jpegtclDecls.h -/mingw/include/jpegtclDeclsMask.h -/mingw/include/jpegtclDeclsUnmask.h -/mingw/include/tifftcl.h -/mingw/include/tifftclDecls.h -/mingw/include/tifftclDeclsMask.h -/mingw/include/tifftclDeclsUnmask.h -/mingw/include/tkimg.h -/mingw/include/tkimgDecls.h -/mingw/include/zlibtcl.h -/mingw/include/zlibtclDecls.h -/mingw/include/zlibtclDeclsMask.h -/mingw/include/zlibtclDeclsUnmask.h /mingw/lib/Img1.3/jpegtcl10.dll -/mingw/lib/Img1.3/jpegtclstub10.a /mingw/lib/Img1.3/pkgIndex.tcl /mingw/lib/Img1.3/tifftcl361.dll -/mingw/lib/Img1.3/tifftclstub361.a /mingw/lib/Img1.3/tkimg13.dll /mingw/lib/Img1.3/tkimgbmp13.dll /mingw/lib/Img1.3/tkimggif13.dll @@ -26,15 +10,9 @@ /mingw/lib/Img1.3/tkimgppm13.dll /mingw/lib/Img1.3/tkimgps13.dll /mingw/lib/Img1.3/tkimgsgi13.dll -/mingw/lib/Img1.3/tkimgstub13.a /mingw/lib/Img1.3/tkimgsun13.dll /mingw/lib/Img1.3/tkimgtga13.dll /mingw/lib/Img1.3/tkimgwindow13.dll /mingw/lib/Img1.3/tkimgxbm13.dll /mingw/lib/Img1.3/tkimgxpm13.dll /mingw/lib/Img1.3/zlibtcl121.dll -/mingw/lib/Img1.3/zlibtclstub121.a -/mingw/lib/jpegtclConfig.sh -/mingw/lib/tifftclConfig.sh -/mingw/lib/tkimgConfig.sh -/mingw/lib/zlibtclConfig.sh -- 2.11.4.GIT