Update to clearlooks from gtk-engines-2.16.0
[ardour.git] / libs / clearlooks / clearlooks_rc_style.c
1 /* Clearlooks theme engine
2  * Copyright (C) 2005 Richard Stellingwerff
3  * Copyright (C) 2007 Benjamin Berg
4  * Copyright (C) 2007 Andrea Cimitan
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Library General Public
8  * License as published by the Free Software Foundation; either
9  * version 2 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  * Library General Public License for more details.
15  *
16  * You should have received a copy of the GNU Library General Public
17  * License along with this library; if not, write to the
18  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19  * Boston, MA 02111-1307, USA.
20  *
21  * Written by Owen Taylor <otaylor@redhat.com>
22  * and by Alexander Larsson <alexl@redhat.com>
23  * Modified by Richard Stellingwerff <remenic@gmail.com>
24  * Modified by Kulyk Nazar <schamane@myeburg.net>
25  */
26
27 #include <string.h>
28 #include <widget-information.h>
29 #include "clearlooks_style.h"
30 #include "clearlooks_rc_style.h"
31
32 #include "animation.h"
33
34 #ifdef HAVE_ANIMATION
35 static void      clearlooks_rc_style_finalize     (GObject                *object);
36 #endif
37 static GtkStyle *clearlooks_rc_style_create_style (GtkRcStyle             *rc_style);
38 static guint     clearlooks_rc_style_parse        (GtkRcStyle             *rc_style,
39                                                    GtkSettings            *settings,
40                                                    GScanner               *scanner);
41 static void      clearlooks_rc_style_merge        (GtkRcStyle             *dest,
42                                                    GtkRcStyle             *src);
43
44 enum
45 {
46         TOKEN_FOCUSCOLOR = G_TOKEN_LAST + 1,
47         TOKEN_SCROLLBARCOLOR,
48         TOKEN_COLORIZESCROLLBAR,
49         TOKEN_CONTRAST,
50         TOKEN_SUNKENMENU,
51         TOKEN_PROGRESSBARSTYLE,
52         TOKEN_RELIEFSTYLE,
53         TOKEN_MENUBARSTYLE,
54         TOKEN_TOOLBARSTYLE,
55         TOKEN_MENUITEMSTYLE,
56         TOKEN_LISTVIEWITEMSTYLE,
57         TOKEN_ANIMATION,
58         TOKEN_STYLE,
59         TOKEN_RADIUS,
60         TOKEN_HINT,
61
62         TOKEN_CLASSIC,
63         TOKEN_GLOSSY,
64         TOKEN_INVERTED,
65         TOKEN_GUMMY,
66
67         TOKEN_TRUE,
68         TOKEN_FALSE,
69
70         TOKEN_LAST
71 };
72
73 static gchar* clearlooks_rc_symbols =
74         "focus_color\0"
75         "scrollbar_color\0"
76         "colorize_scrollbar\0"
77         "contrast\0"
78         "sunkenmenubar\0"
79         "progressbarstyle\0"
80         "reliefstyle\0"
81         "menubarstyle\0"
82         "toolbarstyle\0"
83         "menuitemstyle\0"
84         "listviewitemstyle\0"
85         "animation\0"
86         "style\0"
87         "radius\0"
88         "hint\0"
89
90         "CLASSIC\0"
91         "GLOSSY\0"
92         "INVERTED\0"
93         "GUMMY\0"
94
95         "TRUE\0"
96         "FALSE\0";
97
98 G_DEFINE_DYNAMIC_TYPE (ClearlooksRcStyle, clearlooks_rc_style, GTK_TYPE_RC_STYLE)
99
100 void
101 clearlooks_rc_style_register_types (GTypeModule *module)
102 {
103   clearlooks_rc_style_register_type (module);
104 }
105
106 static void
107 clearlooks_rc_style_init (ClearlooksRcStyle *clearlooks_rc)
108 {
109         clearlooks_rc->style = CL_STYLE_CLASSIC;
110
111         clearlooks_rc->flags = 0;
112
113         clearlooks_rc->contrast = 1.0;
114         clearlooks_rc->reliefstyle = 0;
115         clearlooks_rc->menubarstyle = 0;
116         clearlooks_rc->toolbarstyle = 0;
117         clearlooks_rc->animation = FALSE;
118         clearlooks_rc->colorize_scrollbar = FALSE;
119         clearlooks_rc->radius = 3.0;
120         clearlooks_rc->hint = 0;
121 }
122
123 #ifdef HAVE_ANIMATION
124 static void
125 clearlooks_rc_style_finalize (GObject *object)
126 {
127         /* cleanup all the animation stuff */
128         clearlooks_animation_cleanup ();
129
130         if (G_OBJECT_CLASS (clearlooks_rc_style_parent_class)->finalize != NULL)
131                 G_OBJECT_CLASS (clearlooks_rc_style_parent_class)->finalize (object);
132 }
133 #endif
134
135
136 static void
137 clearlooks_rc_style_class_init (ClearlooksRcStyleClass *klass)
138 {
139         GtkRcStyleClass *rc_style_class = GTK_RC_STYLE_CLASS (klass);
140 #ifdef HAVE_ANIMATION
141         GObjectClass    *g_object_class = G_OBJECT_CLASS (klass);
142 #endif
143
144         rc_style_class->parse = clearlooks_rc_style_parse;
145         rc_style_class->create_style = clearlooks_rc_style_create_style;
146         rc_style_class->merge = clearlooks_rc_style_merge;
147
148 #ifdef HAVE_ANIMATION
149         g_object_class->finalize = clearlooks_rc_style_finalize;
150 #endif
151 }
152
153 static void
154 clearlooks_rc_style_class_finalize (ClearlooksRcStyleClass *klass)
155 {
156 }
157
158 static guint
159 clearlooks_gtk2_rc_parse_boolean (GtkSettings *settings,
160                                   GScanner     *scanner,
161                                   gboolean *retval)
162 {
163         guint token;
164         token = g_scanner_get_next_token(scanner);
165
166         token = g_scanner_get_next_token(scanner);
167         if (token != G_TOKEN_EQUAL_SIGN)
168            return G_TOKEN_EQUAL_SIGN;
169
170         token = g_scanner_get_next_token(scanner);
171         if (token == TOKEN_TRUE)
172            *retval = TRUE;
173         else if (token == TOKEN_FALSE)
174            *retval = FALSE;
175         else
176            return TOKEN_TRUE;
177
178         return G_TOKEN_NONE;
179 }
180
181 static guint
182 clearlooks_gtk2_rc_parse_color(GtkSettings  *settings,
183                                GScanner     *scanner,
184                                GtkRcStyle   *style,
185                                GdkColor     *color)
186 {
187         guint token;
188
189         /* Skip 'blah_color' */
190         token = g_scanner_get_next_token(scanner);
191
192         token = g_scanner_get_next_token(scanner);
193         if (token != G_TOKEN_EQUAL_SIGN)
194            return G_TOKEN_EQUAL_SIGN;
195
196         return gtk_rc_parse_color_full (scanner, style, color);
197 }
198
199 static guint
200 clearlooks_gtk2_rc_parse_double (GtkSettings  *settings,
201                                  GScanner     *scanner,
202                                  gdouble      *val)
203 {
204         guint token;
205
206         /* Skip 'blah' */
207         token = g_scanner_get_next_token(scanner);
208
209         token = g_scanner_get_next_token(scanner);
210         if (token != G_TOKEN_EQUAL_SIGN)
211            return G_TOKEN_EQUAL_SIGN;
212
213         token = g_scanner_get_next_token(scanner);
214         if (token != G_TOKEN_FLOAT)
215            return G_TOKEN_FLOAT;
216
217         *val = scanner->value.v_float;
218
219         return G_TOKEN_NONE;
220 }
221
222 static guint
223 clearlooks_gtk2_rc_parse_int (GtkSettings  *settings,
224                               GScanner     *scanner,
225                               guint8       *progressbarstyle)
226 {
227         guint token;
228
229         /* Skip option name */
230         token = g_scanner_get_next_token(scanner);
231
232         token = g_scanner_get_next_token(scanner);
233         if (token != G_TOKEN_EQUAL_SIGN)
234            return G_TOKEN_EQUAL_SIGN;
235
236         token = g_scanner_get_next_token(scanner);
237         if (token != G_TOKEN_INT)
238            return G_TOKEN_INT;
239
240         *progressbarstyle = scanner->value.v_int;
241
242         return G_TOKEN_NONE;
243 }
244
245 static guint
246 clearlooks_gtk2_rc_parse_style (GtkSettings      *settings,
247                                 GScanner         *scanner,
248                                 ClearlooksStyles *style)
249 {
250         guint token;
251
252         g_assert (CL_NUM_STYLES == CL_STYLE_GUMMY + 1); /* so that people don't forget ;-) */
253
254         /* Skip 'style' */
255         token = g_scanner_get_next_token (scanner);
256
257         token = g_scanner_get_next_token (scanner);
258         if (token != G_TOKEN_EQUAL_SIGN)
259            return G_TOKEN_EQUAL_SIGN;
260
261         token = g_scanner_get_next_token (scanner);
262
263         switch (token)
264         {
265                 case TOKEN_CLASSIC:
266                    *style = CL_STYLE_CLASSIC;
267                    break;
268                 case TOKEN_GLOSSY:
269                    *style = CL_STYLE_GLOSSY;
270                    break;
271                 case TOKEN_INVERTED:
272                    *style = CL_STYLE_INVERTED;
273                    break;
274                 case TOKEN_GUMMY:
275                    *style = CL_STYLE_GUMMY;
276                    break;
277                 default:
278                    return TOKEN_CLASSIC;
279         }
280
281         return G_TOKEN_NONE;
282 }
283
284 static guint
285 clearlooks_gtk2_rc_parse_dummy (GtkSettings      *settings,
286                                 GScanner         *scanner,
287                                 gchar            *name)
288 {
289         guint token;
290
291         /* Skip option */
292         token = g_scanner_get_next_token (scanner);
293
294         /* print a warning. Isn't there a way to get the string from the scanner? */
295         g_scanner_warn (scanner, "Clearlooks configuration option \"%s\" is not supported and will be ignored.", name);
296
297         /* equal sign */
298         token = g_scanner_get_next_token (scanner);
299         if (token != G_TOKEN_EQUAL_SIGN)
300            return G_TOKEN_EQUAL_SIGN;
301
302         /* eat whatever comes next */
303         token = g_scanner_get_next_token (scanner);
304
305         return G_TOKEN_NONE;
306 }
307
308 static guint
309 clearlooks_rc_style_parse (GtkRcStyle *rc_style,
310                            GtkSettings  *settings,
311                            GScanner   *scanner)
312 {
313         static GQuark scope_id = 0;
314         ClearlooksRcStyle *clearlooks_style = CLEARLOOKS_RC_STYLE (rc_style);
315
316         guint old_scope;
317         guint token;
318
319         /* Set up a new scope in this scanner. */
320
321         if (!scope_id)
322            scope_id = g_quark_from_string("clearlooks_theme_engine");
323
324         /* If we bail out due to errors, we *don't* reset the scope, so the
325         * error messaging code can make sense of our tokens.
326         */
327         old_scope = g_scanner_set_scope(scanner, scope_id);
328
329         /* Now check if we already added our symbols to this scope
330         * (in some previous call to clearlooks_rc_style_parse for the
331         * same scanner.
332         */
333         if (!g_scanner_lookup_symbol(scanner, clearlooks_rc_symbols)) {
334                 gchar *current_symbol = clearlooks_rc_symbols;
335                 gint i = G_TOKEN_LAST + 1;
336
337                 /* Add our symbols */
338                 while ((current_symbol[0] != '\0') && (i < TOKEN_LAST)) {
339                         g_scanner_scope_add_symbol(scanner, scope_id, current_symbol, GINT_TO_POINTER (i));
340
341                         current_symbol += strlen(current_symbol) + 1;
342                         i++;
343                 }
344                 g_assert (i == TOKEN_LAST && current_symbol[0] == '\0');
345         }
346
347         /* We're ready to go, now parse the top level */
348
349         token = g_scanner_peek_next_token(scanner);
350         while (token != G_TOKEN_RIGHT_CURLY)
351         {
352                 switch (token)
353                 {
354                         case TOKEN_FOCUSCOLOR:
355                                 token = clearlooks_gtk2_rc_parse_color (settings, scanner, rc_style, &clearlooks_style->focus_color);
356                                 clearlooks_style->flags |= CL_FLAG_FOCUS_COLOR;
357                                 break;
358                         case TOKEN_SCROLLBARCOLOR:
359                                 token = clearlooks_gtk2_rc_parse_color (settings, scanner, rc_style, &clearlooks_style->scrollbar_color);
360                                 clearlooks_style->flags |= CL_FLAG_SCROLLBAR_COLOR;
361                                 break;
362                         case TOKEN_COLORIZESCROLLBAR:
363                                 token = clearlooks_gtk2_rc_parse_boolean (settings, scanner, &clearlooks_style->colorize_scrollbar);
364                                 clearlooks_style->flags |= CL_FLAG_COLORIZE_SCROLLBAR;
365                                 break;
366                         case TOKEN_CONTRAST:
367                                 token = clearlooks_gtk2_rc_parse_double (settings, scanner, &clearlooks_style->contrast);
368                                 clearlooks_style->flags |= CL_FLAG_CONTRAST;
369                                 break;
370                         case TOKEN_RELIEFSTYLE:
371                                 token = clearlooks_gtk2_rc_parse_int (settings, scanner, &clearlooks_style->reliefstyle);
372                                 clearlooks_style->flags |= CL_FLAG_RELIEFSTYLE;
373                                 break;
374                         case TOKEN_MENUBARSTYLE:
375                                 token = clearlooks_gtk2_rc_parse_int (settings, scanner, &clearlooks_style->menubarstyle);
376                                 clearlooks_style->flags |= CL_FLAG_MENUBARSTYLE;
377                                 break;
378                         case TOKEN_TOOLBARSTYLE:
379                                 token = clearlooks_gtk2_rc_parse_int (settings, scanner, &clearlooks_style->toolbarstyle);
380                                 clearlooks_style->flags |= CL_FLAG_TOOLBARSTYLE;
381                                 break;
382                         case TOKEN_ANIMATION:
383                                 token = clearlooks_gtk2_rc_parse_boolean (settings, scanner, &clearlooks_style->animation);
384                                 clearlooks_style->flags |= CL_FLAG_ANIMATION;
385                                 break;
386                         case TOKEN_STYLE:
387                                 token = clearlooks_gtk2_rc_parse_style (settings, scanner, &clearlooks_style->style);
388                                 clearlooks_style->flags |= CL_FLAG_STYLE;
389                                 break;
390                         case TOKEN_RADIUS:
391                                 token = clearlooks_gtk2_rc_parse_double (settings, scanner, &clearlooks_style->radius);
392                                 clearlooks_style->flags |= CL_FLAG_RADIUS;
393                                 break;
394                         case TOKEN_HINT:
395                                 token = ge_rc_parse_hint (scanner, &clearlooks_style->hint);
396                                 clearlooks_style->flags |= CL_FLAG_HINT;
397                                 break;
398
399                         /* stuff to ignore */
400                         case TOKEN_SUNKENMENU:
401                                 token = clearlooks_gtk2_rc_parse_dummy (settings, scanner, "sunkenmenu");
402                                 break;
403                         case TOKEN_PROGRESSBARSTYLE:
404                                 token = clearlooks_gtk2_rc_parse_dummy (settings, scanner, "progressbarstyle");
405                                 break;
406                         case TOKEN_MENUITEMSTYLE:
407                                 token = clearlooks_gtk2_rc_parse_dummy (settings, scanner, "menuitemstyle");
408                                 break;
409                         case TOKEN_LISTVIEWITEMSTYLE:
410                                 token = clearlooks_gtk2_rc_parse_dummy (settings, scanner, "listviewitemstyle");
411                                 break;
412
413                         default:
414                                 g_scanner_get_next_token(scanner);
415                                 token = G_TOKEN_RIGHT_CURLY;
416                                 break;
417                 }
418
419                 if (token != G_TOKEN_NONE)
420                         return token;
421
422                 token = g_scanner_peek_next_token(scanner);
423         }
424
425         g_scanner_get_next_token(scanner);
426
427         g_scanner_set_scope(scanner, old_scope);
428
429         return G_TOKEN_NONE;
430 }
431
432 static void
433 clearlooks_rc_style_merge (GtkRcStyle *dest,
434                            GtkRcStyle *src)
435 {
436         ClearlooksRcStyle *dest_w, *src_w;
437         ClearlooksRcFlags flags;
438
439         GTK_RC_STYLE_CLASS (clearlooks_rc_style_parent_class)->merge (dest, src);
440
441         if (!CLEARLOOKS_IS_RC_STYLE (src))
442                 return;
443
444         src_w = CLEARLOOKS_RC_STYLE (src);
445         dest_w = CLEARLOOKS_RC_STYLE (dest);
446
447         flags = (~dest_w->flags) & src_w->flags;
448
449         if (flags & CL_FLAG_STYLE)
450                 dest_w->style = src_w->style;
451         if (flags & CL_FLAG_CONTRAST)
452                 dest_w->contrast = src_w->contrast;
453         if (flags & CL_FLAG_RELIEFSTYLE)
454                 dest_w->reliefstyle = src_w->reliefstyle;
455         if (flags & CL_FLAG_MENUBARSTYLE)
456                 dest_w->menubarstyle = src_w->menubarstyle;
457         if (flags & CL_FLAG_TOOLBARSTYLE)
458                 dest_w->toolbarstyle = src_w->toolbarstyle;
459         if (flags & CL_FLAG_FOCUS_COLOR)
460                 dest_w->focus_color = src_w->focus_color;
461         if (flags & CL_FLAG_SCROLLBAR_COLOR)
462                 dest_w->scrollbar_color = src_w->scrollbar_color;
463         if (flags & CL_FLAG_COLORIZE_SCROLLBAR)
464                 dest_w->colorize_scrollbar = src_w->colorize_scrollbar;
465         if (flags & CL_FLAG_ANIMATION)
466                 dest_w->animation = src_w->animation;
467         if (flags & CL_FLAG_RADIUS)
468                 dest_w->radius = src_w->radius;
469         if (flags & CL_FLAG_HINT)
470                 dest_w->hint = src_w->hint;
471
472         dest_w->flags |= src_w->flags;
473 }
474
475
476 /* Create an empty style suitable to this RC style
477  */
478 static GtkStyle *
479 clearlooks_rc_style_create_style (GtkRcStyle *rc_style)
480 {
481         return GTK_STYLE (g_object_new (CLEARLOOKS_TYPE_STYLE, NULL));
482 }