fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-10-08 22:49 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/gtwvg/tests/activex.prg
  * contrib/gtwvg/tests/cuigdlgs.prg
  * contrib/gtwvg/tests/demowvg.prg
  * contrib/gtwvg/tests/demowvg1.prg
  * contrib/gtwvg/tests/demoxbp.prg
  * contrib/gtwvg/tests/dyndlgs.prg
  * contrib/gtwvg/tests/modal.prg
  * contrib/gtwvg/tests/tbrowser.prg
  * contrib/gtwvg/tests/utils.prg
  * contrib/gtwvg/tests/wvtcls.prg
  * contrib/gtwvg/tests/xbp.prg
  * contrib/hbgd/gdchart.prg
  * extras/hbvpdf/hbvpdf.prg
  * extras/httpsrv/modules/cookie.prg
  * extras/httpsrv/modules/showcounter.prg
    * changed DEFAULT TO to hb_default()/__defaultNIL()
    * deleted common.ch from all files. It's not used anymore
      in Harbour repo.
This commit is contained in:
Viktor Szakats
2012-10-08 20:51:51 +00:00
parent 1f08777480
commit ae7906d528
16 changed files with 128 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/extras/httpsrv/modules/cookie.prg
View File

@@ -50,7 +50,6 @@
*
*/
#include "common.ch"
#include "hbclass.ch"
MEMVAR _REQUEST
@@ -66,8 +65,8 @@ FUNCTION HRBMAIN()
//hb_ToOutDebug( "cCookie = %s, cAction = %s\n\r", hb_ValToExp( cCookie ), cAction )
DEFAULT cCookie TO ""
DEFAULT cAction TO ""
hb_default( @cCookie, "" )
hb_default( @cAction, "" )
// Sample page embedded
TEXT INTO cHtml

7
harbour/extras/httpsrv/modules/showcounter.prg
View File

@@ -55,7 +55,6 @@
MEMVAR _SERVER // defined in uHTTPD
MEMVAR _REQUEST // defined in uHTTPD
#include "common.ch"
#include "gd.ch"
#define IMAGES_IN ".." + hb_ps() + ".." + hb_ps() + ".." + hb_ps() + "contrib" + hb_ps() + "hbgd" + hb_ps() + "tests" + hb_ps() + "digits" + hb_ps()
@@ -99,10 +98,10 @@ STATIC FUNCTION CreateCounter( cValue, cBaseImage )
//LOCAL cFile
// A value if not passed
DEFAULT cValue TO Str( hb_RandomInt( 1, 10^DISPLAY_NUM ), DISPLAY_NUM )
DEFAULT cBaseImage TO "57chevy.gif"
hb_default( @cValue , Str( hb_RandomInt( 1, 10 ^ DISPLAY_NUM ), DISPLAY_NUM ) )
hb_default( @cBaseImage, "57chevy.gif" )
IF !File( IMAGES_IN + cBaseImage )
IF !hb_FileExists( IMAGES_IN + cBaseImage )
//hb_ToOutDebug( "ERROR: Base Image File '" + IMAGES_IN + cBaseImage + "' not found" )
//THROW( "ERROR: Base Image File '" + IMAGES_IN + cBaseImage + "' not found" )
RETURN NIL