-- Fluid Application Environment(TM)
-- Version: 1.0_a1
-- Date: 2009-09-05
-- Author: Ryan Johnson (ryanj@fluidae.com)
-- For updates, see http://fluidae.com/

---------------------------------------------------------------------------------

-- Part of Fluid Application Environment(TM) - Copyright 2009 Ryan Johnson
--
--   This program is free software; you can redistribute it and/or modify
--   it under the terms of the GNU General Public License as published by
--   the Free Software Foundation; either version 2 of the License, or
--   (at your option) any later version.
--
--   This program is distributed in the hope that it will be useful,
--   but WITHOUT ANY WARRANTY; without even the implied warranty of
--   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--   GNU General Public License for more details.
--
--   You should have received a copy of the GNU General Public License
--   along with this program; if not, write to the Free Software
--   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
--
---------------------------------------------------------------------------------



--Artistic Electronics(TM) Fluid Application Environment(TM)
without warning

include std/error.e as err
--export include include/idle.e
include win32lib/win32lib.ew

--include include/std/task.e  --argh, doesn't work yet in this rev of eu 4.0

--global constant winMain = createEx( Window, "Fluid Application Environment", 0, 0, 0, 640, 280, WS_OVERLAPPEDWINDOW, 0 )
global constant winMain = createEx( Window, "Fluid Application Environment", 0, 0, 0, 640, 280, {WS_POPUP, WS_DLGFRAME}, 0 )
global atom IsServer = 0


--err:crash_file("fluidae.err")
atom task_main, task_test

--public include kernel/fmisc.e
public include common/console.e
--include common/fnp.e
include common/modules.e as mod

--{Installed Modules}-----------------------------------------------------------
--include modules/admin/admin.m
include modules/gui/gui.m
include modules/app/app.m
include modules/ide/ide.m
--include modules/euchat/euchat.m

--------------------------------------------------------------------------------

--procedure testtask()
--    while 1 do
--        task_yield()
--    end while
--end procedure


global procedure maintask()
    sequence modlist, modname, modsettings, clist, msg
    atom ret
    
    statusUpdateMsg(0, "Starting modules...", 0)
    
--{Enabled Modules}-------------------------------------------------------------
    --mod:start("admin")
    mod:start("gui")
    --mod:start("app")
    mod:start("ide")
    --mod:start("euchat")
--------------------------------------------------------------------------------
    
    statusUpdateMsg(0, "Running.", 0)
    
    --task_test = task_create(routine_id("testtask"), {})
    --task_schedule(task_test, {2, 5})

    while 1 do
        task_yield()
    end while
    
end procedure


task_main = task_create( routine_id("maintask"), {})
task_schedule(task_main, {0.01, 0.1})

WinMain( winMain,Normal )

--task_schedule(0, {1,2})
--while 1 do
--    task_yield()
--end while