#define WWIPSTUFF_SHAREWARE .F.

SET PROCEDURE TO wwUtils ADDITIVE
SET PROCEDURE TO wwEval ADDITIVE
SET PROCEDURE TO CodeBlockClass ADDITIVE
SET CLASSLIB TO wwIPStuff ADDITIVE
SET CLASSLIB TO wwXML ADDITIVE
SET PROCEDURE TO wwHTTP ADDITIVE   && Required by wwXML
SET PROCEDURE TO WWPOP3 ADDIT

#IF WWIPSTUFF_SHAREWARE
	
    DECLARE INTEGER MessageBox IN WIN32API AS MsgBox ;
        INTEGER, STRING, STRING, INTEGER
    
    IF    MessageBox("Thank you for trying out the Shareware Version of"+CHR(13) +;
             "West Wind Internet Protocols." + CHR(13)+CHR(13) +;
             "Please don't forget to register your copy at:" +CHR(13) +;
             "http://www.west-wind.com/" +CHR(13) + CHR(13)+ ;
             "Register now?",32+4+256,;       
             "West Wind IP Tools")   = 6
           GoUrl("http://localhost/wwIPstuff.asp")
   ENDIF
#ENDIF

DO PATH WITH ".\SAMPLES\"
