OpenEuphoria

Re: program to load Eu docs into tabbed browser

• Posted by don cole <doncole at pacbell.net> Feb 17, 2007
• 502 views

Hello Dan,

I check your code and all I got it to do is blink.

Now I see that all .htms are in a different place than yours.

So first off I would put some kind of exists checker in there like so.

without warning
include win32lib.ew
include mygets.e

constant w = create(Window, "test",0, 0, 0, 0, 0, {WS_POPUP})


global function wCheckFile(sequence file_path)
   integer fn
      VOID = setSearchPaths(file_path)
      fn = w32FileOpen(file_path, "r") -- looks in the search paths   
          if fn=-1 then
                      VOID = message_box(   file_path, 
                     "Can't Find File",
              MB_ICONHAND+ MB_TASKMODAL )
           return 0
          end if
       return 1
end function

procedure a(integer self,  integer e, sequence p)
    sequence site
    site = {}
    site &= {"F\\EUPHORIA\\HTML\\REFMAN.HTM"}
site &=
    {"F:\\Programming\\EUPHORIA\\Libraries\\Win32Lib_60_5\\Docs\\index.htm"}
    site &= {"F:\\Programming\\EUPHORIA\\Ide\\IDE0-20-1\\Docs\\IDE.htm"}

  for i = 1 to length(site) do
   VOID=wCheckFile(site[i])
   shellExecute("open", site[i], SW_SHOWNORMAL)
  end for
  closeWindow(w)
end procedure
setHandler(w, w32HActivate, routine_id("a"))

WinMain(w,SW_HIDE)

When I get all my fileNames and paths right I'll get back to you.

Don Cole