Check PM Group

 

Compatibilities: Required Xtras: Buddy API

This item has not yet been rated

This function checks the start menu for an icon of the current projector, and if it does not exist, it creates it. It will also generate the PM group if it is not htere. Call like this... createIcon(programGroupName, IconName, NameOfTheProjector)

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 on getBehaviorDescription me   describe = "This function checks the start menu for an icon of the current projector, and if it does not exist, it creates it.  It will also generate the PM group if it is not htere." & return & "Call like this..." & Return & "createIcon(programGroupName, IconName, NameOfTheProjector)"   return describe end