lib/gtksheet/gtksheet.c

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