Pileus Git - ~andy/gtk/blob - gtk/gtksettings.c

   1 /* GTK - The GIMP Toolkit
   2  * Copyright (C) 2000 Red Hat, Inc.
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free
  16  * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17  */
  18
  19 #include "gtksettings.h"
  20 #include "gtkrc.h"
  21 #include "gtkintl.h"
  22 #include "gtkwidget.h"
  23
  24 enum {
  25   PROP_0,
  26   PROP_DOUBLE_CLICK_TIME,
  27   PROP_CURSOR_BLINK,
  28   PROP_CURSOR_BLINK_TIME,
  29   PROP_SPLIT_CURSOR,
  30   PROP_THEME_NAME,
  31   PROP_KEY_THEME_NAME,
  32   PROP_MENU_BAR_ACCEL
  33 };
  34
  35
  36 /* --- prototypes --- */
  37 static void     gtk_settings_init                (GtkSettings           *settings);
  38 static void     gtk_settings_class_init          (GtkSettingsClass      *class);
  39 static void     gtk_settings_finalize            (GObject               *object);
  40 static GObject* gtk_settings_constructor         (GType                  type,
  41                                                   guint                  n_construct_properties,
  42                                                   GObjectConstructParam *construct_properties);
  43 static void     gtk_settings_get_property        (GObject               *object,
  44                                                   guint                  property_id,
  45                                                   GValue                *value,
  46                                                   GParamSpec            *pspec);
  47 static void     gtk_settings_set_property        (GObject               *object,
  48                                                   guint                  property_id,
  49                                                   const GValue          *value,
  50                                                   GParamSpec            *pspec);
  51 static void     gtk_settings_notify              (GObject               *object,
  52                                                   GParamSpec            *pspec);
  53 static guint    settings_install_property_parser (GtkSettingsClass      *class,
  54                                                   GParamSpec            *pspec,
  55                                                   GtkRcPropertyParser    parser);
  56
  57
  58 /* --- variables --- */
  59 static gpointer          parent_class = NULL;
  60 static GtkSettings      *the_singleton = NULL;
  61 static GQuark            quark_property_parser = 0;
  62 static GSList           *object_list = NULL;
  63 static guint             class_n_properties = 0;
  64
  65
  66 /* --- functions --- */
  67 GType
  68 gtk_settings_get_type (void)
  69 {
  70   static GType settings_type = 0;
  71
  72   if (!settings_type)
  73     {
  74       static const GTypeInfo settings_info =
  75       {
  76         sizeof (GtkSettingsClass),
  77         NULL,           /* base_init */
  78         NULL,           /* base_finalize */
  79         (GClassInitFunc) gtk_settings_class_init,
  80         NULL,           /* class_finalize */
  81         NULL,           /* class_data */
  82         sizeof (GtkSettings),
  83         0,              /* n_preallocs */
  84         (GInstanceInitFunc) gtk_settings_init,
  85       };
  86
  87       settings_type = g_type_register_static (G_TYPE_OBJECT, "GtkSettings", &settings_info, 0);
  88     }
  89
  90   return settings_type;
  91 }
  92
  93 static void
  94 gtk_settings_init (GtkSettings *settings)
  95 {
  96   GParamSpec **pspecs, **p;
  97   guint i = 0;
  98
  99   g_datalist_init (&settings->queued_settings);
 100   object_list = g_slist_prepend (object_list, settings);
 101
 102   /* build up property array for all yet existing properties and queue
 103    * notification for them (at least notification for internal properties
 104    * will instantly be caught)
 105    */
 106   pspecs = g_object_class_list_properties (G_OBJECT_GET_CLASS (settings), NULL);
 107   for (p = pspecs; *p; p++)
 108     if ((*p)->owner_type == G_OBJECT_TYPE (settings))
 109       i++;
 110   settings->property_values = g_new0 (GValue, i);
 111   i = 0;
 112   g_object_freeze_notify (G_OBJECT (settings));
 113   for (p = pspecs; *p; p++)
 114     {
 115       GParamSpec *pspec = *p;
 116
 117       if (pspec->owner_type != G_OBJECT_TYPE (settings))
 118         continue;
 119       g_value_init (settings->property_values + i, G_PARAM_SPEC_VALUE_TYPE (pspec));
 120       g_param_value_set_default (pspec, settings->property_values + i);
 121       g_object_notify (G_OBJECT (settings), pspec->name);
 122       i++;
 123     }
 124   g_object_thaw_notify (G_OBJECT (settings));
 125   g_free (pspecs);
 126 }
 127
 128 static void
 129 gtk_settings_class_init (GtkSettingsClass *class)
 130 {
 131   GObjectClass *gobject_class = G_OBJECT_CLASS (class);
 132   guint result;
 133
 134   parent_class = g_type_class_peek_parent (class);
 135
 136   gobject_class->constructor = gtk_settings_constructor;
 137   gobject_class->finalize = gtk_settings_finalize;
 138   gobject_class->get_property = gtk_settings_get_property;
 139   gobject_class->set_property = gtk_settings_set_property;
 140   gobject_class->notify = gtk_settings_notify;
 141
 142   quark_property_parser = g_quark_from_static_string ("gtk-rc-property-parser");
 143
 144   result = settings_install_property_parser (class,
 145                                              g_param_spec_int ("gtk-double-click-time",
 146                                                                _("Double Click Time"),
 147                                                                _("Maximum time allowed between two clicks for them to be considered a double click (in milliseconds)"),
 148                                                                0, G_MAXINT, 250,
 149                                                                G_PARAM_READWRITE),
 150                                              NULL);
 151   g_assert (result == PROP_DOUBLE_CLICK_TIME);
 152   result = settings_install_property_parser (class,
 153                                              g_param_spec_boolean ("gtk-cursor-blink",
 154                                                                    _("Cursor Blink"),
 155                                                                    _("Whether the cursor should blink"),
 156                                                                    TRUE,
 157                                                                    G_PARAM_READWRITE),
 158                                              NULL);
 159   g_assert (result == PROP_CURSOR_BLINK);
 160   result = settings_install_property_parser (class,
 161                                              g_param_spec_int ("gtk-cursor-blink-time",
 162                                                                _("Cursor Blink Time"),
 163                                                                _("Length of the cursor blink cycle, in milleseconds"),
 164                                                                100, G_MAXINT, 1200,
 165                                                                G_PARAM_READWRITE),
 166                                              NULL);
 167   g_assert (result == PROP_CURSOR_BLINK_TIME);
 168   result = settings_install_property_parser (class,
 169                                              g_param_spec_boolean ("gtk-split-cursor",
 170                                                                    _("Split Cursor"),
 171                                                                    _("Whether two cursors should be displayed for mixed left-to-right and right-to-left text"),
 172                                                                    TRUE,
 173                                                                    G_PARAM_READWRITE),
 174                                              NULL);
 175   g_assert (result == PROP_SPLIT_CURSOR);
 176   result = settings_install_property_parser (class,
 177                                              g_param_spec_string ("gtk-theme-name",
 178                                                                    _("Theme Name"),
 179                                                                    _("Name of theme RC file to load"),
 180                                                                   NULL,
 181                                                                   G_PARAM_READWRITE),
 182                                              NULL);
 183   g_assert (result == PROP_THEME_NAME);
 184   result = settings_install_property_parser (class,
 185                                              g_param_spec_string ("gtk-key-theme-name",
 186                                                                   _("Key Theme Name"),
 187                                                                   _("Name of key theme RC file to load"),
 188                                                                   NULL,
 189                                                                   G_PARAM_READWRITE),
 190                                              NULL);
 191   g_assert (result == PROP_KEY_THEME_NAME);
 192
 193   result = settings_install_property_parser (class,
 194                                              g_param_spec_string ("gtk-menu-bar-accel",
 195                                                                   _("Menu bar accelerator"),
 196                                                                   _("Keybinding to activate the menu bar"),
 197                                                                   "F10",
 198                                                                   G_PARAM_READWRITE),
 199                                              NULL);
 200
 201   g_assert (result == PROP_MENU_BAR_ACCEL);
 202 }
 203
 204 static void
 205 gtk_settings_finalize (GObject *object)
 206 {
 207   GtkSettings *settings = GTK_SETTINGS (object);
 208   guint i;
 209
 210   object_list = g_slist_remove (object_list, settings);
 211
 212   for (i = 0; i < class_n_properties; i++)
 213     g_value_unset (settings->property_values + i);
 214   g_free (settings->property_values);
 215
 216   g_datalist_clear (&settings->queued_settings);
 217
 218   G_OBJECT_CLASS (parent_class)->finalize (object);
 219 }
 220
 221 static GObject*
 222 gtk_settings_constructor (GType                  type,
 223                           guint                  n_construct_properties,
 224                           GObjectConstructParam *construct_properties)
 225 {
 226   GObject *object;
 227
 228   /* currently we're a singleton, that might change with multiple display support though */
 229   if (!the_singleton)
 230     {
 231       object = G_OBJECT_CLASS (parent_class)->constructor (type,
 232                                                            n_construct_properties,
 233                                                            construct_properties);
 234       the_singleton = GTK_SETTINGS (g_object_ref (object));
 235     }
 236   else
 237     object = g_object_ref (G_OBJECT (the_singleton));
 238
 239   return object;
 240 }
 241
 242 GtkSettings*
 243 gtk_settings_get_default (void)
 244 {
 245   if (!the_singleton)
 246     g_object_new (GTK_TYPE_SETTINGS, NULL);
 247
 248   return the_singleton; /* we don't add a reference count here, we'd be settings_ref_global() if we did */
 249 }
 250
 251 static void
 252 gtk_settings_set_property (GObject      *object,
 253                            guint         property_id,
 254                            const GValue *value,
 255                            GParamSpec   *pspec)
 256 {
 257   GtkSettings *settings = GTK_SETTINGS (object);
 258
 259   g_value_copy (value, settings->property_values + property_id - 1);
 260 }
 261
 262 static void
 263 gtk_settings_get_property (GObject     *object,
 264                            guint        property_id,
 265                            GValue      *value,
 266                            GParamSpec  *pspec)
 267 {
 268   GtkSettings *settings = GTK_SETTINGS (object);
 269
 270   if (g_value_type_transformable (G_TYPE_INT, G_VALUE_TYPE (value)) ||
 271       g_value_type_transformable (G_TYPE_STRING, G_VALUE_TYPE (value)) ||
 272       g_value_type_transformable (GDK_TYPE_COLOR, G_VALUE_TYPE (value)))
 273     {
 274       if (gdk_setting_get (pspec->name, value))
 275         g_param_value_validate (pspec, value);
 276       else
 277         g_value_copy (settings->property_values + property_id - 1, value);
 278     }
 279   else
 280     {
 281       GValue val = { 0, };
 282
 283       /* Try to get xsetting as a string and parse it. */
 284
 285       g_value_init (&val, G_TYPE_STRING);
 286
 287       if (!gdk_setting_get (pspec->name, &val))
 288         {
 289           g_value_copy (settings->property_values + property_id - 1, value);
 290         }
 291       else
 292         {
 293           GValue tmp_value = { 0, };
 294           GValue gstring_value = { 0, };
 295           GtkRcPropertyParser parser = g_param_spec_get_qdata (pspec,
 296                                                                quark_property_parser);
 297
 298           g_value_init (&gstring_value, G_TYPE_GSTRING);
 299
 300           g_value_set_boxed (&gstring_value,
 301                              g_string_new (g_value_get_string (&val)));
 302
 303           g_value_init (&tmp_value, G_PARAM_SPEC_VALUE_TYPE (pspec));
 304
 305           if (parser && _gtk_settings_parse_convert (parser, &gstring_value,
 306                                                      pspec, &tmp_value))
 307             {
 308               g_value_copy (&tmp_value, value);
 309               g_param_value_validate (pspec, value);
 310             }
 311           else
 312             {
 313               g_value_copy (settings->property_values + property_id - 1, value);
 314             }
 315
 316           g_value_unset (&gstring_value);
 317           g_value_unset (&tmp_value);
 318         }
 319
 320       g_value_unset (&val);
 321     }
 322 }
 323
 324 static void
 325 gtk_settings_notify (GObject    *object,
 326                      GParamSpec *pspec)
 327 {
 328   guint property_id = pspec->param_id;
 329   gint double_click_time;
 330
 331 #if 1
 332   GValue tmp_value = { 0, };
 333   gchar *contents;
 334   g_value_init (&tmp_value, G_PARAM_SPEC_VALUE_TYPE (pspec));
 335   g_object_get_property (object, pspec->name, &tmp_value);
 336   contents = g_strdup_value_contents (&tmp_value);
 337
 338   switch (property_id)
 339     {
 340     case PROP_DOUBLE_CLICK_TIME:
 341       g_object_get (object, pspec->name, &double_click_time, NULL);
 342       gdk_set_double_click_time (double_click_time);
 343       break;
 344     }
 345
 346   g_free (contents);
 347   g_value_unset (&tmp_value);
 348 #endif
 349 }
 350
 351 gboolean
 352 _gtk_settings_parse_convert (GtkRcPropertyParser parser,
 353                              const GValue       *src_value,
 354                              GParamSpec         *pspec,
 355                              GValue             *dest_value)
 356 {
 357   gboolean success = FALSE;
 358
 359   g_return_val_if_fail (G_VALUE_HOLDS (dest_value, G_PARAM_SPEC_VALUE_TYPE (pspec)), FALSE);
 360
 361   if (parser)
 362     {
 363       GString *gstring;
 364       gboolean free_gstring = TRUE;
 365
 366       if (G_VALUE_HOLDS (src_value, G_TYPE_GSTRING))
 367         {
 368           gstring = g_value_get_boxed (src_value);
 369           free_gstring = FALSE;
 370         }
 371       else if (G_VALUE_HOLDS_LONG (src_value))
 372         {
 373           gstring = g_string_new ("");
 374           g_string_append_printf (gstring, "%ld", g_value_get_long (src_value));
 375         }
 376       else if (G_VALUE_HOLDS_DOUBLE (src_value))
 377         {
 378           gstring = g_string_new ("");
 379           g_string_append_printf (gstring, "%f", g_value_get_double (src_value));
 380         }
 381       else if (G_VALUE_HOLDS_STRING (src_value))
 382         {
 383           gchar *tstr = g_strescape (g_value_get_string (src_value), NULL);
 384
 385           gstring = g_string_new ("\"");
 386           g_string_append (gstring, tstr);
 387           g_string_append_c (gstring, '\"');
 388           g_free (tstr);
 389         }
 390       else
 391         {
 392           g_return_val_if_fail (G_VALUE_HOLDS (src_value, G_TYPE_GSTRING), FALSE);
 393           gstring = NULL; /* silence compiler */
 394         }
 395
 396       success = (parser (pspec, gstring, dest_value) &&
 397                  !g_param_value_validate (pspec, dest_value));
 398
 399       if (free_gstring)
 400         g_string_free (gstring, TRUE);
 401     }
 402   else if (G_VALUE_HOLDS (src_value, G_TYPE_GSTRING))
 403     {
 404       if (G_VALUE_HOLDS (dest_value, G_TYPE_STRING))
 405         {
 406           GString *gstring = g_value_get_boxed (src_value);
 407
 408           g_value_set_string (dest_value, gstring ? gstring->str : NULL);
 409           success = !g_param_value_validate (pspec, dest_value);
 410         }
 411     }
 412   else if (g_value_type_transformable (G_VALUE_TYPE (src_value), G_VALUE_TYPE (dest_value)))
 413     success = g_param_value_convert (pspec, src_value, dest_value, TRUE);
 414
 415   return success;
 416 }
 417
 418 static void
 419 apply_queued_setting (GtkSettings      *data,
 420                       GParamSpec       *pspec,
 421                       GtkSettingsValue *qvalue)
 422 {
 423   GValue tmp_value = { 0, };
 424   GtkRcPropertyParser parser = g_param_spec_get_qdata (pspec, quark_property_parser);
 425
 426   g_value_init (&tmp_value, G_PARAM_SPEC_VALUE_TYPE (pspec));
 427   if (_gtk_settings_parse_convert (parser, &qvalue->value,
 428                                    pspec, &tmp_value))
 429     g_object_set_property (G_OBJECT (data), pspec->name, &tmp_value);
 430   else
 431     {
 432       gchar *debug = g_strdup_value_contents (&qvalue->value);
 433
 434       g_message ("%s: failed to retrieve property `%s' of type `%s' from rc file value \"%s\" of type `%s'",
 435                  qvalue->origin,
 436                  pspec->name,
 437                  g_type_name (G_PARAM_SPEC_VALUE_TYPE (pspec)),
 438                  debug,
 439                  G_VALUE_TYPE_NAME (&tmp_value));
 440       g_free (debug);
 441     }
 442   g_value_unset (&tmp_value);
 443 }
 444
 445 static guint
 446 settings_install_property_parser (GtkSettingsClass   *class,
 447                                   GParamSpec         *pspec,
 448                                   GtkRcPropertyParser parser)
 449 {
 450   GSList *node, *next;
 451
 452   switch (G_TYPE_FUNDAMENTAL (G_PARAM_SPEC_VALUE_TYPE (pspec)))
 453     {
 454     case G_TYPE_BOOLEAN:
 455     case G_TYPE_UCHAR:
 456     case G_TYPE_CHAR:
 457     case G_TYPE_UINT:
 458     case G_TYPE_INT:
 459     case G_TYPE_ULONG:
 460     case G_TYPE_LONG:
 461     case G_TYPE_FLOAT:
 462     case G_TYPE_DOUBLE:
 463     case G_TYPE_STRING:
 464       break;
 465     default:
 466       if (!parser)
 467         {
 468           g_warning (G_STRLOC ": parser needs to be specified for property \"%s\" of type `%s'",
 469                      pspec->name, g_type_name (G_PARAM_SPEC_VALUE_TYPE (pspec)));
 470           return 0;
 471         }
 472     }
 473   if (g_object_class_find_property (G_OBJECT_CLASS (class), pspec->name))
 474     {
 475       g_warning (G_STRLOC ": an rc-data property \"%s\" already exists",
 476                  pspec->name);
 477       return 0;
 478     }
 479
 480   for (node = object_list; node; node = node->next)
 481     g_object_freeze_notify (node->data);
 482
 483   g_object_class_install_property (G_OBJECT_CLASS (class), ++class_n_properties, pspec);
 484   g_param_spec_set_qdata (pspec, quark_property_parser, parser);
 485
 486   for (node = object_list; node; node = node->next)
 487     {
 488       GtkSettings *settings = node->data;
 489       GtkSettingsValue *qvalue;
 490
 491       settings->property_values = g_renew (GValue, settings->property_values, class_n_properties);
 492       settings->property_values[class_n_properties - 1].g_type = 0;
 493       g_value_init (settings->property_values + class_n_properties - 1, G_PARAM_SPEC_VALUE_TYPE (pspec));
 494       g_param_value_set_default (pspec, settings->property_values + class_n_properties - 1);
 495       g_object_notify (G_OBJECT (settings), pspec->name);
 496
 497       qvalue = g_datalist_get_data (&settings->queued_settings, pspec->name);
 498       if (qvalue)
 499         apply_queued_setting (settings, pspec, qvalue);
 500     }
 501
 502   for (node = object_list; node; node = next)
 503     {
 504       next = node->next;
 505       g_object_thaw_notify (node->data);
 506     }
 507
 508   return class_n_properties;
 509 }
 510
 511 GtkRcPropertyParser
 512 _gtk_rc_property_parser_from_type (GType type)
 513 {
 514   if (type == GDK_TYPE_COLOR)
 515     return gtk_rc_property_parse_color;
 516   else if (type == GTK_TYPE_REQUISITION)
 517     return gtk_rc_property_parse_requisition;
 518   else if (type == GTK_TYPE_BORDER)
 519     return gtk_rc_property_parse_border;
 520   else if (G_TYPE_FUNDAMENTAL (type) == G_TYPE_ENUM && G_TYPE_IS_DERIVED (type))
 521     return gtk_rc_property_parse_enum;
 522   else if (G_TYPE_FUNDAMENTAL (type) == G_TYPE_FLAGS && G_TYPE_IS_DERIVED (type))
 523     return gtk_rc_property_parse_flags;
 524   else
 525     return NULL;
 526 }
 527
 528 void
 529 gtk_settings_install_property (GParamSpec  *pspec)
 530 {
 531   GtkRcPropertyParser parser;
 532
 533   g_return_if_fail (G_IS_PARAM_SPEC (pspec));
 534
 535   parser = _gtk_rc_property_parser_from_type (G_PARAM_SPEC_VALUE_TYPE (pspec));
 536
 537   settings_install_property_parser (gtk_type_class (GTK_TYPE_SETTINGS), pspec, parser);
 538 }
 539
 540 void
 541 gtk_settings_install_property_parser (GParamSpec         *pspec,
 542                                       GtkRcPropertyParser parser)
 543 {
 544   g_return_if_fail (G_IS_PARAM_SPEC (pspec));
 545   g_return_if_fail (parser != NULL);
 546
 547   settings_install_property_parser (gtk_type_class (GTK_TYPE_SETTINGS), pspec, parser);
 548 }
 549
 550 static void
 551 free_value (gpointer data)
 552 {
 553   GtkSettingsValue *qvalue = data;
 554
 555   g_value_unset (&qvalue->value);
 556   g_free (qvalue->origin);
 557   g_free (qvalue);
 558 }
 559
 560 void
 561 gtk_settings_set_property_value (GtkSettings            *settings,
 562                                  const gchar            *prop_name,
 563                                  const GtkSettingsValue *new_value)
 564 {
 565   GtkSettingsValue *qvalue;
 566   GParamSpec *pspec;
 567   gchar *name;
 568   GQuark name_quark;
 569
 570   g_return_if_fail (GTK_SETTINGS (settings));
 571   g_return_if_fail (prop_name != NULL);
 572   g_return_if_fail (new_value != NULL);
 573   g_return_if_fail (new_value->origin != NULL);
 574
 575   if (!G_VALUE_HOLDS_LONG (&new_value->value) &&
 576       !G_VALUE_HOLDS_DOUBLE (&new_value->value) &&
 577       !G_VALUE_HOLDS_STRING (&new_value->value) &&
 578       !G_VALUE_HOLDS (&new_value->value, G_TYPE_GSTRING))
 579     {
 580       g_warning (G_STRLOC ": value type invalid");
 581       return;
 582     }
 583
 584   name = g_strdup (prop_name);
 585   g_strcanon (name, G_CSET_A_2_Z G_CSET_a_2_z G_CSET_DIGITS "-", '-');
 586   name_quark = g_quark_from_string (name);
 587   g_free (name);
 588
 589   qvalue = g_datalist_id_get_data (&settings->queued_settings, name_quark);
 590   if (!qvalue)
 591     {
 592       qvalue = g_new0 (GtkSettingsValue, 1);
 593       g_datalist_id_set_data_full (&settings->queued_settings, name_quark, qvalue, free_value);
 594     }
 595   else
 596     {
 597       g_free (qvalue->origin);
 598       g_value_unset (&qvalue->value);
 599     }
 600   qvalue->origin = g_strdup (new_value->origin);
 601   g_value_init (&qvalue->value, G_VALUE_TYPE (&new_value->value));
 602   g_value_copy (&new_value->value, &qvalue->value);
 603   pspec = g_object_class_find_property (G_OBJECT_GET_CLASS (settings), g_quark_to_string (name_quark));
 604   if (pspec)
 605     apply_queued_setting (settings, pspec, qvalue);
 606 }
 607
 608 void
 609 gtk_settings_set_string_property (GtkSettings *settings,
 610                                   const gchar *name,
 611                                   const gchar *v_string,
 612                                   const gchar *origin)
 613 {
 614   GtkSettingsValue svalue = { NULL, { 0, }, };
 615
 616   g_return_if_fail (GTK_SETTINGS (settings));
 617   g_return_if_fail (name != NULL);
 618   g_return_if_fail (v_string != NULL);
 619   g_return_if_fail (origin != NULL);
 620
 621   svalue.origin = (gchar*) origin;
 622   g_value_init (&svalue.value, G_TYPE_STRING);
 623   g_value_set_static_string (&svalue.value, v_string);
 624   gtk_settings_set_property_value (settings, name, &svalue);
 625   g_value_unset (&svalue.value);
 626 }
 627
 628 void
 629 gtk_settings_set_long_property (GtkSettings *settings,
 630                                 const gchar *name,
 631                                 glong        v_long,
 632                                 const gchar *origin)
 633 {
 634   GtkSettingsValue svalue = { NULL, { 0, }, };
 635
 636   g_return_if_fail (GTK_SETTINGS (settings));
 637   g_return_if_fail (name != NULL);
 638   g_return_if_fail (origin != NULL);
 639
 640   svalue.origin = (gchar*) origin;
 641   g_value_init (&svalue.value, G_TYPE_LONG);
 642   g_value_set_long (&svalue.value, v_long);
 643   gtk_settings_set_property_value (settings, name, &svalue);
 644   g_value_unset (&svalue.value);
 645 }
 646
 647 void
 648 gtk_settings_set_double_property (GtkSettings *settings,
 649                                   const gchar *name,
 650                                   gdouble      v_double,
 651                                   const gchar *origin)
 652 {
 653   GtkSettingsValue svalue = { NULL, { 0, }, };
 654
 655   g_return_if_fail (GTK_SETTINGS (settings));
 656   g_return_if_fail (name != NULL);
 657   g_return_if_fail (origin != NULL);
 658
 659   svalue.origin = (gchar*) origin;
 660   g_value_init (&svalue.value, G_TYPE_DOUBLE);
 661   g_value_set_double (&svalue.value, v_double);
 662   gtk_settings_set_property_value (settings, name, &svalue);
 663   g_value_unset (&svalue.value);
 664 }
 665
 666 gboolean
 667 gtk_rc_property_parse_color (const GParamSpec *pspec,
 668                              const GString    *gstring,
 669                              GValue           *property_value)
 670 {
 671   GdkColor color = { 0, 0, 0, 0, };
 672   GScanner *scanner;
 673   gboolean success;
 674
 675   g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), FALSE);
 676   g_return_val_if_fail (G_VALUE_HOLDS (property_value, GDK_TYPE_COLOR), FALSE);
 677
 678   scanner = gtk_rc_scanner_new ();
 679   g_scanner_input_text (scanner, gstring->str, gstring->len);
 680   if (gtk_rc_parse_color (scanner, &color) == G_TOKEN_NONE &&
 681       g_scanner_get_next_token (scanner) == G_TOKEN_EOF)
 682     {
 683       g_value_set_boxed (property_value, &color);
 684       success = TRUE;
 685     }
 686   else
 687     success = FALSE;
 688   g_scanner_destroy (scanner);
 689
 690   return success;
 691 }
 692
 693 gboolean
 694 gtk_rc_property_parse_enum (const GParamSpec *pspec,
 695                             const GString    *gstring,
 696                             GValue           *property_value)
 697 {
 698   gboolean need_closing_brace = FALSE, success = FALSE;
 699   GScanner *scanner;
 700   GEnumValue *enum_value = NULL;
 701
 702   g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), FALSE);
 703   g_return_val_if_fail (G_VALUE_HOLDS_ENUM (property_value), FALSE);
 704
 705   scanner = gtk_rc_scanner_new ();
 706   g_scanner_input_text (scanner, gstring->str, gstring->len);
 707
 708   /* we just want to parse _one_ value, but for consistency with flags parsing
 709    * we support optional paranthesis
 710    */
 711   g_scanner_get_next_token (scanner);
 712   if (scanner->token == '(')
 713     {
 714       need_closing_brace = TRUE;
 715       g_scanner_get_next_token (scanner);
 716     }
 717   if (scanner->token == G_TOKEN_IDENTIFIER)
 718     {
 719       GEnumClass *class = G_PARAM_SPEC_ENUM (pspec)->enum_class;
 720
 721       enum_value = g_enum_get_value_by_name (class, scanner->value.v_identifier);
 722       if (!enum_value)
 723         enum_value = g_enum_get_value_by_nick (class, scanner->value.v_identifier);
 724       if (enum_value)
 725         {
 726           g_value_set_enum (property_value, enum_value->value);
 727           success = TRUE;
 728         }
 729     }
 730   else if (scanner->token == G_TOKEN_INT)
 731     {
 732       g_value_set_enum (property_value, scanner->value.v_int);
 733       success = TRUE;
 734     }
 735   if (need_closing_brace && g_scanner_get_next_token (scanner) != ')')
 736     success = FALSE;
 737   if (g_scanner_get_next_token (scanner) != G_TOKEN_EOF)
 738     success = FALSE;
 739
 740   g_scanner_destroy (scanner);
 741
 742   return success;
 743 }
 744
 745 static guint
 746 parse_flags_value (GScanner    *scanner,
 747                    GFlagsClass *class,
 748                    guint       *number)
 749 {
 750   g_scanner_get_next_token (scanner);
 751   if (scanner->token == G_TOKEN_IDENTIFIER)
 752     {
 753       GFlagsValue *flags_value;
 754
 755       flags_value = g_flags_get_value_by_name (class, scanner->value.v_identifier);
 756       if (!flags_value)
 757         flags_value = g_flags_get_value_by_nick (class, scanner->value.v_identifier);
 758       if (flags_value)
 759         {
 760           *number |= flags_value->value;
 761           return G_TOKEN_NONE;
 762         }
 763     }
 764   else if (scanner->token == G_TOKEN_INT)
 765     {
 766       *number |= scanner->value.v_int;
 767       return G_TOKEN_NONE;
 768     }
 769   return G_TOKEN_IDENTIFIER;
 770 }
 771
 772 gboolean
 773 gtk_rc_property_parse_flags (const GParamSpec *pspec,
 774                              const GString    *gstring,
 775                              GValue           *property_value)
 776 {
 777   GFlagsClass *class;
 778   gboolean success = FALSE;
 779   GScanner *scanner;
 780
 781   g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), FALSE);
 782   g_return_val_if_fail (G_VALUE_HOLDS_FLAGS (property_value), FALSE);
 783
 784   class = G_PARAM_SPEC_FLAGS (pspec)->flags_class;
 785   scanner = gtk_rc_scanner_new ();
 786   g_scanner_input_text (scanner, gstring->str, gstring->len);
 787
 788   /* parse either a single flags value or a "\( ... [ \| ... ] \)" compound */
 789   if (g_scanner_peek_next_token (scanner) == G_TOKEN_IDENTIFIER ||
 790       scanner->next_token == G_TOKEN_INT)
 791     {
 792       guint token, flags_value = 0;
 793
 794       token = parse_flags_value (scanner, class, &flags_value);
 795
 796       if (token == G_TOKEN_NONE && g_scanner_peek_next_token (scanner) == G_TOKEN_EOF)
 797         {
 798           success = TRUE;
 799           g_value_set_flags (property_value, flags_value);
 800         }
 801
 802     }
 803   else if (g_scanner_get_next_token (scanner) == '(')
 804     {
 805       guint token, flags_value = 0;
 806
 807       /* parse first value */
 808       token = parse_flags_value (scanner, class, &flags_value);
 809
 810       /* parse nth values, preceeded by '|' */
 811       while (token == G_TOKEN_NONE && g_scanner_get_next_token (scanner) == '|')
 812         token = parse_flags_value (scanner, class, &flags_value);
 813
 814       /* done, last token must have closed expression */
 815       if (token == G_TOKEN_NONE && scanner->token == ')' &&
 816           g_scanner_peek_next_token (scanner) == G_TOKEN_EOF)
 817         {
 818           g_value_set_flags (property_value, flags_value);
 819           success = TRUE;
 820         }
 821     }
 822   g_scanner_destroy (scanner);
 823
 824   return success;
 825 }
 826
 827 static gboolean
 828 get_braced_int (GScanner *scanner,
 829                 gboolean  first,
 830                 gboolean  last,
 831                 gint     *value)
 832 {
 833   if (first)
 834     {
 835       g_scanner_get_next_token (scanner);
 836       if (scanner->token != '{')
 837         return FALSE;
 838     }
 839
 840   g_scanner_get_next_token (scanner);
 841   if (scanner->token != G_TOKEN_INT)
 842     return FALSE;
 843
 844   *value = scanner->value.v_int;
 845
 846   if (last)
 847     {
 848       g_scanner_get_next_token (scanner);
 849       if (scanner->token != '}')
 850         return FALSE;
 851     }
 852   else
 853     {
 854       g_scanner_get_next_token (scanner);
 855       if (scanner->token != ',')
 856         return FALSE;
 857     }
 858
 859   return TRUE;
 860 }
 861
 862 gboolean
 863 gtk_rc_property_parse_requisition  (const GParamSpec *pspec,
 864                                     const GString    *gstring,
 865                                     GValue           *property_value)
 866 {
 867   GtkRequisition requisition;
 868   GScanner *scanner;
 869   gboolean success = FALSE;
 870
 871   g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), FALSE);
 872   g_return_val_if_fail (G_VALUE_HOLDS_BOXED (property_value), FALSE);
 873
 874   scanner = gtk_rc_scanner_new ();
 875   g_scanner_input_text (scanner, gstring->str, gstring->len);
 876
 877   if (get_braced_int (scanner, TRUE, FALSE, &requisition.width) &&
 878       get_braced_int (scanner, FALSE, TRUE, &requisition.height))
 879     {
 880       g_value_set_boxed (property_value, &requisition);
 881       success = TRUE;
 882     }
 883
 884   g_scanner_destroy (scanner);
 885
 886   return success;
 887 }
 888
 889 gboolean
 890 gtk_rc_property_parse_border (const GParamSpec *pspec,
 891                               const GString    *gstring,
 892                               GValue           *property_value)
 893 {
 894   GtkBorder border;
 895   GScanner *scanner;
 896   gboolean success = FALSE;
 897
 898   g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), FALSE);
 899   g_return_val_if_fail (G_VALUE_HOLDS_BOXED (property_value), FALSE);
 900
 901   scanner = gtk_rc_scanner_new ();
 902   g_scanner_input_text (scanner, gstring->str, gstring->len);
 903
 904   if (get_braced_int (scanner, TRUE, FALSE, &border.left) &&
 905       get_braced_int (scanner, FALSE, FALSE, &border.right) &&
 906       get_braced_int (scanner, FALSE, FALSE, &border.top) &&
 907       get_braced_int (scanner, FALSE, TRUE, &border.bottom))
 908     {
 909       g_value_set_boxed (property_value, &border);
 910       success = TRUE;
 911     }
 912
 913   g_scanner_destroy (scanner);
 914
 915   return success;
 916 }
 917
 918 void
 919 _gtk_settings_handle_event (GdkEventSetting *event)
 920 {
 921   GtkSettings *settings = gtk_settings_get_default ();
 922
 923   if (g_object_class_find_property (G_OBJECT_GET_CLASS (settings), event->name))
 924     g_object_notify (G_OBJECT (settings), event->name);
 925 }