← Back to branch summary

~ubuntu-branches/ubuntu/lucid/sawfish/lucid-updates

« back to all changes in this revision

Viewing changes to src/gtk-style.c

  • Committer: Bazaar Package Importer
  • Author(s): Christian Marillat
  • Date: 2005-02-23 16:16:46 UTC
  • mfrom: (1.2.1 upstream) (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050223161646-4id6qyw4h9lkvb0v
Tags: 1:1.3+cvs20050222-1
http://bugs.debian.org/295290
* New cvs release.
* Add an emacs initialisation script to load sawfish.el (Closes: #295290)
* Updated sawfish.el to 1.32

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gtk-style.c
1
1
/* gtk-style.c -- print the default GTK rc style (if possible) as s-exprs
2
 
   $Id: gtk-style.c,v 1.3 2000/12/31 16:39:58 jsh Exp $
 
2
   $Id: gtk-style.c,v 1.4 2003/01/12 20:35:22 jsh Exp $
3
3
 
4
4
   Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
5
5
 
95
95
void
96
96
print_rc_style (GtkRcStyle *rc, GtkStyle *style)
97
97
{
98
 
    if (rc->font_name != 0)
99
 
        printf ("(font . \"%s\")\n", rc->font_name);
100
 
    if (rc->fontset_name != 0)
101
 
        printf ("(fontset . \"%s\")\n", rc->fontset_name);
102
98
    if (print_rc_colors ("fg", rc->fg, 5, rc->color_flags, GTK_RC_FG))
103
99
        print_colors ("fg", style->fg, 5);
104
100
    if (print_rc_colors ("bg", rc->bg, 5, rc->color_flags, GTK_RC_BG))