package Ġcom . rod rig matrix . si pp a Ċ Ċ import Ġandroid . content . pm . Activity Info Ċ import Ġandroid . os . Bundle Ċ import Ġcom . google . android . material . tabs . Tab Layout Ċ import Ġandroidx . view pager . widget . ViewPager Ċ import Ġandroidx . appcompat . app . AppCompatActivity Ċ import Ġandroidx . appcompat . widget . Toolbar Ċ import Ġcom . rod rig matrix . si pp a . ui . main . Sections Pager Adapter Ċ Ċ class ĠDis cipl ina Activity Ġ: ĠAppCompatActivity () Ġ{ ĊĊĠĠĠ Ġoverride Ġfun ĠonCreate ( savedInstanceState : ĠBundle ?) Ġ{ ĊĠĠĠĠĠĠĠ Ġrequested Orientation Ġ= ĠActivity Info . SCREEN _ OR IENTATION _ POR TRA IT ĊĠĠĠĠĠĠĠ Ġsuper . onCreate ( savedInstanceState ) ĊĠĠĠĠĠĠĠ ĠsetContentView ( R . layout . activity _ dis cipl ina ) ĊĠĠĠĠĠĠĠ Ġval Ġsections Pager Adapter Ġ= ĠSe ctions Pager Adapter ( this , Ġsupport FragmentManager ) ĊĠĠĠĠĠĠĠ Ġvar Ġid Ġ= Ġintent . getString Extra (" id ") ĊĠĠĠĠĠĠĠ Ġprintln (" id Ġna Ġactivity Ġ$ id ") ĊĠĠĠĠĠĠĠ Ġsections Pager Adapter . remove Fragments () ĊĠĠĠĠĠĠĠ Ġsections Pager Adapter . add Fragment ( Not ic ias Fragment . newInstance ( id )) ĊĠĠĠĠĠĠĠ Ġsections Pager Adapter . add Fragment ( Not as Fragment . newInstance ( id )) ĊĠĠĠĠĠĠĠ Ġsections Pager Adapter . add Fragment ( Pl ano A ula Fragment . newInstance ( id )) ĊĠĠĠĠĠĠĠ Ġsections Pager Adapter . add Fragment ( Ar quivos Fragment . newInstance ( id )) ĊĊĠĠĠĠĠĠĠ Ġval Ġview Pager : ĠView Pager Ġ= ĠfindViewById ( R . id . view _ pager ) ĊĠĠĠĠĠĠĠ Ġview Pager . off screen Page Limit Ġ= Ġ 4 ĊĠĠĠĠĠĠĠ Ġval Ġtoolbar : ĠToolbar Ġ= ĠfindViewById ( R . id . toolbar ) ĊĠĠĠĠĠĠĠ Ġset Support ActionBar ( toolbar ) ĊĠĠĠĠĠĠĠ Ġsupport ActionBar !!. set Display Home As Up Enabled ( true ) ĊĠĠĠĠĠĠĠ Ġtoolbar . set Navigation Icon ( R . drawable . ic _ arrow _ back _ 2 4 dp ) ĊĠĠĠĠĠĠĠ Ġtoolbar . title Ġ= Ġintent . getString Extra (" name ") ĊĠĠĠĠĠĠĠ Ġtoolbar . set Navigation OnClickListener Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġthis . finish () ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġtabs : ĠTab Layout Ġ= ĠfindViewById ( R . id . tabs ) ĊĠĠĠĠĠĠĠ Ġtabs . setup With ViewPager ( view Pager ) ĊĠĠĠĠĠĠĠ Ġview Pager . adapter Ġ= Ġsections Pager Adapter ĊĠĠĠĠĠĠĠ Ġtabs . get Tab At ( 0 ) !!. setIcon ( R . drawable . ic _ not ic ias _ 2 4 dp ) ĊĠĠĠĠĠĠĠ Ġtabs . get Tab At ( 1 ) !!. setIcon ( R . drawable . ic _ not as _ 2 4 dp ) ĊĠĠĠĠĠĠĠ Ġtabs . get Tab At ( 2 ) !!. setIcon ( R . drawable . ic _ plan o _ 2 4 dp ) ĊĠĠĠĠĠĠĠ Ġtabs . get Tab At ( 3 ) !!. setIcon ( R . drawable . ic _ ar quivos _ 2 4 dp ) ĊĠĠĠĠĠĠĠ Ġif ( intent . getString Extra (" option ") Ġ== Ġ" grade s "){ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġop Ġ= Ġtabs . get Tab At ( 1 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġop !!. select () ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġelse { ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġop Ġ= Ġtabs . get Tab At ( 0 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġop !!. select () ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġon Back Pressed (){ ĊĠĠĠĠĠĠĠ Ġthis . finish () ĊĠĠĠ Ġ} Ċ }