2012-10-19 13:59 UTC+0200 Viktor Szakats (harbour syenar.net)

* contrib/hbct/getsecrt.prg
    * SET() -> Set()

harbour/ChangeLog

@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-10-19 13:59 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/hbct/getsecrt.prg
+    * SET() -> Set()
+
 2012-10-19 13:51 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/hbct/getsecrt.prg
     ! GETSECRET() fixed to not access protected TGETLIST

harbour/contrib/hbct/getsecrt.prg

@@ -142,7 +142,7 @@ STATIC PROCEDURE _SECRET( _cGetSecret, lHide, oGet, oGetList )
                lHide := .T.
                LOOP
             ELSEIF ! ( cKey := hb_keyChar( nKey ) ) == ""
-               IF SET( _SET_INSERT )
+               IF Set( _SET_INSERT )
                   _cGetSecret := Stuff( Left( _cGetSecret, nLen - 1 ), ;
                      oGet:pos, 0, cKey )
                ELSE
@@ -153,7 +153,7 @@ STATIC PROCEDURE _SECRET( _cGetSecret, lHide, oGet, oGetList )
             GetApplyKey( oGet, nKey )
          ENDDO
 
-         IF !GetPostValidate( oGet )
+         IF ! GetPostValidate( oGet )
             oGet:exitState := GE_NOEXIT
          ENDIF
       ENDDO