2006-06-20 11:33 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)

* harbour/source/rtl/gtwin/gtwin.c
     ! Stupid bug fixed in prev commit.

harbour/ChangeLog

@@ -8,6 +8,10 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+  * harbour/include/hbapicls.h
+  * harbour/source/vm/classes.c
+    + added hb_objHasMesage( PHB_ITEM pObject, PHB_DYNS pMessage )
+    + added hb_objGetpMethod() for backward binary compatibility with FWH
     * hidden for 3-rd party users hb_objGetMethod() and hb_objPopSuperCast()
       If for some reason 3-rd party code will need these methods please
       tell me in which case and I'll add necessary functions. Please

harbour/source/rtl/gtwin/gtwin.c

@@ -1757,7 +1757,7 @@ static void hb_gt_win_SetClipboard( char * szClipData, ULONG ulLen )
 {
    LPTSTR  lptstrCopy;
    HGLOBAL hglbCopy;
-   UINT    uFormat = OEM_CHARSET;
+   UINT    uFormat = CF_OEMTEXT;
 
    if ( OpenClipboard( NULL ) )
    {
@@ -1783,7 +1783,7 @@ static BOOL hb_gt_win_GetClipboard( char ** pszClipData, ULONG *pulLen )
 {
    HGLOBAL hglb;
    LPTSTR  lptstr;
-   UINT    uFormat = OEM_CHARSET;
+   UINT    uFormat = CF_OEMTEXT;
 
    *pulLen = 0;
    *pszClipData = NULL;