Check PM Group

Added on 10/2/2000

Compatibilities:
Script
Required Xtras:
Buddy API

This item has not yet been rated

Author: MediaMacros (website)

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

Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail