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