lib/gtksheet/gtksheet.c

   1 /*
   2  * Copyright (C) 2006, 2008 Free Software Foundation
   3  *
   4  * This version of GtkSheet has been *heavily* modified, for the specific
   5  * requirements of PSPPIRE.  The changes are copyright by the
   6  * Free Software Foundation.  The copyright notice for the original work is
   7  * below.
   8  */
   9
  10 /* GtkSheet widget for Gtk+.
  11  * Copyright (C) 1999-2001 Adrian E. Feiguin <adrian@ifir.ifir.edu.ar>
  12  *
  13  * Based on GtkClist widget by Jay Painter, but major changes.
  14  * Memory allocation routines inspired on SC (Spreadsheet Calculator)
  15  *
  16  * This library is free software; you can redistribute it and/or
  17  * modify it under the terms of the GNU Lesser General Public
  18  * License as published by the Free Software Foundation; either
  19  * version 2.1 of the License, or (at your option) any later version.
  20  *
  21  * This library is distributed in the hope that it will be useful,
  22  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  23  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  24  * Lesser General Public License for more details.
  25  *
  26  * You should have received a copy of the GNU Lesser General Public
  27  * License along with this library; if not, write to the Free Software
  28  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
  29  */
  30
  31 /**
  32  * SECTION:gtksheet
  33  * @short_description: spreadsheet widget for gtk2
  34  *
  35  * GtkSheet is a matrix widget for GTK+. It consists of an scrollable grid of
  36  * cells where you can allocate text. Cell contents can be edited interactively
  37  * through a specially designed entry, GtkItemEntry.
  38  *
  39  */
  40 #include <config.h>
  41
  42 #include <string.h>
  43 #include <stdio.h>
  44 #include <stdlib.h>
  45 #include <glib.h>
  46 #include <gdk/gdk.h>
  47 #include <gdk/gdkkeysyms.h>
  48 #include <gtk/gtksignal.h>
  49 #include <gtk/gtkbutton.h>
  50 #include <gtk/gtkadjustment.h>
  51 #include <gtk/gtktypeutils.h>
  52 #include <gtk/gtkentry.h>
  53 #include <gtk/gtkcontainer.h>
  54 #include <pango/pango.h>
  55 #include "gtksheet.h"
  56 #include <gtksheet/psppire-marshal.h>
  57 #include "gsheetmodel.h"
  58 #include <libpspp/misc.h>
  59 #include <math.h>
  60
  61 /* sheet flags */
  62 enum
  63   {
  64     GTK_SHEET_IN_XDRAG = 1 << 1,
  65     GTK_SHEET_IN_YDRAG = 1 << 2,
  66     GTK_SHEET_IN_DRAG = 1 << 3,
  67     GTK_SHEET_IN_SELECTION = 1 << 4,
  68     GTK_SHEET_IN_RESIZE = 1 << 5
  69   };
  70
  71 #define GTK_SHEET_FLAGS(sheet) (GTK_SHEET (sheet)->flags)
  72 #define GTK_SHEET_SET_FLAGS(sheet,flag) (GTK_SHEET_FLAGS (sheet) |= (flag))
  73 #define GTK_SHEET_UNSET_FLAGS(sheet,flag) (GTK_SHEET_FLAGS (sheet) &= ~ (flag))
  74
  75 #define GTK_SHEET_IN_XDRAG(sheet) (GTK_SHEET_FLAGS (sheet) & GTK_SHEET_IN_XDRAG)
  76 #define GTK_SHEET_IN_YDRAG(sheet) (GTK_SHEET_FLAGS (sheet) & GTK_SHEET_IN_YDRAG)
  77 #define GTK_SHEET_IN_DRAG(sheet) (GTK_SHEET_FLAGS (sheet) & GTK_SHEET_IN_DRAG)
  78 #define GTK_SHEET_IN_SELECTION(sheet) (GTK_SHEET_FLAGS (sheet) & GTK_SHEET_IN_SELECTION)
  79 #define GTK_SHEET_IN_RESIZE(sheet) (GTK_SHEET_FLAGS (sheet) & GTK_SHEET_IN_RESIZE)
  80
  81 #define CELL_SPACING 1
  82
  83 #define TIMEOUT_HOVER 300
  84 #define COLUMN_MIN_WIDTH 10
  85 #define COLUMN_TITLES_HEIGHT 4
  86 #define DEFAULT_COLUMN_WIDTH 80
  87 #define DEFAULT_ROW_HEIGHT 25
  88
  89 static void set_entry_widget_font (GtkSheet *sheet);
  90
  91 static void gtk_sheet_update_primary_selection (GtkSheet *sheet);
  92 static void draw_column_title_buttons_range (GtkSheet *sheet, gint first, gint n);
  93 static void draw_row_title_buttons_range (GtkSheet *sheet, gint first, gint n);
  94 static void redraw_range (GtkSheet *sheet, GtkSheetRange *range);
  95
  96
  97 static void set_row_height (GtkSheet *sheet,
  98                             gint row,
  99                             gint height);
 100
 101 static void destroy_hover_window (GtkSheetHoverTitle *);
 102 static GtkSheetHoverTitle *create_hover_window (void);
 103
 104 static GtkStateType gtk_sheet_cell_get_state (GtkSheet *sheet, gint row, gint col);
 105
 106
 107 static inline  void
 108 dispose_string (const GtkSheet *sheet, gchar *text)
 109 {
 110   GSheetModel *model = gtk_sheet_get_model (sheet);
 111
 112   if ( ! model )
 113     return;
 114
 115   if (g_sheet_model_free_strings (model))
 116     g_free (text);
 117 }
 118
 119
 120 /* FIXME: Why bother with these two ? */
 121
 122 /* returns the column index from a pixel location */
 123 static inline gint
 124 column_from_xpixel (const GtkSheet *sheet, gint pixel)
 125 {
 126   return psppire_axis_unit_at_pixel (sheet->haxis, pixel);
 127 }
 128
 129 static inline gint
 130 row_from_ypixel (const GtkSheet *sheet, gint pixel)
 131 {
 132   return psppire_axis_unit_at_pixel (sheet->vaxis, pixel);
 133 }
 134
 135
 136 /* Return the lowest row number which is wholly or partially on
 137    the visible range of the sheet */
 138 static inline glong
 139 min_visible_row (const GtkSheet *sheet)
 140 {
 141   return row_from_ypixel (sheet, sheet->vadjustment->value);
 142 }
 143
 144 static inline glong
 145 min_fully_visible_row (const GtkSheet *sheet)
 146 {
 147   glong row = min_visible_row (sheet);
 148
 149   if ( psppire_axis_start_pixel (sheet->vaxis, row) < sheet->vadjustment->value)
 150     row++;
 151
 152   return row;
 153 }
 154
 155 static inline glong
 156 max_visible_row (const GtkSheet *sheet)
 157 {
 158   return row_from_ypixel (sheet, sheet->vadjustment->value + sheet->vadjustment->page_size);
 159 }
 160
 161
 162 static inline glong
 163 max_fully_visible_row (const GtkSheet *sheet)
 164 {
 165   glong row = max_visible_row (sheet);
 166
 167   if ( psppire_axis_start_pixel (sheet->vaxis, row)
 168        +
 169        psppire_axis_unit_size (sheet->vaxis, row)
 170        > sheet->vadjustment->value)
 171     row--;
 172
 173   return row;
 174 }
 175
 176
 177 /* Returns the lowest column number which is wholly or partially
 178    on the sheet */
 179 static inline glong
 180 min_visible_column (const GtkSheet *sheet)
 181 {
 182   return column_from_xpixel (sheet, sheet->hadjustment->value);
 183 }
 184
 185 static inline glong
 186 min_fully_visible_column (const GtkSheet *sheet)
 187 {
 188   glong col = min_visible_column (sheet);
 189
 190   if ( psppire_axis_start_pixel (sheet->haxis, col) < sheet->hadjustment->value)
 191     col++;
 192
 193   return col;
 194 }
 195
 196
 197 /* Returns the highest column number which is wholly or partially
 198    on the sheet */
 199 static inline glong
 200 max_visible_column (const GtkSheet *sheet)
 201 {
 202   return column_from_xpixel (sheet, sheet->hadjustment->value + sheet->hadjustment->page_size);
 203 }
 204
 205 static inline glong
 206 max_fully_visible_column (const GtkSheet *sheet)
 207 {
 208   glong col = max_visible_column (sheet);
 209
 210   if ( psppire_axis_start_pixel (sheet->haxis, col)
 211        +
 212        psppire_axis_unit_size (sheet->haxis, col)
 213        > sheet->hadjustment->value)
 214     col--;
 215
 216   return col;
 217 }
 218
 219
 220
 221 /* The size of the region (in pixels) around the row/column boundaries
 222    where the height/width may be grabbed to change size */
 223 #define DRAG_WIDTH 6
 224
 225 static gboolean
 226 on_column_boundary (const GtkSheet *sheet, gint x, gint *column)
 227 {
 228   gint col;
 229
 230   x += sheet->hadjustment->value;
 231
 232   col = column_from_xpixel (sheet, x);
 233
 234   if ( column_from_xpixel (sheet, x - DRAG_WIDTH / 2) < col )
 235     {
 236       *column = col - 1;
 237       return TRUE;
 238     }
 239
 240   if  ( column_from_xpixel (sheet, x + DRAG_WIDTH / 2) > col )
 241     {
 242       *column = col;
 243       return TRUE;
 244     }
 245
 246   return FALSE;
 247 }
 248
 249 static gboolean
 250 on_row_boundary (const GtkSheet *sheet, gint y, gint *row)
 251 {
 252   gint r;
 253
 254   y += sheet->vadjustment->value;
 255
 256   r = row_from_ypixel (sheet, y);
 257
 258   if ( row_from_ypixel (sheet, y - DRAG_WIDTH / 2) < r )
 259     {
 260       *row = r - 1;
 261       return TRUE;
 262     }
 263
 264   if  ( row_from_ypixel (sheet, y + DRAG_WIDTH / 2) > r )
 265     {
 266       *row = r;
 267       return TRUE;
 268     }
 269
 270   return FALSE;
 271 }
 272
 273
 274 static inline gboolean
 275 POSSIBLE_DRAG (const GtkSheet *sheet, gint x, gint y,
 276                gint *drag_row, gint *drag_column)
 277 {
 278   gint ydrag, xdrag;
 279
 280   /* Can't drag if nothing is selected */
 281   if ( sheet->range.row0 < 0 || sheet->range.rowi < 0 ||
 282        sheet->range.col0 < 0 || sheet->range.coli < 0 )
 283     return FALSE;
 284
 285   *drag_column = column_from_xpixel (sheet, x);
 286   *drag_row = row_from_ypixel (sheet, y);
 287
 288   if (x >= psppire_axis_start_pixel (sheet->haxis, sheet->range.col0) - DRAG_WIDTH / 2 &&
 289       x <= psppire_axis_start_pixel (sheet->haxis, sheet->range.coli) +
 290       psppire_axis_unit_size (sheet->haxis, sheet->range.coli) + DRAG_WIDTH / 2)
 291     {
 292       ydrag = psppire_axis_start_pixel (sheet->vaxis, sheet->range.row0);
 293       if (y >= ydrag - DRAG_WIDTH / 2 && y <= ydrag + DRAG_WIDTH / 2)
 294         {
 295           *drag_row = sheet->range.row0;
 296           return TRUE;
 297         }
 298       ydrag = psppire_axis_start_pixel (sheet->vaxis, sheet->range.rowi) +
 299         psppire_axis_unit_size (sheet->vaxis, sheet->range.rowi);
 300       if (y >= ydrag - DRAG_WIDTH / 2 && y <= ydrag + DRAG_WIDTH / 2)
 301         {
 302           *drag_row = sheet->range.rowi;
 303           return TRUE;
 304         }
 305     }
 306
 307   if (y >= psppire_axis_start_pixel (sheet->vaxis, sheet->range.row0) - DRAG_WIDTH / 2 &&
 308       y <= psppire_axis_start_pixel (sheet->vaxis, sheet->range.rowi) +
 309       psppire_axis_unit_size (sheet->vaxis, sheet->range.rowi) + DRAG_WIDTH / 2)
 310     {
 311       xdrag = psppire_axis_start_pixel (sheet->haxis, sheet->range.col0);
 312       if (x >= xdrag - DRAG_WIDTH / 2 && x <= xdrag + DRAG_WIDTH / 2)
 313         {
 314           *drag_column = sheet->range.col0;
 315           return TRUE;
 316         }
 317       xdrag = psppire_axis_start_pixel (sheet->haxis, sheet->range.coli) +
 318         psppire_axis_unit_size (sheet->haxis, sheet->range.coli);
 319       if (x >= xdrag - DRAG_WIDTH / 2 && x <= xdrag + DRAG_WIDTH / 2)
 320         {
 321           *drag_column = sheet->range.coli;
 322           return TRUE;
 323         }
 324     }
 325
 326   return FALSE;
 327 }
 328
 329 static inline gboolean
 330 POSSIBLE_RESIZE (const GtkSheet *sheet, gint x, gint y,
 331                  gint *drag_row, gint *drag_column)
 332 {
 333   gint xdrag, ydrag;
 334
 335   /* Can't drag if nothing is selected */
 336   if ( sheet->range.row0 < 0 || sheet->range.rowi < 0 ||
 337        sheet->range.col0 < 0 || sheet->range.coli < 0 )
 338     return FALSE;
 339
 340   xdrag = psppire_axis_start_pixel (sheet->haxis, sheet->range.coli)+
 341     psppire_axis_unit_size (sheet->haxis, sheet->range.coli);
 342
 343   ydrag = psppire_axis_start_pixel (sheet->vaxis, sheet->range.rowi) +
 344     psppire_axis_unit_size (sheet->vaxis, sheet->range.rowi);
 345
 346   if (sheet->state == GTK_SHEET_COLUMN_SELECTED)
 347     ydrag = psppire_axis_start_pixel (sheet->vaxis, min_visible_row (sheet));
 348
 349   if (sheet->state == GTK_SHEET_ROW_SELECTED)
 350     xdrag = psppire_axis_start_pixel (sheet->haxis, min_visible_column (sheet));
 351
 352   *drag_column = column_from_xpixel (sheet, x);
 353   *drag_row = row_from_ypixel (sheet, y);
 354
 355   if (x >= xdrag - DRAG_WIDTH / 2 && x <= xdrag + DRAG_WIDTH / 2 &&
 356       y >= ydrag - DRAG_WIDTH / 2 && y <= ydrag + DRAG_WIDTH / 2) return TRUE;
 357
 358   return FALSE;
 359 }
 360
 361
 362 static gboolean
 363 rectangle_from_range (GtkSheet *sheet, const GtkSheetRange *range,
 364                       GdkRectangle *r)
 365 {
 366   g_return_val_if_fail (range, FALSE);
 367
 368   r->x = psppire_axis_start_pixel (sheet->haxis, range->col0);
 369   r->x -= round (sheet->hadjustment->value);
 370
 371   if ( sheet->row_titles_visible)
 372     r->x += sheet->row_title_area.width;
 373
 374
 375   r->y = psppire_axis_start_pixel (sheet->vaxis, range->row0);
 376   r->y -= round (sheet->vadjustment->value);
 377
 378   if ( sheet->column_titles_visible)
 379     r->y += sheet->column_title_area.height;
 380
 381   r->width = psppire_axis_start_pixel (sheet->haxis, range->coli) -
 382     psppire_axis_start_pixel (sheet->haxis, range->col0) +
 383     psppire_axis_unit_size (sheet->haxis, range->coli);
 384
 385   r->height = psppire_axis_start_pixel (sheet->vaxis, range->rowi) -
 386     psppire_axis_start_pixel (sheet->vaxis, range->row0) +
 387     psppire_axis_unit_size (sheet->vaxis, range->rowi);
 388
 389   return TRUE;
 390 }
 391
 392 static gboolean
 393 rectangle_from_cell (GtkSheet *sheet, gint row, gint col,
 394                      GdkRectangle *r)
 395 {
 396   GtkSheetRange range;
 397   g_return_val_if_fail (row >= 0, FALSE);
 398   g_return_val_if_fail (col >= 0, FALSE);
 399
 400   range.row0 = range.rowi = row;
 401   range.col0 = range.coli = col;
 402
 403   return rectangle_from_range (sheet, &range, r);
 404 }
 405
 406
 407 static void gtk_sheet_class_init                 (GtkSheetClass *klass);
 408 static void gtk_sheet_init                       (GtkSheet *sheet);
 409 static void gtk_sheet_dispose                    (GObject *object);
 410 static void gtk_sheet_finalize                   (GObject *object);
 411 static void gtk_sheet_style_set                  (GtkWidget *widget,
 412                                                   GtkStyle *previous_style);
 413 static void gtk_sheet_realize                    (GtkWidget *widget);
 414 static void gtk_sheet_unrealize                  (GtkWidget *widget);
 415 static void gtk_sheet_map                        (GtkWidget *widget);
 416 static void gtk_sheet_unmap                      (GtkWidget *widget);
 417 static gint gtk_sheet_expose                     (GtkWidget *widget,
 418                                                   GdkEventExpose *event);
 419
 420 static void gtk_sheet_forall                     (GtkContainer *container,
 421                                                   gboolean include_internals,
 422                                                   GtkCallback callback,
 423                                                   gpointer callback_data);
 424
 425 static void gtk_sheet_set_scroll_adjustments     (GtkSheet *sheet,
 426                                                   GtkAdjustment *hadjustment,
 427                                                   GtkAdjustment *vadjustment);
 428
 429 static gint gtk_sheet_button_press               (GtkWidget *widget,
 430                                                   GdkEventButton *event);
 431 static gint gtk_sheet_button_release             (GtkWidget *widget,
 432                                                   GdkEventButton *event);
 433 static gint gtk_sheet_motion                     (GtkWidget *widget,
 434                                                   GdkEventMotion *event);
 435 static gboolean gtk_sheet_crossing_notify           (GtkWidget *widget,
 436                                                      GdkEventCrossing *event);
 437 static gint gtk_sheet_entry_key_press            (GtkWidget *widget,
 438                                                   GdkEventKey *key);
 439 static gboolean gtk_sheet_key_press              (GtkWidget *widget,
 440                                                   GdkEventKey *key);
 441 static void gtk_sheet_size_request               (GtkWidget *widget,
 442                                                   GtkRequisition *requisition);
 443 static void gtk_sheet_size_allocate              (GtkWidget *widget,
 444                                                   GtkAllocation *allocation);
 445
 446 /* Sheet queries */
 447
 448 static gboolean gtk_sheet_range_isvisible (const GtkSheet *sheet,
 449                                            const GtkSheetRange *range);
 450 static gboolean gtk_sheet_cell_isvisible  (GtkSheet *sheet,
 451                                            gint row, gint column);
 452 /* Drawing Routines */
 453
 454 /* draw cell */
 455 static void gtk_sheet_cell_draw (GtkSheet *sheet, gint row, gint column);
 456
 457
 458 /* draw visible part of range. */
 459 static void draw_sheet_region (GtkSheet *sheet, GdkRegion *region);
 460
 461
 462 /* highlight the visible part of the selected range */
 463 static void gtk_sheet_range_draw_selection       (GtkSheet *sheet,
 464                                                   GtkSheetRange range);
 465
 466 /* Selection */
 467
 468 static void gtk_sheet_real_select_range          (GtkSheet *sheet,
 469                                                   const GtkSheetRange *range);
 470 static void gtk_sheet_real_unselect_range        (GtkSheet *sheet,
 471                                                   const GtkSheetRange *range);
 472 static void gtk_sheet_extend_selection           (GtkSheet *sheet,
 473                                                   gint row, gint column);
 474 static void gtk_sheet_new_selection              (GtkSheet *sheet,
 475                                                   GtkSheetRange *range);
 476 static void gtk_sheet_draw_border                (GtkSheet *sheet,
 477                                                   GtkSheetRange range);
 478
 479 /* Active Cell handling */
 480
 481 static void gtk_sheet_hide_entry_widget          (GtkSheet *sheet);
 482 static void change_active_cell  (GtkSheet *sheet, gint row, gint col);
 483 static gboolean gtk_sheet_draw_active_cell       (GtkSheet *sheet);
 484 static void gtk_sheet_show_entry_widget          (GtkSheet *sheet);
 485 static gboolean gtk_sheet_click_cell             (GtkSheet *sheet,
 486                                                   gint row,
 487                                                   gint column);
 488
 489
 490 /* Scrollbars */
 491
 492 static void adjust_scrollbars                    (GtkSheet *sheet);
 493 static void vadjustment_value_changed            (GtkAdjustment *adjustment,
 494                                                   gpointer data);
 495 static void hadjustment_value_changed            (GtkAdjustment *adjustment,
 496                                                   gpointer data);
 497
 498
 499 static void draw_xor_vline                       (GtkSheet *sheet);
 500 static void draw_xor_hline                       (GtkSheet *sheet);
 501 static void draw_xor_rectangle                   (GtkSheet *sheet,
 502                                                   GtkSheetRange range);
 503
 504 /* Sheet Button */
 505
 506 static void create_global_button                 (GtkSheet *sheet);
 507 static void global_button_clicked                (GtkWidget *widget,
 508                                                   gpointer data);
 509 /* Sheet Entry */
 510
 511 static void create_sheet_entry                   (GtkSheet *sheet);
 512 static void gtk_sheet_size_allocate_entry        (GtkSheet *sheet);
 513
 514 /* Sheet button gadgets */
 515
 516 static void draw_column_title_buttons    (GtkSheet *sheet);
 517 static void draw_row_title_buttons       (GtkSheet *sheet);
 518
 519
 520 static void size_allocate_global_button          (GtkSheet *sheet);
 521 static void gtk_sheet_button_size_request        (GtkSheet *sheet,
 522                                                   const GtkSheetButton *button,
 523                                                   GtkRequisition *requisition);
 524
 525 static void gtk_sheet_real_cell_clear            (GtkSheet *sheet,
 526                                                   gint row,
 527                                                   gint column);
 528
 529
 530 static void gtk_sheet_row_size_request (GtkSheet *sheet,
 531                                         gint row,
 532                                         guint *requisition);
 533
 534
 535 /* Signals */
 536 enum
 537   {
 538     SELECT_ROW,
 539     SELECT_COLUMN,
 540     DOUBLE_CLICK_ROW,
 541     DOUBLE_CLICK_COLUMN,
 542     BUTTON_EVENT_ROW,
 543     BUTTON_EVENT_COLUMN,
 544     SELECT_RANGE,
 545     RESIZE_RANGE,
 546     MOVE_RANGE,
 547     TRAVERSE,
 548     ACTIVATE,
 549     LAST_SIGNAL
 550   };
 551
 552 static GtkContainerClass *parent_class = NULL;
 553 static guint sheet_signals[LAST_SIGNAL] = { 0 };
 554
 555
 556 GType
 557 gtk_sheet_get_type ()
 558 {
 559   static GType sheet_type = 0;
 560
 561   if (!sheet_type)
 562     {
 563       static const GTypeInfo sheet_info =
 564         {
 565           sizeof (GtkSheetClass),
 566           NULL,
 567           NULL,
 568           (GClassInitFunc) gtk_sheet_class_init,
 569           NULL,
 570           NULL,
 571           sizeof (GtkSheet),
 572           0,
 573           (GInstanceInitFunc) gtk_sheet_init,
 574           NULL,
 575         };
 576
 577       sheet_type =
 578         g_type_register_static (GTK_TYPE_BIN, "GtkSheet",
 579                                 &sheet_info, 0);
 580     }
 581   return sheet_type;
 582 }
 583
 584 \f
 585
 586 static GtkSheetRange*
 587 gtk_sheet_range_copy (const GtkSheetRange *range)
 588 {
 589   GtkSheetRange *new_range;
 590
 591   g_return_val_if_fail (range != NULL, NULL);
 592
 593   new_range = g_new (GtkSheetRange, 1);
 594
 595   *new_range = *range;
 596
 597   return new_range;
 598 }
 599
 600 static void
 601 gtk_sheet_range_free (GtkSheetRange *range)
 602 {
 603   g_return_if_fail (range != NULL);
 604
 605   g_free (range);
 606 }
 607
 608 GType
 609 gtk_sheet_range_get_type (void)
 610 {
 611   static GType sheet_range_type = 0;
 612
 613   if (!sheet_range_type)
 614     {
 615       sheet_range_type =
 616         g_boxed_type_register_static ("GtkSheetRange",
 617                                       (GBoxedCopyFunc) gtk_sheet_range_copy,
 618                                       (GBoxedFreeFunc) gtk_sheet_range_free);
 619     }
 620
 621   return sheet_range_type;
 622 }
 623
 624 static GtkSheetCell*
 625 gtk_sheet_cell_copy (const GtkSheetCell *cell)
 626 {
 627   GtkSheetCell *new_cell;
 628
 629   g_return_val_if_fail (cell != NULL, NULL);
 630
 631   new_cell = g_new (GtkSheetCell, 1);
 632
 633   *new_cell = *cell;
 634
 635   return new_cell;
 636 }
 637
 638 static void
 639 gtk_sheet_cell_free (GtkSheetCell *cell)
 640 {
 641   g_return_if_fail (cell != NULL);
 642
 643   g_free (cell);
 644 }
 645
 646 GType
 647 gtk_sheet_cell_get_type (void)
 648 {
 649   static GType sheet_cell_type = 0;
 650
 651   if (!sheet_cell_type)
 652     {
 653       sheet_cell_type =
 654         g_boxed_type_register_static ("GtkSheetCell",
 655                                       (GBoxedCopyFunc) gtk_sheet_cell_copy,
 656                                       (GBoxedFreeFunc) gtk_sheet_cell_free);
 657     }
 658
 659   return sheet_cell_type;
 660 }
 661 \f
 662
 663 /* Properties */
 664 enum
 665   {
 666     PROP_0,
 667     PROP_VAXIS,
 668     PROP_HAXIS,
 669     PROP_MODEL
 670   };
 671
 672 static void
 673 resize_column (GtkSheet *sheet, gint unit, glong size)
 674 {
 675   GtkSheetRange range;
 676   range.col0 = unit;
 677   range.coli = max_visible_column (sheet);
 678   range.row0 = min_visible_row (sheet);
 679   range.rowi = max_visible_row (sheet);
 680
 681   redraw_range (sheet, &range);
 682
 683   draw_column_title_buttons_range (sheet, range.col0, range.coli);
 684 }
 685
 686
 687 static void
 688 gtk_sheet_set_horizontal_axis (GtkSheet *sheet, PsppireAxis *a)
 689 {
 690   if ( sheet->haxis )
 691     g_object_unref (sheet->haxis);
 692
 693   sheet->haxis = a;
 694   g_signal_connect_swapped (a, "resize-unit", G_CALLBACK (resize_column), sheet);
 695
 696   if ( sheet->haxis )
 697     g_object_ref (sheet->haxis);
 698 }
 699
 700 static void
 701 resize_row (GtkSheet *sheet, gint unit, glong size)
 702 {
 703   GtkSheetRange range;
 704   range.col0 = min_visible_column (sheet);
 705   range.coli = max_visible_column (sheet);
 706   range.row0 = unit;
 707   range.rowi = max_visible_row (sheet);
 708
 709   redraw_range (sheet, &range);
 710
 711   draw_row_title_buttons_range (sheet, range.row0, range.rowi);
 712 }
 713
 714 static void
 715 gtk_sheet_set_vertical_axis (GtkSheet *sheet, PsppireAxis *a)
 716 {
 717   if ( sheet->vaxis )
 718     g_object_unref (sheet->vaxis);
 719
 720   sheet->vaxis = a;
 721
 722   g_signal_connect_swapped (a, "resize-unit", G_CALLBACK (resize_row), sheet);
 723
 724   if ( sheet->vaxis )
 725     g_object_ref (sheet->vaxis);
 726 }
 727
 728
 729 static void
 730 gtk_sheet_set_property (GObject         *object,
 731                         guint            prop_id,
 732                         const GValue    *value,
 733                         GParamSpec      *pspec)
 734
 735 {
 736   GtkSheet *sheet = GTK_SHEET (object);
 737
 738   switch (prop_id)
 739     {
 740     case PROP_VAXIS:
 741       gtk_sheet_set_vertical_axis (sheet, g_value_get_pointer (value));
 742       break;
 743     case PROP_HAXIS:
 744       gtk_sheet_set_horizontal_axis (sheet, g_value_get_pointer (value));
 745       break;
 746     case PROP_MODEL:
 747       gtk_sheet_set_model (sheet, g_value_get_pointer (value));
 748       break;
 749     default:
 750       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 751       break;
 752     };
 753 }
 754
 755 static void
 756 gtk_sheet_get_property (GObject         *object,
 757                         guint            prop_id,
 758                         GValue          *value,
 759                         GParamSpec      *pspec)
 760 {
 761   GtkSheet *sheet = GTK_SHEET (object);
 762
 763   switch (prop_id)
 764     {
 765     case PROP_VAXIS:
 766       g_value_set_pointer (value, sheet->vaxis);
 767       break;
 768     case PROP_HAXIS:
 769       g_value_set_pointer (value, sheet->haxis);
 770       break;
 771     case PROP_MODEL:
 772       g_value_set_pointer (value, sheet->model);
 773       break;
 774     default:
 775       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 776       break;
 777     };
 778 }
 779
 780
 781 static void
 782 gtk_sheet_class_init (GtkSheetClass *klass)
 783 {
 784   GObjectClass *object_class = G_OBJECT_CLASS (klass);
 785
 786   GParamSpec *haxis_spec ;
 787   GParamSpec *vaxis_spec ;
 788   GParamSpec *model_spec ;
 789
 790   GtkWidgetClass *widget_class = GTK_WIDGET_CLASS (klass);
 791   GtkContainerClass *container_class = GTK_CONTAINER_CLASS (klass);
 792
 793   parent_class = g_type_class_peek_parent (klass);
 794
 795   /**
 796    * GtkSheet::select-row
 797    * @sheet: the sheet widget that emitted the signal
 798    * @row: the newly selected row index
 799    *
 800    * A row has been selected.
 801    */
 802   sheet_signals[SELECT_ROW] =
 803     g_signal_new ("select-row",
 804                   G_TYPE_FROM_CLASS (object_class),
 805                   G_SIGNAL_RUN_LAST,
 806                   offsetof (GtkSheetClass, select_row),
 807                   NULL, NULL,
 808                   g_cclosure_marshal_VOID__INT,
 809                   G_TYPE_NONE,
 810                   1,
 811                   G_TYPE_INT);
 812
 813
 814   /**
 815    * GtkSheet::select - column
 816    * @sheet: the sheet widget that emitted the signal
 817    * @column: the newly selected column index
 818    *
 819    * A column has been selected.
 820    */
 821   sheet_signals[SELECT_COLUMN] =
 822     g_signal_new ("select-column",
 823                   G_TYPE_FROM_CLASS (object_class),
 824                   G_SIGNAL_RUN_LAST,
 825                   offsetof (GtkSheetClass, select_column),
 826                   NULL, NULL,
 827                   g_cclosure_marshal_VOID__INT,
 828                   G_TYPE_NONE,
 829                   1,
 830                   G_TYPE_INT);
 831
 832
 833   /**
 834    * GtkSheet::double-click-row
 835    * @sheet: the sheet widget that emitted the signal
 836    * @row: the row that was double clicked.
 837    *
 838    * A row's title button has been double clicked
 839    */
 840   sheet_signals[DOUBLE_CLICK_ROW] =
 841     g_signal_new ("double-click-row",
 842                   G_TYPE_FROM_CLASS (object_class),
 843                   G_SIGNAL_RUN_LAST,
 844                   0,
 845                   NULL, NULL,
 846                   g_cclosure_marshal_VOID__INT,
 847                   G_TYPE_NONE,
 848                   1,
 849                   G_TYPE_INT);
 850
 851
 852   /**
 853    * GtkSheet::double-click-column
 854    * @sheet: the sheet widget that emitted the signal
 855    * @column: the column that was double clicked.
 856    *
 857    * A column's title button has been double clicked
 858    */
 859   sheet_signals[DOUBLE_CLICK_COLUMN] =
 860     g_signal_new ("double-click-column",
 861                   G_TYPE_FROM_CLASS (object_class),
 862                   G_SIGNAL_RUN_LAST,
 863                   0,
 864                   NULL, NULL,
 865                   g_cclosure_marshal_VOID__INT,
 866                   G_TYPE_NONE,
 867                   1,
 868                   G_TYPE_INT);
 869
 870
 871   /**
 872    * GtkSheet::button-event-column
 873    * @sheet: the sheet widget that emitted the signal
 874    * @column: the column on which the event occured.
 875    *
 876    * A button event occured on a column title button
 877    */
 878   sheet_signals[BUTTON_EVENT_COLUMN] =
 879     g_signal_new ("button-event-column",
 880                   G_TYPE_FROM_CLASS (object_class),
 881                   G_SIGNAL_RUN_LAST,
 882                   0,
 883                   NULL, NULL,
 884                   psppire_marshal_VOID__INT_POINTER,
 885                   G_TYPE_NONE,
 886                   2,
 887                   G_TYPE_INT,
 888                   G_TYPE_POINTER
 889                   );
 890
 891
 892   /**
 893    * GtkSheet::button-event-row
 894    * @sheet: the sheet widget that emitted the signal
 895    * @column: the column on which the event occured.
 896    *
 897    * A button event occured on a row title button
 898    */
 899   sheet_signals[BUTTON_EVENT_ROW] =
 900     g_signal_new ("button-event-row",
 901                   G_TYPE_FROM_CLASS (object_class),
 902                   G_SIGNAL_RUN_LAST,
 903                   0,
 904                   NULL, NULL,
 905                   psppire_marshal_VOID__INT_POINTER,
 906                   G_TYPE_NONE,
 907                   2,
 908                   G_TYPE_INT,
 909                   G_TYPE_POINTER
 910                   );
 911
 912
 913   sheet_signals[SELECT_RANGE] =
 914     g_signal_new ("select-range",
 915                   G_TYPE_FROM_CLASS (object_class),
 916                   G_SIGNAL_RUN_LAST,
 917                   offsetof (GtkSheetClass, select_range),
 918                   NULL, NULL,
 919                   g_cclosure_marshal_VOID__BOXED,
 920                   G_TYPE_NONE,
 921                   1,
 922                   GTK_TYPE_SHEET_RANGE);
 923
 924
 925   sheet_signals[RESIZE_RANGE] =
 926     g_signal_new ("resize-range",
 927                   G_TYPE_FROM_CLASS (object_class),
 928                   G_SIGNAL_RUN_LAST,
 929                   offsetof (GtkSheetClass, resize_range),
 930                   NULL, NULL,
 931                   psppire_marshal_VOID__BOXED_BOXED,
 932                   G_TYPE_NONE,
 933                   2,
 934                   GTK_TYPE_SHEET_RANGE, GTK_TYPE_SHEET_RANGE
 935                   );
 936
 937   sheet_signals[MOVE_RANGE] =
 938     g_signal_new ("move-range",
 939                   G_TYPE_FROM_CLASS (object_class),
 940                   G_SIGNAL_RUN_LAST,
 941                   offsetof (GtkSheetClass, move_range),
 942                   NULL, NULL,
 943                   psppire_marshal_VOID__BOXED_BOXED,
 944                   G_TYPE_NONE,
 945                   2,
 946                   GTK_TYPE_SHEET_RANGE, GTK_TYPE_SHEET_RANGE
 947                   );
 948
 949   sheet_signals[TRAVERSE] =
 950     g_signal_new ("traverse",
 951                   G_TYPE_FROM_CLASS (object_class),
 952                   G_SIGNAL_RUN_LAST,
 953                   offsetof (GtkSheetClass, traverse),
 954                   NULL, NULL,
 955                   psppire_marshal_BOOLEAN__BOXED_POINTER,
 956                   G_TYPE_BOOLEAN, 2,
 957                   GTK_TYPE_SHEET_CELL,
 958                   G_TYPE_POINTER);
 959
 960
 961   sheet_signals[ACTIVATE] =
 962     g_signal_new ("activate",
 963                   G_TYPE_FROM_CLASS (object_class),
 964                   G_SIGNAL_RUN_LAST,
 965                   offsetof (GtkSheetClass, activate),
 966                   NULL, NULL,
 967                   psppire_marshal_VOID__INT_INT_INT_INT,
 968                   G_TYPE_NONE, 4,
 969                   G_TYPE_INT, G_TYPE_INT,
 970                   G_TYPE_INT, G_TYPE_INT);
 971
 972   widget_class->set_scroll_adjustments_signal =
 973     g_signal_new ("set-scroll-adjustments",
 974                   G_TYPE_FROM_CLASS (object_class),
 975                   G_SIGNAL_RUN_LAST,
 976                   offsetof (GtkSheetClass, set_scroll_adjustments),
 977                   NULL, NULL,
 978                   psppire_marshal_VOID__OBJECT_OBJECT,
 979                   G_TYPE_NONE, 2, GTK_TYPE_ADJUSTMENT, GTK_TYPE_ADJUSTMENT);
 980
 981
 982   container_class->add = NULL;
 983   container_class->remove = NULL;
 984   container_class->forall = gtk_sheet_forall;
 985
 986   object_class->dispose = gtk_sheet_dispose;
 987   object_class->finalize = gtk_sheet_finalize;
 988
 989
 990   vaxis_spec =
 991     g_param_spec_pointer ("vertical-axis",
 992                           "Vertical Axis",
 993                           "A pointer to the PsppireAxis object for the rows",
 994                           G_PARAM_READABLE | G_PARAM_WRITABLE );
 995
 996   haxis_spec =
 997     g_param_spec_pointer ("horizontal-axis",
 998                           "Horizontal Axis",
 999                           "A pointer to the PsppireAxis object for the columns",
1000                           G_PARAM_READABLE | G_PARAM_WRITABLE );
1001
1002   model_spec =
1003     g_param_spec_pointer ("model",
1004                           "Model",
1005                           "A pointer to the data model",
1006                           G_PARAM_READABLE | G_PARAM_WRITABLE );
1007
1008
1009   object_class->set_property = gtk_sheet_set_property;
1010   object_class->get_property = gtk_sheet_get_property;
1011
1012   g_object_class_install_property (object_class,
1013                                    PROP_VAXIS,
1014                                    vaxis_spec);
1015
1016   g_object_class_install_property (object_class,
1017                                    PROP_HAXIS,
1018                                    haxis_spec);
1019
1020   g_object_class_install_property (object_class,
1021                                    PROP_MODEL,
1022                                    model_spec);
1023
1024
1025   widget_class->realize = gtk_sheet_realize;
1026   widget_class->unrealize = gtk_sheet_unrealize;
1027   widget_class->map = gtk_sheet_map;
1028   widget_class->unmap = gtk_sheet_unmap;
1029   widget_class->style_set = gtk_sheet_style_set;
1030   widget_class->button_press_event = gtk_sheet_button_press;
1031   widget_class->button_release_event = gtk_sheet_button_release;
1032   widget_class->motion_notify_event = gtk_sheet_motion;
1033   widget_class->enter_notify_event = gtk_sheet_crossing_notify;
1034   widget_class->leave_notify_event = gtk_sheet_crossing_notify;
1035   widget_class->key_press_event = gtk_sheet_key_press;
1036   widget_class->expose_event = gtk_sheet_expose;
1037   widget_class->size_request = gtk_sheet_size_request;
1038   widget_class->size_allocate = gtk_sheet_size_allocate;
1039   widget_class->focus_in_event = NULL;
1040   widget_class->focus_out_event = NULL;
1041
1042   klass->set_scroll_adjustments = gtk_sheet_set_scroll_adjustments;
1043   klass->select_row = NULL;
1044   klass->select_column = NULL;
1045   klass->select_range = NULL;
1046   klass->resize_range = NULL;
1047   klass->move_range = NULL;
1048   klass->traverse = NULL;
1049   klass->activate = NULL;
1050   klass->changed = NULL;
1051 }
1052
1053 static void
1054 gtk_sheet_init (GtkSheet *sheet)
1055 {
1056   sheet->model = NULL;
1057   sheet->haxis = NULL;
1058   sheet->vaxis = NULL;
1059
1060   sheet->flags = 0;
1061   sheet->selection_mode = GTK_SELECTION_NONE;
1062   sheet->state = GTK_SHEET_NORMAL;
1063
1064   GTK_WIDGET_UNSET_FLAGS (sheet, GTK_NO_WINDOW);
1065   GTK_WIDGET_SET_FLAGS (sheet, GTK_CAN_FOCUS);
1066
1067   sheet->column_title_window = NULL;
1068   sheet->column_title_area.x = 0;
1069   sheet->column_title_area.y = 0;
1070   sheet->column_title_area.width = 0;
1071   sheet->column_title_area.height = DEFAULT_ROW_HEIGHT;
1072
1073   sheet->row_title_window = NULL;
1074   sheet->row_title_area.x = 0;
1075   sheet->row_title_area.y = 0;
1076   sheet->row_title_area.width = DEFAULT_COLUMN_WIDTH;
1077   sheet->row_title_area.height = 0;
1078
1079
1080   sheet->active_cell.row = 0;
1081   sheet->active_cell.col = 0;
1082   sheet->selection_cell.row = 0;
1083   sheet->selection_cell.col = 0;
1084
1085   sheet->range.row0 = 0;
1086   sheet->range.rowi = 0;
1087   sheet->range.col0 = 0;
1088   sheet->range.coli = 0;
1089
1090   sheet->state = GTK_SHEET_NORMAL;
1091
1092   sheet->sheet_window = NULL;
1093   sheet->entry_widget = NULL;
1094   sheet->button = NULL;
1095
1096   sheet->hadjustment = NULL;
1097   sheet->vadjustment = NULL;
1098
1099   sheet->cursor_drag = NULL;
1100
1101   sheet->xor_gc = NULL;
1102   sheet->fg_gc = NULL;
1103   sheet->bg_gc = NULL;
1104   sheet->x_drag = 0;
1105   sheet->y_drag = 0;
1106   sheet->show_grid = TRUE;
1107
1108   sheet->motion_timer = 0;
1109
1110   sheet->row_titles_visible = TRUE;
1111   sheet->row_title_area.width = DEFAULT_COLUMN_WIDTH;
1112
1113   sheet->column_titles_visible = TRUE;
1114
1115
1116   /* create sheet entry */
1117   sheet->entry_type = GTK_TYPE_ENTRY;
1118   create_sheet_entry (sheet);
1119
1120   /* create global selection button */
1121   create_global_button (sheet);
1122 }
1123
1124
1125 /* Cause RANGE to be redrawn. If RANGE is null, then the
1126    entire visible range will be redrawn.
1127  */
1128 static void
1129 redraw_range (GtkSheet *sheet, GtkSheetRange *range)
1130 {
1131   GdkRectangle rect;
1132
1133   if ( ! GTK_WIDGET_REALIZED (sheet))
1134     return;
1135
1136   if ( NULL != range )
1137     rectangle_from_range (sheet, range, &rect);
1138   else
1139     {
1140       GdkRegion *r = gdk_drawable_get_visible_region (sheet->sheet_window);
1141       gdk_region_get_clipbox (r, &rect);
1142     }
1143
1144   gdk_window_invalidate_rect (sheet->sheet_window, &rect, FALSE);
1145 }
1146
1147
1148 /* Callback which occurs whenever columns are inserted / deleted in the model */
1149 static void
1150 columns_inserted_deleted_callback (GSheetModel *model, gint first_column,
1151                                    gint n_columns,
1152                                    gpointer data)
1153 {
1154   GtkSheet *sheet = GTK_SHEET (data);
1155
1156   GtkSheetRange range;
1157   gint model_columns = g_sheet_model_get_column_count (model);
1158
1159
1160   /* Need to update all the columns starting from the first column and onwards.
1161    * Previous column are unchanged, so don't need to be updated.
1162    */
1163   range.col0 = first_column;
1164   range.row0 = 0;
1165   range.coli = psppire_axis_unit_count (sheet->haxis) - 1;
1166   range.rowi = psppire_axis_unit_count (sheet->vaxis) - 1;
1167
1168   adjust_scrollbars (sheet);
1169
1170   if (sheet->active_cell.col >= model_columns)
1171     change_active_cell (sheet, sheet->active_cell.row, model_columns - 1);
1172
1173   draw_column_title_buttons_range (sheet,
1174                                    first_column, max_visible_column (sheet));
1175
1176
1177   redraw_range (sheet, &range);
1178 }
1179
1180
1181
1182
1183 /* Callback which occurs whenever rows are inserted / deleted in the model */
1184 static void
1185 rows_inserted_deleted_callback (GSheetModel *model, gint first_row,
1186                                 gint n_rows, gpointer data)
1187 {
1188   GtkSheet *sheet = GTK_SHEET (data);
1189
1190   GtkSheetRange range;
1191
1192   gint model_rows = g_sheet_model_get_row_count (model);
1193
1194   /* Need to update all the rows starting from the first row and onwards.
1195    * Previous rows are unchanged, so don't need to be updated.
1196    */
1197   range.row0 = first_row;
1198   range.col0 = 0;
1199   range.rowi = psppire_axis_unit_count (sheet->vaxis) - 1;
1200   range.coli = psppire_axis_unit_count (sheet->haxis) - 1;
1201
1202   adjust_scrollbars (sheet);
1203
1204   if (sheet->active_cell.row >= model_rows)
1205     change_active_cell (sheet, model_rows - 1, sheet->active_cell.col);
1206
1207   draw_row_title_buttons_range (sheet, first_row, max_visible_row (sheet));
1208
1209   redraw_range (sheet, &range);
1210 }
1211
1212 /*
1213   If row0 or rowi are negative, then all rows will be updated.
1214   If col0 or coli are negative, then all columns will be updated.
1215 */
1216 static void
1217 range_update_callback (GSheetModel *m, gint row0, gint col0,
1218                        gint rowi, gint coli, gpointer data)
1219 {
1220   GtkSheet *sheet = GTK_SHEET (data);
1221
1222   GtkSheetRange range;
1223
1224   range.row0 = row0;
1225   range.col0 = col0;
1226   range.rowi = rowi;
1227   range.coli = coli;
1228
1229   if ( !GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
1230     return;
1231
1232   if ( ( row0 < 0 && col0 < 0 ) || ( rowi < 0 && coli < 0 ) )
1233     {
1234       redraw_range (sheet, NULL);
1235       adjust_scrollbars (sheet);
1236
1237       draw_row_title_buttons_range (sheet, min_visible_row (sheet),
1238                                        max_visible_row (sheet));
1239
1240       draw_column_title_buttons_range (sheet, min_visible_column (sheet),
1241                                        max_visible_column (sheet));
1242
1243       return;
1244     }
1245   else if ( row0 < 0 || rowi < 0 )
1246     {
1247       range.row0 = min_visible_row (sheet);
1248       range.rowi = max_visible_row (sheet);
1249     }
1250   else if ( col0 < 0 || coli < 0 )
1251     {
1252       range.col0 = min_visible_column (sheet);
1253       range.coli = max_visible_column (sheet);
1254     }
1255
1256   redraw_range (sheet, &range);
1257 }
1258
1259
1260 /**
1261  * gtk_sheet_new:
1262  * @rows: initial number of rows
1263  * @columns: initial number of columns
1264  * @title: sheet title
1265  * @model: the model to use for the sheet data
1266  *
1267  * Creates a new sheet widget with the given number of rows and columns.
1268  *
1269  * Returns: the new sheet widget
1270  */
1271 GtkWidget *
1272 gtk_sheet_new (GSheetModel *model)
1273 {
1274   GtkWidget *widget = g_object_new (GTK_TYPE_SHEET,
1275                                     "model", model,
1276                                     NULL);
1277   return widget;
1278 }
1279
1280
1281 /**
1282  * gtk_sheet_set_model
1283  * @sheet: the sheet to set the model for
1284  * @model: the model to use for the sheet data
1285  *
1286  * Sets the model for a GtkSheet
1287  *
1288  */
1289 void
1290 gtk_sheet_set_model (GtkSheet *sheet, GSheetModel *model)
1291 {
1292   g_return_if_fail (GTK_IS_SHEET (sheet));
1293
1294   if (sheet->model ) g_object_unref (sheet->model);
1295
1296   sheet->model = model;
1297
1298   if ( model)
1299     {
1300       g_object_ref (model);
1301
1302       sheet->update_handler_id = g_signal_connect (model, "range_changed",
1303                                                    G_CALLBACK (range_update_callback),
1304                                                    sheet);
1305
1306       g_signal_connect (model, "rows_inserted",
1307                         G_CALLBACK (rows_inserted_deleted_callback), sheet);
1308
1309       g_signal_connect (model, "rows_deleted",
1310                         G_CALLBACK (rows_inserted_deleted_callback), sheet);
1311
1312       g_signal_connect (model, "columns_inserted",
1313                         G_CALLBACK (columns_inserted_deleted_callback), sheet);
1314
1315       g_signal_connect (model, "columns_deleted",
1316                         G_CALLBACK (columns_inserted_deleted_callback), sheet);
1317     }
1318 }
1319
1320
1321 void
1322 gtk_sheet_change_entry (GtkSheet *sheet, GtkType entry_type)
1323 {
1324   gint state;
1325
1326   g_return_if_fail (sheet != NULL);
1327   g_return_if_fail (GTK_IS_SHEET (sheet));
1328
1329   state = sheet->state;
1330
1331   if (sheet->state == GTK_SHEET_NORMAL)
1332     gtk_sheet_hide_entry_widget (sheet);
1333
1334   sheet->entry_type = entry_type;
1335
1336   create_sheet_entry (sheet);
1337
1338   if (state == GTK_SHEET_NORMAL)
1339     {
1340       gtk_sheet_show_entry_widget (sheet);
1341     }
1342
1343 }
1344
1345 void
1346 gtk_sheet_show_grid (GtkSheet *sheet, gboolean show)
1347 {
1348   g_return_if_fail (sheet != NULL);
1349   g_return_if_fail (GTK_IS_SHEET (sheet));
1350
1351   if (show == sheet->show_grid) return;
1352
1353   sheet->show_grid = show;
1354
1355   redraw_range (sheet, NULL);
1356 }
1357
1358 gboolean
1359 gtk_sheet_grid_visible (GtkSheet *sheet)
1360 {
1361   g_return_val_if_fail (sheet != NULL, 0);
1362   g_return_val_if_fail (GTK_IS_SHEET (sheet), 0);
1363
1364   return sheet->show_grid;
1365 }
1366
1367 guint
1368 gtk_sheet_get_columns_count (GtkSheet *sheet)
1369 {
1370   g_return_val_if_fail (sheet != NULL, 0);
1371   g_return_val_if_fail (GTK_IS_SHEET (sheet), 0);
1372
1373   return psppire_axis_unit_count (sheet->haxis);
1374 }
1375
1376 static void set_column_width (GtkSheet *sheet,
1377                               gint column,
1378                               gint width);
1379
1380
1381 void
1382 gtk_sheet_show_column_titles (GtkSheet *sheet)
1383 {
1384   if (sheet->column_titles_visible) return;
1385
1386   sheet->column_titles_visible = TRUE;
1387
1388   if (!GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
1389     return;
1390
1391   gdk_window_show (sheet->column_title_window);
1392   gdk_window_move_resize (sheet->column_title_window,
1393                           sheet->column_title_area.x,
1394                           sheet->column_title_area.y,
1395                           sheet->column_title_area.width,
1396                           sheet->column_title_area.height);
1397
1398   adjust_scrollbars (sheet);
1399
1400   if (sheet->vadjustment)
1401     g_signal_emit_by_name (sheet->vadjustment,
1402                            "value_changed");
1403   size_allocate_global_button (sheet);
1404 }
1405
1406
1407 void
1408 gtk_sheet_show_row_titles (GtkSheet *sheet)
1409 {
1410   if (sheet->row_titles_visible) return;
1411
1412   sheet->row_titles_visible = TRUE;
1413
1414
1415   if (GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
1416     {
1417       gdk_window_show (sheet->row_title_window);
1418       gdk_window_move_resize (sheet->row_title_window,
1419                               sheet->row_title_area.x,
1420                               sheet->row_title_area.y,
1421                               sheet->row_title_area.width,
1422                               sheet->row_title_area.height);
1423
1424       adjust_scrollbars (sheet);
1425     }
1426
1427   if (sheet->hadjustment)
1428     g_signal_emit_by_name (sheet->hadjustment,
1429                            "value_changed");
1430   size_allocate_global_button (sheet);
1431 }
1432
1433 void
1434 gtk_sheet_hide_column_titles (GtkSheet *sheet)
1435 {
1436   if (!sheet->column_titles_visible) return;
1437
1438   sheet->column_titles_visible = FALSE;
1439
1440   if (GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
1441     {
1442       if (sheet->column_title_window)
1443         gdk_window_hide (sheet->column_title_window);
1444       if (GTK_WIDGET_VISIBLE (sheet->button))
1445         gtk_widget_hide (sheet->button);
1446
1447       adjust_scrollbars (sheet);
1448     }
1449
1450   if (sheet->vadjustment)
1451     g_signal_emit_by_name (sheet->vadjustment,
1452                            "value_changed");
1453 }
1454
1455 void
1456 gtk_sheet_hide_row_titles (GtkSheet *sheet)
1457 {
1458   if (!sheet->row_titles_visible) return;
1459
1460   sheet->row_titles_visible = FALSE;
1461
1462   if (GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
1463     {
1464       if (sheet->row_title_window)
1465         gdk_window_hide (sheet->row_title_window);
1466
1467       if (GTK_WIDGET_VISIBLE (sheet->button))
1468         gtk_widget_hide (sheet->button);
1469
1470       adjust_scrollbars (sheet);
1471     }
1472
1473   if (sheet->hadjustment)
1474     g_signal_emit_by_name (sheet->hadjustment,
1475                            "value_changed");
1476 }
1477
1478
1479 /* Scroll the sheet so that the cell ROW, COLUMN is visible.
1480    If {ROW,COL}_ALIGN is zero, then the cell will be placed
1481    at the {top,left} of the sheet.  If it's 1, then it'll
1482    be placed at the {bottom,right}.
1483    ROW or COL may be -1, in which case scrolling in that dimension
1484    does not occur.
1485  */
1486 void
1487 gtk_sheet_moveto (GtkSheet *sheet,
1488                   gint row,
1489                   gint col,
1490                   gfloat row_align,
1491                   gfloat col_align)
1492 {
1493   gint width, height;
1494
1495   g_return_if_fail (row_align >= 0);
1496   g_return_if_fail (col_align >= 0);
1497
1498   g_return_if_fail (row_align <= 1);
1499   g_return_if_fail (col_align <= 1);
1500
1501   g_return_if_fail (col <
1502                     psppire_axis_unit_count (sheet->haxis));
1503   g_return_if_fail (row <
1504                     psppire_axis_unit_count (sheet->vaxis));
1505
1506   gdk_drawable_get_size (sheet->sheet_window, &width, &height);
1507
1508
1509   if (row >= 0)
1510   {
1511     gint y =  psppire_axis_start_pixel (sheet->vaxis, row);
1512
1513     gtk_adjustment_set_value (sheet->vadjustment, y - height * row_align);
1514   }
1515
1516
1517   if (col >= 0)
1518   {
1519     gint x =  psppire_axis_start_pixel (sheet->haxis, col);
1520
1521     gtk_adjustment_set_value (sheet->hadjustment, x - width * col_align);
1522   }
1523 }
1524
1525
1526 void
1527 gtk_sheet_select_row (GtkSheet *sheet, gint row)
1528 {
1529   g_return_if_fail (sheet != NULL);
1530   g_return_if_fail (GTK_IS_SHEET (sheet));
1531
1532   if (row < 0 || row >= psppire_axis_unit_count (sheet->vaxis))
1533     return;
1534
1535   if (sheet->state != GTK_SHEET_NORMAL)
1536     gtk_sheet_real_unselect_range (sheet, NULL);
1537
1538   sheet->state = GTK_SHEET_ROW_SELECTED;
1539   sheet->range.row0 = row;
1540   sheet->range.col0 = 0;
1541   sheet->range.rowi = row;
1542   sheet->range.coli = psppire_axis_unit_count (sheet->haxis) - 1;
1543   sheet->active_cell.row = row;
1544   sheet->active_cell.col = 0;
1545
1546   g_signal_emit (sheet, sheet_signals[SELECT_ROW], 0, row);
1547   gtk_sheet_real_select_range (sheet, NULL);
1548 }
1549
1550
1551 void
1552 gtk_sheet_select_column (GtkSheet *sheet, gint column)
1553 {
1554   g_return_if_fail (sheet != NULL);
1555   g_return_if_fail (GTK_IS_SHEET (sheet));
1556
1557   if (column < 0 || column >= psppire_axis_unit_count (sheet->haxis))
1558     return;
1559
1560   if (sheet->state != GTK_SHEET_NORMAL)
1561     gtk_sheet_real_unselect_range (sheet, NULL);
1562
1563   sheet->state = GTK_SHEET_COLUMN_SELECTED;
1564   sheet->range.row0 = 0;
1565   sheet->range.col0 = column;
1566   sheet->range.rowi = psppire_axis_unit_count (sheet->vaxis) - 1;
1567   sheet->range.coli = column;
1568   sheet->active_cell.row = 0;
1569   sheet->active_cell.col = column;
1570
1571   g_signal_emit (sheet, sheet_signals[SELECT_COLUMN], 0, column);
1572   gtk_sheet_real_select_range (sheet, NULL);
1573 }
1574
1575
1576
1577
1578 static gboolean
1579 gtk_sheet_range_isvisible (const GtkSheet *sheet,
1580                            const GtkSheetRange *range)
1581 {
1582   g_return_val_if_fail (sheet != NULL, FALSE);
1583
1584   if (range->row0 < 0 || range->row0 >= psppire_axis_unit_count (sheet->vaxis))
1585     return FALSE;
1586
1587   if (range->rowi < 0 || range->rowi >= psppire_axis_unit_count (sheet->vaxis))
1588     return FALSE;
1589
1590   if (range->col0 < 0 || range->col0 >= psppire_axis_unit_count (sheet->haxis))
1591     return FALSE;
1592
1593   if (range->coli < 0 || range->coli >= psppire_axis_unit_count (sheet->haxis))
1594     return FALSE;
1595
1596   if (range->rowi < min_visible_row (sheet))
1597     return FALSE;
1598
1599   if (range->row0 > max_visible_row (sheet))
1600     return FALSE;
1601
1602   if (range->coli < min_visible_column (sheet))
1603     return FALSE;
1604
1605   if (range->col0 > max_visible_column (sheet))
1606     return FALSE;
1607
1608   return TRUE;
1609 }
1610
1611 static gboolean
1612 gtk_sheet_cell_isvisible (GtkSheet *sheet,
1613                           gint row, gint column)
1614 {
1615   GtkSheetRange range;
1616
1617   range.row0 = row;
1618   range.col0 = column;
1619   range.rowi = row;
1620   range.coli = column;
1621
1622   return gtk_sheet_range_isvisible (sheet, &range);
1623 }
1624
1625 void
1626 gtk_sheet_get_visible_range (GtkSheet *sheet, GtkSheetRange *range)
1627 {
1628   g_return_if_fail (sheet != NULL);
1629   g_return_if_fail (GTK_IS_SHEET (sheet)) ;
1630   g_return_if_fail (range != NULL);
1631
1632   range->row0 = min_visible_row (sheet);
1633   range->col0 = min_visible_column (sheet);
1634   range->rowi = max_visible_row (sheet);
1635   range->coli = max_visible_column (sheet);
1636 }
1637
1638
1639 static void
1640 gtk_sheet_set_scroll_adjustments (GtkSheet *sheet,
1641                                   GtkAdjustment *hadjustment,
1642                                   GtkAdjustment *vadjustment)
1643 {
1644   if ( sheet->vadjustment != vadjustment )
1645     {
1646       if (sheet->vadjustment)
1647         g_object_unref (sheet->vadjustment);
1648       sheet->vadjustment = vadjustment;
1649       g_object_ref (vadjustment);
1650
1651       g_signal_connect (sheet->vadjustment, "value_changed",
1652                         G_CALLBACK (vadjustment_value_changed),
1653                         sheet);
1654     }
1655
1656   if ( sheet->hadjustment != hadjustment )
1657     {
1658       if (sheet->hadjustment)
1659         g_object_unref (sheet->hadjustment);
1660       sheet->hadjustment = hadjustment;
1661       g_object_ref (hadjustment);
1662
1663       g_signal_connect (sheet->hadjustment, "value_changed",
1664                         G_CALLBACK (hadjustment_value_changed),
1665                         sheet);
1666     }
1667 }
1668
1669 static void
1670 gtk_sheet_finalize (GObject *object)
1671 {
1672   GtkSheet *sheet;
1673
1674   g_return_if_fail (object != NULL);
1675   g_return_if_fail (GTK_IS_SHEET (object));
1676
1677   sheet = GTK_SHEET (object);
1678
1679   if (G_OBJECT_CLASS (parent_class)->finalize)
1680     (*G_OBJECT_CLASS (parent_class)->finalize) (object);
1681 }
1682
1683 static void
1684 gtk_sheet_dispose  (GObject *object)
1685 {
1686   GtkSheet *sheet = GTK_SHEET (object);
1687
1688   g_return_if_fail (object != NULL);
1689   g_return_if_fail (GTK_IS_SHEET (object));
1690
1691   if ( sheet->dispose_has_run )
1692     return ;
1693
1694   sheet->dispose_has_run = TRUE;
1695
1696   if (sheet->model) g_object_unref (sheet->model);
1697   if (sheet->vaxis) g_object_unref (sheet->vaxis);
1698   if (sheet->haxis) g_object_unref (sheet->haxis);
1699
1700   g_object_unref (sheet->button);
1701   sheet->button = NULL;
1702
1703   /* unref adjustments */
1704   if (sheet->hadjustment)
1705     {
1706       g_signal_handlers_disconnect_matched (sheet->hadjustment,
1707                                             G_SIGNAL_MATCH_DATA,
1708                                             0, 0, 0, 0,
1709                                             sheet);
1710
1711       g_object_unref (sheet->hadjustment);
1712       sheet->hadjustment = NULL;
1713     }
1714
1715   if (sheet->vadjustment)
1716     {
1717       g_signal_handlers_disconnect_matched (sheet->vadjustment,
1718                                             G_SIGNAL_MATCH_DATA,
1719                                             0, 0, 0, 0,
1720                                             sheet);
1721
1722       g_object_unref (sheet->vadjustment);
1723
1724       sheet->vadjustment = NULL;
1725     }
1726
1727   if (G_OBJECT_CLASS (parent_class)->dispose)
1728     (*G_OBJECT_CLASS (parent_class)->dispose) (object);
1729 }
1730
1731 static void
1732 gtk_sheet_style_set (GtkWidget *widget,
1733                      GtkStyle *previous_style)
1734 {
1735   GtkSheet *sheet;
1736
1737   g_return_if_fail (widget != NULL);
1738   g_return_if_fail (GTK_IS_SHEET (widget));
1739
1740   if (GTK_WIDGET_CLASS (parent_class)->style_set)
1741     (*GTK_WIDGET_CLASS (parent_class)->style_set) (widget, previous_style);
1742
1743   sheet = GTK_SHEET (widget);
1744
1745   if (GTK_WIDGET_REALIZED (widget))
1746     {
1747       gtk_style_set_background (widget->style, widget->window, widget->state);
1748     }
1749
1750   set_entry_widget_font (sheet);
1751 }
1752
1753 #define BORDER_WIDTH 3
1754
1755 static void
1756 gtk_sheet_realize (GtkWidget *widget)
1757 {
1758   GtkSheet *sheet;
1759   GdkWindowAttr attributes;
1760   const gint attributes_mask =
1761     GDK_WA_X | GDK_WA_Y | GDK_WA_VISUAL | GDK_WA_COLORMAP | GDK_WA_CURSOR;
1762
1763   GdkGCValues values;
1764   GdkColormap *colormap;
1765   GdkDisplay *display;
1766
1767   g_return_if_fail (widget != NULL);
1768   g_return_if_fail (GTK_IS_SHEET (widget));
1769
1770   sheet = GTK_SHEET (widget);
1771
1772   GTK_WIDGET_SET_FLAGS (widget, GTK_REALIZED);
1773
1774   colormap = gtk_widget_get_colormap (widget);
1775   display = gtk_widget_get_display (widget);
1776
1777   attributes.window_type = GDK_WINDOW_CHILD;
1778   attributes.x = widget->allocation.x;
1779   attributes.y = widget->allocation.y;
1780   attributes.width = widget->allocation.width;
1781   attributes.height = widget->allocation.height;
1782   attributes.wclass = GDK_INPUT_OUTPUT;
1783
1784   attributes.visual = gtk_widget_get_visual (widget);
1785   attributes.colormap = colormap;
1786
1787   attributes.event_mask = gtk_widget_get_events (widget);
1788   attributes.event_mask |= (GDK_EXPOSURE_MASK |
1789                             GDK_BUTTON_PRESS_MASK |
1790                             GDK_BUTTON_RELEASE_MASK |
1791                             GDK_KEY_PRESS_MASK |
1792                             GDK_ENTER_NOTIFY_MASK |
1793                             GDK_LEAVE_NOTIFY_MASK |
1794                             GDK_POINTER_MOTION_MASK |
1795                             GDK_POINTER_MOTION_HINT_MASK);
1796
1797   attributes.cursor = gdk_cursor_new_for_display (display, GDK_TOP_LEFT_ARROW);
1798
1799   /* main window */
1800   widget->window = gdk_window_new (gtk_widget_get_parent_window (widget), &attributes, attributes_mask);
1801
1802   gdk_window_set_user_data (widget->window, sheet);
1803
1804   widget->style = gtk_style_attach (widget->style, widget->window);
1805
1806   gtk_style_set_background (widget->style, widget->window, GTK_STATE_NORMAL);
1807
1808   gdk_color_parse ("white", &sheet->color[BG_COLOR]);
1809   gdk_colormap_alloc_color (colormap, &sheet->color[BG_COLOR], FALSE,
1810                             TRUE);
1811   gdk_color_parse ("gray", &sheet->color[GRID_COLOR]);
1812   gdk_colormap_alloc_color (colormap, &sheet->color[GRID_COLOR], FALSE,
1813                             TRUE);
1814
1815   attributes.x = 0;
1816   attributes.y = 0;
1817   attributes.width = sheet->column_title_area.width;
1818   attributes.height = sheet->column_title_area.height;
1819
1820
1821   /* column - title window */
1822   sheet->column_title_window =
1823     gdk_window_new (widget->window, &attributes, attributes_mask);
1824   gdk_window_set_user_data (sheet->column_title_window, sheet);
1825   gtk_style_set_background (widget->style, sheet->column_title_window,
1826                             GTK_STATE_NORMAL);
1827
1828
1829   attributes.x = 0;
1830   attributes.y = 0;
1831   attributes.width = sheet->row_title_area.width;
1832   attributes.height = sheet->row_title_area.height;
1833
1834   /* row - title window */
1835   sheet->row_title_window = gdk_window_new (widget->window,
1836                                             &attributes, attributes_mask);
1837   gdk_window_set_user_data (sheet->row_title_window, sheet);
1838   gtk_style_set_background (widget->style, sheet->row_title_window,
1839                             GTK_STATE_NORMAL);
1840
1841   /* sheet - window */
1842   attributes.cursor = gdk_cursor_new_for_display (display, GDK_PLUS);
1843
1844   attributes.x = 0;
1845   attributes.y = 0;
1846
1847   sheet->sheet_window = gdk_window_new (widget->window,
1848                                         &attributes, attributes_mask);
1849   gdk_window_set_user_data (sheet->sheet_window, sheet);
1850
1851   gdk_cursor_unref (attributes.cursor);
1852
1853   gdk_window_set_background (sheet->sheet_window, &widget->style->white);
1854   gdk_window_show (sheet->sheet_window);
1855
1856   /* GCs */
1857   sheet->fg_gc = gdk_gc_new (widget->window);
1858   sheet->bg_gc = gdk_gc_new (widget->window);
1859
1860   values.foreground = widget->style->white;
1861   values.function = GDK_INVERT;
1862   values.subwindow_mode = GDK_INCLUDE_INFERIORS;
1863   values.line_width = BORDER_WIDTH;
1864
1865   sheet->xor_gc = gdk_gc_new_with_values (widget->window,
1866                                           &values,
1867                                           GDK_GC_FOREGROUND |
1868                                           GDK_GC_FUNCTION |
1869                                           GDK_GC_SUBWINDOW |
1870                                           GDK_GC_LINE_WIDTH
1871                                           );
1872
1873
1874   gtk_widget_set_parent_window (sheet->entry_widget, sheet->sheet_window);
1875   gtk_widget_set_parent (sheet->entry_widget, GTK_WIDGET (sheet));
1876
1877   gtk_widget_set_parent_window (sheet->button, sheet->sheet_window);
1878   gtk_widget_set_parent (sheet->button, GTK_WIDGET (sheet));
1879
1880
1881   sheet->cursor_drag = gdk_cursor_new_for_display (display, GDK_PLUS);
1882
1883   if (sheet->column_titles_visible)
1884     gdk_window_show (sheet->column_title_window);
1885   if (sheet->row_titles_visible)
1886     gdk_window_show (sheet->row_title_window);
1887
1888   sheet->hover_window = create_hover_window ();
1889
1890   draw_row_title_buttons (sheet);
1891   draw_column_title_buttons (sheet);
1892
1893   gtk_sheet_update_primary_selection (sheet);
1894 }
1895
1896 static void
1897 create_global_button (GtkSheet *sheet)
1898 {
1899   sheet->button = gtk_button_new_with_label (" ");
1900
1901   g_object_ref_sink (sheet->button);
1902
1903   g_signal_connect (sheet->button,
1904                     "pressed",
1905                     G_CALLBACK (global_button_clicked),
1906                     sheet);
1907 }
1908
1909 static void
1910 size_allocate_global_button (GtkSheet *sheet)
1911 {
1912   GtkAllocation allocation;
1913
1914   if (!sheet->column_titles_visible) return;
1915   if (!sheet->row_titles_visible) return;
1916
1917   gtk_widget_size_request (sheet->button, NULL);
1918
1919   allocation.x = 0;
1920   allocation.y = 0;
1921   allocation.width = sheet->row_title_area.width;
1922   allocation.height = sheet->column_title_area.height;
1923
1924   gtk_widget_size_allocate (sheet->button, &allocation);
1925   gtk_widget_show (sheet->button);
1926 }
1927
1928 static void
1929 global_button_clicked (GtkWidget *widget, gpointer data)
1930 {
1931   gtk_sheet_click_cell (GTK_SHEET (data), -1, -1);
1932 }
1933
1934
1935 static void
1936 gtk_sheet_unrealize (GtkWidget *widget)
1937 {
1938   GtkSheet *sheet;
1939
1940   g_return_if_fail (widget != NULL);
1941   g_return_if_fail (GTK_IS_SHEET (widget));
1942
1943   sheet = GTK_SHEET (widget);
1944
1945   gdk_cursor_unref (sheet->cursor_drag);
1946   sheet->cursor_drag = NULL;
1947
1948   gdk_colormap_free_colors (gtk_widget_get_colormap (widget),
1949                             sheet->color, n_COLORS);
1950
1951   g_object_unref (sheet->xor_gc);
1952   g_object_unref (sheet->fg_gc);
1953   g_object_unref (sheet->bg_gc);
1954
1955   destroy_hover_window (sheet->hover_window);
1956
1957   gdk_window_destroy (sheet->sheet_window);
1958   gdk_window_destroy (sheet->column_title_window);
1959   gdk_window_destroy (sheet->row_title_window);
1960
1961   gtk_widget_unparent (sheet->entry_widget);
1962   if (sheet->button != NULL)
1963     gtk_widget_unparent (sheet->button);
1964
1965   if (GTK_WIDGET_CLASS (parent_class)->unrealize)
1966     (* GTK_WIDGET_CLASS (parent_class)->unrealize) (widget);
1967 }
1968
1969 static void
1970 gtk_sheet_map (GtkWidget *widget)
1971 {
1972   GtkSheet *sheet = GTK_SHEET (widget);
1973
1974   g_return_if_fail (widget != NULL);
1975   g_return_if_fail (GTK_IS_SHEET (widget));
1976
1977   if (!GTK_WIDGET_MAPPED (widget))
1978     {
1979       GTK_WIDGET_SET_FLAGS (widget, GTK_MAPPED);
1980
1981       gdk_window_show (widget->window);
1982       gdk_window_show (sheet->sheet_window);
1983
1984       if (sheet->column_titles_visible)
1985         {
1986           draw_column_title_buttons (sheet);
1987           gdk_window_show (sheet->column_title_window);
1988         }
1989       if (sheet->row_titles_visible)
1990         {
1991           draw_row_title_buttons (sheet);
1992           gdk_window_show (sheet->row_title_window);
1993         }
1994
1995       if (!GTK_WIDGET_MAPPED (sheet->entry_widget)
1996           && sheet->active_cell.row >= 0
1997           && sheet->active_cell.col >= 0 )
1998         {
1999           gtk_widget_show (sheet->entry_widget);
2000           gtk_widget_map (sheet->entry_widget);
2001         }
2002
2003       if (GTK_WIDGET_VISIBLE (sheet->button) &&
2004           !GTK_WIDGET_MAPPED (sheet->button))
2005         {
2006           gtk_widget_show (sheet->button);
2007           gtk_widget_map (sheet->button);
2008         }
2009
2010       if (GTK_BIN (sheet->button)->child)
2011         if (GTK_WIDGET_VISIBLE (GTK_BIN (sheet->button)->child) &&
2012             !GTK_WIDGET_MAPPED (GTK_BIN (sheet->button)->child))
2013           gtk_widget_map (GTK_BIN (sheet->button)->child);
2014
2015       redraw_range (sheet, NULL);
2016       change_active_cell (sheet,
2017                      sheet->active_cell.row,
2018                      sheet->active_cell.col);
2019     }
2020 }
2021
2022 static void
2023 gtk_sheet_unmap (GtkWidget *widget)
2024 {
2025   GtkSheet *sheet = GTK_SHEET (widget);
2026
2027   if (!GTK_WIDGET_MAPPED (widget))
2028     return;
2029
2030   GTK_WIDGET_UNSET_FLAGS (widget, GTK_MAPPED);
2031
2032   gdk_window_hide (sheet->sheet_window);
2033   if (sheet->column_titles_visible)
2034     gdk_window_hide (sheet->column_title_window);
2035   if (sheet->row_titles_visible)
2036     gdk_window_hide (sheet->row_title_window);
2037   gdk_window_hide (widget->window);
2038
2039   if (GTK_WIDGET_MAPPED (sheet->entry_widget))
2040     gtk_widget_unmap (sheet->entry_widget);
2041
2042   if (GTK_WIDGET_MAPPED (sheet->button))
2043     gtk_widget_unmap (sheet->button);
2044 }
2045
2046
2047 static void
2048 gtk_sheet_cell_draw (GtkSheet *sheet, gint row, gint col)
2049 {
2050   PangoLayout *layout;
2051   PangoRectangle text;
2052   PangoFontDescription *font_desc = GTK_WIDGET (sheet)->style->font_desc;
2053   gint font_height;
2054
2055   gchar *label;
2056
2057   GtkSheetCellAttr attributes;
2058   GdkRectangle area;
2059
2060   g_return_if_fail (sheet != NULL);
2061
2062   /* bail now if we aren't yet drawable */
2063   if (!GTK_WIDGET_DRAWABLE (sheet)) return;
2064
2065   if (row < 0 ||
2066       row >= psppire_axis_unit_count (sheet->vaxis))
2067     return;
2068
2069   if (col < 0 ||
2070       col >= psppire_axis_unit_count (sheet->haxis))
2071     return;
2072
2073   gtk_sheet_get_attributes (sheet, row, col, &attributes);
2074
2075   /* select GC for background rectangle */
2076   gdk_gc_set_foreground (sheet->fg_gc, &attributes.foreground);
2077   gdk_gc_set_foreground (sheet->bg_gc, &attributes.background);
2078
2079   rectangle_from_cell (sheet, row, col, &area);
2080
2081   gdk_gc_set_line_attributes (sheet->fg_gc, 1, 0, 0, 0);
2082
2083   if (sheet->show_grid)
2084     {
2085       gdk_gc_set_foreground (sheet->bg_gc, &sheet->color[GRID_COLOR]);
2086
2087       gdk_draw_rectangle (sheet->sheet_window,
2088                           sheet->bg_gc,
2089                           FALSE,
2090                           area.x, area.y,
2091                           area.width, area.height);
2092     }
2093
2094
2095   label = gtk_sheet_cell_get_text (sheet, row, col);
2096   if (NULL == label)
2097     return;
2098
2099
2100   layout = gtk_widget_create_pango_layout (GTK_WIDGET (sheet), label);
2101   dispose_string (sheet, label);
2102
2103
2104   pango_layout_set_font_description (layout, font_desc);
2105
2106   pango_layout_get_pixel_extents (layout, NULL, &text);
2107
2108   gdk_gc_set_clip_rectangle (sheet->fg_gc, &area);
2109
2110   font_height = pango_font_description_get_size (font_desc);
2111   if ( !pango_font_description_get_size_is_absolute (font_desc))
2112     font_height /= PANGO_SCALE;
2113
2114   /* Centre the text vertically */
2115   area.y += (area.height - font_height) / 2.0;
2116
2117   switch (attributes.justification)
2118     {
2119     case GTK_JUSTIFY_RIGHT:
2120       area.x += area.width - text.width;
2121       break;
2122     case GTK_JUSTIFY_CENTER:
2123       area.x += (area.width - text.width) / 2.0;
2124       break;
2125     case GTK_JUSTIFY_LEFT:
2126       /* Do nothing */
2127       break;
2128     default:
2129       g_critical ("Unhandled justification %d in column %d\n",
2130                  attributes.justification, col);
2131       break;
2132     }
2133
2134   gdk_draw_layout (sheet->sheet_window, sheet->fg_gc,
2135                    area.x,
2136                    area.y,
2137                    layout);
2138
2139   gdk_gc_set_clip_rectangle (sheet->fg_gc, NULL);
2140   g_object_unref (layout);
2141 }
2142
2143
2144 static void
2145 draw_sheet_region (GtkSheet *sheet, GdkRegion *region)
2146 {
2147   GtkSheetRange range;
2148   GdkRectangle area;
2149   gint y, x;
2150   gint i, j;
2151
2152   GtkSheetRange drawing_range;
2153
2154   gdk_region_get_clipbox (region, &area);
2155
2156   y = area.y + sheet->vadjustment->value;
2157   x = area.x + sheet->hadjustment->value;
2158
2159   if ( sheet->column_titles_visible)
2160     y -= sheet->column_title_area.height;
2161
2162   if ( sheet->row_titles_visible)
2163     x -= sheet->row_title_area.width;
2164
2165   maximize_int (&x, 0);
2166   maximize_int (&y, 0);
2167
2168   range.row0 = row_from_ypixel (sheet, y);
2169   range.rowi = row_from_ypixel (sheet, y + area.height);
2170
2171   range.col0 = column_from_xpixel (sheet, x);
2172   range.coli = column_from_xpixel (sheet, x + area.width);
2173
2174   g_return_if_fail (sheet != NULL);
2175   g_return_if_fail (GTK_SHEET (sheet));
2176
2177   if (!GTK_WIDGET_DRAWABLE (GTK_WIDGET (sheet))) return;
2178   if (!GTK_WIDGET_REALIZED (GTK_WIDGET (sheet))) return;
2179   if (!GTK_WIDGET_MAPPED (GTK_WIDGET (sheet))) return;
2180
2181
2182   drawing_range.row0 = MAX (range.row0, min_visible_row (sheet));
2183   drawing_range.col0 = MAX (range.col0, min_visible_column (sheet));
2184   drawing_range.rowi = MIN (range.rowi, max_visible_row (sheet));
2185   drawing_range.coli = MIN (range.coli, max_visible_column (sheet));
2186
2187   g_return_if_fail (drawing_range.rowi >= drawing_range.row0);
2188   g_return_if_fail (drawing_range.coli >= drawing_range.col0);
2189
2190   for (i = drawing_range.row0; i <= drawing_range.rowi; i++)
2191     {
2192       for (j = drawing_range.col0; j <= drawing_range.coli; j++)
2193         gtk_sheet_cell_draw (sheet, i, j);
2194     }
2195
2196   if (sheet->state != GTK_SHEET_NORMAL &&
2197       gtk_sheet_range_isvisible (sheet, &sheet->range))
2198     gtk_sheet_range_draw_selection (sheet, drawing_range);
2199
2200
2201   if (sheet->state == GTK_STATE_NORMAL &&
2202       sheet->active_cell.row >= drawing_range.row0 &&
2203       sheet->active_cell.row <= drawing_range.rowi &&
2204       sheet->active_cell.col >= drawing_range.col0 &&
2205       sheet->active_cell.col <= drawing_range.coli)
2206     gtk_sheet_show_entry_widget (sheet);
2207 }
2208
2209
2210 static void
2211 gtk_sheet_range_draw_selection (GtkSheet *sheet, GtkSheetRange range)
2212 {
2213   GdkRectangle area;
2214   gint i, j;
2215   GtkSheetRange aux;
2216
2217   if (range.col0 > sheet->range.coli || range.coli < sheet->range.col0 ||
2218       range.row0 > sheet->range.rowi || range.rowi < sheet->range.row0)
2219     return;
2220
2221   if (!gtk_sheet_range_isvisible (sheet, &range)) return;
2222   if (!GTK_WIDGET_REALIZED (GTK_WIDGET (sheet))) return;
2223
2224   aux = range;
2225
2226   range.col0 = MAX (sheet->range.col0, range.col0);
2227   range.coli = MIN (sheet->range.coli, range.coli);
2228   range.row0 = MAX (sheet->range.row0, range.row0);
2229   range.rowi = MIN (sheet->range.rowi, range.rowi);
2230
2231   range.col0 = MAX (range.col0, min_visible_column (sheet));
2232   range.coli = MIN (range.coli, max_visible_column (sheet));
2233   range.row0 = MAX (range.row0, min_visible_row (sheet));
2234   range.rowi = MIN (range.rowi, max_visible_row (sheet));
2235
2236   for (i = range.row0; i <= range.rowi; i++)
2237     {
2238       for (j = range.col0; j <= range.coli; j++)
2239         {
2240           if (gtk_sheet_cell_get_state (sheet, i, j) == GTK_STATE_SELECTED)
2241             {
2242               rectangle_from_cell (sheet, i, j, &area);
2243
2244               if (i == sheet->range.row0)
2245                 {
2246                   area.y = area.y + 2;
2247                   area.height = area.height - 2;
2248                 }
2249               if (i == sheet->range.rowi) area.height = area.height - 3;
2250               if (j == sheet->range.col0)
2251                 {
2252                   area.x = area.x + 2;
2253                   area.width = area.width - 2;
2254                 }
2255               if (j == sheet->range.coli) area.width = area.width - 3;
2256
2257               if (i != sheet->active_cell.row || j != sheet->active_cell.col)
2258                 {
2259                   gdk_draw_rectangle (sheet->sheet_window,
2260                                       sheet->xor_gc,
2261                                       TRUE,
2262                                       area.x + 1, area.y + 1,
2263                                       area.width, area.height);
2264                 }
2265             }
2266
2267         }
2268     }
2269
2270   gtk_sheet_draw_border (sheet, sheet->range);
2271 }
2272
2273 static inline gint
2274 safe_strcmp (const gchar *s1, const gchar *s2)
2275 {
2276   if ( !s1 && !s2) return 0;
2277   if ( !s1) return -1;
2278   if ( !s2) return +1;
2279   return strcmp (s1, s2);
2280 }
2281
2282 static void
2283 gtk_sheet_set_cell (GtkSheet *sheet, gint row, gint col,
2284                     GtkJustification justification,
2285                     const gchar *text)
2286 {
2287   GSheetModel *model ;
2288   gchar *old_text ;
2289
2290   g_return_if_fail (sheet != NULL);
2291   g_return_if_fail (GTK_IS_SHEET (sheet));
2292
2293   if (col >= psppire_axis_unit_count (sheet->haxis)
2294       || row >= psppire_axis_unit_count (sheet->vaxis))
2295     return;
2296
2297   if (col < 0 || row < 0) return;
2298
2299   model = gtk_sheet_get_model (sheet);
2300
2301   old_text = g_sheet_model_get_string (model, row, col);
2302
2303   if (0 != safe_strcmp (old_text, text))
2304     {
2305       g_signal_handler_block    (sheet->model, sheet->update_handler_id);
2306       g_sheet_model_set_string (model, text, row, col);
2307       g_signal_handler_unblock  (sheet->model, sheet->update_handler_id);
2308     }
2309
2310   if ( g_sheet_model_free_strings (model))
2311     g_free (old_text);
2312 }
2313
2314
2315 void
2316 gtk_sheet_cell_clear (GtkSheet *sheet, gint row, gint column)
2317 {
2318   GtkSheetRange range;
2319
2320   g_return_if_fail (sheet != NULL);
2321   g_return_if_fail (GTK_IS_SHEET (sheet));
2322   if (column >= psppire_axis_unit_count (sheet->haxis) ||
2323       row >= psppire_axis_unit_count (sheet->vaxis)) return;
2324
2325   if (column < 0 || row < 0) return;
2326
2327   range.row0 = row;
2328   range.rowi = row;
2329   range.col0 = min_visible_column (sheet);
2330   range.coli = max_visible_column (sheet);
2331
2332   gtk_sheet_real_cell_clear (sheet, row, column);
2333
2334   redraw_range (sheet, &range);
2335 }
2336
2337 static void
2338 gtk_sheet_real_cell_clear (GtkSheet *sheet, gint row, gint column)
2339 {
2340   GSheetModel *model = gtk_sheet_get_model (sheet);
2341
2342   gchar *old_text = gtk_sheet_cell_get_text (sheet, row, column);
2343
2344   if (old_text && strlen (old_text) > 0 )
2345     {
2346       g_sheet_model_datum_clear (model, row, column);
2347     }
2348
2349   dispose_string (sheet, old_text);
2350 }
2351
2352 gchar *
2353 gtk_sheet_cell_get_text (const GtkSheet *sheet, gint row, gint col)
2354 {
2355   GSheetModel *model;
2356   g_return_val_if_fail (sheet != NULL, NULL);
2357   g_return_val_if_fail (GTK_IS_SHEET (sheet), NULL);
2358
2359   if (col >= psppire_axis_unit_count (sheet->haxis) || row >= psppire_axis_unit_count (sheet->vaxis))
2360     return NULL;
2361   if (col < 0 || row < 0) return NULL;
2362
2363   model = gtk_sheet_get_model (sheet);
2364
2365   if ( !model )
2366     return NULL;
2367
2368   return g_sheet_model_get_string (model, row, col);
2369 }
2370
2371
2372 static GtkStateType
2373 gtk_sheet_cell_get_state (GtkSheet *sheet, gint row, gint col)
2374 {
2375   gint state;
2376   GtkSheetRange *range;
2377
2378   g_return_val_if_fail (sheet != NULL, 0);
2379   g_return_val_if_fail (GTK_IS_SHEET (sheet), 0);
2380   if (col >= psppire_axis_unit_count (sheet->haxis) || row >= psppire_axis_unit_count (sheet->vaxis)) return 0;
2381   if (col < 0 || row < 0) return 0;
2382
2383   state = sheet->state;
2384   range = &sheet->range;
2385
2386   switch (state)
2387     {
2388     case GTK_SHEET_NORMAL:
2389       return GTK_STATE_NORMAL;
2390       break;
2391     case GTK_SHEET_ROW_SELECTED:
2392       if (row >= range->row0 && row <= range->rowi)
2393         return GTK_STATE_SELECTED;
2394       break;
2395     case GTK_SHEET_COLUMN_SELECTED:
2396       if (col >= range->col0 && col <= range->coli)
2397         return GTK_STATE_SELECTED;
2398       break;
2399     case GTK_SHEET_RANGE_SELECTED:
2400       if (row >= range->row0 && row <= range->rowi && \
2401           col >= range->col0 && col <= range->coli)
2402         return GTK_STATE_SELECTED;
2403       break;
2404     }
2405   return GTK_STATE_NORMAL;
2406 }
2407
2408 /* Convert X, Y (in pixels) to *ROW, *COLUMN
2409    If the function returns FALSE, then the results will be unreliable.
2410 */
2411 static gboolean
2412 gtk_sheet_get_pixel_info (GtkSheet *sheet,
2413                           gint x,
2414                           gint y,
2415                           gint *row,
2416                           gint *column)
2417 {
2418   gint trow, tcol;
2419   *row = -G_MAXINT;
2420   *column = -G_MAXINT;
2421
2422   g_return_val_if_fail (sheet != NULL, 0);
2423   g_return_val_if_fail (GTK_IS_SHEET (sheet), 0);
2424
2425   /* bounds checking, return false if the user clicked
2426      on a blank area */
2427   if (y < 0)
2428     return FALSE;
2429
2430   if (x < 0)
2431     return FALSE;
2432
2433   if ( sheet->column_titles_visible)
2434     y -= sheet->column_title_area.height;
2435
2436   y += sheet->vadjustment->value;
2437
2438   if ( y < 0 && sheet->column_titles_visible)
2439     {
2440       trow = -1;
2441     }
2442   else
2443     {
2444       trow = row_from_ypixel (sheet, y);
2445       if (trow > psppire_axis_unit_count (sheet->vaxis))
2446         return FALSE;
2447     }
2448
2449   *row = trow;
2450
2451   if ( sheet->row_titles_visible)
2452     x -= sheet->row_title_area.width;
2453
2454   x += sheet->hadjustment->value;
2455
2456   if ( x < 0 && sheet->row_titles_visible)
2457     {
2458       tcol = -1;
2459     }
2460   else
2461     {
2462       tcol = column_from_xpixel (sheet, x);
2463       if (tcol > psppire_axis_unit_count (sheet->haxis))
2464         return FALSE;
2465     }
2466
2467   *column = tcol;
2468
2469   return TRUE;
2470 }
2471
2472 gboolean
2473 gtk_sheet_get_cell_area (GtkSheet *sheet,
2474                          gint row,
2475                          gint column,
2476                          GdkRectangle *area)
2477 {
2478   g_return_val_if_fail (sheet != NULL, 0);
2479   g_return_val_if_fail (GTK_IS_SHEET (sheet), 0);
2480
2481   if (row >= psppire_axis_unit_count (sheet->vaxis) || column >= psppire_axis_unit_count (sheet->haxis))
2482     return FALSE;
2483
2484   area->x = (column == -1) ? 0 : psppire_axis_start_pixel (sheet->haxis, column);
2485   area->y = (row == -1)    ? 0 : psppire_axis_start_pixel (sheet->vaxis, row);
2486
2487   area->width= (column == -1) ? sheet->row_title_area.width
2488     : psppire_axis_unit_size (sheet->haxis, column);
2489
2490   area->height= (row == -1) ? sheet->column_title_area.height
2491     : psppire_axis_unit_size (sheet->vaxis, row);
2492
2493   return TRUE;
2494 }
2495
2496 void
2497 gtk_sheet_set_active_cell (GtkSheet *sheet, gint row, gint col)
2498 {
2499   g_return_if_fail (sheet != NULL);
2500   g_return_if_fail (GTK_IS_SHEET (sheet));
2501
2502   if (row < -1 || col < -1)
2503     return;
2504
2505   if (row >= psppire_axis_unit_count (sheet->vaxis)
2506       ||
2507       col >= psppire_axis_unit_count (sheet->haxis))
2508     return;
2509
2510   sheet->active_cell.row = row;
2511   sheet->active_cell.col = col;
2512
2513   if (!GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
2514     return;
2515
2516   if ( row == -1 || col == -1)
2517     {
2518       gtk_sheet_hide_entry_widget (sheet);
2519       return;
2520     }
2521
2522   change_active_cell (sheet, row, col);
2523 }
2524
2525 void
2526 gtk_sheet_get_active_cell (GtkSheet *sheet, gint *row, gint *column)
2527 {
2528   g_return_if_fail (sheet != NULL);
2529   g_return_if_fail (GTK_IS_SHEET (sheet));
2530
2531   if ( row ) *row = sheet->active_cell.row;
2532   if (column) *column = sheet->active_cell.col;
2533 }
2534
2535 static void
2536 entry_load_text (GtkSheet *sheet)
2537 {
2538   gint row, col;
2539   const char *text;
2540   GtkJustification justification;
2541   GtkSheetCellAttr attributes;
2542
2543   if (!GTK_WIDGET_VISIBLE (sheet->entry_widget)) return;
2544   if (sheet->state != GTK_STATE_NORMAL) return;
2545
2546   row = sheet->active_cell.row;
2547   col = sheet->active_cell.col;
2548
2549   if (row < 0 || col < 0) return;
2550
2551   text = gtk_entry_get_text (gtk_sheet_get_entry (sheet));
2552
2553   if (text && strlen (text) > 0)
2554     {
2555       gtk_sheet_get_attributes (sheet, row, col, &attributes);
2556       justification = attributes.justification;
2557       gtk_sheet_set_cell (sheet, row, col, justification, text);
2558     }
2559 }
2560
2561
2562 static void
2563 gtk_sheet_hide_entry_widget (GtkSheet *sheet)
2564 {
2565   if (!GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
2566     return;
2567
2568   if (sheet->active_cell.row < 0 ||
2569       sheet->active_cell.col < 0) return;
2570
2571   gtk_widget_hide (sheet->entry_widget);
2572   gtk_widget_unmap (sheet->entry_widget);
2573
2574   GTK_WIDGET_UNSET_FLAGS (GTK_WIDGET (sheet->entry_widget), GTK_VISIBLE);
2575 }
2576
2577 static void
2578 change_active_cell (GtkSheet *sheet, gint row, gint col)
2579 {
2580   gint old_row, old_col;
2581
2582   g_return_if_fail (GTK_IS_SHEET (sheet));
2583
2584   if (row < 0 || col < 0)
2585     return;
2586
2587   if ( row > psppire_axis_unit_count (sheet->vaxis)
2588        || col > psppire_axis_unit_count (sheet->haxis))
2589     return;
2590
2591   if (sheet->state != GTK_SHEET_NORMAL)
2592     {
2593       sheet->state = GTK_SHEET_NORMAL;
2594       gtk_sheet_real_unselect_range (sheet, NULL);
2595     }
2596
2597   old_row = sheet->active_cell.row;
2598   old_col = sheet->active_cell.col;
2599
2600   /* Erase the old cell */
2601   gtk_sheet_draw_active_cell (sheet);
2602
2603   entry_load_text (sheet);
2604
2605   sheet->range.row0 = row;
2606   sheet->range.col0 = col;
2607   sheet->range.rowi = row;
2608   sheet->range.coli = col;
2609   sheet->active_cell.row = row;
2610   sheet->active_cell.col = col;
2611   sheet->selection_cell.row = row;
2612   sheet->selection_cell.col = col;
2613
2614   GTK_SHEET_UNSET_FLAGS (sheet, GTK_SHEET_IN_SELECTION);
2615
2616   GTK_WIDGET_UNSET_FLAGS (sheet->entry_widget, GTK_HAS_FOCUS);
2617
2618   gtk_sheet_draw_active_cell (sheet);
2619   gtk_sheet_show_entry_widget (sheet);
2620
2621   GTK_WIDGET_SET_FLAGS (sheet->entry_widget, GTK_HAS_FOCUS);
2622
2623   g_signal_emit (sheet, sheet_signals [ACTIVATE], 0,
2624                  row, col, old_row, old_col);
2625
2626 }
2627
2628 static void
2629 gtk_sheet_show_entry_widget (GtkSheet *sheet)
2630 {
2631   GtkEntry *sheet_entry;
2632   GtkSheetCellAttr attributes;
2633
2634   gint row, col;
2635
2636   g_return_if_fail (GTK_IS_SHEET (sheet));
2637
2638   row = sheet->active_cell.row;
2639   col = sheet->active_cell.col;
2640
2641   /* Don't show the active cell, if there is no active cell: */
2642   if (! (row >= 0 && col >= 0)) /* e.g row or coll == -1. */
2643     return;
2644
2645   if (!GTK_WIDGET_REALIZED (GTK_WIDGET (sheet))) return;
2646   if (sheet->state != GTK_SHEET_NORMAL) return;
2647   if (GTK_SHEET_IN_SELECTION (sheet)) return;
2648
2649   GTK_WIDGET_SET_FLAGS (GTK_WIDGET (sheet->entry_widget), GTK_VISIBLE);
2650
2651   sheet_entry = gtk_sheet_get_entry (sheet);
2652
2653   gtk_sheet_get_attributes (sheet, row, col, &attributes);
2654
2655   if (GTK_IS_ENTRY (sheet_entry))
2656     {
2657       gchar *text = gtk_sheet_cell_get_text (sheet, row, col);
2658       const gchar *old_text = gtk_entry_get_text (GTK_ENTRY (sheet_entry));
2659
2660       if ( ! text )
2661         text = g_strdup ("");
2662
2663       if (strcmp (old_text, text) != 0)
2664         gtk_entry_set_text (sheet_entry, text);
2665
2666       dispose_string (sheet, text);
2667
2668         {
2669           switch (attributes.justification)
2670             {
2671             case GTK_JUSTIFY_RIGHT:
2672               gtk_entry_set_alignment (GTK_ENTRY (sheet_entry), 1.0);
2673               break;
2674             case GTK_JUSTIFY_CENTER:
2675               gtk_entry_set_alignment (GTK_ENTRY (sheet_entry), 0.5);
2676               break;
2677             case GTK_JUSTIFY_LEFT:
2678             default:
2679               gtk_entry_set_alignment (GTK_ENTRY (sheet_entry), 0.0);
2680               break;
2681             }
2682         }
2683     }
2684
2685   gtk_sheet_size_allocate_entry (sheet);
2686
2687   gtk_widget_set_sensitive (GTK_WIDGET (sheet_entry),
2688                             g_sheet_model_is_editable (sheet->model,
2689                                                        row, col));
2690   gtk_widget_map (sheet->entry_widget);
2691 }
2692
2693 static gboolean
2694 gtk_sheet_draw_active_cell (GtkSheet *sheet)
2695 {
2696   gint row, col;
2697   GtkSheetRange range;
2698
2699   row = sheet->active_cell.row;
2700   col = sheet->active_cell.col;
2701
2702   if (row < 0 || col < 0) return FALSE;
2703
2704   if (!gtk_sheet_cell_isvisible (sheet, row, col))
2705     return FALSE;
2706
2707   range.col0 = range.coli = col;
2708   range.row0 = range.rowi = row;
2709
2710   gtk_sheet_draw_border (sheet, range);
2711
2712   return FALSE;
2713 }
2714
2715
2716
2717 static void
2718 gtk_sheet_new_selection (GtkSheet *sheet, GtkSheetRange *range)
2719 {
2720   gint i, j, mask1, mask2;
2721   gint state, selected;
2722   gint x, y, width, height;
2723   GtkSheetRange new_range, aux_range;
2724
2725   g_return_if_fail (sheet != NULL);
2726
2727   if (range == NULL) range=&sheet->range;
2728
2729   new_range=*range;
2730
2731   range->row0 = MIN (range->row0, sheet->range.row0);
2732   range->rowi = MAX (range->rowi, sheet->range.rowi);
2733   range->col0 = MIN (range->col0, sheet->range.col0);
2734   range->coli = MAX (range->coli, sheet->range.coli);
2735
2736   range->row0 = MAX (range->row0, min_visible_row (sheet));
2737   range->rowi = MIN (range->rowi, max_visible_row (sheet));
2738   range->col0 = MAX (range->col0, min_visible_column (sheet));
2739   range->coli = MIN (range->coli, max_visible_column (sheet));
2740
2741   aux_range.row0 = MAX (new_range.row0, min_visible_row (sheet));
2742   aux_range.rowi = MIN (new_range.rowi, max_visible_row (sheet));
2743   aux_range.col0 = MAX (new_range.col0, min_visible_column (sheet));
2744   aux_range.coli = MIN (new_range.coli, max_visible_column (sheet));
2745
2746   for (i = range->row0; i <= range->rowi; i++)
2747     {
2748       for (j = range->col0; j <= range->coli; j++)
2749         {
2750
2751           state = gtk_sheet_cell_get_state (sheet, i, j);
2752           selected= (i <= new_range.rowi && i >= new_range.row0 &&
2753                      j <= new_range.coli && j >= new_range.col0) ? TRUE : FALSE;
2754
2755           if (state == GTK_STATE_SELECTED && selected &&
2756               (i == sheet->range.row0 || i == sheet->range.rowi ||
2757                j == sheet->range.col0 || j == sheet->range.coli ||
2758                i == new_range.row0 || i == new_range.rowi ||
2759                j == new_range.col0 || j == new_range.coli))
2760             {
2761
2762               mask1 = i == sheet->range.row0 ? 1 : 0;
2763               mask1 = i == sheet->range.rowi ? mask1 + 2 : mask1;
2764               mask1 = j == sheet->range.col0 ? mask1 + 4 : mask1;
2765               mask1 = j == sheet->range.coli ? mask1 + 8 : mask1;
2766
2767               mask2 = i == new_range.row0 ? 1 : 0;
2768               mask2 = i == new_range.rowi ? mask2 + 2 : mask2;
2769               mask2 = j == new_range.col0 ? mask2 + 4 : mask2;
2770               mask2 = j == new_range.coli ? mask2 + 8 : mask2;
2771
2772               if (mask1 != mask2)
2773                 {
2774                   x = psppire_axis_start_pixel (sheet->haxis, j);
2775                   y = psppire_axis_start_pixel (sheet->vaxis, i);
2776                   width = psppire_axis_start_pixel (sheet->haxis, j)- x+
2777                     psppire_axis_unit_size (sheet->haxis, j);
2778                   height = psppire_axis_start_pixel (sheet->vaxis, i) - y + psppire_axis_unit_size (sheet->vaxis, i);
2779
2780                   if (i == sheet->range.row0)
2781                     {
2782                       y = y - 3;
2783                       height = height + 3;
2784                     }
2785                   if (i == sheet->range.rowi) height = height + 3;
2786                   if (j == sheet->range.col0)
2787                     {
2788                       x = x - 3;
2789                       width = width + 3;
2790                     }
2791                   if (j == sheet->range.coli) width = width + 3;
2792
2793                   if (i != sheet->active_cell.row || j != sheet->active_cell.col)
2794                     {
2795                       x = psppire_axis_start_pixel (sheet->haxis, j);
2796                       y = psppire_axis_start_pixel (sheet->vaxis, i);
2797                       width = psppire_axis_start_pixel (sheet->haxis, j)- x+
2798                         psppire_axis_unit_size (sheet->haxis, j);
2799
2800                       height = psppire_axis_start_pixel (sheet->vaxis, i) - y + psppire_axis_unit_size (sheet->vaxis, i);
2801
2802                       if (i == new_range.row0)
2803                         {
2804                           y = y+2;
2805                           height = height - 2;
2806                         }
2807                       if (i == new_range.rowi) height = height - 3;
2808                       if (j == new_range.col0)
2809                         {
2810                           x = x+2;
2811                           width = width - 2;
2812                         }
2813                       if (j == new_range.coli) width = width - 3;
2814
2815                       gdk_draw_rectangle (sheet->sheet_window,
2816                                           sheet->xor_gc,
2817                                           TRUE,
2818                                           x + 1, y + 1,
2819                                           width, height);
2820                     }
2821                 }
2822             }
2823         }
2824     }
2825
2826   for (i = range->row0; i <= range->rowi; i++)
2827     {
2828       for (j = range->col0; j <= range->coli; j++)
2829         {
2830
2831           state = gtk_sheet_cell_get_state (sheet, i, j);
2832           selected= (i <= new_range.rowi && i >= new_range.row0 &&
2833                      j <= new_range.coli && j >= new_range.col0) ? TRUE : FALSE;
2834
2835           if (state == GTK_STATE_SELECTED && !selected)
2836             {
2837
2838               x = psppire_axis_start_pixel (sheet->haxis, j);
2839               y = psppire_axis_start_pixel (sheet->vaxis, i);
2840               width = psppire_axis_start_pixel (sheet->haxis, j) - x + psppire_axis_unit_size (sheet->haxis, j);
2841               height = psppire_axis_start_pixel (sheet->vaxis, i) - y + psppire_axis_unit_size (sheet->vaxis, i);
2842
2843               if (i == sheet->range.row0)
2844                 {
2845                   y = y - 3;
2846                   height = height + 3;
2847                 }
2848               if (i == sheet->range.rowi) height = height + 3;
2849               if (j == sheet->range.col0)
2850                 {
2851                   x = x - 3;
2852                   width = width + 3;
2853                 }
2854               if (j == sheet->range.coli) width = width + 3;
2855
2856             }
2857         }
2858     }
2859
2860   for (i = range->row0; i <= range->rowi; i++)
2861     {
2862       for (j = range->col0; j <= range->coli; j++)
2863         {
2864
2865           state = gtk_sheet_cell_get_state (sheet, i, j);
2866           selected= (i <= new_range.rowi && i >= new_range.row0 &&
2867                      j <= new_range.coli && j >= new_range.col0) ? TRUE : FALSE;
2868
2869           if (state != GTK_STATE_SELECTED && selected &&
2870               (i != sheet->active_cell.row || j != sheet->active_cell.col))
2871             {
2872
2873               x = psppire_axis_start_pixel (sheet->haxis, j);
2874               y = psppire_axis_start_pixel (sheet->vaxis, i);
2875               width = psppire_axis_start_pixel (sheet->haxis, j) - x + psppire_axis_unit_size (sheet->haxis, j);
2876               height = psppire_axis_start_pixel (sheet->vaxis, i) - y + psppire_axis_unit_size (sheet->vaxis, i);
2877
2878               if (i == new_range.row0)
2879                 {
2880                   y = y+2;
2881                   height = height - 2;
2882                 }
2883               if (i == new_range.rowi) height = height - 3;
2884               if (j == new_range.col0)
2885                 {
2886                   x = x+2;
2887                   width = width - 2;
2888                 }
2889               if (j == new_range.coli) width = width - 3;
2890
2891               gdk_draw_rectangle (sheet->sheet_window,
2892                                   sheet->xor_gc,
2893                                   TRUE,
2894                                   x + 1, y + 1,
2895                                   width, height);
2896
2897             }
2898
2899         }
2900     }
2901
2902   for (i = aux_range.row0; i <= aux_range.rowi; i++)
2903     {
2904       for (j = aux_range.col0; j <= aux_range.coli; j++)
2905         {
2906           state = gtk_sheet_cell_get_state (sheet, i, j);
2907
2908           mask1 = i == sheet->range.row0 ? 1 : 0;
2909           mask1 = i == sheet->range.rowi ? mask1 + 2 : mask1;
2910           mask1 = j == sheet->range.col0 ? mask1 + 4 : mask1;
2911           mask1 = j == sheet->range.coli ? mask1 + 8 : mask1;
2912
2913           mask2 = i == new_range.row0 ? 1 : 0;
2914           mask2 = i == new_range.rowi ? mask2 + 2 : mask2;
2915           mask2 = j == new_range.col0 ? mask2 + 4 : mask2;
2916           mask2 = j == new_range.coli ? mask2 + 8 : mask2;
2917           if (mask2 != mask1 || (mask2 == mask1 && state != GTK_STATE_SELECTED))
2918             {
2919               x = psppire_axis_start_pixel (sheet->haxis, j);
2920               y = psppire_axis_start_pixel (sheet->vaxis, i);
2921               width = psppire_axis_unit_size (sheet->haxis, j);
2922               height = psppire_axis_unit_size (sheet->vaxis, i);
2923               if (mask2 & 1)
2924                 gdk_draw_rectangle (sheet->sheet_window,
2925                                     sheet->xor_gc,
2926                                     TRUE,
2927                                     x + 1, y - 1,
2928                                     width, 3);
2929
2930
2931               if (mask2 & 2)
2932                 gdk_draw_rectangle (sheet->sheet_window,
2933                                     sheet->xor_gc,
2934                                     TRUE,
2935                                     x + 1, y + height - 1,
2936                                     width, 3);
2937
2938               if (mask2 & 4)
2939                 gdk_draw_rectangle (sheet->sheet_window,
2940                                     sheet->xor_gc,
2941                                     TRUE,
2942                                     x - 1, y + 1,
2943                                     3, height);
2944
2945
2946               if (mask2 & 8)
2947                 gdk_draw_rectangle (sheet->sheet_window,
2948                                     sheet->xor_gc,
2949                                     TRUE,
2950                                     x + width - 1, y + 1,
2951                                     3, height);
2952             }
2953         }
2954     }
2955
2956   *range = new_range;
2957 }
2958
2959
2960
2961 static void
2962 gtk_sheet_draw_border (GtkSheet *sheet, GtkSheetRange new_range)
2963 {
2964   GdkRectangle area;
2965
2966   rectangle_from_range (sheet, &new_range, &area);
2967
2968   gdk_draw_rectangle (sheet->sheet_window,
2969                       sheet->xor_gc,
2970                       FALSE,
2971                       area.x, area.y,
2972                       area.width, area.height);
2973 }
2974
2975
2976 static void
2977 gtk_sheet_real_select_range (GtkSheet *sheet,
2978                              const GtkSheetRange *range)
2979 {
2980   gint state;
2981
2982   g_return_if_fail (sheet != NULL);
2983
2984   if (range == NULL) range = &sheet->range;
2985
2986   memcpy (&sheet->range, range, sizeof (*range));
2987
2988   if (range->row0 < 0 || range->rowi < 0) return;
2989   if (range->col0 < 0 || range->coli < 0) return;
2990
2991   state = sheet->state;
2992
2993 #if 0
2994   if (range->coli != sheet->range.coli || range->col0 != sheet->range.col0 ||
2995       range->rowi != sheet->range.rowi || range->row0 != sheet->range.row0)
2996     {
2997       gtk_sheet_new_selection (sheet, &sheet->range);
2998     }
2999   else
3000     {
3001       gtk_sheet_range_draw_selection (sheet, sheet->range);
3002     }
3003 #endif
3004
3005   gtk_sheet_update_primary_selection (sheet);
3006
3007   g_signal_emit (sheet, sheet_signals[SELECT_RANGE], 0, &sheet->range);
3008 }
3009
3010
3011 void
3012 gtk_sheet_get_selected_range (GtkSheet *sheet, GtkSheetRange *range)
3013 {
3014   g_return_if_fail (sheet != NULL);
3015   *range = sheet->range;
3016 }
3017
3018
3019 void
3020 gtk_sheet_select_range (GtkSheet *sheet, const GtkSheetRange *range)
3021 {
3022   g_return_if_fail (sheet != NULL);
3023
3024   if (range == NULL) range=&sheet->range;
3025
3026   if (range->row0 < 0 || range->rowi < 0) return;
3027   if (range->col0 < 0 || range->coli < 0) return;
3028
3029
3030   if (sheet->state != GTK_SHEET_NORMAL)
3031     gtk_sheet_real_unselect_range (sheet, NULL);
3032
3033   sheet->range.row0 = range->row0;
3034   sheet->range.rowi = range->rowi;
3035   sheet->range.col0 = range->col0;
3036   sheet->range.coli = range->coli;
3037   sheet->active_cell.row = range->row0;
3038   sheet->active_cell.col = range->col0;
3039   sheet->selection_cell.row = range->rowi;
3040   sheet->selection_cell.col = range->coli;
3041
3042   sheet->state = GTK_SHEET_RANGE_SELECTED;
3043   gtk_sheet_real_select_range (sheet, NULL);
3044 }
3045
3046 void
3047 gtk_sheet_unselect_range (GtkSheet *sheet)
3048 {
3049   if (! GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
3050     return;
3051
3052   gtk_sheet_real_unselect_range (sheet, NULL);
3053   sheet->state = GTK_STATE_NORMAL;
3054
3055   change_active_cell (sheet,
3056                  sheet->active_cell.row, sheet->active_cell.col);
3057 }
3058
3059
3060 static void
3061 gtk_sheet_real_unselect_range (GtkSheet *sheet,
3062                                const GtkSheetRange *range)
3063 {
3064   g_return_if_fail (sheet != NULL);
3065   g_return_if_fail (GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)));
3066
3067   if ( range == NULL)
3068     range = &sheet->range;
3069
3070   if (range->row0 < 0 || range->rowi < 0) return;
3071   if (range->col0 < 0 || range->coli < 0) return;
3072
3073   g_signal_emit (sheet, sheet_signals[SELECT_COLUMN], 0, -1);
3074   g_signal_emit (sheet, sheet_signals[SELECT_ROW], 0, -1);
3075
3076   sheet->range.row0 = -1;
3077   sheet->range.rowi = -1;
3078   sheet->range.col0 = -1;
3079   sheet->range.coli = -1;
3080 }
3081
3082
3083 static gint
3084 gtk_sheet_expose (GtkWidget *widget,
3085                   GdkEventExpose *event)
3086 {
3087   GtkSheet *sheet = GTK_SHEET (widget);
3088
3089   g_return_val_if_fail (event != NULL, FALSE);
3090
3091   if (!GTK_WIDGET_DRAWABLE (widget))
3092     return FALSE;
3093
3094   /* exposure events on the sheet */
3095   if (event->window == sheet->row_title_window &&
3096       sheet->row_titles_visible)
3097     {
3098       draw_row_title_buttons_range (sheet,
3099                                     min_visible_row (sheet),
3100                                     max_visible_row (sheet));
3101     }
3102
3103   if (event->window == sheet->column_title_window &&
3104       sheet->column_titles_visible)
3105     {
3106       draw_column_title_buttons_range (sheet,
3107                                        min_visible_column (sheet),
3108                                        max_visible_column (sheet));
3109     }
3110
3111   if (event->window == sheet->sheet_window)
3112     {
3113       draw_sheet_region (sheet, event->region);
3114
3115 #if 0
3116       if (sheet->state != GTK_SHEET_NORMAL)
3117         {
3118           if (gtk_sheet_range_isvisible (sheet, &sheet->range))
3119             gtk_sheet_range_draw (sheet, &sheet->range);
3120
3121           if (GTK_SHEET_IN_RESIZE (sheet) || GTK_SHEET_IN_DRAG (sheet))
3122             gtk_sheet_range_draw (sheet, &sheet->drag_range);
3123
3124           if (gtk_sheet_range_isvisible (sheet, &sheet->range))
3125             gtk_sheet_range_draw_selection (sheet, sheet->range);
3126           if (GTK_SHEET_IN_RESIZE (sheet) || GTK_SHEET_IN_DRAG (sheet))
3127             draw_xor_rectangle (sheet, sheet->drag_range);
3128         }
3129 #endif
3130
3131       if ((!GTK_SHEET_IN_XDRAG (sheet)) && (!GTK_SHEET_IN_YDRAG (sheet)))
3132         {
3133           GdkRectangle rect;
3134           GtkSheetRange range;
3135           range.row0 = range.rowi =  sheet->active_cell.row;
3136           range.col0 = range.coli =  sheet->active_cell.col;
3137
3138           rectangle_from_range (sheet, &range, &rect);
3139
3140           if (GDK_OVERLAP_RECTANGLE_OUT !=
3141               gdk_region_rect_in (event->region, &rect))
3142             {
3143               gtk_sheet_draw_active_cell (sheet);
3144             }
3145         }
3146
3147     }
3148
3149   (* GTK_WIDGET_CLASS (parent_class)->expose_event) (widget, event);
3150
3151   return FALSE;
3152 }
3153
3154
3155 static gboolean
3156 gtk_sheet_button_press (GtkWidget *widget,
3157                         GdkEventButton *event)
3158 {
3159   GtkSheet *sheet;
3160   GdkModifierType mods;
3161   gint x, y;
3162   gint  row, column;
3163   gboolean veto;
3164
3165   g_return_val_if_fail (widget != NULL, FALSE);
3166   g_return_val_if_fail (GTK_IS_SHEET (widget), FALSE);
3167   g_return_val_if_fail (event != NULL, FALSE);
3168
3169   sheet = GTK_SHEET (widget);
3170
3171   /* Cancel any pending tooltips */
3172   if (sheet->motion_timer)
3173     {
3174       g_source_remove (sheet->motion_timer);
3175       sheet->motion_timer = 0;
3176     }
3177
3178   gtk_widget_get_pointer (widget, &x, &y);
3179   gtk_sheet_get_pixel_info (sheet, x, y, &row, &column);
3180
3181
3182   if (event->window == sheet->column_title_window)
3183     {
3184       sheet->x_drag = event->x;
3185       g_signal_emit (sheet,
3186                      sheet_signals[BUTTON_EVENT_COLUMN], 0,
3187                      column, event);
3188
3189       if (g_sheet_model_get_column_sensitivity (sheet->model, column))
3190         {
3191           if ( event->type == GDK_2BUTTON_PRESS && event->button == 1)
3192             g_signal_emit (sheet,
3193                            sheet_signals[DOUBLE_CLICK_COLUMN], 0, column);
3194         }
3195     }
3196   else if (event->window == sheet->row_title_window)
3197     {
3198       g_signal_emit (sheet,
3199                      sheet_signals[BUTTON_EVENT_ROW], 0,
3200                      row, event);
3201
3202       if (g_sheet_model_get_row_sensitivity (sheet->model, row))
3203         {
3204           if ( event->type == GDK_2BUTTON_PRESS && event->button == 1)
3205             g_signal_emit (sheet,
3206                            sheet_signals[DOUBLE_CLICK_ROW], 0, row);
3207         }
3208     }
3209
3210   gdk_window_get_pointer (widget->window, NULL, NULL, &mods);
3211
3212   if (! (mods & GDK_BUTTON1_MASK)) return TRUE;
3213
3214
3215   /* press on resize windows */
3216   if (event->window == sheet->column_title_window)
3217     {
3218       sheet->x_drag = event->x;
3219
3220       if (on_column_boundary (sheet, sheet->x_drag, &sheet->drag_cell.col))
3221         {
3222           GTK_SHEET_SET_FLAGS (sheet, GTK_SHEET_IN_XDRAG);
3223           gdk_pointer_grab (sheet->column_title_window, FALSE,
3224                             GDK_POINTER_MOTION_HINT_MASK |
3225                             GDK_BUTTON1_MOTION_MASK |
3226                             GDK_BUTTON_RELEASE_MASK,
3227                             NULL, NULL, event->time);
3228
3229           draw_xor_vline (sheet);
3230           return TRUE;
3231         }
3232     }
3233
3234   if (event->window == sheet->row_title_window)
3235     {
3236       sheet->y_drag = event->y;
3237
3238       if (on_row_boundary (sheet, sheet->y_drag, &sheet->drag_cell.row))
3239         {
3240           GTK_SHEET_SET_FLAGS (sheet, GTK_SHEET_IN_YDRAG);
3241           gdk_pointer_grab (sheet->row_title_window, FALSE,
3242                             GDK_POINTER_MOTION_HINT_MASK |
3243                             GDK_BUTTON1_MOTION_MASK |
3244                             GDK_BUTTON_RELEASE_MASK,
3245                             NULL, NULL, event->time);
3246
3247           draw_xor_hline (sheet);
3248           return TRUE;
3249         }
3250     }
3251
3252   /* the sheet itself does not handle other than single click events */
3253   if (event->type != GDK_BUTTON_PRESS) return FALSE;
3254
3255   /* selections on the sheet */
3256   if (event->window == sheet->sheet_window)
3257     {
3258       gtk_widget_get_pointer (widget, &x, &y);
3259       gtk_sheet_get_pixel_info (sheet, x, y, &row, &column);
3260       gdk_pointer_grab (sheet->sheet_window, FALSE,
3261                         GDK_POINTER_MOTION_HINT_MASK |
3262                         GDK_BUTTON1_MOTION_MASK |
3263                         GDK_BUTTON_RELEASE_MASK,
3264                         NULL, NULL, event->time);
3265       gtk_grab_add (GTK_WIDGET (sheet));
3266
3267       if (sheet->selection_mode != GTK_SELECTION_SINGLE &&
3268           sheet->selection_mode != GTK_SELECTION_NONE &&
3269           sheet->cursor_drag->type == GDK_SIZING &&
3270           !GTK_SHEET_IN_SELECTION (sheet) && !GTK_SHEET_IN_RESIZE (sheet))
3271         {
3272           if (sheet->state == GTK_STATE_NORMAL)
3273             {
3274               row = sheet->active_cell.row;
3275               column = sheet->active_cell.col;
3276               sheet->active_cell.row = row;
3277               sheet->active_cell.col = column;
3278               sheet->drag_range = sheet->range;
3279               sheet->state = GTK_SHEET_RANGE_SELECTED;
3280               gtk_sheet_select_range (sheet, &sheet->drag_range);
3281             }
3282           sheet->x_drag = x;
3283           sheet->y_drag = y;
3284           if (row > sheet->range.rowi) row--;
3285           if (column > sheet->range.coli) column--;
3286           sheet->drag_cell.row = row;
3287           sheet->drag_cell.col = column;
3288           sheet->drag_range = sheet->range;
3289           draw_xor_rectangle (sheet, sheet->drag_range);
3290           GTK_SHEET_SET_FLAGS (sheet, GTK_SHEET_IN_RESIZE);
3291         }
3292       else if (sheet->cursor_drag->type == GDK_TOP_LEFT_ARROW &&
3293                !GTK_SHEET_IN_SELECTION (sheet)
3294                && ! GTK_SHEET_IN_DRAG (sheet)
3295                && sheet->active_cell.row >= 0
3296                && sheet->active_cell.col >= 0
3297                )
3298         {
3299           if (sheet->state == GTK_STATE_NORMAL)
3300             {
3301               row = sheet->active_cell.row;
3302               column = sheet->active_cell.col;
3303               sheet->active_cell.row = row;
3304               sheet->active_cell.col = column;
3305               sheet->drag_range = sheet->range;
3306               sheet->state = GTK_SHEET_RANGE_SELECTED;
3307               gtk_sheet_select_range (sheet, &sheet->drag_range);
3308             }
3309           sheet->x_drag = x;
3310           sheet->y_drag = y;
3311           if (row < sheet->range.row0) row++;
3312           if (row > sheet->range.rowi) row--;
3313           if (column < sheet->range.col0) column++;
3314           if (column > sheet->range.coli) column--;
3315           sheet->drag_cell.row = row;
3316           sheet->drag_cell.col = column;
3317           sheet->drag_range = sheet->range;
3318           draw_xor_rectangle (sheet, sheet->drag_range);
3319           GTK_SHEET_SET_FLAGS (sheet, GTK_SHEET_IN_DRAG);
3320         }
3321       else
3322         {
3323           veto = gtk_sheet_click_cell (sheet, row, column);
3324           if (veto) GTK_SHEET_SET_FLAGS (sheet, GTK_SHEET_IN_SELECTION);
3325         }
3326     }
3327
3328   if (event->window == sheet->column_title_window)
3329     {
3330       gtk_widget_get_pointer (widget, &x, &y);
3331       if ( sheet->row_titles_visible)
3332         x -= sheet->row_title_area.width;
3333
3334       x += sheet->hadjustment->value;
3335
3336       column = column_from_xpixel (sheet, x);
3337
3338       if (g_sheet_model_get_column_sensitivity (sheet->model, column))
3339         {
3340           veto = gtk_sheet_click_cell (sheet, -1, column);
3341           gtk_grab_add (GTK_WIDGET (sheet));
3342           GTK_SHEET_SET_FLAGS (sheet, GTK_SHEET_IN_SELECTION);
3343         }
3344     }
3345
3346   if (event->window == sheet->row_title_window)
3347     {
3348       gtk_widget_get_pointer (widget, &x, &y);
3349       if ( sheet->column_titles_visible)
3350         y -= sheet->column_title_area.height;
3351
3352       y += sheet->vadjustment->value;
3353
3354       row = row_from_ypixel (sheet, y);
3355       if (g_sheet_model_get_row_sensitivity (sheet->model, row))
3356         {
3357           veto = gtk_sheet_click_cell (sheet, row, -1);
3358           gtk_grab_add (GTK_WIDGET (sheet));
3359           GTK_SHEET_SET_FLAGS (sheet, GTK_SHEET_IN_SELECTION);
3360         }
3361     }
3362
3363   return TRUE;
3364 }
3365
3366 static gboolean
3367 gtk_sheet_click_cell (GtkSheet *sheet, gint row, gint column)
3368 {
3369   GtkSheetCell cell;
3370   gboolean forbid_move;
3371
3372   cell.row = row;
3373   cell.col = column;
3374
3375   if (row >= psppire_axis_unit_count (sheet->vaxis)
3376       || column >= psppire_axis_unit_count (sheet->haxis))
3377     {
3378       return FALSE;
3379     }
3380
3381   g_signal_emit (sheet, sheet_signals[TRAVERSE], 0,
3382                  &sheet->active_cell,
3383                  &cell,
3384                  &forbid_move);
3385
3386   if (forbid_move)
3387     {
3388       if (sheet->state == GTK_STATE_NORMAL)
3389         return FALSE;
3390
3391       row = sheet->active_cell.row;
3392       column = sheet->active_cell.col;
3393
3394       change_active_cell (sheet, row, column);
3395       return FALSE;
3396     }
3397
3398   if (row == -1 && column >= 0)
3399     {
3400       gtk_sheet_select_column (sheet, column);
3401       return TRUE;
3402     }
3403
3404   if (column == -1 && row >= 0)
3405     {
3406       gtk_sheet_select_row (sheet, row);
3407       return TRUE;
3408     }
3409
3410   if (row == -1 && column == -1)
3411     {
3412       sheet->range.row0 = 0;
3413       sheet->range.col0 = 0;
3414       sheet->range.rowi = psppire_axis_unit_count (sheet->vaxis) - 1;
3415       sheet->range.coli =
3416         psppire_axis_unit_count (sheet->haxis) - 1;
3417       sheet->active_cell.row = 0;
3418       sheet->active_cell.col = 0;
3419       gtk_sheet_select_range (sheet, NULL);
3420       return TRUE;
3421     }
3422
3423   if (sheet->state != GTK_SHEET_NORMAL)
3424     {
3425       sheet->state = GTK_SHEET_NORMAL;
3426       gtk_sheet_real_unselect_range (sheet, NULL);
3427     }
3428   else
3429     {
3430       change_active_cell (sheet, row, column);
3431     }
3432
3433   sheet->active_cell.row = row;
3434   sheet->active_cell.col = column;
3435   sheet->selection_cell.row = row;
3436   sheet->selection_cell.col = column;
3437   sheet->range.row0 = row;
3438   sheet->range.col0 = column;
3439   sheet->range.rowi = row;
3440   sheet->range.coli = column;
3441   sheet->state = GTK_SHEET_NORMAL;
3442   GTK_SHEET_SET_FLAGS (sheet, GTK_SHEET_IN_SELECTION);
3443
3444   gtk_widget_grab_focus (GTK_WIDGET (sheet->entry_widget));
3445
3446   return TRUE;
3447 }
3448
3449 static gint
3450 gtk_sheet_button_release (GtkWidget *widget,
3451                           GdkEventButton *event)
3452 {
3453   GdkDisplay *display = gtk_widget_get_display (widget);
3454
3455   GtkSheet *sheet = GTK_SHEET (widget);
3456
3457   /* release on resize windows */
3458   if (GTK_SHEET_IN_XDRAG (sheet))
3459     {
3460       gint width;
3461       GTK_SHEET_UNSET_FLAGS (sheet, GTK_SHEET_IN_XDRAG);
3462       GTK_SHEET_UNSET_FLAGS (sheet, GTK_SHEET_IN_SELECTION);
3463
3464       gdk_display_pointer_ungrab (display, event->time);
3465       draw_xor_vline (sheet);
3466
3467       width = event->x -
3468         psppire_axis_start_pixel (sheet->haxis, sheet->drag_cell.col)
3469         + sheet->hadjustment->value;
3470
3471       set_column_width (sheet, sheet->drag_cell.col, width);
3472
3473       return TRUE;
3474     }
3475
3476   if (GTK_SHEET_IN_YDRAG (sheet))
3477     {
3478       gint height;
3479       GTK_SHEET_UNSET_FLAGS (sheet, GTK_SHEET_IN_YDRAG);
3480       GTK_SHEET_UNSET_FLAGS (sheet, GTK_SHEET_IN_SELECTION);
3481
3482       gdk_display_pointer_ungrab (display, event->time);
3483       draw_xor_hline (sheet);
3484
3485       height = event->y -
3486         psppire_axis_start_pixel (sheet->vaxis, sheet->drag_cell.row) +
3487         sheet->vadjustment->value;
3488
3489       set_row_height (sheet, sheet->drag_cell.row, height);
3490
3491       return TRUE;
3492     }
3493
3494   if (GTK_SHEET_IN_DRAG (sheet))
3495     {
3496       GtkSheetRange old_range;
3497       draw_xor_rectangle (sheet, sheet->drag_range);
3498       GTK_SHEET_UNSET_FLAGS (sheet, GTK_SHEET_IN_DRAG);
3499       gdk_display_pointer_ungrab (display, event->time);
3500
3501       gtk_sheet_real_unselect_range (sheet, NULL);
3502
3503       sheet->active_cell.row = sheet->active_cell.row +
3504         (sheet->drag_range.row0 - sheet->range.row0);
3505       sheet->active_cell.col = sheet->active_cell.col +
3506         (sheet->drag_range.col0 - sheet->range.col0);
3507       sheet->selection_cell.row = sheet->selection_cell.row +
3508         (sheet->drag_range.row0 - sheet->range.row0);
3509       sheet->selection_cell.col = sheet->selection_cell.col +
3510         (sheet->drag_range.col0 - sheet->range.col0);
3511       old_range = sheet->range;
3512       sheet->range = sheet->drag_range;
3513       sheet->drag_range = old_range;
3514       g_signal_emit (sheet, sheet_signals[MOVE_RANGE], 0,
3515                      &sheet->drag_range, &sheet->range);
3516       gtk_sheet_select_range (sheet, &sheet->range);
3517     }
3518
3519   if (GTK_SHEET_IN_RESIZE (sheet))
3520     {
3521       GtkSheetRange old_range;
3522       draw_xor_rectangle (sheet, sheet->drag_range);
3523       GTK_SHEET_UNSET_FLAGS (sheet, GTK_SHEET_IN_RESIZE);
3524       gdk_display_pointer_ungrab (display, event->time);
3525
3526       gtk_sheet_real_unselect_range (sheet, NULL);
3527
3528       sheet->active_cell.row = sheet->active_cell.row +
3529         (sheet->drag_range.row0 - sheet->range.row0);
3530       sheet->active_cell.col = sheet->active_cell.col +
3531         (sheet->drag_range.col0 - sheet->range.col0);
3532       if (sheet->drag_range.row0 < sheet->range.row0)
3533         sheet->selection_cell.row = sheet->drag_range.row0;
3534       if (sheet->drag_range.rowi >= sheet->range.rowi)
3535         sheet->selection_cell.row = sheet->drag_range.rowi;
3536       if (sheet->drag_range.col0 < sheet->range.col0)
3537         sheet->selection_cell.col = sheet->drag_range.col0;
3538       if (sheet->drag_range.coli >= sheet->range.coli)
3539         sheet->selection_cell.col = sheet->drag_range.coli;
3540       old_range = sheet->range;
3541       sheet->range = sheet->drag_range;
3542       sheet->drag_range = old_range;
3543
3544       if (sheet->state == GTK_STATE_NORMAL) sheet->state = GTK_SHEET_RANGE_SELECTED;
3545       g_signal_emit (sheet, sheet_signals[RESIZE_RANGE], 0,
3546                      &sheet->drag_range, &sheet->range);
3547       gtk_sheet_select_range (sheet, &sheet->range);
3548     }
3549
3550   if (sheet->state == GTK_SHEET_NORMAL && GTK_SHEET_IN_SELECTION (sheet))
3551     {
3552       GTK_SHEET_UNSET_FLAGS (sheet, GTK_SHEET_IN_SELECTION);
3553       gdk_display_pointer_ungrab (display, event->time);
3554       change_active_cell (sheet, sheet->active_cell.row,
3555                                sheet->active_cell.col);
3556     }
3557
3558   if (GTK_SHEET_IN_SELECTION)
3559     gdk_display_pointer_ungrab (display, event->time);
3560   gtk_grab_remove (GTK_WIDGET (sheet));
3561
3562   GTK_SHEET_UNSET_FLAGS (sheet, GTK_SHEET_IN_SELECTION);
3563
3564   return TRUE;
3565 }
3566
3567 \f
3568
3569
3570
3571 /* Shamelessly lifted from gtktooltips */
3572 static gboolean
3573 gtk_sheet_subtitle_paint_window (GtkWidget *tip_window)
3574 {
3575   GtkRequisition req;
3576
3577   gtk_widget_size_request (tip_window, &req);
3578   gtk_paint_flat_box (tip_window->style, tip_window->window,
3579                       GTK_STATE_NORMAL, GTK_SHADOW_OUT,
3580                       NULL, GTK_WIDGET(tip_window), "tooltip",
3581                       0, 0, req.width, req.height);
3582
3583   return FALSE;
3584 }
3585
3586 static void
3587 destroy_hover_window (GtkSheetHoverTitle *h)
3588 {
3589   gtk_widget_destroy (h->window);
3590   g_free (h);
3591 }
3592
3593 static GtkSheetHoverTitle *
3594 create_hover_window (void)
3595 {
3596   GtkSheetHoverTitle *hw = g_malloc (sizeof (*hw));
3597
3598   hw->window = gtk_window_new (GTK_WINDOW_POPUP);
3599
3600 #if GTK_CHECK_VERSION (2, 9, 0)
3601   gtk_window_set_type_hint (GTK_WINDOW (hw->window),
3602                             GDK_WINDOW_TYPE_HINT_TOOLTIP);
3603 #endif
3604
3605   gtk_widget_set_app_paintable (hw->window, TRUE);
3606   gtk_window_set_resizable (GTK_WINDOW (hw->window), FALSE);
3607   gtk_widget_set_name (hw->window, "gtk-tooltips");
3608   gtk_container_set_border_width (GTK_CONTAINER (hw->window), 4);
3609
3610   g_signal_connect (hw->window,
3611                     "expose_event",
3612                     G_CALLBACK (gtk_sheet_subtitle_paint_window),
3613                     NULL);
3614
3615   hw->label = gtk_label_new (NULL);
3616
3617
3618   gtk_label_set_line_wrap (GTK_LABEL (hw->label), TRUE);
3619   gtk_misc_set_alignment (GTK_MISC (hw->label), 0.5, 0.5);
3620
3621   gtk_container_add (GTK_CONTAINER (hw->window), hw->label);
3622
3623   gtk_widget_show (hw->label);
3624
3625   g_signal_connect (hw->window,
3626                     "destroy",
3627                     G_CALLBACK (gtk_widget_destroyed),
3628                     &hw->window);
3629
3630   return hw;
3631 }
3632
3633 #define HOVER_WINDOW_Y_OFFSET 2
3634
3635 static void
3636 show_subtitle (GtkSheet *sheet, gint row, gint column, const gchar *subtitle)
3637 {
3638   gint x, y;
3639   gint px, py;
3640   gint width;
3641
3642   if ( ! subtitle )
3643     return;
3644
3645   gtk_label_set_text (GTK_LABEL (sheet->hover_window->label),
3646                       subtitle);
3647
3648
3649   sheet->hover_window->row = row;
3650   sheet->hover_window->column = column;
3651
3652   gdk_window_get_origin (GTK_WIDGET (sheet)->window, &x, &y);
3653
3654   gtk_widget_get_pointer (GTK_WIDGET (sheet), &px, &py);
3655
3656   gtk_widget_show (sheet->hover_window->window);
3657
3658   width = GTK_WIDGET (sheet->hover_window->label)->allocation.width;
3659
3660   if (row == -1 )
3661     {
3662       x += px;
3663       x -= width / 2;
3664       y += sheet->column_title_area.y;
3665       y += sheet->column_title_area.height;
3666       y += HOVER_WINDOW_Y_OFFSET;
3667     }
3668
3669   if ( column == -1 )
3670     {
3671       y += py;
3672       x += sheet->row_title_area.x;
3673       x += sheet->row_title_area.width * 2 / 3.0;
3674     }
3675
3676   gtk_window_move (GTK_WINDOW (sheet->hover_window->window),
3677                    x, y);
3678 }
3679
3680 static gboolean
3681 motion_timeout_callback (gpointer data)
3682 {
3683   GtkSheet *sheet = GTK_SHEET (data);
3684   gint x, y;
3685   gint row, column;
3686   gtk_widget_get_pointer (GTK_WIDGET (sheet), &x, &y);
3687
3688   if ( gtk_sheet_get_pixel_info (sheet, x, y, &row, &column) )
3689     {
3690       if (sheet->row_title_under)
3691         {
3692           gchar *text = g_sheet_model_get_row_subtitle (sheet->model, row);
3693
3694           show_subtitle (sheet, row, -1, text);
3695           g_free (text);
3696         }
3697
3698       if (sheet->column_title_under)
3699         {
3700           gchar *text = g_sheet_model_get_column_subtitle (sheet->model,
3701                                                            column);
3702
3703           show_subtitle (sheet, -1, column, text);
3704
3705           g_free (text);
3706         }
3707     }
3708
3709   return FALSE;
3710 }
3711
3712 static gboolean
3713 gtk_sheet_motion (GtkWidget *widget,  GdkEventMotion *event)
3714 {
3715   GtkSheet *sheet = GTK_SHEET (widget);
3716   GdkModifierType mods;
3717   GdkCursorType new_cursor;
3718   gint x, y;
3719   gint row, column;
3720   GdkDisplay *display;
3721
3722   g_return_val_if_fail (event != NULL, FALSE);
3723
3724   display = gtk_widget_get_display (widget);
3725
3726   /* selections on the sheet */
3727   x = event->x;
3728   y = event->y;
3729
3730   if (!GTK_WIDGET_VISIBLE (sheet->hover_window->window))
3731     {
3732       if ( sheet->motion_timer > 0 )
3733         g_source_remove (sheet->motion_timer);
3734       sheet->motion_timer =
3735         g_timeout_add (TIMEOUT_HOVER, motion_timeout_callback, sheet);
3736     }
3737   else
3738     {
3739       gint row, column;
3740       gint wx, wy;
3741       gtk_widget_get_pointer (widget, &wx, &wy);
3742
3743       if ( gtk_sheet_get_pixel_info (sheet, wx, wy, &row, &column) )
3744         {
3745           if ( row != sheet->hover_window->row ||
3746                column != sheet->hover_window->column)
3747             {
3748               gtk_widget_hide (sheet->hover_window->window);
3749             }
3750         }
3751     }
3752
3753   if (event->window == sheet->column_title_window)
3754     {
3755       if (!GTK_SHEET_IN_SELECTION (sheet) &&
3756           on_column_boundary (sheet, x, &column))
3757         {
3758           new_cursor = GDK_SB_H_DOUBLE_ARROW;
3759           if (new_cursor != sheet->cursor_drag->type)
3760             {
3761               gdk_cursor_unref (sheet->cursor_drag);
3762               sheet->cursor_drag =
3763                 gdk_cursor_new_for_display (display, new_cursor);
3764
3765               gdk_window_set_cursor (sheet->column_title_window,
3766                                      sheet->cursor_drag);
3767             }
3768         }
3769       else
3770         {
3771           new_cursor = GDK_TOP_LEFT_ARROW;
3772           if (!GTK_SHEET_IN_XDRAG (sheet) &&
3773               new_cursor != sheet->cursor_drag->type)
3774             {
3775               gdk_cursor_unref (sheet->cursor_drag);
3776               sheet->cursor_drag =
3777                 gdk_cursor_new_for_display (display, new_cursor);
3778               gdk_window_set_cursor (sheet->column_title_window,
3779                                      sheet->cursor_drag);
3780             }
3781         }
3782     }
3783   else if (event->window == sheet->row_title_window)
3784     {
3785       if (!GTK_SHEET_IN_SELECTION (sheet) &&
3786           on_row_boundary (sheet, y, &row))
3787         {
3788           new_cursor = GDK_SB_V_DOUBLE_ARROW;
3789           if (new_cursor != sheet->cursor_drag->type)
3790             {
3791               gdk_cursor_unref (sheet->cursor_drag);
3792               sheet->cursor_drag =
3793                 gdk_cursor_new_for_display (display, new_cursor);
3794               gdk_window_set_cursor (sheet->row_title_window,
3795                                      sheet->cursor_drag);
3796             }
3797         }
3798       else
3799         {
3800           new_cursor = GDK_TOP_LEFT_ARROW;
3801           if (!GTK_SHEET_IN_YDRAG (sheet) &&
3802               new_cursor != sheet->cursor_drag->type)
3803             {
3804               gdk_cursor_unref (sheet->cursor_drag);
3805               sheet->cursor_drag =
3806                 gdk_cursor_new_for_display (display, new_cursor);
3807               gdk_window_set_cursor (sheet->row_title_window,
3808                                      sheet->cursor_drag);
3809             }
3810         }
3811     }
3812
3813   new_cursor = GDK_PLUS;
3814   if ( event->window == sheet->sheet_window &&
3815        !POSSIBLE_DRAG (sheet, x, y, &row, &column) &&
3816        !GTK_SHEET_IN_DRAG (sheet) &&
3817        !POSSIBLE_RESIZE (sheet, x, y, &row, &column) &&
3818        !GTK_SHEET_IN_RESIZE (sheet) &&
3819        new_cursor != sheet->cursor_drag->type)
3820     {
3821       gdk_cursor_unref (sheet->cursor_drag);
3822       sheet->cursor_drag = gdk_cursor_new_for_display (display, GDK_PLUS);
3823       gdk_window_set_cursor (sheet->sheet_window, sheet->cursor_drag);
3824     }
3825
3826   new_cursor = GDK_TOP_LEFT_ARROW;
3827   if ( event->window == sheet->sheet_window &&
3828        ! (POSSIBLE_RESIZE (sheet, x, y, &row, &column) ||
3829           GTK_SHEET_IN_RESIZE (sheet)) &&
3830        (POSSIBLE_DRAG (sheet, x, y, &row, &column) ||
3831         GTK_SHEET_IN_DRAG (sheet)) &&
3832        new_cursor != sheet->cursor_drag->type)
3833     {
3834       gdk_cursor_unref (sheet->cursor_drag);
3835       sheet->cursor_drag = gdk_cursor_new_for_display (display, GDK_TOP_LEFT_ARROW);
3836       gdk_window_set_cursor (sheet->sheet_window, sheet->cursor_drag);
3837     }
3838
3839   new_cursor = GDK_SIZING;
3840   if ( event->window == sheet->sheet_window &&
3841        sheet->selection_mode != GTK_SELECTION_NONE &&
3842        !GTK_SHEET_IN_DRAG (sheet) &&
3843        (POSSIBLE_RESIZE (sheet, x, y, &row, &column) ||
3844         GTK_SHEET_IN_RESIZE (sheet)) &&
3845        new_cursor != sheet->cursor_drag->type)
3846     {
3847       gdk_cursor_unref (sheet->cursor_drag);
3848       sheet->cursor_drag = gdk_cursor_new_for_display (display, GDK_SIZING);
3849       gdk_window_set_cursor (sheet->sheet_window, sheet->cursor_drag);
3850     }
3851
3852
3853   gdk_window_get_pointer (widget->window, &x, &y, &mods);
3854   if (! (mods & GDK_BUTTON1_MASK)) return FALSE;
3855
3856   if (GTK_SHEET_IN_XDRAG (sheet))
3857     {
3858       if (event->x != sheet->x_drag)
3859         {
3860           draw_xor_vline (sheet);
3861           sheet->x_drag = event->x;
3862           draw_xor_vline (sheet);
3863         }
3864
3865       return TRUE;
3866     }
3867
3868   if (GTK_SHEET_IN_YDRAG (sheet))
3869     {
3870       if (event->y != sheet->y_drag)
3871         {
3872           draw_xor_hline (sheet);
3873           sheet->y_drag = event->y;
3874           draw_xor_hline (sheet);
3875         }
3876
3877       return TRUE;
3878     }
3879
3880   if (GTK_SHEET_IN_DRAG (sheet))
3881     {
3882       GtkSheetRange aux;
3883       column = column_from_xpixel (sheet, x)- sheet->drag_cell.col;
3884       row = row_from_ypixel (sheet, y) - sheet->drag_cell.row;
3885       if (sheet->state == GTK_SHEET_COLUMN_SELECTED) row = 0;
3886       if (sheet->state == GTK_SHEET_ROW_SELECTED) column = 0;
3887       sheet->x_drag = x;
3888       sheet->y_drag = y;
3889       aux = sheet->range;
3890       if (aux.row0 + row >= 0 && aux.rowi + row < psppire_axis_unit_count (sheet->vaxis) &&
3891           aux.col0 + column >= 0 && aux.coli + column < psppire_axis_unit_count (sheet->haxis))
3892         {
3893           aux = sheet->drag_range;
3894           sheet->drag_range.row0 = sheet->range.row0 + row;
3895           sheet->drag_range.col0 = sheet->range.col0 + column;
3896           sheet->drag_range.rowi = sheet->range.rowi + row;
3897           sheet->drag_range.coli = sheet->range.coli + column;
3898           if (aux.row0 != sheet->drag_range.row0 ||
3899               aux.col0 != sheet->drag_range.col0)
3900             {
3901               draw_xor_rectangle (sheet, aux);
3902               draw_xor_rectangle (sheet, sheet->drag_range);
3903             }
3904         }
3905       return TRUE;
3906     }
3907
3908   if (GTK_SHEET_IN_RESIZE (sheet))
3909     {
3910       GtkSheetRange aux;
3911       gint v_h, current_col, current_row, col_threshold, row_threshold;
3912       v_h = 1;
3913       if (abs (x - psppire_axis_start_pixel (sheet->haxis, sheet->drag_cell.col)) >
3914           abs (y - psppire_axis_start_pixel (sheet->vaxis, sheet->drag_cell.row))) v_h = 2;
3915
3916       current_col = column_from_xpixel (sheet, x);
3917       current_row = row_from_ypixel (sheet, y);
3918       column = current_col - sheet->drag_cell.col;
3919       row = current_row - sheet->drag_cell.row;
3920
3921       /*use half of column width resp. row height as threshold to
3922         expand selection*/
3923       col_threshold = psppire_axis_start_pixel (sheet->haxis, current_col) +
3924         psppire_axis_unit_size (sheet->haxis, current_col) / 2;
3925       if (column > 0)
3926         {
3927           if (x < col_threshold)
3928             column -= 1;
3929         }
3930       else if (column < 0)
3931         {
3932           if (x > col_threshold)
3933             column +=1;
3934         }
3935       row_threshold = psppire_axis_start_pixel (sheet->vaxis, current_row) +
3936         psppire_axis_unit_size (sheet->vaxis, current_row)/2;
3937       if (row > 0)
3938         {
3939           if (y < row_threshold)
3940             row -= 1;
3941         }
3942       else if (row < 0)
3943         {
3944           if (y > row_threshold)
3945             row +=1;
3946         }
3947
3948       if (sheet->state == GTK_SHEET_COLUMN_SELECTED) row = 0;
3949       if (sheet->state == GTK_SHEET_ROW_SELECTED) column = 0;
3950       sheet->x_drag = x;
3951       sheet->y_drag = y;
3952       aux = sheet->range;
3953
3954       if (v_h == 1)
3955         column = 0;
3956       else
3957         row = 0;
3958
3959       if (aux.row0 + row >= 0 && aux.rowi + row < psppire_axis_unit_count (sheet->vaxis) &&
3960           aux.col0 + column >= 0 && aux.coli + column < psppire_axis_unit_count (sheet->haxis))
3961         {
3962           aux = sheet->drag_range;
3963           sheet->drag_range = sheet->range;
3964
3965           if (row < 0) sheet->drag_range.row0 = sheet->range.row0 + row;
3966           if (row > 0) sheet->drag_range.rowi = sheet->range.rowi + row;
3967           if (column < 0) sheet->drag_range.col0 = sheet->range.col0 + column;
3968           if (column > 0) sheet->drag_range.coli = sheet->range.coli + column;
3969
3970           if (aux.row0 != sheet->drag_range.row0 ||
3971               aux.rowi != sheet->drag_range.rowi ||
3972               aux.col0 != sheet->drag_range.col0 ||
3973               aux.coli != sheet->drag_range.coli)
3974             {
3975               draw_xor_rectangle (sheet, aux);
3976               draw_xor_rectangle (sheet, sheet->drag_range);
3977             }
3978         }
3979       return TRUE;
3980     }
3981
3982   gtk_sheet_get_pixel_info (sheet, x, y, &row, &column);
3983
3984   if (sheet->state == GTK_SHEET_NORMAL && row == sheet->active_cell.row &&
3985       column == sheet->active_cell.col) return TRUE;
3986
3987   if (GTK_SHEET_IN_SELECTION (sheet) && mods&GDK_BUTTON1_MASK)
3988     gtk_sheet_extend_selection (sheet, row, column);
3989
3990   return TRUE;
3991 }
3992
3993 static gboolean
3994 gtk_sheet_crossing_notify (GtkWidget *widget,
3995                            GdkEventCrossing *event)
3996 {
3997   GtkSheet *sheet = GTK_SHEET (widget);
3998
3999   if (event->window == sheet->column_title_window)
4000     sheet->column_title_under = event->type == GDK_ENTER_NOTIFY;
4001   else if (event->window == sheet->row_title_window)
4002     sheet->row_title_under = event->type == GDK_ENTER_NOTIFY;
4003
4004   return TRUE;
4005 }
4006
4007 static void
4008 gtk_sheet_extend_selection (GtkSheet *sheet, gint row, gint column)
4009 {
4010   GtkSheetRange range;
4011   gint state;
4012   gint r, c;
4013
4014   if (row == sheet->selection_cell.row && column == sheet->selection_cell.col)
4015     return;
4016
4017   if (sheet->selection_mode == GTK_SELECTION_SINGLE) return;
4018
4019   gtk_widget_grab_focus (GTK_WIDGET (sheet));
4020
4021   if (GTK_SHEET_IN_DRAG (sheet)) return;
4022
4023   state = sheet->state;
4024
4025   switch (sheet->state)
4026     {
4027     case GTK_SHEET_ROW_SELECTED:
4028       column = psppire_axis_unit_count (sheet->haxis) - 1;
4029       break;
4030     case GTK_SHEET_COLUMN_SELECTED:
4031       row = psppire_axis_unit_count (sheet->vaxis) - 1;
4032       break;
4033     case GTK_SHEET_NORMAL:
4034       sheet->state = GTK_SHEET_RANGE_SELECTED;
4035       r = sheet->active_cell.row;
4036       c = sheet->active_cell.col;
4037       sheet->range.col0 = c;
4038       sheet->range.row0 = r;
4039       sheet->range.coli = c;
4040       sheet->range.rowi = r;
4041       gtk_sheet_range_draw_selection (sheet, sheet->range);
4042     case GTK_SHEET_RANGE_SELECTED:
4043       sheet->state = GTK_SHEET_RANGE_SELECTED;
4044     }
4045
4046   sheet->selection_cell.row = row;
4047   sheet->selection_cell.col = column;
4048
4049   range.col0 = MIN (column, sheet->active_cell.col);
4050   range.coli = MAX (column, sheet->active_cell.col);
4051   range.row0 = MIN (row, sheet->active_cell.row);
4052   range.rowi = MAX (row, sheet->active_cell.row);
4053
4054   if (range.row0 != sheet->range.row0 || range.rowi != sheet->range.rowi ||
4055       range.col0 != sheet->range.col0 || range.coli != sheet->range.coli ||
4056       state == GTK_SHEET_NORMAL)
4057     gtk_sheet_real_select_range (sheet, &range);
4058
4059 }
4060
4061 static gint
4062 gtk_sheet_entry_key_press (GtkWidget *widget,
4063                            GdkEventKey *key)
4064 {
4065   gboolean focus;
4066   g_signal_emit_by_name (widget, "key_press_event", key, &focus);
4067   return focus;
4068 }
4069
4070
4071 /* Number of rows in a step-increment */
4072 #define ROWS_PER_STEP 1
4073
4074
4075 static void
4076 page_vertical (GtkSheet *sheet, GtkScrollType dir)
4077 {
4078   gint old_row = sheet->active_cell.row ;
4079   glong vpixel = psppire_axis_start_pixel (sheet->vaxis, old_row);
4080
4081   gint new_row;
4082
4083   vpixel -= psppire_axis_start_pixel (sheet->vaxis,
4084                                      min_visible_row (sheet));
4085
4086   switch ( dir)
4087     {
4088     case GTK_SCROLL_PAGE_DOWN:
4089       gtk_adjustment_set_value (sheet->vadjustment,
4090                                 sheet->vadjustment->value +
4091                                 sheet->vadjustment->page_increment);
4092       break;
4093     case GTK_SCROLL_PAGE_UP:
4094       gtk_adjustment_set_value (sheet->vadjustment,
4095                                 sheet->vadjustment->value -
4096                                 sheet->vadjustment->page_increment);
4097
4098       break;
4099     default:
4100       g_assert_not_reached ();
4101       break;
4102     }
4103
4104
4105   vpixel += psppire_axis_start_pixel (sheet->vaxis,
4106                                      min_visible_row (sheet));
4107
4108   new_row =  row_from_ypixel (sheet, vpixel);
4109
4110   change_active_cell (sheet, new_row,
4111                            sheet->active_cell.col);
4112 }
4113
4114
4115 static void
4116 step_sheet (GtkSheet *sheet, GtkScrollType dir)
4117 {
4118   gint current_row = sheet->active_cell.row;
4119   gint current_col = sheet->active_cell.col;
4120   GtkSheetCell new_cell ;
4121   gboolean forbidden = FALSE;
4122
4123   new_cell.row = current_row;
4124   new_cell.col = current_col;
4125
4126   switch ( dir)
4127     {
4128     case GTK_SCROLL_STEP_DOWN:
4129       new_cell.row++;
4130       break;
4131     case GTK_SCROLL_STEP_UP:
4132       new_cell.row--;
4133       break;
4134     case GTK_SCROLL_STEP_RIGHT:
4135       new_cell.col++;
4136       break;
4137     case GTK_SCROLL_STEP_LEFT:
4138       new_cell.col--;
4139       break;
4140     default:
4141       g_assert_not_reached ();
4142       break;
4143     }
4144
4145
4146   g_signal_emit (sheet, sheet_signals[TRAVERSE], 0,
4147                  &sheet->active_cell,
4148                  &new_cell,
4149                  &forbidden);
4150
4151   if (forbidden)
4152     return;
4153
4154
4155   maximize_int (&new_cell.row, 0);
4156   maximize_int (&new_cell.col, 0);
4157
4158   minimize_int (&new_cell.row,
4159                 psppire_axis_unit_count (sheet->vaxis) - 1);
4160
4161   minimize_int (&new_cell.col,
4162                 psppire_axis_unit_count (sheet->haxis) - 1);
4163
4164   change_active_cell (sheet, new_cell.row, new_cell.col);
4165
4166
4167   if ( new_cell.col > max_fully_visible_column (sheet))
4168     {
4169       glong hpos  =
4170         psppire_axis_start_pixel (sheet->haxis,
4171                                     new_cell.col + 1);
4172       hpos -= sheet->hadjustment->page_size;
4173
4174       gtk_adjustment_set_value (sheet->hadjustment,
4175                                 hpos);
4176     }
4177   else if ( new_cell.col < min_fully_visible_column (sheet))
4178     {
4179       glong hpos  =
4180         psppire_axis_start_pixel (sheet->haxis,
4181                                     new_cell.col);
4182
4183       gtk_adjustment_set_value (sheet->hadjustment,
4184                                 hpos);
4185     }
4186
4187
4188   if ( new_cell.row > max_fully_visible_row (sheet))
4189     {
4190       glong vpos  =
4191         psppire_axis_start_pixel (sheet->vaxis,
4192                                     new_cell.row + 1);
4193       vpos -= sheet->vadjustment->page_size;
4194
4195       gtk_adjustment_set_value (sheet->vadjustment,
4196                                 vpos);
4197     }
4198   else if ( new_cell.row < min_fully_visible_row (sheet))
4199     {
4200       glong vpos  =
4201         psppire_axis_start_pixel (sheet->vaxis,
4202                                     new_cell.row);
4203
4204       gtk_adjustment_set_value (sheet->vadjustment,
4205                                 vpos);
4206     }
4207
4208   gtk_widget_grab_focus (GTK_WIDGET (sheet->entry_widget));
4209 }
4210
4211
4212 static gboolean
4213 gtk_sheet_key_press (GtkWidget *widget,
4214                      GdkEventKey *key)
4215 {
4216   GtkSheet *sheet = GTK_SHEET (widget);
4217
4218   GTK_SHEET_UNSET_FLAGS (sheet, GTK_SHEET_IN_SELECTION);
4219
4220   switch (key->keyval)
4221     {
4222     case GDK_Tab:
4223     case GDK_Right:
4224       step_sheet (sheet, GTK_SCROLL_STEP_RIGHT);
4225       break;
4226     case GDK_ISO_Left_Tab:
4227     case GDK_Left:
4228       step_sheet (sheet, GTK_SCROLL_STEP_LEFT);
4229       break;
4230     case GDK_Return:
4231     case GDK_Down:
4232       step_sheet (sheet, GTK_SCROLL_STEP_DOWN);
4233       break;
4234     case GDK_Up:
4235       step_sheet (sheet, GTK_SCROLL_STEP_UP);
4236       break;
4237
4238     case GDK_Page_Down:
4239       page_vertical (sheet, GTK_SCROLL_PAGE_DOWN);
4240       break;
4241     case GDK_Page_Up:
4242       page_vertical (sheet, GTK_SCROLL_PAGE_UP);
4243       break;
4244
4245     case GDK_Home:
4246       gtk_adjustment_set_value (sheet->vadjustment,
4247                                 sheet->vadjustment->lower);
4248
4249       change_active_cell (sheet,  0,
4250                                sheet->active_cell.col);
4251
4252       break;
4253
4254     case GDK_End:
4255       gtk_adjustment_set_value (sheet->vadjustment,
4256                                 sheet->vadjustment->upper -
4257                                 sheet->vadjustment->page_size -
4258                                 sheet->vadjustment->page_increment);
4259
4260       /*
4261         change_active_cellx (sheet,
4262         psppire_axis_unit_count (sheet->vaxis) - 1,
4263         sheet->active_cell.col);
4264       */
4265       break;
4266     case GDK_Delete:
4267       gtk_sheet_real_cell_clear (sheet, sheet->active_cell.row, sheet->active_cell.col);
4268       break;
4269     default:
4270       return FALSE;
4271       break;
4272     }
4273
4274   return TRUE;
4275 }
4276
4277 static void
4278 gtk_sheet_size_request (GtkWidget *widget,
4279                         GtkRequisition *requisition)
4280 {
4281   GtkSheet *sheet;
4282
4283   g_return_if_fail (widget != NULL);
4284   g_return_if_fail (GTK_IS_SHEET (widget));
4285   g_return_if_fail (requisition != NULL);
4286
4287   sheet = GTK_SHEET (widget);
4288
4289   requisition->width = 3 * DEFAULT_COLUMN_WIDTH;
4290   requisition->height = 3 * DEFAULT_ROW_HEIGHT;
4291
4292   /* compute the size of the column title area */
4293   if (sheet->column_titles_visible)
4294     requisition->height += sheet->column_title_area.height;
4295
4296   /* compute the size of the row title area */
4297   if (sheet->row_titles_visible)
4298     requisition->width += sheet->row_title_area.width;
4299 }
4300
4301
4302 static void
4303 gtk_sheet_size_allocate (GtkWidget *widget,
4304                          GtkAllocation *allocation)
4305 {
4306   GtkSheet *sheet;
4307   GtkAllocation sheet_allocation;
4308   gint border_width;
4309
4310   g_return_if_fail (widget != NULL);
4311   g_return_if_fail (GTK_IS_SHEET (widget));
4312   g_return_if_fail (allocation != NULL);
4313
4314   sheet = GTK_SHEET (widget);
4315   widget->allocation = *allocation;
4316   border_width = GTK_CONTAINER (widget)->border_width;
4317
4318   if (GTK_WIDGET_REALIZED (widget))
4319     gdk_window_move_resize (widget->window,
4320                             allocation->x + border_width,
4321                             allocation->y + border_width,
4322                             allocation->width - 2 * border_width,
4323                             allocation->height - 2 * border_width);
4324
4325   sheet_allocation.x = 0;
4326   sheet_allocation.y = 0;
4327   sheet_allocation.width = allocation->width - 2 * border_width;
4328   sheet_allocation.height = allocation->height - 2 * border_width;
4329
4330   if (GTK_WIDGET_REALIZED (widget))
4331     gdk_window_move_resize (sheet->sheet_window,
4332                             sheet_allocation.x,
4333                             sheet_allocation.y,
4334                             sheet_allocation.width,
4335                             sheet_allocation.height);
4336
4337   /* position the window which holds the column title buttons */
4338   sheet->column_title_area.x = 0;
4339   sheet->column_title_area.y = 0;
4340   sheet->column_title_area.width = sheet_allocation.width ;
4341
4342
4343   /* position the window which holds the row title buttons */
4344   sheet->row_title_area.x = 0;
4345   sheet->row_title_area.y = 0;
4346   sheet->row_title_area.height = sheet_allocation.height;
4347
4348   if (sheet->row_titles_visible)
4349     sheet->column_title_area.x += sheet->row_title_area.width;
4350
4351   if (sheet->column_titles_visible)
4352     sheet->row_title_area.y += sheet->column_title_area.height;
4353
4354
4355   if (GTK_WIDGET_REALIZED (widget) && sheet->column_titles_visible)
4356     gdk_window_move_resize (sheet->column_title_window,
4357                             sheet->column_title_area.x,
4358                             sheet->column_title_area.y,
4359                             sheet->column_title_area.width,
4360                             sheet->column_title_area.height);
4361
4362
4363   if (GTK_WIDGET_REALIZED (widget) && sheet->row_titles_visible)
4364     gdk_window_move_resize (sheet->row_title_window,
4365                             sheet->row_title_area.x,
4366                             sheet->row_title_area.y,
4367                             sheet->row_title_area.width,
4368                             sheet->row_title_area.height);
4369
4370   if (sheet->haxis)
4371     {
4372       gint width = sheet->column_title_area.width;
4373
4374       if ( sheet->row_titles_visible)
4375         width -= sheet->row_title_area.width;
4376
4377       g_object_set (sheet->haxis,
4378                     "minimum-extent", width,
4379                     NULL);
4380     }
4381
4382
4383   if (sheet->vaxis)
4384     {
4385       gint height = sheet->row_title_area.height;
4386
4387       if ( sheet->column_titles_visible)
4388         height -= sheet->column_title_area.height;
4389
4390       g_object_set (sheet->vaxis,
4391                     "minimum-extent", height,
4392                     NULL);
4393     }
4394
4395
4396   /* set the scrollbars adjustments */
4397   adjust_scrollbars (sheet);
4398 }
4399
4400 static void
4401 draw_column_title_buttons (GtkSheet *sheet)
4402 {
4403   gint x, width;
4404
4405   if (!sheet->column_titles_visible) return;
4406   if (!GTK_WIDGET_REALIZED (sheet))
4407     return;
4408
4409   gdk_drawable_get_size (sheet->sheet_window, &width, NULL);
4410   x = 0;
4411
4412   if (sheet->row_titles_visible)
4413     {
4414       x = sheet->row_title_area.width;
4415     }
4416
4417   if (sheet->column_title_area.width != width || sheet->column_title_area.x != x)
4418     {
4419       sheet->column_title_area.width = width;
4420       sheet->column_title_area.x = x;
4421       gdk_window_move_resize (sheet->column_title_window,
4422                               sheet->column_title_area.x,
4423                               sheet->column_title_area.y,
4424                               sheet->column_title_area.width,
4425                               sheet->column_title_area.height);
4426     }
4427
4428   if (max_visible_column (sheet) ==
4429       psppire_axis_unit_count (sheet->haxis) - 1)
4430     gdk_window_clear_area (sheet->column_title_window,
4431                            0, 0,
4432                            sheet->column_title_area.width,
4433                            sheet->column_title_area.height);
4434
4435   if (!GTK_WIDGET_DRAWABLE (sheet)) return;
4436
4437   size_allocate_global_button (sheet);
4438
4439   draw_column_title_buttons_range (sheet, min_visible_column (sheet),
4440                                    max_visible_column (sheet));
4441 }
4442
4443 static void
4444 draw_row_title_buttons (GtkSheet *sheet)
4445 {
4446   gint y = 0;
4447   gint height;
4448
4449   if (!sheet->row_titles_visible) return;
4450   if (!GTK_WIDGET_REALIZED (sheet))
4451     return;
4452
4453   gdk_drawable_get_size (sheet->sheet_window, NULL, &height);
4454
4455   if (sheet->column_titles_visible)
4456     {
4457       y = sheet->column_title_area.height;
4458     }
4459
4460   if (sheet->row_title_area.height != height || sheet->row_title_area.y != y)
4461     {
4462       sheet->row_title_area.y = y;
4463       sheet->row_title_area.height = height;
4464       gdk_window_move_resize (sheet->row_title_window,
4465                               sheet->row_title_area.x,
4466                               sheet->row_title_area.y,
4467                               sheet->row_title_area.width,
4468                               sheet->row_title_area.height);
4469     }
4470
4471   if (max_visible_row (sheet) == psppire_axis_unit_count (sheet->vaxis) - 1)
4472     gdk_window_clear_area (sheet->row_title_window,
4473                            0, 0,
4474                            sheet->row_title_area.width,
4475                            sheet->row_title_area.height);
4476
4477   if (!GTK_WIDGET_DRAWABLE (sheet)) return;
4478
4479   size_allocate_global_button (sheet);
4480
4481
4482   draw_row_title_buttons_range (sheet, min_visible_row (sheet),
4483                                 max_visible_row (sheet));
4484 }
4485
4486
4487 static void
4488 gtk_sheet_size_allocate_entry (GtkSheet *sheet)
4489 {
4490   GtkAllocation entry_alloc;
4491   GtkSheetCellAttr attributes = { 0 };
4492   GtkEntry *sheet_entry;
4493
4494   if (!GTK_WIDGET_REALIZED (GTK_WIDGET (sheet))) return;
4495   if (!GTK_WIDGET_MAPPED (GTK_WIDGET (sheet))) return;
4496
4497   sheet_entry = gtk_sheet_get_entry (sheet);
4498
4499   if ( ! gtk_sheet_get_attributes (sheet, sheet->active_cell.row,
4500                                    sheet->active_cell.col,
4501                                    &attributes) )
4502     return ;
4503
4504   if ( GTK_WIDGET_REALIZED (sheet->entry_widget) )
4505     {
4506       GtkStyle *style = GTK_WIDGET (sheet_entry)->style;
4507
4508       style->bg[GTK_STATE_NORMAL] = attributes.background;
4509       style->fg[GTK_STATE_NORMAL] = attributes.foreground;
4510       style->text[GTK_STATE_NORMAL] = attributes.foreground;
4511       style->bg[GTK_STATE_ACTIVE] = attributes.background;
4512       style->fg[GTK_STATE_ACTIVE] = attributes.foreground;
4513       style->text[GTK_STATE_ACTIVE] = attributes.foreground;
4514     }
4515
4516   rectangle_from_cell (sheet, sheet->active_cell.row,
4517                        sheet->active_cell.col, &entry_alloc);
4518
4519   entry_alloc.width -= BORDER_WIDTH ;
4520   entry_alloc.height -= BORDER_WIDTH ;
4521   entry_alloc.x += DIV_RND_UP (BORDER_WIDTH, 2);
4522   entry_alloc.y += DIV_RND_UP (BORDER_WIDTH, 2);
4523
4524
4525   gtk_widget_set_size_request (sheet->entry_widget, entry_alloc.width,
4526                                entry_alloc.height);
4527   gtk_widget_size_allocate (sheet->entry_widget, &entry_alloc);
4528 }
4529
4530
4531 /* Copy the sheet's font to the entry widget */
4532 static void
4533 set_entry_widget_font (GtkSheet *sheet)
4534 {
4535   GtkRcStyle *style = gtk_widget_get_modifier_style (sheet->entry_widget);
4536
4537   pango_font_description_free (style->font_desc);
4538   style->font_desc = pango_font_description_copy (GTK_WIDGET (sheet)->style->font_desc);
4539
4540   gtk_widget_modify_style (sheet->entry_widget, style);
4541 }
4542
4543
4544
4545 static void
4546 create_sheet_entry (GtkSheet *sheet)
4547 {
4548   if (sheet->entry_widget)
4549     {
4550       gtk_widget_unparent (sheet->entry_widget);
4551     }
4552
4553   sheet->entry_widget = g_object_new (sheet->entry_type, NULL);
4554   g_object_ref_sink (sheet->entry_widget);
4555
4556   gtk_widget_size_request (sheet->entry_widget, NULL);
4557
4558   if ( GTK_IS_ENTRY (sheet->entry_widget))
4559     {
4560       g_object_set (sheet->entry_widget,
4561                     "has-frame", FALSE,
4562                     NULL);
4563     }
4564
4565   if (GTK_WIDGET_REALIZED (sheet))
4566     {
4567       gtk_widget_set_parent_window (sheet->entry_widget, sheet->sheet_window);
4568       gtk_widget_set_parent (sheet->entry_widget, GTK_WIDGET (sheet));
4569       gtk_widget_realize (sheet->entry_widget);
4570     }
4571
4572   g_signal_connect_swapped (sheet->entry_widget, "key_press_event",
4573                             G_CALLBACK (gtk_sheet_entry_key_press),
4574                             sheet);
4575
4576   set_entry_widget_font (sheet);
4577
4578   gtk_widget_show (sheet->entry_widget);
4579 }
4580
4581
4582 /* Finds the last child widget that happens to be of type GtkEntry */
4583 static void
4584 find_entry (GtkWidget *w, gpointer user_data)
4585 {
4586   GtkWidget **entry = user_data;
4587   if ( GTK_IS_ENTRY (w))
4588     {
4589       *entry = w;
4590     }
4591 }
4592
4593
4594 GtkEntry *
4595 gtk_sheet_get_entry (GtkSheet *sheet)
4596 {
4597   GtkWidget *w = sheet->entry_widget;
4598
4599   g_return_val_if_fail (sheet != NULL, NULL);
4600   g_return_val_if_fail (GTK_IS_SHEET (sheet), NULL);
4601   g_return_val_if_fail (sheet->entry_widget != NULL, NULL);
4602
4603   while (! GTK_IS_ENTRY (w))
4604     {
4605       GtkWidget *entry = NULL;
4606
4607       if (GTK_IS_CONTAINER (w))
4608         {
4609           gtk_container_forall (GTK_CONTAINER (w), find_entry, &entry);
4610
4611           if (NULL == entry)
4612             break;
4613
4614           w = entry;
4615         }
4616     }
4617
4618   return GTK_ENTRY (w);
4619 }
4620
4621
4622 static void
4623 draw_button (GtkSheet *sheet, GdkWindow *window,
4624                        GtkSheetButton *button, gboolean is_sensitive,
4625                        GdkRectangle allocation)
4626 {
4627   GtkShadowType shadow_type;
4628   gint text_width = 0, text_height = 0;
4629   PangoAlignment align = PANGO_ALIGN_LEFT;
4630
4631   gboolean rtl ;
4632
4633   gint state = 0;
4634
4635   g_return_if_fail (sheet != NULL);
4636   g_return_if_fail (button != NULL);
4637
4638
4639   rtl = gtk_widget_get_direction (GTK_WIDGET (sheet)) == GTK_TEXT_DIR_RTL;
4640
4641   gdk_window_clear_area (window,
4642                          allocation.x, allocation.y,
4643                          allocation.width, allocation.height);
4644
4645   gtk_paint_box (sheet->button->style, window,
4646                  GTK_STATE_NORMAL, GTK_SHADOW_OUT,
4647                  &allocation, GTK_WIDGET (sheet->button),
4648                  "buttondefault",
4649                  allocation.x, allocation.y,
4650                  allocation.width, allocation.height);
4651
4652   state = button->state;
4653   if (!is_sensitive) state = GTK_STATE_INSENSITIVE;
4654
4655   if (state == GTK_STATE_ACTIVE)
4656     shadow_type = GTK_SHADOW_IN;
4657   else
4658     shadow_type = GTK_SHADOW_OUT;
4659
4660   if (state != GTK_STATE_NORMAL && state != GTK_STATE_INSENSITIVE)
4661     gtk_paint_box (sheet->button->style, window,
4662                    button->state, shadow_type,
4663                    &allocation, GTK_WIDGET (sheet->button),
4664                    "button",
4665                    allocation.x, allocation.y,
4666                    allocation.width, allocation.height);
4667
4668   if (button->label_visible)
4669     {
4670       text_height = DEFAULT_ROW_HEIGHT -
4671         2 * COLUMN_TITLES_HEIGHT;
4672
4673       gdk_gc_set_clip_rectangle (GTK_WIDGET (sheet)->style->fg_gc[button->state],
4674                                  &allocation);
4675       gdk_gc_set_clip_rectangle (GTK_WIDGET (sheet)->style->white_gc,
4676                                  &allocation);
4677
4678       allocation.y += 2 * sheet->button->style->ythickness;
4679
4680       if (button->label && strlen (button->label) > 0)
4681         {
4682           PangoRectangle rect;
4683           gchar *line = button->label;
4684
4685           PangoLayout *layout = NULL;
4686           gint real_x = allocation.x;
4687           gint real_y = allocation.y;
4688
4689           layout = gtk_widget_create_pango_layout (GTK_WIDGET (sheet), line);
4690           pango_layout_get_extents (layout, NULL, &rect);
4691
4692           text_width = PANGO_PIXELS (rect.width);
4693           switch (button->justification)
4694             {
4695             case GTK_JUSTIFY_LEFT:
4696               real_x = allocation.x + COLUMN_TITLES_HEIGHT;
4697               align = rtl ? PANGO_ALIGN_RIGHT : PANGO_ALIGN_LEFT;
4698               break;
4699             case GTK_JUSTIFY_RIGHT:
4700               real_x = allocation.x + allocation.width - text_width - COLUMN_TITLES_HEIGHT;
4701               align = rtl ? PANGO_ALIGN_LEFT : PANGO_ALIGN_RIGHT;
4702               break;
4703             case GTK_JUSTIFY_CENTER:
4704             default:
4705               real_x = allocation.x + (allocation.width - text_width)/2;
4706               align = rtl ? PANGO_ALIGN_RIGHT : PANGO_ALIGN_LEFT;
4707               pango_layout_set_justify (layout, TRUE);
4708             }
4709           pango_layout_set_alignment (layout, align);
4710           gtk_paint_layout (GTK_WIDGET (sheet)->style,
4711                             window,
4712                             state,
4713                             FALSE,
4714                             &allocation,
4715                             GTK_WIDGET (sheet),
4716                             "label",
4717                             real_x, real_y,
4718                             layout);
4719           g_object_unref (layout);
4720         }
4721
4722       gdk_gc_set_clip_rectangle (GTK_WIDGET (sheet)->style->fg_gc[button->state],
4723                                  NULL);
4724       gdk_gc_set_clip_rectangle (GTK_WIDGET (sheet)->style->white_gc, NULL);
4725
4726     }
4727
4728   gtk_sheet_button_free (button);
4729 }
4730
4731
4732 /* Draw the column title buttons FIRST through to LAST */
4733 static void
4734 draw_column_title_buttons_range (GtkSheet *sheet, gint first, gint last)
4735 {
4736   GdkRectangle rect;
4737   gint col;
4738   if (!GTK_WIDGET_REALIZED (GTK_WIDGET (sheet))) return;
4739
4740   if (!sheet->column_titles_visible) return;
4741
4742   g_return_if_fail (first >= min_visible_column (sheet));
4743   g_return_if_fail (last <= max_visible_column (sheet));
4744
4745   rect.y = 0;
4746   rect.height = sheet->column_title_area.height;
4747   rect.x = psppire_axis_start_pixel (sheet->haxis, first) + CELL_SPACING;
4748   rect.width = psppire_axis_start_pixel (sheet->haxis, last) + CELL_SPACING
4749     + psppire_axis_unit_size (sheet->haxis, last);
4750
4751   rect.x -= sheet->hadjustment->value;
4752
4753   minimize_int (&rect.width, sheet->column_title_area.width);
4754   maximize_int (&rect.x, 0);
4755
4756   gdk_window_begin_paint_rect (sheet->column_title_window, &rect);
4757
4758   for (col = first ; col <= last ; ++col)
4759     {
4760       GdkRectangle allocation;
4761       gboolean is_sensitive = FALSE;
4762
4763       GtkSheetButton *
4764         button = g_sheet_model_get_column_button (sheet->model, col);
4765       allocation.y = 0;
4766       allocation.x = psppire_axis_start_pixel (sheet->haxis, col)
4767         + CELL_SPACING;
4768       allocation.x -= sheet->hadjustment->value;
4769
4770       allocation.height = sheet->column_title_area.height;
4771       allocation.width = psppire_axis_unit_size (sheet->haxis, col);
4772       is_sensitive = g_sheet_model_get_column_sensitivity (sheet->model, col);
4773
4774       draw_button (sheet, sheet->column_title_window,
4775                    button, is_sensitive, allocation);
4776     }
4777
4778   gdk_window_end_paint (sheet->column_title_window);
4779 }
4780
4781
4782 static void
4783 draw_row_title_buttons_range (GtkSheet *sheet, gint first, gint last)
4784 {
4785   GdkRectangle rect;
4786   gint row;
4787   if (!GTK_WIDGET_REALIZED (GTK_WIDGET (sheet))) return;
4788
4789   if (!sheet->row_titles_visible) return;
4790
4791   g_return_if_fail (first >= min_visible_row (sheet));
4792   g_return_if_fail (last <= max_visible_row (sheet));
4793
4794   rect.x = 0;
4795   rect.width = sheet->row_title_area.width;
4796   rect.y = psppire_axis_start_pixel (sheet->vaxis, first) + CELL_SPACING;
4797   rect.height = psppire_axis_start_pixel (sheet->vaxis, last) + CELL_SPACING
4798     + psppire_axis_unit_size (sheet->vaxis, last);
4799
4800   rect.y -= sheet->vadjustment->value;
4801
4802   minimize_int (&rect.height, sheet->row_title_area.height);
4803   maximize_int (&rect.y, 0);
4804
4805   gdk_window_begin_paint_rect (sheet->row_title_window, &rect);
4806   for (row = first; row <= last; ++row)
4807     {
4808       GdkRectangle allocation;
4809
4810       gboolean is_sensitive = FALSE;
4811
4812       GtkSheetButton *button =
4813         g_sheet_model_get_row_button (sheet->model, row);
4814       allocation.x = 0;
4815       allocation.y = psppire_axis_start_pixel (sheet->vaxis, row)
4816         + CELL_SPACING;
4817       allocation.y -= sheet->vadjustment->value;
4818
4819       allocation.width = sheet->row_title_area.width;
4820       allocation.height = psppire_axis_unit_size (sheet->vaxis, row);
4821       is_sensitive = g_sheet_model_get_row_sensitivity (sheet->model, row);
4822
4823       draw_button (sheet, sheet->row_title_window,
4824                    button, is_sensitive, allocation);
4825     }
4826
4827   gdk_window_end_paint (sheet->row_title_window);
4828 }
4829
4830 /* SCROLLBARS
4831  *
4832  * functions:
4833  * adjust_scrollbars
4834  * vadjustment_value_changed
4835  * hadjustment_value_changed */
4836
4837
4838 static void
4839 update_adjustment (GtkAdjustment *adj, PsppireAxis *axis, gint page_size)
4840 {
4841   double position =
4842     (adj->value + adj->page_size)
4843     /
4844     (adj->upper - adj->lower);
4845
4846   const glong last_item = psppire_axis_unit_count (axis) - 1;
4847
4848   if (isnan (position) || position < 0)
4849     position = 0;
4850
4851   adj->upper =
4852     psppire_axis_start_pixel (axis, last_item)
4853     +
4854     psppire_axis_unit_size (axis, last_item)
4855     ;
4856
4857   adj->lower = 0;
4858   adj->page_size = page_size;
4859
4860 #if 0
4861   adj->value = position * (adj->upper - adj->lower) - adj->page_size;
4862
4863   if ( adj->value < adj->lower)
4864     adj->value = adj->lower;
4865 #endif
4866
4867   gtk_adjustment_changed (adj);
4868 }
4869
4870
4871 static void
4872 adjust_scrollbars (GtkSheet *sheet)
4873 {
4874   gint width, height;
4875
4876   if (!GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
4877     return;
4878
4879   gdk_drawable_get_size (sheet->sheet_window, &width, &height);
4880
4881   if ( sheet->row_titles_visible)
4882     width -= sheet->row_title_area.width;
4883
4884   if (sheet->column_titles_visible)
4885     height -= sheet->column_title_area.height;
4886
4887   if (sheet->vadjustment)
4888     {
4889       glong last_row = psppire_axis_unit_count (sheet->vaxis) - 1;
4890
4891       sheet->vadjustment->step_increment =
4892         ROWS_PER_STEP *
4893         psppire_axis_unit_size (sheet->vaxis, last_row);
4894
4895       sheet->vadjustment->page_increment =
4896         height -
4897         sheet->column_title_area.height -
4898         psppire_axis_unit_size (sheet->vaxis, last_row);
4899
4900       update_adjustment (sheet->vadjustment, sheet->vaxis, height);
4901     }
4902
4903   if (sheet->hadjustment)
4904     {
4905       gint last_col = psppire_axis_unit_count (sheet->haxis) - 1;
4906       sheet->hadjustment->step_increment = 1;
4907
4908       sheet->hadjustment->page_increment = width;
4909
4910       sheet->hadjustment->upper =
4911         psppire_axis_start_pixel (sheet->haxis, last_col)
4912         +
4913         psppire_axis_unit_size (sheet->haxis, last_col)
4914         ;
4915
4916       update_adjustment (sheet->hadjustment, sheet->haxis, width);
4917     }
4918 }
4919
4920 static void
4921 vadjustment_value_changed (GtkAdjustment *adjustment,
4922                            gpointer data)
4923 {
4924   GdkRegion *region;
4925   GtkSheet *sheet = GTK_SHEET (data);
4926
4927   g_return_if_fail (adjustment != NULL);
4928
4929   if ( ! GTK_WIDGET_REALIZED (sheet)) return;
4930
4931   gtk_widget_hide (sheet->entry_widget);
4932
4933   region =
4934     gdk_drawable_get_visible_region (GDK_DRAWABLE (sheet->sheet_window));
4935
4936   gdk_window_begin_paint_region (sheet->sheet_window, region);
4937
4938   draw_sheet_region (sheet, region);
4939
4940   draw_row_title_buttons (sheet);
4941   //  size_allocate_global_button (sheet);
4942   gtk_sheet_draw_active_cell (sheet);
4943
4944   gdk_window_end_paint (sheet->sheet_window);
4945   gdk_region_destroy (region);
4946 }
4947
4948
4949 static void
4950 hadjustment_value_changed (GtkAdjustment *adjustment,
4951                            gpointer data)
4952 {
4953   GdkRegion *region;
4954   GtkSheet *sheet = GTK_SHEET (data);
4955
4956   g_return_if_fail (adjustment != NULL);
4957
4958   if ( ! GTK_WIDGET_REALIZED (sheet)) return;
4959
4960   gtk_widget_hide (sheet->entry_widget);
4961
4962
4963   region =
4964     gdk_drawable_get_visible_region (GDK_DRAWABLE (sheet->sheet_window));
4965
4966   gdk_window_begin_paint_region (sheet->sheet_window, region);
4967
4968   draw_sheet_region (sheet, region);
4969
4970   draw_column_title_buttons (sheet);
4971   //  size_allocate_global_button (sheet);
4972
4973   gtk_sheet_draw_active_cell (sheet);
4974
4975   gdk_window_end_paint (sheet->sheet_window);
4976
4977   gdk_region_destroy (region);
4978 }
4979
4980
4981 /* COLUMN RESIZING */
4982 static void
4983 draw_xor_vline (GtkSheet *sheet)
4984 {
4985   gint height;
4986   gint xpos = sheet->x_drag;
4987   gdk_drawable_get_size (sheet->sheet_window,
4988                          NULL, &height);
4989
4990   if (sheet->row_titles_visible)
4991     xpos += sheet->row_title_area.width;
4992
4993   gdk_draw_line (GTK_WIDGET (sheet)->window, sheet->xor_gc,
4994                  xpos,
4995                  sheet->column_title_area.height,
4996                  xpos,
4997                  height + CELL_SPACING);
4998 }
4999
5000 /* ROW RESIZING */
5001 static void
5002 draw_xor_hline (GtkSheet *sheet)
5003
5004 {
5005   gint width;
5006   gint ypos = sheet->y_drag;
5007
5008   gdk_drawable_get_size (sheet->sheet_window,
5009                          &width, NULL);
5010
5011
5012   if (sheet->column_titles_visible)
5013     ypos += sheet->column_title_area.height;
5014
5015   gdk_draw_line (GTK_WIDGET (sheet)->window, sheet->xor_gc,
5016                  sheet->row_title_area.width,
5017                  ypos,
5018                  width + CELL_SPACING,
5019                  ypos);
5020 }
5021
5022 /* SELECTED RANGE */
5023 static void
5024 draw_xor_rectangle (GtkSheet *sheet, GtkSheetRange range)
5025 {
5026   gint i = 0;
5027   GdkRectangle clip_area, area;
5028   GdkGCValues values;
5029
5030   area.x = psppire_axis_start_pixel (sheet->haxis, range.col0);
5031   area.y = psppire_axis_start_pixel (sheet->vaxis, range.row0);
5032   area.width = psppire_axis_start_pixel (sheet->haxis, range.coli)- area.x+
5033     psppire_axis_unit_size (sheet->haxis, range.coli);
5034   area.height = psppire_axis_start_pixel (sheet->vaxis, range.rowi)- area.y +
5035     psppire_axis_unit_size (sheet->vaxis, range.rowi);
5036
5037   clip_area.x = sheet->row_title_area.width;
5038   clip_area.y = sheet->column_title_area.height;
5039
5040   gdk_drawable_get_size (sheet->sheet_window,
5041                          &clip_area.width, &clip_area.height);
5042
5043   if (!sheet->row_titles_visible) clip_area.x = 0;
5044   if (!sheet->column_titles_visible) clip_area.y = 0;
5045
5046   if (area.x < 0)
5047     {
5048       area.width = area.width + area.x;
5049       area.x = 0;
5050     }
5051   if (area.width > clip_area.width) area.width = clip_area.width + 10;
5052   if (area.y < 0)
5053     {
5054       area.height = area.height + area.y;
5055       area.y = 0;
5056     }
5057   if (area.height > clip_area.height) area.height = clip_area.height + 10;
5058
5059   clip_area.x--;
5060   clip_area.y--;
5061   clip_area.width += 3;
5062   clip_area.height += 3;
5063
5064   gdk_gc_get_values (sheet->xor_gc, &values);
5065
5066   gdk_gc_set_clip_rectangle (sheet->xor_gc, &clip_area);
5067
5068   gdk_draw_rectangle (sheet->sheet_window,
5069                       sheet->xor_gc,
5070                       FALSE,
5071                       area.x + i, area.y + i,
5072                       area.width - 2 * i, area.height - 2 * i);
5073
5074
5075   gdk_gc_set_clip_rectangle (sheet->xor_gc, NULL);
5076
5077   gdk_gc_set_foreground (sheet->xor_gc, &values.foreground);
5078 }
5079
5080
5081 static void
5082 set_column_width (GtkSheet *sheet,
5083                   gint column,
5084                   gint width)
5085 {
5086   g_return_if_fail (sheet != NULL);
5087   g_return_if_fail (GTK_IS_SHEET (sheet));
5088
5089   if (column < 0 || column >= psppire_axis_unit_count (sheet->haxis))
5090     return;
5091
5092   psppire_axis_resize (sheet->haxis, column, width);
5093
5094   if (GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
5095     {
5096       draw_column_title_buttons (sheet);
5097       adjust_scrollbars (sheet);
5098       gtk_sheet_size_allocate_entry (sheet);
5099       redraw_range (sheet, NULL);
5100     }
5101 }
5102
5103 static void
5104 set_row_height (GtkSheet *sheet,
5105                 gint row,
5106                 gint height)
5107 {
5108   g_return_if_fail (sheet != NULL);
5109   g_return_if_fail (GTK_IS_SHEET (sheet));
5110
5111   if (row < 0 || row >= psppire_axis_unit_count (sheet->vaxis))
5112     return;
5113
5114   psppire_axis_resize (sheet->vaxis, row, height);
5115
5116   if (GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)) )
5117     {
5118       draw_row_title_buttons (sheet);
5119       adjust_scrollbars (sheet);
5120       gtk_sheet_size_allocate_entry (sheet);
5121       redraw_range (sheet, NULL);
5122     }
5123 }
5124
5125 gboolean
5126 gtk_sheet_get_attributes (const GtkSheet *sheet, gint row, gint col,
5127                           GtkSheetCellAttr *attr)
5128 {
5129   GdkColor *fg, *bg;
5130   const GtkJustification *j ;
5131   GdkColormap *colormap;
5132
5133   g_return_val_if_fail (sheet != NULL, FALSE);
5134   g_return_val_if_fail (GTK_IS_SHEET (sheet), FALSE);
5135
5136   if (row < 0 || col < 0) return FALSE;
5137
5138   attr->foreground = GTK_WIDGET (sheet)->style->black;
5139   attr->background = sheet->color[BG_COLOR];
5140
5141   attr->border.width = 0;
5142   attr->border.line_style = GDK_LINE_SOLID;
5143   attr->border.cap_style = GDK_CAP_NOT_LAST;
5144   attr->border.join_style = GDK_JOIN_MITER;
5145   attr->border.mask = 0;
5146   attr->border.color = GTK_WIDGET (sheet)->style->black;
5147
5148   attr->is_editable = g_sheet_model_is_editable (sheet->model, row, col);
5149
5150   colormap = gtk_widget_get_colormap (GTK_WIDGET (sheet));
5151   fg = g_sheet_model_get_foreground (sheet->model, row, col);
5152   if ( fg )
5153     {
5154       gdk_colormap_alloc_color (colormap, fg, TRUE, TRUE);
5155       attr->foreground = *fg;
5156     }
5157
5158   bg = g_sheet_model_get_background (sheet->model, row, col);
5159   if ( bg )
5160     {
5161       gdk_colormap_alloc_color (colormap, bg, TRUE, TRUE);
5162       attr->background = *bg;
5163     }
5164
5165   attr->justification =
5166     g_sheet_model_get_column_justification (sheet->model, col);
5167
5168   j = g_sheet_model_get_justification (sheet->model, row, col);
5169   if (j)
5170     attr->justification = *j;
5171
5172   return TRUE;
5173 }
5174
5175 static void
5176 gtk_sheet_button_size_request    (GtkSheet *sheet,
5177                                   const GtkSheetButton *button,
5178                                   GtkRequisition *button_requisition)
5179 {
5180   GtkRequisition requisition;
5181   GtkRequisition label_requisition;
5182
5183   label_requisition.height = DEFAULT_ROW_HEIGHT;
5184   label_requisition.width = COLUMN_MIN_WIDTH;
5185
5186   requisition.height = DEFAULT_ROW_HEIGHT;
5187   requisition.width = COLUMN_MIN_WIDTH;
5188
5189
5190   *button_requisition = requisition;
5191   button_requisition->width = MAX (requisition.width, label_requisition.width);
5192   button_requisition->height = MAX (requisition.height, label_requisition.height);
5193
5194 }
5195
5196 static void
5197 gtk_sheet_forall (GtkContainer *container,
5198                   gboolean include_internals,
5199                   GtkCallback callback,
5200                   gpointer callback_data)
5201 {
5202   GtkSheet *sheet = GTK_SHEET (container);
5203
5204   g_return_if_fail (callback != NULL);
5205
5206   if (sheet->button && sheet->button->parent)
5207     (* callback) (sheet->button, callback_data);
5208
5209   if (sheet->entry_widget && GTK_IS_CONTAINER (sheet->entry_widget))
5210     (* callback) (sheet->entry_widget, callback_data);
5211 }
5212
5213
5214 GSheetModel *
5215 gtk_sheet_get_model (const GtkSheet *sheet)
5216 {
5217   g_return_val_if_fail (GTK_IS_SHEET (sheet), NULL);
5218
5219   return sheet->model;
5220 }
5221
5222
5223 GtkSheetButton *
5224 gtk_sheet_button_new (void)
5225 {
5226   GtkSheetButton *button = g_malloc (sizeof (GtkSheetButton));
5227
5228   button->state = GTK_STATE_NORMAL;
5229   button->label = NULL;
5230   button->label_visible = TRUE;
5231   button->justification = GTK_JUSTIFY_FILL;
5232
5233   return button;
5234 }
5235
5236
5237 void
5238 gtk_sheet_button_free (GtkSheetButton *button)
5239 {
5240   if (!button) return ;
5241
5242   g_free (button->label);
5243   g_free (button);
5244 }
5245
5246 static void
5247 append_cell_text (GString *string, const GtkSheet *sheet, gint r, gint c)
5248 {
5249   gchar *celltext = gtk_sheet_cell_get_text (sheet, r, c);
5250
5251   if ( NULL == celltext)
5252     return;
5253
5254   g_string_append (string, celltext);
5255   g_free (celltext);
5256 }
5257
5258
5259 static GString *
5260 range_to_text (const GtkSheet *sheet)
5261 {
5262   gint r, c;
5263   GString *string;
5264
5265   if ( !gtk_sheet_range_isvisible (sheet, &sheet->range))
5266     return NULL;
5267
5268   string = g_string_sized_new (80);
5269
5270   for (r = sheet->range.row0; r <= sheet->range.rowi; ++r)
5271     {
5272       for (c = sheet->range.col0; c < sheet->range.coli; ++c)
5273         {
5274           append_cell_text (string, sheet, r, c);
5275           g_string_append (string, "\t");
5276         }
5277       append_cell_text (string, sheet, r, c);
5278       if ( r < sheet->range.rowi)
5279         g_string_append (string, "\n");
5280     }
5281
5282   return string;
5283 }
5284
5285 static GString *
5286 range_to_html (const GtkSheet *sheet)
5287 {
5288   gint r, c;
5289   GString *string;
5290
5291   if ( !gtk_sheet_range_isvisible (sheet, &sheet->range))
5292     return NULL;
5293
5294   string = g_string_sized_new (480);
5295
5296   g_string_append (string, "<html>\n");
5297   g_string_append (string, "<body>\n");
5298   g_string_append (string, "<table>\n");
5299   for (r = sheet->range.row0; r <= sheet->range.rowi; ++r)
5300     {
5301       g_string_append (string, "<tr>\n");
5302       for (c = sheet->range.col0; c <= sheet->range.coli; ++c)
5303         {
5304           g_string_append (string, "<td>");
5305           append_cell_text (string, sheet, r, c);
5306           g_string_append (string, "</td>\n");
5307         }
5308       g_string_append (string, "</tr>\n");
5309     }
5310   g_string_append (string, "</table>\n");
5311   g_string_append (string, "</body>\n");
5312   g_string_append (string, "</html>\n");
5313
5314   return string;
5315 }
5316
5317 enum {
5318   SELECT_FMT_NULL,
5319   SELECT_FMT_TEXT,
5320   SELECT_FMT_HTML
5321 };
5322
5323 static void
5324 primary_get_cb (GtkClipboard     *clipboard,
5325                 GtkSelectionData *selection_data,
5326                 guint             info,
5327                 gpointer          data)
5328 {
5329   GtkSheet *sheet = GTK_SHEET (data);
5330   GString *string = NULL;
5331
5332   switch (info)
5333     {
5334     case SELECT_FMT_TEXT:
5335       string = range_to_text (sheet);
5336       break;
5337     case SELECT_FMT_HTML:
5338       string = range_to_html (sheet);
5339       break;
5340     default:
5341       g_assert_not_reached ();
5342     }
5343
5344   gtk_selection_data_set (selection_data, selection_data->target,
5345                           8,
5346                           (const guchar *) string->str, string->len);
5347   g_string_free (string, TRUE);
5348 }
5349
5350 static void
5351 primary_clear_cb (GtkClipboard *clipboard,
5352                   gpointer      data)
5353 {
5354   GtkSheet *sheet = GTK_SHEET (data);
5355   if ( ! GTK_WIDGET_REALIZED (GTK_WIDGET (sheet)))
5356     return;
5357
5358   gtk_sheet_real_unselect_range (sheet, NULL);
5359 }
5360
5361 static void
5362 gtk_sheet_update_primary_selection (GtkSheet *sheet)
5363 {
5364   static const GtkTargetEntry targets[] = {
5365     { "UTF8_STRING",   0, SELECT_FMT_TEXT },
5366     { "STRING",        0, SELECT_FMT_TEXT },
5367     { "TEXT",          0, SELECT_FMT_TEXT },
5368     { "COMPOUND_TEXT", 0, SELECT_FMT_TEXT },
5369     { "text/plain;charset=utf-8", 0, SELECT_FMT_TEXT },
5370     { "text/plain",    0, SELECT_FMT_TEXT },
5371     { "text/html",     0, SELECT_FMT_HTML }
5372   };
5373
5374   GtkClipboard *clipboard;
5375
5376   if (!GTK_WIDGET_REALIZED (sheet))
5377     return;
5378
5379   clipboard = gtk_widget_get_clipboard (GTK_WIDGET (sheet),
5380                                         GDK_SELECTION_PRIMARY);
5381
5382   if (gtk_sheet_range_isvisible (sheet, &sheet->range))
5383     {
5384       if (!gtk_clipboard_set_with_owner (clipboard, targets,
5385                                          G_N_ELEMENTS (targets),
5386                                          primary_get_cb, primary_clear_cb,
5387                                          G_OBJECT (sheet)))
5388         primary_clear_cb (clipboard, sheet);
5389     }
5390   else
5391     {
5392       if (gtk_clipboard_get_owner (clipboard) == G_OBJECT (sheet))
5393         gtk_clipboard_clear (clipboard);
5394     }
5395 }