--- deliantra/Deliantra-Client/typemap	2007/07/29 03:58:26	1.11
+++ deliantra/Deliantra-Client/typemap	2007/07/29 21:31:47	1.12
@@ -8,10 +8,24 @@
 GLfloat			T_NV
 GLdouble		T_NV
 
-CFPlus::Channel		T_PTROBJ
+CFPlus::Channel		T_IVOBJ
 CFPlus::RW		T_PTROBJ
 CFPlus::MixChunk	T_PTROBJ
 CFPlus::MixMusic	T_PTROBJ
 CFPlus::Font		T_PTROBJ
 CFPlus::Layout		T_PTROBJ
 CFPlus::Map		T_PTROBJ
+
+INPUT
+
+T_IVOBJ
+        if (sv_derived_from($arg, \"${ntype}\"))
+          $var = SvIV (SvRV ($arg));
+        else
+          croak (\"$var is not of type ${ntype}\")
+
+OUTPUT
+
+T_IVOBJ
+        sv_setref_iv ($arg, \"${ntype}\", (void*)$var);
+