misc/clipboard.c

   1 /*
   2  * 'Wine' Clipboard function handling
   3  *
   4  * Copyright 1994 Martin Ayotte
   5  *           1996 Alex Korobka
   6  *
   7  */
   8
   9 #include <stdlib.h>
  10 #include <stdio.h>
  11 #include <sys/types.h>
  12 #include <sys/stat.h>
  13 #include <fcntl.h>
  14 #include <unistd.h>
  15 #include <string.h>
  16 #include <X11/Xlib.h>
  17 #include <X11/Xatom.h>
  18 #include "windows.h"
  19 #include "win.h"
  20 #include "heap.h"
  21 #include "message.h"
  22 #include "clipboard.h"
  23 #include "xmalloc.h"
  24 #include "stddebug.h"
  25 #include "debug.h"
  26
  27 #define  CF_REGFORMATBASE       0xC000
  28
  29 typedef struct tagCLIPFORMAT {
  30     WORD        wFormatID;
  31     WORD        wRefCount;
  32     WORD        wDataPresent;
  33     LPSTR       Name;
  34     HANDLE16    hData;
  35     DWORD       BufSize;
  36     struct tagCLIPFORMAT *PrevFormat;
  37     struct tagCLIPFORMAT *NextFormat;
  38 } CLIPFORMAT, *LPCLIPFORMAT;
  39
  40 /* *************************************************************************
  41  *                      internal variables
  42  */
  43
  44 static HWND hWndClipOwner  = 0;         /* current clipboard owner */
  45 static HWND hWndClipWindow = 0;         /* window that opened clipboard */
  46 static HWND hWndViewer     = 0;         /* start of viewers chain */
  47
  48 static BOOL bClipChanged  = FALSE;
  49 static WORD LastRegFormat = CF_REGFORMATBASE;
  50
  51 static Bool   selectionWait = False;
  52 static Bool   selectionAcquired = False;
  53 static Window selectionWindow = None;
  54 static Window selectionPrevWindow = None;
  55
  56 static CLIPFORMAT ClipFormats[16]  = {
  57     { CF_TEXT, 1, 0, "Text", (HANDLE16)NULL, 0, NULL, &ClipFormats[1] },
  58     { CF_BITMAP, 1, 0, "Bitmap", (HANDLE16)NULL, 0, &ClipFormats[0], &ClipFormats[2] },
  59     { CF_METAFILEPICT, 1, 0, "MetaFile Picture", (HANDLE16)NULL, 0, &ClipFormats[1], &ClipFormats[3] },
  60     { CF_SYLK, 1, 0, "Sylk", (HANDLE16)NULL, 0, &ClipFormats[2], &ClipFormats[4] },
  61     { CF_DIF, 1, 0, "DIF", (HANDLE16)NULL, 0, &ClipFormats[3], &ClipFormats[5] },
  62     { CF_TIFF, 1, 0, "TIFF", (HANDLE16)NULL, 0, &ClipFormats[4], &ClipFormats[6] },
  63     { CF_OEMTEXT, 1, 0, "OEM Text", (HANDLE16)NULL, 0, &ClipFormats[5], &ClipFormats[7] },
  64     { CF_DIB, 1, 0, "DIB", (HANDLE16)NULL, 0, &ClipFormats[6], &ClipFormats[8] },
  65     { CF_PALETTE, 1, 0, "Palette", (HANDLE16)NULL, 0, &ClipFormats[7], &ClipFormats[9] },
  66     { CF_PENDATA, 1, 0, "PenData", (HANDLE16)NULL, 0, &ClipFormats[8], &ClipFormats[10] },
  67     { CF_RIFF, 1, 0, "RIFF", (HANDLE16)NULL, 0, &ClipFormats[9], &ClipFormats[11] },
  68     { CF_WAVE, 1, 0, "Wave", (HANDLE16)NULL, 0, &ClipFormats[10], &ClipFormats[12] },
  69     { CF_OWNERDISPLAY, 1, 0, "Owner Display", (HANDLE16)NULL, 0, &ClipFormats[11], &ClipFormats[13] },
  70     { CF_DSPTEXT, 1, 0, "DSPText", (HANDLE16)NULL, 0, &ClipFormats[12], &ClipFormats[14] },
  71     { CF_DSPMETAFILEPICT, 1, 0, "DSPMetaFile Picture", (HANDLE16)NULL, 0, &ClipFormats[13], &ClipFormats[15] },
  72     { CF_DSPBITMAP, 1, 0, "DSPBitmap", (HANDLE16)NULL, 0, &ClipFormats[14], NULL }
  73     };
  74
  75 /**************************************************************************
  76  *                      CLIPBOARD_CheckSelection
  77  */
  78 void CLIPBOARD_CheckSelection(WND* pWnd)
  79 {
  80   dprintf_clipboard(stddeb,"\tchecking %08x\n", (unsigned)pWnd->window);
  81
  82   if( selectionAcquired && selectionWindow != None &&
  83       pWnd->window == selectionWindow )
  84   {
  85     selectionPrevWindow = selectionWindow;
  86     selectionWindow = None;
  87
  88     if( pWnd->next )
  89          selectionWindow = pWnd->next->window;
  90     else if( pWnd->parent )
  91              if( pWnd->parent->child != pWnd )
  92                  selectionWindow = pWnd->parent->child->window;
  93
  94     dprintf_clipboard(stddeb,"\tswitching selection from %08x to %08x\n",
  95                     (unsigned)selectionPrevWindow, (unsigned)selectionWindow);
  96
  97     if( selectionWindow != None )
  98     {
  99         XSetSelectionOwner(display, XA_PRIMARY, selectionWindow, CurrentTime);
 100         if( XGetSelectionOwner(display, XA_PRIMARY) != selectionWindow )
 101             selectionWindow = None;
 102     }
 103   }
 104 }
 105
 106 /**************************************************************************
 107  *                      CLIPBOARD_DisOwn
 108  *
 109  * Called from DestroyWindow().
 110  */
 111 void CLIPBOARD_DisOwn(WND* pWnd)
 112 {
 113   LPCLIPFORMAT lpFormat = ClipFormats;
 114
 115   dprintf_clipboard(stddeb,"DisOwn: clipboard owner = %04x, sw = %08x\n",
 116                                 hWndClipOwner, (unsigned)selectionWindow);
 117
 118   if( pWnd->hwndSelf == hWndClipOwner)
 119   {
 120     SendMessage16(hWndClipOwner,WM_RENDERALLFORMATS,0,0L);
 121
 122     /* check if all formats were rendered */
 123
 124     while(lpFormat)
 125     {
 126        if( lpFormat->wDataPresent && !lpFormat->hData )
 127          {
 128            dprintf_clipboard(stddeb,"\tdata missing for clipboard format %i\n", lpFormat->wFormatID);
 129            lpFormat->wDataPresent = 0;
 130          }
 131        lpFormat = lpFormat->NextFormat;
 132     }
 133     hWndClipOwner = 0;
 134   }
 135
 136   /* now try to salvage current selection from being destroyed by X */
 137
 138   CLIPBOARD_CheckSelection(pWnd);
 139 }
 140
 141 /**************************************************************************
 142  *                      CLIPBOARD_DeleteRecord
 143  */
 144 void CLIPBOARD_DeleteRecord(LPCLIPFORMAT lpFormat)
 145 {
 146   if( lpFormat->wFormatID >= CF_GDIOBJFIRST &&
 147       lpFormat->wFormatID <= CF_GDIOBJLAST )
 148       DeleteObject32(lpFormat->hData);
 149   else if( lpFormat->hData )
 150            GlobalFree16(lpFormat->hData);
 151
 152   lpFormat->wDataPresent = 0;
 153   lpFormat->hData = 0;
 154
 155   bClipChanged = TRUE;
 156 }
 157
 158 /**************************************************************************
 159  *                      CLIPBOARD_RequestXSelection
 160  */
 161 BOOL CLIPBOARD_RequestXSelection()
 162 {
 163   HWND hWnd = (hWndClipWindow) ? hWndClipWindow : GetActiveWindow();
 164
 165   if( !hWnd ) return FALSE;
 166
 167   dprintf_clipboard(stddeb,"Requesting selection...\n");
 168
 169   /* request data type XA_STRING, later
 170    * CLIPBOARD_ReadSelection() will be invoked
 171    * from the SelectionNotify event handler */
 172
 173   XConvertSelection(display,XA_PRIMARY,XA_STRING,
 174                     XInternAtom(display,"PRIMARY_TEXT",False),
 175                     WIN_GetXWindow(hWnd),CurrentTime);
 176
 177   /* wait until SelectionNotify is processed */
 178
 179   selectionWait=True;
 180   while(selectionWait)
 181         EVENT_WaitXEvent( TRUE, FALSE );
 182
 183   /* we treat Unix text as CF_OEMTEXT */
 184   dprintf_clipboard(stddeb,"\tgot CF_OEMTEXT = %i\n",
 185                     ClipFormats[CF_OEMTEXT-1].wDataPresent);
 186
 187   return (BOOL)ClipFormats[CF_OEMTEXT-1].wDataPresent;
 188 }
 189
 190 /**************************************************************************
 191  *                      CLIPBOARD_IsPresent
 192  */
 193 BOOL CLIPBOARD_IsPresent(WORD wFormat)
 194 {
 195     LPCLIPFORMAT lpFormat = ClipFormats;
 196
 197     /* special case */
 198
 199     if( wFormat == CF_TEXT || wFormat == CF_OEMTEXT )
 200         return lpFormat[CF_TEXT-1].wDataPresent |
 201                lpFormat[CF_OEMTEXT-1].wDataPresent;
 202
 203     while(TRUE) {
 204         if (lpFormat == NULL) return FALSE;
 205         if (lpFormat->wFormatID == wFormat) break;
 206         lpFormat = lpFormat->NextFormat;
 207         }
 208
 209     return (lpFormat->wDataPresent);
 210 }
 211
 212 /**************************************************************************
 213  *                      OpenClipboard           [USER.137]
 214  */
 215 BOOL OpenClipboard(HWND hWnd)
 216 {
 217     BOOL bRet = FALSE;
 218     dprintf_clipboard(stddeb,"OpenClipboard(%04x) = ", hWnd);
 219
 220     if (!hWndClipWindow)
 221        {
 222          hWndClipWindow = hWnd;
 223          bRet = TRUE;
 224        }
 225     bClipChanged = FALSE;
 226
 227     dprintf_clipboard(stddeb,"%i\n", bRet);
 228     return bRet;
 229 }
 230
 231
 232 /**************************************************************************
 233  *                      CloseClipboard          [USER.138]
 234  */
 235 BOOL CloseClipboard()
 236 {
 237     dprintf_clipboard(stddeb,"CloseClipboard(); !\n");
 238
 239     if (hWndClipWindow == 0) return FALSE;
 240     hWndClipWindow = 0;
 241
 242     if (bClipChanged && hWndViewer) SendMessage16(hWndViewer,WM_DRAWCLIPBOARD,0,0L);
 243
 244     return TRUE;
 245 }
 246
 247
 248 /**************************************************************************
 249  *                      EmptyClipboard          [USER.139]
 250  */
 251 BOOL EmptyClipboard()
 252 {
 253     LPCLIPFORMAT lpFormat = ClipFormats;
 254
 255     dprintf_clipboard(stddeb,"EmptyClipboard()\n");
 256
 257     if (hWndClipWindow == 0) return FALSE;
 258
 259     /* destroy private objects */
 260
 261     if (hWndClipOwner)
 262         SendMessage16(hWndClipOwner,WM_DESTROYCLIPBOARD,0,0L);
 263
 264     while(lpFormat)
 265       {
 266         if ( lpFormat->wDataPresent || lpFormat->hData )
 267              CLIPBOARD_DeleteRecord( lpFormat );
 268
 269         lpFormat = lpFormat->NextFormat;
 270       }
 271
 272     hWndClipOwner = hWndClipWindow;
 273
 274     if(selectionAcquired)
 275     {
 276         selectionAcquired       = False;
 277         selectionPrevWindow     = selectionWindow;
 278         selectionWindow         = None;
 279
 280         dprintf_clipboard(stddeb, "\tgiving up selection (spw = %08x)\n",
 281                                         (unsigned)selectionPrevWindow);
 282
 283         XSetSelectionOwner(display,XA_PRIMARY,None,CurrentTime);
 284     }
 285     return TRUE;
 286 }
 287
 288
 289 /**************************************************************************
 290  *                      GetClipboardOwner       [USER.140]
 291  */
 292 HWND GetClipboardOwner()
 293 {
 294     dprintf_clipboard(stddeb,
 295                 "GetClipboardOwner() = %04x !\n", hWndClipOwner);
 296     return hWndClipOwner;
 297 }
 298
 299
 300 /**************************************************************************
 301  *                      SetClipboardData        [USER.141]
 302  */
 303 HANDLE16 SetClipboardData(WORD wFormat, HANDLE16 hData)
 304 {
 305     LPCLIPFORMAT lpFormat = ClipFormats;
 306     Window       owner;
 307
 308     dprintf_clipboard(stddeb,
 309                 "SetClipboardData(%04X, %04x) !\n", wFormat, hData);
 310
 311     while(TRUE)
 312       {
 313         if (lpFormat == NULL) return 0;
 314         if (lpFormat->wFormatID == wFormat) break;
 315         lpFormat = lpFormat->NextFormat;
 316       }
 317
 318     /* Acquire X selection if text format */
 319
 320     if( !selectionAcquired &&
 321         (wFormat == CF_TEXT || wFormat == CF_OEMTEXT) )
 322     {
 323       owner = WIN_GetXWindow(hWndClipWindow);
 324       XSetSelectionOwner(display,XA_PRIMARY,owner,CurrentTime);
 325       if( XGetSelectionOwner(display,XA_PRIMARY) == owner )
 326       {
 327         selectionAcquired = True;
 328         selectionWindow = owner;
 329
 330         dprintf_clipboard(stddeb,"Grabbed X selection, owner=(%08x)\n",
 331                                                 (unsigned) owner);
 332       }
 333     }
 334
 335     if ( lpFormat->wDataPresent || lpFormat->hData )
 336     {
 337         CLIPBOARD_DeleteRecord(lpFormat);
 338
 339         /* delete existing CF_TEXT/CF_OEMTEXT aliases */
 340
 341         if( wFormat == CF_TEXT && ClipFormats[CF_OEMTEXT-1].hData
 342             && !ClipFormats[CF_OEMTEXT-1].wDataPresent )
 343             CLIPBOARD_DeleteRecord(&ClipFormats[CF_OEMTEXT-1]);
 344         if( wFormat == CF_OEMTEXT && ClipFormats[CF_TEXT-1].hData
 345             && !ClipFormats[CF_TEXT-1].wDataPresent )
 346             CLIPBOARD_DeleteRecord(&ClipFormats[CF_TEXT-1]);
 347     }
 348
 349     bClipChanged = TRUE;
 350     lpFormat->wDataPresent = 1;
 351     lpFormat->hData = hData;          /* 0 is legal, see WM_RENDERFORMAT */
 352
 353     return lpFormat->hData;
 354 }
 355
 356 /**************************************************************************
 357  *                      CLIPBOARD_RenderFormat
 358  */
 359 BOOL32 CLIPBOARD_RenderFormat(LPCLIPFORMAT lpFormat)
 360 {
 361  if( lpFormat->wDataPresent && !lpFormat->hData )
 362    if( IsWindow(hWndClipOwner) )
 363        SendMessage16(hWndClipOwner,WM_RENDERFORMAT,
 364                      (WPARAM16)lpFormat->wFormatID,0L);
 365    else
 366    {
 367        dprintf_clipboard(stddeb,"\thWndClipOwner (%04x) is lost!\n",
 368                                       hWndClipOwner);
 369        hWndClipOwner = 0; lpFormat->wDataPresent = 0;
 370        return FALSE;
 371    }
 372  return (lpFormat->hData) ? TRUE : FALSE;
 373 }
 374
 375 /**************************************************************************
 376  *                      CLIPBOARD_RenderText
 377  */
 378 BOOL32 CLIPBOARD_RenderText(LPCLIPFORMAT lpTarget, LPCLIPFORMAT lpSource)
 379 {
 380   UINT          size = GlobalSize16( lpSource->hData );
 381   LPCSTR        lpstrS = (LPSTR)GlobalLock16(lpSource->hData);
 382   LPSTR         lpstrT;
 383
 384   if( !lpstrS ) return FALSE;
 385   dprintf_clipboard(stddeb,"\tconverting from '%s' to '%s', %i chars\n",
 386                                       lpSource->Name, lpTarget->Name, size);
 387
 388   lpTarget->hData = GlobalAlloc16(GMEM_ZEROINIT, size);
 389   lpstrT = (LPSTR)GlobalLock16(lpTarget->hData);
 390
 391   if( lpstrT )
 392   {
 393     if( lpSource->wFormatID == CF_TEXT )
 394         CharToOemBuff32A(lpstrS, lpstrT, size);
 395     else
 396         OemToCharBuff32A(lpstrS, lpstrT, size);
 397     dprintf_clipboard(stddeb,"\tgot %s\n", lpstrT);
 398     return TRUE;
 399   }
 400
 401   lpTarget->hData = 0;
 402   return FALSE;
 403 }
 404
 405 /**************************************************************************
 406  *                      GetClipboardData        [USER.142]
 407  */
 408 HANDLE16 GetClipboardData(WORD wFormat)
 409 {
 410     LPCLIPFORMAT lpRender = ClipFormats;
 411     LPCLIPFORMAT lpUpdate = NULL;
 412
 413     if (!hWndClipWindow) return 0;
 414
 415     dprintf_clipboard(stddeb,"GetClipboardData(%04X)\n", wFormat);
 416
 417     if( wFormat == CF_TEXT && !lpRender[CF_TEXT-1].wDataPresent
 418                            &&  lpRender[CF_OEMTEXT-1].wDataPresent )
 419     {
 420         lpRender = &ClipFormats[CF_OEMTEXT-1];
 421         lpUpdate = &ClipFormats[CF_TEXT-1];
 422
 423         dprintf_clipboard(stddeb,"\tOEMTEXT -> TEXT\n");
 424     }
 425     else if( wFormat == CF_OEMTEXT && !lpRender[CF_OEMTEXT-1].wDataPresent
 426                                    &&  lpRender[CF_TEXT-1].wDataPresent )
 427     {
 428         lpRender = &ClipFormats[CF_TEXT-1];
 429         lpUpdate = &ClipFormats[CF_OEMTEXT-1];
 430
 431         dprintf_clipboard(stddeb,"\tTEXT -> OEMTEXT\n");
 432     }
 433     else
 434     {
 435       while(TRUE)
 436       {
 437         if (lpRender == NULL) return 0;
 438         if (lpRender->wFormatID == wFormat) break;
 439         lpRender = lpRender->NextFormat;
 440       }
 441       lpUpdate = lpRender;
 442     }
 443
 444     if( !CLIPBOARD_RenderFormat(lpRender) ) return 0;
 445     if( lpUpdate != lpRender &&
 446         !lpUpdate->hData ) CLIPBOARD_RenderText(lpUpdate, lpRender);
 447
 448     dprintf_clipboard(stddeb,"\treturning %04x (type %i)\n",
 449                               lpUpdate->hData, lpUpdate->wFormatID);
 450     return lpUpdate->hData;
 451 }
 452
 453
 454 /**************************************************************************
 455  *                      CountClipboardFormats   [USER.143]
 456  */
 457 INT CountClipboardFormats()
 458 {
 459     int          FormatCount = 0;
 460     LPCLIPFORMAT lpFormat = ClipFormats;
 461
 462     dprintf_clipboard(stddeb,"CountClipboardFormats()\n");
 463
 464     if( !selectionAcquired ) CLIPBOARD_RequestXSelection();
 465
 466     FormatCount += abs(lpFormat[CF_TEXT-1].wDataPresent -
 467                        lpFormat[CF_OEMTEXT-1].wDataPresent);
 468
 469     while(TRUE) {
 470         if (lpFormat == NULL) break;
 471         if (lpFormat->wDataPresent)
 472             {
 473                dprintf_clipboard(stddeb, "\tdata found for format %i\n", lpFormat->wFormatID);
 474
 475                FormatCount++;
 476             }
 477         lpFormat = lpFormat->NextFormat;
 478         }
 479
 480     dprintf_clipboard(stddeb,"\ttotal %d\n", FormatCount);
 481     return FormatCount;
 482 }
 483
 484
 485 /**************************************************************************
 486  *                      EnumClipboardFormats    [USER.144]
 487  */
 488 UINT16 EnumClipboardFormats(UINT16 wFormat)
 489 {
 490     LPCLIPFORMAT lpFormat = ClipFormats;
 491
 492     dprintf_clipboard(stddeb,"EnumClipboardFormats(%04X)\n", wFormat);
 493
 494     if( !hWndClipWindow ) return 0;
 495
 496     if( (!wFormat || wFormat == CF_TEXT || wFormat == CF_OEMTEXT)
 497          && !selectionAcquired) CLIPBOARD_RequestXSelection();
 498
 499     if (wFormat == 0)
 500         if (lpFormat->wDataPresent || ClipFormats[CF_OEMTEXT-1].wDataPresent)
 501             return lpFormat->wFormatID;
 502         else
 503             wFormat = lpFormat->wFormatID; /* and CF_TEXT is not available */
 504
 505     /* walk up to the specified format record */
 506
 507     while(TRUE) {
 508         if (lpFormat == NULL) return 0;
 509         if (lpFormat->wFormatID == wFormat) break;
 510         lpFormat = lpFormat->NextFormat;
 511         }
 512
 513     /* find next format with available data */
 514
 515     lpFormat = lpFormat->NextFormat;
 516     while(TRUE) {
 517         if (lpFormat == NULL) return 0;
 518         if (lpFormat->wDataPresent ||
 519                (lpFormat->wFormatID == CF_OEMTEXT &&
 520                 ClipFormats[CF_TEXT-1].wDataPresent)) break;
 521         lpFormat = lpFormat->NextFormat;
 522         }
 523
 524     return lpFormat->wFormatID;
 525 }
 526
 527
 528 /**************************************************************************
 529  *            RegisterClipboardFormat16  (USER.145)
 530  */
 531 UINT16 RegisterClipboardFormat16( LPCSTR FormatName )
 532 {
 533     LPCLIPFORMAT lpNewFormat;
 534     LPCLIPFORMAT lpFormat = ClipFormats;
 535
 536     if (FormatName == NULL) return 0;
 537
 538     dprintf_clipboard(stddeb,"RegisterClipboardFormat('%s') !\n", FormatName);
 539
 540     /* walk format chain to see if it's already registered */
 541
 542     while(TRUE) {
 543         if ( !strcmp(lpFormat->Name,FormatName) )
 544            {
 545              lpFormat->wRefCount++;
 546              return lpFormat->wFormatID;
 547            }
 548
 549         if ( lpFormat->NextFormat == NULL ) break;
 550
 551         lpFormat = lpFormat->NextFormat;
 552         }
 553
 554     /* allocate storage for new format entry */
 555
 556     lpNewFormat = (LPCLIPFORMAT)xmalloc(sizeof(CLIPFORMAT));
 557     lpFormat->NextFormat = lpNewFormat;
 558     lpNewFormat->wFormatID = LastRegFormat;
 559     lpNewFormat->wRefCount = 1;
 560
 561     lpNewFormat->Name = (LPSTR)xmalloc(strlen(FormatName) + 1);
 562     strcpy(lpNewFormat->Name, FormatName);
 563
 564     lpNewFormat->wDataPresent = 0;
 565     lpNewFormat->hData = 0;
 566     lpNewFormat->BufSize = 0;
 567     lpNewFormat->PrevFormat = lpFormat;
 568     lpNewFormat->NextFormat = NULL;
 569
 570     return LastRegFormat++;
 571 }
 572
 573
 574 /**************************************************************************
 575  *            RegisterClipboardFormat32A   (USER32.430)
 576  */
 577 UINT32 RegisterClipboardFormat32A( LPCSTR formatName )
 578 {
 579     return RegisterClipboardFormat16( formatName );
 580 }
 581
 582
 583 /**************************************************************************
 584  *            RegisterClipboardFormat32W   (USER32.431)
 585  */
 586 UINT32 RegisterClipboardFormat32W( LPCWSTR formatName )
 587 {
 588     LPSTR aFormat = HEAP_strdupWtoA( GetProcessHeap(), 0, formatName );
 589     UINT32 ret = RegisterClipboardFormat32A( aFormat );
 590     HeapFree( GetProcessHeap(), 0, aFormat );
 591     return ret;
 592 }
 593
 594 /**************************************************************************
 595  *                      GetClipboardFormatName  [USER.146]
 596  */
 597 int GetClipboardFormatName(WORD wFormat, LPSTR retStr, short maxlen)
 598 {
 599     LPCLIPFORMAT lpFormat = ClipFormats;
 600
 601     dprintf_clipboard(stddeb,
 602         "GetClipboardFormat(%04X, %p, %d) !\n", wFormat, retStr, maxlen);
 603
 604     while(TRUE) {
 605         if (lpFormat == NULL) return 0;
 606         if (lpFormat->wFormatID == wFormat) break;
 607         lpFormat = lpFormat->NextFormat;
 608         }
 609
 610     if (lpFormat->Name == NULL ||
 611         lpFormat->wFormatID < CF_REGFORMATBASE) return 0;
 612
 613     dprintf_clipboard(stddeb,
 614                 "GetClipboardFormat // Name='%s' !\n", lpFormat->Name);
 615
 616     strncpy(retStr, lpFormat->Name, maxlen - 1);
 617     retStr[maxlen] = 0;
 618
 619     return strlen(retStr);
 620 }
 621
 622
 623 /**************************************************************************
 624  *                      SetClipboardViewer      [USER.147]
 625  */
 626 HWND SetClipboardViewer(HWND hWnd)
 627 {
 628     HWND hwndPrev = hWndViewer;
 629
 630     dprintf_clipboard(stddeb,"SetClipboardViewer(%04x)\n", hWnd);
 631
 632     hWndViewer = hWnd;
 633     return hwndPrev;
 634 }
 635
 636
 637 /**************************************************************************
 638  *                      GetClipboardViewer      [USER.148]
 639  */
 640 HWND GetClipboardViewer()
 641 {
 642     dprintf_clipboard(stddeb,"GetClipboardFormat() = %04x\n", hWndViewer);
 643
 644     return hWndViewer;
 645 }
 646
 647
 648 /**************************************************************************
 649  *                      ChangeClipboardChain    [USER.149]
 650  */
 651 BOOL ChangeClipboardChain(HWND hWnd, HWND hWndNext)
 652 {
 653     BOOL bRet = 0;
 654
 655     dprintf_clipboard(stdnimp, "ChangeClipboardChain(%04x, %04x)\n", hWnd, hWndNext);
 656
 657     if( hWndViewer )
 658       bRet = !SendMessage16( hWndViewer, WM_CHANGECBCHAIN,
 659                              (WPARAM16)hWnd, (LPARAM)hWndNext);
 660     else
 661       dprintf_clipboard(stddeb,"ChangeClipboardChain: hWndViewer is lost\n");
 662
 663     if( hWnd == hWndViewer ) hWndViewer = hWndNext;
 664
 665     return 0;
 666 }
 667
 668
 669 /**************************************************************************
 670  *                      IsClipboardFormatAvailable      [USER.193]
 671  */
 672 BOOL IsClipboardFormatAvailable(WORD wFormat)
 673 {
 674     dprintf_clipboard(stddeb,"IsClipboardFormatAvailable(%04X) !\n", wFormat);
 675
 676     if( (wFormat == CF_TEXT || wFormat == CF_OEMTEXT) &&
 677         !selectionAcquired ) CLIPBOARD_RequestXSelection();
 678
 679     return CLIPBOARD_IsPresent(wFormat);
 680 }
 681
 682
 683 /**************************************************************************
 684  *                      GetOpenClipboardWindow  [USER.248]
 685  */
 686 HWND GetOpenClipboardWindow()
 687 {
 688     dprintf_clipboard(stddeb,
 689                 "GetOpenClipboardWindow() = %04x\n", hWndClipWindow);
 690     return hWndClipWindow;
 691 }
 692
 693
 694 /**************************************************************************
 695  *                      GetPriorityClipboardFormat      [USER.402]
 696  */
 697 int GetPriorityClipboardFormat(WORD *lpPriorityList, short nCount)
 698 {
 699     dprintf_clipboard(stdnimp,
 700         "GetPriorityClipboardFormat(%p, %d) !\n", lpPriorityList, nCount);
 701
 702     return 0;
 703 }
 704
 705
 706 /**************************************************************************
 707  *                      CLIPBOARD_ReadSelection
 708  *
 709  * Called from the SelectionNotify event handler.
 710  */
 711 void CLIPBOARD_ReadSelection(Window w,Atom prop)
 712 {
 713     HANDLE16     hText = 0;
 714     LPCLIPFORMAT lpFormat = ClipFormats;
 715
 716     dprintf_clipboard(stddeb,"ReadSelection callback\n");
 717
 718     if(prop != None)
 719     {
 720         Atom            atype=AnyPropertyType;
 721         int             aformat;
 722         unsigned long   nitems,remain;
 723         unsigned char*  val=NULL;
 724
 725         dprintf_clipboard(stddeb,"\tgot property %s\n",XGetAtomName(display,prop));
 726
 727         /* TODO: Properties longer than 64K */
 728
 729         if(XGetWindowProperty(display,w,prop,0,0x3FFF,True,XA_STRING,
 730             &atype, &aformat, &nitems, &remain, &val) != Success)
 731             dprintf_clipboard(stddeb,"\tcouldn't read property\n");
 732         else
 733         {
 734            dprintf_clipboard(stddeb,"\tType %s,Format %d,nitems %ld,value %s\n",
 735                              XGetAtomName(display,atype),aformat,nitems,val);
 736
 737            if(atype == XA_STRING && aformat == 8)
 738            {
 739               int       i,inlcount = 0;
 740               char*     lpstr;
 741
 742               dprintf_clipboard(stddeb,"\tselection is '%s'\n",val);
 743
 744               for(i=0; i <= nitems; i++)
 745                   if( val[i] == '\n' ) inlcount++;
 746
 747               if( nitems )
 748               {
 749                 hText=GlobalAlloc16(GMEM_MOVEABLE, nitems + inlcount + 1);
 750                 if( (lpstr = (char*)GlobalLock16(hText)) )
 751                   for(i=0,inlcount=0; i <= nitems; i++)
 752                   {
 753                      if( val[i] == '\n' ) lpstr[inlcount++]='\r';
 754                      lpstr[inlcount++]=val[i];
 755                   }
 756                 else hText = 0;
 757               }
 758            }
 759            XFree(val);
 760         }
 761    }
 762
 763    /* delete previous CF_TEXT and CF_OEMTEXT data */
 764
 765    if( hText )
 766    {
 767      lpFormat = &ClipFormats[CF_TEXT-1];
 768      if (lpFormat->wDataPresent || lpFormat->hData)
 769          CLIPBOARD_DeleteRecord(lpFormat);
 770      lpFormat = &ClipFormats[CF_OEMTEXT-1];
 771      if (lpFormat->wDataPresent || lpFormat->hData)
 772          CLIPBOARD_DeleteRecord(lpFormat);
 773
 774      lpFormat->wDataPresent = 1;
 775      lpFormat->hData = hText;
 776    }
 777
 778    selectionWait=False;
 779 }
 780
 781 /**************************************************************************
 782  *                      CLIPBOARD_ReleaseSelection
 783  *
 784  * Wine might have lost XA_PRIMARY selection because of
 785  * EmptyClipboard() or other client.
 786  */
 787 void CLIPBOARD_ReleaseSelection(Window w, HWND hwnd)
 788 {
 789   /* w is the window that lost selection,
 790    *
 791    * selectionPrevWindow is nonzero if CheckSelection() was called.
 792    */
 793
 794   dprintf_clipboard(stddeb,"\tevent->window = %08x (sw = %08x, spw=%08x)\n",
 795           (unsigned)w, (unsigned)selectionWindow, (unsigned)selectionPrevWindow );
 796
 797   if( selectionAcquired )
 798     if( w == selectionWindow || selectionPrevWindow == None)
 799     {
 800       /* alright, we really lost it */
 801
 802       selectionAcquired = False;
 803       selectionWindow = None;
 804
 805       /* but we'll keep existing data for internal use */
 806     }
 807     else if( w == selectionPrevWindow )
 808     {
 809       w =  XGetSelectionOwner(display, XA_PRIMARY);
 810
 811       if( w == None )
 812         XSetSelectionOwner(display, XA_PRIMARY, selectionWindow, CurrentTime);
 813     }
 814
 815   selectionPrevWindow = None;
 816 }
 817