CD Door Close, Open - MCI

Added on 1/28/2000

Compatibilities:
behavior D6_5

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

Upload Provided by ABCUpload ASP

Contact

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

Fax - (206) 339-5833

Send e-mail