1. 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
Alternatively how can I minimize to the task bar
Thanks
Tony
2. Re: systray.ew not working
Take a look at my Popup Gorilla program, its in the Archives. It uses a
System tray icon and minimizes to the system tray (actually just hides the
window until you click the icon).
~Greg
----- Original Message -----
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
>
> Alternatively how can I minimize to the task bar
>
> Thanks
> Tony
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>
3. Re: systray.ew not working
>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
>
