home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / lib / perl5 / Gtk2 / Install / gtk2perl-autogen.h < prev    next >
Encoding:
C/C++ Source or Header  |  2006-03-29  |  189.5 KB  |  3,425 lines
  1. /* This file is automatically generated. Any changes made here will be lost. */
  2.  
  3. /* This header defines simple perlapi-ish macros for creating SV wrappers
  4.  * and extracting the GPerl value from SV wrappers.  These macros are used
  5.  * by the autogenerated typemaps, and are defined here so that you can use
  6.  * the same logic anywhere in your code (e.g., if you handle the argument
  7.  * stack by hand instead of using the typemap). */
  8.  
  9. #ifdef ATK_TYPE_ACTION
  10.   /* GInterface derivative AtkAction */
  11. # define SvAtkAction(sv)    ((AtkAction*)gperl_get_object_check (sv, ATK_TYPE_ACTION))
  12. # define newSVAtkAction(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  13.   typedef AtkAction AtkAction_ornull;
  14. # define SvAtkAction_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkAction(sv) : NULL)
  15. # define newSVAtkAction_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  16. #endif /* ATK_TYPE_ACTION */
  17.  
  18. #ifdef ATK_TYPE_COMPONENT
  19.   /* GInterface derivative AtkComponent */
  20. # define SvAtkComponent(sv)    ((AtkComponent*)gperl_get_object_check (sv, ATK_TYPE_COMPONENT))
  21. # define newSVAtkComponent(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  22.   typedef AtkComponent AtkComponent_ornull;
  23. # define SvAtkComponent_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkComponent(sv) : NULL)
  24. # define newSVAtkComponent_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  25. #endif /* ATK_TYPE_COMPONENT */
  26.  
  27. #ifdef ATK_TYPE_DOCUMENT
  28.   /* GInterface derivative AtkDocument */
  29. # define SvAtkDocument(sv)    ((AtkDocument*)gperl_get_object_check (sv, ATK_TYPE_DOCUMENT))
  30. # define newSVAtkDocument(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  31.   typedef AtkDocument AtkDocument_ornull;
  32. # define SvAtkDocument_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkDocument(sv) : NULL)
  33. # define newSVAtkDocument_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  34. #endif /* ATK_TYPE_DOCUMENT */
  35.  
  36. #ifdef ATK_TYPE_EDITABLE_TEXT
  37.   /* GInterface derivative AtkEditableText */
  38. # define SvAtkEditableText(sv)    ((AtkEditableText*)gperl_get_object_check (sv, ATK_TYPE_EDITABLE_TEXT))
  39. # define newSVAtkEditableText(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  40.   typedef AtkEditableText AtkEditableText_ornull;
  41. # define SvAtkEditableText_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkEditableText(sv) : NULL)
  42. # define newSVAtkEditableText_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  43. #endif /* ATK_TYPE_EDITABLE_TEXT */
  44.  
  45. #ifdef ATK_TYPE_GOBJECT_ACCESSIBLE
  46.   /* GObject derivative AtkGObjectAccessible */
  47. # define SvAtkGObjectAccessible(sv)    ((AtkGObjectAccessible*)gperl_get_object_check (sv, ATK_TYPE_GOBJECT_ACCESSIBLE))
  48. # define newSVAtkGObjectAccessible(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  49.   typedef AtkGObjectAccessible AtkGObjectAccessible_ornull;
  50. # define SvAtkGObjectAccessible_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkGObjectAccessible(sv) : NULL)
  51. # define newSVAtkGObjectAccessible_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  52. typedef AtkGObjectAccessible AtkGObjectAccessible_noinc;
  53. #define newSVAtkGObjectAccessible_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  54. typedef AtkGObjectAccessible AtkGObjectAccessible_noinc_ornull;
  55. #define newSVAtkGObjectAccessible_noinc_ornull(val)    ((val) ? newSVAtkGObjectAccessible_noinc(val) : &PL_sv_undef)
  56. #endif /* ATK_TYPE_GOBJECT_ACCESSIBLE */
  57.  
  58. #ifdef ATK_TYPE_HYPERLINK
  59.   /* GObject derivative AtkHyperlink */
  60. # define SvAtkHyperlink(sv)    ((AtkHyperlink*)gperl_get_object_check (sv, ATK_TYPE_HYPERLINK))
  61. # define newSVAtkHyperlink(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  62.   typedef AtkHyperlink AtkHyperlink_ornull;
  63. # define SvAtkHyperlink_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkHyperlink(sv) : NULL)
  64. # define newSVAtkHyperlink_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  65. typedef AtkHyperlink AtkHyperlink_noinc;
  66. #define newSVAtkHyperlink_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  67. typedef AtkHyperlink AtkHyperlink_noinc_ornull;
  68. #define newSVAtkHyperlink_noinc_ornull(val)    ((val) ? newSVAtkHyperlink_noinc(val) : &PL_sv_undef)
  69. #endif /* ATK_TYPE_HYPERLINK */
  70.  
  71. #ifdef ATK_TYPE_HYPERTEXT
  72.   /* GInterface derivative AtkHypertext */
  73. # define SvAtkHypertext(sv)    ((AtkHypertext*)gperl_get_object_check (sv, ATK_TYPE_HYPERTEXT))
  74. # define newSVAtkHypertext(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  75.   typedef AtkHypertext AtkHypertext_ornull;
  76. # define SvAtkHypertext_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkHypertext(sv) : NULL)
  77. # define newSVAtkHypertext_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  78. #endif /* ATK_TYPE_HYPERTEXT */
  79.  
  80. #ifdef ATK_TYPE_IMAGE
  81.   /* GInterface derivative AtkImage */
  82. # define SvAtkImage(sv)    ((AtkImage*)gperl_get_object_check (sv, ATK_TYPE_IMAGE))
  83. # define newSVAtkImage(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  84.   typedef AtkImage AtkImage_ornull;
  85. # define SvAtkImage_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkImage(sv) : NULL)
  86. # define newSVAtkImage_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  87. #endif /* ATK_TYPE_IMAGE */
  88.  
  89. #ifdef ATK_TYPE_IMPLEMENTOR
  90.   /* GInterface derivative AtkImplementorIface */
  91. # define SvAtkImplementorIface(sv)    ((AtkImplementorIface*)gperl_get_object_check (sv, ATK_TYPE_IMPLEMENTOR))
  92. # define newSVAtkImplementorIface(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  93.   typedef AtkImplementorIface AtkImplementorIface_ornull;
  94. # define SvAtkImplementorIface_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkImplementorIface(sv) : NULL)
  95. # define newSVAtkImplementorIface_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  96. #endif /* ATK_TYPE_IMPLEMENTOR */
  97.  
  98. #ifdef ATK_TYPE_NO_OP_OBJECT
  99.   /* GObject derivative AtkNoOpObject */
  100. # define SvAtkNoOpObject(sv)    ((AtkNoOpObject*)gperl_get_object_check (sv, ATK_TYPE_NO_OP_OBJECT))
  101. # define newSVAtkNoOpObject(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  102.   typedef AtkNoOpObject AtkNoOpObject_ornull;
  103. # define SvAtkNoOpObject_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkNoOpObject(sv) : NULL)
  104. # define newSVAtkNoOpObject_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  105. typedef AtkNoOpObject AtkNoOpObject_noinc;
  106. #define newSVAtkNoOpObject_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  107. typedef AtkNoOpObject AtkNoOpObject_noinc_ornull;
  108. #define newSVAtkNoOpObject_noinc_ornull(val)    ((val) ? newSVAtkNoOpObject_noinc(val) : &PL_sv_undef)
  109. #endif /* ATK_TYPE_NO_OP_OBJECT */
  110.  
  111. #ifdef ATK_TYPE_NO_OP_OBJECT_FACTORY
  112.   /* GObject derivative AtkNoOpObjectFactory */
  113. # define SvAtkNoOpObjectFactory(sv)    ((AtkNoOpObjectFactory*)gperl_get_object_check (sv, ATK_TYPE_NO_OP_OBJECT_FACTORY))
  114. # define newSVAtkNoOpObjectFactory(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  115.   typedef AtkNoOpObjectFactory AtkNoOpObjectFactory_ornull;
  116. # define SvAtkNoOpObjectFactory_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkNoOpObjectFactory(sv) : NULL)
  117. # define newSVAtkNoOpObjectFactory_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  118. typedef AtkNoOpObjectFactory AtkNoOpObjectFactory_noinc;
  119. #define newSVAtkNoOpObjectFactory_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  120. typedef AtkNoOpObjectFactory AtkNoOpObjectFactory_noinc_ornull;
  121. #define newSVAtkNoOpObjectFactory_noinc_ornull(val)    ((val) ? newSVAtkNoOpObjectFactory_noinc(val) : &PL_sv_undef)
  122. #endif /* ATK_TYPE_NO_OP_OBJECT_FACTORY */
  123.  
  124. #ifdef ATK_TYPE_OBJECT
  125.   /* GObject derivative AtkObject */
  126. # define SvAtkObject(sv)    ((AtkObject*)gperl_get_object_check (sv, ATK_TYPE_OBJECT))
  127. # define newSVAtkObject(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  128.   typedef AtkObject AtkObject_ornull;
  129. # define SvAtkObject_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkObject(sv) : NULL)
  130. # define newSVAtkObject_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  131. typedef AtkObject AtkObject_noinc;
  132. #define newSVAtkObject_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  133. typedef AtkObject AtkObject_noinc_ornull;
  134. #define newSVAtkObject_noinc_ornull(val)    ((val) ? newSVAtkObject_noinc(val) : &PL_sv_undef)
  135. #endif /* ATK_TYPE_OBJECT */
  136.  
  137. #ifdef ATK_TYPE_OBJECT_FACTORY
  138.   /* GObject derivative AtkObjectFactory */
  139. # define SvAtkObjectFactory(sv)    ((AtkObjectFactory*)gperl_get_object_check (sv, ATK_TYPE_OBJECT_FACTORY))
  140. # define newSVAtkObjectFactory(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  141.   typedef AtkObjectFactory AtkObjectFactory_ornull;
  142. # define SvAtkObjectFactory_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkObjectFactory(sv) : NULL)
  143. # define newSVAtkObjectFactory_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  144. typedef AtkObjectFactory AtkObjectFactory_noinc;
  145. #define newSVAtkObjectFactory_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  146. typedef AtkObjectFactory AtkObjectFactory_noinc_ornull;
  147. #define newSVAtkObjectFactory_noinc_ornull(val)    ((val) ? newSVAtkObjectFactory_noinc(val) : &PL_sv_undef)
  148. #endif /* ATK_TYPE_OBJECT_FACTORY */
  149.  
  150. #ifdef ATK_TYPE_REGISTRY
  151.   /* GObject derivative AtkRegistry */
  152. # define SvAtkRegistry(sv)    ((AtkRegistry*)gperl_get_object_check (sv, ATK_TYPE_REGISTRY))
  153. # define newSVAtkRegistry(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  154.   typedef AtkRegistry AtkRegistry_ornull;
  155. # define SvAtkRegistry_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkRegistry(sv) : NULL)
  156. # define newSVAtkRegistry_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  157. typedef AtkRegistry AtkRegistry_noinc;
  158. #define newSVAtkRegistry_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  159. typedef AtkRegistry AtkRegistry_noinc_ornull;
  160. #define newSVAtkRegistry_noinc_ornull(val)    ((val) ? newSVAtkRegistry_noinc(val) : &PL_sv_undef)
  161. #endif /* ATK_TYPE_REGISTRY */
  162.  
  163. #ifdef ATK_TYPE_RELATION
  164.   /* GObject derivative AtkRelation */
  165. # define SvAtkRelation(sv)    ((AtkRelation*)gperl_get_object_check (sv, ATK_TYPE_RELATION))
  166. # define newSVAtkRelation(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  167.   typedef AtkRelation AtkRelation_ornull;
  168. # define SvAtkRelation_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkRelation(sv) : NULL)
  169. # define newSVAtkRelation_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  170. typedef AtkRelation AtkRelation_noinc;
  171. #define newSVAtkRelation_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  172. typedef AtkRelation AtkRelation_noinc_ornull;
  173. #define newSVAtkRelation_noinc_ornull(val)    ((val) ? newSVAtkRelation_noinc(val) : &PL_sv_undef)
  174. #endif /* ATK_TYPE_RELATION */
  175.  
  176. #ifdef ATK_TYPE_RELATION_SET
  177.   /* GObject derivative AtkRelationSet */
  178. # define SvAtkRelationSet(sv)    ((AtkRelationSet*)gperl_get_object_check (sv, ATK_TYPE_RELATION_SET))
  179. # define newSVAtkRelationSet(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  180.   typedef AtkRelationSet AtkRelationSet_ornull;
  181. # define SvAtkRelationSet_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkRelationSet(sv) : NULL)
  182. # define newSVAtkRelationSet_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  183. typedef AtkRelationSet AtkRelationSet_noinc;
  184. #define newSVAtkRelationSet_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  185. typedef AtkRelationSet AtkRelationSet_noinc_ornull;
  186. #define newSVAtkRelationSet_noinc_ornull(val)    ((val) ? newSVAtkRelationSet_noinc(val) : &PL_sv_undef)
  187. #endif /* ATK_TYPE_RELATION_SET */
  188.  
  189. #ifdef ATK_TYPE_SELECTION
  190.   /* GInterface derivative AtkSelection */
  191. # define SvAtkSelection(sv)    ((AtkSelection*)gperl_get_object_check (sv, ATK_TYPE_SELECTION))
  192. # define newSVAtkSelection(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  193.   typedef AtkSelection AtkSelection_ornull;
  194. # define SvAtkSelection_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkSelection(sv) : NULL)
  195. # define newSVAtkSelection_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  196. #endif /* ATK_TYPE_SELECTION */
  197.  
  198. #ifdef ATK_TYPE_STATE_SET
  199.   /* GObject derivative AtkStateSet */
  200. # define SvAtkStateSet(sv)    ((AtkStateSet*)gperl_get_object_check (sv, ATK_TYPE_STATE_SET))
  201. # define newSVAtkStateSet(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  202.   typedef AtkStateSet AtkStateSet_ornull;
  203. # define SvAtkStateSet_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkStateSet(sv) : NULL)
  204. # define newSVAtkStateSet_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  205. typedef AtkStateSet AtkStateSet_noinc;
  206. #define newSVAtkStateSet_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  207. typedef AtkStateSet AtkStateSet_noinc_ornull;
  208. #define newSVAtkStateSet_noinc_ornull(val)    ((val) ? newSVAtkStateSet_noinc(val) : &PL_sv_undef)
  209. #endif /* ATK_TYPE_STATE_SET */
  210.  
  211. #ifdef ATK_TYPE_STREAMABLE_CONTENT
  212.   /* GInterface derivative AtkStreamableContent */
  213. # define SvAtkStreamableContent(sv)    ((AtkStreamableContent*)gperl_get_object_check (sv, ATK_TYPE_STREAMABLE_CONTENT))
  214. # define newSVAtkStreamableContent(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  215.   typedef AtkStreamableContent AtkStreamableContent_ornull;
  216. # define SvAtkStreamableContent_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkStreamableContent(sv) : NULL)
  217. # define newSVAtkStreamableContent_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  218. #endif /* ATK_TYPE_STREAMABLE_CONTENT */
  219.  
  220. #ifdef ATK_TYPE_TABLE
  221.   /* GInterface derivative AtkTable */
  222. # define SvAtkTable(sv)    ((AtkTable*)gperl_get_object_check (sv, ATK_TYPE_TABLE))
  223. # define newSVAtkTable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  224.   typedef AtkTable AtkTable_ornull;
  225. # define SvAtkTable_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkTable(sv) : NULL)
  226. # define newSVAtkTable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  227. #endif /* ATK_TYPE_TABLE */
  228.  
  229. #ifdef ATK_TYPE_TEXT
  230.   /* GInterface derivative AtkText */
  231. # define SvAtkText(sv)    ((AtkText*)gperl_get_object_check (sv, ATK_TYPE_TEXT))
  232. # define newSVAtkText(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  233.   typedef AtkText AtkText_ornull;
  234. # define SvAtkText_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkText(sv) : NULL)
  235. # define newSVAtkText_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  236. #endif /* ATK_TYPE_TEXT */
  237.  
  238. #ifdef ATK_TYPE_UTIL
  239.   /* GObject derivative AtkUtil */
  240. # define SvAtkUtil(sv)    ((AtkUtil*)gperl_get_object_check (sv, ATK_TYPE_UTIL))
  241. # define newSVAtkUtil(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  242.   typedef AtkUtil AtkUtil_ornull;
  243. # define SvAtkUtil_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkUtil(sv) : NULL)
  244. # define newSVAtkUtil_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  245. typedef AtkUtil AtkUtil_noinc;
  246. #define newSVAtkUtil_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  247. typedef AtkUtil AtkUtil_noinc_ornull;
  248. #define newSVAtkUtil_noinc_ornull(val)    ((val) ? newSVAtkUtil_noinc(val) : &PL_sv_undef)
  249. #endif /* ATK_TYPE_UTIL */
  250.  
  251. #ifdef ATK_TYPE_VALUE
  252.   /* GInterface derivative AtkValue */
  253. # define SvAtkValue(sv)    ((AtkValue*)gperl_get_object_check (sv, ATK_TYPE_VALUE))
  254. # define newSVAtkValue(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  255.   typedef AtkValue AtkValue_ornull;
  256. # define SvAtkValue_ornull(sv)    (((sv) && SvOK (sv)) ? SvAtkValue(sv) : NULL)
  257. # define newSVAtkValue_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  258. #endif /* ATK_TYPE_VALUE */
  259.  
  260. #ifdef GDK_TYPE_AXIS_USE
  261.   /* GEnum GdkAxisUse */
  262. # define SvGdkAxisUse(sv)    ((GdkAxisUse)gperl_convert_enum (GDK_TYPE_AXIS_USE, sv))
  263. # define newSVGdkAxisUse(val)    (gperl_convert_back_enum (GDK_TYPE_AXIS_USE, val))
  264. #endif /* GDK_TYPE_AXIS_USE */
  265.  
  266. #ifdef GDK_TYPE_BYTE_ORDER
  267.   /* GEnum GdkByteOrder */
  268. # define SvGdkByteOrder(sv)    ((GdkByteOrder)gperl_convert_enum (GDK_TYPE_BYTE_ORDER, sv))
  269. # define newSVGdkByteOrder(val)    (gperl_convert_back_enum (GDK_TYPE_BYTE_ORDER, val))
  270. #endif /* GDK_TYPE_BYTE_ORDER */
  271.  
  272. #ifdef GDK_TYPE_CAP_STYLE
  273.   /* GEnum GdkCapStyle */
  274. # define SvGdkCapStyle(sv)    ((GdkCapStyle)gperl_convert_enum (GDK_TYPE_CAP_STYLE, sv))
  275. # define newSVGdkCapStyle(val)    (gperl_convert_back_enum (GDK_TYPE_CAP_STYLE, val))
  276. #endif /* GDK_TYPE_CAP_STYLE */
  277.  
  278. #ifdef GDK_TYPE_COLOR
  279.   /* GBoxed GdkColor */
  280.   typedef GdkColor GdkColor_ornull;
  281. # define SvGdkColor(sv)    (gperl_get_boxed_check ((sv), GDK_TYPE_COLOR))
  282. # define SvGdkColor_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkColor (sv) : NULL)
  283.   typedef GdkColor GdkColor_own;
  284.   typedef GdkColor GdkColor_copy;
  285.   typedef GdkColor GdkColor_own_ornull;
  286. # define newSVGdkColor(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_COLOR, FALSE))
  287. # define newSVGdkColor_ornull(val)    ((val) ? newSVGdkColor(val) : &PL_sv_undef)
  288. # define newSVGdkColor_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_COLOR, TRUE))
  289. # define newSVGdkColor_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_COLOR))
  290. # define newSVGdkColor_own_ornull(val)    ((val) ? newSVGdkColor_own(val) : &PL_sv_undef)
  291. #endif /* GDK_TYPE_COLOR */
  292.  
  293. #ifdef GDK_TYPE_COLORMAP
  294.   /* GObject derivative GdkColormap */
  295. # define SvGdkColormap(sv)    ((GdkColormap*)gperl_get_object_check (sv, GDK_TYPE_COLORMAP))
  296. # define newSVGdkColormap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  297.   typedef GdkColormap GdkColormap_ornull;
  298. # define SvGdkColormap_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkColormap(sv) : NULL)
  299. # define newSVGdkColormap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  300. typedef GdkColormap GdkColormap_noinc;
  301. #define newSVGdkColormap_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  302. typedef GdkColormap GdkColormap_noinc_ornull;
  303. #define newSVGdkColormap_noinc_ornull(val)    ((val) ? newSVGdkColormap_noinc(val) : &PL_sv_undef)
  304. #endif /* GDK_TYPE_COLORMAP */
  305.  
  306. #ifdef GDK_TYPE_COLORSPACE
  307.   /* GEnum GdkColorspace */
  308. # define SvGdkColorspace(sv)    ((GdkColorspace)gperl_convert_enum (GDK_TYPE_COLORSPACE, sv))
  309. # define newSVGdkColorspace(val)    (gperl_convert_back_enum (GDK_TYPE_COLORSPACE, val))
  310. #endif /* GDK_TYPE_COLORSPACE */
  311.  
  312. #ifdef GDK_TYPE_CROSSING_MODE
  313.   /* GEnum GdkCrossingMode */
  314. # define SvGdkCrossingMode(sv)    ((GdkCrossingMode)gperl_convert_enum (GDK_TYPE_CROSSING_MODE, sv))
  315. # define newSVGdkCrossingMode(val)    (gperl_convert_back_enum (GDK_TYPE_CROSSING_MODE, val))
  316. #endif /* GDK_TYPE_CROSSING_MODE */
  317.  
  318. #ifdef GDK_TYPE_CURSOR
  319.   /* GBoxed GdkCursor */
  320.   typedef GdkCursor GdkCursor_ornull;
  321. # define SvGdkCursor(sv)    (gperl_get_boxed_check ((sv), GDK_TYPE_CURSOR))
  322. # define SvGdkCursor_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkCursor (sv) : NULL)
  323.   typedef GdkCursor GdkCursor_own;
  324.   typedef GdkCursor GdkCursor_copy;
  325.   typedef GdkCursor GdkCursor_own_ornull;
  326. # define newSVGdkCursor(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_CURSOR, FALSE))
  327. # define newSVGdkCursor_ornull(val)    ((val) ? newSVGdkCursor(val) : &PL_sv_undef)
  328. # define newSVGdkCursor_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_CURSOR, TRUE))
  329. # define newSVGdkCursor_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_CURSOR))
  330. # define newSVGdkCursor_own_ornull(val)    ((val) ? newSVGdkCursor_own(val) : &PL_sv_undef)
  331. #endif /* GDK_TYPE_CURSOR */
  332.  
  333. #ifdef GDK_TYPE_CURSOR_TYPE
  334.   /* GEnum GdkCursorType */
  335. # define SvGdkCursorType(sv)    ((GdkCursorType)gperl_convert_enum (GDK_TYPE_CURSOR_TYPE, sv))
  336. # define newSVGdkCursorType(val)    (gperl_convert_back_enum (GDK_TYPE_CURSOR_TYPE, val))
  337. #endif /* GDK_TYPE_CURSOR_TYPE */
  338.  
  339. #ifdef GDK_TYPE_DEVICE
  340.   /* GObject derivative GdkDevice */
  341. # define SvGdkDevice(sv)    ((GdkDevice*)gperl_get_object_check (sv, GDK_TYPE_DEVICE))
  342. # define newSVGdkDevice(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  343.   typedef GdkDevice GdkDevice_ornull;
  344. # define SvGdkDevice_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkDevice(sv) : NULL)
  345. # define newSVGdkDevice_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  346. typedef GdkDevice GdkDevice_noinc;
  347. #define newSVGdkDevice_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  348. typedef GdkDevice GdkDevice_noinc_ornull;
  349. #define newSVGdkDevice_noinc_ornull(val)    ((val) ? newSVGdkDevice_noinc(val) : &PL_sv_undef)
  350. #endif /* GDK_TYPE_DEVICE */
  351.  
  352. #ifdef GDK_TYPE_DRAG_ACTION
  353.   /* GFlags GdkDragAction */
  354. # define SvGdkDragAction(sv)    ((GdkDragAction)gperl_convert_flags (GDK_TYPE_DRAG_ACTION, sv))
  355. # define newSVGdkDragAction(val)    (gperl_convert_back_flags (GDK_TYPE_DRAG_ACTION, val))
  356. #endif /* GDK_TYPE_DRAG_ACTION */
  357.  
  358. #ifdef GDK_TYPE_DRAG_CONTEXT
  359.   /* GObject derivative GdkDragContext */
  360. # define SvGdkDragContext(sv)    ((GdkDragContext*)gperl_get_object_check (sv, GDK_TYPE_DRAG_CONTEXT))
  361. # define newSVGdkDragContext(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  362.   typedef GdkDragContext GdkDragContext_ornull;
  363. # define SvGdkDragContext_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkDragContext(sv) : NULL)
  364. # define newSVGdkDragContext_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  365. typedef GdkDragContext GdkDragContext_noinc;
  366. #define newSVGdkDragContext_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  367. typedef GdkDragContext GdkDragContext_noinc_ornull;
  368. #define newSVGdkDragContext_noinc_ornull(val)    ((val) ? newSVGdkDragContext_noinc(val) : &PL_sv_undef)
  369. #endif /* GDK_TYPE_DRAG_CONTEXT */
  370.  
  371. #ifdef GDK_TYPE_DRAG_PROTOCOL
  372.   /* GEnum GdkDragProtocol */
  373. # define SvGdkDragProtocol(sv)    ((GdkDragProtocol)gperl_convert_enum (GDK_TYPE_DRAG_PROTOCOL, sv))
  374. # define newSVGdkDragProtocol(val)    (gperl_convert_back_enum (GDK_TYPE_DRAG_PROTOCOL, val))
  375. #endif /* GDK_TYPE_DRAG_PROTOCOL */
  376.  
  377. #ifdef GDK_TYPE_DRAWABLE
  378.   /* GObject derivative GdkDrawable */
  379. # define SvGdkDrawable(sv)    ((GdkDrawable*)gperl_get_object_check (sv, GDK_TYPE_DRAWABLE))
  380. # define newSVGdkDrawable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  381.   typedef GdkDrawable GdkDrawable_ornull;
  382. # define SvGdkDrawable_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkDrawable(sv) : NULL)
  383. # define newSVGdkDrawable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  384. typedef GdkDrawable GdkDrawable_noinc;
  385. #define newSVGdkDrawable_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  386. typedef GdkDrawable GdkDrawable_noinc_ornull;
  387. #define newSVGdkDrawable_noinc_ornull(val)    ((val) ? newSVGdkDrawable_noinc(val) : &PL_sv_undef)
  388. #endif /* GDK_TYPE_DRAWABLE */
  389.  
  390. #ifdef GDK_TYPE_EVENT
  391.   /* GBoxed GdkEvent */
  392.   typedef GdkEvent GdkEvent_ornull;
  393. # define SvGdkEvent(sv)    (gperl_get_boxed_check ((sv), GDK_TYPE_EVENT))
  394. # define SvGdkEvent_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkEvent (sv) : NULL)
  395.   typedef GdkEvent GdkEvent_own;
  396.   typedef GdkEvent GdkEvent_copy;
  397.   typedef GdkEvent GdkEvent_own_ornull;
  398. # define newSVGdkEvent(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_EVENT, FALSE))
  399. # define newSVGdkEvent_ornull(val)    ((val) ? newSVGdkEvent(val) : &PL_sv_undef)
  400. # define newSVGdkEvent_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_EVENT, TRUE))
  401. # define newSVGdkEvent_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_EVENT))
  402. # define newSVGdkEvent_own_ornull(val)    ((val) ? newSVGdkEvent_own(val) : &PL_sv_undef)
  403. #endif /* GDK_TYPE_EVENT */
  404.  
  405. #ifdef GDK_TYPE_EVENT_MASK
  406.   /* GFlags GdkEventMask */
  407. # define SvGdkEventMask(sv)    ((GdkEventMask)gperl_convert_flags (GDK_TYPE_EVENT_MASK, sv))
  408. # define newSVGdkEventMask(val)    (gperl_convert_back_flags (GDK_TYPE_EVENT_MASK, val))
  409. #endif /* GDK_TYPE_EVENT_MASK */
  410.  
  411. #ifdef GDK_TYPE_EVENT_TYPE
  412.   /* GEnum GdkEventType */
  413. # define SvGdkEventType(sv)    ((GdkEventType)gperl_convert_enum (GDK_TYPE_EVENT_TYPE, sv))
  414. # define newSVGdkEventType(val)    (gperl_convert_back_enum (GDK_TYPE_EVENT_TYPE, val))
  415. #endif /* GDK_TYPE_EVENT_TYPE */
  416.  
  417. #ifdef GDK_TYPE_EXTENSION_MODE
  418.   /* GEnum GdkExtensionMode */
  419. # define SvGdkExtensionMode(sv)    ((GdkExtensionMode)gperl_convert_enum (GDK_TYPE_EXTENSION_MODE, sv))
  420. # define newSVGdkExtensionMode(val)    (gperl_convert_back_enum (GDK_TYPE_EXTENSION_MODE, val))
  421. #endif /* GDK_TYPE_EXTENSION_MODE */
  422.  
  423. #ifdef GDK_TYPE_FILL
  424.   /* GEnum GdkFill */
  425. # define SvGdkFill(sv)    ((GdkFill)gperl_convert_enum (GDK_TYPE_FILL, sv))
  426. # define newSVGdkFill(val)    (gperl_convert_back_enum (GDK_TYPE_FILL, val))
  427. #endif /* GDK_TYPE_FILL */
  428.  
  429. #ifdef GDK_TYPE_FILL_RULE
  430.   /* GEnum GdkFillRule */
  431. # define SvGdkFillRule(sv)    ((GdkFillRule)gperl_convert_enum (GDK_TYPE_FILL_RULE, sv))
  432. # define newSVGdkFillRule(val)    (gperl_convert_back_enum (GDK_TYPE_FILL_RULE, val))
  433. #endif /* GDK_TYPE_FILL_RULE */
  434.  
  435. #ifdef GDK_TYPE_FILTER_RETURN
  436.   /* GEnum GdkFilterReturn */
  437. # define SvGdkFilterReturn(sv)    ((GdkFilterReturn)gperl_convert_enum (GDK_TYPE_FILTER_RETURN, sv))
  438. # define newSVGdkFilterReturn(val)    (gperl_convert_back_enum (GDK_TYPE_FILTER_RETURN, val))
  439. #endif /* GDK_TYPE_FILTER_RETURN */
  440.  
  441. #ifdef GDK_TYPE_FONT
  442.   /* GBoxed GdkFont */
  443.   typedef GdkFont GdkFont_ornull;
  444. # define SvGdkFont(sv)    (gperl_get_boxed_check ((sv), GDK_TYPE_FONT))
  445. # define SvGdkFont_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkFont (sv) : NULL)
  446.   typedef GdkFont GdkFont_own;
  447.   typedef GdkFont GdkFont_copy;
  448.   typedef GdkFont GdkFont_own_ornull;
  449. # define newSVGdkFont(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_FONT, FALSE))
  450. # define newSVGdkFont_ornull(val)    ((val) ? newSVGdkFont(val) : &PL_sv_undef)
  451. # define newSVGdkFont_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_FONT, TRUE))
  452. # define newSVGdkFont_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_FONT))
  453. # define newSVGdkFont_own_ornull(val)    ((val) ? newSVGdkFont_own(val) : &PL_sv_undef)
  454. #endif /* GDK_TYPE_FONT */
  455.  
  456. #ifdef GDK_TYPE_FONT_TYPE
  457.   /* GEnum GdkFontType */
  458. # define SvGdkFontType(sv)    ((GdkFontType)gperl_convert_enum (GDK_TYPE_FONT_TYPE, sv))
  459. # define newSVGdkFontType(val)    (gperl_convert_back_enum (GDK_TYPE_FONT_TYPE, val))
  460. #endif /* GDK_TYPE_FONT_TYPE */
  461.  
  462. #ifdef GDK_TYPE_FUNCTION
  463.   /* GEnum GdkFunction */
  464. # define SvGdkFunction(sv)    ((GdkFunction)gperl_convert_enum (GDK_TYPE_FUNCTION, sv))
  465. # define newSVGdkFunction(val)    (gperl_convert_back_enum (GDK_TYPE_FUNCTION, val))
  466. #endif /* GDK_TYPE_FUNCTION */
  467.  
  468. #ifdef GDK_TYPE_GC
  469.   /* GObject derivative GdkGC */
  470. # define SvGdkGC(sv)    ((GdkGC*)gperl_get_object_check (sv, GDK_TYPE_GC))
  471. # define newSVGdkGC(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  472.   typedef GdkGC GdkGC_ornull;
  473. # define SvGdkGC_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkGC(sv) : NULL)
  474. # define newSVGdkGC_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  475. typedef GdkGC GdkGC_noinc;
  476. #define newSVGdkGC_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  477. typedef GdkGC GdkGC_noinc_ornull;
  478. #define newSVGdkGC_noinc_ornull(val)    ((val) ? newSVGdkGC_noinc(val) : &PL_sv_undef)
  479. #endif /* GDK_TYPE_GC */
  480.  
  481. #ifdef GDK_TYPE_GC_VALUES_MASK
  482.   /* GFlags GdkGCValuesMask */
  483. # define SvGdkGCValuesMask(sv)    ((GdkGCValuesMask)gperl_convert_flags (GDK_TYPE_GC_VALUES_MASK, sv))
  484. # define newSVGdkGCValuesMask(val)    (gperl_convert_back_flags (GDK_TYPE_GC_VALUES_MASK, val))
  485. #endif /* GDK_TYPE_GC_VALUES_MASK */
  486.  
  487. #ifdef GDK_TYPE_GRAB_STATUS
  488.   /* GEnum GdkGrabStatus */
  489. # define SvGdkGrabStatus(sv)    ((GdkGrabStatus)gperl_convert_enum (GDK_TYPE_GRAB_STATUS, sv))
  490. # define newSVGdkGrabStatus(val)    (gperl_convert_back_enum (GDK_TYPE_GRAB_STATUS, val))
  491. #endif /* GDK_TYPE_GRAB_STATUS */
  492.  
  493. #ifdef GDK_TYPE_GRAVITY
  494.   /* GEnum GdkGravity */
  495. # define SvGdkGravity(sv)    ((GdkGravity)gperl_convert_enum (GDK_TYPE_GRAVITY, sv))
  496. # define newSVGdkGravity(val)    (gperl_convert_back_enum (GDK_TYPE_GRAVITY, val))
  497. #endif /* GDK_TYPE_GRAVITY */
  498.  
  499. #ifdef GDK_TYPE_IMAGE
  500.   /* GObject derivative GdkImage */
  501. # define SvGdkImage(sv)    ((GdkImage*)gperl_get_object_check (sv, GDK_TYPE_IMAGE))
  502. # define newSVGdkImage(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  503.   typedef GdkImage GdkImage_ornull;
  504. # define SvGdkImage_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkImage(sv) : NULL)
  505. # define newSVGdkImage_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  506. typedef GdkImage GdkImage_noinc;
  507. #define newSVGdkImage_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  508. typedef GdkImage GdkImage_noinc_ornull;
  509. #define newSVGdkImage_noinc_ornull(val)    ((val) ? newSVGdkImage_noinc(val) : &PL_sv_undef)
  510. #endif /* GDK_TYPE_IMAGE */
  511.  
  512. #ifdef GDK_TYPE_IMAGE_TYPE
  513.   /* GEnum GdkImageType */
  514. # define SvGdkImageType(sv)    ((GdkImageType)gperl_convert_enum (GDK_TYPE_IMAGE_TYPE, sv))
  515. # define newSVGdkImageType(val)    (gperl_convert_back_enum (GDK_TYPE_IMAGE_TYPE, val))
  516. #endif /* GDK_TYPE_IMAGE_TYPE */
  517.  
  518. #ifdef GDK_TYPE_INPUT_CONDITION
  519.   /* GFlags GdkInputCondition */
  520. # define SvGdkInputCondition(sv)    ((GdkInputCondition)gperl_convert_flags (GDK_TYPE_INPUT_CONDITION, sv))
  521. # define newSVGdkInputCondition(val)    (gperl_convert_back_flags (GDK_TYPE_INPUT_CONDITION, val))
  522. #endif /* GDK_TYPE_INPUT_CONDITION */
  523.  
  524. #ifdef GDK_TYPE_INPUT_MODE
  525.   /* GEnum GdkInputMode */
  526. # define SvGdkInputMode(sv)    ((GdkInputMode)gperl_convert_enum (GDK_TYPE_INPUT_MODE, sv))
  527. # define newSVGdkInputMode(val)    (gperl_convert_back_enum (GDK_TYPE_INPUT_MODE, val))
  528. #endif /* GDK_TYPE_INPUT_MODE */
  529.  
  530. #ifdef GDK_TYPE_INPUT_SOURCE
  531.   /* GEnum GdkInputSource */
  532. # define SvGdkInputSource(sv)    ((GdkInputSource)gperl_convert_enum (GDK_TYPE_INPUT_SOURCE, sv))
  533. # define newSVGdkInputSource(val)    (gperl_convert_back_enum (GDK_TYPE_INPUT_SOURCE, val))
  534. #endif /* GDK_TYPE_INPUT_SOURCE */
  535.  
  536. #ifdef GDK_TYPE_INTERP_TYPE
  537.   /* GEnum GdkInterpType */
  538. # define SvGdkInterpType(sv)    ((GdkInterpType)gperl_convert_enum (GDK_TYPE_INTERP_TYPE, sv))
  539. # define newSVGdkInterpType(val)    (gperl_convert_back_enum (GDK_TYPE_INTERP_TYPE, val))
  540. #endif /* GDK_TYPE_INTERP_TYPE */
  541.  
  542. #ifdef GDK_TYPE_JOIN_STYLE
  543.   /* GEnum GdkJoinStyle */
  544. # define SvGdkJoinStyle(sv)    ((GdkJoinStyle)gperl_convert_enum (GDK_TYPE_JOIN_STYLE, sv))
  545. # define newSVGdkJoinStyle(val)    (gperl_convert_back_enum (GDK_TYPE_JOIN_STYLE, val))
  546. #endif /* GDK_TYPE_JOIN_STYLE */
  547.  
  548. #ifdef GDK_TYPE_KEYMAP
  549.   /* GObject derivative GdkKeymap */
  550. # define SvGdkKeymap(sv)    ((GdkKeymap*)gperl_get_object_check (sv, GDK_TYPE_KEYMAP))
  551. # define newSVGdkKeymap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  552.   typedef GdkKeymap GdkKeymap_ornull;
  553. # define SvGdkKeymap_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkKeymap(sv) : NULL)
  554. # define newSVGdkKeymap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  555. typedef GdkKeymap GdkKeymap_noinc;
  556. #define newSVGdkKeymap_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  557. typedef GdkKeymap GdkKeymap_noinc_ornull;
  558. #define newSVGdkKeymap_noinc_ornull(val)    ((val) ? newSVGdkKeymap_noinc(val) : &PL_sv_undef)
  559. #endif /* GDK_TYPE_KEYMAP */
  560.  
  561. #ifdef GDK_TYPE_LINE_STYLE
  562.   /* GEnum GdkLineStyle */
  563. # define SvGdkLineStyle(sv)    ((GdkLineStyle)gperl_convert_enum (GDK_TYPE_LINE_STYLE, sv))
  564. # define newSVGdkLineStyle(val)    (gperl_convert_back_enum (GDK_TYPE_LINE_STYLE, val))
  565. #endif /* GDK_TYPE_LINE_STYLE */
  566.  
  567. #ifdef GDK_TYPE_MODIFIER_TYPE
  568.   /* GFlags GdkModifierType */
  569. # define SvGdkModifierType(sv)    ((GdkModifierType)gperl_convert_flags (GDK_TYPE_MODIFIER_TYPE, sv))
  570. # define newSVGdkModifierType(val)    (gperl_convert_back_flags (GDK_TYPE_MODIFIER_TYPE, val))
  571. #endif /* GDK_TYPE_MODIFIER_TYPE */
  572.  
  573. #ifdef GDK_TYPE_NOTIFY_TYPE
  574.   /* GEnum GdkNotifyType */
  575. # define SvGdkNotifyType(sv)    ((GdkNotifyType)gperl_convert_enum (GDK_TYPE_NOTIFY_TYPE, sv))
  576. # define newSVGdkNotifyType(val)    (gperl_convert_back_enum (GDK_TYPE_NOTIFY_TYPE, val))
  577. #endif /* GDK_TYPE_NOTIFY_TYPE */
  578.  
  579. #ifdef GDK_TYPE_OVERLAP_TYPE
  580.   /* GEnum GdkOverlapType */
  581. # define SvGdkOverlapType(sv)    ((GdkOverlapType)gperl_convert_enum (GDK_TYPE_OVERLAP_TYPE, sv))
  582. # define newSVGdkOverlapType(val)    (gperl_convert_back_enum (GDK_TYPE_OVERLAP_TYPE, val))
  583. #endif /* GDK_TYPE_OVERLAP_TYPE */
  584.  
  585. #ifdef GDK_TYPE_PIXBUF_ALPHA_MODE
  586.   /* GEnum GdkPixbufAlphaMode */
  587. # define SvGdkPixbufAlphaMode(sv)    ((GdkPixbufAlphaMode)gperl_convert_enum (GDK_TYPE_PIXBUF_ALPHA_MODE, sv))
  588. # define newSVGdkPixbufAlphaMode(val)    (gperl_convert_back_enum (GDK_TYPE_PIXBUF_ALPHA_MODE, val))
  589. #endif /* GDK_TYPE_PIXBUF_ALPHA_MODE */
  590.  
  591. #ifdef GDK_TYPE_PIXBUF_ANIMATION
  592.   /* GObject derivative GdkPixbufAnimation */
  593. # define SvGdkPixbufAnimation(sv)    ((GdkPixbufAnimation*)gperl_get_object_check (sv, GDK_TYPE_PIXBUF_ANIMATION))
  594. # define newSVGdkPixbufAnimation(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  595.   typedef GdkPixbufAnimation GdkPixbufAnimation_ornull;
  596. # define SvGdkPixbufAnimation_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkPixbufAnimation(sv) : NULL)
  597. # define newSVGdkPixbufAnimation_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  598. typedef GdkPixbufAnimation GdkPixbufAnimation_noinc;
  599. #define newSVGdkPixbufAnimation_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  600. typedef GdkPixbufAnimation GdkPixbufAnimation_noinc_ornull;
  601. #define newSVGdkPixbufAnimation_noinc_ornull(val)    ((val) ? newSVGdkPixbufAnimation_noinc(val) : &PL_sv_undef)
  602. #endif /* GDK_TYPE_PIXBUF_ANIMATION */
  603.  
  604. #ifdef GDK_TYPE_PIXBUF_ANIMATION_ITER
  605.   /* GObject derivative GdkPixbufAnimationIter */
  606. # define SvGdkPixbufAnimationIter(sv)    ((GdkPixbufAnimationIter*)gperl_get_object_check (sv, GDK_TYPE_PIXBUF_ANIMATION_ITER))
  607. # define newSVGdkPixbufAnimationIter(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  608.   typedef GdkPixbufAnimationIter GdkPixbufAnimationIter_ornull;
  609. # define SvGdkPixbufAnimationIter_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkPixbufAnimationIter(sv) : NULL)
  610. # define newSVGdkPixbufAnimationIter_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  611. typedef GdkPixbufAnimationIter GdkPixbufAnimationIter_noinc;
  612. #define newSVGdkPixbufAnimationIter_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  613. typedef GdkPixbufAnimationIter GdkPixbufAnimationIter_noinc_ornull;
  614. #define newSVGdkPixbufAnimationIter_noinc_ornull(val)    ((val) ? newSVGdkPixbufAnimationIter_noinc(val) : &PL_sv_undef)
  615. #endif /* GDK_TYPE_PIXBUF_ANIMATION_ITER */
  616.  
  617. #ifdef GDK_TYPE_PIXBUF_ERROR
  618.   /* GEnum GdkPixbufError */
  619. # define SvGdkPixbufError(sv)    ((GdkPixbufError)gperl_convert_enum (GDK_TYPE_PIXBUF_ERROR, sv))
  620. # define newSVGdkPixbufError(val)    (gperl_convert_back_enum (GDK_TYPE_PIXBUF_ERROR, val))
  621. #endif /* GDK_TYPE_PIXBUF_ERROR */
  622.  
  623. #ifdef GDK_TYPE_PIXBUF
  624.   /* GObject derivative GdkPixbuf */
  625. # define SvGdkPixbuf(sv)    ((GdkPixbuf*)gperl_get_object_check (sv, GDK_TYPE_PIXBUF))
  626. # define newSVGdkPixbuf(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  627.   typedef GdkPixbuf GdkPixbuf_ornull;
  628. # define SvGdkPixbuf_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkPixbuf(sv) : NULL)
  629. # define newSVGdkPixbuf_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  630. typedef GdkPixbuf GdkPixbuf_noinc;
  631. #define newSVGdkPixbuf_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  632. typedef GdkPixbuf GdkPixbuf_noinc_ornull;
  633. #define newSVGdkPixbuf_noinc_ornull(val)    ((val) ? newSVGdkPixbuf_noinc(val) : &PL_sv_undef)
  634. #endif /* GDK_TYPE_PIXBUF */
  635.  
  636. #ifdef GDK_TYPE_PIXBUF_LOADER
  637.   /* GObject derivative GdkPixbufLoader */
  638. # define SvGdkPixbufLoader(sv)    ((GdkPixbufLoader*)gperl_get_object_check (sv, GDK_TYPE_PIXBUF_LOADER))
  639. # define newSVGdkPixbufLoader(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  640.   typedef GdkPixbufLoader GdkPixbufLoader_ornull;
  641. # define SvGdkPixbufLoader_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkPixbufLoader(sv) : NULL)
  642. # define newSVGdkPixbufLoader_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  643. typedef GdkPixbufLoader GdkPixbufLoader_noinc;
  644. #define newSVGdkPixbufLoader_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  645. typedef GdkPixbufLoader GdkPixbufLoader_noinc_ornull;
  646. #define newSVGdkPixbufLoader_noinc_ornull(val)    ((val) ? newSVGdkPixbufLoader_noinc(val) : &PL_sv_undef)
  647. #endif /* GDK_TYPE_PIXBUF_LOADER */
  648.  
  649. #ifdef GDK_TYPE_PIXMAP
  650.   /* GObject derivative GdkPixmap */
  651. # define SvGdkPixmap(sv)    ((GdkPixmap*)gperl_get_object_check (sv, GDK_TYPE_PIXMAP))
  652. # define newSVGdkPixmap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  653.   typedef GdkPixmap GdkPixmap_ornull;
  654. # define SvGdkPixmap_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkPixmap(sv) : NULL)
  655. # define newSVGdkPixmap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  656. typedef GdkPixmap GdkPixmap_noinc;
  657. #define newSVGdkPixmap_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  658. typedef GdkPixmap GdkPixmap_noinc_ornull;
  659. #define newSVGdkPixmap_noinc_ornull(val)    ((val) ? newSVGdkPixmap_noinc(val) : &PL_sv_undef)
  660. #endif /* GDK_TYPE_PIXMAP */
  661.  
  662. #ifdef GDK_TYPE_PROPERTY_STATE
  663.   /* GEnum GdkPropertyState */
  664. # define SvGdkPropertyState(sv)    ((GdkPropertyState)gperl_convert_enum (GDK_TYPE_PROPERTY_STATE, sv))
  665. # define newSVGdkPropertyState(val)    (gperl_convert_back_enum (GDK_TYPE_PROPERTY_STATE, val))
  666. #endif /* GDK_TYPE_PROPERTY_STATE */
  667.  
  668. #ifdef GDK_TYPE_PROP_MODE
  669.   /* GEnum GdkPropMode */
  670. # define SvGdkPropMode(sv)    ((GdkPropMode)gperl_convert_enum (GDK_TYPE_PROP_MODE, sv))
  671. # define newSVGdkPropMode(val)    (gperl_convert_back_enum (GDK_TYPE_PROP_MODE, val))
  672. #endif /* GDK_TYPE_PROP_MODE */
  673.  
  674. #ifdef GDK_TYPE_RECTANGLE
  675.   /* GBoxed GdkRectangle */
  676.   typedef GdkRectangle GdkRectangle_ornull;
  677. # define SvGdkRectangle(sv)    (gperl_get_boxed_check ((sv), GDK_TYPE_RECTANGLE))
  678. # define SvGdkRectangle_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkRectangle (sv) : NULL)
  679.   typedef GdkRectangle GdkRectangle_own;
  680.   typedef GdkRectangle GdkRectangle_copy;
  681.   typedef GdkRectangle GdkRectangle_own_ornull;
  682. # define newSVGdkRectangle(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_RECTANGLE, FALSE))
  683. # define newSVGdkRectangle_ornull(val)    ((val) ? newSVGdkRectangle(val) : &PL_sv_undef)
  684. # define newSVGdkRectangle_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_RECTANGLE, TRUE))
  685. # define newSVGdkRectangle_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_RECTANGLE))
  686. # define newSVGdkRectangle_own_ornull(val)    ((val) ? newSVGdkRectangle_own(val) : &PL_sv_undef)
  687. #endif /* GDK_TYPE_RECTANGLE */
  688.  
  689. #ifdef GDK_TYPE_RGB_DITHER
  690.   /* GEnum GdkRgbDither */
  691. # define SvGdkRgbDither(sv)    ((GdkRgbDither)gperl_convert_enum (GDK_TYPE_RGB_DITHER, sv))
  692. # define newSVGdkRgbDither(val)    (gperl_convert_back_enum (GDK_TYPE_RGB_DITHER, val))
  693. #endif /* GDK_TYPE_RGB_DITHER */
  694.  
  695. #ifdef GDK_TYPE_SCROLL_DIRECTION
  696.   /* GEnum GdkScrollDirection */
  697. # define SvGdkScrollDirection(sv)    ((GdkScrollDirection)gperl_convert_enum (GDK_TYPE_SCROLL_DIRECTION, sv))
  698. # define newSVGdkScrollDirection(val)    (gperl_convert_back_enum (GDK_TYPE_SCROLL_DIRECTION, val))
  699. #endif /* GDK_TYPE_SCROLL_DIRECTION */
  700.  
  701. #ifdef GDK_TYPE_SETTING_ACTION
  702.   /* GEnum GdkSettingAction */
  703. # define SvGdkSettingAction(sv)    ((GdkSettingAction)gperl_convert_enum (GDK_TYPE_SETTING_ACTION, sv))
  704. # define newSVGdkSettingAction(val)    (gperl_convert_back_enum (GDK_TYPE_SETTING_ACTION, val))
  705. #endif /* GDK_TYPE_SETTING_ACTION */
  706.  
  707. #ifdef GDK_TYPE_STATUS
  708.   /* GEnum GdkStatus */
  709. # define SvGdkStatus(sv)    ((GdkStatus)gperl_convert_enum (GDK_TYPE_STATUS, sv))
  710. # define newSVGdkStatus(val)    (gperl_convert_back_enum (GDK_TYPE_STATUS, val))
  711. #endif /* GDK_TYPE_STATUS */
  712.  
  713. #ifdef GDK_TYPE_SUBWINDOW_MODE
  714.   /* GEnum GdkSubwindowMode */
  715. # define SvGdkSubwindowMode(sv)    ((GdkSubwindowMode)gperl_convert_enum (GDK_TYPE_SUBWINDOW_MODE, sv))
  716. # define newSVGdkSubwindowMode(val)    (gperl_convert_back_enum (GDK_TYPE_SUBWINDOW_MODE, val))
  717. #endif /* GDK_TYPE_SUBWINDOW_MODE */
  718.  
  719. #ifdef GDK_TYPE_VISIBILITY_STATE
  720.   /* GEnum GdkVisibilityState */
  721. # define SvGdkVisibilityState(sv)    ((GdkVisibilityState)gperl_convert_enum (GDK_TYPE_VISIBILITY_STATE, sv))
  722. # define newSVGdkVisibilityState(val)    (gperl_convert_back_enum (GDK_TYPE_VISIBILITY_STATE, val))
  723. #endif /* GDK_TYPE_VISIBILITY_STATE */
  724.  
  725. #ifdef GDK_TYPE_VISUAL
  726.   /* GObject derivative GdkVisual */
  727. # define SvGdkVisual(sv)    ((GdkVisual*)gperl_get_object_check (sv, GDK_TYPE_VISUAL))
  728. # define newSVGdkVisual(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  729.   typedef GdkVisual GdkVisual_ornull;
  730. # define SvGdkVisual_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkVisual(sv) : NULL)
  731. # define newSVGdkVisual_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  732. typedef GdkVisual GdkVisual_noinc;
  733. #define newSVGdkVisual_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  734. typedef GdkVisual GdkVisual_noinc_ornull;
  735. #define newSVGdkVisual_noinc_ornull(val)    ((val) ? newSVGdkVisual_noinc(val) : &PL_sv_undef)
  736. #endif /* GDK_TYPE_VISUAL */
  737.  
  738. #ifdef GDK_TYPE_VISUAL_TYPE
  739.   /* GEnum GdkVisualType */
  740. # define SvGdkVisualType(sv)    ((GdkVisualType)gperl_convert_enum (GDK_TYPE_VISUAL_TYPE, sv))
  741. # define newSVGdkVisualType(val)    (gperl_convert_back_enum (GDK_TYPE_VISUAL_TYPE, val))
  742. #endif /* GDK_TYPE_VISUAL_TYPE */
  743.  
  744. #ifdef GDK_TYPE_WINDOW_ATTRIBUTES_TYPE
  745.   /* GFlags GdkWindowAttributesType */
  746. # define SvGdkWindowAttributesType(sv)    ((GdkWindowAttributesType)gperl_convert_flags (GDK_TYPE_WINDOW_ATTRIBUTES_TYPE, sv))
  747. # define newSVGdkWindowAttributesType(val)    (gperl_convert_back_flags (GDK_TYPE_WINDOW_ATTRIBUTES_TYPE, val))
  748. #endif /* GDK_TYPE_WINDOW_ATTRIBUTES_TYPE */
  749.  
  750. #ifdef GDK_TYPE_WINDOW_CLASS
  751.   /* GEnum GdkWindowClass */
  752. # define SvGdkWindowClass(sv)    ((GdkWindowClass)gperl_convert_enum (GDK_TYPE_WINDOW_CLASS, sv))
  753. # define newSVGdkWindowClass(val)    (gperl_convert_back_enum (GDK_TYPE_WINDOW_CLASS, val))
  754. #endif /* GDK_TYPE_WINDOW_CLASS */
  755.  
  756. #ifdef GDK_TYPE_WINDOW_EDGE
  757.   /* GEnum GdkWindowEdge */
  758. # define SvGdkWindowEdge(sv)    ((GdkWindowEdge)gperl_convert_enum (GDK_TYPE_WINDOW_EDGE, sv))
  759. # define newSVGdkWindowEdge(val)    (gperl_convert_back_enum (GDK_TYPE_WINDOW_EDGE, val))
  760. #endif /* GDK_TYPE_WINDOW_EDGE */
  761.  
  762. #ifdef GDK_TYPE_WINDOW
  763.   /* GObject derivative GdkWindow */
  764. # define SvGdkWindow(sv)    ((GdkWindow*)gperl_get_object_check (sv, GDK_TYPE_WINDOW))
  765. # define newSVGdkWindow(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  766.   typedef GdkWindow GdkWindow_ornull;
  767. # define SvGdkWindow_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkWindow(sv) : NULL)
  768. # define newSVGdkWindow_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  769. typedef GdkWindow GdkWindow_noinc;
  770. #define newSVGdkWindow_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  771. typedef GdkWindow GdkWindow_noinc_ornull;
  772. #define newSVGdkWindow_noinc_ornull(val)    ((val) ? newSVGdkWindow_noinc(val) : &PL_sv_undef)
  773. #endif /* GDK_TYPE_WINDOW */
  774.  
  775. #ifdef GDK_TYPE_WINDOW_HINTS
  776.   /* GFlags GdkWindowHints */
  777. # define SvGdkWindowHints(sv)    ((GdkWindowHints)gperl_convert_flags (GDK_TYPE_WINDOW_HINTS, sv))
  778. # define newSVGdkWindowHints(val)    (gperl_convert_back_flags (GDK_TYPE_WINDOW_HINTS, val))
  779. #endif /* GDK_TYPE_WINDOW_HINTS */
  780.  
  781. #ifdef GDK_TYPE_WINDOW_STATE
  782.   /* GFlags GdkWindowState */
  783. # define SvGdkWindowState(sv)    ((GdkWindowState)gperl_convert_flags (GDK_TYPE_WINDOW_STATE, sv))
  784. # define newSVGdkWindowState(val)    (gperl_convert_back_flags (GDK_TYPE_WINDOW_STATE, val))
  785. #endif /* GDK_TYPE_WINDOW_STATE */
  786.  
  787. #ifdef GDK_TYPE_WINDOW_TYPE
  788.   /* GEnum GdkWindowType */
  789. # define SvGdkWindowType(sv)    ((GdkWindowType)gperl_convert_enum (GDK_TYPE_WINDOW_TYPE, sv))
  790. # define newSVGdkWindowType(val)    (gperl_convert_back_enum (GDK_TYPE_WINDOW_TYPE, val))
  791. #endif /* GDK_TYPE_WINDOW_TYPE */
  792.  
  793. #ifdef GDK_TYPE_WINDOW_TYPE_HINT
  794.   /* GEnum GdkWindowTypeHint */
  795. # define SvGdkWindowTypeHint(sv)    ((GdkWindowTypeHint)gperl_convert_enum (GDK_TYPE_WINDOW_TYPE_HINT, sv))
  796. # define newSVGdkWindowTypeHint(val)    (gperl_convert_back_enum (GDK_TYPE_WINDOW_TYPE_HINT, val))
  797. #endif /* GDK_TYPE_WINDOW_TYPE_HINT */
  798.  
  799. #ifdef GDK_TYPE_WM_DECORATION
  800.   /* GFlags GdkWMDecoration */
  801. # define SvGdkWMDecoration(sv)    ((GdkWMDecoration)gperl_convert_flags (GDK_TYPE_WM_DECORATION, sv))
  802. # define newSVGdkWMDecoration(val)    (gperl_convert_back_flags (GDK_TYPE_WM_DECORATION, val))
  803. #endif /* GDK_TYPE_WM_DECORATION */
  804.  
  805. #ifdef GDK_TYPE_WM_FUNCTION
  806.   /* GFlags GdkWMFunction */
  807. # define SvGdkWMFunction(sv)    ((GdkWMFunction)gperl_convert_flags (GDK_TYPE_WM_FUNCTION, sv))
  808. # define newSVGdkWMFunction(val)    (gperl_convert_back_flags (GDK_TYPE_WM_FUNCTION, val))
  809. #endif /* GDK_TYPE_WM_FUNCTION */
  810.  
  811. #ifdef GTK_TYPE_ACCEL_FLAGS
  812.   /* GFlags GtkAccelFlags */
  813. # define SvGtkAccelFlags(sv)    ((GtkAccelFlags)gperl_convert_flags (GTK_TYPE_ACCEL_FLAGS, sv))
  814. # define newSVGtkAccelFlags(val)    (gperl_convert_back_flags (GTK_TYPE_ACCEL_FLAGS, val))
  815. #endif /* GTK_TYPE_ACCEL_FLAGS */
  816.  
  817. #ifdef GTK_TYPE_ACCEL_GROUP
  818.   /* GObject derivative GtkAccelGroup */
  819. # define SvGtkAccelGroup(sv)    ((GtkAccelGroup*)gperl_get_object_check (sv, GTK_TYPE_ACCEL_GROUP))
  820. # define newSVGtkAccelGroup(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  821.   typedef GtkAccelGroup GtkAccelGroup_ornull;
  822. # define SvGtkAccelGroup_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkAccelGroup(sv) : NULL)
  823. # define newSVGtkAccelGroup_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  824. typedef GtkAccelGroup GtkAccelGroup_noinc;
  825. #define newSVGtkAccelGroup_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  826. typedef GtkAccelGroup GtkAccelGroup_noinc_ornull;
  827. #define newSVGtkAccelGroup_noinc_ornull(val)    ((val) ? newSVGtkAccelGroup_noinc(val) : &PL_sv_undef)
  828. #endif /* GTK_TYPE_ACCEL_GROUP */
  829.  
  830. #ifdef GTK_TYPE_ACCEL_LABEL
  831.   /* GtkObject derivative GtkAccelLabel */
  832. # define SvGtkAccelLabel(sv)    ((GtkAccelLabel*)gperl_get_object_check (sv, GTK_TYPE_ACCEL_LABEL))
  833. # define newSVGtkAccelLabel(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  834.   typedef GtkAccelLabel GtkAccelLabel_ornull;
  835. # define SvGtkAccelLabel_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkAccelLabel(sv) : NULL)
  836. # define newSVGtkAccelLabel_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  837. #endif /* GTK_TYPE_ACCEL_LABEL */
  838.  
  839. #ifdef GTK_TYPE_ACCESSIBLE
  840.   /* GObject derivative GtkAccessible */
  841. # define SvGtkAccessible(sv)    ((GtkAccessible*)gperl_get_object_check (sv, GTK_TYPE_ACCESSIBLE))
  842. # define newSVGtkAccessible(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  843.   typedef GtkAccessible GtkAccessible_ornull;
  844. # define SvGtkAccessible_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkAccessible(sv) : NULL)
  845. # define newSVGtkAccessible_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  846. typedef GtkAccessible GtkAccessible_noinc;
  847. #define newSVGtkAccessible_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  848. typedef GtkAccessible GtkAccessible_noinc_ornull;
  849. #define newSVGtkAccessible_noinc_ornull(val)    ((val) ? newSVGtkAccessible_noinc(val) : &PL_sv_undef)
  850. #endif /* GTK_TYPE_ACCESSIBLE */
  851.  
  852. #ifdef GTK_TYPE_ADJUSTMENT
  853.   /* GtkObject derivative GtkAdjustment */
  854. # define SvGtkAdjustment(sv)    ((GtkAdjustment*)gperl_get_object_check (sv, GTK_TYPE_ADJUSTMENT))
  855. # define newSVGtkAdjustment(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  856.   typedef GtkAdjustment GtkAdjustment_ornull;
  857. # define SvGtkAdjustment_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkAdjustment(sv) : NULL)
  858. # define newSVGtkAdjustment_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  859. #endif /* GTK_TYPE_ADJUSTMENT */
  860.  
  861. #ifdef GTK_TYPE_ALIGNMENT
  862.   /* GtkObject derivative GtkAlignment */
  863. # define SvGtkAlignment(sv)    ((GtkAlignment*)gperl_get_object_check (sv, GTK_TYPE_ALIGNMENT))
  864. # define newSVGtkAlignment(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  865.   typedef GtkAlignment GtkAlignment_ornull;
  866. # define SvGtkAlignment_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkAlignment(sv) : NULL)
  867. # define newSVGtkAlignment_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  868. #endif /* GTK_TYPE_ALIGNMENT */
  869.  
  870. #ifdef GTK_TYPE_ANCHOR_TYPE
  871.   /* GEnum GtkAnchorType */
  872. # define SvGtkAnchorType(sv)    ((GtkAnchorType)gperl_convert_enum (GTK_TYPE_ANCHOR_TYPE, sv))
  873. # define newSVGtkAnchorType(val)    (gperl_convert_back_enum (GTK_TYPE_ANCHOR_TYPE, val))
  874. #endif /* GTK_TYPE_ANCHOR_TYPE */
  875.  
  876. #ifdef GTK_TYPE_ARG_FLAGS
  877.   /* GFlags GtkArgFlags */
  878. # define SvGtkArgFlags(sv)    ((GtkArgFlags)gperl_convert_flags (GTK_TYPE_ARG_FLAGS, sv))
  879. # define newSVGtkArgFlags(val)    (gperl_convert_back_flags (GTK_TYPE_ARG_FLAGS, val))
  880. #endif /* GTK_TYPE_ARG_FLAGS */
  881.  
  882. #ifdef GTK_TYPE_ARROW
  883.   /* GtkObject derivative GtkArrow */
  884. # define SvGtkArrow(sv)    ((GtkArrow*)gperl_get_object_check (sv, GTK_TYPE_ARROW))
  885. # define newSVGtkArrow(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  886.   typedef GtkArrow GtkArrow_ornull;
  887. # define SvGtkArrow_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkArrow(sv) : NULL)
  888. # define newSVGtkArrow_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  889. #endif /* GTK_TYPE_ARROW */
  890.  
  891. #ifdef GTK_TYPE_ARROW_TYPE
  892.   /* GEnum GtkArrowType */
  893. # define SvGtkArrowType(sv)    ((GtkArrowType)gperl_convert_enum (GTK_TYPE_ARROW_TYPE, sv))
  894. # define newSVGtkArrowType(val)    (gperl_convert_back_enum (GTK_TYPE_ARROW_TYPE, val))
  895. #endif /* GTK_TYPE_ARROW_TYPE */
  896.  
  897. #ifdef GTK_TYPE_ASPECT_FRAME
  898.   /* GtkObject derivative GtkAspectFrame */
  899. # define SvGtkAspectFrame(sv)    ((GtkAspectFrame*)gperl_get_object_check (sv, GTK_TYPE_ASPECT_FRAME))
  900. # define newSVGtkAspectFrame(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  901.   typedef GtkAspectFrame GtkAspectFrame_ornull;
  902. # define SvGtkAspectFrame_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkAspectFrame(sv) : NULL)
  903. # define newSVGtkAspectFrame_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  904. #endif /* GTK_TYPE_ASPECT_FRAME */
  905.  
  906. #ifdef GTK_TYPE_ATTACH_OPTIONS
  907.   /* GFlags GtkAttachOptions */
  908. # define SvGtkAttachOptions(sv)    ((GtkAttachOptions)gperl_convert_flags (GTK_TYPE_ATTACH_OPTIONS, sv))
  909. # define newSVGtkAttachOptions(val)    (gperl_convert_back_flags (GTK_TYPE_ATTACH_OPTIONS, val))
  910. #endif /* GTK_TYPE_ATTACH_OPTIONS */
  911.  
  912. #ifdef GTK_TYPE_BIN
  913.   /* GtkObject derivative GtkBin */
  914. # define SvGtkBin(sv)    ((GtkBin*)gperl_get_object_check (sv, GTK_TYPE_BIN))
  915. # define newSVGtkBin(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  916.   typedef GtkBin GtkBin_ornull;
  917. # define SvGtkBin_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkBin(sv) : NULL)
  918. # define newSVGtkBin_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  919. #endif /* GTK_TYPE_BIN */
  920.  
  921. #ifdef GTK_TYPE_BORDER
  922.   /* GBoxed GtkBorder */
  923.   typedef GtkBorder GtkBorder_ornull;
  924. # define SvGtkBorder(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_BORDER))
  925. # define SvGtkBorder_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkBorder (sv) : NULL)
  926.   typedef GtkBorder GtkBorder_own;
  927.   typedef GtkBorder GtkBorder_copy;
  928.   typedef GtkBorder GtkBorder_own_ornull;
  929. # define newSVGtkBorder(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_BORDER, FALSE))
  930. # define newSVGtkBorder_ornull(val)    ((val) ? newSVGtkBorder(val) : &PL_sv_undef)
  931. # define newSVGtkBorder_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_BORDER, TRUE))
  932. # define newSVGtkBorder_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_BORDER))
  933. # define newSVGtkBorder_own_ornull(val)    ((val) ? newSVGtkBorder_own(val) : &PL_sv_undef)
  934. #endif /* GTK_TYPE_BORDER */
  935.  
  936. #ifdef GTK_TYPE_BOX
  937.   /* GtkObject derivative GtkBox */
  938. # define SvGtkBox(sv)    ((GtkBox*)gperl_get_object_check (sv, GTK_TYPE_BOX))
  939. # define newSVGtkBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  940.   typedef GtkBox GtkBox_ornull;
  941. # define SvGtkBox_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkBox(sv) : NULL)
  942. # define newSVGtkBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  943. #endif /* GTK_TYPE_BOX */
  944.  
  945. #ifdef GTK_TYPE_BUTTON_BOX
  946.   /* GtkObject derivative GtkButtonBox */
  947. # define SvGtkButtonBox(sv)    ((GtkButtonBox*)gperl_get_object_check (sv, GTK_TYPE_BUTTON_BOX))
  948. # define newSVGtkButtonBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  949.   typedef GtkButtonBox GtkButtonBox_ornull;
  950. # define SvGtkButtonBox_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkButtonBox(sv) : NULL)
  951. # define newSVGtkButtonBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  952. #endif /* GTK_TYPE_BUTTON_BOX */
  953.  
  954. #ifdef GTK_TYPE_BUTTON_BOX_STYLE
  955.   /* GEnum GtkButtonBoxStyle */
  956. # define SvGtkButtonBoxStyle(sv)    ((GtkButtonBoxStyle)gperl_convert_enum (GTK_TYPE_BUTTON_BOX_STYLE, sv))
  957. # define newSVGtkButtonBoxStyle(val)    (gperl_convert_back_enum (GTK_TYPE_BUTTON_BOX_STYLE, val))
  958. #endif /* GTK_TYPE_BUTTON_BOX_STYLE */
  959.  
  960. #ifdef GTK_TYPE_BUTTON
  961.   /* GtkObject derivative GtkButton */
  962. # define SvGtkButton(sv)    ((GtkButton*)gperl_get_object_check (sv, GTK_TYPE_BUTTON))
  963. # define newSVGtkButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  964.   typedef GtkButton GtkButton_ornull;
  965. # define SvGtkButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkButton(sv) : NULL)
  966. # define newSVGtkButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  967. #endif /* GTK_TYPE_BUTTON */
  968.  
  969. #ifdef GTK_TYPE_BUTTONS_TYPE
  970.   /* GEnum GtkButtonsType */
  971. # define SvGtkButtonsType(sv)    ((GtkButtonsType)gperl_convert_enum (GTK_TYPE_BUTTONS_TYPE, sv))
  972. # define newSVGtkButtonsType(val)    (gperl_convert_back_enum (GTK_TYPE_BUTTONS_TYPE, val))
  973. #endif /* GTK_TYPE_BUTTONS_TYPE */
  974.  
  975. #ifdef GTK_TYPE_CALENDAR_DISPLAY_OPTIONS
  976.   /* GFlags GtkCalendarDisplayOptions */
  977. # define SvGtkCalendarDisplayOptions(sv)    ((GtkCalendarDisplayOptions)gperl_convert_flags (GTK_TYPE_CALENDAR_DISPLAY_OPTIONS, sv))
  978. # define newSVGtkCalendarDisplayOptions(val)    (gperl_convert_back_flags (GTK_TYPE_CALENDAR_DISPLAY_OPTIONS, val))
  979. #endif /* GTK_TYPE_CALENDAR_DISPLAY_OPTIONS */
  980.  
  981. #ifdef GTK_TYPE_CALENDAR
  982.   /* GtkObject derivative GtkCalendar */
  983. # define SvGtkCalendar(sv)    ((GtkCalendar*)gperl_get_object_check (sv, GTK_TYPE_CALENDAR))
  984. # define newSVGtkCalendar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  985.   typedef GtkCalendar GtkCalendar_ornull;
  986. # define SvGtkCalendar_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCalendar(sv) : NULL)
  987. # define newSVGtkCalendar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  988. #endif /* GTK_TYPE_CALENDAR */
  989.  
  990. #ifdef GTK_TYPE_CELL_EDITABLE
  991.   /* GtkObject derivative GtkCellEditable */
  992. # define SvGtkCellEditable(sv)    ((GtkCellEditable*)gperl_get_object_check (sv, GTK_TYPE_CELL_EDITABLE))
  993. # define newSVGtkCellEditable(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  994.   typedef GtkCellEditable GtkCellEditable_ornull;
  995. # define SvGtkCellEditable_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCellEditable(sv) : NULL)
  996. # define newSVGtkCellEditable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  997. #endif /* GTK_TYPE_CELL_EDITABLE */
  998.  
  999. #ifdef GTK_TYPE_CELL_RENDERER
  1000.   /* GtkObject derivative GtkCellRenderer */
  1001. # define SvGtkCellRenderer(sv)    ((GtkCellRenderer*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER))
  1002. # define newSVGtkCellRenderer(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1003.   typedef GtkCellRenderer GtkCellRenderer_ornull;
  1004. # define SvGtkCellRenderer_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCellRenderer(sv) : NULL)
  1005. # define newSVGtkCellRenderer_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1006. #endif /* GTK_TYPE_CELL_RENDERER */
  1007.  
  1008. #ifdef GTK_TYPE_CELL_RENDERER_MODE
  1009.   /* GEnum GtkCellRendererMode */
  1010. # define SvGtkCellRendererMode(sv)    ((GtkCellRendererMode)gperl_convert_enum (GTK_TYPE_CELL_RENDERER_MODE, sv))
  1011. # define newSVGtkCellRendererMode(val)    (gperl_convert_back_enum (GTK_TYPE_CELL_RENDERER_MODE, val))
  1012. #endif /* GTK_TYPE_CELL_RENDERER_MODE */
  1013.  
  1014. #ifdef GTK_TYPE_CELL_RENDERER_PIXBUF
  1015.   /* GtkObject derivative GtkCellRendererPixbuf */
  1016. # define SvGtkCellRendererPixbuf(sv)    ((GtkCellRendererPixbuf*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_PIXBUF))
  1017. # define newSVGtkCellRendererPixbuf(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1018.   typedef GtkCellRendererPixbuf GtkCellRendererPixbuf_ornull;
  1019. # define SvGtkCellRendererPixbuf_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCellRendererPixbuf(sv) : NULL)
  1020. # define newSVGtkCellRendererPixbuf_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1021. #endif /* GTK_TYPE_CELL_RENDERER_PIXBUF */
  1022.  
  1023. #ifdef GTK_TYPE_CELL_RENDERER_STATE
  1024.   /* GFlags GtkCellRendererState */
  1025. # define SvGtkCellRendererState(sv)    ((GtkCellRendererState)gperl_convert_flags (GTK_TYPE_CELL_RENDERER_STATE, sv))
  1026. # define newSVGtkCellRendererState(val)    (gperl_convert_back_flags (GTK_TYPE_CELL_RENDERER_STATE, val))
  1027. #endif /* GTK_TYPE_CELL_RENDERER_STATE */
  1028.  
  1029. #ifdef GTK_TYPE_CELL_RENDERER_TEXT
  1030.   /* GtkObject derivative GtkCellRendererText */
  1031. # define SvGtkCellRendererText(sv)    ((GtkCellRendererText*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_TEXT))
  1032. # define newSVGtkCellRendererText(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1033.   typedef GtkCellRendererText GtkCellRendererText_ornull;
  1034. # define SvGtkCellRendererText_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCellRendererText(sv) : NULL)
  1035. # define newSVGtkCellRendererText_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1036. #endif /* GTK_TYPE_CELL_RENDERER_TEXT */
  1037.  
  1038. #ifdef GTK_TYPE_CELL_RENDERER_TOGGLE
  1039.   /* GtkObject derivative GtkCellRendererToggle */
  1040. # define SvGtkCellRendererToggle(sv)    ((GtkCellRendererToggle*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_TOGGLE))
  1041. # define newSVGtkCellRendererToggle(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1042.   typedef GtkCellRendererToggle GtkCellRendererToggle_ornull;
  1043. # define SvGtkCellRendererToggle_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCellRendererToggle(sv) : NULL)
  1044. # define newSVGtkCellRendererToggle_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1045. #endif /* GTK_TYPE_CELL_RENDERER_TOGGLE */
  1046.  
  1047. #ifdef GTK_TYPE_CHECK_BUTTON
  1048.   /* GtkObject derivative GtkCheckButton */
  1049. # define SvGtkCheckButton(sv)    ((GtkCheckButton*)gperl_get_object_check (sv, GTK_TYPE_CHECK_BUTTON))
  1050. # define newSVGtkCheckButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1051.   typedef GtkCheckButton GtkCheckButton_ornull;
  1052. # define SvGtkCheckButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCheckButton(sv) : NULL)
  1053. # define newSVGtkCheckButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1054. #endif /* GTK_TYPE_CHECK_BUTTON */
  1055.  
  1056. #ifdef GTK_TYPE_CHECK_MENU_ITEM
  1057.   /* GtkObject derivative GtkCheckMenuItem */
  1058. # define SvGtkCheckMenuItem(sv)    ((GtkCheckMenuItem*)gperl_get_object_check (sv, GTK_TYPE_CHECK_MENU_ITEM))
  1059. # define newSVGtkCheckMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1060.   typedef GtkCheckMenuItem GtkCheckMenuItem_ornull;
  1061. # define SvGtkCheckMenuItem_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCheckMenuItem(sv) : NULL)
  1062. # define newSVGtkCheckMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1063. #endif /* GTK_TYPE_CHECK_MENU_ITEM */
  1064.  
  1065. #ifdef GTK_TYPE_COLOR_SELECTION_DIALOG
  1066.   /* GtkObject derivative GtkColorSelectionDialog */
  1067. # define SvGtkColorSelectionDialog(sv)    ((GtkColorSelectionDialog*)gperl_get_object_check (sv, GTK_TYPE_COLOR_SELECTION_DIALOG))
  1068. # define newSVGtkColorSelectionDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1069.   typedef GtkColorSelectionDialog GtkColorSelectionDialog_ornull;
  1070. # define SvGtkColorSelectionDialog_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkColorSelectionDialog(sv) : NULL)
  1071. # define newSVGtkColorSelectionDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1072. #endif /* GTK_TYPE_COLOR_SELECTION_DIALOG */
  1073.  
  1074. #ifdef GTK_TYPE_COLOR_SELECTION
  1075.   /* GtkObject derivative GtkColorSelection */
  1076. # define SvGtkColorSelection(sv)    ((GtkColorSelection*)gperl_get_object_check (sv, GTK_TYPE_COLOR_SELECTION))
  1077. # define newSVGtkColorSelection(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1078.   typedef GtkColorSelection GtkColorSelection_ornull;
  1079. # define SvGtkColorSelection_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkColorSelection(sv) : NULL)
  1080. # define newSVGtkColorSelection_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1081. #endif /* GTK_TYPE_COLOR_SELECTION */
  1082.  
  1083. #ifdef GTK_TYPE_COMBO
  1084.   /* GtkObject derivative GtkCombo */
  1085. # define SvGtkCombo(sv)    ((GtkCombo*)gperl_get_object_check (sv, GTK_TYPE_COMBO))
  1086. # define newSVGtkCombo(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1087.   typedef GtkCombo GtkCombo_ornull;
  1088. # define SvGtkCombo_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCombo(sv) : NULL)
  1089. # define newSVGtkCombo_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1090. #endif /* GTK_TYPE_COMBO */
  1091.  
  1092. #ifdef GTK_TYPE_CONTAINER
  1093.   /* GtkObject derivative GtkContainer */
  1094. # define SvGtkContainer(sv)    ((GtkContainer*)gperl_get_object_check (sv, GTK_TYPE_CONTAINER))
  1095. # define newSVGtkContainer(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1096.   typedef GtkContainer GtkContainer_ornull;
  1097. # define SvGtkContainer_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkContainer(sv) : NULL)
  1098. # define newSVGtkContainer_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1099. #endif /* GTK_TYPE_CONTAINER */
  1100.  
  1101. #ifdef GTK_TYPE_CORNER_TYPE
  1102.   /* GEnum GtkCornerType */
  1103. # define SvGtkCornerType(sv)    ((GtkCornerType)gperl_convert_enum (GTK_TYPE_CORNER_TYPE, sv))
  1104. # define newSVGtkCornerType(val)    (gperl_convert_back_enum (GTK_TYPE_CORNER_TYPE, val))
  1105. #endif /* GTK_TYPE_CORNER_TYPE */
  1106.  
  1107. #ifdef GTK_TYPE_CURVE
  1108.   /* GtkObject derivative GtkCurve */
  1109. # define SvGtkCurve(sv)    ((GtkCurve*)gperl_get_object_check (sv, GTK_TYPE_CURVE))
  1110. # define newSVGtkCurve(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1111.   typedef GtkCurve GtkCurve_ornull;
  1112. # define SvGtkCurve_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCurve(sv) : NULL)
  1113. # define newSVGtkCurve_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1114. #endif /* GTK_TYPE_CURVE */
  1115.  
  1116. #ifdef GTK_TYPE_CURVE_TYPE
  1117.   /* GEnum GtkCurveType */
  1118. # define SvGtkCurveType(sv)    ((GtkCurveType)gperl_convert_enum (GTK_TYPE_CURVE_TYPE, sv))
  1119. # define newSVGtkCurveType(val)    (gperl_convert_back_enum (GTK_TYPE_CURVE_TYPE, val))
  1120. #endif /* GTK_TYPE_CURVE_TYPE */
  1121.  
  1122. #ifdef GTK_TYPE_DEBUG_FLAG
  1123.   /* GFlags GtkDebugFlag */
  1124. # define SvGtkDebugFlag(sv)    ((GtkDebugFlag)gperl_convert_flags (GTK_TYPE_DEBUG_FLAG, sv))
  1125. # define newSVGtkDebugFlag(val)    (gperl_convert_back_flags (GTK_TYPE_DEBUG_FLAG, val))
  1126. #endif /* GTK_TYPE_DEBUG_FLAG */
  1127.  
  1128. #ifdef GTK_TYPE_DELETE_TYPE
  1129.   /* GEnum GtkDeleteType */
  1130. # define SvGtkDeleteType(sv)    ((GtkDeleteType)gperl_convert_enum (GTK_TYPE_DELETE_TYPE, sv))
  1131. # define newSVGtkDeleteType(val)    (gperl_convert_back_enum (GTK_TYPE_DELETE_TYPE, val))
  1132. #endif /* GTK_TYPE_DELETE_TYPE */
  1133.  
  1134. #ifdef GTK_TYPE_DEST_DEFAULTS
  1135.   /* GFlags GtkDestDefaults */
  1136. # define SvGtkDestDefaults(sv)    ((GtkDestDefaults)gperl_convert_flags (GTK_TYPE_DEST_DEFAULTS, sv))
  1137. # define newSVGtkDestDefaults(val)    (gperl_convert_back_flags (GTK_TYPE_DEST_DEFAULTS, val))
  1138. #endif /* GTK_TYPE_DEST_DEFAULTS */
  1139.  
  1140. #ifdef GTK_TYPE_DIALOG_FLAGS
  1141.   /* GFlags GtkDialogFlags */
  1142. # define SvGtkDialogFlags(sv)    ((GtkDialogFlags)gperl_convert_flags (GTK_TYPE_DIALOG_FLAGS, sv))
  1143. # define newSVGtkDialogFlags(val)    (gperl_convert_back_flags (GTK_TYPE_DIALOG_FLAGS, val))
  1144. #endif /* GTK_TYPE_DIALOG_FLAGS */
  1145.  
  1146. #ifdef GTK_TYPE_DIALOG
  1147.   /* GtkObject derivative GtkDialog */
  1148. # define SvGtkDialog(sv)    ((GtkDialog*)gperl_get_object_check (sv, GTK_TYPE_DIALOG))
  1149. # define newSVGtkDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1150.   typedef GtkDialog GtkDialog_ornull;
  1151. # define SvGtkDialog_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkDialog(sv) : NULL)
  1152. # define newSVGtkDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1153. #endif /* GTK_TYPE_DIALOG */
  1154.  
  1155. #ifdef GTK_TYPE_DIRECTION_TYPE
  1156.   /* GEnum GtkDirectionType */
  1157. # define SvGtkDirectionType(sv)    ((GtkDirectionType)gperl_convert_enum (GTK_TYPE_DIRECTION_TYPE, sv))
  1158. # define newSVGtkDirectionType(val)    (gperl_convert_back_enum (GTK_TYPE_DIRECTION_TYPE, val))
  1159. #endif /* GTK_TYPE_DIRECTION_TYPE */
  1160.  
  1161. #ifdef GTK_TYPE_DRAWING_AREA
  1162.   /* GtkObject derivative GtkDrawingArea */
  1163. # define SvGtkDrawingArea(sv)    ((GtkDrawingArea*)gperl_get_object_check (sv, GTK_TYPE_DRAWING_AREA))
  1164. # define newSVGtkDrawingArea(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1165.   typedef GtkDrawingArea GtkDrawingArea_ornull;
  1166. # define SvGtkDrawingArea_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkDrawingArea(sv) : NULL)
  1167. # define newSVGtkDrawingArea_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1168. #endif /* GTK_TYPE_DRAWING_AREA */
  1169.  
  1170. #ifdef GTK_TYPE_EDITABLE
  1171.   /* GInterface derivative GtkEditable */
  1172. # define SvGtkEditable(sv)    ((GtkEditable*)gperl_get_object_check (sv, GTK_TYPE_EDITABLE))
  1173. # define newSVGtkEditable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1174.   typedef GtkEditable GtkEditable_ornull;
  1175. # define SvGtkEditable_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkEditable(sv) : NULL)
  1176. # define newSVGtkEditable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1177. #endif /* GTK_TYPE_EDITABLE */
  1178.  
  1179. #ifdef GTK_TYPE_ENTRY
  1180.   /* GtkObject derivative GtkEntry */
  1181. # define SvGtkEntry(sv)    ((GtkEntry*)gperl_get_object_check (sv, GTK_TYPE_ENTRY))
  1182. # define newSVGtkEntry(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1183.   typedef GtkEntry GtkEntry_ornull;
  1184. # define SvGtkEntry_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkEntry(sv) : NULL)
  1185. # define newSVGtkEntry_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1186. #endif /* GTK_TYPE_ENTRY */
  1187.  
  1188. #ifdef GTK_TYPE_EVENT_BOX
  1189.   /* GtkObject derivative GtkEventBox */
  1190. # define SvGtkEventBox(sv)    ((GtkEventBox*)gperl_get_object_check (sv, GTK_TYPE_EVENT_BOX))
  1191. # define newSVGtkEventBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1192.   typedef GtkEventBox GtkEventBox_ornull;
  1193. # define SvGtkEventBox_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkEventBox(sv) : NULL)
  1194. # define newSVGtkEventBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1195. #endif /* GTK_TYPE_EVENT_BOX */
  1196.  
  1197. #ifdef GTK_TYPE_EXPANDER_STYLE
  1198.   /* GEnum GtkExpanderStyle */
  1199. # define SvGtkExpanderStyle(sv)    ((GtkExpanderStyle)gperl_convert_enum (GTK_TYPE_EXPANDER_STYLE, sv))
  1200. # define newSVGtkExpanderStyle(val)    (gperl_convert_back_enum (GTK_TYPE_EXPANDER_STYLE, val))
  1201. #endif /* GTK_TYPE_EXPANDER_STYLE */
  1202.  
  1203. #ifdef GTK_TYPE_FILE_SELECTION
  1204.   /* GtkObject derivative GtkFileSelection */
  1205. # define SvGtkFileSelection(sv)    ((GtkFileSelection*)gperl_get_object_check (sv, GTK_TYPE_FILE_SELECTION))
  1206. # define newSVGtkFileSelection(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1207.   typedef GtkFileSelection GtkFileSelection_ornull;
  1208. # define SvGtkFileSelection_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFileSelection(sv) : NULL)
  1209. # define newSVGtkFileSelection_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1210. #endif /* GTK_TYPE_FILE_SELECTION */
  1211.  
  1212. #ifdef GTK_TYPE_FIXED
  1213.   /* GtkObject derivative GtkFixed */
  1214. # define SvGtkFixed(sv)    ((GtkFixed*)gperl_get_object_check (sv, GTK_TYPE_FIXED))
  1215. # define newSVGtkFixed(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1216.   typedef GtkFixed GtkFixed_ornull;
  1217. # define SvGtkFixed_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFixed(sv) : NULL)
  1218. # define newSVGtkFixed_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1219. #endif /* GTK_TYPE_FIXED */
  1220.  
  1221. #ifdef GTK_TYPE_FONT_SELECTION_DIALOG
  1222.   /* GtkObject derivative GtkFontSelectionDialog */
  1223. # define SvGtkFontSelectionDialog(sv)    ((GtkFontSelectionDialog*)gperl_get_object_check (sv, GTK_TYPE_FONT_SELECTION_DIALOG))
  1224. # define newSVGtkFontSelectionDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1225.   typedef GtkFontSelectionDialog GtkFontSelectionDialog_ornull;
  1226. # define SvGtkFontSelectionDialog_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFontSelectionDialog(sv) : NULL)
  1227. # define newSVGtkFontSelectionDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1228. #endif /* GTK_TYPE_FONT_SELECTION_DIALOG */
  1229.  
  1230. #ifdef GTK_TYPE_FONT_SELECTION
  1231.   /* GtkObject derivative GtkFontSelection */
  1232. # define SvGtkFontSelection(sv)    ((GtkFontSelection*)gperl_get_object_check (sv, GTK_TYPE_FONT_SELECTION))
  1233. # define newSVGtkFontSelection(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1234.   typedef GtkFontSelection GtkFontSelection_ornull;
  1235. # define SvGtkFontSelection_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFontSelection(sv) : NULL)
  1236. # define newSVGtkFontSelection_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1237. #endif /* GTK_TYPE_FONT_SELECTION */
  1238.  
  1239. #ifdef GTK_TYPE_FRAME
  1240.   /* GtkObject derivative GtkFrame */
  1241. # define SvGtkFrame(sv)    ((GtkFrame*)gperl_get_object_check (sv, GTK_TYPE_FRAME))
  1242. # define newSVGtkFrame(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1243.   typedef GtkFrame GtkFrame_ornull;
  1244. # define SvGtkFrame_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFrame(sv) : NULL)
  1245. # define newSVGtkFrame_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1246. #endif /* GTK_TYPE_FRAME */
  1247.  
  1248. #ifdef GTK_TYPE_GAMMA_CURVE
  1249.   /* GtkObject derivative GtkGammaCurve */
  1250. # define SvGtkGammaCurve(sv)    ((GtkGammaCurve*)gperl_get_object_check (sv, GTK_TYPE_GAMMA_CURVE))
  1251. # define newSVGtkGammaCurve(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1252.   typedef GtkGammaCurve GtkGammaCurve_ornull;
  1253. # define SvGtkGammaCurve_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkGammaCurve(sv) : NULL)
  1254. # define newSVGtkGammaCurve_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1255. #endif /* GTK_TYPE_GAMMA_CURVE */
  1256.  
  1257. #ifdef GTK_TYPE_HANDLE_BOX
  1258.   /* GtkObject derivative GtkHandleBox */
  1259. # define SvGtkHandleBox(sv)    ((GtkHandleBox*)gperl_get_object_check (sv, GTK_TYPE_HANDLE_BOX))
  1260. # define newSVGtkHandleBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1261.   typedef GtkHandleBox GtkHandleBox_ornull;
  1262. # define SvGtkHandleBox_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkHandleBox(sv) : NULL)
  1263. # define newSVGtkHandleBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1264. #endif /* GTK_TYPE_HANDLE_BOX */
  1265.  
  1266. #ifdef GTK_TYPE_HBOX
  1267.   /* GtkObject derivative GtkHBox */
  1268. # define SvGtkHBox(sv)    ((GtkHBox*)gperl_get_object_check (sv, GTK_TYPE_HBOX))
  1269. # define newSVGtkHBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1270.   typedef GtkHBox GtkHBox_ornull;
  1271. # define SvGtkHBox_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkHBox(sv) : NULL)
  1272. # define newSVGtkHBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1273. #endif /* GTK_TYPE_HBOX */
  1274.  
  1275. #ifdef GTK_TYPE_HBUTTON_BOX
  1276.   /* GtkObject derivative GtkHButtonBox */
  1277. # define SvGtkHButtonBox(sv)    ((GtkHButtonBox*)gperl_get_object_check (sv, GTK_TYPE_HBUTTON_BOX))
  1278. # define newSVGtkHButtonBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1279.   typedef GtkHButtonBox GtkHButtonBox_ornull;
  1280. # define SvGtkHButtonBox_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkHButtonBox(sv) : NULL)
  1281. # define newSVGtkHButtonBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1282. #endif /* GTK_TYPE_HBUTTON_BOX */
  1283.  
  1284. #ifdef GTK_TYPE_HPANED
  1285.   /* GtkObject derivative GtkHPaned */
  1286. # define SvGtkHPaned(sv)    ((GtkHPaned*)gperl_get_object_check (sv, GTK_TYPE_HPANED))
  1287. # define newSVGtkHPaned(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1288.   typedef GtkHPaned GtkHPaned_ornull;
  1289. # define SvGtkHPaned_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkHPaned(sv) : NULL)
  1290. # define newSVGtkHPaned_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1291. #endif /* GTK_TYPE_HPANED */
  1292.  
  1293. #ifdef GTK_TYPE_HRULER
  1294.   /* GtkObject derivative GtkHRuler */
  1295. # define SvGtkHRuler(sv)    ((GtkHRuler*)gperl_get_object_check (sv, GTK_TYPE_HRULER))
  1296. # define newSVGtkHRuler(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1297.   typedef GtkHRuler GtkHRuler_ornull;
  1298. # define SvGtkHRuler_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkHRuler(sv) : NULL)
  1299. # define newSVGtkHRuler_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1300. #endif /* GTK_TYPE_HRULER */
  1301.  
  1302. #ifdef GTK_TYPE_HSCALE
  1303.   /* GtkObject derivative GtkHScale */
  1304. # define SvGtkHScale(sv)    ((GtkHScale*)gperl_get_object_check (sv, GTK_TYPE_HSCALE))
  1305. # define newSVGtkHScale(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1306.   typedef GtkHScale GtkHScale_ornull;
  1307. # define SvGtkHScale_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkHScale(sv) : NULL)
  1308. # define newSVGtkHScale_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1309. #endif /* GTK_TYPE_HSCALE */
  1310.  
  1311. #ifdef GTK_TYPE_HSCROLLBAR
  1312.   /* GtkObject derivative GtkHScrollbar */
  1313. # define SvGtkHScrollbar(sv)    ((GtkHScrollbar*)gperl_get_object_check (sv, GTK_TYPE_HSCROLLBAR))
  1314. # define newSVGtkHScrollbar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1315.   typedef GtkHScrollbar GtkHScrollbar_ornull;
  1316. # define SvGtkHScrollbar_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkHScrollbar(sv) : NULL)
  1317. # define newSVGtkHScrollbar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1318. #endif /* GTK_TYPE_HSCROLLBAR */
  1319.  
  1320. #ifdef GTK_TYPE_HSEPARATOR
  1321.   /* GtkObject derivative GtkHSeparator */
  1322. # define SvGtkHSeparator(sv)    ((GtkHSeparator*)gperl_get_object_check (sv, GTK_TYPE_HSEPARATOR))
  1323. # define newSVGtkHSeparator(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1324.   typedef GtkHSeparator GtkHSeparator_ornull;
  1325. # define SvGtkHSeparator_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkHSeparator(sv) : NULL)
  1326. # define newSVGtkHSeparator_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1327. #endif /* GTK_TYPE_HSEPARATOR */
  1328.  
  1329. #ifdef GTK_TYPE_ICON_FACTORY
  1330.   /* GObject derivative GtkIconFactory */
  1331. # define SvGtkIconFactory(sv)    ((GtkIconFactory*)gperl_get_object_check (sv, GTK_TYPE_ICON_FACTORY))
  1332. # define newSVGtkIconFactory(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1333.   typedef GtkIconFactory GtkIconFactory_ornull;
  1334. # define SvGtkIconFactory_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkIconFactory(sv) : NULL)
  1335. # define newSVGtkIconFactory_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1336. typedef GtkIconFactory GtkIconFactory_noinc;
  1337. #define newSVGtkIconFactory_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1338. typedef GtkIconFactory GtkIconFactory_noinc_ornull;
  1339. #define newSVGtkIconFactory_noinc_ornull(val)    ((val) ? newSVGtkIconFactory_noinc(val) : &PL_sv_undef)
  1340. #endif /* GTK_TYPE_ICON_FACTORY */
  1341.  
  1342. #ifdef GTK_TYPE_ICON_SET
  1343.   /* GBoxed GtkIconSet */
  1344.   typedef GtkIconSet GtkIconSet_ornull;
  1345. # define SvGtkIconSet(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_ICON_SET))
  1346. # define SvGtkIconSet_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkIconSet (sv) : NULL)
  1347.   typedef GtkIconSet GtkIconSet_own;
  1348.   typedef GtkIconSet GtkIconSet_copy;
  1349.   typedef GtkIconSet GtkIconSet_own_ornull;
  1350. # define newSVGtkIconSet(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_SET, FALSE))
  1351. # define newSVGtkIconSet_ornull(val)    ((val) ? newSVGtkIconSet(val) : &PL_sv_undef)
  1352. # define newSVGtkIconSet_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_SET, TRUE))
  1353. # define newSVGtkIconSet_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_ICON_SET))
  1354. # define newSVGtkIconSet_own_ornull(val)    ((val) ? newSVGtkIconSet_own(val) : &PL_sv_undef)
  1355. #endif /* GTK_TYPE_ICON_SET */
  1356.  
  1357. #ifdef GTK_TYPE_ICON_SIZE
  1358.   /* GEnum GtkIconSize */
  1359. # define SvGtkIconSize(sv)    ((GtkIconSize)gperl_convert_enum (GTK_TYPE_ICON_SIZE, sv))
  1360. # define newSVGtkIconSize(val)    (gperl_convert_back_enum (GTK_TYPE_ICON_SIZE, val))
  1361. #endif /* GTK_TYPE_ICON_SIZE */
  1362.  
  1363. #ifdef GTK_TYPE_ICON_SOURCE
  1364.   /* GBoxed GtkIconSource */
  1365.   typedef GtkIconSource GtkIconSource_ornull;
  1366. # define SvGtkIconSource(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_ICON_SOURCE))
  1367. # define SvGtkIconSource_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkIconSource (sv) : NULL)
  1368.   typedef GtkIconSource GtkIconSource_own;
  1369.   typedef GtkIconSource GtkIconSource_copy;
  1370.   typedef GtkIconSource GtkIconSource_own_ornull;
  1371. # define newSVGtkIconSource(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_SOURCE, FALSE))
  1372. # define newSVGtkIconSource_ornull(val)    ((val) ? newSVGtkIconSource(val) : &PL_sv_undef)
  1373. # define newSVGtkIconSource_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_SOURCE, TRUE))
  1374. # define newSVGtkIconSource_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_ICON_SOURCE))
  1375. # define newSVGtkIconSource_own_ornull(val)    ((val) ? newSVGtkIconSource_own(val) : &PL_sv_undef)
  1376. #endif /* GTK_TYPE_ICON_SOURCE */
  1377.  
  1378. #ifdef GTK_TYPE_IMAGE
  1379.   /* GtkObject derivative GtkImage */
  1380. # define SvGtkImage(sv)    ((GtkImage*)gperl_get_object_check (sv, GTK_TYPE_IMAGE))
  1381. # define newSVGtkImage(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1382.   typedef GtkImage GtkImage_ornull;
  1383. # define SvGtkImage_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkImage(sv) : NULL)
  1384. # define newSVGtkImage_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1385. #endif /* GTK_TYPE_IMAGE */
  1386.  
  1387. #ifdef GTK_TYPE_IMAGE_MENU_ITEM
  1388.   /* GtkObject derivative GtkImageMenuItem */
  1389. # define SvGtkImageMenuItem(sv)    ((GtkImageMenuItem*)gperl_get_object_check (sv, GTK_TYPE_IMAGE_MENU_ITEM))
  1390. # define newSVGtkImageMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1391.   typedef GtkImageMenuItem GtkImageMenuItem_ornull;
  1392. # define SvGtkImageMenuItem_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkImageMenuItem(sv) : NULL)
  1393. # define newSVGtkImageMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1394. #endif /* GTK_TYPE_IMAGE_MENU_ITEM */
  1395.  
  1396. #ifdef GTK_TYPE_IMAGE_TYPE
  1397.   /* GEnum GtkImageType */
  1398. # define SvGtkImageType(sv)    ((GtkImageType)gperl_convert_enum (GTK_TYPE_IMAGE_TYPE, sv))
  1399. # define newSVGtkImageType(val)    (gperl_convert_back_enum (GTK_TYPE_IMAGE_TYPE, val))
  1400. #endif /* GTK_TYPE_IMAGE_TYPE */
  1401.  
  1402. #ifdef GTK_TYPE_IM_CONTEXT
  1403.   /* GObject derivative GtkIMContext */
  1404. # define SvGtkIMContext(sv)    ((GtkIMContext*)gperl_get_object_check (sv, GTK_TYPE_IM_CONTEXT))
  1405. # define newSVGtkIMContext(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1406.   typedef GtkIMContext GtkIMContext_ornull;
  1407. # define SvGtkIMContext_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkIMContext(sv) : NULL)
  1408. # define newSVGtkIMContext_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1409. typedef GtkIMContext GtkIMContext_noinc;
  1410. #define newSVGtkIMContext_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1411. typedef GtkIMContext GtkIMContext_noinc_ornull;
  1412. #define newSVGtkIMContext_noinc_ornull(val)    ((val) ? newSVGtkIMContext_noinc(val) : &PL_sv_undef)
  1413. #endif /* GTK_TYPE_IM_CONTEXT */
  1414.  
  1415. #ifdef GTK_TYPE_IM_CONTEXT_SIMPLE
  1416.   /* GObject derivative GtkIMContextSimple */
  1417. # define SvGtkIMContextSimple(sv)    ((GtkIMContextSimple*)gperl_get_object_check (sv, GTK_TYPE_IM_CONTEXT_SIMPLE))
  1418. # define newSVGtkIMContextSimple(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1419.   typedef GtkIMContextSimple GtkIMContextSimple_ornull;
  1420. # define SvGtkIMContextSimple_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkIMContextSimple(sv) : NULL)
  1421. # define newSVGtkIMContextSimple_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1422. typedef GtkIMContextSimple GtkIMContextSimple_noinc;
  1423. #define newSVGtkIMContextSimple_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1424. typedef GtkIMContextSimple GtkIMContextSimple_noinc_ornull;
  1425. #define newSVGtkIMContextSimple_noinc_ornull(val)    ((val) ? newSVGtkIMContextSimple_noinc(val) : &PL_sv_undef)
  1426. #endif /* GTK_TYPE_IM_CONTEXT_SIMPLE */
  1427.  
  1428. #ifdef GTK_TYPE_IM_MULTICONTEXT
  1429.   /* GObject derivative GtkIMMulticontext */
  1430. # define SvGtkIMMulticontext(sv)    ((GtkIMMulticontext*)gperl_get_object_check (sv, GTK_TYPE_IM_MULTICONTEXT))
  1431. # define newSVGtkIMMulticontext(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1432.   typedef GtkIMMulticontext GtkIMMulticontext_ornull;
  1433. # define SvGtkIMMulticontext_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkIMMulticontext(sv) : NULL)
  1434. # define newSVGtkIMMulticontext_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1435. typedef GtkIMMulticontext GtkIMMulticontext_noinc;
  1436. #define newSVGtkIMMulticontext_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1437. typedef GtkIMMulticontext GtkIMMulticontext_noinc_ornull;
  1438. #define newSVGtkIMMulticontext_noinc_ornull(val)    ((val) ? newSVGtkIMMulticontext_noinc(val) : &PL_sv_undef)
  1439. #endif /* GTK_TYPE_IM_MULTICONTEXT */
  1440.  
  1441. #ifdef GTK_TYPE_IM_PREEDIT_STYLE
  1442.   /* GEnum GtkIMPreeditStyle */
  1443. # define SvGtkIMPreeditStyle(sv)    ((GtkIMPreeditStyle)gperl_convert_enum (GTK_TYPE_IM_PREEDIT_STYLE, sv))
  1444. # define newSVGtkIMPreeditStyle(val)    (gperl_convert_back_enum (GTK_TYPE_IM_PREEDIT_STYLE, val))
  1445. #endif /* GTK_TYPE_IM_PREEDIT_STYLE */
  1446.  
  1447. #ifdef GTK_TYPE_IM_STATUS_STYLE
  1448.   /* GEnum GtkIMStatusStyle */
  1449. # define SvGtkIMStatusStyle(sv)    ((GtkIMStatusStyle)gperl_convert_enum (GTK_TYPE_IM_STATUS_STYLE, sv))
  1450. # define newSVGtkIMStatusStyle(val)    (gperl_convert_back_enum (GTK_TYPE_IM_STATUS_STYLE, val))
  1451. #endif /* GTK_TYPE_IM_STATUS_STYLE */
  1452.  
  1453. #ifdef GTK_TYPE_INPUT_DIALOG
  1454.   /* GtkObject derivative GtkInputDialog */
  1455. # define SvGtkInputDialog(sv)    ((GtkInputDialog*)gperl_get_object_check (sv, GTK_TYPE_INPUT_DIALOG))
  1456. # define newSVGtkInputDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1457.   typedef GtkInputDialog GtkInputDialog_ornull;
  1458. # define SvGtkInputDialog_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkInputDialog(sv) : NULL)
  1459. # define newSVGtkInputDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1460. #endif /* GTK_TYPE_INPUT_DIALOG */
  1461.  
  1462. #ifdef GTK_TYPE_INVISIBLE
  1463.   /* GtkObject derivative GtkInvisible */
  1464. # define SvGtkInvisible(sv)    ((GtkInvisible*)gperl_get_object_check (sv, GTK_TYPE_INVISIBLE))
  1465. # define newSVGtkInvisible(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1466.   typedef GtkInvisible GtkInvisible_ornull;
  1467. # define SvGtkInvisible_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkInvisible(sv) : NULL)
  1468. # define newSVGtkInvisible_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1469. #endif /* GTK_TYPE_INVISIBLE */
  1470.  
  1471. #ifdef GTK_TYPE_ITEM_FACTORY
  1472.   /* GtkObject derivative GtkItemFactory */
  1473. # define SvGtkItemFactory(sv)    ((GtkItemFactory*)gperl_get_object_check (sv, GTK_TYPE_ITEM_FACTORY))
  1474. # define newSVGtkItemFactory(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1475.   typedef GtkItemFactory GtkItemFactory_ornull;
  1476. # define SvGtkItemFactory_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkItemFactory(sv) : NULL)
  1477. # define newSVGtkItemFactory_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1478. #endif /* GTK_TYPE_ITEM_FACTORY */
  1479.  
  1480. #ifdef GTK_TYPE_ITEM
  1481.   /* GtkObject derivative GtkItem */
  1482. # define SvGtkItem(sv)    ((GtkItem*)gperl_get_object_check (sv, GTK_TYPE_ITEM))
  1483. # define newSVGtkItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1484.   typedef GtkItem GtkItem_ornull;
  1485. # define SvGtkItem_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkItem(sv) : NULL)
  1486. # define newSVGtkItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1487. #endif /* GTK_TYPE_ITEM */
  1488.  
  1489. #ifdef GTK_TYPE_JUSTIFICATION
  1490.   /* GEnum GtkJustification */
  1491. # define SvGtkJustification(sv)    ((GtkJustification)gperl_convert_enum (GTK_TYPE_JUSTIFICATION, sv))
  1492. # define newSVGtkJustification(val)    (gperl_convert_back_enum (GTK_TYPE_JUSTIFICATION, val))
  1493. #endif /* GTK_TYPE_JUSTIFICATION */
  1494.  
  1495. #ifdef GTK_TYPE_LABEL
  1496.   /* GtkObject derivative GtkLabel */
  1497. # define SvGtkLabel(sv)    ((GtkLabel*)gperl_get_object_check (sv, GTK_TYPE_LABEL))
  1498. # define newSVGtkLabel(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1499.   typedef GtkLabel GtkLabel_ornull;
  1500. # define SvGtkLabel_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkLabel(sv) : NULL)
  1501. # define newSVGtkLabel_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1502. #endif /* GTK_TYPE_LABEL */
  1503.  
  1504. #ifdef GTK_TYPE_LAYOUT
  1505.   /* GtkObject derivative GtkLayout */
  1506. # define SvGtkLayout(sv)    ((GtkLayout*)gperl_get_object_check (sv, GTK_TYPE_LAYOUT))
  1507. # define newSVGtkLayout(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1508.   typedef GtkLayout GtkLayout_ornull;
  1509. # define SvGtkLayout_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkLayout(sv) : NULL)
  1510. # define newSVGtkLayout_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1511. #endif /* GTK_TYPE_LAYOUT */
  1512.  
  1513. #ifdef GTK_TYPE_LIST
  1514.   /* GtkObject derivative GtkList */
  1515. # define SvGtkList(sv)    ((GtkList*)gperl_get_object_check (sv, GTK_TYPE_LIST))
  1516. # define newSVGtkList(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1517.   typedef GtkList GtkList_ornull;
  1518. # define SvGtkList_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkList(sv) : NULL)
  1519. # define newSVGtkList_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1520. #endif /* GTK_TYPE_LIST */
  1521.  
  1522. #ifdef GTK_TYPE_LIST_ITEM
  1523.   /* GtkObject derivative GtkListItem */
  1524. # define SvGtkListItem(sv)    ((GtkListItem*)gperl_get_object_check (sv, GTK_TYPE_LIST_ITEM))
  1525. # define newSVGtkListItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1526.   typedef GtkListItem GtkListItem_ornull;
  1527. # define SvGtkListItem_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkListItem(sv) : NULL)
  1528. # define newSVGtkListItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1529. #endif /* GTK_TYPE_LIST_ITEM */
  1530.  
  1531. #ifdef GTK_TYPE_LIST_STORE
  1532.   /* GObject derivative GtkListStore */
  1533. # define SvGtkListStore(sv)    ((GtkListStore*)gperl_get_object_check (sv, GTK_TYPE_LIST_STORE))
  1534. # define newSVGtkListStore(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1535.   typedef GtkListStore GtkListStore_ornull;
  1536. # define SvGtkListStore_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkListStore(sv) : NULL)
  1537. # define newSVGtkListStore_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1538. typedef GtkListStore GtkListStore_noinc;
  1539. #define newSVGtkListStore_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1540. typedef GtkListStore GtkListStore_noinc_ornull;
  1541. #define newSVGtkListStore_noinc_ornull(val)    ((val) ? newSVGtkListStore_noinc(val) : &PL_sv_undef)
  1542. #endif /* GTK_TYPE_LIST_STORE */
  1543.  
  1544. #ifdef GTK_TYPE_MATCH_TYPE
  1545.   /* GEnum GtkMatchType */
  1546. # define SvGtkMatchType(sv)    ((GtkMatchType)gperl_convert_enum (GTK_TYPE_MATCH_TYPE, sv))
  1547. # define newSVGtkMatchType(val)    (gperl_convert_back_enum (GTK_TYPE_MATCH_TYPE, val))
  1548. #endif /* GTK_TYPE_MATCH_TYPE */
  1549.  
  1550. #ifdef GTK_TYPE_MENU_BAR
  1551.   /* GtkObject derivative GtkMenuBar */
  1552. # define SvGtkMenuBar(sv)    ((GtkMenuBar*)gperl_get_object_check (sv, GTK_TYPE_MENU_BAR))
  1553. # define newSVGtkMenuBar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1554.   typedef GtkMenuBar GtkMenuBar_ornull;
  1555. # define SvGtkMenuBar_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkMenuBar(sv) : NULL)
  1556. # define newSVGtkMenuBar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1557. #endif /* GTK_TYPE_MENU_BAR */
  1558.  
  1559. #ifdef GTK_TYPE_MENU_DIRECTION_TYPE
  1560.   /* GEnum GtkMenuDirectionType */
  1561. # define SvGtkMenuDirectionType(sv)    ((GtkMenuDirectionType)gperl_convert_enum (GTK_TYPE_MENU_DIRECTION_TYPE, sv))
  1562. # define newSVGtkMenuDirectionType(val)    (gperl_convert_back_enum (GTK_TYPE_MENU_DIRECTION_TYPE, val))
  1563. #endif /* GTK_TYPE_MENU_DIRECTION_TYPE */
  1564.  
  1565. #ifdef GTK_TYPE_MENU
  1566.   /* GtkObject derivative GtkMenu */
  1567. # define SvGtkMenu(sv)    ((GtkMenu*)gperl_get_object_check (sv, GTK_TYPE_MENU))
  1568. # define newSVGtkMenu(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1569.   typedef GtkMenu GtkMenu_ornull;
  1570. # define SvGtkMenu_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkMenu(sv) : NULL)
  1571. # define newSVGtkMenu_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1572. #endif /* GTK_TYPE_MENU */
  1573.  
  1574. #ifdef GTK_TYPE_MENU_ITEM
  1575.   /* GtkObject derivative GtkMenuItem */
  1576. # define SvGtkMenuItem(sv)    ((GtkMenuItem*)gperl_get_object_check (sv, GTK_TYPE_MENU_ITEM))
  1577. # define newSVGtkMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1578.   typedef GtkMenuItem GtkMenuItem_ornull;
  1579. # define SvGtkMenuItem_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkMenuItem(sv) : NULL)
  1580. # define newSVGtkMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1581. #endif /* GTK_TYPE_MENU_ITEM */
  1582.  
  1583. #ifdef GTK_TYPE_MENU_SHELL
  1584.   /* GtkObject derivative GtkMenuShell */
  1585. # define SvGtkMenuShell(sv)    ((GtkMenuShell*)gperl_get_object_check (sv, GTK_TYPE_MENU_SHELL))
  1586. # define newSVGtkMenuShell(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1587.   typedef GtkMenuShell GtkMenuShell_ornull;
  1588. # define SvGtkMenuShell_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkMenuShell(sv) : NULL)
  1589. # define newSVGtkMenuShell_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1590. #endif /* GTK_TYPE_MENU_SHELL */
  1591.  
  1592. #ifdef GTK_TYPE_MESSAGE_DIALOG
  1593.   /* GtkObject derivative GtkMessageDialog */
  1594. # define SvGtkMessageDialog(sv)    ((GtkMessageDialog*)gperl_get_object_check (sv, GTK_TYPE_MESSAGE_DIALOG))
  1595. # define newSVGtkMessageDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1596.   typedef GtkMessageDialog GtkMessageDialog_ornull;
  1597. # define SvGtkMessageDialog_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkMessageDialog(sv) : NULL)
  1598. # define newSVGtkMessageDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1599. #endif /* GTK_TYPE_MESSAGE_DIALOG */
  1600.  
  1601. #ifdef GTK_TYPE_MESSAGE_TYPE
  1602.   /* GEnum GtkMessageType */
  1603. # define SvGtkMessageType(sv)    ((GtkMessageType)gperl_convert_enum (GTK_TYPE_MESSAGE_TYPE, sv))
  1604. # define newSVGtkMessageType(val)    (gperl_convert_back_enum (GTK_TYPE_MESSAGE_TYPE, val))
  1605. #endif /* GTK_TYPE_MESSAGE_TYPE */
  1606.  
  1607. #ifdef GTK_TYPE_METRIC_TYPE
  1608.   /* GEnum GtkMetricType */
  1609. # define SvGtkMetricType(sv)    ((GtkMetricType)gperl_convert_enum (GTK_TYPE_METRIC_TYPE, sv))
  1610. # define newSVGtkMetricType(val)    (gperl_convert_back_enum (GTK_TYPE_METRIC_TYPE, val))
  1611. #endif /* GTK_TYPE_METRIC_TYPE */
  1612.  
  1613. #ifdef GTK_TYPE_MISC
  1614.   /* GtkObject derivative GtkMisc */
  1615. # define SvGtkMisc(sv)    ((GtkMisc*)gperl_get_object_check (sv, GTK_TYPE_MISC))
  1616. # define newSVGtkMisc(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1617.   typedef GtkMisc GtkMisc_ornull;
  1618. # define SvGtkMisc_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkMisc(sv) : NULL)
  1619. # define newSVGtkMisc_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1620. #endif /* GTK_TYPE_MISC */
  1621.  
  1622. #ifdef GTK_TYPE_MOVEMENT_STEP
  1623.   /* GEnum GtkMovementStep */
  1624. # define SvGtkMovementStep(sv)    ((GtkMovementStep)gperl_convert_enum (GTK_TYPE_MOVEMENT_STEP, sv))
  1625. # define newSVGtkMovementStep(val)    (gperl_convert_back_enum (GTK_TYPE_MOVEMENT_STEP, val))
  1626. #endif /* GTK_TYPE_MOVEMENT_STEP */
  1627.  
  1628. #ifdef GTK_TYPE_NOTEBOOK
  1629.   /* GtkObject derivative GtkNotebook */
  1630. # define SvGtkNotebook(sv)    ((GtkNotebook*)gperl_get_object_check (sv, GTK_TYPE_NOTEBOOK))
  1631. # define newSVGtkNotebook(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1632.   typedef GtkNotebook GtkNotebook_ornull;
  1633. # define SvGtkNotebook_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkNotebook(sv) : NULL)
  1634. # define newSVGtkNotebook_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1635. #endif /* GTK_TYPE_NOTEBOOK */
  1636.  
  1637. #ifdef GTK_TYPE_NOTEBOOK_TAB
  1638.   /* GEnum GtkNotebookTab */
  1639. # define SvGtkNotebookTab(sv)    ((GtkNotebookTab)gperl_convert_enum (GTK_TYPE_NOTEBOOK_TAB, sv))
  1640. # define newSVGtkNotebookTab(val)    (gperl_convert_back_enum (GTK_TYPE_NOTEBOOK_TAB, val))
  1641. #endif /* GTK_TYPE_NOTEBOOK_TAB */
  1642.  
  1643. #ifdef GTK_TYPE_OBJECT_FLAGS
  1644.   /* GFlags GtkObjectFlags */
  1645. # define SvGtkObjectFlags(sv)    ((GtkObjectFlags)gperl_convert_flags (GTK_TYPE_OBJECT_FLAGS, sv))
  1646. # define newSVGtkObjectFlags(val)    (gperl_convert_back_flags (GTK_TYPE_OBJECT_FLAGS, val))
  1647. #endif /* GTK_TYPE_OBJECT_FLAGS */
  1648.  
  1649. #ifdef GTK_TYPE_OBJECT
  1650.   /* GtkObject derivative GtkObject */
  1651. # define SvGtkObject(sv)    ((GtkObject*)gperl_get_object_check (sv, GTK_TYPE_OBJECT))
  1652. # define newSVGtkObject(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1653.   typedef GtkObject GtkObject_ornull;
  1654. # define SvGtkObject_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkObject(sv) : NULL)
  1655. # define newSVGtkObject_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1656. #endif /* GTK_TYPE_OBJECT */
  1657.  
  1658. #ifdef GTK_TYPE_OPTION_MENU
  1659.   /* GtkObject derivative GtkOptionMenu */
  1660. # define SvGtkOptionMenu(sv)    ((GtkOptionMenu*)gperl_get_object_check (sv, GTK_TYPE_OPTION_MENU))
  1661. # define newSVGtkOptionMenu(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1662.   typedef GtkOptionMenu GtkOptionMenu_ornull;
  1663. # define SvGtkOptionMenu_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkOptionMenu(sv) : NULL)
  1664. # define newSVGtkOptionMenu_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1665. #endif /* GTK_TYPE_OPTION_MENU */
  1666.  
  1667. #ifdef GTK_TYPE_ORIENTATION
  1668.   /* GEnum GtkOrientation */
  1669. # define SvGtkOrientation(sv)    ((GtkOrientation)gperl_convert_enum (GTK_TYPE_ORIENTATION, sv))
  1670. # define newSVGtkOrientation(val)    (gperl_convert_back_enum (GTK_TYPE_ORIENTATION, val))
  1671. #endif /* GTK_TYPE_ORIENTATION */
  1672.  
  1673. #ifdef GTK_TYPE_PACK_TYPE
  1674.   /* GEnum GtkPackType */
  1675. # define SvGtkPackType(sv)    ((GtkPackType)gperl_convert_enum (GTK_TYPE_PACK_TYPE, sv))
  1676. # define newSVGtkPackType(val)    (gperl_convert_back_enum (GTK_TYPE_PACK_TYPE, val))
  1677. #endif /* GTK_TYPE_PACK_TYPE */
  1678.  
  1679. #ifdef GTK_TYPE_PANED
  1680.   /* GtkObject derivative GtkPaned */
  1681. # define SvGtkPaned(sv)    ((GtkPaned*)gperl_get_object_check (sv, GTK_TYPE_PANED))
  1682. # define newSVGtkPaned(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1683.   typedef GtkPaned GtkPaned_ornull;
  1684. # define SvGtkPaned_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkPaned(sv) : NULL)
  1685. # define newSVGtkPaned_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1686. #endif /* GTK_TYPE_PANED */
  1687.  
  1688. #ifdef GTK_TYPE_PATH_PRIORITY_TYPE
  1689.   /* GEnum GtkPathPriorityType */
  1690. # define SvGtkPathPriorityType(sv)    ((GtkPathPriorityType)gperl_convert_enum (GTK_TYPE_PATH_PRIORITY_TYPE, sv))
  1691. # define newSVGtkPathPriorityType(val)    (gperl_convert_back_enum (GTK_TYPE_PATH_PRIORITY_TYPE, val))
  1692. #endif /* GTK_TYPE_PATH_PRIORITY_TYPE */
  1693.  
  1694. #ifdef GTK_TYPE_PATH_TYPE
  1695.   /* GEnum GtkPathType */
  1696. # define SvGtkPathType(sv)    ((GtkPathType)gperl_convert_enum (GTK_TYPE_PATH_TYPE, sv))
  1697. # define newSVGtkPathType(val)    (gperl_convert_back_enum (GTK_TYPE_PATH_TYPE, val))
  1698. #endif /* GTK_TYPE_PATH_TYPE */
  1699.  
  1700. #ifdef GTK_TYPE_PLUG
  1701.   /* GtkObject derivative GtkPlug */
  1702. # define SvGtkPlug(sv)    ((GtkPlug*)gperl_get_object_check (sv, GTK_TYPE_PLUG))
  1703. # define newSVGtkPlug(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1704.   typedef GtkPlug GtkPlug_ornull;
  1705. # define SvGtkPlug_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkPlug(sv) : NULL)
  1706. # define newSVGtkPlug_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1707. #endif /* GTK_TYPE_PLUG */
  1708.  
  1709. #ifdef GTK_TYPE_POLICY_TYPE
  1710.   /* GEnum GtkPolicyType */
  1711. # define SvGtkPolicyType(sv)    ((GtkPolicyType)gperl_convert_enum (GTK_TYPE_POLICY_TYPE, sv))
  1712. # define newSVGtkPolicyType(val)    (gperl_convert_back_enum (GTK_TYPE_POLICY_TYPE, val))
  1713. #endif /* GTK_TYPE_POLICY_TYPE */
  1714.  
  1715. #ifdef GTK_TYPE_POSITION_TYPE
  1716.   /* GEnum GtkPositionType */
  1717. # define SvGtkPositionType(sv)    ((GtkPositionType)gperl_convert_enum (GTK_TYPE_POSITION_TYPE, sv))
  1718. # define newSVGtkPositionType(val)    (gperl_convert_back_enum (GTK_TYPE_POSITION_TYPE, val))
  1719. #endif /* GTK_TYPE_POSITION_TYPE */
  1720.  
  1721. #ifdef GTK_TYPE_PREVIEW_TYPE
  1722.   /* GEnum GtkPreviewType */
  1723. # define SvGtkPreviewType(sv)    ((GtkPreviewType)gperl_convert_enum (GTK_TYPE_PREVIEW_TYPE, sv))
  1724. # define newSVGtkPreviewType(val)    (gperl_convert_back_enum (GTK_TYPE_PREVIEW_TYPE, val))
  1725. #endif /* GTK_TYPE_PREVIEW_TYPE */
  1726.  
  1727. #ifdef GTK_TYPE_PRIVATE_FLAGS
  1728.   /* GFlags GtkPrivateFlags */
  1729. # define SvGtkPrivateFlags(sv)    ((GtkPrivateFlags)gperl_convert_flags (GTK_TYPE_PRIVATE_FLAGS, sv))
  1730. # define newSVGtkPrivateFlags(val)    (gperl_convert_back_flags (GTK_TYPE_PRIVATE_FLAGS, val))
  1731. #endif /* GTK_TYPE_PRIVATE_FLAGS */
  1732.  
  1733. #ifdef GTK_TYPE_PROGRESS_BAR
  1734.   /* GtkObject derivative GtkProgressBar */
  1735. # define SvGtkProgressBar(sv)    ((GtkProgressBar*)gperl_get_object_check (sv, GTK_TYPE_PROGRESS_BAR))
  1736. # define newSVGtkProgressBar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1737.   typedef GtkProgressBar GtkProgressBar_ornull;
  1738. # define SvGtkProgressBar_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkProgressBar(sv) : NULL)
  1739. # define newSVGtkProgressBar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1740. #endif /* GTK_TYPE_PROGRESS_BAR */
  1741.  
  1742. #ifdef GTK_TYPE_PROGRESS_BAR_ORIENTATION
  1743.   /* GEnum GtkProgressBarOrientation */
  1744. # define SvGtkProgressBarOrientation(sv)    ((GtkProgressBarOrientation)gperl_convert_enum (GTK_TYPE_PROGRESS_BAR_ORIENTATION, sv))
  1745. # define newSVGtkProgressBarOrientation(val)    (gperl_convert_back_enum (GTK_TYPE_PROGRESS_BAR_ORIENTATION, val))
  1746. #endif /* GTK_TYPE_PROGRESS_BAR_ORIENTATION */
  1747.  
  1748. #ifdef GTK_TYPE_PROGRESS_BAR_STYLE
  1749.   /* GEnum GtkProgressBarStyle */
  1750. # define SvGtkProgressBarStyle(sv)    ((GtkProgressBarStyle)gperl_convert_enum (GTK_TYPE_PROGRESS_BAR_STYLE, sv))
  1751. # define newSVGtkProgressBarStyle(val)    (gperl_convert_back_enum (GTK_TYPE_PROGRESS_BAR_STYLE, val))
  1752. #endif /* GTK_TYPE_PROGRESS_BAR_STYLE */
  1753.  
  1754. #ifdef GTK_TYPE_RADIO_BUTTON
  1755.   /* GtkObject derivative GtkRadioButton */
  1756. # define SvGtkRadioButton(sv)    ((GtkRadioButton*)gperl_get_object_check (sv, GTK_TYPE_RADIO_BUTTON))
  1757. # define newSVGtkRadioButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1758.   typedef GtkRadioButton GtkRadioButton_ornull;
  1759. # define SvGtkRadioButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkRadioButton(sv) : NULL)
  1760. # define newSVGtkRadioButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1761. #endif /* GTK_TYPE_RADIO_BUTTON */
  1762.  
  1763. #ifdef GTK_TYPE_RADIO_MENU_ITEM
  1764.   /* GtkObject derivative GtkRadioMenuItem */
  1765. # define SvGtkRadioMenuItem(sv)    ((GtkRadioMenuItem*)gperl_get_object_check (sv, GTK_TYPE_RADIO_MENU_ITEM))
  1766. # define newSVGtkRadioMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1767.   typedef GtkRadioMenuItem GtkRadioMenuItem_ornull;
  1768. # define SvGtkRadioMenuItem_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkRadioMenuItem(sv) : NULL)
  1769. # define newSVGtkRadioMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1770. #endif /* GTK_TYPE_RADIO_MENU_ITEM */
  1771.  
  1772. #ifdef GTK_TYPE_RANGE
  1773.   /* GtkObject derivative GtkRange */
  1774. # define SvGtkRange(sv)    ((GtkRange*)gperl_get_object_check (sv, GTK_TYPE_RANGE))
  1775. # define newSVGtkRange(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1776.   typedef GtkRange GtkRange_ornull;
  1777. # define SvGtkRange_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkRange(sv) : NULL)
  1778. # define newSVGtkRange_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1779. #endif /* GTK_TYPE_RANGE */
  1780.  
  1781. #ifdef GTK_TYPE_RC_FLAGS
  1782.   /* GFlags GtkRcFlags */
  1783. # define SvGtkRcFlags(sv)    ((GtkRcFlags)gperl_convert_flags (GTK_TYPE_RC_FLAGS, sv))
  1784. # define newSVGtkRcFlags(val)    (gperl_convert_back_flags (GTK_TYPE_RC_FLAGS, val))
  1785. #endif /* GTK_TYPE_RC_FLAGS */
  1786.  
  1787. #ifdef GTK_TYPE_RC_STYLE
  1788.   /* GObject derivative GtkRcStyle */
  1789. # define SvGtkRcStyle(sv)    ((GtkRcStyle*)gperl_get_object_check (sv, GTK_TYPE_RC_STYLE))
  1790. # define newSVGtkRcStyle(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1791.   typedef GtkRcStyle GtkRcStyle_ornull;
  1792. # define SvGtkRcStyle_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkRcStyle(sv) : NULL)
  1793. # define newSVGtkRcStyle_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1794. typedef GtkRcStyle GtkRcStyle_noinc;
  1795. #define newSVGtkRcStyle_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1796. typedef GtkRcStyle GtkRcStyle_noinc_ornull;
  1797. #define newSVGtkRcStyle_noinc_ornull(val)    ((val) ? newSVGtkRcStyle_noinc(val) : &PL_sv_undef)
  1798. #endif /* GTK_TYPE_RC_STYLE */
  1799.  
  1800. #ifdef GTK_TYPE_RC_TOKEN_TYPE
  1801.   /* GEnum GtkRcTokenType */
  1802. # define SvGtkRcTokenType(sv)    ((GtkRcTokenType)gperl_convert_enum (GTK_TYPE_RC_TOKEN_TYPE, sv))
  1803. # define newSVGtkRcTokenType(val)    (gperl_convert_back_enum (GTK_TYPE_RC_TOKEN_TYPE, val))
  1804. #endif /* GTK_TYPE_RC_TOKEN_TYPE */
  1805.  
  1806. #ifdef GTK_TYPE_RELIEF_STYLE
  1807.   /* GEnum GtkReliefStyle */
  1808. # define SvGtkReliefStyle(sv)    ((GtkReliefStyle)gperl_convert_enum (GTK_TYPE_RELIEF_STYLE, sv))
  1809. # define newSVGtkReliefStyle(val)    (gperl_convert_back_enum (GTK_TYPE_RELIEF_STYLE, val))
  1810. #endif /* GTK_TYPE_RELIEF_STYLE */
  1811.  
  1812. #ifdef GTK_TYPE_REQUISITION
  1813.   /* GBoxed GtkRequisition */
  1814.   typedef GtkRequisition GtkRequisition_ornull;
  1815. # define SvGtkRequisition(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_REQUISITION))
  1816. # define SvGtkRequisition_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkRequisition (sv) : NULL)
  1817.   typedef GtkRequisition GtkRequisition_own;
  1818.   typedef GtkRequisition GtkRequisition_copy;
  1819.   typedef GtkRequisition GtkRequisition_own_ornull;
  1820. # define newSVGtkRequisition(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_REQUISITION, FALSE))
  1821. # define newSVGtkRequisition_ornull(val)    ((val) ? newSVGtkRequisition(val) : &PL_sv_undef)
  1822. # define newSVGtkRequisition_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_REQUISITION, TRUE))
  1823. # define newSVGtkRequisition_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_REQUISITION))
  1824. # define newSVGtkRequisition_own_ornull(val)    ((val) ? newSVGtkRequisition_own(val) : &PL_sv_undef)
  1825. #endif /* GTK_TYPE_REQUISITION */
  1826.  
  1827. #ifdef GTK_TYPE_RESIZE_MODE
  1828.   /* GEnum GtkResizeMode */
  1829. # define SvGtkResizeMode(sv)    ((GtkResizeMode)gperl_convert_enum (GTK_TYPE_RESIZE_MODE, sv))
  1830. # define newSVGtkResizeMode(val)    (gperl_convert_back_enum (GTK_TYPE_RESIZE_MODE, val))
  1831. #endif /* GTK_TYPE_RESIZE_MODE */
  1832.  
  1833. #ifdef GTK_TYPE_RESPONSE_TYPE
  1834.   /* GEnum GtkResponseType */
  1835. # define SvGtkResponseType(sv)    ((GtkResponseType)gperl_convert_enum (GTK_TYPE_RESPONSE_TYPE, sv))
  1836. # define newSVGtkResponseType(val)    (gperl_convert_back_enum (GTK_TYPE_RESPONSE_TYPE, val))
  1837. #endif /* GTK_TYPE_RESPONSE_TYPE */
  1838.  
  1839. #ifdef GTK_TYPE_RULER
  1840.   /* GtkObject derivative GtkRuler */
  1841. # define SvGtkRuler(sv)    ((GtkRuler*)gperl_get_object_check (sv, GTK_TYPE_RULER))
  1842. # define newSVGtkRuler(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1843.   typedef GtkRuler GtkRuler_ornull;
  1844. # define SvGtkRuler_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkRuler(sv) : NULL)
  1845. # define newSVGtkRuler_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1846. #endif /* GTK_TYPE_RULER */
  1847.  
  1848. #ifdef GTK_TYPE_SCALE
  1849.   /* GtkObject derivative GtkScale */
  1850. # define SvGtkScale(sv)    ((GtkScale*)gperl_get_object_check (sv, GTK_TYPE_SCALE))
  1851. # define newSVGtkScale(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1852.   typedef GtkScale GtkScale_ornull;
  1853. # define SvGtkScale_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkScale(sv) : NULL)
  1854. # define newSVGtkScale_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1855. #endif /* GTK_TYPE_SCALE */
  1856.  
  1857. #ifdef GTK_TYPE_SCROLLBAR
  1858.   /* GtkObject derivative GtkScrollbar */
  1859. # define SvGtkScrollbar(sv)    ((GtkScrollbar*)gperl_get_object_check (sv, GTK_TYPE_SCROLLBAR))
  1860. # define newSVGtkScrollbar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1861.   typedef GtkScrollbar GtkScrollbar_ornull;
  1862. # define SvGtkScrollbar_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkScrollbar(sv) : NULL)
  1863. # define newSVGtkScrollbar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1864. #endif /* GTK_TYPE_SCROLLBAR */
  1865.  
  1866. #ifdef GTK_TYPE_SCROLLED_WINDOW
  1867.   /* GtkObject derivative GtkScrolledWindow */
  1868. # define SvGtkScrolledWindow(sv)    ((GtkScrolledWindow*)gperl_get_object_check (sv, GTK_TYPE_SCROLLED_WINDOW))
  1869. # define newSVGtkScrolledWindow(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1870.   typedef GtkScrolledWindow GtkScrolledWindow_ornull;
  1871. # define SvGtkScrolledWindow_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkScrolledWindow(sv) : NULL)
  1872. # define newSVGtkScrolledWindow_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1873. #endif /* GTK_TYPE_SCROLLED_WINDOW */
  1874.  
  1875. #ifdef GTK_TYPE_SCROLL_TYPE
  1876.   /* GEnum GtkScrollType */
  1877. # define SvGtkScrollType(sv)    ((GtkScrollType)gperl_convert_enum (GTK_TYPE_SCROLL_TYPE, sv))
  1878. # define newSVGtkScrollType(val)    (gperl_convert_back_enum (GTK_TYPE_SCROLL_TYPE, val))
  1879. #endif /* GTK_TYPE_SCROLL_TYPE */
  1880.  
  1881. #ifdef GTK_TYPE_SELECTION_DATA
  1882.   /* GBoxed GtkSelectionData */
  1883.   typedef GtkSelectionData GtkSelectionData_ornull;
  1884. # define SvGtkSelectionData(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_SELECTION_DATA))
  1885. # define SvGtkSelectionData_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkSelectionData (sv) : NULL)
  1886.   typedef GtkSelectionData GtkSelectionData_own;
  1887.   typedef GtkSelectionData GtkSelectionData_copy;
  1888.   typedef GtkSelectionData GtkSelectionData_own_ornull;
  1889. # define newSVGtkSelectionData(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_SELECTION_DATA, FALSE))
  1890. # define newSVGtkSelectionData_ornull(val)    ((val) ? newSVGtkSelectionData(val) : &PL_sv_undef)
  1891. # define newSVGtkSelectionData_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_SELECTION_DATA, TRUE))
  1892. # define newSVGtkSelectionData_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_SELECTION_DATA))
  1893. # define newSVGtkSelectionData_own_ornull(val)    ((val) ? newSVGtkSelectionData_own(val) : &PL_sv_undef)
  1894. #endif /* GTK_TYPE_SELECTION_DATA */
  1895.  
  1896. #ifdef GTK_TYPE_SELECTION_MODE
  1897.   /* GEnum GtkSelectionMode */
  1898. # define SvGtkSelectionMode(sv)    ((GtkSelectionMode)gperl_convert_enum (GTK_TYPE_SELECTION_MODE, sv))
  1899. # define newSVGtkSelectionMode(val)    (gperl_convert_back_enum (GTK_TYPE_SELECTION_MODE, val))
  1900. #endif /* GTK_TYPE_SELECTION_MODE */
  1901.  
  1902. #ifdef GTK_TYPE_SEPARATOR
  1903.   /* GtkObject derivative GtkSeparator */
  1904. # define SvGtkSeparator(sv)    ((GtkSeparator*)gperl_get_object_check (sv, GTK_TYPE_SEPARATOR))
  1905. # define newSVGtkSeparator(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1906.   typedef GtkSeparator GtkSeparator_ornull;
  1907. # define SvGtkSeparator_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkSeparator(sv) : NULL)
  1908. # define newSVGtkSeparator_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1909. #endif /* GTK_TYPE_SEPARATOR */
  1910.  
  1911. #ifdef GTK_TYPE_SEPARATOR_MENU_ITEM
  1912.   /* GtkObject derivative GtkSeparatorMenuItem */
  1913. # define SvGtkSeparatorMenuItem(sv)    ((GtkSeparatorMenuItem*)gperl_get_object_check (sv, GTK_TYPE_SEPARATOR_MENU_ITEM))
  1914. # define newSVGtkSeparatorMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1915.   typedef GtkSeparatorMenuItem GtkSeparatorMenuItem_ornull;
  1916. # define SvGtkSeparatorMenuItem_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkSeparatorMenuItem(sv) : NULL)
  1917. # define newSVGtkSeparatorMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1918. #endif /* GTK_TYPE_SEPARATOR_MENU_ITEM */
  1919.  
  1920. #ifdef GTK_TYPE_SETTINGS
  1921.   /* GObject derivative GtkSettings */
  1922. # define SvGtkSettings(sv)    ((GtkSettings*)gperl_get_object_check (sv, GTK_TYPE_SETTINGS))
  1923. # define newSVGtkSettings(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1924.   typedef GtkSettings GtkSettings_ornull;
  1925. # define SvGtkSettings_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkSettings(sv) : NULL)
  1926. # define newSVGtkSettings_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1927. typedef GtkSettings GtkSettings_noinc;
  1928. #define newSVGtkSettings_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1929. typedef GtkSettings GtkSettings_noinc_ornull;
  1930. #define newSVGtkSettings_noinc_ornull(val)    ((val) ? newSVGtkSettings_noinc(val) : &PL_sv_undef)
  1931. #endif /* GTK_TYPE_SETTINGS */
  1932.  
  1933. #ifdef GTK_TYPE_SHADOW_TYPE
  1934.   /* GEnum GtkShadowType */
  1935. # define SvGtkShadowType(sv)    ((GtkShadowType)gperl_convert_enum (GTK_TYPE_SHADOW_TYPE, sv))
  1936. # define newSVGtkShadowType(val)    (gperl_convert_back_enum (GTK_TYPE_SHADOW_TYPE, val))
  1937. #endif /* GTK_TYPE_SHADOW_TYPE */
  1938.  
  1939. #ifdef GTK_TYPE_SIDE_TYPE
  1940.   /* GEnum GtkSideType */
  1941. # define SvGtkSideType(sv)    ((GtkSideType)gperl_convert_enum (GTK_TYPE_SIDE_TYPE, sv))
  1942. # define newSVGtkSideType(val)    (gperl_convert_back_enum (GTK_TYPE_SIDE_TYPE, val))
  1943. #endif /* GTK_TYPE_SIDE_TYPE */
  1944.  
  1945. #ifdef GTK_TYPE_SIGNAL_RUN_TYPE
  1946.   /* GFlags GtkSignalRunType */
  1947. # define SvGtkSignalRunType(sv)    ((GtkSignalRunType)gperl_convert_flags (GTK_TYPE_SIGNAL_RUN_TYPE, sv))
  1948. # define newSVGtkSignalRunType(val)    (gperl_convert_back_flags (GTK_TYPE_SIGNAL_RUN_TYPE, val))
  1949. #endif /* GTK_TYPE_SIGNAL_RUN_TYPE */
  1950.  
  1951. #ifdef GTK_TYPE_SIZE_GROUP
  1952.   /* GObject derivative GtkSizeGroup */
  1953. # define SvGtkSizeGroup(sv)    ((GtkSizeGroup*)gperl_get_object_check (sv, GTK_TYPE_SIZE_GROUP))
  1954. # define newSVGtkSizeGroup(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  1955.   typedef GtkSizeGroup GtkSizeGroup_ornull;
  1956. # define SvGtkSizeGroup_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkSizeGroup(sv) : NULL)
  1957. # define newSVGtkSizeGroup_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  1958. typedef GtkSizeGroup GtkSizeGroup_noinc;
  1959. #define newSVGtkSizeGroup_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  1960. typedef GtkSizeGroup GtkSizeGroup_noinc_ornull;
  1961. #define newSVGtkSizeGroup_noinc_ornull(val)    ((val) ? newSVGtkSizeGroup_noinc(val) : &PL_sv_undef)
  1962. #endif /* GTK_TYPE_SIZE_GROUP */
  1963.  
  1964. #ifdef GTK_TYPE_SIZE_GROUP_MODE
  1965.   /* GEnum GtkSizeGroupMode */
  1966. # define SvGtkSizeGroupMode(sv)    ((GtkSizeGroupMode)gperl_convert_enum (GTK_TYPE_SIZE_GROUP_MODE, sv))
  1967. # define newSVGtkSizeGroupMode(val)    (gperl_convert_back_enum (GTK_TYPE_SIZE_GROUP_MODE, val))
  1968. #endif /* GTK_TYPE_SIZE_GROUP_MODE */
  1969.  
  1970. #ifdef GTK_TYPE_SOCKET
  1971.   /* GtkObject derivative GtkSocket */
  1972. # define SvGtkSocket(sv)    ((GtkSocket*)gperl_get_object_check (sv, GTK_TYPE_SOCKET))
  1973. # define newSVGtkSocket(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1974.   typedef GtkSocket GtkSocket_ornull;
  1975. # define SvGtkSocket_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkSocket(sv) : NULL)
  1976. # define newSVGtkSocket_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1977. #endif /* GTK_TYPE_SOCKET */
  1978.  
  1979. #ifdef GTK_TYPE_SORT_TYPE
  1980.   /* GEnum GtkSortType */
  1981. # define SvGtkSortType(sv)    ((GtkSortType)gperl_convert_enum (GTK_TYPE_SORT_TYPE, sv))
  1982. # define newSVGtkSortType(val)    (gperl_convert_back_enum (GTK_TYPE_SORT_TYPE, val))
  1983. #endif /* GTK_TYPE_SORT_TYPE */
  1984.  
  1985. #ifdef GTK_TYPE_SPIN_BUTTON
  1986.   /* GtkObject derivative GtkSpinButton */
  1987. # define SvGtkSpinButton(sv)    ((GtkSpinButton*)gperl_get_object_check (sv, GTK_TYPE_SPIN_BUTTON))
  1988. # define newSVGtkSpinButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1989.   typedef GtkSpinButton GtkSpinButton_ornull;
  1990. # define SvGtkSpinButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkSpinButton(sv) : NULL)
  1991. # define newSVGtkSpinButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  1992. #endif /* GTK_TYPE_SPIN_BUTTON */
  1993.  
  1994. #ifdef GTK_TYPE_SPIN_BUTTON_UPDATE_POLICY
  1995.   /* GEnum GtkSpinButtonUpdatePolicy */
  1996. # define SvGtkSpinButtonUpdatePolicy(sv)    ((GtkSpinButtonUpdatePolicy)gperl_convert_enum (GTK_TYPE_SPIN_BUTTON_UPDATE_POLICY, sv))
  1997. # define newSVGtkSpinButtonUpdatePolicy(val)    (gperl_convert_back_enum (GTK_TYPE_SPIN_BUTTON_UPDATE_POLICY, val))
  1998. #endif /* GTK_TYPE_SPIN_BUTTON_UPDATE_POLICY */
  1999.  
  2000. #ifdef GTK_TYPE_SPIN_TYPE
  2001.   /* GEnum GtkSpinType */
  2002. # define SvGtkSpinType(sv)    ((GtkSpinType)gperl_convert_enum (GTK_TYPE_SPIN_TYPE, sv))
  2003. # define newSVGtkSpinType(val)    (gperl_convert_back_enum (GTK_TYPE_SPIN_TYPE, val))
  2004. #endif /* GTK_TYPE_SPIN_TYPE */
  2005.  
  2006. #ifdef GTK_TYPE_STATE_TYPE
  2007.   /* GEnum GtkStateType */
  2008. # define SvGtkStateType(sv)    ((GtkStateType)gperl_convert_enum (GTK_TYPE_STATE_TYPE, sv))
  2009. # define newSVGtkStateType(val)    (gperl_convert_back_enum (GTK_TYPE_STATE_TYPE, val))
  2010. #endif /* GTK_TYPE_STATE_TYPE */
  2011.  
  2012. #ifdef GTK_TYPE_STATUSBAR
  2013.   /* GtkObject derivative GtkStatusbar */
  2014. # define SvGtkStatusbar(sv)    ((GtkStatusbar*)gperl_get_object_check (sv, GTK_TYPE_STATUSBAR))
  2015. # define newSVGtkStatusbar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2016.   typedef GtkStatusbar GtkStatusbar_ornull;
  2017. # define SvGtkStatusbar_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkStatusbar(sv) : NULL)
  2018. # define newSVGtkStatusbar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2019. #endif /* GTK_TYPE_STATUSBAR */
  2020.  
  2021. #ifdef GTK_TYPE_STYLE
  2022.   /* GObject derivative GtkStyle */
  2023. # define SvGtkStyle(sv)    ((GtkStyle*)gperl_get_object_check (sv, GTK_TYPE_STYLE))
  2024. # define newSVGtkStyle(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2025.   typedef GtkStyle GtkStyle_ornull;
  2026. # define SvGtkStyle_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkStyle(sv) : NULL)
  2027. # define newSVGtkStyle_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2028. typedef GtkStyle GtkStyle_noinc;
  2029. #define newSVGtkStyle_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2030. typedef GtkStyle GtkStyle_noinc_ornull;
  2031. #define newSVGtkStyle_noinc_ornull(val)    ((val) ? newSVGtkStyle_noinc(val) : &PL_sv_undef)
  2032. #endif /* GTK_TYPE_STYLE */
  2033.  
  2034. #ifdef GTK_TYPE_SUBMENU_DIRECTION
  2035.   /* GEnum GtkSubmenuDirection */
  2036. # define SvGtkSubmenuDirection(sv)    ((GtkSubmenuDirection)gperl_convert_enum (GTK_TYPE_SUBMENU_DIRECTION, sv))
  2037. # define newSVGtkSubmenuDirection(val)    (gperl_convert_back_enum (GTK_TYPE_SUBMENU_DIRECTION, val))
  2038. #endif /* GTK_TYPE_SUBMENU_DIRECTION */
  2039.  
  2040. #ifdef GTK_TYPE_SUBMENU_PLACEMENT
  2041.   /* GEnum GtkSubmenuPlacement */
  2042. # define SvGtkSubmenuPlacement(sv)    ((GtkSubmenuPlacement)gperl_convert_enum (GTK_TYPE_SUBMENU_PLACEMENT, sv))
  2043. # define newSVGtkSubmenuPlacement(val)    (gperl_convert_back_enum (GTK_TYPE_SUBMENU_PLACEMENT, val))
  2044. #endif /* GTK_TYPE_SUBMENU_PLACEMENT */
  2045.  
  2046. #ifdef GTK_TYPE_TABLE
  2047.   /* GtkObject derivative GtkTable */
  2048. # define SvGtkTable(sv)    ((GtkTable*)gperl_get_object_check (sv, GTK_TYPE_TABLE))
  2049. # define newSVGtkTable(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2050.   typedef GtkTable GtkTable_ornull;
  2051. # define SvGtkTable_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTable(sv) : NULL)
  2052. # define newSVGtkTable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2053. #endif /* GTK_TYPE_TABLE */
  2054.  
  2055. #ifdef GTK_TYPE_TARGET_FLAGS
  2056.   /* GFlags GtkTargetFlags */
  2057. # define SvGtkTargetFlags(sv)    ((GtkTargetFlags)gperl_convert_flags (GTK_TYPE_TARGET_FLAGS, sv))
  2058. # define newSVGtkTargetFlags(val)    (gperl_convert_back_flags (GTK_TYPE_TARGET_FLAGS, val))
  2059. #endif /* GTK_TYPE_TARGET_FLAGS */
  2060.  
  2061. #ifdef GTK_TYPE_TEAROFF_MENU_ITEM
  2062.   /* GtkObject derivative GtkTearoffMenuItem */
  2063. # define SvGtkTearoffMenuItem(sv)    ((GtkTearoffMenuItem*)gperl_get_object_check (sv, GTK_TYPE_TEAROFF_MENU_ITEM))
  2064. # define newSVGtkTearoffMenuItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2065.   typedef GtkTearoffMenuItem GtkTearoffMenuItem_ornull;
  2066. # define SvGtkTearoffMenuItem_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTearoffMenuItem(sv) : NULL)
  2067. # define newSVGtkTearoffMenuItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2068. #endif /* GTK_TYPE_TEAROFF_MENU_ITEM */
  2069.  
  2070. #ifdef GTK_TYPE_TEXT_ATTRIBUTES
  2071.   /* GBoxed GtkTextAttributes */
  2072.   typedef GtkTextAttributes GtkTextAttributes_ornull;
  2073. # define SvGtkTextAttributes(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_TEXT_ATTRIBUTES))
  2074. # define SvGtkTextAttributes_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTextAttributes (sv) : NULL)
  2075.   typedef GtkTextAttributes GtkTextAttributes_own;
  2076.   typedef GtkTextAttributes GtkTextAttributes_copy;
  2077.   typedef GtkTextAttributes GtkTextAttributes_own_ornull;
  2078. # define newSVGtkTextAttributes(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TEXT_ATTRIBUTES, FALSE))
  2079. # define newSVGtkTextAttributes_ornull(val)    ((val) ? newSVGtkTextAttributes(val) : &PL_sv_undef)
  2080. # define newSVGtkTextAttributes_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TEXT_ATTRIBUTES, TRUE))
  2081. # define newSVGtkTextAttributes_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TEXT_ATTRIBUTES))
  2082. # define newSVGtkTextAttributes_own_ornull(val)    ((val) ? newSVGtkTextAttributes_own(val) : &PL_sv_undef)
  2083. #endif /* GTK_TYPE_TEXT_ATTRIBUTES */
  2084.  
  2085. #ifdef GTK_TYPE_TEXT_BUFFER
  2086.   /* GObject derivative GtkTextBuffer */
  2087. # define SvGtkTextBuffer(sv)    ((GtkTextBuffer*)gperl_get_object_check (sv, GTK_TYPE_TEXT_BUFFER))
  2088. # define newSVGtkTextBuffer(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2089.   typedef GtkTextBuffer GtkTextBuffer_ornull;
  2090. # define SvGtkTextBuffer_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTextBuffer(sv) : NULL)
  2091. # define newSVGtkTextBuffer_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2092. typedef GtkTextBuffer GtkTextBuffer_noinc;
  2093. #define newSVGtkTextBuffer_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2094. typedef GtkTextBuffer GtkTextBuffer_noinc_ornull;
  2095. #define newSVGtkTextBuffer_noinc_ornull(val)    ((val) ? newSVGtkTextBuffer_noinc(val) : &PL_sv_undef)
  2096. #endif /* GTK_TYPE_TEXT_BUFFER */
  2097.  
  2098. #ifdef GTK_TYPE_TEXT_CHILD_ANCHOR
  2099.   /* GObject derivative GtkTextChildAnchor */
  2100. # define SvGtkTextChildAnchor(sv)    ((GtkTextChildAnchor*)gperl_get_object_check (sv, GTK_TYPE_TEXT_CHILD_ANCHOR))
  2101. # define newSVGtkTextChildAnchor(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2102.   typedef GtkTextChildAnchor GtkTextChildAnchor_ornull;
  2103. # define SvGtkTextChildAnchor_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTextChildAnchor(sv) : NULL)
  2104. # define newSVGtkTextChildAnchor_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2105. typedef GtkTextChildAnchor GtkTextChildAnchor_noinc;
  2106. #define newSVGtkTextChildAnchor_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2107. typedef GtkTextChildAnchor GtkTextChildAnchor_noinc_ornull;
  2108. #define newSVGtkTextChildAnchor_noinc_ornull(val)    ((val) ? newSVGtkTextChildAnchor_noinc(val) : &PL_sv_undef)
  2109. #endif /* GTK_TYPE_TEXT_CHILD_ANCHOR */
  2110.  
  2111. #ifdef GTK_TYPE_TEXT_DIRECTION
  2112.   /* GEnum GtkTextDirection */
  2113. # define SvGtkTextDirection(sv)    ((GtkTextDirection)gperl_convert_enum (GTK_TYPE_TEXT_DIRECTION, sv))
  2114. # define newSVGtkTextDirection(val)    (gperl_convert_back_enum (GTK_TYPE_TEXT_DIRECTION, val))
  2115. #endif /* GTK_TYPE_TEXT_DIRECTION */
  2116.  
  2117. #ifdef GTK_TYPE_TEXT_ITER
  2118.   /* GBoxed GtkTextIter */
  2119.   typedef GtkTextIter GtkTextIter_ornull;
  2120. # define SvGtkTextIter(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_TEXT_ITER))
  2121. # define SvGtkTextIter_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTextIter (sv) : NULL)
  2122.   typedef GtkTextIter GtkTextIter_own;
  2123.   typedef GtkTextIter GtkTextIter_copy;
  2124.   typedef GtkTextIter GtkTextIter_own_ornull;
  2125. # define newSVGtkTextIter(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TEXT_ITER, FALSE))
  2126. # define newSVGtkTextIter_ornull(val)    ((val) ? newSVGtkTextIter(val) : &PL_sv_undef)
  2127. # define newSVGtkTextIter_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TEXT_ITER, TRUE))
  2128. # define newSVGtkTextIter_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TEXT_ITER))
  2129. # define newSVGtkTextIter_own_ornull(val)    ((val) ? newSVGtkTextIter_own(val) : &PL_sv_undef)
  2130. #endif /* GTK_TYPE_TEXT_ITER */
  2131.  
  2132. #ifdef GTK_TYPE_TEXT_MARK
  2133.   /* GObject derivative GtkTextMark */
  2134. # define SvGtkTextMark(sv)    ((GtkTextMark*)gperl_get_object_check (sv, GTK_TYPE_TEXT_MARK))
  2135. # define newSVGtkTextMark(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2136.   typedef GtkTextMark GtkTextMark_ornull;
  2137. # define SvGtkTextMark_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTextMark(sv) : NULL)
  2138. # define newSVGtkTextMark_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2139. typedef GtkTextMark GtkTextMark_noinc;
  2140. #define newSVGtkTextMark_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2141. typedef GtkTextMark GtkTextMark_noinc_ornull;
  2142. #define newSVGtkTextMark_noinc_ornull(val)    ((val) ? newSVGtkTextMark_noinc(val) : &PL_sv_undef)
  2143. #endif /* GTK_TYPE_TEXT_MARK */
  2144.  
  2145. #ifdef GTK_TYPE_TEXT_SEARCH_FLAGS
  2146.   /* GFlags GtkTextSearchFlags */
  2147. # define SvGtkTextSearchFlags(sv)    ((GtkTextSearchFlags)gperl_convert_flags (GTK_TYPE_TEXT_SEARCH_FLAGS, sv))
  2148. # define newSVGtkTextSearchFlags(val)    (gperl_convert_back_flags (GTK_TYPE_TEXT_SEARCH_FLAGS, val))
  2149. #endif /* GTK_TYPE_TEXT_SEARCH_FLAGS */
  2150.  
  2151. #ifdef GTK_TYPE_TEXT_TAG
  2152.   /* GObject derivative GtkTextTag */
  2153. # define SvGtkTextTag(sv)    ((GtkTextTag*)gperl_get_object_check (sv, GTK_TYPE_TEXT_TAG))
  2154. # define newSVGtkTextTag(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2155.   typedef GtkTextTag GtkTextTag_ornull;
  2156. # define SvGtkTextTag_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTextTag(sv) : NULL)
  2157. # define newSVGtkTextTag_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2158. typedef GtkTextTag GtkTextTag_noinc;
  2159. #define newSVGtkTextTag_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2160. typedef GtkTextTag GtkTextTag_noinc_ornull;
  2161. #define newSVGtkTextTag_noinc_ornull(val)    ((val) ? newSVGtkTextTag_noinc(val) : &PL_sv_undef)
  2162. #endif /* GTK_TYPE_TEXT_TAG */
  2163.  
  2164. #ifdef GTK_TYPE_TEXT_TAG_TABLE
  2165.   /* GObject derivative GtkTextTagTable */
  2166. # define SvGtkTextTagTable(sv)    ((GtkTextTagTable*)gperl_get_object_check (sv, GTK_TYPE_TEXT_TAG_TABLE))
  2167. # define newSVGtkTextTagTable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2168.   typedef GtkTextTagTable GtkTextTagTable_ornull;
  2169. # define SvGtkTextTagTable_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTextTagTable(sv) : NULL)
  2170. # define newSVGtkTextTagTable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2171. typedef GtkTextTagTable GtkTextTagTable_noinc;
  2172. #define newSVGtkTextTagTable_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2173. typedef GtkTextTagTable GtkTextTagTable_noinc_ornull;
  2174. #define newSVGtkTextTagTable_noinc_ornull(val)    ((val) ? newSVGtkTextTagTable_noinc(val) : &PL_sv_undef)
  2175. #endif /* GTK_TYPE_TEXT_TAG_TABLE */
  2176.  
  2177. #ifdef GTK_TYPE_TEXT_VIEW
  2178.   /* GtkObject derivative GtkTextView */
  2179. # define SvGtkTextView(sv)    ((GtkTextView*)gperl_get_object_check (sv, GTK_TYPE_TEXT_VIEW))
  2180. # define newSVGtkTextView(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2181.   typedef GtkTextView GtkTextView_ornull;
  2182. # define SvGtkTextView_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTextView(sv) : NULL)
  2183. # define newSVGtkTextView_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2184. #endif /* GTK_TYPE_TEXT_VIEW */
  2185.  
  2186. #ifdef GTK_TYPE_TEXT_WINDOW_TYPE
  2187.   /* GEnum GtkTextWindowType */
  2188. # define SvGtkTextWindowType(sv)    ((GtkTextWindowType)gperl_convert_enum (GTK_TYPE_TEXT_WINDOW_TYPE, sv))
  2189. # define newSVGtkTextWindowType(val)    (gperl_convert_back_enum (GTK_TYPE_TEXT_WINDOW_TYPE, val))
  2190. #endif /* GTK_TYPE_TEXT_WINDOW_TYPE */
  2191.  
  2192. #ifdef GTK_TYPE_TOGGLE_BUTTON
  2193.   /* GtkObject derivative GtkToggleButton */
  2194. # define SvGtkToggleButton(sv)    ((GtkToggleButton*)gperl_get_object_check (sv, GTK_TYPE_TOGGLE_BUTTON))
  2195. # define newSVGtkToggleButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2196.   typedef GtkToggleButton GtkToggleButton_ornull;
  2197. # define SvGtkToggleButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkToggleButton(sv) : NULL)
  2198. # define newSVGtkToggleButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2199. #endif /* GTK_TYPE_TOGGLE_BUTTON */
  2200.  
  2201. #ifdef GTK_TYPE_TOOLBAR_CHILD_TYPE
  2202.   /* GEnum GtkToolbarChildType */
  2203. # define SvGtkToolbarChildType(sv)    ((GtkToolbarChildType)gperl_convert_enum (GTK_TYPE_TOOLBAR_CHILD_TYPE, sv))
  2204. # define newSVGtkToolbarChildType(val)    (gperl_convert_back_enum (GTK_TYPE_TOOLBAR_CHILD_TYPE, val))
  2205. #endif /* GTK_TYPE_TOOLBAR_CHILD_TYPE */
  2206.  
  2207. #ifdef GTK_TYPE_TOOLBAR
  2208.   /* GtkObject derivative GtkToolbar */
  2209. # define SvGtkToolbar(sv)    ((GtkToolbar*)gperl_get_object_check (sv, GTK_TYPE_TOOLBAR))
  2210. # define newSVGtkToolbar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2211.   typedef GtkToolbar GtkToolbar_ornull;
  2212. # define SvGtkToolbar_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkToolbar(sv) : NULL)
  2213. # define newSVGtkToolbar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2214. #endif /* GTK_TYPE_TOOLBAR */
  2215.  
  2216. #ifdef GTK_TYPE_TOOLBAR_SPACE_STYLE
  2217.   /* GEnum GtkToolbarSpaceStyle */
  2218. # define SvGtkToolbarSpaceStyle(sv)    ((GtkToolbarSpaceStyle)gperl_convert_enum (GTK_TYPE_TOOLBAR_SPACE_STYLE, sv))
  2219. # define newSVGtkToolbarSpaceStyle(val)    (gperl_convert_back_enum (GTK_TYPE_TOOLBAR_SPACE_STYLE, val))
  2220. #endif /* GTK_TYPE_TOOLBAR_SPACE_STYLE */
  2221.  
  2222. #ifdef GTK_TYPE_TOOLBAR_STYLE
  2223.   /* GEnum GtkToolbarStyle */
  2224. # define SvGtkToolbarStyle(sv)    ((GtkToolbarStyle)gperl_convert_enum (GTK_TYPE_TOOLBAR_STYLE, sv))
  2225. # define newSVGtkToolbarStyle(val)    (gperl_convert_back_enum (GTK_TYPE_TOOLBAR_STYLE, val))
  2226. #endif /* GTK_TYPE_TOOLBAR_STYLE */
  2227.  
  2228. #ifdef GTK_TYPE_TOOLTIPS
  2229.   /* GtkObject derivative GtkTooltips */
  2230. # define SvGtkTooltips(sv)    ((GtkTooltips*)gperl_get_object_check (sv, GTK_TYPE_TOOLTIPS))
  2231. # define newSVGtkTooltips(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2232.   typedef GtkTooltips GtkTooltips_ornull;
  2233. # define SvGtkTooltips_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTooltips(sv) : NULL)
  2234. # define newSVGtkTooltips_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2235. #endif /* GTK_TYPE_TOOLTIPS */
  2236.  
  2237. #ifdef GTK_TYPE_TREE_DRAG_DEST
  2238.   /* GInterface derivative GtkTreeDragDest */
  2239. # define SvGtkTreeDragDest(sv)    ((GtkTreeDragDest*)gperl_get_object_check (sv, GTK_TYPE_TREE_DRAG_DEST))
  2240. # define newSVGtkTreeDragDest(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2241.   typedef GtkTreeDragDest GtkTreeDragDest_ornull;
  2242. # define SvGtkTreeDragDest_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeDragDest(sv) : NULL)
  2243. # define newSVGtkTreeDragDest_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2244. #endif /* GTK_TYPE_TREE_DRAG_DEST */
  2245.  
  2246. #ifdef GTK_TYPE_TREE_DRAG_SOURCE
  2247.   /* GInterface derivative GtkTreeDragSource */
  2248. # define SvGtkTreeDragSource(sv)    ((GtkTreeDragSource*)gperl_get_object_check (sv, GTK_TYPE_TREE_DRAG_SOURCE))
  2249. # define newSVGtkTreeDragSource(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2250.   typedef GtkTreeDragSource GtkTreeDragSource_ornull;
  2251. # define SvGtkTreeDragSource_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeDragSource(sv) : NULL)
  2252. # define newSVGtkTreeDragSource_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2253. #endif /* GTK_TYPE_TREE_DRAG_SOURCE */
  2254.  
  2255. #ifdef GTK_TYPE_TREE_ITER
  2256.   /* GBoxed GtkTreeIter */
  2257.   typedef GtkTreeIter GtkTreeIter_ornull;
  2258. # define SvGtkTreeIter(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_TREE_ITER))
  2259. # define SvGtkTreeIter_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeIter (sv) : NULL)
  2260.   typedef GtkTreeIter GtkTreeIter_own;
  2261.   typedef GtkTreeIter GtkTreeIter_copy;
  2262.   typedef GtkTreeIter GtkTreeIter_own_ornull;
  2263. # define newSVGtkTreeIter(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_ITER, FALSE))
  2264. # define newSVGtkTreeIter_ornull(val)    ((val) ? newSVGtkTreeIter(val) : &PL_sv_undef)
  2265. # define newSVGtkTreeIter_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_ITER, TRUE))
  2266. # define newSVGtkTreeIter_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TREE_ITER))
  2267. # define newSVGtkTreeIter_own_ornull(val)    ((val) ? newSVGtkTreeIter_own(val) : &PL_sv_undef)
  2268. #endif /* GTK_TYPE_TREE_ITER */
  2269.  
  2270. #ifdef GTK_TYPE_TREE_MODEL_FLAGS
  2271.   /* GFlags GtkTreeModelFlags */
  2272. # define SvGtkTreeModelFlags(sv)    ((GtkTreeModelFlags)gperl_convert_flags (GTK_TYPE_TREE_MODEL_FLAGS, sv))
  2273. # define newSVGtkTreeModelFlags(val)    (gperl_convert_back_flags (GTK_TYPE_TREE_MODEL_FLAGS, val))
  2274. #endif /* GTK_TYPE_TREE_MODEL_FLAGS */
  2275.  
  2276. #ifdef GTK_TYPE_TREE_MODEL
  2277.   /* GObject derivative GtkTreeModel */
  2278. # define SvGtkTreeModel(sv)    ((GtkTreeModel*)gperl_get_object_check (sv, GTK_TYPE_TREE_MODEL))
  2279. # define newSVGtkTreeModel(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2280.   typedef GtkTreeModel GtkTreeModel_ornull;
  2281. # define SvGtkTreeModel_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeModel(sv) : NULL)
  2282. # define newSVGtkTreeModel_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2283. typedef GtkTreeModel GtkTreeModel_noinc;
  2284. #define newSVGtkTreeModel_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2285. typedef GtkTreeModel GtkTreeModel_noinc_ornull;
  2286. #define newSVGtkTreeModel_noinc_ornull(val)    ((val) ? newSVGtkTreeModel_noinc(val) : &PL_sv_undef)
  2287. #endif /* GTK_TYPE_TREE_MODEL */
  2288.  
  2289. #ifdef GTK_TYPE_TREE_MODEL_SORT
  2290.   /* GObject derivative GtkTreeModelSort */
  2291. # define SvGtkTreeModelSort(sv)    ((GtkTreeModelSort*)gperl_get_object_check (sv, GTK_TYPE_TREE_MODEL_SORT))
  2292. # define newSVGtkTreeModelSort(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2293.   typedef GtkTreeModelSort GtkTreeModelSort_ornull;
  2294. # define SvGtkTreeModelSort_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeModelSort(sv) : NULL)
  2295. # define newSVGtkTreeModelSort_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2296. typedef GtkTreeModelSort GtkTreeModelSort_noinc;
  2297. #define newSVGtkTreeModelSort_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2298. typedef GtkTreeModelSort GtkTreeModelSort_noinc_ornull;
  2299. #define newSVGtkTreeModelSort_noinc_ornull(val)    ((val) ? newSVGtkTreeModelSort_noinc(val) : &PL_sv_undef)
  2300. #endif /* GTK_TYPE_TREE_MODEL_SORT */
  2301.  
  2302. #ifdef GTK_TYPE_TREE_PATH
  2303.   /* GBoxed GtkTreePath */
  2304.   typedef GtkTreePath GtkTreePath_ornull;
  2305. # define SvGtkTreePath(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_TREE_PATH))
  2306. # define SvGtkTreePath_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreePath (sv) : NULL)
  2307.   typedef GtkTreePath GtkTreePath_own;
  2308.   typedef GtkTreePath GtkTreePath_copy;
  2309.   typedef GtkTreePath GtkTreePath_own_ornull;
  2310. # define newSVGtkTreePath(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_PATH, FALSE))
  2311. # define newSVGtkTreePath_ornull(val)    ((val) ? newSVGtkTreePath(val) : &PL_sv_undef)
  2312. # define newSVGtkTreePath_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_PATH, TRUE))
  2313. # define newSVGtkTreePath_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TREE_PATH))
  2314. # define newSVGtkTreePath_own_ornull(val)    ((val) ? newSVGtkTreePath_own(val) : &PL_sv_undef)
  2315. #endif /* GTK_TYPE_TREE_PATH */
  2316.  
  2317. #ifdef GTK_TYPE_TREE_ROW_REFERENCE
  2318.   /* GBoxed GtkTreeRowReference */
  2319.   typedef GtkTreeRowReference GtkTreeRowReference_ornull;
  2320. # define SvGtkTreeRowReference(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_TREE_ROW_REFERENCE))
  2321. # define SvGtkTreeRowReference_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeRowReference (sv) : NULL)
  2322.   typedef GtkTreeRowReference GtkTreeRowReference_own;
  2323.   typedef GtkTreeRowReference GtkTreeRowReference_copy;
  2324.   typedef GtkTreeRowReference GtkTreeRowReference_own_ornull;
  2325. # define newSVGtkTreeRowReference(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_ROW_REFERENCE, FALSE))
  2326. # define newSVGtkTreeRowReference_ornull(val)    ((val) ? newSVGtkTreeRowReference(val) : &PL_sv_undef)
  2327. # define newSVGtkTreeRowReference_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TREE_ROW_REFERENCE, TRUE))
  2328. # define newSVGtkTreeRowReference_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TREE_ROW_REFERENCE))
  2329. # define newSVGtkTreeRowReference_own_ornull(val)    ((val) ? newSVGtkTreeRowReference_own(val) : &PL_sv_undef)
  2330. #endif /* GTK_TYPE_TREE_ROW_REFERENCE */
  2331.  
  2332. #ifdef GTK_TYPE_TREE_SELECTION
  2333.   /* GObject derivative GtkTreeSelection */
  2334. # define SvGtkTreeSelection(sv)    ((GtkTreeSelection*)gperl_get_object_check (sv, GTK_TYPE_TREE_SELECTION))
  2335. # define newSVGtkTreeSelection(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2336.   typedef GtkTreeSelection GtkTreeSelection_ornull;
  2337. # define SvGtkTreeSelection_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeSelection(sv) : NULL)
  2338. # define newSVGtkTreeSelection_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2339. typedef GtkTreeSelection GtkTreeSelection_noinc;
  2340. #define newSVGtkTreeSelection_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2341. typedef GtkTreeSelection GtkTreeSelection_noinc_ornull;
  2342. #define newSVGtkTreeSelection_noinc_ornull(val)    ((val) ? newSVGtkTreeSelection_noinc(val) : &PL_sv_undef)
  2343. #endif /* GTK_TYPE_TREE_SELECTION */
  2344.  
  2345. #ifdef GTK_TYPE_TREE_SORTABLE
  2346.   /* GObject derivative GtkTreeSortable */
  2347. # define SvGtkTreeSortable(sv)    ((GtkTreeSortable*)gperl_get_object_check (sv, GTK_TYPE_TREE_SORTABLE))
  2348. # define newSVGtkTreeSortable(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2349.   typedef GtkTreeSortable GtkTreeSortable_ornull;
  2350. # define SvGtkTreeSortable_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeSortable(sv) : NULL)
  2351. # define newSVGtkTreeSortable_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2352. typedef GtkTreeSortable GtkTreeSortable_noinc;
  2353. #define newSVGtkTreeSortable_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2354. typedef GtkTreeSortable GtkTreeSortable_noinc_ornull;
  2355. #define newSVGtkTreeSortable_noinc_ornull(val)    ((val) ? newSVGtkTreeSortable_noinc(val) : &PL_sv_undef)
  2356. #endif /* GTK_TYPE_TREE_SORTABLE */
  2357.  
  2358. #ifdef GTK_TYPE_TREE_STORE
  2359.   /* GObject derivative GtkTreeStore */
  2360. # define SvGtkTreeStore(sv)    ((GtkTreeStore*)gperl_get_object_check (sv, GTK_TYPE_TREE_STORE))
  2361. # define newSVGtkTreeStore(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2362.   typedef GtkTreeStore GtkTreeStore_ornull;
  2363. # define SvGtkTreeStore_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeStore(sv) : NULL)
  2364. # define newSVGtkTreeStore_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2365. typedef GtkTreeStore GtkTreeStore_noinc;
  2366. #define newSVGtkTreeStore_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2367. typedef GtkTreeStore GtkTreeStore_noinc_ornull;
  2368. #define newSVGtkTreeStore_noinc_ornull(val)    ((val) ? newSVGtkTreeStore_noinc(val) : &PL_sv_undef)
  2369. #endif /* GTK_TYPE_TREE_STORE */
  2370.  
  2371. #ifdef GTK_TYPE_TREE_VIEW_COLUMN
  2372.   /* GtkObject derivative GtkTreeViewColumn */
  2373. # define SvGtkTreeViewColumn(sv)    ((GtkTreeViewColumn*)gperl_get_object_check (sv, GTK_TYPE_TREE_VIEW_COLUMN))
  2374. # define newSVGtkTreeViewColumn(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2375.   typedef GtkTreeViewColumn GtkTreeViewColumn_ornull;
  2376. # define SvGtkTreeViewColumn_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeViewColumn(sv) : NULL)
  2377. # define newSVGtkTreeViewColumn_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2378. #endif /* GTK_TYPE_TREE_VIEW_COLUMN */
  2379.  
  2380. #ifdef GTK_TYPE_TREE_VIEW_COLUMN_SIZING
  2381.   /* GEnum GtkTreeViewColumnSizing */
  2382. # define SvGtkTreeViewColumnSizing(sv)    ((GtkTreeViewColumnSizing)gperl_convert_enum (GTK_TYPE_TREE_VIEW_COLUMN_SIZING, sv))
  2383. # define newSVGtkTreeViewColumnSizing(val)    (gperl_convert_back_enum (GTK_TYPE_TREE_VIEW_COLUMN_SIZING, val))
  2384. #endif /* GTK_TYPE_TREE_VIEW_COLUMN_SIZING */
  2385.  
  2386. #ifdef GTK_TYPE_TREE_VIEW_DROP_POSITION
  2387.   /* GEnum GtkTreeViewDropPosition */
  2388. # define SvGtkTreeViewDropPosition(sv)    ((GtkTreeViewDropPosition)gperl_convert_enum (GTK_TYPE_TREE_VIEW_DROP_POSITION, sv))
  2389. # define newSVGtkTreeViewDropPosition(val)    (gperl_convert_back_enum (GTK_TYPE_TREE_VIEW_DROP_POSITION, val))
  2390. #endif /* GTK_TYPE_TREE_VIEW_DROP_POSITION */
  2391.  
  2392. #ifdef GTK_TYPE_TREE_VIEW
  2393.   /* GtkObject derivative GtkTreeView */
  2394. # define SvGtkTreeView(sv)    ((GtkTreeView*)gperl_get_object_check (sv, GTK_TYPE_TREE_VIEW))
  2395. # define newSVGtkTreeView(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2396.   typedef GtkTreeView GtkTreeView_ornull;
  2397. # define SvGtkTreeView_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeView(sv) : NULL)
  2398. # define newSVGtkTreeView_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2399. #endif /* GTK_TYPE_TREE_VIEW */
  2400.  
  2401. #ifdef GTK_TYPE_TREE_VIEW_MODE
  2402.   /* GEnum GtkTreeViewMode */
  2403. # define SvGtkTreeViewMode(sv)    ((GtkTreeViewMode)gperl_convert_enum (GTK_TYPE_TREE_VIEW_MODE, sv))
  2404. # define newSVGtkTreeViewMode(val)    (gperl_convert_back_enum (GTK_TYPE_TREE_VIEW_MODE, val))
  2405. #endif /* GTK_TYPE_TREE_VIEW_MODE */
  2406.  
  2407. #ifdef GTK_TYPE_UPDATE_TYPE
  2408.   /* GEnum GtkUpdateType */
  2409. # define SvGtkUpdateType(sv)    ((GtkUpdateType)gperl_convert_enum (GTK_TYPE_UPDATE_TYPE, sv))
  2410. # define newSVGtkUpdateType(val)    (gperl_convert_back_enum (GTK_TYPE_UPDATE_TYPE, val))
  2411. #endif /* GTK_TYPE_UPDATE_TYPE */
  2412.  
  2413. #ifdef GTK_TYPE_VBOX
  2414.   /* GtkObject derivative GtkVBox */
  2415. # define SvGtkVBox(sv)    ((GtkVBox*)gperl_get_object_check (sv, GTK_TYPE_VBOX))
  2416. # define newSVGtkVBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2417.   typedef GtkVBox GtkVBox_ornull;
  2418. # define SvGtkVBox_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkVBox(sv) : NULL)
  2419. # define newSVGtkVBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2420. #endif /* GTK_TYPE_VBOX */
  2421.  
  2422. #ifdef GTK_TYPE_VBUTTON_BOX
  2423.   /* GtkObject derivative GtkVButtonBox */
  2424. # define SvGtkVButtonBox(sv)    ((GtkVButtonBox*)gperl_get_object_check (sv, GTK_TYPE_VBUTTON_BOX))
  2425. # define newSVGtkVButtonBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2426.   typedef GtkVButtonBox GtkVButtonBox_ornull;
  2427. # define SvGtkVButtonBox_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkVButtonBox(sv) : NULL)
  2428. # define newSVGtkVButtonBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2429. #endif /* GTK_TYPE_VBUTTON_BOX */
  2430.  
  2431. #ifdef GTK_TYPE_VIEWPORT
  2432.   /* GtkObject derivative GtkViewport */
  2433. # define SvGtkViewport(sv)    ((GtkViewport*)gperl_get_object_check (sv, GTK_TYPE_VIEWPORT))
  2434. # define newSVGtkViewport(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2435.   typedef GtkViewport GtkViewport_ornull;
  2436. # define SvGtkViewport_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkViewport(sv) : NULL)
  2437. # define newSVGtkViewport_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2438. #endif /* GTK_TYPE_VIEWPORT */
  2439.  
  2440. #ifdef GTK_TYPE_VISIBILITY
  2441.   /* GEnum GtkVisibility */
  2442. # define SvGtkVisibility(sv)    ((GtkVisibility)gperl_convert_enum (GTK_TYPE_VISIBILITY, sv))
  2443. # define newSVGtkVisibility(val)    (gperl_convert_back_enum (GTK_TYPE_VISIBILITY, val))
  2444. #endif /* GTK_TYPE_VISIBILITY */
  2445.  
  2446. #ifdef GTK_TYPE_VPANED
  2447.   /* GtkObject derivative GtkVPaned */
  2448. # define SvGtkVPaned(sv)    ((GtkVPaned*)gperl_get_object_check (sv, GTK_TYPE_VPANED))
  2449. # define newSVGtkVPaned(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2450.   typedef GtkVPaned GtkVPaned_ornull;
  2451. # define SvGtkVPaned_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkVPaned(sv) : NULL)
  2452. # define newSVGtkVPaned_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2453. #endif /* GTK_TYPE_VPANED */
  2454.  
  2455. #ifdef GTK_TYPE_VRULER
  2456.   /* GtkObject derivative GtkVRuler */
  2457. # define SvGtkVRuler(sv)    ((GtkVRuler*)gperl_get_object_check (sv, GTK_TYPE_VRULER))
  2458. # define newSVGtkVRuler(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2459.   typedef GtkVRuler GtkVRuler_ornull;
  2460. # define SvGtkVRuler_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkVRuler(sv) : NULL)
  2461. # define newSVGtkVRuler_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2462. #endif /* GTK_TYPE_VRULER */
  2463.  
  2464. #ifdef GTK_TYPE_VSCALE
  2465.   /* GtkObject derivative GtkVScale */
  2466. # define SvGtkVScale(sv)    ((GtkVScale*)gperl_get_object_check (sv, GTK_TYPE_VSCALE))
  2467. # define newSVGtkVScale(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2468.   typedef GtkVScale GtkVScale_ornull;
  2469. # define SvGtkVScale_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkVScale(sv) : NULL)
  2470. # define newSVGtkVScale_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2471. #endif /* GTK_TYPE_VSCALE */
  2472.  
  2473. #ifdef GTK_TYPE_VSCROLLBAR
  2474.   /* GtkObject derivative GtkVScrollbar */
  2475. # define SvGtkVScrollbar(sv)    ((GtkVScrollbar*)gperl_get_object_check (sv, GTK_TYPE_VSCROLLBAR))
  2476. # define newSVGtkVScrollbar(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2477.   typedef GtkVScrollbar GtkVScrollbar_ornull;
  2478. # define SvGtkVScrollbar_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkVScrollbar(sv) : NULL)
  2479. # define newSVGtkVScrollbar_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2480. #endif /* GTK_TYPE_VSCROLLBAR */
  2481.  
  2482. #ifdef GTK_TYPE_VSEPARATOR
  2483.   /* GtkObject derivative GtkVSeparator */
  2484. # define SvGtkVSeparator(sv)    ((GtkVSeparator*)gperl_get_object_check (sv, GTK_TYPE_VSEPARATOR))
  2485. # define newSVGtkVSeparator(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2486.   typedef GtkVSeparator GtkVSeparator_ornull;
  2487. # define SvGtkVSeparator_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkVSeparator(sv) : NULL)
  2488. # define newSVGtkVSeparator_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2489. #endif /* GTK_TYPE_VSEPARATOR */
  2490.  
  2491. #ifdef GTK_TYPE_WIDGET_FLAGS
  2492.   /* GFlags GtkWidgetFlags */
  2493. # define SvGtkWidgetFlags(sv)    ((GtkWidgetFlags)gperl_convert_flags (GTK_TYPE_WIDGET_FLAGS, sv))
  2494. # define newSVGtkWidgetFlags(val)    (gperl_convert_back_flags (GTK_TYPE_WIDGET_FLAGS, val))
  2495. #endif /* GTK_TYPE_WIDGET_FLAGS */
  2496.  
  2497. #ifdef GTK_TYPE_WIDGET
  2498.   /* GtkObject derivative GtkWidget */
  2499. # define SvGtkWidget(sv)    ((GtkWidget*)gperl_get_object_check (sv, GTK_TYPE_WIDGET))
  2500. # define newSVGtkWidget(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2501.   typedef GtkWidget GtkWidget_ornull;
  2502. # define SvGtkWidget_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkWidget(sv) : NULL)
  2503. # define newSVGtkWidget_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2504. #endif /* GTK_TYPE_WIDGET */
  2505.  
  2506. #ifdef GTK_TYPE_WIDGET_HELP_TYPE
  2507.   /* GEnum GtkWidgetHelpType */
  2508. # define SvGtkWidgetHelpType(sv)    ((GtkWidgetHelpType)gperl_convert_enum (GTK_TYPE_WIDGET_HELP_TYPE, sv))
  2509. # define newSVGtkWidgetHelpType(val)    (gperl_convert_back_enum (GTK_TYPE_WIDGET_HELP_TYPE, val))
  2510. #endif /* GTK_TYPE_WIDGET_HELP_TYPE */
  2511.  
  2512. #ifdef GTK_TYPE_WINDOW_GROUP
  2513.   /* GObject derivative GtkWindowGroup */
  2514. # define SvGtkWindowGroup(sv)    ((GtkWindowGroup*)gperl_get_object_check (sv, GTK_TYPE_WINDOW_GROUP))
  2515. # define newSVGtkWindowGroup(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2516.   typedef GtkWindowGroup GtkWindowGroup_ornull;
  2517. # define SvGtkWindowGroup_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkWindowGroup(sv) : NULL)
  2518. # define newSVGtkWindowGroup_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2519. typedef GtkWindowGroup GtkWindowGroup_noinc;
  2520. #define newSVGtkWindowGroup_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2521. typedef GtkWindowGroup GtkWindowGroup_noinc_ornull;
  2522. #define newSVGtkWindowGroup_noinc_ornull(val)    ((val) ? newSVGtkWindowGroup_noinc(val) : &PL_sv_undef)
  2523. #endif /* GTK_TYPE_WINDOW_GROUP */
  2524.  
  2525. #ifdef GTK_TYPE_WINDOW
  2526.   /* GtkObject derivative GtkWindow */
  2527. # define SvGtkWindow(sv)    ((GtkWindow*)gperl_get_object_check (sv, GTK_TYPE_WINDOW))
  2528. # define newSVGtkWindow(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2529.   typedef GtkWindow GtkWindow_ornull;
  2530. # define SvGtkWindow_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkWindow(sv) : NULL)
  2531. # define newSVGtkWindow_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2532. #endif /* GTK_TYPE_WINDOW */
  2533.  
  2534. #ifdef GTK_TYPE_WINDOW_POSITION
  2535.   /* GEnum GtkWindowPosition */
  2536. # define SvGtkWindowPosition(sv)    ((GtkWindowPosition)gperl_convert_enum (GTK_TYPE_WINDOW_POSITION, sv))
  2537. # define newSVGtkWindowPosition(val)    (gperl_convert_back_enum (GTK_TYPE_WINDOW_POSITION, val))
  2538. #endif /* GTK_TYPE_WINDOW_POSITION */
  2539.  
  2540. #ifdef GTK_TYPE_WINDOW_TYPE
  2541.   /* GEnum GtkWindowType */
  2542. # define SvGtkWindowType(sv)    ((GtkWindowType)gperl_convert_enum (GTK_TYPE_WINDOW_TYPE, sv))
  2543. # define newSVGtkWindowType(val)    (gperl_convert_back_enum (GTK_TYPE_WINDOW_TYPE, val))
  2544. #endif /* GTK_TYPE_WINDOW_TYPE */
  2545.  
  2546. #ifdef GTK_TYPE_WRAP_MODE
  2547.   /* GEnum GtkWrapMode */
  2548. # define SvGtkWrapMode(sv)    ((GtkWrapMode)gperl_convert_enum (GTK_TYPE_WRAP_MODE, sv))
  2549. # define newSVGtkWrapMode(val)    (gperl_convert_back_enum (GTK_TYPE_WRAP_MODE, val))
  2550. #endif /* GTK_TYPE_WRAP_MODE */
  2551.  
  2552. #ifdef GDK_TYPE_REGION
  2553.   /* GBoxed GdkRegion */
  2554.   typedef GdkRegion GdkRegion_ornull;
  2555. # define SvGdkRegion(sv)    (gperl_get_boxed_check ((sv), GDK_TYPE_REGION))
  2556. # define SvGdkRegion_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkRegion (sv) : NULL)
  2557.   typedef GdkRegion GdkRegion_own;
  2558.   typedef GdkRegion GdkRegion_copy;
  2559.   typedef GdkRegion GdkRegion_own_ornull;
  2560. # define newSVGdkRegion(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_REGION, FALSE))
  2561. # define newSVGdkRegion_ornull(val)    ((val) ? newSVGdkRegion(val) : &PL_sv_undef)
  2562. # define newSVGdkRegion_own(val)    (gperl_new_boxed ((gpointer) (val), GDK_TYPE_REGION, TRUE))
  2563. # define newSVGdkRegion_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GDK_TYPE_REGION))
  2564. # define newSVGdkRegion_own_ornull(val)    ((val) ? newSVGdkRegion_own(val) : &PL_sv_undef)
  2565. #endif /* GDK_TYPE_REGION */
  2566.  
  2567. #ifdef GDK_TYPE_DISPLAY
  2568.   /* GObject derivative GdkDisplay */
  2569. # define SvGdkDisplay(sv)    ((GdkDisplay*)gperl_get_object_check (sv, GDK_TYPE_DISPLAY))
  2570. # define newSVGdkDisplay(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2571.   typedef GdkDisplay GdkDisplay_ornull;
  2572. # define SvGdkDisplay_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkDisplay(sv) : NULL)
  2573. # define newSVGdkDisplay_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2574. typedef GdkDisplay GdkDisplay_noinc;
  2575. #define newSVGdkDisplay_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2576. typedef GdkDisplay GdkDisplay_noinc_ornull;
  2577. #define newSVGdkDisplay_noinc_ornull(val)    ((val) ? newSVGdkDisplay_noinc(val) : &PL_sv_undef)
  2578. #endif /* GDK_TYPE_DISPLAY */
  2579.  
  2580. #ifdef GDK_TYPE_DISPLAY_MANAGER
  2581.   /* GObject derivative GdkDisplayManager */
  2582. # define SvGdkDisplayManager(sv)    ((GdkDisplayManager*)gperl_get_object_check (sv, GDK_TYPE_DISPLAY_MANAGER))
  2583. # define newSVGdkDisplayManager(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2584.   typedef GdkDisplayManager GdkDisplayManager_ornull;
  2585. # define SvGdkDisplayManager_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkDisplayManager(sv) : NULL)
  2586. # define newSVGdkDisplayManager_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2587. typedef GdkDisplayManager GdkDisplayManager_noinc;
  2588. #define newSVGdkDisplayManager_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2589. typedef GdkDisplayManager GdkDisplayManager_noinc_ornull;
  2590. #define newSVGdkDisplayManager_noinc_ornull(val)    ((val) ? newSVGdkDisplayManager_noinc(val) : &PL_sv_undef)
  2591. #endif /* GDK_TYPE_DISPLAY_MANAGER */
  2592.  
  2593. #ifdef GDK_TYPE_SCREEN
  2594.   /* GObject derivative GdkScreen */
  2595. # define SvGdkScreen(sv)    ((GdkScreen*)gperl_get_object_check (sv, GDK_TYPE_SCREEN))
  2596. # define newSVGdkScreen(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2597.   typedef GdkScreen GdkScreen_ornull;
  2598. # define SvGdkScreen_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkScreen(sv) : NULL)
  2599. # define newSVGdkScreen_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2600. typedef GdkScreen GdkScreen_noinc;
  2601. #define newSVGdkScreen_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2602. typedef GdkScreen GdkScreen_noinc_ornull;
  2603. #define newSVGdkScreen_noinc_ornull(val)    ((val) ? newSVGdkScreen_noinc(val) : &PL_sv_undef)
  2604. #endif /* GDK_TYPE_SCREEN */
  2605.  
  2606. #ifdef GTK_TYPE_CLIPBOARD
  2607.   /* GObject derivative GtkClipboard */
  2608. # define SvGtkClipboard(sv)    ((GtkClipboard*)gperl_get_object_check (sv, GTK_TYPE_CLIPBOARD))
  2609. # define newSVGtkClipboard(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2610.   typedef GtkClipboard GtkClipboard_ornull;
  2611. # define SvGtkClipboard_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkClipboard(sv) : NULL)
  2612. # define newSVGtkClipboard_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2613. typedef GtkClipboard GtkClipboard_noinc;
  2614. #define newSVGtkClipboard_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2615. typedef GtkClipboard GtkClipboard_noinc_ornull;
  2616. #define newSVGtkClipboard_noinc_ornull(val)    ((val) ? newSVGtkClipboard_noinc(val) : &PL_sv_undef)
  2617. #endif /* GTK_TYPE_CLIPBOARD */
  2618.  
  2619. #ifdef GTK_TYPE_COMBO_BOX_ENTRY
  2620.   /* GtkObject derivative GtkComboBoxEntry */
  2621. # define SvGtkComboBoxEntry(sv)    ((GtkComboBoxEntry*)gperl_get_object_check (sv, GTK_TYPE_COMBO_BOX_ENTRY))
  2622. # define newSVGtkComboBoxEntry(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2623.   typedef GtkComboBoxEntry GtkComboBoxEntry_ornull;
  2624. # define SvGtkComboBoxEntry_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkComboBoxEntry(sv) : NULL)
  2625. # define newSVGtkComboBoxEntry_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2626. #endif /* GTK_TYPE_COMBO_BOX_ENTRY */
  2627.  
  2628. #ifdef GTK_TYPE_COMBO_BOX
  2629.   /* GtkObject derivative GtkComboBox */
  2630. # define SvGtkComboBox(sv)    ((GtkComboBox*)gperl_get_object_check (sv, GTK_TYPE_COMBO_BOX))
  2631. # define newSVGtkComboBox(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2632.   typedef GtkComboBox GtkComboBox_ornull;
  2633. # define SvGtkComboBox_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkComboBox(sv) : NULL)
  2634. # define newSVGtkComboBox_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2635. #endif /* GTK_TYPE_COMBO_BOX */
  2636.  
  2637. #ifdef GTK_TYPE_CELL_LAYOUT
  2638.   /* GInterface derivative GtkCellLayout */
  2639. # define SvGtkCellLayout(sv)    ((GtkCellLayout*)gperl_get_object_check (sv, GTK_TYPE_CELL_LAYOUT))
  2640. # define newSVGtkCellLayout(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2641.   typedef GtkCellLayout GtkCellLayout_ornull;
  2642. # define SvGtkCellLayout_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCellLayout(sv) : NULL)
  2643. # define newSVGtkCellLayout_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2644. #endif /* GTK_TYPE_CELL_LAYOUT */
  2645.  
  2646. #ifdef GTK_TYPE_COLOR_BUTTON
  2647.   /* GtkObject derivative GtkColorButton */
  2648. # define SvGtkColorButton(sv)    ((GtkColorButton*)gperl_get_object_check (sv, GTK_TYPE_COLOR_BUTTON))
  2649. # define newSVGtkColorButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2650.   typedef GtkColorButton GtkColorButton_ornull;
  2651. # define SvGtkColorButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkColorButton(sv) : NULL)
  2652. # define newSVGtkColorButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2653. #endif /* GTK_TYPE_COLOR_BUTTON */
  2654.  
  2655. #ifdef GTK_TYPE_FONT_BUTTON
  2656.   /* GtkObject derivative GtkFontButton */
  2657. # define SvGtkFontButton(sv)    ((GtkFontButton*)gperl_get_object_check (sv, GTK_TYPE_FONT_BUTTON))
  2658. # define newSVGtkFontButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2659.   typedef GtkFontButton GtkFontButton_ornull;
  2660. # define SvGtkFontButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFontButton(sv) : NULL)
  2661. # define newSVGtkFontButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2662. #endif /* GTK_TYPE_FONT_BUTTON */
  2663.  
  2664. #ifdef GTK_TYPE_ENTRY_COMPLETION
  2665.   /* GObject derivative GtkEntryCompletion */
  2666. # define SvGtkEntryCompletion(sv)    ((GtkEntryCompletion*)gperl_get_object_check (sv, GTK_TYPE_ENTRY_COMPLETION))
  2667. # define newSVGtkEntryCompletion(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2668.   typedef GtkEntryCompletion GtkEntryCompletion_ornull;
  2669. # define SvGtkEntryCompletion_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkEntryCompletion(sv) : NULL)
  2670. # define newSVGtkEntryCompletion_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2671. typedef GtkEntryCompletion GtkEntryCompletion_noinc;
  2672. #define newSVGtkEntryCompletion_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2673. typedef GtkEntryCompletion GtkEntryCompletion_noinc_ornull;
  2674. #define newSVGtkEntryCompletion_noinc_ornull(val)    ((val) ? newSVGtkEntryCompletion_noinc(val) : &PL_sv_undef)
  2675. #endif /* GTK_TYPE_ENTRY_COMPLETION */
  2676.  
  2677. #ifdef GTK_TYPE_EXPANDER
  2678.   /* GtkObject derivative GtkExpander */
  2679. # define SvGtkExpander(sv)    ((GtkExpander*)gperl_get_object_check (sv, GTK_TYPE_EXPANDER))
  2680. # define newSVGtkExpander(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2681.   typedef GtkExpander GtkExpander_ornull;
  2682. # define SvGtkExpander_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkExpander(sv) : NULL)
  2683. # define newSVGtkExpander_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2684. #endif /* GTK_TYPE_EXPANDER */
  2685.  
  2686. #ifdef GTK_TYPE_FILE_CHOOSER
  2687.   /* GtkObject derivative GtkFileChooser */
  2688. # define SvGtkFileChooser(sv)    ((GtkFileChooser*)gperl_get_object_check (sv, GTK_TYPE_FILE_CHOOSER))
  2689. # define newSVGtkFileChooser(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2690.   typedef GtkFileChooser GtkFileChooser_ornull;
  2691. # define SvGtkFileChooser_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFileChooser(sv) : NULL)
  2692. # define newSVGtkFileChooser_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2693. #endif /* GTK_TYPE_FILE_CHOOSER */
  2694.  
  2695. #ifdef GTK_TYPE_FILE_CHOOSER_ACTION
  2696.   /* GEnum GtkFileChooserAction */
  2697. # define SvGtkFileChooserAction(sv)    ((GtkFileChooserAction)gperl_convert_enum (GTK_TYPE_FILE_CHOOSER_ACTION, sv))
  2698. # define newSVGtkFileChooserAction(val)    (gperl_convert_back_enum (GTK_TYPE_FILE_CHOOSER_ACTION, val))
  2699. #endif /* GTK_TYPE_FILE_CHOOSER_ACTION */
  2700.  
  2701. #ifdef GTK_TYPE_FILE_CHOOSER_ERROR
  2702.   /* GEnum GtkFileChooserError */
  2703. # define SvGtkFileChooserError(sv)    ((GtkFileChooserError)gperl_convert_enum (GTK_TYPE_FILE_CHOOSER_ERROR, sv))
  2704. # define newSVGtkFileChooserError(val)    (gperl_convert_back_enum (GTK_TYPE_FILE_CHOOSER_ERROR, val))
  2705. #endif /* GTK_TYPE_FILE_CHOOSER_ERROR */
  2706.  
  2707. #ifdef GTK_TYPE_FILE_CHOOSER_DIALOG
  2708.   /* GtkObject derivative GtkFileChooserDialog */
  2709. # define SvGtkFileChooserDialog(sv)    ((GtkFileChooserDialog*)gperl_get_object_check (sv, GTK_TYPE_FILE_CHOOSER_DIALOG))
  2710. # define newSVGtkFileChooserDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2711.   typedef GtkFileChooserDialog GtkFileChooserDialog_ornull;
  2712. # define SvGtkFileChooserDialog_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFileChooserDialog(sv) : NULL)
  2713. # define newSVGtkFileChooserDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2714. #endif /* GTK_TYPE_FILE_CHOOSER_DIALOG */
  2715.  
  2716. #ifdef GTK_TYPE_FILE_CHOOSER_WIDGET
  2717.   /* GtkObject derivative GtkFileChooserWidget */
  2718. # define SvGtkFileChooserWidget(sv)    ((GtkFileChooserWidget*)gperl_get_object_check (sv, GTK_TYPE_FILE_CHOOSER_WIDGET))
  2719. # define newSVGtkFileChooserWidget(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2720.   typedef GtkFileChooserWidget GtkFileChooserWidget_ornull;
  2721. # define SvGtkFileChooserWidget_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFileChooserWidget(sv) : NULL)
  2722. # define newSVGtkFileChooserWidget_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2723. #endif /* GTK_TYPE_FILE_CHOOSER_WIDGET */
  2724.  
  2725. #ifdef GTK_TYPE_FILE_FILTER
  2726.   /* GtkObject derivative GtkFileFilter */
  2727. # define SvGtkFileFilter(sv)    ((GtkFileFilter*)gperl_get_object_check (sv, GTK_TYPE_FILE_FILTER))
  2728. # define newSVGtkFileFilter(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2729.   typedef GtkFileFilter GtkFileFilter_ornull;
  2730. # define SvGtkFileFilter_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFileFilter(sv) : NULL)
  2731. # define newSVGtkFileFilter_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2732. #endif /* GTK_TYPE_FILE_FILTER */
  2733.  
  2734. #ifdef GTK_TYPE_FILE_FILTER_INFO
  2735.   /* GBoxed GtkFileFilterInfo */
  2736.   typedef GtkFileFilterInfo GtkFileFilterInfo_ornull;
  2737. # define SvGtkFileFilterInfo(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_FILE_FILTER_INFO))
  2738. # define SvGtkFileFilterInfo_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFileFilterInfo (sv) : NULL)
  2739.   typedef GtkFileFilterInfo GtkFileFilterInfo_own;
  2740.   typedef GtkFileFilterInfo GtkFileFilterInfo_copy;
  2741.   typedef GtkFileFilterInfo GtkFileFilterInfo_own_ornull;
  2742. # define newSVGtkFileFilterInfo(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_FILE_FILTER_INFO, FALSE))
  2743. # define newSVGtkFileFilterInfo_ornull(val)    ((val) ? newSVGtkFileFilterInfo(val) : &PL_sv_undef)
  2744. # define newSVGtkFileFilterInfo_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_FILE_FILTER_INFO, TRUE))
  2745. # define newSVGtkFileFilterInfo_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_FILE_FILTER_INFO))
  2746. # define newSVGtkFileFilterInfo_own_ornull(val)    ((val) ? newSVGtkFileFilterInfo_own(val) : &PL_sv_undef)
  2747. #endif /* GTK_TYPE_FILE_FILTER_INFO */
  2748.  
  2749. #ifdef GTK_TYPE_FILE_FILTER_FLAGS
  2750.   /* GFlags GtkFileFilterFlags */
  2751. # define SvGtkFileFilterFlags(sv)    ((GtkFileFilterFlags)gperl_convert_flags (GTK_TYPE_FILE_FILTER_FLAGS, sv))
  2752. # define newSVGtkFileFilterFlags(val)    (gperl_convert_back_flags (GTK_TYPE_FILE_FILTER_FLAGS, val))
  2753. #endif /* GTK_TYPE_FILE_FILTER_FLAGS */
  2754.  
  2755. #ifdef GTK_TYPE_ICON_THEME
  2756.   /* GObject derivative GtkIconTheme */
  2757. # define SvGtkIconTheme(sv)    ((GtkIconTheme*)gperl_get_object_check (sv, GTK_TYPE_ICON_THEME))
  2758. # define newSVGtkIconTheme(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2759.   typedef GtkIconTheme GtkIconTheme_ornull;
  2760. # define SvGtkIconTheme_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkIconTheme(sv) : NULL)
  2761. # define newSVGtkIconTheme_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2762. typedef GtkIconTheme GtkIconTheme_noinc;
  2763. #define newSVGtkIconTheme_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2764. typedef GtkIconTheme GtkIconTheme_noinc_ornull;
  2765. #define newSVGtkIconTheme_noinc_ornull(val)    ((val) ? newSVGtkIconTheme_noinc(val) : &PL_sv_undef)
  2766. #endif /* GTK_TYPE_ICON_THEME */
  2767.  
  2768. #ifdef GTK_TYPE_ICON_THEME_ERROR
  2769.   /* GEnum GtkIconThemeError */
  2770. # define SvGtkIconThemeError(sv)    ((GtkIconThemeError)gperl_convert_enum (GTK_TYPE_ICON_THEME_ERROR, sv))
  2771. # define newSVGtkIconThemeError(val)    (gperl_convert_back_enum (GTK_TYPE_ICON_THEME_ERROR, val))
  2772. #endif /* GTK_TYPE_ICON_THEME_ERROR */
  2773.  
  2774. #ifdef GTK_TYPE_ICON_INFO
  2775.   /* GBoxed GtkIconInfo */
  2776.   typedef GtkIconInfo GtkIconInfo_ornull;
  2777. # define SvGtkIconInfo(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_ICON_INFO))
  2778. # define SvGtkIconInfo_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkIconInfo (sv) : NULL)
  2779.   typedef GtkIconInfo GtkIconInfo_own;
  2780.   typedef GtkIconInfo GtkIconInfo_copy;
  2781.   typedef GtkIconInfo GtkIconInfo_own_ornull;
  2782. # define newSVGtkIconInfo(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_INFO, FALSE))
  2783. # define newSVGtkIconInfo_ornull(val)    ((val) ? newSVGtkIconInfo(val) : &PL_sv_undef)
  2784. # define newSVGtkIconInfo_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ICON_INFO, TRUE))
  2785. # define newSVGtkIconInfo_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_ICON_INFO))
  2786. # define newSVGtkIconInfo_own_ornull(val)    ((val) ? newSVGtkIconInfo_own(val) : &PL_sv_undef)
  2787. #endif /* GTK_TYPE_ICON_INFO */
  2788.  
  2789. #ifdef GTK_TYPE_ICON_LOOKUP_FLAGS
  2790.   /* GFlags GtkIconLookupFlags */
  2791. # define SvGtkIconLookupFlags(sv)    ((GtkIconLookupFlags)gperl_convert_flags (GTK_TYPE_ICON_LOOKUP_FLAGS, sv))
  2792. # define newSVGtkIconLookupFlags(val)    (gperl_convert_back_flags (GTK_TYPE_ICON_LOOKUP_FLAGS, val))
  2793. #endif /* GTK_TYPE_ICON_LOOKUP_FLAGS */
  2794.  
  2795. #ifdef GTK_TYPE_TREE_MODEL_FILTER
  2796.   /* GObject derivative GtkTreeModelFilter */
  2797. # define SvGtkTreeModelFilter(sv)    ((GtkTreeModelFilter*)gperl_get_object_check (sv, GTK_TYPE_TREE_MODEL_FILTER))
  2798. # define newSVGtkTreeModelFilter(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2799.   typedef GtkTreeModelFilter GtkTreeModelFilter_ornull;
  2800. # define SvGtkTreeModelFilter_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkTreeModelFilter(sv) : NULL)
  2801. # define newSVGtkTreeModelFilter_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2802. typedef GtkTreeModelFilter GtkTreeModelFilter_noinc;
  2803. #define newSVGtkTreeModelFilter_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2804. typedef GtkTreeModelFilter GtkTreeModelFilter_noinc_ornull;
  2805. #define newSVGtkTreeModelFilter_noinc_ornull(val)    ((val) ? newSVGtkTreeModelFilter_noinc(val) : &PL_sv_undef)
  2806. #endif /* GTK_TYPE_TREE_MODEL_FILTER */
  2807.  
  2808. #ifdef GTK_TYPE_UI_MANAGER
  2809.   /* GObject derivative GtkUIManager */
  2810. # define SvGtkUIManager(sv)    ((GtkUIManager*)gperl_get_object_check (sv, GTK_TYPE_UI_MANAGER))
  2811. # define newSVGtkUIManager(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2812.   typedef GtkUIManager GtkUIManager_ornull;
  2813. # define SvGtkUIManager_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkUIManager(sv) : NULL)
  2814. # define newSVGtkUIManager_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2815. typedef GtkUIManager GtkUIManager_noinc;
  2816. #define newSVGtkUIManager_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2817. typedef GtkUIManager GtkUIManager_noinc_ornull;
  2818. #define newSVGtkUIManager_noinc_ornull(val)    ((val) ? newSVGtkUIManager_noinc(val) : &PL_sv_undef)
  2819. #endif /* GTK_TYPE_UI_MANAGER */
  2820.  
  2821. #ifdef GTK_TYPE_UI_MANAGER_ITEM_TYPE
  2822.   /* GFlags GtkUIManagerItemType */
  2823. # define SvGtkUIManagerItemType(sv)    ((GtkUIManagerItemType)gperl_convert_flags (GTK_TYPE_UI_MANAGER_ITEM_TYPE, sv))
  2824. # define newSVGtkUIManagerItemType(val)    (gperl_convert_back_flags (GTK_TYPE_UI_MANAGER_ITEM_TYPE, val))
  2825. #endif /* GTK_TYPE_UI_MANAGER_ITEM_TYPE */
  2826.  
  2827. #ifdef GTK_TYPE_ACTION_GROUP
  2828.   /* GObject derivative GtkActionGroup */
  2829. # define SvGtkActionGroup(sv)    ((GtkActionGroup*)gperl_get_object_check (sv, GTK_TYPE_ACTION_GROUP))
  2830. # define newSVGtkActionGroup(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2831.   typedef GtkActionGroup GtkActionGroup_ornull;
  2832. # define SvGtkActionGroup_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkActionGroup(sv) : NULL)
  2833. # define newSVGtkActionGroup_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2834. typedef GtkActionGroup GtkActionGroup_noinc;
  2835. #define newSVGtkActionGroup_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2836. typedef GtkActionGroup GtkActionGroup_noinc_ornull;
  2837. #define newSVGtkActionGroup_noinc_ornull(val)    ((val) ? newSVGtkActionGroup_noinc(val) : &PL_sv_undef)
  2838. #endif /* GTK_TYPE_ACTION_GROUP */
  2839.  
  2840. #ifdef GTK_TYPE_ACTION
  2841.   /* GObject derivative GtkAction */
  2842. # define SvGtkAction(sv)    ((GtkAction*)gperl_get_object_check (sv, GTK_TYPE_ACTION))
  2843. # define newSVGtkAction(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2844.   typedef GtkAction GtkAction_ornull;
  2845. # define SvGtkAction_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkAction(sv) : NULL)
  2846. # define newSVGtkAction_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2847. typedef GtkAction GtkAction_noinc;
  2848. #define newSVGtkAction_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2849. typedef GtkAction GtkAction_noinc_ornull;
  2850. #define newSVGtkAction_noinc_ornull(val)    ((val) ? newSVGtkAction_noinc(val) : &PL_sv_undef)
  2851. #endif /* GTK_TYPE_ACTION */
  2852.  
  2853. #ifdef GTK_TYPE_TOGGLE_ACTION
  2854.   /* GObject derivative GtkToggleAction */
  2855. # define SvGtkToggleAction(sv)    ((GtkToggleAction*)gperl_get_object_check (sv, GTK_TYPE_TOGGLE_ACTION))
  2856. # define newSVGtkToggleAction(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2857.   typedef GtkToggleAction GtkToggleAction_ornull;
  2858. # define SvGtkToggleAction_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkToggleAction(sv) : NULL)
  2859. # define newSVGtkToggleAction_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2860. typedef GtkToggleAction GtkToggleAction_noinc;
  2861. #define newSVGtkToggleAction_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2862. typedef GtkToggleAction GtkToggleAction_noinc_ornull;
  2863. #define newSVGtkToggleAction_noinc_ornull(val)    ((val) ? newSVGtkToggleAction_noinc(val) : &PL_sv_undef)
  2864. #endif /* GTK_TYPE_TOGGLE_ACTION */
  2865.  
  2866. #ifdef GTK_TYPE_RADIO_ACTION
  2867.   /* GObject derivative GtkRadioAction */
  2868. # define SvGtkRadioAction(sv)    ((GtkRadioAction*)gperl_get_object_check (sv, GTK_TYPE_RADIO_ACTION))
  2869. # define newSVGtkRadioAction(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2870.   typedef GtkRadioAction GtkRadioAction_ornull;
  2871. # define SvGtkRadioAction_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkRadioAction(sv) : NULL)
  2872. # define newSVGtkRadioAction_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2873. typedef GtkRadioAction GtkRadioAction_noinc;
  2874. #define newSVGtkRadioAction_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2875. typedef GtkRadioAction GtkRadioAction_noinc_ornull;
  2876. #define newSVGtkRadioAction_noinc_ornull(val)    ((val) ? newSVGtkRadioAction_noinc(val) : &PL_sv_undef)
  2877. #endif /* GTK_TYPE_RADIO_ACTION */
  2878.  
  2879. #ifdef GTK_TYPE_ACTION_ENTRY
  2880.   /* GBoxed GtkActionEntry */
  2881.   typedef GtkActionEntry GtkActionEntry_ornull;
  2882. # define SvGtkActionEntry(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_ACTION_ENTRY))
  2883. # define SvGtkActionEntry_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkActionEntry (sv) : NULL)
  2884.   typedef GtkActionEntry GtkActionEntry_own;
  2885.   typedef GtkActionEntry GtkActionEntry_copy;
  2886.   typedef GtkActionEntry GtkActionEntry_own_ornull;
  2887. # define newSVGtkActionEntry(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ACTION_ENTRY, FALSE))
  2888. # define newSVGtkActionEntry_ornull(val)    ((val) ? newSVGtkActionEntry(val) : &PL_sv_undef)
  2889. # define newSVGtkActionEntry_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_ACTION_ENTRY, TRUE))
  2890. # define newSVGtkActionEntry_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_ACTION_ENTRY))
  2891. # define newSVGtkActionEntry_own_ornull(val)    ((val) ? newSVGtkActionEntry_own(val) : &PL_sv_undef)
  2892. #endif /* GTK_TYPE_ACTION_ENTRY */
  2893.  
  2894. #ifdef GTK_TYPE_TOGGLE_ACTION_ENTRY
  2895.   /* GBoxed GtkToggleActionEntry */
  2896.   typedef GtkToggleActionEntry GtkToggleActionEntry_ornull;
  2897. # define SvGtkToggleActionEntry(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_TOGGLE_ACTION_ENTRY))
  2898. # define SvGtkToggleActionEntry_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkToggleActionEntry (sv) : NULL)
  2899.   typedef GtkToggleActionEntry GtkToggleActionEntry_own;
  2900.   typedef GtkToggleActionEntry GtkToggleActionEntry_copy;
  2901.   typedef GtkToggleActionEntry GtkToggleActionEntry_own_ornull;
  2902. # define newSVGtkToggleActionEntry(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TOGGLE_ACTION_ENTRY, FALSE))
  2903. # define newSVGtkToggleActionEntry_ornull(val)    ((val) ? newSVGtkToggleActionEntry(val) : &PL_sv_undef)
  2904. # define newSVGtkToggleActionEntry_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_TOGGLE_ACTION_ENTRY, TRUE))
  2905. # define newSVGtkToggleActionEntry_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_TOGGLE_ACTION_ENTRY))
  2906. # define newSVGtkToggleActionEntry_own_ornull(val)    ((val) ? newSVGtkToggleActionEntry_own(val) : &PL_sv_undef)
  2907. #endif /* GTK_TYPE_TOGGLE_ACTION_ENTRY */
  2908.  
  2909. #ifdef GTK_TYPE_RADIO_ACTION_ENTRY
  2910.   /* GBoxed GtkRadioActionEntry */
  2911.   typedef GtkRadioActionEntry GtkRadioActionEntry_ornull;
  2912. # define SvGtkRadioActionEntry(sv)    (gperl_get_boxed_check ((sv), GTK_TYPE_RADIO_ACTION_ENTRY))
  2913. # define SvGtkRadioActionEntry_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkRadioActionEntry (sv) : NULL)
  2914.   typedef GtkRadioActionEntry GtkRadioActionEntry_own;
  2915.   typedef GtkRadioActionEntry GtkRadioActionEntry_copy;
  2916.   typedef GtkRadioActionEntry GtkRadioActionEntry_own_ornull;
  2917. # define newSVGtkRadioActionEntry(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_RADIO_ACTION_ENTRY, FALSE))
  2918. # define newSVGtkRadioActionEntry_ornull(val)    ((val) ? newSVGtkRadioActionEntry(val) : &PL_sv_undef)
  2919. # define newSVGtkRadioActionEntry_own(val)    (gperl_new_boxed ((gpointer) (val), GTK_TYPE_RADIO_ACTION_ENTRY, TRUE))
  2920. # define newSVGtkRadioActionEntry_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), GTK_TYPE_RADIO_ACTION_ENTRY))
  2921. # define newSVGtkRadioActionEntry_own_ornull(val)    ((val) ? newSVGtkRadioActionEntry_own(val) : &PL_sv_undef)
  2922. #endif /* GTK_TYPE_RADIO_ACTION_ENTRY */
  2923.  
  2924. #ifdef GTK_TYPE_TOOL_ITEM
  2925.   /* GtkObject derivative GtkToolItem */
  2926. # define SvGtkToolItem(sv)    ((GtkToolItem*)gperl_get_object_check (sv, GTK_TYPE_TOOL_ITEM))
  2927. # define newSVGtkToolItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2928.   typedef GtkToolItem GtkToolItem_ornull;
  2929. # define SvGtkToolItem_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkToolItem(sv) : NULL)
  2930. # define newSVGtkToolItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2931. #endif /* GTK_TYPE_TOOL_ITEM */
  2932.  
  2933. #ifdef GTK_TYPE_TOOL_BUTTON
  2934.   /* GtkObject derivative GtkToolButton */
  2935. # define SvGtkToolButton(sv)    ((GtkToolButton*)gperl_get_object_check (sv, GTK_TYPE_TOOL_BUTTON))
  2936. # define newSVGtkToolButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2937.   typedef GtkToolButton GtkToolButton_ornull;
  2938. # define SvGtkToolButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkToolButton(sv) : NULL)
  2939. # define newSVGtkToolButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2940. #endif /* GTK_TYPE_TOOL_BUTTON */
  2941.  
  2942. #ifdef GTK_TYPE_TOGGLE_TOOL_BUTTON
  2943.   /* GtkObject derivative GtkToggleToolButton */
  2944. # define SvGtkToggleToolButton(sv)    ((GtkToggleToolButton*)gperl_get_object_check (sv, GTK_TYPE_TOGGLE_TOOL_BUTTON))
  2945. # define newSVGtkToggleToolButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2946.   typedef GtkToggleToolButton GtkToggleToolButton_ornull;
  2947. # define SvGtkToggleToolButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkToggleToolButton(sv) : NULL)
  2948. # define newSVGtkToggleToolButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2949. #endif /* GTK_TYPE_TOGGLE_TOOL_BUTTON */
  2950.  
  2951. #ifdef GTK_TYPE_RADIO_TOOL_BUTTON
  2952.   /* GtkObject derivative GtkRadioToolButton */
  2953. # define SvGtkRadioToolButton(sv)    ((GtkRadioToolButton*)gperl_get_object_check (sv, GTK_TYPE_RADIO_TOOL_BUTTON))
  2954. # define newSVGtkRadioToolButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2955.   typedef GtkRadioToolButton GtkRadioToolButton_ornull;
  2956. # define SvGtkRadioToolButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkRadioToolButton(sv) : NULL)
  2957. # define newSVGtkRadioToolButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2958. #endif /* GTK_TYPE_RADIO_TOOL_BUTTON */
  2959.  
  2960. #ifdef GTK_TYPE_SEPARATOR_TOOL_ITEM
  2961.   /* GtkObject derivative GtkSeparatorToolItem */
  2962. # define SvGtkSeparatorToolItem(sv)    ((GtkSeparatorToolItem*)gperl_get_object_check (sv, GTK_TYPE_SEPARATOR_TOOL_ITEM))
  2963. # define newSVGtkSeparatorToolItem(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2964.   typedef GtkSeparatorToolItem GtkSeparatorToolItem_ornull;
  2965. # define SvGtkSeparatorToolItem_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkSeparatorToolItem(sv) : NULL)
  2966. # define newSVGtkSeparatorToolItem_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2967. #endif /* GTK_TYPE_SEPARATOR_TOOL_ITEM */
  2968.  
  2969. #ifdef GTK_TYPE_ACCEL_MAP
  2970.   /* GObject derivative GtkAccelMap */
  2971. # define SvGtkAccelMap(sv)    ((GtkAccelMap*)gperl_get_object_check (sv, GTK_TYPE_ACCEL_MAP))
  2972. # define newSVGtkAccelMap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  2973.   typedef GtkAccelMap GtkAccelMap_ornull;
  2974. # define SvGtkAccelMap_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkAccelMap(sv) : NULL)
  2975. # define newSVGtkAccelMap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  2976. typedef GtkAccelMap GtkAccelMap_noinc;
  2977. #define newSVGtkAccelMap_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  2978. typedef GtkAccelMap GtkAccelMap_noinc_ornull;
  2979. #define newSVGtkAccelMap_noinc_ornull(val)    ((val) ? newSVGtkAccelMap_noinc(val) : &PL_sv_undef)
  2980. #endif /* GTK_TYPE_ACCEL_MAP */
  2981.  
  2982. #ifdef GDK_TYPE_OWNER_CHANGE
  2983.   /* GEnum GdkOwnerChange */
  2984. # define SvGdkOwnerChange(sv)    ((GdkOwnerChange)gperl_convert_enum (GDK_TYPE_OWNER_CHANGE, sv))
  2985. # define newSVGdkOwnerChange(val)    (gperl_convert_back_enum (GDK_TYPE_OWNER_CHANGE, val))
  2986. #endif /* GDK_TYPE_OWNER_CHANGE */
  2987.  
  2988. #ifdef GDK_TYPE_PIXBUF_ROTATION
  2989.   /* GEnum GdkPixbufRotation */
  2990. # define SvGdkPixbufRotation(sv)    ((GdkPixbufRotation)gperl_convert_enum (GDK_TYPE_PIXBUF_ROTATION, sv))
  2991. # define newSVGdkPixbufRotation(val)    (gperl_convert_back_enum (GDK_TYPE_PIXBUF_ROTATION, val))
  2992. #endif /* GDK_TYPE_PIXBUF_ROTATION */
  2993.  
  2994. #ifdef GTK_TYPE_ABOUT_DIALOG
  2995.   /* GtkObject derivative GtkAboutDialog */
  2996. # define SvGtkAboutDialog(sv)    ((GtkAboutDialog*)gperl_get_object_check (sv, GTK_TYPE_ABOUT_DIALOG))
  2997. # define newSVGtkAboutDialog(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  2998.   typedef GtkAboutDialog GtkAboutDialog_ornull;
  2999. # define SvGtkAboutDialog_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkAboutDialog(sv) : NULL)
  3000. # define newSVGtkAboutDialog_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3001. #endif /* GTK_TYPE_ABOUT_DIALOG */
  3002.  
  3003. #ifdef GTK_TYPE_CELL_RENDERER_COMBO
  3004.   /* GtkObject derivative GtkCellRendererCombo */
  3005. # define SvGtkCellRendererCombo(sv)    ((GtkCellRendererCombo*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_COMBO))
  3006. # define newSVGtkCellRendererCombo(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3007.   typedef GtkCellRendererCombo GtkCellRendererCombo_ornull;
  3008. # define SvGtkCellRendererCombo_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCellRendererCombo(sv) : NULL)
  3009. # define newSVGtkCellRendererCombo_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3010. #endif /* GTK_TYPE_CELL_RENDERER_COMBO */
  3011.  
  3012. #ifdef GTK_TYPE_CELL_RENDERER_PROGRESS
  3013.   /* GtkObject derivative GtkCellRendererProgress */
  3014. # define SvGtkCellRendererProgress(sv)    ((GtkCellRendererProgress*)gperl_get_object_check (sv, GTK_TYPE_CELL_RENDERER_PROGRESS))
  3015. # define newSVGtkCellRendererProgress(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3016.   typedef GtkCellRendererProgress GtkCellRendererProgress_ornull;
  3017. # define SvGtkCellRendererProgress_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCellRendererProgress(sv) : NULL)
  3018. # define newSVGtkCellRendererProgress_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3019. #endif /* GTK_TYPE_CELL_RENDERER_PROGRESS */
  3020.  
  3021. #ifdef GTK_TYPE_CELL_VIEW
  3022.   /* GtkObject derivative GtkCellView */
  3023. # define SvGtkCellView(sv)    ((GtkCellView*)gperl_get_object_check (sv, GTK_TYPE_CELL_VIEW))
  3024. # define newSVGtkCellView(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3025.   typedef GtkCellView GtkCellView_ornull;
  3026. # define SvGtkCellView_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkCellView(sv) : NULL)
  3027. # define newSVGtkCellView_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3028. #endif /* GTK_TYPE_CELL_VIEW */
  3029.  
  3030. #ifdef GTK_TYPE_FILE_CHOOSER_BUTTON
  3031.   /* GtkObject derivative GtkFileChooserButton */
  3032. # define SvGtkFileChooserButton(sv)    ((GtkFileChooserButton*)gperl_get_object_check (sv, GTK_TYPE_FILE_CHOOSER_BUTTON))
  3033. # define newSVGtkFileChooserButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3034.   typedef GtkFileChooserButton GtkFileChooserButton_ornull;
  3035. # define SvGtkFileChooserButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkFileChooserButton(sv) : NULL)
  3036. # define newSVGtkFileChooserButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3037. #endif /* GTK_TYPE_FILE_CHOOSER_BUTTON */
  3038.  
  3039. #ifdef GTK_TYPE_ICON_VIEW
  3040.   /* GtkObject derivative GtkIconView */
  3041. # define SvGtkIconView(sv)    ((GtkIconView*)gperl_get_object_check (sv, GTK_TYPE_ICON_VIEW))
  3042. # define newSVGtkIconView(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3043.   typedef GtkIconView GtkIconView_ornull;
  3044. # define SvGtkIconView_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkIconView(sv) : NULL)
  3045. # define newSVGtkIconView_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3046. #endif /* GTK_TYPE_ICON_VIEW */
  3047.  
  3048. #ifdef GTK_TYPE_MENU_TOOL_BUTTON
  3049.   /* GtkObject derivative GtkMenuToolButton */
  3050. # define SvGtkMenuToolButton(sv)    ((GtkMenuToolButton*)gperl_get_object_check (sv, GTK_TYPE_MENU_TOOL_BUTTON))
  3051. # define newSVGtkMenuToolButton(val)    (gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3052.   typedef GtkMenuToolButton GtkMenuToolButton_ornull;
  3053. # define SvGtkMenuToolButton_ornull(sv)    (((sv) && SvOK (sv)) ? SvGtkMenuToolButton(sv) : NULL)
  3054. # define newSVGtkMenuToolButton_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gtk2perl_new_gtkobject (GTK_OBJECT (val)))
  3055. #endif /* GTK_TYPE_MENU_TOOL_BUTTON */
  3056.  
  3057. #ifdef GDK_TYPE_PANGO_RENDERER
  3058.   /* GObject derivative GdkPangoRenderer */
  3059. # define SvGdkPangoRenderer(sv)    ((GdkPangoRenderer*)gperl_get_object_check (sv, GDK_TYPE_PANGO_RENDERER))
  3060. # define newSVGdkPangoRenderer(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3061.   typedef GdkPangoRenderer GdkPangoRenderer_ornull;
  3062. # define SvGdkPangoRenderer_ornull(sv)    (((sv) && SvOK (sv)) ? SvGdkPangoRenderer(sv) : NULL)
  3063. # define newSVGdkPangoRenderer_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3064. typedef GdkPangoRenderer GdkPangoRenderer_noinc;
  3065. #define newSVGdkPangoRenderer_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3066. typedef GdkPangoRenderer GdkPangoRenderer_noinc_ornull;
  3067. #define newSVGdkPangoRenderer_noinc_ornull(val)    ((val) ? newSVGdkPangoRenderer_noinc(val) : &PL_sv_undef)
  3068. #endif /* GDK_TYPE_PANGO_RENDERER */
  3069.  
  3070. #ifdef GTK_TYPE_PACK_DIRECTION
  3071.   /* GEnum GtkPackDirection */
  3072. # define SvGtkPackDirection(sv)    ((GtkPackDirection)gperl_convert_enum (GTK_TYPE_PACK_DIRECTION, sv))
  3073. # define newSVGtkPackDirection(val)    (gperl_convert_back_enum (GTK_TYPE_PACK_DIRECTION, val))
  3074. #endif /* GTK_TYPE_PACK_DIRECTION */
  3075.  
  3076. #ifdef GTK_TYPE_ICON_VIEW_DROP_POSITION
  3077.   /* GEnum GtkIconViewDropPosition */
  3078. # define SvGtkIconViewDropPosition(sv)    ((GtkIconViewDropPosition)gperl_convert_enum (GTK_TYPE_ICON_VIEW_DROP_POSITION, sv))
  3079. # define newSVGtkIconViewDropPosition(val)    (gperl_convert_back_enum (GTK_TYPE_ICON_VIEW_DROP_POSITION, val))
  3080. #endif /* GTK_TYPE_ICON_VIEW_DROP_POSITION */
  3081.  
  3082. #ifdef PANGO_TYPE_ALIGNMENT
  3083.   /* GEnum PangoAlignment */
  3084. # define SvPangoAlignment(sv)    ((PangoAlignment)gperl_convert_enum (PANGO_TYPE_ALIGNMENT, sv))
  3085. # define newSVPangoAlignment(val)    (gperl_convert_back_enum (PANGO_TYPE_ALIGNMENT, val))
  3086. #endif /* PANGO_TYPE_ALIGNMENT */
  3087.  
  3088. #ifdef PANGO_TYPE_ATTR_LIST
  3089.   /* GBoxed PangoAttrList */
  3090.   typedef PangoAttrList PangoAttrList_ornull;
  3091. # define SvPangoAttrList(sv)    (gperl_get_boxed_check ((sv), PANGO_TYPE_ATTR_LIST))
  3092. # define SvPangoAttrList_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoAttrList (sv) : NULL)
  3093.   typedef PangoAttrList PangoAttrList_own;
  3094.   typedef PangoAttrList PangoAttrList_copy;
  3095.   typedef PangoAttrList PangoAttrList_own_ornull;
  3096. # define newSVPangoAttrList(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_ATTR_LIST, FALSE))
  3097. # define newSVPangoAttrList_ornull(val)    ((val) ? newSVPangoAttrList(val) : &PL_sv_undef)
  3098. # define newSVPangoAttrList_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_ATTR_LIST, TRUE))
  3099. # define newSVPangoAttrList_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_ATTR_LIST))
  3100. # define newSVPangoAttrList_own_ornull(val)    ((val) ? newSVPangoAttrList_own(val) : &PL_sv_undef)
  3101. #endif /* PANGO_TYPE_ATTR_LIST */
  3102.  
  3103. #ifdef PANGO_TYPE_ATTR_TYPE
  3104.   /* GEnum PangoAttrType */
  3105. # define SvPangoAttrType(sv)    ((PangoAttrType)gperl_convert_enum (PANGO_TYPE_ATTR_TYPE, sv))
  3106. # define newSVPangoAttrType(val)    (gperl_convert_back_enum (PANGO_TYPE_ATTR_TYPE, val))
  3107. #endif /* PANGO_TYPE_ATTR_TYPE */
  3108.  
  3109. #ifdef PANGO_TYPE_COLOR
  3110.   /* GBoxed PangoColor */
  3111.   typedef PangoColor PangoColor_ornull;
  3112. # define SvPangoColor(sv)    (gperl_get_boxed_check ((sv), PANGO_TYPE_COLOR))
  3113. # define SvPangoColor_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoColor (sv) : NULL)
  3114.   typedef PangoColor PangoColor_own;
  3115.   typedef PangoColor PangoColor_copy;
  3116.   typedef PangoColor PangoColor_own_ornull;
  3117. # define newSVPangoColor(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_COLOR, FALSE))
  3118. # define newSVPangoColor_ornull(val)    ((val) ? newSVPangoColor(val) : &PL_sv_undef)
  3119. # define newSVPangoColor_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_COLOR, TRUE))
  3120. # define newSVPangoColor_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_COLOR))
  3121. # define newSVPangoColor_own_ornull(val)    ((val) ? newSVPangoColor_own(val) : &PL_sv_undef)
  3122. #endif /* PANGO_TYPE_COLOR */
  3123.  
  3124. #ifdef PANGO_TYPE_CONTEXT
  3125.   /* GObject derivative PangoContext */
  3126. # define SvPangoContext(sv)    ((PangoContext*)gperl_get_object_check (sv, PANGO_TYPE_CONTEXT))
  3127. # define newSVPangoContext(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3128.   typedef PangoContext PangoContext_ornull;
  3129. # define SvPangoContext_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoContext(sv) : NULL)
  3130. # define newSVPangoContext_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3131. typedef PangoContext PangoContext_noinc;
  3132. #define newSVPangoContext_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3133. typedef PangoContext PangoContext_noinc_ornull;
  3134. #define newSVPangoContext_noinc_ornull(val)    ((val) ? newSVPangoContext_noinc(val) : &PL_sv_undef)
  3135. #endif /* PANGO_TYPE_CONTEXT */
  3136.  
  3137. #ifdef PANGO_TYPE_COVERAGE_LEVEL
  3138.   /* GEnum PangoCoverageLevel */
  3139. # define SvPangoCoverageLevel(sv)    ((PangoCoverageLevel)gperl_convert_enum (PANGO_TYPE_COVERAGE_LEVEL, sv))
  3140. # define newSVPangoCoverageLevel(val)    (gperl_convert_back_enum (PANGO_TYPE_COVERAGE_LEVEL, val))
  3141. #endif /* PANGO_TYPE_COVERAGE_LEVEL */
  3142.  
  3143. #ifdef PANGO_TYPE_DIRECTION
  3144.   /* GEnum PangoDirection */
  3145. # define SvPangoDirection(sv)    ((PangoDirection)gperl_convert_enum (PANGO_TYPE_DIRECTION, sv))
  3146. # define newSVPangoDirection(val)    (gperl_convert_back_enum (PANGO_TYPE_DIRECTION, val))
  3147. #endif /* PANGO_TYPE_DIRECTION */
  3148.  
  3149. #ifdef PANGO_TYPE_FONT_DESCRIPTION
  3150.   /* GBoxed PangoFontDescription */
  3151.   typedef PangoFontDescription PangoFontDescription_ornull;
  3152. # define SvPangoFontDescription(sv)    (gperl_get_boxed_check ((sv), PANGO_TYPE_FONT_DESCRIPTION))
  3153. # define SvPangoFontDescription_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoFontDescription (sv) : NULL)
  3154.   typedef PangoFontDescription PangoFontDescription_own;
  3155.   typedef PangoFontDescription PangoFontDescription_copy;
  3156.   typedef PangoFontDescription PangoFontDescription_own_ornull;
  3157. # define newSVPangoFontDescription(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_FONT_DESCRIPTION, FALSE))
  3158. # define newSVPangoFontDescription_ornull(val)    ((val) ? newSVPangoFontDescription(val) : &PL_sv_undef)
  3159. # define newSVPangoFontDescription_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_FONT_DESCRIPTION, TRUE))
  3160. # define newSVPangoFontDescription_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_FONT_DESCRIPTION))
  3161. # define newSVPangoFontDescription_own_ornull(val)    ((val) ? newSVPangoFontDescription_own(val) : &PL_sv_undef)
  3162. #endif /* PANGO_TYPE_FONT_DESCRIPTION */
  3163.  
  3164. #ifdef PANGO_TYPE_FONT_FACE
  3165.   /* GObject derivative PangoFontFace */
  3166. # define SvPangoFontFace(sv)    ((PangoFontFace*)gperl_get_object_check (sv, PANGO_TYPE_FONT_FACE))
  3167. # define newSVPangoFontFace(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3168.   typedef PangoFontFace PangoFontFace_ornull;
  3169. # define SvPangoFontFace_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoFontFace(sv) : NULL)
  3170. # define newSVPangoFontFace_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3171. typedef PangoFontFace PangoFontFace_noinc;
  3172. #define newSVPangoFontFace_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3173. typedef PangoFontFace PangoFontFace_noinc_ornull;
  3174. #define newSVPangoFontFace_noinc_ornull(val)    ((val) ? newSVPangoFontFace_noinc(val) : &PL_sv_undef)
  3175. #endif /* PANGO_TYPE_FONT_FACE */
  3176.  
  3177. #ifdef PANGO_TYPE_FONT_FAMILY
  3178.   /* GObject derivative PangoFontFamily */
  3179. # define SvPangoFontFamily(sv)    ((PangoFontFamily*)gperl_get_object_check (sv, PANGO_TYPE_FONT_FAMILY))
  3180. # define newSVPangoFontFamily(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3181.   typedef PangoFontFamily PangoFontFamily_ornull;
  3182. # define SvPangoFontFamily_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoFontFamily(sv) : NULL)
  3183. # define newSVPangoFontFamily_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3184. typedef PangoFontFamily PangoFontFamily_noinc;
  3185. #define newSVPangoFontFamily_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3186. typedef PangoFontFamily PangoFontFamily_noinc_ornull;
  3187. #define newSVPangoFontFamily_noinc_ornull(val)    ((val) ? newSVPangoFontFamily_noinc(val) : &PL_sv_undef)
  3188. #endif /* PANGO_TYPE_FONT_FAMILY */
  3189.  
  3190. #ifdef PANGO_TYPE_FONT_MAP
  3191.   /* GObject derivative PangoFontMap */
  3192. # define SvPangoFontMap(sv)    ((PangoFontMap*)gperl_get_object_check (sv, PANGO_TYPE_FONT_MAP))
  3193. # define newSVPangoFontMap(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3194.   typedef PangoFontMap PangoFontMap_ornull;
  3195. # define SvPangoFontMap_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoFontMap(sv) : NULL)
  3196. # define newSVPangoFontMap_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3197. typedef PangoFontMap PangoFontMap_noinc;
  3198. #define newSVPangoFontMap_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3199. typedef PangoFontMap PangoFontMap_noinc_ornull;
  3200. #define newSVPangoFontMap_noinc_ornull(val)    ((val) ? newSVPangoFontMap_noinc(val) : &PL_sv_undef)
  3201. #endif /* PANGO_TYPE_FONT_MAP */
  3202.  
  3203. #ifdef PANGO_TYPE_FONT_MASK
  3204.   /* GFlags PangoFontMask */
  3205. # define SvPangoFontMask(sv)    ((PangoFontMask)gperl_convert_flags (PANGO_TYPE_FONT_MASK, sv))
  3206. # define newSVPangoFontMask(val)    (gperl_convert_back_flags (PANGO_TYPE_FONT_MASK, val))
  3207. #endif /* PANGO_TYPE_FONT_MASK */
  3208.  
  3209. #ifdef PANGO_TYPE_FONT_METRICS
  3210.   /* GBoxed PangoFontMetrics */
  3211.   typedef PangoFontMetrics PangoFontMetrics_ornull;
  3212. # define SvPangoFontMetrics(sv)    (gperl_get_boxed_check ((sv), PANGO_TYPE_FONT_METRICS))
  3213. # define SvPangoFontMetrics_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoFontMetrics (sv) : NULL)
  3214.   typedef PangoFontMetrics PangoFontMetrics_own;
  3215.   typedef PangoFontMetrics PangoFontMetrics_copy;
  3216.   typedef PangoFontMetrics PangoFontMetrics_own_ornull;
  3217. # define newSVPangoFontMetrics(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_FONT_METRICS, FALSE))
  3218. # define newSVPangoFontMetrics_ornull(val)    ((val) ? newSVPangoFontMetrics(val) : &PL_sv_undef)
  3219. # define newSVPangoFontMetrics_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_FONT_METRICS, TRUE))
  3220. # define newSVPangoFontMetrics_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_FONT_METRICS))
  3221. # define newSVPangoFontMetrics_own_ornull(val)    ((val) ? newSVPangoFontMetrics_own(val) : &PL_sv_undef)
  3222. #endif /* PANGO_TYPE_FONT_METRICS */
  3223.  
  3224. #ifdef PANGO_TYPE_FONT
  3225.   /* GObject derivative PangoFont */
  3226. # define SvPangoFont(sv)    ((PangoFont*)gperl_get_object_check (sv, PANGO_TYPE_FONT))
  3227. # define newSVPangoFont(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3228.   typedef PangoFont PangoFont_ornull;
  3229. # define SvPangoFont_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoFont(sv) : NULL)
  3230. # define newSVPangoFont_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3231. typedef PangoFont PangoFont_noinc;
  3232. #define newSVPangoFont_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3233. typedef PangoFont PangoFont_noinc_ornull;
  3234. #define newSVPangoFont_noinc_ornull(val)    ((val) ? newSVPangoFont_noinc(val) : &PL_sv_undef)
  3235. #endif /* PANGO_TYPE_FONT */
  3236.  
  3237. #ifdef PANGO_TYPE_FONTSET
  3238.   /* GObject derivative PangoFontset */
  3239. # define SvPangoFontset(sv)    ((PangoFontset*)gperl_get_object_check (sv, PANGO_TYPE_FONTSET))
  3240. # define newSVPangoFontset(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3241.   typedef PangoFontset PangoFontset_ornull;
  3242. # define SvPangoFontset_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoFontset(sv) : NULL)
  3243. # define newSVPangoFontset_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3244. typedef PangoFontset PangoFontset_noinc;
  3245. #define newSVPangoFontset_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3246. typedef PangoFontset PangoFontset_noinc_ornull;
  3247. #define newSVPangoFontset_noinc_ornull(val)    ((val) ? newSVPangoFontset_noinc(val) : &PL_sv_undef)
  3248. #endif /* PANGO_TYPE_FONTSET */
  3249.  
  3250. #ifdef PANGO_TYPE_GLYPH_STRING
  3251.   /* GBoxed PangoGlyphString */
  3252.   typedef PangoGlyphString PangoGlyphString_ornull;
  3253. # define SvPangoGlyphString(sv)    (gperl_get_boxed_check ((sv), PANGO_TYPE_GLYPH_STRING))
  3254. # define SvPangoGlyphString_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoGlyphString (sv) : NULL)
  3255.   typedef PangoGlyphString PangoGlyphString_own;
  3256.   typedef PangoGlyphString PangoGlyphString_copy;
  3257.   typedef PangoGlyphString PangoGlyphString_own_ornull;
  3258. # define newSVPangoGlyphString(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_GLYPH_STRING, FALSE))
  3259. # define newSVPangoGlyphString_ornull(val)    ((val) ? newSVPangoGlyphString(val) : &PL_sv_undef)
  3260. # define newSVPangoGlyphString_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_GLYPH_STRING, TRUE))
  3261. # define newSVPangoGlyphString_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_GLYPH_STRING))
  3262. # define newSVPangoGlyphString_own_ornull(val)    ((val) ? newSVPangoGlyphString_own(val) : &PL_sv_undef)
  3263. #endif /* PANGO_TYPE_GLYPH_STRING */
  3264.  
  3265. #ifdef PANGO_TYPE_LANGUAGE
  3266.   /* GBoxed PangoLanguage */
  3267.   typedef PangoLanguage PangoLanguage_ornull;
  3268. # define SvPangoLanguage(sv)    (gperl_get_boxed_check ((sv), PANGO_TYPE_LANGUAGE))
  3269. # define SvPangoLanguage_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoLanguage (sv) : NULL)
  3270.   typedef PangoLanguage PangoLanguage_own;
  3271.   typedef PangoLanguage PangoLanguage_copy;
  3272.   typedef PangoLanguage PangoLanguage_own_ornull;
  3273. # define newSVPangoLanguage(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_LANGUAGE, FALSE))
  3274. # define newSVPangoLanguage_ornull(val)    ((val) ? newSVPangoLanguage(val) : &PL_sv_undef)
  3275. # define newSVPangoLanguage_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_LANGUAGE, TRUE))
  3276. # define newSVPangoLanguage_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_LANGUAGE))
  3277. # define newSVPangoLanguage_own_ornull(val)    ((val) ? newSVPangoLanguage_own(val) : &PL_sv_undef)
  3278. #endif /* PANGO_TYPE_LANGUAGE */
  3279.  
  3280. #ifdef PANGO_TYPE_LAYOUT
  3281.   /* GObject derivative PangoLayout */
  3282. # define SvPangoLayout(sv)    ((PangoLayout*)gperl_get_object_check (sv, PANGO_TYPE_LAYOUT))
  3283. # define newSVPangoLayout(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3284.   typedef PangoLayout PangoLayout_ornull;
  3285. # define SvPangoLayout_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoLayout(sv) : NULL)
  3286. # define newSVPangoLayout_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3287. typedef PangoLayout PangoLayout_noinc;
  3288. #define newSVPangoLayout_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3289. typedef PangoLayout PangoLayout_noinc_ornull;
  3290. #define newSVPangoLayout_noinc_ornull(val)    ((val) ? newSVPangoLayout_noinc(val) : &PL_sv_undef)
  3291. #endif /* PANGO_TYPE_LAYOUT */
  3292.  
  3293. #ifdef PANGO_TYPE_SCRIPT
  3294.   /* GEnum PangoScript */
  3295. # define SvPangoScript(sv)    ((PangoScript)gperl_convert_enum (PANGO_TYPE_SCRIPT, sv))
  3296. # define newSVPangoScript(val)    (gperl_convert_back_enum (PANGO_TYPE_SCRIPT, val))
  3297. #endif /* PANGO_TYPE_SCRIPT */
  3298.  
  3299. #ifdef PANGO_TYPE_STRETCH
  3300.   /* GEnum PangoStretch */
  3301. # define SvPangoStretch(sv)    ((PangoStretch)gperl_convert_enum (PANGO_TYPE_STRETCH, sv))
  3302. # define newSVPangoStretch(val)    (gperl_convert_back_enum (PANGO_TYPE_STRETCH, val))
  3303. #endif /* PANGO_TYPE_STRETCH */
  3304.  
  3305. #ifdef PANGO_TYPE_STYLE
  3306.   /* GEnum PangoStyle */
  3307. # define SvPangoStyle(sv)    ((PangoStyle)gperl_convert_enum (PANGO_TYPE_STYLE, sv))
  3308. # define newSVPangoStyle(val)    (gperl_convert_back_enum (PANGO_TYPE_STYLE, val))
  3309. #endif /* PANGO_TYPE_STYLE */
  3310.  
  3311. #ifdef PANGO_TYPE_TAB_ALIGN
  3312.   /* GEnum PangoTabAlign */
  3313. # define SvPangoTabAlign(sv)    ((PangoTabAlign)gperl_convert_enum (PANGO_TYPE_TAB_ALIGN, sv))
  3314. # define newSVPangoTabAlign(val)    (gperl_convert_back_enum (PANGO_TYPE_TAB_ALIGN, val))
  3315. #endif /* PANGO_TYPE_TAB_ALIGN */
  3316.  
  3317. #ifdef PANGO_TYPE_TAB_ARRAY
  3318.   /* GBoxed PangoTabArray */
  3319.   typedef PangoTabArray PangoTabArray_ornull;
  3320. # define SvPangoTabArray(sv)    (gperl_get_boxed_check ((sv), PANGO_TYPE_TAB_ARRAY))
  3321. # define SvPangoTabArray_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoTabArray (sv) : NULL)
  3322.   typedef PangoTabArray PangoTabArray_own;
  3323.   typedef PangoTabArray PangoTabArray_copy;
  3324.   typedef PangoTabArray PangoTabArray_own_ornull;
  3325. # define newSVPangoTabArray(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_TAB_ARRAY, FALSE))
  3326. # define newSVPangoTabArray_ornull(val)    ((val) ? newSVPangoTabArray(val) : &PL_sv_undef)
  3327. # define newSVPangoTabArray_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_TAB_ARRAY, TRUE))
  3328. # define newSVPangoTabArray_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_TAB_ARRAY))
  3329. # define newSVPangoTabArray_own_ornull(val)    ((val) ? newSVPangoTabArray_own(val) : &PL_sv_undef)
  3330. #endif /* PANGO_TYPE_TAB_ARRAY */
  3331.  
  3332. #ifdef PANGO_TYPE_UNDERLINE
  3333.   /* GEnum PangoUnderline */
  3334. # define SvPangoUnderline(sv)    ((PangoUnderline)gperl_convert_enum (PANGO_TYPE_UNDERLINE, sv))
  3335. # define newSVPangoUnderline(val)    (gperl_convert_back_enum (PANGO_TYPE_UNDERLINE, val))
  3336. #endif /* PANGO_TYPE_UNDERLINE */
  3337.  
  3338. #ifdef PANGO_TYPE_VARIANT
  3339.   /* GEnum PangoVariant */
  3340. # define SvPangoVariant(sv)    ((PangoVariant)gperl_convert_enum (PANGO_TYPE_VARIANT, sv))
  3341. # define newSVPangoVariant(val)    (gperl_convert_back_enum (PANGO_TYPE_VARIANT, val))
  3342. #endif /* PANGO_TYPE_VARIANT */
  3343.  
  3344. #ifdef PANGO_TYPE_WEIGHT
  3345.   /* GEnum PangoWeight */
  3346. # define SvPangoWeight(sv)    ((PangoWeight)gperl_convert_enum (PANGO_TYPE_WEIGHT, sv))
  3347. # define newSVPangoWeight(val)    (gperl_convert_back_enum (PANGO_TYPE_WEIGHT, val))
  3348. #endif /* PANGO_TYPE_WEIGHT */
  3349.  
  3350. #ifdef PANGO_TYPE_WRAP_MODE
  3351.   /* GEnum PangoWrapMode */
  3352. # define SvPangoWrapMode(sv)    ((PangoWrapMode)gperl_convert_enum (PANGO_TYPE_WRAP_MODE, sv))
  3353. # define newSVPangoWrapMode(val)    (gperl_convert_back_enum (PANGO_TYPE_WRAP_MODE, val))
  3354. #endif /* PANGO_TYPE_WRAP_MODE */
  3355.  
  3356. #ifdef PANGO_TYPE_LAYOUT_ITER
  3357.   /* GBoxed PangoLayoutIter */
  3358.   typedef PangoLayoutIter PangoLayoutIter_ornull;
  3359. # define SvPangoLayoutIter(sv)    (gperl_get_boxed_check ((sv), PANGO_TYPE_LAYOUT_ITER))
  3360. # define SvPangoLayoutIter_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoLayoutIter (sv) : NULL)
  3361.   typedef PangoLayoutIter PangoLayoutIter_own;
  3362.   typedef PangoLayoutIter PangoLayoutIter_copy;
  3363.   typedef PangoLayoutIter PangoLayoutIter_own_ornull;
  3364. # define newSVPangoLayoutIter(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_LAYOUT_ITER, FALSE))
  3365. # define newSVPangoLayoutIter_ornull(val)    ((val) ? newSVPangoLayoutIter(val) : &PL_sv_undef)
  3366. # define newSVPangoLayoutIter_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_LAYOUT_ITER, TRUE))
  3367. # define newSVPangoLayoutIter_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_LAYOUT_ITER))
  3368. # define newSVPangoLayoutIter_own_ornull(val)    ((val) ? newSVPangoLayoutIter_own(val) : &PL_sv_undef)
  3369. #endif /* PANGO_TYPE_LAYOUT_ITER */
  3370.  
  3371. #ifdef PANGO_TYPE_SCRIPT_ITER
  3372.   /* GBoxed PangoScriptIter */
  3373.   typedef PangoScriptIter PangoScriptIter_ornull;
  3374. # define SvPangoScriptIter(sv)    (gperl_get_boxed_check ((sv), PANGO_TYPE_SCRIPT_ITER))
  3375. # define SvPangoScriptIter_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoScriptIter (sv) : NULL)
  3376.   typedef PangoScriptIter PangoScriptIter_own;
  3377.   typedef PangoScriptIter PangoScriptIter_copy;
  3378.   typedef PangoScriptIter PangoScriptIter_own_ornull;
  3379. # define newSVPangoScriptIter(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_SCRIPT_ITER, FALSE))
  3380. # define newSVPangoScriptIter_ornull(val)    ((val) ? newSVPangoScriptIter(val) : &PL_sv_undef)
  3381. # define newSVPangoScriptIter_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_SCRIPT_ITER, TRUE))
  3382. # define newSVPangoScriptIter_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_SCRIPT_ITER))
  3383. # define newSVPangoScriptIter_own_ornull(val)    ((val) ? newSVPangoScriptIter_own(val) : &PL_sv_undef)
  3384. #endif /* PANGO_TYPE_SCRIPT_ITER */
  3385.  
  3386. #ifdef PANGO_TYPE_MATRIX
  3387.   /* GBoxed PangoMatrix */
  3388.   typedef PangoMatrix PangoMatrix_ornull;
  3389. # define SvPangoMatrix(sv)    (gperl_get_boxed_check ((sv), PANGO_TYPE_MATRIX))
  3390. # define SvPangoMatrix_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoMatrix (sv) : NULL)
  3391.   typedef PangoMatrix PangoMatrix_own;
  3392.   typedef PangoMatrix PangoMatrix_copy;
  3393.   typedef PangoMatrix PangoMatrix_own_ornull;
  3394. # define newSVPangoMatrix(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_MATRIX, FALSE))
  3395. # define newSVPangoMatrix_ornull(val)    ((val) ? newSVPangoMatrix(val) : &PL_sv_undef)
  3396. # define newSVPangoMatrix_own(val)    (gperl_new_boxed ((gpointer) (val), PANGO_TYPE_MATRIX, TRUE))
  3397. # define newSVPangoMatrix_copy(val)    (gperl_new_boxed_copy ((gpointer) (val), PANGO_TYPE_MATRIX))
  3398. # define newSVPangoMatrix_own_ornull(val)    ((val) ? newSVPangoMatrix_own(val) : &PL_sv_undef)
  3399. #endif /* PANGO_TYPE_MATRIX */
  3400.  
  3401. #ifdef PANGO_TYPE_ELLIPSIZE_MODE
  3402.   /* GEnum PangoEllipsizeMode */
  3403. # define SvPangoEllipsizeMode(sv)    ((PangoEllipsizeMode)gperl_convert_enum (PANGO_TYPE_ELLIPSIZE_MODE, sv))
  3404. # define newSVPangoEllipsizeMode(val)    (gperl_convert_back_enum (PANGO_TYPE_ELLIPSIZE_MODE, val))
  3405. #endif /* PANGO_TYPE_ELLIPSIZE_MODE */
  3406.  
  3407. #ifdef PANGO_TYPE_RENDERER
  3408.   /* GObject derivative PangoRenderer */
  3409. # define SvPangoRenderer(sv)    ((PangoRenderer*)gperl_get_object_check (sv, PANGO_TYPE_RENDERER))
  3410. # define newSVPangoRenderer(val)    (gperl_new_object (G_OBJECT (val), FALSE))
  3411.   typedef PangoRenderer PangoRenderer_ornull;
  3412. # define SvPangoRenderer_ornull(sv)    (((sv) && SvOK (sv)) ? SvPangoRenderer(sv) : NULL)
  3413. # define newSVPangoRenderer_ornull(val)    (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
  3414. typedef PangoRenderer PangoRenderer_noinc;
  3415. #define newSVPangoRenderer_noinc(val)    (gperl_new_object (G_OBJECT (val), TRUE))
  3416. typedef PangoRenderer PangoRenderer_noinc_ornull;
  3417. #define newSVPangoRenderer_noinc_ornull(val)    ((val) ? newSVPangoRenderer_noinc(val) : &PL_sv_undef)
  3418. #endif /* PANGO_TYPE_RENDERER */
  3419.  
  3420. #ifdef PANGO_TYPE_RENDER_PART
  3421.   /* GEnum PangoRenderPart */
  3422. # define SvPangoRenderPart(sv)    ((PangoRenderPart)gperl_convert_enum (PANGO_TYPE_RENDER_PART, sv))
  3423. # define newSVPangoRenderPart(val)    (gperl_convert_back_enum (PANGO_TYPE_RENDER_PART, val))
  3424. #endif /* PANGO_TYPE_RENDER_PART */
  3425.