CD Door Close, Open - MCI

 

Compatibilities:

This item has not yet been rated

Uses MCI Commands

--JDP EasyBehavior --http://geocities.com/jdp_br -- 1999 JDP - Julio Diniz Perdigao property  Event, mode on initGotoFrame me   init me end on mouseUp me   if Event = #mouseup    then init me end on mouseDown me   if Event = #mouseDown   then init me end on mouseEnter me   if Event = #mouseEnter    then init me end on mouseLeave me   if Event = #mouseLeave    then init me end on enterFrame me   if Event = #enterFrame  then init me end on exitFrame me   if Event = #exitFrame  then init me end on init me   if the mode of me = #"close" then     mci "set cdaudio time format tmsf"     MCI "set cdaudio door closed"   else     MCI "set cdaudio door open"   end if end on getPropertyDescriptionList     set p_list = [#Event: [ #comment:   "Handler:", #format:   #symbol, #range: [ #MouseUp, #MouseDown, #MouseEnter, #MouseLeave, #EnterFrame, #ExitFrame], #default:   #MouseUp ], #Mode: [ #comment:   "Action:", #format:   #symbol, #range: [ #"Close", #"Open"], #default:   #"Close" ]]   return p_list   end