2009-06-15 10:38 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbwin/legacy.prg
    ! Trying to implement TOLEAUTO():NEW() compatibility 
      interface. Crash is gone, but I'm not sure the app 
      now behaves perfectly.
      Someone please review/test.

harbour/ChangeLog

@@ -17,6 +17,13 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-15 10:38 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbwin/legacy.prg
+    ! Trying to implement TOLEAUTO():NEW() compatibility
+      interface. Crash is gone, but I'm not sure the app
+      now behaves perfectly.
+      Someone please review/test.
+
 2009-06-15 00:57 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * harbour/contrib/hbxbp/Makefile
 
@@ -44,15 +51,15 @@
     + Added implementation code of above classes.
 
     /*
-        demoXBP.prg implements 100% Xbase++ code pulled from its 
+        demoXBP.prg implements 100% Xbase++ code pulled from its
         documentation. The only attributes changes are done either to
         redefine the parent or window coordinates. Xbase++ ( as I know )
-        takes bottom-top approach in screen coordinate system, so 
+        takes bottom-top approach in screen coordinate system, so
         demoXBP.prg compiled with Xbase++ shows objects in different
         positions. Except for this and a couple of other compatibility
-        issues, Harbour offers more wider horizon. So, once base 
-        implementation is done, I may extend these classes to take 
-        advantage of QT's powerful design concepts.   
+        issues, Harbour offers more wider horizon. So, once base
+        implementation is done, I may extend these classes to take
+        advantage of QT's powerful design concepts.
     */
 
 2009-06-15 10:06 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

harbour/contrib/hbwin/legacy.prg

@@ -6,7 +6,7 @@
  * Harbour Project source code:
  * Compatibility calls.
  *
- * Copyright 2009 {list of individual authors and e-mail addresses}
+ * Copyright 2009 Viktor Szakats (harbour.01 syenar.hu)
  * www - http://www.harbour-project.org
  *
  * This program is free software; you can redistribute it and/or modify
@@ -54,10 +54,30 @@
 
 #include "hbclass.ch"
 
+#include "common.ch"
+
 CREATE CLASS TOLEAUTO FROM WIN_OLEAUTO
    /* TODO: Implement compatibility to the required extent */
+   METHOD New( xOle, cIID )
 ENDCLASS
 
+METHOD New( xOle, cIID ) CLASS TOLEAUTO
+
+   IF ISNUMBER( xOle )
+      xOle := win_N2P( xOle )
+   ENDIF
+
+   IF hb_isPointer( xOle )
+      ::__hObj := xOle
+   ELSEIF ISCHARACTER( xOle )
+      xOle := __OleCreateObject( xOle, cIID )
+      IF ! Empty( xOle )
+         ::__hObj := xOle
+      ENDIF
+   ENDIF
+
+   RETURN Self
+
 CREATE CLASS Win32Prn FROM WIN_PRN
 ENDCLASS