//

// "$Id: table-spreadsheet-with-keyboard-nav.cxx 9838 2013-03-18 20:00:04Z greg.ercolano $"

//

//	Simple example of an interactive spreadsheet using Fl_Table.

//	Uses Mr. Satan's technique of instancing an Fl_Input around.

//	Modified to test Jean-Marc's mods for keyboard nav and mouse selection.

//

//      Fl_Table[1.00/LGPL] 04/18/03 Mister Satan      -- Initial implementation, submitted to erco for Fl_Table

//      Fl_Table[1.10/LGPL] 05/17/03 Greg Ercolano     -- Small mods to follow changes to Fl_Table

//      Fl_Table[1.20/LGPL] 02/22/04 Jean-Marc Lienher -- Keyboard nav and mouse selection

//      Fl_Table[1.21/LGPL] 02/22/04 Greg Ercolano     -- Small reformatting mods, comments

//         FLTK[1.3.0/LGPL] 10/26/10 Greg Ercolano     -- Moved from Fl_Table to FLTK 1.3.x, CMP compliance

//

// Copyright 1998-2010 by Bill Spitzak and others.

//

// This library is free software. Distribution and use rights are outlined in

// the file "COPYING" which should have been included with this file.  If this

// file is missing or damaged, see the license at:

//

//     http://www.fltk.org/COPYING.php

//

// Please report all bugs and problems on the following page:

//

//     http://www.fltk.org/str.php

//

#include <stdio.h>

#include <stdlib.h>

#include <FL/Fl.H>

#include <FL/Fl_Double_Window.H>

#include <FL/Fl_Table.H>

#include <FL/Fl_Int_Input.H>

#include <FL/Fl_Value_Slider.H>

#include <FL/fl_draw.H>

const int MAX_COLS = 26;

const int MAX_ROWS = 500;

class Spreadsheet : public Fl_Table {

  Fl_Int_Input *input;					// single instance of Fl_Int_Input widget

  int values[MAX_ROWS][MAX_COLS];			// array of data for cells

  int row_edit, col_edit;				// row/col being modified

  int s_left, s_top, s_right, s_bottom;			// kb nav + mouse selection

protected:

  void draw_cell(TableContext context,int=0,int=0,int=0,int=0,int=0,int=0);

  void event_callback2();				// table's event callback (instance)

  static void event_callback(Fl_Widget*, void *v) {	// table's event callback (static)

    ((Spreadsheet*)v)->event_callback2();

  }

  static void input_cb(Fl_Widget*, void* v) {		// input widget's callback

    ((Spreadsheet*)v)->set_value_hide();

  }

public:

  Spreadsheet(int X,int Y,int W,int H,const char* L=0) : Fl_Table(X,Y,W,H,L) {

    callback(&event_callback, (void*)this);

    when(FL_WHEN_NOT_CHANGED|when());

    // Create input widget that we'll use whenever user clicks on a cell

    input = new Fl_Int_Input(W/2,H/2,0,0);

    input->hide();

    input->callback(input_cb, (void*)this);

    input->when(FL_WHEN_ENTER_KEY_ALWAYS);		// callback triggered when user hits Enter

    input->maximum_size(5);

    row_edit = col_edit = 0;

    s_left = s_top = s_right = s_bottom = 0;

    for (int c = 0; c < MAX_COLS; c++)

      for (int r = 0; r < MAX_ROWS; r++)

	values[r][c] = (r + 2) * (c + 3);		// initialize cells

    end();

  }

  ~Spreadsheet() { }

  // Apply value from input widget to values[row][col] array and hide (done editing)

  void set_value_hide() {

    values[row_edit][col_edit] = atoi(input->value());

    input->hide();

    window()->cursor(FL_CURSOR_DEFAULT);		// XXX: if we don't do this, cursor can disappear!

  }

  // Change number of rows

  void rows(int val) {

    Fl_Table::rows(val);

  }

  // Change number of columns

  void cols(int val) {

    Fl_Table::cols(val);

  }

  // Get number of rows

  inline int rows() {

    return Fl_Table::rows();

  }

  // Get number of columns

  inline int cols() {

    return Fl_Table::cols();

  }

  // Start editing a new cell: move the Fl_Int_Input widget to specified row/column

  //    Preload the widget with the cell's current value,

  //    and make the widget 'appear' at the cell's location.

  //

