/*****************************************************************************
#   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.
#
#*****************************************************************************/
#include    <Xm/Xm.h>
#include    <Xm/Form.h>
#include    <Xm/PushB.h>
#include    <Xm/Text.h>
#include    <Xm/Label.h>
#include    <Xm/List.h>
#include    "guiChoiceOfReadsForAlignedReads.h"
#include    "choose_contig.h"
#include    "guiapp.h"
#include    "handleWindowManagerDelete2.h"
#include    "hp_exception_kludge.h"
#include    "consed.h"




static void cbUserPushedDismiss( Widget wid,
                                XtPointer pClientData,
                                XtPointer pCallData ) {

   guiChoiceOfReadsForAlignedReads* pGuiChoice = 
      (guiChoiceOfReadsForAlignedReads*) pClientData;
   
   TRY_CATCH_WRAPPER(
                     delete pGuiChoice;
                     );
}


static void cbUserClickedOnRead( Widget wid,
                                 XtPointer pClientData,
                                 XtPointer pCallData ) {

   guiChoiceOfReadsForAlignedReads* pGuiChoice = 
      (guiChoiceOfReadsForAlignedReads*) pClientData;

   XmListCallbackStruct* pXmListCallbackStruct = 
     (XmListCallbackStruct*) pCallData;

   TRY_CATCH_WRAPPER(
                     pGuiChoice->userClickedOnRead( pXmListCallbackStruct );
                     );
}




void guiChoiceOfReadsForAlignedReads :: popup() {

   widPopupShell_ = XtVaCreatePopupShell(
      "guiChoiceOfReadsForAlignedReads",
      topLevelShellWidgetClass,
      GuiApp::pGetGuiApp()->widGetTopLevel(),
      XmNtitle, (char*) "Click on a Read",
      XmNtransient, False,
      XmNdeleteResponse, XmDO_NOTHING,
      NULL );

   handleWindowManagerDelete2( widPopupShell_, cbUserPushedDismiss, this );

   Widget widForm = XtVaCreateManagedWidget( "form",
                                             xmFormWidgetClass,
                                             widPopupShell_,
                                             XmNancestorSensitive, True,
                                             NULL );

   Widget widInstructions = XtVaCreateManagedWidget(
       "Click on the read you want to view in the Aligned Reads Window",
       xmLabelWidgetClass,
       widForm,
       XmNtopAttachment, XmATTACH_FORM,
       XmNleftAttachment, XmATTACH_FORM,
       XmNrightAttachment, XmATTACH_FORM,
       NULL );


   widDismissButton_ = XtVaCreateManagedWidget(
       "Dismiss",
       xmPushButtonWidgetClass,
       widForm,
       XmNbottomAttachment, XmATTACH_FORM,
       XmNbottomOffset, 10,
       XmNleftAttachment, XmATTACH_POSITION,
       XmNleftPosition, 45,
       XmNrightAttachment, XmATTACH_POSITION,
       XmNrightPosition, 55,
       NULL );

   XtAddCallback( widDismissButton_,
                  XmNactivateCallback,
                  cbUserPushedDismiss,
                  this );


   int nNumberOfReads = pChooseContig_->nNumberOfFragments();

   XmStringTable ppXtString = 
      ( XmStringTable ) XtMalloc( nNumberOfReads * sizeof( XmString ) );

   RWCString soTemp( (size_t) 1000 );

   for( int nRead = 0; nRead < nNumberOfReads; ++nRead ) {

      soTemp = pChooseContig_->soGetFragmentName( nRead ) + "   " +
         pChooseContig_->soGetContigNameForFragment( nRead );

      LocatedFragment* pLocFrag = pChooseContig_->pGetLocatedFragment( nRead );
      Contig* pContig = pLocFrag->pGetContig();

      sprintf( 
               soTemp.data() + soTemp.length(),
               " (~%d bps from %d to %d )",
               pLocFrag->nGetNumberOfPhredCalledBases(),
               pContig->nUnpaddedIndex( pLocFrag->nGetAlignStart() ),
               pContig->nUnpaddedIndex( pLocFrag->nGetAlignEnd() )
              );

      ppXtString[ nRead ] = XmStringCreateSimple( soTemp.data() );
   }


   Arg aArg[50];
   int nArgs;


   nArgs = 0;
   XtSetArg( aArg[ nArgs ], XmNleftAttachment, XmATTACH_FORM ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNrightAttachment, XmATTACH_FORM ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNleftOffset, 20 ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNrightOffset, 20 ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNtopAttachment, XmATTACH_WIDGET ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNbottomAttachment, XmATTACH_WIDGET ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNtopWidget, widInstructions ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNbottomWidget, widDismissButton_ ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNleftAttachment, XmATTACH_FORM ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNleftAttachment, XmATTACH_FORM ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNselectionPolicy, XmSINGLE_SELECT ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNvisibleItemCount, 8 ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNitems, ppXtString ); ++nArgs;
   XtSetArg( aArg[ nArgs ], XmNitemCount, nNumberOfReads ); ++nArgs;
   // definitely don't want this because this will cause
   // most of the window to be blank with only 1 read showing even
   // though there may be many
   //   XtSetArg( aArg[ nArgs ], XmNtopItemPosition, nNumberOfReads ); ++nArgs;

               
   widReadList_ = XmCreateScrolledList( widForm, "ReadList", aArg, nArgs );

   XtManageChild( widReadList_ );


   XtAddCallback( widReadList_,
                  XmNsingleSelectionCallback,
                  cbUserClickedOnRead,
                  this );

   XtAddCallback( widReadList_,
                  XmNdefaultActionCallback,
                  cbUserClickedOnRead,
                  this );

   XtPopup( widPopupShell_, XtGrabNone );
}




void guiChoiceOfReadsForAlignedReads :: userClickedOnRead( 
                    XmListCallbackStruct* pXmListCallbackStruct ) {

   int nOneBasedListIndex =  pXmListCallbackStruct->item_position;

   LocatedFragment* pLocFrag = 
      pChooseContig_->pGetLocatedFragment( nOneBasedListIndex - 1 );

   ConsEd::pGetConsEd()->choseContig2( pLocFrag );

}


guiChoiceOfReadsForAlignedReads :: ~guiChoiceOfReadsForAlignedReads() {

   XtPopdown( widPopupShell_ );

   XtDestroyWidget( widPopupShell_ );

   delete pChooseContig_;
}