Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
Shocksites.com
Reverse Sort
Evil Mouse Puddle
Date Time Xtra
Kaboom!
Simatrix Lingo Font
Pulser
myPrint
How to Use Macromedia Flash 5
DeadC Scroll
 

 

 

Behavior Create Icon

Added on 9/16/1999

 

Compatibilities:
D6_5 D7 D8 PC Script

Required Xtras:
Buddy API

Rating:

Author: MediaMacros (website)

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

 


Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail