package Ġcom . m ichael fl is ar . dialogs . events Ċ Ċ import Ġcom . m ichael fl is ar . dialogs . classes . Base Dialog Setup ĊĊ Ċ class ĠDialog Number Event ( setup : ĠBase Dialog Setup , Ġbutton Index : ĠInt , Ġval Ġdata : ĠData ?) Ġ: ĠBase Dialog Event ( setup , Ġbutton Index ) Ġ{ ĊĊĠĠĠ Ġclass ĠData ( val Ġvalues : ĠList < Int >) Ġ{ ĊĊĠĠĠĠĠĠĠ Ġconstructor ( value : ĠInt ) Ġ: Ġthis ( array ListOf ( value )) ĊĊĠĠĠĠĠĠĠ Ġval Ġvalue : ĠInt Ġ= Ġvalues [ 0 ] ĊĊĠĠĠĠĠĠĠ Ġfun ĠgetValue At ( index : ĠInt Ġ= Ġ 0 ) Ġ= Ġif Ġ( values . size Ġ> Ġindex ) Ġvalues [ index ] Ġelse Ġnull ĊĠĠĠ Ġ} Ċ }