;all on one line below
local p="."++replacechars(case("lower",scriptfolder++?"\"++scriptname)
,case("lower",pprofolder)++?"scripts\","")
;all on one line above
local h = win.mainhandlefrompoint(xmouse,ymouse)
window.transmouse(-180,h)
local clname = "trans_" ++ file.name(win.exepath(h)) ++ "_" ++ h
;replace <AT> with at sign below
local cmd_l = p++"<AT>left(\"" ++ h ++"\", \"" ++ clname ++ "\")"
local cmd_r = "bar.close(\"" ++ clname ++ "\")"
;replace <AT> with at sign below
local cmd_m = p++"<AT>middle(\"" ++ h ++"\")"
CL.Create(clname,1)
;all on one line below
CL.SetProperties(clname, "Format=IconSize: 16 Position: Floating
TopMost ToolTips 3DFrame Flat")
; all on one line above
CL.Insert(clname, 0)
CL.AddLeft(clname, 0, cmd_l)
CL.AddRight(clname, 0, cmd_r)
cl.addmiddle(clname,0,cmd_m)
cl.SetWidth(clname, 0, 16)
cl.SetHeight(clname, 0, 16)
CL.SetLabel(clname, 0, clname)
cl.SetIcon(clname, 0, win.exepath(h))
cl.SetTooltip(clname, 0, file.name(win.exepath(h)) ++ " " ++ clname)
Bar.Show(clname)
win.move(clname,xmouse-10,ymouse-10)
quit
;replace <AT> below
<AT>left
if(win.trayminned(arg(1))==1)do
win.restore(arg(1))
quit
else
window.transmouse(-255,arg(1))
window.nottop(arg(1))
bar.close(arg(2))
endif
quit
;replace <AT> below
<AT>middle
pi.debug(arg(1))
------------------------ Yahoo! Groups Sponsor --------------------~-->
$9.95 domain names from Yahoo!. Register anything.
http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/JV_rlB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/power-pro/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