  void start_editing(int R, int C) {

    row_edit = R;					// Now editing this row/col

    col_edit = C;

    int X,Y,W,H;

    find_cell(CONTEXT_CELL, R,C, X,Y,W,H);		// Find X/Y/W/H of cell

    input->resize(X,Y,W,H);				// Move Fl_Input widget there

    char s[30]; sprintf(s, "%d", values[R][C]);		// Load input widget with cell's current value

    input->value(s);

    input->position(0,strlen(s));			// Select entire input field

    input->show();					// Show the input widget, now that we've positioned it

    input->take_focus();

  }

  // Tell the input widget it's done editing, and to 'hide'

  void done_editing() {

    if (input->visible()) {				// input widget visible, ie. edit in progress?

      set_value_hide();					// Transfer its current contents to cell and hide

    }

  }

  // Return the sum of all rows in this column

  int sum_rows(int C) {

    int sum = 0;

    for (int r=0; r

      sum += values[r][C];

    return(sum);

  }

  // Return the sum of all cols in this row

  int sum_cols(int R) {

    int sum = 0;

    for (int c=0; c

      sum += values[R][c];

    return(sum);

  }

  // Return the sum of all cells in table

  int sum_all() {

    int sum = 0;

    for (int c=0; c

      for (int r=0; r

	sum += values[r][c];

    return(sum);

  }

};

// Handle drawing all cells in table

void Spreadsheet::draw_cell(TableContext context, int R,int C, int X,int Y,int W,int H) {

  static char s[30]; 

  switch ( context ) {

    case CONTEXT_STARTPAGE:			// table about to redraw

      // Get kb nav + mouse 'selection region' for use below

      get_selection(s_top, s_left, s_bottom, s_right);

      break;

    case CONTEXT_COL_HEADER:			// table wants us to draw a column heading (C is column)

      fl_font(FL_HELVETICA | FL_BOLD, 14);	// set font for heading to bold

      fl_push_clip(X,Y,W,H);			// clip region for text

      {

	fl_draw_box(FL_THIN_UP_BOX, X,Y,W,H, col_header_color());

	fl_color(FL_BLACK);

	if (C == cols()-1) {			// Last column? show 'TOTAL'

	  fl_draw("TOTAL", X,Y,W,H, FL_ALIGN_CENTER);

	} else {				// Not last column? show column letter

	  sprintf(s, "%c", 'A' + C);

	  fl_draw(s, X,Y,W,H, FL_ALIGN_CENTER);

	}

      }

      fl_pop_clip();

      return;

    case CONTEXT_ROW_HEADER:			// table wants us to draw a row heading (R is row)

      fl_font(FL_HELVETICA | FL_BOLD, 14);	// set font for row heading to bold

      fl_push_clip(X,Y,W,H);

      {

	fl_draw_box(FL_THIN_UP_BOX, X,Y,W,H, row_header_color());

	fl_color(FL_BLACK);

	if (R == rows()-1) {			// Last row? Show 'Total'

	  fl_draw("TOTAL", X,Y,W,H, FL_ALIGN_CENTER);

	} else {				// Not last row? show row#

	  sprintf(s, "%d", R+1);

	  fl_draw(s, X,Y,W,H, FL_ALIGN_CENTER);

	}

      }

      fl_pop_clip();

      return;

    case CONTEXT_CELL: {			// table wants us to draw a cell

      if (R == row_edit && C == col_edit && input->visible()) {

	return;					// dont draw for cell with input widget over it

      }

      // Background

      // Keyboard nav and mouse selection highlighting

      if (R >= s_top && R <= s_bottom && C >= s_left && C <= s_right) {

	fl_draw_box(FL_THIN_UP_BOX, X,Y,W,H, FL_YELLOW);

      } else if ( C < cols()-1 && R < rows()-1 ) {

	fl_draw_box(FL_THIN_UP_BOX, X,Y,W,H, FL_WHITE);

      } else {

	fl_draw_box(FL_THIN_UP_BOX, X,Y,W,H, 0xbbddbb00);	// money green

      }

      // Text

      fl_push_clip(X+3, Y+3, W-6, H-6);

      {

	fl_color(FL_BLACK); 

	if (C == cols()-1 || R == rows()-1) {	// Last row or col? Show total

	  fl_font(FL_HELVETICA | FL_BOLD, 14);	// ..in bold font

	  if (C == cols()-1 && R == rows()-1) {	// Last row+col? Total all cells

	    sprintf(s, "%d", sum_all());

	  } else if (C == cols()-1) {		// Row subtotal

	    sprintf(s, "%d", sum_cols(R));

	  } else if (R == rows()-1) {		// Col subtotal

	    sprintf(s, "%d", sum_rows(C));

	  }

	  fl_draw(s, X+3,Y+3,W-6,H-6, FL_ALIGN_RIGHT);

	} else {				// Not last row or col? Show cell contents

	  fl_font(FL_HELVETICA, 14);		// ..in regular font

	  sprintf(s, "%d", values[R][C]);

	  fl_draw(s, X+3,Y+3,W-6,H-6, FL_ALIGN_RIGHT);

	}

      }

      fl_pop_clip();

      return;

    }

    case CONTEXT_RC_RESIZE: {			// table resizing rows or columns

      if (!input->visible()) return;

      find_cell(CONTEXT_TABLE, row_edit, col_edit, X, Y, W, H);

      if (X==input->x() && Y==input->y() && W==input->w() && H==input->h()) {

	return;					// no change? ignore

      }

      input->resize(X,Y,W,H);

      return;

    }

    default:

      return;

  }

}

// Callback whenever someone clicks on different parts of the table

void Spreadsheet::event_callback2() {

  int R = callback_row();

  int C = callback_col();

  TableContext context = callback_context(); 

  switch ( context ) {

    case CONTEXT_CELL: {				// A table event occurred on a cell

      switch (Fl::event()) { 				// see what FLTK event caused it

	case FL_PUSH:					// mouse click?

	  done_editing();				// finish editing previous

	  if (R != rows()-1 && C != cols()-1 )		// only edit cells not in total's columns

	    start_editing(R,C);				// start new edit

	  return;

	case FL_KEYBOARD:				// key press in table?

	  if ( Fl::event_key() == FL_Escape ) exit(0);	// ESC closes app

	  if (C == cols()-1 || R == rows()-1) return;	// no editing of totals column

	  done_editing();				// finish any previous editing

	  set_selection(R, C, R, C);			// select the current cell

	  start_editing(R,C);				// start new edit

	  if (Fl::event() == FL_KEYBOARD && Fl::e_text[0] != '\r') {

	    input->handle(Fl::event());			// pass keypress to input widget

	  }

	  return;

      }

      return;

    }

    case CONTEXT_TABLE:					// A table event occurred on dead zone in table

    case CONTEXT_ROW_HEADER:				// A table event occurred on row/column header

    case CONTEXT_COL_HEADER:

      done_editing();					// done editing, hide

      return;

    default:

      return;

  }

}

// Change number of columns

void setcols_cb(Fl_Widget* w, void* v) {

  Spreadsheet* table = (Spreadsheet*)v;

  Fl_Valuator* in = (Fl_Valuator*)w;

  int cols = int(in->value()) + 1;

  table->cols(cols);

  table->redraw();

}

// Change number of rows

void setrows_cb(Fl_Widget* w, void* v) {

  Spreadsheet* table = (Spreadsheet*)v;

  Fl_Valuator* in = (Fl_Valuator*)w;

  int rows = int(in->value()) + 1;

  table->rows(rows);

  table->redraw();

}

int main() {

  Fl::option(Fl::OPTION_ARROW_FOCUS, 1);		// we want arrow keys to navigate table's widgets

  Fl_Double_Window *win = new Fl_Double_Window(922, 382, "Fl_Table Spreadsheet with Keyboard Navigation");

  Spreadsheet* table = new Spreadsheet(20, 20, win->w()-80, win->h()-80);

  // Table rows

  table->row_header(1);

  table->row_header_width(70);

  table->row_resize(1);

  table->rows(11);

  table->row_height_all(25);

  // Table cols

  table->col_header(1);

  table->col_header_height(25);

  table->col_resize(1);

  table->cols(11);

  table->col_width_all(70);

  table->set_selection(0,0,0,0);	// select top/left cell

  // Add children to window

  win->begin();

  // Row slider

  Fl_Value_Slider setrows(win->w()-40,20,20,win->h()-80, 0);

  setrows.type(FL_VERT_NICE_SLIDER);

  setrows.bounds(2,MAX_ROWS);

  setrows.step(1);

  setrows.value(table->rows()-1);

  setrows.callback(setrows_cb, (void*)table);

  setrows.when(FL_WHEN_CHANGED);

  setrows.clear_visible_focus();

  // Column slider

  Fl_Value_Slider setcols(20,win->h()-40,win->w()-80,20, 0);

  setcols.type(FL_HOR_NICE_SLIDER);

  setcols.bounds(2,MAX_COLS);

  setcols.step(1);

  setcols.value(table->cols()-1);

  setcols.callback(setcols_cb, (void*)table);

  setcols.when(FL_WHEN_CHANGED);

  setcols.clear_visible_focus();

  win->end();

  win->resizable(table);

  win->show();

  return Fl::run();

}

//

// End of "$Id: table-spreadsheet-with-keyboard-nav.cxx 9838 2013-03-18 20:00:04Z greg.ercolano $".

//