windows/x11drv/clipboard.c

   1 /*
   2  * X11 windows driver
   3  *
   4  * Copyright 1994 Martin Ayotte
   5  *           1996 Alex Korobka
   6  */
   7
   8 #include "config.h"
   9
  10 #ifndef X_DISPLAY_MISSING
  11
  12 #include <X11/Xatom.h>
  13 #include "ts_xlib.h"
  14
  15 #include "windows.h"
  16 #include "wintypes.h"
  17
  18 #include "clipboard.h"
  19 #include "debug.h"
  20 #include "message.h"
  21 #include "win.h"
  22 #include "x11drv.h"
  23
  24 extern HWND32 hWndClipOwner;
  25 extern HWND32 hWndClipWindow;
  26 extern CLIPFORMAT ClipFormats[];
  27
  28 static Bool   selectionWait = False;
  29 static Bool   selectionAcquired = False;
  30 static Window selectionWindow = None;
  31 static Window selectionPrevWindow = None;
  32
  33 /**************************************************************************
  34  *              X11DRV_CLIPBOARD_CheckSelection [Internal]
  35  *
  36  * Prevent X selection from being lost when a top level window is
  37  * destroyed.
  38  */
  39 static void X11DRV_CLIPBOARD_CheckSelection(WND* pWnd)
  40 {
  41     TRACE(clipboard,"\tchecking %08x\n", (unsigned)pWnd->window);
  42
  43     if( selectionAcquired && selectionWindow != None &&
  44         pWnd->window == selectionWindow )
  45     {
  46         selectionPrevWindow = selectionWindow;
  47         selectionWindow = None;
  48
  49         if( pWnd->next )
  50             selectionWindow = pWnd->next->window;
  51         else if( pWnd->parent )
  52              if( pWnd->parent->child != pWnd )
  53                  selectionWindow = pWnd->parent->child->window;
  54
  55         TRACE(clipboard,"\tswitching selection from %08x to %08x\n",
  56                     (unsigned)selectionPrevWindow, (unsigned)selectionWindow);
  57
  58         if( selectionWindow != None )
  59         {
  60             TSXSetSelectionOwner(display, XA_PRIMARY, selectionWindow, CurrentTime);
  61             if( TSXGetSelectionOwner(display, XA_PRIMARY) != selectionWindow )
  62                 selectionWindow = None;
  63         }
  64     }
  65 }
  66
  67 /**************************************************************************
  68  *              X11DRV_CLIPBOARD_ReadSelection
  69  *
  70  * Called from the SelectionNotify event handler.
  71  */
  72 void X11DRV_CLIPBOARD_ReadSelection(Window w,Atom prop)
  73 {
  74     HANDLE32     hText = 0;
  75     LPCLIPFORMAT lpFormat = ClipFormats;
  76
  77     TRACE(clipboard,"ReadSelection callback\n");
  78
  79     if(prop != None)
  80     {
  81         Atom            atype=AnyPropertyType;
  82         int             aformat;
  83         unsigned long   nitems,remain;
  84         unsigned char*  val=NULL;
  85
  86         TRACE(clipboard,"\tgot property %s\n",TSXGetAtomName(display,prop));
  87
  88         /* TODO: Properties longer than 64K */
  89
  90         if(TSXGetWindowProperty(display,w,prop,0,0x3FFF,True,XA_STRING,
  91             &atype, &aformat, &nitems, &remain, &val) != Success)
  92             WARN(clipboard, "\tcouldn't read property\n");
  93         else
  94         {
  95            TRACE(clipboard,"\tType %s,Format %d,nitems %ld,value %s\n",
  96                              TSXGetAtomName(display,atype),aformat,nitems,val);
  97
  98            if(atype == XA_STRING && aformat == 8)
  99            {
 100               int       i,inlcount = 0;
 101               char*     lpstr;
 102
 103               TRACE(clipboard,"\tselection is '%s'\n",val);
 104
 105               for(i=0; i <= nitems; i++)
 106                   if( val[i] == '\n' ) inlcount++;
 107
 108               if( nitems )
 109               {
 110                 hText=GlobalAlloc32(GMEM_MOVEABLE, nitems + inlcount + 1);
 111                 if( (lpstr = (char*)GlobalLock32(hText)) )
 112                   for(i=0,inlcount=0; i <= nitems; i++)
 113                   {
 114                      if( val[i] == '\n' ) lpstr[inlcount++]='\r';
 115                      lpstr[inlcount++]=val[i];
 116                   }
 117                 else hText = 0;
 118               }
 119            }
 120            TSXFree(val);
 121         }
 122    }
 123
 124    /* delete previous CF_TEXT and CF_OEMTEXT data */
 125
 126    if( hText )
 127    {
 128      lpFormat = &ClipFormats[CF_TEXT-1];
 129      if (lpFormat->wDataPresent || lpFormat->hData16 || lpFormat->hData32)
 130          CLIPBOARD_DeleteRecord(lpFormat, !(hWndClipWindow));
 131      lpFormat = &ClipFormats[CF_OEMTEXT-1];
 132      if (lpFormat->wDataPresent || lpFormat->hData16 || lpFormat->hData32)
 133          CLIPBOARD_DeleteRecord(lpFormat, !(hWndClipWindow));
 134
 135      lpFormat->wDataPresent = 1;
 136      lpFormat->hData32 = hText;
 137      lpFormat->hData16 = 0;
 138    }
 139
 140    selectionWait=False;
 141 }
 142
 143 /**************************************************************************
 144  *              X11DRV_CLIPBOARD_ReleaseSelection
 145  *
 146  * Wine might have lost XA_PRIMARY selection because of
 147  * EmptyClipboard() or other client.
 148  */
 149 void X11DRV_CLIPBOARD_ReleaseSelection(Window w, HWND32 hwnd)
 150 {
 151     /* w is the window that lost selection,
 152      *
 153      * selectionPrevWindow is nonzero if CheckSelection() was called.
 154      */
 155
 156     TRACE(clipboard,"\tevent->window = %08x (sw = %08x, spw=%08x)\n",
 157           (unsigned)w, (unsigned)selectionWindow, (unsigned)selectionPrevWindow );
 158
 159     if( selectionAcquired )
 160     {
 161         if( w == selectionWindow || selectionPrevWindow == None)
 162         {
 163             /* alright, we really lost it */
 164
 165             selectionAcquired = False;
 166             selectionWindow = None;
 167
 168             /* but we'll keep existing data for internal use */
 169         }
 170         else if( w == selectionPrevWindow )
 171         {
 172             w = TSXGetSelectionOwner(display, XA_PRIMARY);
 173             if( w == None )
 174                 TSXSetSelectionOwner(display, XA_PRIMARY, selectionWindow, CurrentTime);
 175         }
 176     }
 177
 178     selectionPrevWindow = None;
 179 }
 180
 181 /**************************************************************************
 182  *              X11DRV_CLIPBOARD_EmptyClipboard
 183  */
 184 void X11DRV_CLIPBOARD_EmptyClipboard()
 185 {
 186   if(selectionAcquired)
 187     {
 188       selectionAcquired = False;
 189       selectionPrevWindow       = selectionWindow;
 190       selectionWindow   = None;
 191
 192       TRACE(clipboard, "\tgiving up selection (spw = %08x)\n",
 193             (unsigned)selectionPrevWindow);
 194
 195       TSXSetSelectionOwner(display, XA_PRIMARY, None, CurrentTime);
 196     }
 197 }
 198
 199 /**************************************************************************
 200  *              X11DRV_CLIPBOARD_SetClipboardData
 201  */
 202 void X11DRV_CLIPBOARD_SetClipboardData(UINT32 wFormat)
 203 {
 204     Window       owner;
 205
 206     /* Acquire X selection if text format */
 207
 208     if( !selectionAcquired &&
 209         (wFormat == CF_TEXT || wFormat == CF_OEMTEXT) )
 210     {
 211         owner = X11DRV_WND_GetXWindow( hWndClipWindow ? hWndClipWindow : AnyPopup32() );
 212
 213         TSXSetSelectionOwner(display,XA_PRIMARY, owner, CurrentTime);
 214         if( TSXGetSelectionOwner(display,XA_PRIMARY) == owner )
 215         {
 216             selectionAcquired = True;
 217             selectionWindow = owner;
 218
 219             TRACE(clipboard,"Grabbed X selection, owner=(%08x)\n",
 220                                                 (unsigned) owner);
 221         }
 222     }
 223 }
 224
 225 /**************************************************************************
 226  *              X11DRV_CLIPBOARD_RequestSelection
 227  */
 228 BOOL32 X11DRV_CLIPBOARD_RequestSelection()
 229 {
 230     HWND32 hWnd = (hWndClipWindow) ? hWndClipWindow : GetActiveWindow32();
 231
 232     if( selectionAcquired )
 233       return TRUE;
 234
 235     if( !hWnd ) return FALSE;
 236
 237     TRACE(clipboard,"Requesting selection...\n");
 238
 239   /* request data type XA_STRING, later
 240    * CLIPBOARD_ReadSelection() will be invoked
 241    * from the SelectionNotify event handler */
 242
 243     TSXConvertSelection(display,XA_PRIMARY,XA_STRING,
 244                       TSXInternAtom(display,"PRIMARY_TEXT",False),
 245                       X11DRV_WND_GetXWindow(hWnd),CurrentTime);
 246
 247   /* wait until SelectionNotify is processed
 248    *
 249    * FIXME: Use TSXCheckTypedWindowEvent() instead ( same in the
 250    *        CLIPBOARD_CheckSelection() ).
 251    */
 252
 253     selectionWait=True;
 254     while(selectionWait) EVENT_WaitNetEvent( TRUE, FALSE );
 255
 256   /* we treat Unix text as CF_OEMTEXT */
 257     TRACE(clipboard,"\tgot CF_OEMTEXT = %i\n",
 258                       ClipFormats[CF_OEMTEXT-1].wDataPresent);
 259
 260     return (BOOL32)ClipFormats[CF_OEMTEXT-1].wDataPresent;
 261 }
 262
 263 /**************************************************************************
 264  *              X11DRV_CLIPBOARD_ResetOwner
 265  *
 266  * Called from DestroyWindow().
 267  */
 268 void X11DRV_CLIPBOARD_ResetOwner(WND *pWnd)
 269 {
 270     LPCLIPFORMAT lpFormat = ClipFormats;
 271
 272     TRACE(clipboard,"clipboard owner = %04x, selection = %08x\n",
 273                                 hWndClipOwner, (unsigned)selectionWindow);
 274
 275     if( pWnd->hwndSelf == hWndClipOwner)
 276     {
 277         SendMessage16(hWndClipOwner,WM_RENDERALLFORMATS,0,0L);
 278
 279         /* check if all formats were rendered */
 280
 281         while(lpFormat)
 282         {
 283             if( lpFormat->wDataPresent && !lpFormat->hData16 && !lpFormat->hData32 )
 284             {
 285                 TRACE(clipboard,"\tdata missing for clipboard format %i\n",
 286                                    lpFormat->wFormatID);
 287                 lpFormat->wDataPresent = 0;
 288             }
 289             lpFormat = lpFormat->NextFormat;
 290         }
 291         hWndClipOwner = 0;
 292     }
 293
 294     /* now try to salvage current selection from being destroyed by X */
 295
 296     if( pWnd->window ) X11DRV_CLIPBOARD_CheckSelection(pWnd);
 297 }
 298
 299 #endif /* !defined(X_DISPLAY_MISSING) */