diff options
author | (no author) <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-08-02 06:51:27 +0000 |
---|---|---|
committer | (no author) <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-08-02 06:51:27 +0000 |
commit | cdc596afdd7689593b0a694f8e9db7ce860e4b45 (patch) | |
tree | 3691d0c6e2bd4862e1e683cb190cd5cecc729c35 /ext/tk/stubs.h | |
parent | 42d2b628dd92f7f2462c2c1eddc08870237a19db (diff) |
This commit was manufactured by cvs2svn to create branch 'ruby_1_8'.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8887 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/stubs.h')
-rw-r--r-- | ext/tk/stubs.h | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/ext/tk/stubs.h b/ext/tk/stubs.h new file mode 100644 index 0000000000..7c913fb393 --- /dev/null +++ b/ext/tk/stubs.h @@ -0,0 +1,33 @@ +#include <tcl.h> + +extern int ruby_open_tcl_dll(char *); +extern int ruby_open_tk_dll(); +extern int ruby_open_tcltk_dll(char *); +extern int tcl_stubs_init_p(); +extern int tk_stubs_init_p(); +extern Tcl_Interp *ruby_tcl_create_ip_and_stubs_init(int*); +extern int ruby_tcl_stubs_init(); +extern int ruby_tk_stubs_init(Tcl_Interp*); +extern int ruby_tk_stubs_safeinit(Tcl_Interp*); +extern int ruby_tcltk_stubs(); + +/* no error */ +#define TCLTK_STUBS_OK (0) + +/* return value of ruby_open_tcl_dll() */ +#define NO_TCL_DLL (1) +#define NO_FindExecutable (2) + +/* return value of ruby_open_tk_dll() */ +#define NO_TK_DLL (-1) + +/* status value of ruby_tcl_create_ip_and_stubs_init(st) */ +#define NO_CreateInterp (3) +#define NO_DeleteInterp (4) +#define FAIL_CreateInterp (5) +#define FAIL_Tcl_InitStubs (6) + +/* return value of ruby_tk_stubs_init() */ +#define NO_Tk_Init (7) +#define FAIL_Tk_Init (8) +#define FAIL_Tk_InitStubs (9) |