package Ġio . er ie . ui . er ie Ċ Ċ import Ġio . er ie . base . Base Presenter Ċ import Ġio . er ie . commons . Preferences Manager Ċ import Ġio . er ie . commons . Preferences ManagerImpl . Companion . KEY _ THEME Ċ Ċ class ĠE rie Presenter ( private Ġval Ġpreferences Manager : ĠPreferences Manager ) Ġ: ĊĠĠĠ ĠBase Presenter < E rie View >() Ġ{ ĊĊĠĠĠ Ġfun Ġhandle Tab Selected ( position : ĠInt ) Ġ{ ĊĠĠĠĠĠĠĠ Ġwhen Ġ( position ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠ 0 Ġ-> Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġget View ()?. set Top Head lines Color () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠ 1 Ġ-> Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġget View ()?. set All Articles Color () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġget View ()?. change Toolbar Title ( position ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġhandle Theme Change ( old Theme Selector : ĠInt , Ġavailable Themes : ĠList < Int >) Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġmax Index Ġ= Ġavailable Themes . size Ġ- Ġ 1 ĊĠĠĠĠĠĠĠ Ġval Ġis Old Theme Selector On Edge Ġ= Ġold Theme Selector Ġ>= Ġmax Index Ġ|| Ġold Theme Selector Ġ< Ġ 0 ĊĠĠĠĠĠĠĠ Ġval Ġnew Selector Ġ= Ġif Ġ( is Old Theme Selector On Edge ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠ 0 ĊĠĠĠĠĠĠĠ Ġ} Ġelse Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġold Theme Selector Ġ+ Ġ 1 ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġpreferences Manager . put Int ( KEY _ THEME , Ġnew Selector ) ĊĠĠĠĠĠĠĠ Ġget View ()?. update Theme Selector ( new Selector ) ĊĠĠĠĠĠĠĠ Ġget View ()?. re create View () ĊĊĠĠĠĠĠĠĠ Ġwhen Ġ( new Selector ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠ 0 Ġ-> Ġget View ()?. set Light StatusBar () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġelse Ġ-> Ġget View ()?. clear Light StatusBar () ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġfetch Theme Selector () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġselector Ġ= Ġpreferences Manager . getInt ( KEY _ THEME , Ġ 0 ) ĊĠĠĠĠĠĠĠ Ġget View ()?. update Theme Selector ( selector ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġhandle Filter Button Clicked ( page Position : ĠInt ) Ġ{ ĊĠĠĠĠĠĠĠ Ġwhen Ġ( page Position ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠ 0 Ġ-> Ġget View ()?. show Top Head lines Filter Dialog () ĊĠĠĠĠĠĠĠĠĠĠĠĠ 1 Ġ-> Ġget View ()?. show All Articles Filter Dialog () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġelse Ġ-> Ġerror (" No Ġsuch Ġpage Ġposition ") ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ }