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