lib/gtksheet/gtksheet.c

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