ref: b5bc6572b0a82c52ab04bcf25e1ed76700deb246
dir: /libtk/xdata.c/
#include "lib9.h"
#include "draw.h"
#include "tk.h"
#define O(t, e) ((long)(&((t*)0)->e))
TkStab tkorient[] =
{
"vertical", Tkvertical,
"horizontal", Tkhorizontal,
nil
};
#define RGB(r,g,b) ((r<<24)|(g<<16)|(b<<8)|0xff)
TkStab tkcolortab[] =
{
"black", RGB(0,0,0),
"blue", RGB(0,0,204),
"darkblue", RGB(93,0,187),
"red", RGB(255,0,0),
"yellow", RGB(255,255,0),
"green", RGB(0,128,0),
"white", RGB(255,255,255),
"orange", RGB(255,170,0),
"aqua", RGB(0,255,255),
"fuchsia", RGB(255,0,255),
"gray", RGB(128,128,128),
"grey", RGB(128,128,128),
"lime", RGB(0,255,0),
"maroon", RGB(128,0,0),
"navy", RGB(0,0,128),
"olive", RGB(128,128,0),
"purple", RGB(128,0,128),
"silver", RGB(192,192,192),
"teal", RGB(0,128,128),
"transparent", DTransparent,
nil
};
TkStab tkrelief[] =
{
"raised", TKraised,
"sunken", TKsunken,
"flat", TKflat,
"groove", TKgroove,
"ridge", TKridge,
nil
};
TkStab tkbool[] =
{
"0", BoolF,
"no", BoolF,
"off", BoolF,
"false", BoolF,
"1", BoolT,
"yes", BoolT,
"on", BoolT,
"true", BoolT,
nil
};
TkStab tkanchor[] =
{
"center", Tkcenter,
"c", Tkcenter,
"n", Tknorth,
"ne", Tknorth|Tkeast,
"e", Tkeast,
"se", Tksouth|Tkeast,
"s", Tksouth,
"sw", Tksouth|Tkwest,
"w", Tkwest,
"nw", Tknorth|Tkwest,
nil
};
static
TkStab tkstate[] =
{
"normal", 0,
"active", Tkactive,
"disabled", Tkdisabled,
nil
};
static
TkStab tktakefocus[] =
{
"0", 0,
"1", Tktakefocus,
nil
};
TkStab tktabjust[] =
{
"left", Tkleft,
"right", Tkright,
"center", Tkcenter,
"numeric", Tknumeric,
nil
};
TkStab tkwrap[] =
{
"none", Tkwrapnone,
"word", Tkwrapword,
"char", Tkwrapchar,
nil
};
TkStab tkjustify[] =
{
"left", Tkleft,
"right", Tkright,
"center", Tkcenter,
nil
};
TkOption tkgeneric[] =
{
"actx", OPTact, 0, IAUX(0),
"acty", OPTact, 0, IAUX(1),
"actwidth", OPTdist, O(Tk, act.width), IAUX(O(Tk, env)),
"actheight", OPTdist, O(Tk, act.height), IAUX(O(Tk, env)),
"bd", OPTnndist, O(Tk, borderwidth), nil,
"borderwidth", OPTnndist, O(Tk, borderwidth), nil,
"highlightthickness", OPTnndist, O(Tk, highlightwidth), nil,
"height", OPTsize, 0, IAUX(O(Tk, env)),
"width", OPTsize, 0, IAUX(O(Tk, env)),
"relief", OPTstab, O(Tk, relief), tkrelief,
"state", OPTflag, O(Tk, flag), tkstate,
"font", OPTfont, O(Tk, env), nil,
"foreground", OPTcolr, O(Tk, env), IAUX(TkCforegnd),
"background", OPTcolr, O(Tk, env), IAUX(TkCbackgnd),
"fg", OPTcolr, O(Tk, env), IAUX(TkCforegnd),
"bg", OPTcolr, O(Tk, env), IAUX(TkCbackgnd),
"selectcolor", OPTcolr, O(Tk, env), IAUX(TkCselect),
"selectforeground", OPTcolr, O(Tk, env), IAUX(TkCselectfgnd),
"selectbackground", OPTcolr, O(Tk, env), IAUX(TkCselectbgnd),
"activeforeground", OPTcolr, O(Tk, env), IAUX(TkCactivefgnd),
"activebackground", OPTcolr, O(Tk, env), IAUX(TkCactivebgnd),
"highlightcolor", OPTcolr, O(Tk, env), IAUX(TkChighlightfgnd),
"disabledcolor", OPTcolr, O(Tk, env), IAUX(TkCdisablefgnd),
"padx", OPTnndist, O(Tk, pad.x), nil,
"pady", OPTnndist, O(Tk, pad.y), nil,
"takefocus", OPTflag, O(Tk, flag), tktakefocus,
nil
};
TkOption tktop[] =
{
"x", OPTdist, O(TkWin, req.x), nil,
"y", OPTdist, O(TkWin, req.y), nil,
nil
};
TkOption tktopdbg[] =
{
"debug", OPTbool, O(TkTop, debug), nil,
nil
};
TkMethod *tkmethod[] =
{
&framemethod, /* TKframe */
&labelmethod, /* TKlabel */
&checkbuttonmethod, /* TKcheckbutton */
&buttonmethod, /* TKbutton */
&menubuttonmethod, /* TKmenubutton */
&menumethod, /* TKmenu */
&separatormethod, /* TKseparator */
&cascademethod, /* TKcascade */
&listboxmethod, /* TKlistbox */
&scrollbarmethod, /* TKscrollbar */
&textmethod, /* TKtext */
&canvasmethod, /* TKcanvas */
&entrymethod, /* TKentry */
&radiobuttonmethod, /* TKradiobutton */
&scalemethod, /* TKscale */
&panelmethod, /* TKpanel */
&choicebuttonmethod, /*TKchoicebutton */
};
char TkNomem[] = "!out of memory";
char TkBadop[] = "!bad option";
char TkOparg[] = "!arg requires option";
char TkBadvl[] = "!bad value";
char TkBadwp[] = "!bad window path";
char TkWpack[] = "!window is already packed";
char TkNotop[] = "!no toplevel";
char TkDupli[] = "!window path already exists";
char TkNotpk[] = "!window not packed";
char TkBadcm[] = "!bad command";
char TkIstop[] = "!can't pack top level";
char TkBadbm[] = "!failed to load bitmap";
char TkBadft[] = "!failed to open font";
char TkBadit[] = "!bad item type";
char TkBadtg[] = "!bad/no matching tag";
char TkFewpt[] = "!wrong number of points";
char TkBadsq[] = "!bad event sequence";
char TkBadix[] = "!bad index";
char TkNotwm[] = "!not a window";
char TkBadvr[] = "!variable does not exist";
char TkNotvt[] = "!variable is wrong type";
char TkMovfw[] = "!too many events buffered";
char TkBadsl[] = "!selection already exists";
char TkSyntx[] = "!bad [] or {} syntax";
char TkRecur[] = "!cannot pack recursively";
char TkDepth[] = "!execution stack too big";
char TkNomaster[] = "!no master given";
char TkNotgrid[] = "!not a grid";
char TkIsgrid[] = "!cannot use pack inside a grid";
char TkBadgridcell[] = "!grid cell in use";
char TkBadspan[] = "!bad grid span";
char TkBadcursor[] = "!bad cursor image";