package Ġedu . umb . cs . mb tab u ddy Ċ Ċ import Ġandroidx . appcompat . app . AppCompatActivity Ċ import Ġandroid . os . Bundle Ċ import Ġandroidx . fragment . app . Fragment Ċ import Ġandroidx . fragment . app . FragmentManager Ċ import Ġandroidx . fragment . app . Fragment Pager Adapter Ċ import Ġkotlinx . android . synt hetic . main . activity _ main .* Ċ Ċ class ĠMainActivity Ġ: ĠAppCompatActivity () Ġ{ ĊĊĠĠĠ Ġoverride Ġfun ĠonCreate ( savedInstanceState : ĠBundle ?) Ġ{ ĊĠĠĠĠĠĠĠ Ġsuper . onCreate ( savedInstanceState ) ĊĠĠĠĠĠĠĠ ĠsetContentView ( R . layout . activity _ main ) ĊĊĠĠĠĠĠĠĠ Ġ// ĠEach Ġtransport ation Ġline Ġhas Ġits Ġown Ġfragment ĊĠĠĠĠĠĠĠ Ġval Ġadapter Ġ= ĠMy ViewPager Adapter ( support FragmentManager ) ĊĠĠĠĠĠĠĠ Ġadapter . add Fragment ( Red line B ra int ree Fragment () Ġ, Ġ" RL - B ") ĊĠĠĠĠĠĠĠ Ġadapter . add Fragment ( Red line A shm ont Fragment () Ġ, Ġ" RL - A ") ĊĠĠĠĠĠĠĠ Ġadapter . add Fragment ( Red line Mat tap an Fragment () Ġ, Ġ" RL - M ") ĊĠĠĠĠĠĠĠ Ġadapter . add Fragment ( Orange line Fragment () Ġ, Ġ" OL ") ĊĠĠĠĠĠĠĠ Ġadapter . add Fragment ( Green line B Fragment () Ġ, Ġ" GL - B ") ĊĠĠĠĠĠĠĠ Ġadapter . add Fragment ( Green line CF ragment () Ġ, Ġ" GL - C ") ĊĠĠĠĠĠĠĠ Ġadapter . add Fragment ( Green line DF ragment () Ġ, Ġ" GL - D ") ĊĠĠĠĠĠĠĠ Ġadapter . add Fragment ( Green line E Fragment () Ġ, Ġ" GL - E ") ĊĊĠĠĠĠĠĠĠ Ġview Pager . adapter Ġ= Ġadapter ĊĠĠĠĠĠĠĠ Ġtabs . setup With ViewPager ( view Pager ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġclass ĠMy ViewPager Adapter ( manager : ĠFragment Manager ) Ġ: ĠFragment Pager Adapter ( manager ){ ĊĊĠĠĠĠĠĠĠ Ġprivate Ġval Ġfragment List Ġ: ĠMutable List < Fragment > Ġ= ĠArrayList () ĊĠĠĠĠĠĠĠ Ġprivate Ġval Ġtitle List Ġ: ĠMutable List < String > Ġ= ĠArrayList () ĊĊĠĠĠĠĠĠĠ Ġoverride Ġfun ĠgetItem ( position : ĠInt ): ĠFragment Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġreturn Ġfragment List [ position ] ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġoverride Ġfun Ġget Count (): ĠInt Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġreturn Ġfragment List . size ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġfun Ġadd Fragment ( fragment : ĠFragment , title : String ){ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġfragment List . add ( fragment ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtitle List . add ( title ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġoverride Ġfun Ġget Page Title ( position : ĠInt ): ĠCharSequence ? Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġreturn Ġtitle List [ position ] ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠ Ġ} Ċ Ċ }