chiark - git - mdw - clg/blob - gtk/alien/glue.c

   1 /* Common Lisp bindings for GTK+ v2.0
   2  * Copyright (C) 1999-2002 Espen S. Johnsen <espen@users.sourceforge.net>
   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 Software
  16  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17  */
  18
  19 /* $Id: glue.c,v 1.3 2004/12/20 00:45:24 espen Exp $ */
  20
  21
  22 #include <gtk/gtk.h>
  23
  24
  25 /*
  26  *
  27  * Gtk helper functions
  28  *
  29  */
  30
  31 void
  32 gtk_query_version (guint *major, guint *minor, guint *micro)
  33 {
  34   *major = gtk_major_version;
  35   *minor = gtk_minor_version;
  36   *micro = gtk_micro_version;
  37 }
  38
  39
  40 /* Widget */
  41
  42 GdkWindow*
  43 gtk_widget_get_window (GtkWidget *widget)
  44 {
  45   return widget->window;
  46 }
  47
  48 GtkStateType
  49 gtk_widget_get_state (GtkWidget *widget)
  50 {
  51   return widget->state;
  52 }
  53
  54 gboolean
  55 gtk_widget_mapped_p (GtkWidget *widget)
  56 {
  57   return GTK_WIDGET_MAPPED (widget);
  58 }
  59
  60 void
  61 gtk_widget_get_size_allocation (GtkWidget *widget, int *width, int *height)
  62 {
  63   *width = widget->allocation.width;
  64   *height = widget->allocation.height;
  65 }
  66
  67
  68 /* Container */
  69
  70 GtkWidget*
  71 gtk_container_get_focus_child (GtkContainer *container)
  72 {
  73   return container->focus_child;
  74 }
  75
  76
  77 /* Dialog */
  78
  79 GtkWidget*
  80 gtk_dialog_get_vbox (GtkDialog *dialog)
  81 {
  82   return dialog->vbox;
  83 }
  84
  85 GtkWidget*
  86 gtk_dialog_get_action_area (GtkDialog *dialog)
  87 {
  88   return dialog->action_area;
  89 }
  90
  91
  92
  93 /* Window */
  94
  95 GtkWidget*
  96 gtk_window_get_default (GtkWindow *window)
  97 {
  98   return window->default_widget;
  99 }
 100
 101
 102 /* Paned */
 103
 104 GtkWidget*
 105 gtk_paned_child1 (GtkPaned *paned, guint *resize, guint *shrink)
 106 {
 107   *resize = paned->child1_resize;
 108   *shrink = paned->child1_shrink;
 109
 110   return paned->child1;
 111 }
 112
 113
 114 GtkWidget*
 115 gtk_paned_child2 (GtkPaned *paned, guint *resize, guint *shrink)
 116 {
 117   *resize = paned->child2_resize;
 118   *shrink = paned->child2_shrink;
 119
 120   return paned->child2;
 121 }
 122
 123
 124 /* Layout */
 125
 126 GdkWindow*
 127 gtk_layout_get_bin_window (GtkLayout *layout)
 128 {
 129   return layout->bin_window;
 130 }
 131
 132
 133 /* Drawing area */
 134
 135 void
 136 gtk_drawing_area_get_size (GtkDrawingArea *darea, gint *width, gint *height)
 137 {
 138   GtkWidget *widget;
 139
 140   widget = GTK_WIDGET (darea);
 141   *width = widget->allocation.width;
 142   *height = widget->allocation.height;
 143 }
 144
 145
 146 /* GtkStyle accessor functions */
 147
 148 typedef enum {
 149   GTK_COLOR_FG,
 150   GTK_COLOR_BG,
 151   GTK_COLOR_LIGHT,
 152   GTK_COLOR_DARK,
 153   GTK_COLOR_MID,
 154   GTK_COLOR_TEXT,
 155   GTK_COLOR_BASE,
 156   GTK_COLOR_TEXT_AA,
 157   GTK_COLOR_WHITE,
 158   GTK_COLOR_BLACK
 159 } GtkColorType;
 160
 161 GdkColor*
 162 gtk_style_get_color (GtkStyle *style, GtkColorType color_type,
 163                      GtkStateType state)
 164 {
 165   switch (color_type)
 166     {
 167     case GTK_COLOR_WHITE:
 168       return &style->white;
 169     case GTK_COLOR_BLACK:
 170       return &style->black;
 171     case GTK_COLOR_FG:
 172       return &style->fg[state];
 173     case GTK_COLOR_BG:
 174       return &style->bg[state];
 175     case GTK_COLOR_LIGHT:
 176       return &style->light[state];
 177     case GTK_COLOR_DARK:
 178       return &style->dark[state];
 179     case GTK_COLOR_MID:
 180       return &style->mid[state];
 181     case GTK_COLOR_TEXT:
 182       return &style->text[state];
 183     case GTK_COLOR_BASE:
 184       return &style->base[state];
 185     case GTK_COLOR_TEXT_AA:
 186       return &style->text_aa[state];
 187     }
 188 }
 189
 190
 191 void
 192 gtk_style_set_color (GtkStyle *style, GtkColorType color_type,
 193                      GtkStateType state, GdkColor *color)
 194 {
 195   switch (color_type)
 196     {
 197     case GTK_COLOR_WHITE:
 198       style->white = *color; break;
 199     case GTK_COLOR_BLACK:
 200       style->black = *color; break;
 201     case GTK_COLOR_FG:
 202       style->fg[state] = *color; break;
 203     case GTK_COLOR_BG:
 204       style->bg[state]  = *color; break;
 205     case GTK_COLOR_LIGHT:
 206       style->light[state]  = *color; break;
 207     case GTK_COLOR_DARK:
 208       style->dark[state]  = *color; break;
 209     case GTK_COLOR_MID:
 210       style->mid[state]  = *color; break;
 211     case GTK_COLOR_TEXT:
 212       style->text[state]  = *color; break;
 213     case GTK_COLOR_BASE:
 214       style->base[state]  = *color; break;
 215     case GTK_COLOR_TEXT_AA:
 216       style->text_aa[state]  = *color; break;
 217     }
 218 }
 219
 220
 221 GdkGC*
 222 gtk_style_get_gc (GtkStyle *style, GtkColorType color_type, GtkStateType state)
 223 {
 224   switch (color_type)
 225     {
 226     case GTK_COLOR_WHITE:
 227       return style->white_gc;
 228     case GTK_COLOR_BLACK:
 229       return style->black_gc;
 230     case GTK_COLOR_FG:
 231       return style->fg_gc[state];
 232     case GTK_COLOR_BG:
 233       return style->bg_gc[state];
 234     case GTK_COLOR_LIGHT:
 235       return style->light_gc[state];
 236     case GTK_COLOR_DARK:
 237       return style->dark_gc[state];
 238     case GTK_COLOR_MID:
 239       return style->mid_gc[state];
 240     case GTK_COLOR_TEXT:
 241       return style->text_gc[state];
 242     case GTK_COLOR_BASE:
 243       return style->base_gc[state];
 244     case GTK_COLOR_TEXT_AA:
 245       return style->text_aa_gc[state];
 246     }
 247 }
 248
 249 int
 250 gtk_style_font_desc_offset ()
 251 {
 252   GtkStyle style;
 253
 254   return (int)&style.font_desc - (int)&style;
 255 }
 256