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