2009-08-09 12:53 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbtpathy/hbtpathy.hbc
    ! Added darwin to supported platforms.

  * contrib/hbwin/win_tprt.prg
  * contrib/hbwin/oleauto.prg
  * contrib/hbwin/axfunc.prg
    * Formatting.

harbour/ChangeLog

@@ -17,6 +17,15 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-08-09 12:53 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbtpathy/hbtpathy.hbc
+    ! Added darwin to supported platforms.
+
+  * contrib/hbwin/win_tprt.prg
+  * contrib/hbwin/oleauto.prg
+  * contrib/hbwin/axfunc.prg
+    * Formatting.
+
 2009-08-09 11:07 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * source/rtl/rat.c
     ! HB_RAT() fixed to not ignore nEnd parameter if it's out of bound.

harbour/contrib/hbtpathy/hbtpathy.hbc

@@ -2,7 +2,7 @@
 # $Id$
 #
 
-{!(linux|win|os2)}skip=yes
+{!(linux|darwin|win|os2)}skip=yes
 
 incpaths=.
 

harbour/contrib/hbwin/axfunc.prg

@@ -50,11 +50,12 @@
  *
  */
 
+FUNCTION WIN_AxGetControl( hWnd, bHandler )
+   LOCAL oAx := WIN_OleAuto()
 
-FUNC WIN_AxGetControl( hWnd, bHandler )
-LOCAL oAx := WIN_OleAuto()
    oAx:__hObj := __AxGetControl( hWnd )
    IF bHandler != NIL
       oAx:__hSink := __AxRegisterHandler( oAx:__hObj, bHandler )
    ENDIF
-RETURN oAx
+
+   RETURN oAx

harbour/contrib/hbwin/oleauto.prg

@@ -71,9 +71,9 @@ ENDCLASS
 METHOD __enumStart( enum, lDescend ) CLASS WIN_OLEAUTO
    LOCAL hObjEnum
 
-   hObjEnum := __OLEENUMCREATE( ::__hObj, lDescend )
-   IF !EMPTY( hObjEnum )
-      IF !EMPTY( ::__hObjEnum )
+   hObjEnum := __OleEnumCreate( ::__hObj, lDescend )
+   IF ! Empty( hObjEnum )
+      IF ! Empty( ::__hObjEnum )
          /* small hack - clone the object array for nested FOR EACH calls */
          self := __objClone( self )
       ENDIF
@@ -82,43 +82,48 @@ METHOD __enumStart( enum, lDescend ) CLASS WIN_OLEAUTO
       (@enum):__enumBase( self )
       RETURN ::__enumSkip( @enum, lDescend )
    ENDIF
-RETURN .F.
+
+   RETURN .F.
 
 
 METHOD __enumSkip( enum, lDescend ) CLASS WIN_OLEAUTO
    LOCAL lContinue, xValue
 
    HB_SYMBOL_UNUSED( lDescend )
-   xValue := __OLEENUMNEXT( ::__hObjEnum, @lContinue )
+
+   xValue := __OleEnumNext( ::__hObjEnum, @lContinue )
    /* set enumerator value */
    (@enum):__enumValue( xValue )
-RETURN lContinue
+
+   RETURN lContinue
 
 
 METHOD PROCEDURE __enumStop() CLASS WIN_OLEAUTO
    ::__hObjEnum := NIL     /* activate autodestructor */
-RETURN
+   RETURN
 
 
 /* OLE functions */
 
-FUNC WIN_OleGetActiveObject( ... )
+FUNCTION win_OleGetActiveObject( ... )
    LOCAL oOle, hOle
 
    hOle := __OleGetActiveObject( ... )
-   IF ! EMPTY( hOle )
-      oOle := WIN_OleAuto()
+   IF ! Empty( hOle )
+      oOle := win_OleAuto()
       oOle:__hObj := hOle
    ENDIF
-RETURN oOle
+
+   RETURN oOle
 
 
-FUNC WIN_OleCreateObject( ... )
+FUNCTION win_OleCreateObject( ... )
    LOCAL oOle, hOle
 
    hOle := __OleCreateObject( ... )
-   IF ! EMPTY( hOle )
-      oOle := WIN_OleAuto()
+   IF ! Empty( hOle )
+      oOle := win_OleAuto()
       oOle:__hObj := hOle
    ENDIF
-RETURN oOle
+
+   RETURN oOle

harbour/contrib/hbwin/win_tprt.prg

@@ -94,7 +94,7 @@ CREATE CLASS win_Port
    METHOD PurgeRX()                         INLINE win_PortPurge( ::nPort, .T., .F. )
    METHOD PurgeTX()                         INLINE win_PortPurge( ::nPort, .F., .T. )
    METHOD Close( nDrain )                   INLINE win_PortClose( ::nPort, iif( Empty( nDrain ), 0, nDrain ) )
-   METHOD DebugDCB( nDebug )                INLINE win_PortDebugDCB(::nPort, nDebug )
+   METHOD DebugDCB( nDebug )                INLINE win_PortDebugDCB( ::nPort, nDebug )
    METHOD TimeOuts( nReadInterval, nReadMultiplier, nReadConstant, nWriteMultiplier, nWriteConstant ) ;
                                             INLINE win_PortTimeOuts( nReadInterval, nReadMultiplier, nReadConstant, nWriteMultiplier, nWriteConstant )
    METHOD Error()