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