20060303a

1 files changed, 838 insertions, 0 deletions

diff --git a/include/tk.h b/include/tk.h
new file mode 100644
index 00000000..bd919b5d
--- /dev/null
+++ b/include/tk.h
@@ -0,0 +1,838 @@
+/*
+ * Here are some conventions about  our Tk widgets.
+ *
+ * When a widget is packed, its act geom record is
+ * set so that act.{x,y} is the vector from the containing
+ * widget's origin to the position of this widget.  The position
+ * is the place just outside the top-left border.  The origin
+ * is the place just inside the top-left border.
+ * act.{width,height} gives the allocated dimensions inside
+ * the border --- it will be the requested width or height
+ * plus ipad{x,y} plus any filling done by the packer.
+ *
+ * The tkposn function returns the origin of its argument
+ * widget, expressed in absolute screen coordinates.
+ *
+ * The actual drawing contents of the widget should be
+ * drawn at an internal origin that is the widget's origin
+ * plus the ipad vector.
+ */
+
+/*
+ * event printing
+ */
+#pragma	varargck	type	"v"	int
+#pragma	varargck	argpos	tkwreq	2
+
+enum
+{
+	TKframe,		/* Widget type */
+	TKlabel,
+	TKcheckbutton,
+	TKbutton,
+	TKmenubutton,
+	TKmenu,
+	TKseparator,
+	TKcascade,
+	TKlistbox,
+	TKscrollbar,
+	TKtext,
+	TKcanvas,
+	TKentry,
+	TKradiobutton,
+	TKscale,
+	TKpanel,
+	TKchoicebutton,
+	TKwidgets,
+
+	TKsingle	= 0,	/* Select mode */
+	TKbrowse,
+	TKmultiple,
+	TKextended,
+
+	TKraised,		/* Relief */
+	TKsunken,
+	TKflat,
+	TKgroove,
+	TKridge,
+
+	TkArepl		= 0,	/* Bind options */
+	TkAadd,
+	TkAsub,
+
+	Tkvertical	= 0,	/* Scroll bar orientation */
+	Tkhorizontal,
+
+	Tkwrapnone	= 0,	/* Wrap mode */
+	Tkwrapword,
+	Tkwrapchar,
+
+	TkDdelivered	= 0,	/* Event Delivery results */
+	TkDbreak,
+	TkDnone,
+
+	TkLt = 0,		/* Comparison operators */
+	TkLte,
+	TkEq,
+	TkGte,
+	TkGt,
+	TkNeq,
+
+	
+	OPTdist		= 0,	/* Distance; aux is offset of TkEnv* */
+	OPTstab,		/* String->Constant table; aux is TkStab array */
+	OPTtext,		/* Text string */
+	OPTwinp,		/* Window Path to Tk ptr */
+	OPTflag,		/* Option sets bitmask; aux is TkStab array*/
+	OPTbmap,		/* Option specifies bitmap file */
+	OPTbool,		/* Set to one if option present */
+	OPTfont,		/* Env font */
+	OPTfrac,		/* list of fixed point distances (count in aux) */
+	OPTnnfrac,	/* non-negative fixed point distance */
+	OPTctag,		/* Tag list for canvas item */
+	OPTtabs,		/* Tab stops; aux is offset of TkEnv* */
+	OPTcolr,		/* Colors; aux is index into colour table */
+	OPTimag,		/* Image */
+	OPTsize,		/* width/height; aux is offset of TkEnv* */
+	OPTnndist,		/* Non-negative distance */
+	OPTact,		/* actx or acty */
+	OPTignore,	/* ignore this option */
+	OPTsticky,	/* sticky (any comb. of chars n, s, e, w) */
+	OPTlist,		/* list of text values */
+
+	BoolX		= 0,
+	BoolT,
+	BoolF,
+
+	Tkmaxitem	= 128,
+	Tkminitem	= 32,
+	Tkcvstextins	= 1024,
+	Tkmaxdump	= 1024,
+	Tkentryins	= 128,
+	TkMaxmsgs	= 100,
+	Tkshdelta	= 0x40,	/* color intensity delta for shading */
+
+	Tkfpscalar	= 10000,	/* Fixed point scale factor */
+
+	Tkdpi		= 100,	/* pixels per inch on an average display */
+
+	Tksweep		= 64,	/* binds before a sweep */
+
+	TkColcachesize = 128,	/* colours cached per context (display) */
+
+	TkStatic	= 0,
+	TkDynamic	= 1,
+
+	TkRptclick		= 100,	/* granularity */
+	TkRptpause	= 300,	/* autorepeat inital delay */
+	TkRptinterval	= 100,	/* autorepeat interval */
+
+	TkBlinkinterval	= 500
+};
+
+#define TKSTRUCTALIGN	4
+#define TKI2F(i)	((i)*Tkfpscalar)
+extern	int TKF2I(int);
+/*#define TKF2I(f)	(((f) + Tkfpscalar/2)/Tkfpscalar)*/
+#define IAUX(i)		((void*)i)
+#define AUXI(i)		((int)i)
+#define TKKEY(i)	((i)&0xFFFF)
+
+typedef struct Tk Tk;
+typedef struct TkCol TkCol;
+typedef struct TkCtxt TkCtxt;
+typedef struct TkEnv TkEnv;
+typedef struct TkName TkName;
+typedef struct TkTtabstop TkTtabstop;
+typedef struct TkOptab TkOptab;
+typedef struct TkOption TkOption;
+typedef struct TkStab TkStab;
+typedef struct TkTop TkTop;
+typedef struct TkGeom TkGeom;
+typedef struct TkMethod TkMethod;
+typedef struct TkAction TkAction;
+typedef struct TkWin TkWin;
+typedef struct TkCmdtab TkCmdtab;
+typedef struct TkMouse TkMouse;
+typedef struct TkVar TkVar;
+typedef struct TkMsg TkMsg;
+typedef struct TkEbind TkEbind;
+typedef struct TkImg TkImg;
+typedef struct TkPanelimage TkPanelimage;
+typedef struct TkWinfo TkWinfo;
+typedef struct TkCursor TkCursor;
+typedef struct TkGrid TkGrid;
+typedef struct TkGridbeam TkGridbeam;
+typedef struct TkGridcell TkGridcell;
+
+struct TkImg
+{
+	TkTop*	top;
+	int	ref;
+	int	type;
+	int	w;
+	int	h;
+	TkEnv*	env;
+	Image*	img;
+	TkImg*	link;
+	TkName*	name;
+	char *cursor;
+};
+
+struct TkCursor
+{
+	int	def;
+	Point	p;
+	Image*	bit;
+	TkImg*	img;
+};
+
+struct TkEbind
+{
+	int	event;
+	char*	cmd;
+};
+
+struct TkMsg
+{
+	TkVar*	var;
+	TkMsg*	link;
+	char	msg[TKSTRUCTALIGN];
+};
+
+enum
+{
+	TkVchan		= 1,
+	TkVstring,
+};
+
+struct TkVar
+{
+	int	type;
+	TkVar*	link;
+	void*	value;
+	char	name[TKSTRUCTALIGN];
+};
+
+struct TkPanelimage
+{
+	void*		image;		/* really Draw_Image */
+	int			ref;
+	TkPanelimage*	link;
+};
+
+struct TkMouse
+{
+	int		x;
+	int		y;
+	int		b;
+};
+
+struct TkCmdtab
+{
+	char*		name;
+	char*		(*fn)(Tk*, char*, char**);
+};
+
+struct TkWinfo
+{
+	Tk*		w;
+	Rectangle	r;
+};
+
+struct TkAction
+{
+	int		event;
+	int		type;
+	char*		arg;
+	TkAction*	link;
+};
+
+struct TkStab
+{
+	char*		val;
+	int		con;
+};
+
+struct TkOption
+{
+	char*		o;
+	int		type;
+	int		offset;
+	void*		aux;
+};
+
+struct TkOptab
+{
+	void*		ptr;
+	TkOption*	optab;	
+};
+
+enum
+{
+	/* Widget Control Bits */
+	Tktop		= (1<<0),
+	Tkbottom	= (1<<1),
+	Tkleft		= (1<<2),
+	Tkright		= (1<<3),
+	Tkside		= Tktop|Tkbottom|Tkleft|Tkright,
+	Tkfillx		= (1<<4),
+	Tkfilly		= (1<<5),
+	Tkfill		= Tkfillx|Tkfilly,
+	Tkexpand	= (1<<6),
+	Tkrefresh	= (1<<7),
+	Tknoprop	= (1<<8),
+	Tkbaseline 	= (1<<10),
+	Tknumeric	= (1<<11),
+
+	Tknorth		= (1<<10),
+	Tkeast		= (1<<11),
+	Tksouth		= (1<<12),
+	Tkwest		= (1<<13),
+	Tkcenter		= 0,
+	Tkanchor	= Tknorth|Tkeast|Tksouth|Tkwest,
+	Tksuspended	= (1<<14),		/* window suspended pending resize */
+
+	Tkgridpack	= (1<<17),		/* temporary flag marking addition to grid */
+	Tkgridremove	= (1<<18),		/* marked for removal from grid */
+	Tktakefocus	= (1<<19),
+	Tktransparent		= (1<<20),	/* Doesn't entirely obscure its background */
+	Tkwindow	= (1<<21),	/* Top level window */
+	Tkactive		= (1<<22),	/* Pointer is over active object */
+	Tkactivated	= (1<<23),	/* Button pressed etc.. */
+	Tkdisabled	= (1<<24),	/* Button is not accepting events */
+	Tkmapped	= (1<<25),	/* Mapped onto display */
+	Tknograb		= (1<<26),
+	Tkdestroy		= (1<<27),	/* Marked for death */
+	Tksetwidth	= (1<<28),
+	Tksetheight	= (1<<29),
+	Tksubsub	= (1<<30),
+	Tkswept		= (1<<31),
+
+	/* Supported Event Types 		*/
+	/*
+	 * Bits 0-15 are keyboard characters
+	 * but duplicated by other events, as we can distinguish
+	 * key events from others with the TkKey bit.
+	 * N.B. make sure that this distinction *is* made;
+	 * i.e.
+	 *	if (event & TkButton1P)
+	 *   is no longer sufficient to test for button1 down.
+	 *
+	 * 	if (!(event & TkKey) && (event & TkButton1P))
+	 *   would be better.
+	 */
+	TkButton1P	= (1<<0),
+	TkButton1R	= (1<<1),
+	TkButton2P	= (1<<2),
+	TkButton2R	= (1<<3),
+	TkButton3P	= (1<<4),
+	TkButton3R	= (1<<5),
+	TkButton4P	= (1<<6),
+	TkButton4R	= (1<<7),
+	TkButton5P	= (1<<8),
+	TkButton5R	= (1<<9),
+	TkButton6P	= (1<<10),
+	TkButton6R	= (1<<11),
+	/*
+	 * 12-15 reserved for more buttons.
+	 */
+	TkExtn1		= (1<<16),
+	TkExtn2		= (1<<17),
+	TkTakefocus	= (1<<18),
+	/*
+	 * 19-20 currently free
+	 */
+	TkDestroy		= (1<< 21),
+	TkEnter		= (1<<22),
+	TkLeave		= (1<<23),
+	TkMotion	= (1<<24),
+	TkMap		= (1<<25),
+	TkUnmap		= (1<<26),
+	TkKey		= (1<<27),
+	TkFocusin	= (1<<28),
+	TkFocusout	= (1<<29),
+	TkConfigure	= (1<<30),
+	TkDouble	= (1<<31),
+	TkEmouse	= TkButton1P|TkButton1R|TkButton2P|TkButton2R|
+			TkButton3P|TkButton3R|
+			TkButton4P|TkButton4R|
+			TkButton5P|TkButton5R|
+			TkButton6P|TkButton6R|TkMotion,
+	TkEpress	= TkButton1P|TkButton2P|TkButton3P|
+			TkButton4P|TkButton5P|TkButton6P,
+	TkErelease	= TkButton1R|TkButton2R|TkButton3R|
+					TkButton4R|TkButton5R|TkButton6R,
+	TkExtns	= TkExtn1|TkExtn2,
+	TkAllEvents	= ~0,
+
+	TkCforegnd	= 0,
+	TkCbackgnd,			/* group of 3 */
+	TkCbackgndlght,
+	TkCbackgnddark,
+	TkCselect,
+	TkCselectbgnd,			/* group of 3 */
+	TkCselectbgndlght,
+	TkCselectbgnddark,
+	TkCselectfgnd,
+	TkCactivebgnd,		/* group of 3 */
+	TkCactivebgndlght,
+	TkCactivebgnddark,
+	TkCactivefgnd,
+	TkCdisablefgnd,
+	TkChighlightfgnd,
+	TkCfill,
+	TkCtransparent,
+
+	TkNcolor,
+
+	TkSameshade	= 0,		/* relative shade for tkgshade() and tkrgbashade()*/
+	TkLightshade,
+	TkDarkshade
+};
+
+
+struct TkEnv
+{
+	int		ref;
+	TkTop*		top;			/* Owner */
+	ulong		set;
+	ulong		colors[TkNcolor];	/* OPTcolr */
+	Font*		font;			/* Font description */
+	int		wzero;			/* Width of "0" in pixel */
+};
+
+struct TkGeom
+{
+	int		x;
+	int		y;
+	int		width;
+	int		height;
+};
+
+struct TkGridbeam {
+	int		equalise;
+	int		minsize;
+	int		maxsize;
+	int		weight;
+	int		pad;
+	int		act;
+	char*	name;
+};
+
+struct TkGridcell {
+	Tk*		tk;
+	Point		span;
+};
+
+struct TkGrid {
+	TkGridcell**	cells;		/* 2D array of cells, y major, x minor */
+	Point			dim;		/* dimensions of table */
+	TkGridbeam*	rows;
+	TkGridbeam*	cols;
+	Point			origin;	/* top left point grid was rendered at */
+};
+
+struct Tk
+{
+	int		type;		/* Widget type */
+	TkName*		name;		/* Hierarchy name */
+	Tk*		siblings;	/* Link to descendents */
+	Tk*		master;		/* Pack owner */
+	Tk*		slave;		/* Packer slaves */
+	Tk*		next;		/* Link for packer slaves */
+	Tk*		parent;		/* Window is sub of canvas or text */
+	Tk*		depth;		/* Window depth when mapped */
+	void		(*geom)(Tk*, int, int, int, int);		/* Geometry change notify function */
+	void		(*destroyed)(Tk*);		/* Destroy notify function */
+	int		flag;		/* Misc flags. */
+	TkEnv*		env;		/* Colors & fonts */
+	TkAction*	binds;		/* Binding of current events */
+
+	TkGeom		req;		/* Requested size and position */
+	TkGeom		act;		/* Actual size and position */
+	int		relief;		/* 3D border type */
+	int		borderwidth;	/* 3D border size */
+	int		highlightwidth;
+	Point		pad;		/* outside frame padding */
+	Point		ipad;		/* inside frame padding */
+	Rectangle	dirty;	/* dirty rectangle, relative to widget */
+	TkGrid*	grid;		/* children are packed in a grid */
+
+//	char		obj[TKSTRUCTALIGN];
+};
+
+struct TkWin
+{
+	Image*	image;
+	Tk*		next;
+	Point		act;
+	Point		req;
+	void*	di;		/* !=H if it's been set externally */
+	int		changed;	/* requested rect has changed since request sent */
+	int		reqid;	/* id of request most recently sent out; replies to earlier requests are ignored */
+
+	/* menu specific members */
+	Tk*		slave;
+	char*		postcmd;
+	char*		cascade;
+	int			freeonunmap;
+	char			*cbname;		/* name of choicebutton that posted this */
+
+	Point			delta;
+	int			speed;
+	int			waiting;
+};
+
+struct TkMethod
+{
+	char*		name;
+	TkCmdtab*	cmd;
+	void		(*free)(Tk*);
+	char*	(*draw)(Tk*, Point);
+	void		(*geom)(Tk*);
+	void		(*getimgs)(Tk*, Image**, Image**);
+
+	void		(*focusorder)(Tk*);	/* add any focusable descendants to the focus order */
+	void		(*dirtychild)(Tk*);		/* Child notifies parent to redraw */
+	Point		(*relpos)(Tk*);
+	Tk*		(*deliver)(Tk*, int, void*);
+	void		(*see)(Tk*, Rectangle*, Point*);
+	Tk*		(*inwindow)(Tk*, Point*);
+	void		(*varchanged)(Tk*, char*, char*);
+	int		ncmd;
+};
+
+struct TkName
+{
+	TkName*		link;
+	void*		obj;		/* Name for ... */
+	union {
+		TkAction*	binds;
+	}prop;				/* Properties for ... */
+	int		ref;
+	char		name[TKSTRUCTALIGN];
+};
+
+struct TkTtabstop
+{
+	int		pos;
+	int		justify;
+	TkTtabstop*	next;
+};
+
+struct TkCol
+{
+	ulong	rgba;
+	Image*	i;
+	TkCol*	forw;
+};
+
+struct TkCtxt
+{
+	void*	lock;
+	Display*	display;
+	int		ncol;
+	TkCol*	chead;
+	TkCol*	ctail;
+	Image*	i;			/* temporary image for drawing buttons, etc */
+	Image*	ia;			/* as above, but with an alpha channel */
+	Tk*		tkkeygrab;
+
+	int		focused;
+	Tk*		mfocus;
+	Tk*		mgrab;
+	Tk*		entered;
+	TkMouse	mstate;
+
+	Tk*		tkmenu;
+	void*	extn;
+};
+
+struct TkTop
+{
+	void*	dd;	/* really Draw_Display */
+	void*	wreq;	/* really chan of string */
+	void*	di;		/* really Draw_Image* */
+	void*	wmctxt;	/* really Draw_Wmcontext */
+	Rectangle	screenr;	/* XXX sleazy equiv to Draw_Rect, but what else? */
+
+	/* Private from here on */
+	TkCtxt*		ctxt;
+	Display*	display;
+	Tk*		root;			/* list of all objects, linked by siblings; first object is "." */
+	Tk*		windows;
+	Tk**		focusorder;
+	int		nfocus;
+	TkEnv*		env;
+	TkTop*		link;
+	TkVar*		vars;
+	TkImg*		imgs;
+	TkPanelimage*	panelimages;
+	TkAction*	binds[TKwidgets];
+	int		debug;
+	int		execdepth;
+	char		focused;
+	char		dirty;
+	char		noupdate;
+	char*	err;
+	char		errcmd[32];
+	char		errx[32];
+};
+
+#define TKobj(t, p)	((t*)((p)+1))
+//#define TKobj(t, p)	((t*)(p->obj))
+#define OPTION(p, t, o)	(*(t*)((char*)p + o))
+
+/* Command entry points */
+extern	char*	tkbind(TkTop*, char*, char**);
+extern	char*	tkbutton(TkTop*, char*, char**);
+extern	char*	tkcanvas(TkTop*, char*, char**);
+extern	char*	tkcheckbutton(TkTop*, char*, char**);
+extern	char*	tkchoicebutton(TkTop*, char*, char**);
+extern	char*	tkcursorcmd(TkTop*, char*, char**);
+extern	char*	tkdestroy(TkTop*, char*, char**);
+extern	char*	tkentry(TkTop*, char*, char**);
+extern	char*	tkfocus(TkTop*, char*, char**);
+extern	char*	tkframe(TkTop*, char*, char**);
+extern	char*	tkgrab(TkTop*, char*, char**);
+extern	char*	tkgrid(TkTop*, char*, char**);
+extern	char*	tkimage(TkTop*, char*, char**);
+extern	char*	tklabel(TkTop*, char*, char**);
+extern	char*	tklistbox(TkTop*, char*, char**);
+extern	char*	tklower(TkTop*, char*, char**);
+extern	char*	tkmenu(TkTop*, char*, char**);
+extern	char*	tkmenubutton(TkTop*, char*, char**);
+extern	char*	tkpack(TkTop*, char*, char**);
+extern	char*	tkpanel(TkTop*, char*, char**);
+extern	char*	tkputs(TkTop*, char*, char**);
+extern	char*	tkradiobutton(TkTop*, char*, char**);
+extern	char*	tkraise(TkTop*, char*, char**);
+extern	char*	tkscale(TkTop*, char*, char**);
+extern	char*	tkscrollbar(TkTop*, char*, char**);
+extern	char*	tksend(TkTop*, char*, char**);
+extern	char*	tktext(TkTop*, char*, char**);
+extern	char*	tkupdatecmd(TkTop*, char*, char**);
+extern	char*	tkvariable(TkTop*, char*, char**);
+extern	char*	tkwinfo(TkTop*, char*, char**);
+
+extern	TkMethod	*tkmethod[];
+
+/* Errors - xdata.c*/
+extern	char	TkNomem[];
+extern	char 	TkBadop[];
+extern	char 	TkOparg[];
+extern	char 	TkBadvl[];
+extern	char 	TkBadwp[];
+extern	char 	TkNotop[];
+extern	char	TkDupli[];
+extern	char	TkNotpk[];
+extern	char	TkBadcm[];
+extern	char	TkIstop[];
+extern	char	TkBadbm[];
+extern	char	TkBadft[];
+extern	char	TkBadit[];
+extern	char	TkBadtg[];
+extern	char	TkFewpt[];
+extern	char	TkBadsq[];
+extern	char	TkBadix[];
+extern	char	TkNotwm[];
+extern	char	TkWpack[];
+extern	char	TkBadvr[];
+extern	char	TkNotvt[];
+extern	char	TkMovfw[];
+extern	char	TkBadsl[];
+extern	char	TkSyntx[];
+extern	char TkRecur[];
+extern	char TkDepth[];
+extern	char TkNomaster[];
+extern	char TkNotgrid[];
+extern	char TkIsgrid[];
+extern	char TkBadgridcell[];
+extern	char TkBadspan[];
+extern	char TkBadcursor[];
+
+/* Option tables - xdata.c */
+extern	TkStab	tkanchor[];
+extern	TkStab	tkbool[];
+extern	TkStab	tkcolortab[];
+extern	TkStab	tkjustify[];
+extern	TkStab	tkorient[];
+extern	TkStab	tkrelief[];
+extern	TkStab	tktabjust[];
+extern	TkStab	tkwrap[];
+extern	TkOption	tkgeneric[];
+extern	TkOption	tktop[];
+extern	TkOption	tktopdbg[];
+
+/* panel.c */
+extern	void		tkgetpanelimage(Tk*, Image**, Image**);
+extern	void		tksetpanelimage(Tk *tk, Image*, Image*);
+
+/* General - colrs.c */
+extern	void		tksetenvcolours(TkEnv*);
+
+/* General - ebind.c */
+extern	void		tkcmdbind(Tk*, int, char*, void*);
+extern	TkCtxt*		tkdeldepth(Tk*);
+extern	char*		tkdestroy(TkTop*, char*, char**);
+extern	char*		tkbindings(TkTop*, Tk*, TkEbind*, int);
+extern	int		tkseqparse(char*);
+extern	void		tksetkeyfocus(TkTop*, Tk*, int);
+extern	void		tksetglobalfocus(TkTop*, int);
+
+/* General - image.c */
+extern	TkImg*		tkname2img(TkTop*, char*);
+extern	void		tkimgput(TkImg*);
+extern	void		tksizeimage(Tk*, TkImg*);
+extern	TkImg*		tkauximage(TkTop*, char*, uchar*, int, int, Rectangle, int);
+
+/* choicebuttons - menus.c */
+extern	Tk*		tkfindchoicemenu(Tk*);
+
+/* General - packr.c */
+extern	void		tkdelpack(Tk*);
+extern	void		tkappendpack(Tk*, Tk*, int);
+extern	void		tkpackqit(Tk*);
+extern	void		tkrunpack(TkTop*);
+extern	void		tksetslavereq(Tk*, TkGeom);
+extern	int		tkisslave(Tk*, Tk*);
+
+/* General - grids.c */
+extern	int		tkgridder(Tk*);
+extern	void		tkgriddelslave(Tk*);
+extern	char*	tkpropagate(TkTop*, char*);
+extern	void		tkfreegrid(TkGrid*);
+
+/* General - parse.c */
+extern	char*		tkconflist(TkOptab*, char**);
+extern	char*		tkskip(char*, char*);
+extern	char*		tkword(TkTop*, char*, char*, char*, int*);
+extern	char*		tkxyparse(Tk*, char**, Point*);
+extern	char*		tkparse(TkTop*, char*, TkOptab*, TkName**);
+extern	TkName*		tkmkname(char*);
+extern	char*		tkgencget(TkOptab*, char*, char**, TkTop*);
+extern	char*		tkparsecolor(char*, ulong*);
+
+/* General - utils.c */
+extern	Image*		tkgc(TkEnv*, int);
+extern	Image*		tkgshade(TkEnv*, int, int);
+extern	Image*		tkcolor(TkCtxt*, ulong);
+extern	void			tkclear(Image*, Rectangle);
+extern	TkEnv*		tknewenv(TkTop*);
+extern	TkEnv*		tkdefaultenv(TkTop*);
+extern	void		tkputenv(TkEnv*);
+extern	TkEnv*		tkdupenv(TkEnv**);
+extern	Tk*		tknewobj(TkTop*, int, int);
+extern	void		tkfreebind(TkAction*);
+extern	void		tkfreename(TkName*);
+extern	void		tkfreeobj(Tk*);
+extern	char*		tkaddchild(TkTop*, Tk*, TkName**);
+extern	Tk*		tklook(TkTop*, char*, int);
+extern	void		tktextsdraw(Image*, Rectangle, TkEnv*, int);
+extern	void		tkbox(Image*, Rectangle, int, Image*);
+extern	void		tkbevel(Image*, Point, int, int, int, Image*, Image*);
+extern	void		tkdrawrelief(Image*, Tk*, Point, int, int);
+extern	Point		tkstringsize(Tk*, char*);
+extern	char*		tkdrawstring(Tk*, Image*, Point, char*, int, Image *, int);
+extern	int		tkeventfmt(Fmt*);
+extern	Tk*		tkdeliver(Tk*, int, void*);
+extern	int		tksubdeliver(Tk*, TkAction*, int, void*, int);
+extern	void		tkcancel(TkAction**, int);
+extern	char*		tkaction(TkAction**, int, int, char*, int);
+extern	char*		tkitem(char*, char*);
+extern	int		tkismapped(Tk*);
+extern	Point		tkposn(Tk*);
+extern	Point		tkscrn2local(Tk*, Point);
+extern	int		tkvisiblerect(Tk *tk, Rectangle *rr);
+extern	Point		tkanchorpoint(Rectangle, Point, int);
+extern	char*		tkfrac(char**, int*, TkEnv*);
+extern	char*		tkfracword(TkTop*, char**, int*, TkEnv*);
+extern	char*		tkfprint(char*, int);
+extern	char*		tkvalue(char**, char*, ...);
+extern	void		tkdirty(Tk *);
+extern	void		tksorttable(void);
+extern	char*		tkexec(TkTop*, char*, char**);
+extern	int		tkeventfmt(Fmt*);
+extern	void		tkerr(TkTop*, char*);
+extern	char*	tkerrstr(TkTop*, char*);
+extern	char*	tkcursorswitch(TkTop*, Image*, TkImg*);
+extern	void		tkcursorset(TkTop*, Point);
+extern	char*	tksetmgrab(TkTop*, Tk*);
+extern	int 		tkinsidepoly(Point*, int, int, Point);
+extern	int		tklinehit(Point*, int, int, Point);
+extern	int		tkiswordchar(int);
+extern	int		tkhaskeyfocus(Tk*);
+extern	Rectangle	tkrect(Tk*, int);
+extern	int		tkchanhastype(ulong, int);
+extern	int		tkhasalpha(TkEnv*, int);
+extern	void		tksettransparent(Tk*, int);
+extern	ulong	tkrgba(int, int, int, int);
+extern	ulong	tkrgbashade(ulong, int);
+extern	void		tkrgbavals(ulong, int*, int*, int*, int*);
+extern	void		tkrepeat(Tk*, void(*)(Tk*, void*, int), void*, int, int);
+extern	void		tkcancelrepeat(Tk*);
+extern	void		tkblink(Tk*, void(*)(Tk*, int));
+extern	void		tkblinkreset(Tk*);
+extern	char*	tkname(Tk*);
+
+/* General - windw.c */
+extern	TkCtxt*		tknewctxt(Display*);
+extern	void		tkfreectxt(TkCtxt*);
+extern	void		tkfreecolcache(TkCtxt*);
+extern	Image*		tkitmp(TkEnv*, Point, int);
+extern	void		tkgeomchg(Tk*, TkGeom*, int);
+extern	Tk*		tkinwindow(Tk*, Point, int);
+extern	Tk*		tkfindfocus(TkTop*, int, int, int);
+extern	char*		tkdrawslaves(Tk*, Point, int*);
+extern	char*		tkupdate(TkTop*);
+extern	int		tkischild(Tk*, Tk*);
+extern	void		tksetbits(Tk*, int);
+extern	char*		tkmap(Tk*);
+extern	void		tkunmap(Tk*);
+extern	void		tkmoveresize(Tk*, int, int, int, int);
+extern	int		tkupdatewinsize(Tk*);
+extern	void		tkmovewin(Tk*, Point);
+extern	Image*		tkimageof(Tk*);
+extern	void		tktopopt(Tk*, char*);
+extern	void		tkdirtyfocusorder(TkTop*);
+extern	void		tkbuildfocusorder(TkTop*);
+extern	void		tksortfocusorder(TkWinfo*, int);
+extern	void		tkappendfocusorder(Tk*);
+extern	void		tksee(Tk*, Rectangle, Point);
+extern	char*	tkseecmd(TkTop*, char*, char**);
+
+/* Style specific extensions - extns.c */
+extern	int		tkextndeliver(Tk*, TkAction*, int, void*);
+extern	void		tkextnfreeobj(Tk*);
+extern	int		tkextnnewctxt(TkCtxt*);
+extern	void		tkextnfreectxt(TkCtxt*);
+extern	char*	tkextnparseseq(char*, char*, int*);
+
+/* External to libtk */
+extern	void		tkenterleave(TkTop*);
+extern	void		tksetwinimage(Tk*, Image*);
+extern	void		tkdestroywinimage(Tk*);
+extern	void		tkfreevar(TkTop*, char*, int);
+extern	TkVar*		tkmkvar(TkTop*, char*, int);
+extern	int		tktolimbo(void*, char*);
+extern	void		tkwreq(TkTop*, char*, ...);
+extern	void		tkdelpanelimage(TkTop*, Image*);
+
+extern	TkMethod		framemethod;
+extern	TkMethod		labelmethod;
+extern	TkMethod		checkbuttonmethod;
+extern	TkMethod		buttonmethod;
+extern	TkMethod		menubuttonmethod;
+extern	TkMethod		menumethod;
+extern	TkMethod		separatormethod;
+extern	TkMethod		cascademethod;
+extern	TkMethod		listboxmethod;
+extern	TkMethod		scrollbarmethod;
+extern	TkMethod		textmethod;
+extern	TkMethod		canvasmethod;
+extern	TkMethod		entrymethod;
+extern	TkMethod		radiobuttonmethod;
+extern	TkMethod		scalemethod;
+extern	TkMethod		panelmethod;
+extern	TkMethod		choicebuttonmethod;