package Ġnet . ky ori . ad venture . we bui . js Ċ Ċ import Ġkotlinx . browser . document Ċ import Ġkotlinx . browser . window Ċ import Ġorg . w 3 c . dom . HTML Div Element Ċ import Ġorg . w 3 c . dom . HT M LO ption Element Ċ import Ġorg . w 3 c . dom . HTML Select Element Ċ import Ġorg . w 3 c . dom . asList Ċ import Ġorg . w 3 c . dom . set Ċ Ċ private Ġval Ġoutput Pane : ĠHTML Div Element Ġby Ġlazy Ġ{ Ġdocument . getElementById (" output - pane ") !!. unsafe Cast < HTML Div Element >() Ġ} Ċ private Ġval Ġsetting Background : ĠHTML Select Element Ġby Ġlazy Ġ{ Ġdocument . getElementById (" setting - background ") !!. unsafe Cast < HTML Select Element >() Ġ} Ċ private Ġval Ġvalid Background s : ĠList < String > Ġby Ġlazy Ġ{ Ġsetting Background . options . asList (). map Ġ{ Ġit . unsafe Cast < HT M LO ption Element >(). value Ġ} Ġ} Ċ public Ġvar Ġcurrent Background : ĠString ? Ġ= Ġnull ĊĠĠĠ Ġset ( value ) Ġ{ ĊĠĠĠĠĠĠĠ Ġfield Ġ= Ġvalue ĊĠĠĠĠĠĠĠ Ġupdate Background () ĊĠĠĠ Ġ} Ċ Ċ public Ġfun Ġupdate Background () Ġ{ ĊĠĠĠ Ġval Ġbg Ġ= Ġcurrent Background Ġ?: Ġreturn ĊĠĠĠ Ġif Ġ(! valid Background s . contains ( current Background )) Ġreturn ĊĠĠĠ Ġwindow . localStorage [ PARAM _ BACKGROUND ] Ġ= Ġbg ĊĠĠĠ Ġsetting Background . value Ġ= Ġbg ĊĠĠĠ Ġif Ġ( current Mode Ġ== ĠMode . SERVER _ LIST ) Ġ{ ĊĠĠĠĠĠĠĠ Ġ// ĠRemove Ġthe Ġcurrent Ġbackground Ġif Ġwe Ġare Ġswitching Ġto Ġ" server Ġlist " ĊĠĠĠĠĠĠĠ Ġ// Ġas Ġit Ġhas Ġa Ġblack Ġbackground Ġthat Ġis Ġotherwise Ġoverridden ĊĠĠĠĠĠĠĠ Ġoutput Pane . style . remove Property (" background - image ") ĊĠĠĠ Ġ} Ġelse Ġ{ ĊĠĠĠĠĠĠĠ Ġ// ĠOtherwise , Ġtry Ġto Ġput Ġback Ġthe Ġbackground Ġfrom Ġbefore ĊĠĠĠĠĠĠĠ Ġoutput Pane . style . background Image Ġ= Ġ" url (\" img /$ bg . jpg \") " ĊĠĠĠ Ġ} Ċ } Ċ