Controlling Looping Macro from Tray

[macrobear]

Just trying to compile now, but not seeing the icon in the tray:

Code:

Copy      Help

str Icon = "$qm$\paste.ico"
int count = 0
str s = 0
int stop
Tray t.AddIcon(Icon "0" 0 &sub.Callback_Tray_AddIcon)
rep
    0.1
    if(stop) break
    int w1=win("Security Alert" "#32770")
    if(w1=0) continue
    clo w1
    count + 1
    s = count
    t.AddIcon(Icon s)


#sub Callback_Tray_AddIcon v
function Tray&x message

Callback function for Tray.AddIcon.
Called for each received message - when tray icon clicked, or mouse moved.

x - reference to this object.
message - mouse message (WM_MOUSEMOVE, WM_LBUTTONDOWN, etc).


;tOutWinMsg message 0 0 ;;uncomment to see received messages

sel message
    case WM_LBUTTONUP
    out "left click"
     out x.param
    
     exit the above rep loop
    stop=1
    
    case WM_RBUTTONUP
    out "right click"
    
    case WM_MBUTTONUP
    out "middle click"
BEGIN PROJECT
main_function  Outlook Clicker
exe_file  $desktop$\OutlookClicker.exe
icon  $qm$\paste.ico
manifest  $qm$\default.exe.manifest
flags  6
guid  {6781CFBB-32A1-4E99-ACF9-950DC05864EB}
END PROJECT