package Ġcom . ta j mot i . t ulip . ui . player Ċ Ċ import Ġorg . vide ol an . lib v lc . MediaPlayer Ċ Ċ private Ġval ĠV LC _ TYPE _ TO _ NAME Ġ= Ġmap Of ( ĊĠĠĠĠ 0 x 1 0 0 Ġto Ġ" Media Changed ", ĊĠĠĠĠ 0 x 1 0 2 Ġto Ġ" Opening ", ĊĠĠĠĠ 0 x 1 0 3 Ġto Ġ" Buffer ing ", ĊĠĠĠĠ 0 x 1 0 4 Ġto Ġ" Playing ", ĊĠĠĠĠ 0 x 1 0 5 Ġto Ġ" Paused ", ĊĠĠĠĠ 0 x 1 0 6 Ġto Ġ" Stopped ", ĊĠĠĠĠ 0 x 1 0 9 Ġto Ġ" End Reached ", ĊĠĠĠĠ 0 x 1 0 a Ġto Ġ" Encounter ed Error ", ĊĠĠĠĠ 0 x 1 0 b Ġto Ġ" Time Changed ", ĊĠĠĠĠ 0 x 1 0 c Ġto Ġ" Position Changed ", ĊĠĠĠĠ 0 x 1 0 d Ġto Ġ" Seek able Changed ", ĊĠĠĠĠ 0 x 1 0 e Ġto Ġ" Pa usable Changed ", ĊĠĠĠĠ 0 x 1 1 1 Ġto Ġ" Length Changed ", ĊĠĠĠĠ 0 x 1 1 2 Ġto Ġ" V out ", ĊĠĠĠĠ 0 x 1 1 4 Ġto Ġ" ES Added ", ĊĠĠĠĠ 0 x 1 1 5 Ġto Ġ" ES Deleted ", ĊĠĠĠĠ 0 x 1 1 6 Ġto Ġ" ES Selected " Ċ ) Ċ Ċ private Ġval ĠSP AM Ġ= Ġset Of ( ĊĠĠĠ ĠMedia Player . Event . Position Changed , ĊĠĠĠ ĠMedia Player . Event . Time Changed , ĊĠĠĠ ĠMedia Player . Event . ES Added , ĊĠĠĠ ĠMedia Player . Event . ES Deleted , ĊĠĠĠ ĠMedia Player . Event . ES Selected , Ċ ) Ċ Ċ fun ĠMedia Player . Event . format (): ĠString Ġ{ ĊĠĠĠ Ġreturn Ġ" MediaPlayer ĠEvent Ġ${ VL C _ TYPE _ TO _ NAME [ type ]} Ġ" Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" time Changed Ġ= Ġ$ time Changed , Ġ" Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" length Changed Ġ= Ġ$ length Changed , Ġ" Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" position Changed Ġ= Ġ$ position Changed , Ġ" Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" v out Count Ġ= Ġ$ v out Count , Ġ" Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" pa usable Ġ= Ġ$ pa usable , Ġ" Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" seek able Ġ= Ġ$ seek able , Ġ" Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" buffer ing Ġ= Ġ$ buffer ing " Ċ } Ċ Ċ val ĠMedia Player . Event . is Sp am : ĠBoolean ĊĠĠĠ Ġget () Ġ= ĠSP AM . contains ( type )