Release 2.0.7

[gob-dx.git] / src / test.gob

diff --git a/src/test.gob b/src/test.gob
index 67f25cf9e9fd998e6f453aa0f85bdd20da29b2b6..75d45f01f9a66e7fe9ca4d342a97c2519bf268ed 100644 (file)
--- a/src/test.gob
+++ b/src/test.gob
@@ -108,9 +108,13 @@ class Test:Object from G:Object
        argument POINTER testingstring stringlink;
 
        public Test:Object * testingobj
-               destroywith g_object_unref;
+               unrefwith g_object_unref;
        argument POINTER testingobj objectlink;
 
+       public Test:Object * testingobjfoo
+               unref { if (VAR) g_object_unref (VAR); };
+       argument POINTER testingobjfoo objectlink;
+
        classwide int foo = 20;
        argument INT foo link;
 
@@ -142,6 +146,27 @@ class Test:Object from G:Object
                set { self->_priv->a_property = g_value_get_char (VAL); }
                get { g_value_set_char (VAL, self->_priv->a_property); };
 
+       property OBJECT foobarblahllll1
+               (nick = "xxxxxxx1",
+                blurb = "yyyyyy",
+                object_type = Gtk:Button)
+               get { /* FOO1 */ };
+       property OBJECT foobarblahllll2
+               (nick = "xxxxxxx2",
+                blurb = "yyyyyy",
+                object_type = G:Object)
+               set { /* FOO2 */ };
+
+       private double dblnum;
+       property DOUBLE dblnum
+               (nick = _("dblnum"),
+                blurb = _("dblnum"),
+                minimum = 0.1,
+                maximum = 99.1,
+                default_value = 0.3,
+                flags = CONSTRUCT|CONSTRUCT_ONLY,
+                export,
+                link);
 
        private char *b_property;
        property STRING b_property
@@ -153,6 +178,23 @@ class Test:Object from G:Object
                 export,
                 link);
 
+       private Test:Object *objectproperty;
+       property OBJECT objectproperty (nick   = "object",
+                               blurb  = "obj property",
+                               object_type = Test:Object,
+                               link);
+
+       private Test:Enum enum_property;
+       property ENUM enum_property (nick   = "enumprop",
+                               blurb  = "enumprop",
+                               enum_type = Test:Enum,
+                               link);
+
+       private Some:Flags flags_property;
+       property ENUM flags_property (nick   = "flagsprop",
+                               blurb  = "flagsprop",
+                               flags_type = Some:Flags,
+                               link);
 
        private int j;
        public GObject * h;
@@ -415,11 +457,11 @@ class Test:Object from G:Object
        }
 
        signal last NONE(CHAR,UCHAR,BOOLEAN,INT,UINT,LONG,ULONG,FLOAT,DOUBLE,
-                        STRING,ENUM,FLAGS,BOXED,POINTER,OBJECT)
+                        STRING,ENUM,POINTER,OBJECT)
        void
        testargs(self, gchar a, guchar b, gboolean c, gint d, guint e, glong f,
                 gulong g, gfloat h, gdouble i, gchar * j, gint k,
-                guint l, gpointer m, gpointer o, GObject *p)
+                gpointer o, GObject *p)
        {
                /* ugh, testing casting */
        }