ref: e2e50a8e5a74452672f9418bcdfe4de10f600ed0
dir: /include/tk.h/
/* * 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 */ OPTflags, /* more than one OPTflag */ 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 TkMemimage TkMemimage; 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; #pragma incomplete TkCol 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; /* Image paired with Draw_Image: see lookupimage in libinterp/draw.c */ int ref; TkPanelimage* link; }; struct TkMouse { int x; int y; int b; }; struct TkMemimage { Rectangle r; ulong chans; uchar* data; }; 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 this 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 */ /* followed by widget-dependent data */ }; 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*); void (*forgetsub)(Tk*, Tk*); 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 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*, TkMemimage*, 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 Image* tkcolormix(TkCtxt*, ulong, ulong); extern Image* tkgradient(TkCtxt*, Rectangle, int, ulong, 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 Tk* tkfindsub(Tk*); 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 void 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 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*); /* Debugging */ extern void tkdump(Tk*); extern void tktopdump(Tk*); extern void tkcvsdump(Tk*); /* 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;