// ĠImplementation Ċ Ċ class ĠDialog () Ġ{ ĊĊĠĠĠ Ġfun Ġshow Title () Ġ= Ġprintln (" show ing Ġtitle ") ĊĊĠĠĠ Ġfun ĠsetTitle ( text : ĠString ) Ġ= Ġprintln (" setting Ġtitle Ġtext Ġ$ text ") ĊĊĠĠĠ Ġfun ĠsetTitle Color ( color : ĠString ) Ġ= Ġprintln (" setting Ġtitle Ġcolor Ġ$ color ") ĊĊĠĠĠ Ġfun Ġshow Message () Ġ= Ġprintln (" show ing Ġmessage ") ĊĊĠĠĠ Ġfun Ġset Message ( text : ĠString ) Ġ= Ġprintln (" setting Ġmessage Ġ$ text ") ĊĊĠĠĠ Ġfun Ġset Message Color ( color : ĠString ) Ġ= Ġprintln (" setting Ġmessage Ġcolor Ġ$ color ") ĊĊĠĠĠ Ġfun Ġshow Image ( bitmap Bytes : ĠByteArray ) Ġ= Ġprintln (" show ing Ġimage Ġwith Ġsize Ġ${ bitmap Bytes . size }") ĊĊĠĠĠ Ġfun Ġshow () Ġ= Ġprintln (" show ing Ġdialog Ġ$ this ") Ċ } Ċ Ċ // Builder : Ċ class ĠDialog Builder () Ġ{ ĊĠĠĠ Ġconstructor ( init : ĠDialog Builder . () Ġ-> ĠUnit ) Ġ: Ġthis () Ġ{ ĊĠĠĠĠĠĠĠ Ġinit () ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprivate Ġvar Ġtitle Holder : ĠTextView ? Ġ= Ġnull ĊĠĠĠ Ġprivate Ġvar Ġmessage Holder : ĠTextView ? Ġ= Ġnull ĊĠĠĠ Ġprivate Ġvar Ġimage Holder : ĠFile ? Ġ= Ġnull ĊĊĠĠĠ Ġfun Ġtitle ( init : ĠTextView . () Ġ-> ĠUnit ) Ġ{ ĊĠĠĠĠĠĠĠ Ġtitle Holder Ġ= ĠTextView (). apply Ġ{ Ġinit () Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġmessage ( init : ĠTextView . () Ġ-> ĠUnit ) Ġ{ ĊĠĠĠĠĠĠĠ Ġmessage Holder Ġ= ĠTextView (). apply Ġ{ Ġinit () Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġimage ( init : Ġ() Ġ-> ĠFile ) Ġ{ ĊĠĠĠĠĠĠĠ Ġimage Holder Ġ= Ġinit () ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġbuild (): ĠDialog Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġdialog Ġ= ĠDialog () ĊĊĠĠĠĠĠĠĠ Ġtitle Holder ?. apply Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġdialog . setTitle ( text ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġdialog . setTitle Color ( color ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġdialog . show Title () ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġmessage Holder ?. apply Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġdialog . setMessage ( text ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġdialog . setMessage Color ( color ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġdialog . showMessage () ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġimage Holder ?. apply Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġdialog . show Image ( read Bytes ()) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġreturn Ġdialog ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġclass ĠTextView Ġ{ ĊĠĠĠĠĠĠĠ Ġvar Ġtext : ĠString Ġ= Ġ"" ĊĠĠĠĠĠĠĠ Ġvar Ġcolor : ĠString Ġ= Ġ"# 0 0 0 0 0 " ĊĠĠĠ Ġ} Ċ } Ċ Ċ // Function Ġthat Ġcreates Ġdialog Ġbuilder Ġand Ġbuilds ĠDialog Ċ fun Ġdialog ( init : ĠDialog Builder . () Ġ-> ĠUnit ): ĠDialog Ġ{ ĊĠĠĠ Ġreturn ĠDialog Builder ( init ). build () Ċ } Ċ Ċ // ĠUsage Ċ Ċ fun Ġmain ( args : ĠArray < String >) Ġ{ ĊĊĠĠĠ Ġval Ġdialog : ĠDialog Ġ= Ġdialog Ġ{ ĊĠĠĠĠĠĠĠ Ġtitle Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtext Ġ= Ġ" Dialog ĠTitle " ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġmessage Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtext Ġ= Ġ" Dialog ĠMessage " ĊĠĠĠĠĠĠĠĠĠĠĠ Ġcolor Ġ= Ġ"# 3 3 3 3 3 3 " ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġimage Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠFile . create TempFile (" image ", Ġ" jpg ") ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġdialog . show () Ċ }