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