/*****************************************************************************
#   Copyright (C) 1994-2008 by David Gordon.
#   All rights reserved.                           
#                                                                           
#   This software is part of a beta-test version of the Consed/Autofinish
#   package.  It should not be redistributed or
#   used for any commercial purpose, including commercially funded
#   sequencing, without written permission from the author and the
#   University of Washington.
#   
#   This software is provided ``AS IS'' and any express or implied
#   warranties, including, but not limited to, the implied warranties of
#   merchantability and fitness for a particular purpose, are disclaimed.
#   In no event shall the authors or the University of Washington be
#   liable for any direct, indirect, incidental, special, exemplary, or
#   consequential damages (including, but not limited to, procurement of
#   substitute goods or services; loss of use, data, or profits; or
#   business interruption) however caused and on any theory of liability,
#   whether in contract, strict liability, or tort (including negligence
#   or otherwise) arising in any way out of the use of this software, even
#   if advised of the possibility of such damage.
#
#   Building Consed from source is error prone and not simple which is
#   why I provide executables.  Due to time limitations I cannot
#   provide any assistance in building Consed.  Even if you do not
#   modify the source, you may introduce errors due to using a
#   different version of the compiler, a different version of motif,
#   different versions of other libraries than I used, etc.  For this
#   reason, if you discover Consed bugs, I can only offer help with
#   those bugs if you first reproduce those bugs with an executable
#   provided by me--not an executable you have built.
# 
#   Modifying Consed is also difficult.  Although Consed is modular,
#   some modules are used by many other modules.  Thus making a change
#   in one place can have unforeseen effects on many other features.
#   It may takes months for you to notice these other side-effects
#   which may not seen connected at all.  It is not feasable for me to
#   provide help with modifying Consed sources because of the
#   potentially huge amount of time involved.
#
#*****************************************************************************/
//
// fileselector.cpp
//
// implementation for the FileSelector object
//
// chrisa 24-Jan-95
//




#include <Xm/Xm.h>
#include <Xm/SelectioB.h>
#include <Xm/FileSB.h>

#include "sysdepend.h"
#include "fileselector.h"
#include "guiapp.h"


// this does not need to be a friend, since it only unmanages
// the passed widget
void fsbCbCancel(Widget,
		 FileSelector*,
		 XmFileSelectionBoxCallbackStruct*);


FileSelector::FileSelector() {

  Arg aArg[10];
  int nArgs;

  nArgs = 0;
  widFsb_ = XmCreateFileSelectionDialog(GuiApp::pGetGuiApp()->widGetTopLevel(),
                                        "FileSelector",
                                        aArg, 
                                        nArgs);

  // no help button
  XtUnmanageChild(XmSelectionBoxGetChild(widFsb_, XmDIALOG_HELP_BUTTON));

  // ok button callback
  XtAddCallback(widFsb_, 
		XmNokCallback,
		(XtCallbackProc )fsbCbOk,
		this);

  // cancel button callback
  XtAddCallback(widFsb_, 
		XmNcancelCallback,
		(XtCallbackProc )fsbCbCancel,
		this);
}


void FileSelector::setTitleString(const char* szTitle) {
  // set the title to passed value
  assert(szTitle);  // bug spray

  Arg aArg[10];
  int nArgs = 0;

  XmString xmsTitle = XmStringCreateSimple((char* )szTitle);
  XtSetArg(aArg[nArgs], XmNdialogTitle, xmsTitle); nArgs++;
  XtSetArg(aArg[nArgs], XmNselectionLabelString, xmsTitle); nArgs++;
  XtSetValues(widFsb_, aArg, nArgs);

  XmStringFree(xmsTitle);
}


// sets the directory mask for the motif file selection box
void FileSelector::setDirMask(const char* szDirMask) {
  assert(szDirMask);  // bug spray

  Arg aArg[10];
  int nArgs = 0;

  XmString xmsDirMask = XmStringCreateSimple((char* )szDirMask );
  XtSetArg( aArg[nArgs], XmNdirMask, xmsDirMask ); nArgs++;
  XtSetValues(widFsb_, aArg, nArgs);

  XmStringFree(xmsDirMask);
}


// sets the complete specification of the file path i.e. the default
// file selected if the user just presses OK
void FileSelector::setDirSpec(const char* szDirSpec) {
  Arg aArg[10];
  int nArgs = 0;

  XmString xmsDirSpec = XmStringCreateSimple((char* )szDirSpec);
  XtSetArg( aArg[nArgs], XmNdirSpec, xmsDirSpec ); nArgs++;
  XtSetValues(widFsb_, aArg, nArgs);

  XmStringFree(xmsDirSpec);
}


// sets the title string and saves callback pointer before managing
FileName FileSelector::popUpAndGetFilePath(const char* szTitle, 
                                           const char* szDirMask,
                                           const char* szFileName) {

   assert (szTitle && szDirMask);

   setTitleString(szTitle);   // set selection box title
   setDirMask(szDirMask);        // set directory mask
   if (szFileName) setDirSpec(szFileName);  // default file name

   // clear the file path member
   soFullFilePath_ = "";

   // manage the box
   XtManageChild(widFsb_);

   // Do not allow the program to continue until the user has seen and
   // acknowledged this message.
   bBlockApplication_ = true;  // xt callback must clear

   XEvent xevent;
   while( bBlockApplication_ ) {
      XtAppNextEvent( GuiApp::pGetGuiApp()->ctxGetAppContext(), &xevent);
      XtDispatchEvent( &xevent);
   }

   // return whatever the callback did or didn't leave
   // in the private member data
   return soFullFilePath_;
}

void fsbCbOk(Widget wid,
	     FileSelector* pFS,
	     XmFileSelectionBoxCallbackStruct* cbs) {
  XtUnmanageChild(wid);
  XFlush(XtDisplay(wid));

  char* szFilePath;
  assert (XmStringGetLtoR(cbs->value, 
			  XmSTRING_DEFAULT_CHARSET, 
			  &szFilePath));

  // save in member data whatever we got
  pFS->soFullFilePath_ = szFilePath ;

  // unblock
  pFS->bBlockApplication_ = false;
}

void fsbCbCancel(Widget wid,
		 FileSelector* pFS,
		 XmFileSelectionBoxCallbackStruct* cbs) {
  XtUnmanageChild(wid);

  // unblock
  pFS->bBlockApplication_ = false;
}