lib/gtksheet/gtksheet.c

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