root/trunk/FRII/cartwheel-interface/LoadFileWindow.cc

/*
 * This file is part of the FamilyRelations II source distribution.
 *
 * FamilyRelations II is part of the FamilyJewels package for comparative
 * sequence analysis: http://family.caltech.edu/.
 *
 * Contact author: C. Titus Brown, titus@caltech.edu.
 *
 * This program and all associated source code files are Copyright (C) 2003,
 * 2004 the California Institute of Technology, Pasadena, CA, 91125 USA.  It
 * is under the Lesser GNU Public License; please see the included
 * LICENSE.txt file for more information, or contact Titus directly.
 *
 */

// Implementation file for the LoadFileWindow class, which allows the
// loading of sister XML files.

#include <string>

#include <FL/Fl.H>
#include <FL/Fl_Return_Button.H>

#include "LoadFileWindow.hh"
#include <iff.hh>               // cartwheel-clients/sister.c++
#include <sister.hh>            // cartwheel-clients/sister.c++
#include "load_sister.hh"

//
// load button callback
//

static void load_cb(Fl_Widget * w, void * p)
{
  LoadFileWindow * l = (LoadFileWindow*) p;

  l->load_file();
}

//
// choose_select callback
//

static void choose_select_cb(Fl_File_Chooser * w, void * p)
{
  LoadFileWindow * l = (LoadFileWindow*) p;

  l->notify->label("");

  if (!w->value()) {
    return;
  }

  // If it's a good value, stuff it in a holder & make it the input field
  // value, too.
  l->filename_holder = w->value();
  l->filename->value(l->filename_holder.c_str());

#if 0                           // causes crashes on Windows...
  l->load_file();
#endif // 0
}

//
// choose button callback
//

static void choose_cb(Fl_Widget * w, void * p)
{
  LoadFileWindow * l = (LoadFileWindow*) p;

  l->notify->label("");
  l->chooser->show();
}

//
// cancel button callback
//

static void cancel_cb(Fl_Widget * w, void * p)
{
  LoadFileWindow * l = (LoadFileWindow*) p;
  l->window()->hide();
}

//
// LoadFileWindow constructor
//

LoadFileWindow::LoadFileWindow(int x, int y, int w, int h)
  : Fl_Group(x, y, w, h, "Open file")
{
  color(FL_WHITE);

  int text_x = 50;
  int box_x = 200;
  int box_y = 90;

  gui::TextLabel* b;
  b = new gui::TextLabel(text_x, box_y, 100, 24, "File to open:");
  add(b);

  filename = new Fl_Input(box_x, box_y, 200, 24);
  box_y += 24 + 16;

  // load file button
  Fl_Button* load_button = new Fl_Return_Button(130, box_y + 30,
                                                80, 24, "Open");
  add(load_button);
  load_button->callback(load_cb, (void *) this);

  Fl_Button* choose_button = new Fl_Button(220, box_y + 30,
                                           80, 24, "Choose");
  add(choose_button);
  choose_button->callback(choose_cb, (void *) this);

  // cancel button
  Fl_Button* cancel_button = new Fl_Button(310, box_y + 30,
                                            80, 24, "Cancel");
  add(cancel_button);
  cancel_button->callback(cancel_cb, (void *) this);

  chooser = new Fl_File_Chooser(".", NULL,
                                Fl_File_Chooser::SINGLE,
                                "Choose a data file to load:");
  chooser->callback(choose_select_cb, (void *) this);

  // notification widget, initially zippo
  notify = new gui::TextLabel(text_x + 40, box_y + 70, 200, 30, "");
  notify->bold(true);
  add(notify);;
}

//
// load the given file
//

void LoadFileWindow::load_file()
{
  const char * v = filename->value();
  if (!v || strlen(v) == 0) {
    return;
  }

  iff::AnalysisGroup * g = NULL;
  try {
    g = sister::parse_file(v);
  } catch (sister::exception& e) {
    notify->label("Error opening file; try again!");
  }

  if (g != NULL) {
    window()->hide();

    if (g->n_sequences() == 1) {
      load_single((iff::SingleAnalysisGroup*) g);
    } else {
      load_pair((iff::PairAnalysisGroup*) g);
    }
  }
}