lib/gtksheet/gtksheet.c

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