src/esmart_container/rb_esmart_container.c

   1 /*
   2  * $Id: rb_esmart_container.c 218 2005-02-10 14:53:47Z 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_elements_length_get (VALUE self)
 105 {
 106         double l;
 107
 108         GET_OBJ (self, RbEvasObject, e);
 109
 110         l = esmart_container_elements_length_get (e->real);
 111
 112         return rb_float_new (l);
 113 }
 114
 115 static VALUE c_elements_orig_length_get (VALUE self)
 116 {
 117         double l;
 118
 119         GET_OBJ (self, RbEvasObject, e);
 120
 121         l = esmart_container_elements_orig_length_get (e->real);
 122
 123         return rb_float_new (l);
 124 }
 125
 126 static VALUE c_direction_get (VALUE self)
 127 {
 128         GET_OBJ (self, RbEvasObject, e);
 129
 130         return INT2FIX (esmart_container_direction_get (e->real));
 131 }
 132
 133 static VALUE c_direction_set (VALUE self, VALUE val)
 134 {
 135         GET_OBJ (self, RbEvasObject, e);
 136
 137         Check_Type (val, T_FIXNUM);
 138
 139         esmart_container_direction_set (e->real, FIX2INT (val));
 140
 141         return Qnil;
 142 }
 143
 144 static VALUE c_spacing_get (VALUE self)
 145 {
 146         GET_OBJ (self, RbEvasObject, e);
 147
 148         return INT2FIX (esmart_container_spacing_get (e->real));
 149 }
 150
 151 static VALUE c_spacing_set (VALUE self, VALUE val)
 152 {
 153         GET_OBJ (self, RbEvasObject, e);
 154
 155         Check_Type (val, T_FIXNUM);
 156
 157         esmart_container_spacing_set (e->real, FIX2INT (val));
 158
 159         return Qnil;
 160 }
 161
 162 static VALUE c_fill_policy_get (VALUE self)
 163 {
 164         GET_OBJ (self, RbEvasObject, e);
 165
 166         return INT2FIX (esmart_container_fill_policy_get (e->real));
 167 }
 168
 169 static VALUE c_fill_policy_set (VALUE self, VALUE val)
 170 {
 171         GET_OBJ (self, RbEvasObject, e);
 172
 173         Check_Type (val, T_FIXNUM);
 174
 175         esmart_container_fill_policy_set (e->real, FIX2INT (val));
 176
 177         return Qnil;
 178 }
 179
 180 static VALUE c_alignment_get (VALUE self)
 181 {
 182         GET_OBJ (self, RbEvasObject, e);
 183
 184         return INT2FIX (esmart_container_alignment_get (e->real));
 185 }
 186
 187 static VALUE c_alignment_set (VALUE self, VALUE val)
 188 {
 189         GET_OBJ (self, RbEvasObject, e);
 190
 191         Check_Type (val, T_FIXNUM);
 192
 193         esmart_container_alignment_set (e->real, FIX2INT (val));
 194
 195         return Qnil;
 196 }
 197
 198
 199 static VALUE c_get_padding (VALUE self)
 200 {
 201         double l = 0, r = 0, t = 0, b = 0;
 202
 203         GET_OBJ (self, RbEvasObject, e);
 204
 205         esmart_container_padding_get (e->real, &l, &r, &t, &b);
 206
 207         return rb_ary_new3 (4, rb_float_new (l), rb_float_new (r),
 208                             rb_float_new (t), rb_float_new (b));
 209 }
 210
 211 static VALUE c_set_padding (VALUE self, VALUE l, VALUE r,
 212                             VALUE t, VALUE b)
 213 {
 214         GET_OBJ (self, RbEvasObject, e);
 215
 216         Check_Type (l, T_FLOAT);
 217         Check_Type (r, T_FLOAT);
 218         Check_Type (t, T_FLOAT);
 219         Check_Type (b, T_FLOAT);
 220
 221         esmart_container_padding_set (e->real, NUM2DBL (l), NUM2DBL (r),
 222                                       NUM2DBL (t), NUM2DBL (b));
 223
 224         return Qnil;
 225 }
 226
 227 static VALUE c_scroll (VALUE self, VALUE val)
 228 {
 229         GET_OBJ (self, RbEvasObject, e);
 230
 231         Check_Type (val, T_FIXNUM);
 232
 233         esmart_container_scroll (e->real, FIX2INT (val));
 234
 235         return Qnil;
 236 }
 237
 238 void Init_esmart_container (void)
 239 {
 240         VALUE c;
 241
 242         rb_require ("esmart");
 243
 244         c = rb_define_class_under (mEsmart, "Container", cEvasObject);
 245
 246         rb_define_singleton_method (c, "new", c_new, 1);
 247         rb_define_method (c, "direction", c_direction_get, 0);
 248         rb_define_method (c, "direction=", c_direction_set, 1);
 249         rb_define_method (c, "spacing", c_spacing_get, 0);
 250         rb_define_method (c, "spacing=", c_spacing_set, 1);
 251         rb_define_method (c, "fill_policy", c_fill_policy_get, 0);
 252         rb_define_method (c, "fill_policy=", c_fill_policy_set, 1);
 253         rb_define_method (c, "alignment", c_alignment_get, 0);
 254         rb_define_method (c, "alignment=", c_alignment_set, 1);
 255         rb_define_method (c, "get_padding", c_get_padding, 0);
 256         rb_define_method (c, "set_padding", c_set_padding, 4);
 257         rb_define_method (c, "append_element", c_append_element, 1);
 258         rb_define_method (c, "prepend_element", c_prepend_element, 1);
 259         rb_define_method (c, "remove_element", c_remove_element, 1);
 260         rb_define_method (c, "elements", c_elements_get, 0);
 261         rb_define_method (c, "elements_length", c_elements_length_get, 0);
 262         rb_define_method (c, "elements_orig_length",
 263                           c_elements_orig_length_get, 0);
 264         rb_define_method (c, "scroll", c_scroll, 1);
 265
 266         rb_define_const (c, "HORIZONTAL",
 267                          INT2FIX (CONTAINER_DIRECTION_HORIZONTAL));
 268         rb_define_const (c, "VERTICAL",
 269                          INT2FIX (CONTAINER_DIRECTION_VERTICAL));
 270
 271         rb_define_const (c, "NONE",
 272                          INT2FIX (CONTAINER_FILL_POLICY_NONE));
 273         rb_define_const (c, "KEEP_ASPECT",
 274                          INT2FIX (CONTAINER_FILL_POLICY_KEEP_ASPECT));
 275         rb_define_const (c, "FILL_X",
 276                          INT2FIX (CONTAINER_FILL_POLICY_FILL_X));
 277         rb_define_const (c, "FILL_Y",
 278                          INT2FIX (CONTAINER_FILL_POLICY_FILL_Y));
 279         rb_define_const (c, "HOMOGENOUS",
 280                          INT2FIX (CONTAINER_FILL_POLICY_HOMOGENOUS));
 281
 282         rb_define_const (c, "CENTER",
 283                          INT2FIX (CONTAINER_ALIGN_CENTER));
 284         rb_define_const (c, "LEFT",
 285                          INT2FIX (CONTAINER_ALIGN_LEFT));
 286         rb_define_const (c, "RIGHT",
 287                          INT2FIX (CONTAINER_ALIGN_RIGHT));
 288         rb_define_const (c, "BOTTOM",
 289                          INT2FIX (CONTAINER_ALIGN_BOTTOM));
 290         rb_define_const (c, "TOP",
 291                          INT2FIX (CONTAINER_ALIGN_TOP));
 292 }