FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "FWH Class TWebServer example"

   ACTIVATE WINDOW oWnd ICONIZED ;
      ON INIT BuildServer()
   
return nil   

function BuildServer()

   local oWebServer := TWebServer():New()

   oWebServer:lDebug = .T.
   oWebServer:cLogFile = "weblog.txt"

   oWebServer:Activate()

   oWebServer:Explore()  // launches your internet navigator

return nil

   METHOD Explore( cHtmlFile ) INLINE cHtmlFile := If( cHtmlFile == nil,;
             ::cDefPage, cHtmlFile ),;
             ShellExecute( 0, 'Open', "http://localhost/" + cHtmlFile )

   <ul>
      <li>
         Edit
         <ul>
              <li>Cut</li>
              <a href="#" onclick="alert('Copy')"><li>Copy</li></a>
              <li>Paste</li>
         </ul>
      </li> 
   </ul>

#menu ul ul a
{
   text-decoration: none;
}