Create Icon

 

Compatibilities: Required Xtras: Buddy API

Rating:

Creates PM Groups and Icons.

--Code by Chuck Neal --Chuck@mediamacros.coc on createIcon whatGroup, whatIcon, projectorName     set groupList = baPMGroupList( )   set addPM = True     baSetWindowState(baWinHandle(), "StayOnTop")     repeat with x = 1 to count(groupList)         if getAt(groupList, x) = whatGroup then       set iconList = baPMIconList(getAt(groupList, x))       repeat with y = 1 to count(iconList)         if getAt(iconList, y) = whatIcon then                     set addPM = False               end if       end repeat     end if       end repeat       if addPM = True then     baCreatePMGroup(whatGroup)     set groupWin = baNextActiveWindow(100)     startTimer     repeat while the timer < 60       nothing     end repeat         baCreatePMIcon( the applicationPath & projectorName , whatGroup, the applicationPath & projectorName , 0 )       end if   baCloseWindow(groupWin)       baSetWindowState(baWinHandle() , "DontStayOnTop")   end