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