/*****************************************************************************
#   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    "guiSearchForTagsByComment.h"
#include    "hp_exception_kludge.h"
#include    "handleWindowManagerDelete2.h"
#include    <Xm/TextF.h>
#include    <Xm/Label.h>
#include    <Xm/Form.h>
#include    <Xm/PushB.h>
#include    "consed.h"


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

   guiSearchForTagsByComment* pGuiSearchForTagsByComment =
      (guiSearchForTagsByComment*) pClientData;

   TRY_CATCH_WRAPPER( delete pGuiSearchForTagsByComment );

}


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

   guiSearchForTagsByComment* pGuiSearchForTagsByComment =
      (guiSearchForTagsByComment*) pClientData;

   TRY_CATCH_WRAPPER( pGuiSearchForTagsByComment->userPushedSearchButton() );
}

void guiSearchForTagsByComment :: createWindow() {

   int nArgs;
   Arg aArg[50];

   widPopupShell_ = 
      XtVaCreatePopupShell( "Search for String in Tag Comments",
                            topLevelShellWidgetClass,
                            GAPP->widGetTopLevel(),
                            XmNtitle, "Search for String in Tag Comments",
                            XmNnoResize, False,
                            XmNtransient, False,
                            XmNdeleteResponse, XmDO_NOTHING,
                            NULL );

   handleWindowManagerDelete2( widPopupShell_,
                               cbCancelButton,
                               this );

   // create a form widget

   Widget widTopForm = XtVaCreateManagedWidget( "top form",
                                                xmFormWidgetClass,
                                                widPopupShell_,
                                                XmNshadowThickness, 0,
                                                XmNborderWidth, 0,
                                                NULL );

   widStringToFindInTagComments_ = 
      XtVaCreateManagedWidget( "string_in_comment",
                               xmTextFieldWidgetClass,
                               widTopForm,
                               XmNtopAttachment, XmATTACH_FORM,
                               NULL );

   Widget widStringToFindInTagCommentsLabel =
      XtVaCreateManagedWidget( "String to find in tag comments:",
                               xmLabelWidgetClass,
                               widTopForm,
                               XmNtopAttachment, XmATTACH_OPPOSITE_WIDGET,
                               XmNtopWidget, widStringToFindInTagComments_,
                               XmNbottomAttachment, XmATTACH_OPPOSITE_WIDGET,
                               XmNbottomWidget, widStringToFindInTagComments_,
                               XmNleftAttachment, XmATTACH_FORM,
                               XmNalignment, XmALIGNMENT_END,
                               NULL );

   const int nSpaceBetweenLabelAndField = 10;

   Dimension dimWidth;

   XtVaGetValues( widStringToFindInTagCommentsLabel,
                  XmNwidth, &dimWidth,
                  NULL );

   XtVaSetValues( widStringToFindInTagComments_,
                  XmNleftAttachment, XmATTACH_FORM,
                  XmNleftOffset, dimWidth + nSpaceBetweenLabelAndField,
                  NULL );

   // with this, if the user pushes "enter" when in the "string to find"
   // box, the search will be performed

   XtAddCallback( widStringToFindInTagComments_,
                  XmNactivateCallback,
                  cbSearchButton,
                  this );

   Widget widSearchButton =
      XtVaCreateManagedWidget( "search",
                               xmPushButtonWidgetClass,
                               widTopForm,
                               XmNbottomAttachment, XmATTACH_FORM,
                               XmNtopAttachment, XmATTACH_WIDGET,
                               XmNtopWidget, widStringToFindInTagComments_,
                               XmNleftAttachment, XmATTACH_FORM,
                               NULL );

   XtAddCallback( widSearchButton,
                  XmNactivateCallback,
                  cbSearchButton,
                  this );

   Widget widCancelButton =
      XtVaCreateManagedWidget( "cancel",
                               xmPushButtonWidgetClass,
                               widTopForm,
                               XmNbottomAttachment, XmATTACH_FORM,
                               XmNtopAttachment, XmATTACH_WIDGET,
                               XmNtopWidget, widStringToFindInTagComments_,
                               XmNrightAttachment, XmATTACH_FORM,
                               NULL );

   XtAddCallback( widCancelButton,
                  XmNactivateCallback,
                  cbCancelButton,
                  this );

   XtPopup( widPopupShell_, XtGrabNone );

   // make the query box initially have input focus

   XmProcessTraversal( widStringToFindInTagComments_, XmTRAVERSE_CURRENT );

}




void guiSearchForTagsByComment :: userPushedSearchButton() {

   char* szStringToSearchFor = XmTextFieldGetString( widStringToFindInTagComments_ );
   RWCString soStringToSearchFor( szStringToSearchFor );

   XtFree( szStringToSearchFor );

   ConsEd::pGetAssembly()->navigateByTagsFindStringInComment( soStringToSearchFor );
}



guiSearchForTagsByComment :: ~guiSearchForTagsByComment() {

   XtPopdown( widPopupShell_ );
   XtDestroyWidget( widPopupShell_ );

}