123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217 |
- #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";
|