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