From 8cbc895c917357a0dea4b8a8b81ff0920eea66e3 Mon Sep 17 00:00:00 2001
From: kramm <kramm>
Date: Sat, 18 Dec 2004 16:56:56 +0000
Subject: [PATCH] added some more generic tag functions.

---
 lib/python/tag.c |   30 ++++++++++++++++++++++++++----
 1 file changed, 26 insertions(+), 4 deletions(-)

diff --git a/lib/python/tag.c b/lib/python/tag.c
index 33cfddc..5d55fb3 100644
--- a/lib/python/tag.c
+++ b/lib/python/tag.c
@@ -113,15 +113,37 @@ static int fillTAG(PyObject*self)
 static PyObject* tag_isShape(PyObject * _self, PyObject*args)
 {
     TagObject*self = (TagObject*)_self;
-    if(!PyArg_ParseTuple(args, ""))
-	return NULL;
-    if(!fillTAG((PyObject*)self))
-	return NULL;
+    if(!PyArg_ParseTuple(args, "")) return NULL;
+    if(!fillTAG((PyObject*)self))   return NULL;
     return PyInt_FromLong(swf_isShapeTag(self->internals.tag));
 }
+static PyObject* tag_isImage(PyObject * _self, PyObject*args)
+{
+    TagObject*self = (TagObject*)_self;
+    if(!PyArg_ParseTuple(args, "")) return NULL;
+    if(!fillTAG((PyObject*)self))   return NULL;
+    return PyInt_FromLong(swf_isImageTag(self->internals.tag));
+}
+static PyObject* tag_isDefiningTag(PyObject * _self, PyObject*args)
+{
+    TagObject*self = (TagObject*)_self;
+    if(!PyArg_ParseTuple(args, "")) return NULL;
+    if(!fillTAG((PyObject*)self))   return NULL;
+    return PyInt_FromLong(swf_isDefiningTag(self->internals.tag));
+}
+static PyObject* tag_getBBox(PyObject * _self, PyObject*args)
+{
+    TagObject*self = (TagObject*)_self;
+    if(!PyArg_ParseTuple(args, "")) return NULL;
+    if(!fillTAG((PyObject*)self))   return NULL;
+    return f_BBox2(swf_GetDefineBBox(self->internals.tag));
+}
 //----------------------------------------------------------------------------
 static PyMethodDef common_tagfunctions[] =
 {{"isShape", tag_isShape, METH_VARARGS, "tests whether the tag is a shape tag"},
+ {"isImage", tag_isImage, METH_VARARGS, "tests whether the tag is an image"},
+ {"isDefiningTag", tag_isDefiningTag, METH_VARARGS, "tests whether the tag is a defining tag"},
+ {"getBBox", tag_getBBox, METH_VARARGS, "get's the tags bounding box"},
  {NULL, NULL, 0, NULL}
 };
 
-- 
1.7.10.4