summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/typemap
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/typemap')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/typemap96
1 files changed, 0 insertions, 96 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/typemap b/Master/tlpkg/tlperl/lib/Tk/typemap
deleted file mode 100644
index 29138850ab3..00000000000
--- a/Master/tlpkg/tlperl/lib/Tk/typemap
+++ /dev/null
@@ -1,96 +0,0 @@
-TYPEMAP
-Tk_Window T_TK_WINDOW
-Tk_Image T_TK_IMAGE
-TkWindow * T_TKWINDOW
-Display * T_IVOBJ
-Screen * T_IVOBJ
-Visual * T_IVOBJ
-Window T_IVOBJ
-Colormap T_IVOBJ
-GC T_IVOBJ
-Font T_IVOBJ
-Atom T_IV
-HANDLE T_IV
-BOOL T_IV
-HWND T_TK_HWND
-FILE * T_NIO
-hash_ptr * T_PTR
-Tk_3DBorder T_IVOBJ
-Tk_Uid T_TK_UID
-Tcl_Interp * T_TK_INTERP
-Tk_Font T_TK_FONT
-EventAndKeySym * T_TK_XEVENT
-LangCallback * T_TK_CALLBACK
-LangFontInfo * T_PVOBJ
-const char * T_PV
-
-INPUT
-T_PVOBJ
- if (sv_isobject($arg)) {
- STRLEN sz;
- $var = ($type) SvPV((SV*)SvRV($arg),sz);
- if (sz != sizeof(*$var))
- croak(\"$arg too small (%d) for $var $type (%d)\",sz,sizeof(*$var));
- }
- else
- croak(\"$var is not an object\")
-
-T_TK_WINDOW
- $var = SVtoWindow($arg)
-
-T_TK_CALLBACK
- $var = LangMakeCallback($arg)
-
-
-T_TK_HWND
- $var = SVtoHWND($arg)
-
-T_TK_XEVENT
- $var = SVtoEventAndKeySym($arg)
-
-T_TK_FONT
- $var = SVtoFont($arg)
-
-T_TK_IMAGE
- $var = SVtoImage($arg)
-
-T_TKWINDOW
- $var = (TkWindow *) SVtoWindow($arg)
-
-T_TK_INTERP
- $var = WindowCommand($arg,NULL,1)->interp
-
-T_TK_UID
- $var = Tk_GetUid(SvPV($arg,na))
-
-T_IVOBJ
- if (sv_isa($arg, \"${ntype}\")) {
- $var = INT2PTR($type, SvIV(SvRV($arg)));
- }
- else {
- $var = ($type) NULL;
- croak(\"$var is not of type ${ntype}\");
- }
-
-T_NIO
- if (sv_isa($arg, \"${Package}\")) {
- $var = IoIFP(sv_2io(SvRV($arg)));
- }
- else
- croak(\"$var is not of type ${Package}\")
-
-
-OUTPUT
-T_IVOBJ
- sv_setref_iv($arg, \"${ntype}\", PTR2IV($var));
-
-T_TK_UID
- sv_setpv($arg,$var);
-
-T_TK_WINDOW
- SvSetMagicSV($arg,TkToWidget($var,NULL));
-
-T_TKWINDOW
- SvSetMagicSV($arg,TkToWidget((Tk_Window) $var,NULL));
-
-