OpenEuphoria

Re: systray.ew not working

• Posted by "Elliott S. de Andrade" <quantum_analyst at hotmail.com> Oct 25, 2003
• 336 views

>From: Tony Steward <tsteward at dodo.com.au>
>To: EU Forum <EUforum at topica.com>
>Subject: systray.ew not working
>
>
>Hello All,
>I downloaded the file systray from the archives but it doesn't work. The
>example wouldn't even work.
>I am using winXP, win32lib & eu2.4
>

Although the include was recently (relatively) updated to use setHandler(), 
the example was not fixed. A working example follows:

--Systray Example
--21/November/2001
--Thomas Parslow (PatRat)
--patrat at rat-software.com
-- Fixed to use setHandler()
-- by Elliott Sales de Andrade

without warning
include win32lib.ew
include systray.ew

constant Window1 =
    create( Window, "Systray.ew example", 0, 0, 0, 200, 100, 0 )
constant SysTray = systray_Create(Window1)
systray_SetIcon(SysTray,"test.ico")
systray_SetTip(SysTray,"Hello world!") --the tool tip shows up when you 
hover over the icon

procedure onopen(integer self, integer event, sequence params)
    systray_Show(SysTray)
end procedure

procedure onclose(integer self, integer event, sequence params)
    systray_Hide(SysTray)
end procedure

procedure onsystray(integer id, atom message)
    if message= WM_LBUTTONDOWN then
         if message_box("System tray icon left-clicked!","Systray.ew 
example",0) then end if
    elsif message= WM_RBUTTONDOWN then
        if message_box("System tray icon right-clicked!","Systray.ew 
example",0) then end if
    end if
end procedure
systray_SetEvent(SysTray,routine_id("onsystray"))

setHandler(Window1, w32HOpen, routine_id("onopen"))
setHandler(Window1, w32HClose, routine_id("onclose"))
WinMain( Window1, Normal )


>Alternatively how can I minimize to the task bar
>
>Thanks
>Tony
>