src/esmart_container/rb_esmart_container.c

   1 /*
   2  * $Id: rb_esmart_container.c 217 2005-02-10 14:24:57Z tilman $
   3  *
   4  * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include <ruby.h>
  22
  23 #include <Esmart/Esmart_Container.h>
  24 #include <evas/rb_evas.h>
  25 #include <evas/rb_evas_object.h>
  26
  27 #include "../rb_esmart.h"
  28
  29 static void c_free (RbEvasObject *e)
  30 {
  31         c_evas_object_free (e, true);
  32 }
  33
  34 static VALUE c_new (VALUE klass, VALUE evas)
  35 {
  36         VALUE self, argv[1];
  37         RbEvasObject *cont;
  38
  39         CHECK_CLASS (evas, cEvas);
  40         GET_OBJ (evas, RbEvas, e);
  41
  42         self = Data_Make_Struct (klass, RbEvasObject, c_evas_object_mark,
  43                                  c_free, cont);
  44         cont->real = esmart_container_new (e->real);
  45
  46         argv[0] = evas;
  47         rb_obj_call_init (self, 1, argv);
  48
  49         return self;
  50 }
  51
  52 static VALUE c_append_element (VALUE self, VALUE element)
  53 {
  54         GET_OBJ (self, RbEvasObject, e);
  55
  56         CHECK_CLASS (element, cEvasObject);
  57         GET_OBJ (element, RbEvasObject, o);
  58
  59         esmart_container_element_append (e->real, o->real);
  60
  61         return Qnil;
  62 }
  63
  64 static VALUE c_prepend_element (VALUE self, VALUE element)
  65 {
  66         GET_OBJ (self, RbEvasObject, e);
  67
  68         CHECK_CLASS (element, cEvasObject);
  69         GET_OBJ (element, RbEvasObject, o);
  70
  71         esmart_container_element_prepend (e->real, o->real);
  72
  73         return Qnil;
  74 }
  75
  76 static VALUE c_remove_element (VALUE self, VALUE element)
  77 {
  78         GET_OBJ (self, RbEvasObject, e);
  79
  80         CHECK_CLASS (element, cEvasObject);
  81         GET_OBJ (element, RbEvasObject, o);
  82
  83         esmart_container_element_remove (e->real, o->real);
  84
  85         return Qnil;
  86 }
  87
  88 static VALUE c_elements_get (VALUE self)
  89 {
  90         VALUE ary;
  91         Evas_List *list, *l;
  92
  93         GET_OBJ (self, RbEvasObject, e);
  94
  95         list = esmart_container_elements_get (e->real);
  96         ary = rb_ary_new ();
  97
  98         for (l = list; l; l = l->next)
  99                 rb_ary_push (ary, TO_EVAS_OBJECT (l->data));
 100
 101         return ary;
 102 }
 103
 104 static VALUE c_direction_get (VALUE self)
 105 {
 106         GET_OBJ (self, RbEvasObject, e);
 107
 108         return INT2FIX (esmart_container_direction_get (e->real));
 109 }
 110
 111 static VALUE c_direction_set (VALUE self, VALUE val)
 112 {
 113         GET_OBJ (self, RbEvasObject, e);
 114
 115         Check_Type (val, T_FIXNUM);
 116
 117         esmart_container_direction_set (e->real, FIX2INT (val));
 118
 119         return Qnil;
 120 }
 121
 122 static VALUE c_spacing_get (VALUE self)
 123 {
 124         GET_OBJ (self, RbEvasObject, e);
 125
 126         return INT2FIX (esmart_container_spacing_get (e->real));
 127 }
 128
 129 static VALUE c_spacing_set (VALUE self, VALUE val)
 130 {
 131         GET_OBJ (self, RbEvasObject, e);
 132
 133         Check_Type (val, T_FIXNUM);
 134
 135         esmart_container_spacing_set (e->real, FIX2INT (val));
 136
 137         return Qnil;
 138 }
 139
 140 static VALUE c_fill_policy_get (VALUE self)
 141 {
 142         GET_OBJ (self, RbEvasObject, e);
 143
 144         return INT2FIX (esmart_container_fill_policy_get (e->real));
 145 }
 146
 147 static VALUE c_fill_policy_set (VALUE self, VALUE val)
 148 {
 149         GET_OBJ (self, RbEvasObject, e);
 150
 151         Check_Type (val, T_FIXNUM);
 152
 153         esmart_container_fill_policy_set (e->real, FIX2INT (val));
 154
 155         return Qnil;
 156 }
 157
 158 static VALUE c_alignment_get (VALUE self)
 159 {
 160         GET_OBJ (self, RbEvasObject, e);
 161
 162         return INT2FIX (esmart_container_alignment_get (e->real));
 163 }
 164
 165 static VALUE c_alignment_set (VALUE self, VALUE val)
 166 {
 167         GET_OBJ (self, RbEvasObject, e);
 168
 169         Check_Type (val, T_FIXNUM);
 170
 171         esmart_container_alignment_set (e->real, FIX2INT (val));
 172
 173         return Qnil;
 174 }
 175
 176
 177 static VALUE c_get_padding (VALUE self)
 178 {
 179         double l = 0, r = 0, t = 0, b = 0;
 180
 181         GET_OBJ (self, RbEvasObject, e);
 182
 183         esmart_container_padding_get (e->real, &l, &r, &t, &b);
 184
 185         return rb_ary_new3 (4, rb_float_new (l), rb_float_new (r),
 186                             rb_float_new (t), rb_float_new (b));
 187 }
 188
 189 static VALUE c_set_padding (VALUE self, VALUE l, VALUE r,
 190                             VALUE t, VALUE b)
 191 {
 192         GET_OBJ (self, RbEvasObject, e);
 193
 194         Check_Type (l, T_FLOAT);
 195         Check_Type (r, T_FLOAT);
 196         Check_Type (t, T_FLOAT);
 197         Check_Type (b, T_FLOAT);
 198
 199         esmart_container_padding_set (e->real, NUM2DBL (l), NUM2DBL (r),
 200                                       NUM2DBL (t), NUM2DBL (b));
 201
 202         return Qnil;
 203 }
 204
 205 static VALUE c_scroll (VALUE self, VALUE val)
 206 {
 207         GET_OBJ (self, RbEvasObject, e);
 208
 209         Check_Type (val, T_FIXNUM);
 210
 211         esmart_container_scroll (e->real, FIX2INT (val));
 212
 213         return Qnil;
 214 }
 215
 216 void Init_esmart_container (void)
 217 {
 218         VALUE c;
 219
 220         rb_require ("esmart");
 221
 222         c = rb_define_class_under (mEsmart, "Container", cEvasObject);
 223
 224         rb_define_singleton_method (c, "new", c_new, 1);
 225         rb_define_method (c, "direction", c_direction_get, 0);
 226         rb_define_method (c, "direction=", c_direction_set, 1);
 227         rb_define_method (c, "spacing", c_spacing_get, 0);
 228         rb_define_method (c, "spacing=", c_spacing_set, 1);
 229         rb_define_method (c, "fill_policy", c_fill_policy_get, 0);
 230         rb_define_method (c, "fill_policy=", c_fill_policy_set, 1);
 231         rb_define_method (c, "alignment", c_alignment_get, 0);
 232         rb_define_method (c, "alignment=", c_alignment_set, 1);
 233         rb_define_method (c, "get_padding", c_get_padding, 0);
 234         rb_define_method (c, "set_padding", c_set_padding, 4);
 235         rb_define_method (c, "append_element", c_append_element, 1);
 236         rb_define_method (c, "prepend_element", c_prepend_element, 1);
 237         rb_define_method (c, "remove_element", c_remove_element, 1);
 238         rb_define_method (c, "elements", c_elements_get, 0);
 239         rb_define_method (c, "scroll", c_scroll, 1);
 240
 241         rb_define_const (c, "HORIZONTAL",
 242                          INT2FIX (CONTAINER_DIRECTION_HORIZONTAL));
 243         rb_define_const (c, "VERTICAL",
 244                          INT2FIX (CONTAINER_DIRECTION_VERTICAL));
 245
 246         rb_define_const (c, "NONE",
 247                          INT2FIX (CONTAINER_FILL_POLICY_NONE));
 248         rb_define_const (c, "KEEP_ASPECT",
 249                          INT2FIX (CONTAINER_FILL_POLICY_KEEP_ASPECT));
 250         rb_define_const (c, "FILL_X",
 251                          INT2FIX (CONTAINER_FILL_POLICY_FILL_X));
 252         rb_define_const (c, "FILL_Y",
 253                          INT2FIX (CONTAINER_FILL_POLICY_FILL_Y));
 254         rb_define_const (c, "HOMOGENOUS",
 255                          INT2FIX (CONTAINER_FILL_POLICY_HOMOGENOUS));
 256
 257         rb_define_const (c, "CENTER",
 258                          INT2FIX (CONTAINER_ALIGN_CENTER));
 259         rb_define_const (c, "LEFT",
 260                          INT2FIX (CONTAINER_ALIGN_LEFT));
 261         rb_define_const (c, "RIGHT",
 262                          INT2FIX (CONTAINER_ALIGN_RIGHT));
 263         rb_define_const (c, "BOTTOM",
 264                          INT2FIX (CONTAINER_ALIGN_BOTTOM));
 265         rb_define_const (c, "TOP",
 266                          INT2FIX (CONTAINER_ALIGN_TOP));
 267 }