diff options
author | dgp <dgp@users.sourceforge.net> | 2016-06-22 18:17:52 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-06-22 18:17:52 (GMT) |
commit | d5db310e939011b74dead2d218c7b3e7f4b05415 (patch) | |
tree | f84e3ad31df3e5937ebbb98e41e7b8e7854caee6 /generic/tkFrame.c | |
parent | 4b86a7eea52d42b1390234fb9b710fad125d58a0 (diff) | |
parent | 43275fa6b210f53456fdd27679904f49a53ebbed (diff) | |
download | tk-d5db310e939011b74dead2d218c7b3e7f4b05415.zip tk-d5db310e939011b74dead2d218c7b3e7f4b05415.tar.gz tk-d5db310e939011b74dead2d218c7b3e7f4b05415.tar.bz2 |
Modernize Tk_Init() to use Tcl 8.6 features.
Diffstat (limited to 'generic/tkFrame.c')
-rw-r--r-- | generic/tkFrame.c | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/generic/tkFrame.c b/generic/tkFrame.c index 057b4b8..f6edfb0 100644 --- a/generic/tkFrame.c +++ b/generic/tkFrame.c @@ -447,6 +447,30 @@ TkCreateFrame( return result; } +int +TkListCreateFrame( + ClientData clientData, /* Either NULL or pointer to option table. */ + Tcl_Interp *interp, /* Current interpreter. */ + Tcl_Obj *listObj, /* List of arguments. */ + int toplevel, /* Non-zero means create a toplevel window, + * zero means create a frame. */ + Tcl_Obj *nameObj) /* Should only be non-NULL if there is no main + * window associated with the interpreter. + * Gives the base name to use for the new + * application. */ + +{ + int objc; + Tcl_Obj **objv; + + if (TCL_OK != Tcl_ListObjGetElements(interp, listObj, &objc, &objv)) { + return TCL_ERROR; + } + return CreateFrame(clientData, interp, objc, objv, + toplevel ? TYPE_TOPLEVEL : TYPE_FRAME, + nameObj ? Tcl_GetString(nameObj) : NULL); +} + static int CreateFrame( ClientData clientData, /* NULL. */ |