/*****************************************************************************
#   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.
#
#*****************************************************************************/
//
// gui_get_selection.cpp
//
// The purpose of this routine is to get some text, possibly selected in
// a different window or even a different application.  In X, this is
// called a 'selection'.  It may have a different name in different
// gui's.  This routine isolates the gui-specific method of obtaining
// this information.
//
// David Gordon July 1995 
//




#include    <strings.h>
#include    <Xm/Xm.h>
#include    <Xm/AtomMgr.h>
#include    <X11/Xatom.h>
#include    <iostream.h>
#include    <stdio.h>
#include    "guiapp.h"
#include    "rwcstring.h"


const       int MAX_SELECTION_SIZE = 2000;
static     Atom atomTargetList[ 10 ];
static     int  nTargets;
static     char szSelection[MAX_SELECTION_SIZE];
static      bool    bCallbackRan;

void    cbSelection( Widget wid, XtPointer client_data, Atom* pAtomSelection,
                    Atom*   pAtomType, XtPointer    xtpointerValue,
                    unsigned long* pulValueLength, int* pFormat ) {
   
   Display*     pDisplay;
   char*        szTypeName;
   char*        szTargetName;
   Atom         atomTarget;
   char         szString[1024];

   bCallbackRan = true;
   szSelection[0] = '\0';  // in case some failure, don't return garbage

   if (( *pAtomSelection == XT_CONVERT_FAIL ) ||
       ( *pAtomSelection <= 0)) {
      GuiApp::popupErrorMessage( "Selection callback:  no response" );
      return;
   }

   if ( (*pAtomSelection) != XA_PRIMARY ) {
      GuiApp::popupErrorMessage( "Programming error:  not XA_PRIMARY selection" );
      return;
   }

   pDisplay = XtDisplay( wid );

   if (*pAtomType == 0 ) return;

   if ( *pulValueLength <= 0 ) return;


   if (*pAtomType != XA_STRING ) {
      GuiApp::popupErrorMessage( 
               "programming error:  not XA_STRING atom typebut %d", 
               *pAtomType );
      return;
   }



   if (*pulValueLength < MAX_SELECTION_SIZE) {
      strcpy( szSelection, (char*) xtpointerValue );
   }

}


void    guiGetSelection( RWCString& soSelectionText ) {
   



   Display* pDisplay = XtDisplay( GuiApp::pGetGuiApp()->widGetTopLevel() );
   Time     timeStamp = XtLastTimestampProcessed( pDisplay );

   XtGetSelectionValue( GuiApp::pGetGuiApp()->widGetTopLevel(),
                        XA_PRIMARY,     // current selection
                        XA_STRING,
                        (XtSelectionCallbackProc) cbSelection,
                        (XtPointer*) NULL, 
                        timeStamp );

// now wait until the callback has run

   XEvent   xevent;

   bCallbackRan = false;
   while( !bCallbackRan  ) {
      XtAppNextEvent( GuiApp::pGetGuiApp()->ctxGetAppContext(), &xevent);
      XtDispatchEvent( &xevent);
   }

   soSelectionText = szSelection;
}