▁create ▁ban ana ▁{ ▁▁▁▁ ▁super class ▁fruit ▁▁▁▁ ▁constructor ▁{} ▁{ ▁▁▁▁▁▁▁▁ ▁my ▁variable ▁pe e led ▁▁▁▁▁▁▁▁ ▁set ▁pe e led ▁ 0 ▁▁▁▁ ▁} ▁▁▁▁ ▁method ▁pe el ▁{} ▁{ ▁▁▁▁▁▁▁▁ ▁my ▁variable ▁pe e led ▁▁▁▁▁▁▁▁ ▁set ▁pe e led ▁ 1 ▁▁▁▁▁▁▁▁ ▁puts ▁" sk in ▁now ▁off " ▁▁▁▁ ▁} ▁▁▁▁ ▁method ▁ed ible ? ▁{} ▁{ ▁▁▁▁▁▁▁▁ ▁my ▁variable ▁pe e led ▁▁▁▁▁▁▁▁ ▁return ▁$ pe e led ▁▁▁▁ ▁} ▁▁▁▁ ▁method ▁eat ▁{} ▁{ ▁▁▁▁▁▁▁▁ ▁if ▁{ ![ my ▁ed ible ? ]} ▁{ ▁▁▁▁▁▁▁▁▁▁▁▁ ▁my ▁pe el ▁▁▁▁▁▁▁▁ ▁} ▁▁▁▁▁▁▁▁ ▁next ▁▁▁▁ ▁} ▁} ▁set ▁b ▁[ ban ana ▁new ] ▁$ b ▁eat ▁▁▁▁▁▁▁▁▁▁▁▁▁▁ ▁→ ▁prints ▁" sk in ▁now ▁off " ▁and ▁" y ummy !" ▁fruit ▁destroy ▁$ b ▁eat ▁▁▁▁▁▁▁▁▁▁▁▁▁▁ ▁→ ▁error ▁" unknown ▁command " ▁ ▁T cl ▁did ▁not ▁have ▁object ▁orient ed ▁( O O ) ▁syntax ▁until ▁ 2 0 1 2 , ▁so ▁various ▁extension ▁packages ▁emer ged ▁to ▁enable ▁object - orient ed ▁programming . ▁They ▁are ▁w ides p read ▁in ▁existing ▁T cl ▁source ▁code . ▁Popular ▁extensions ▁include : ▁ ▁inc r ▁T cl ▁ ▁X OT cl ▁ ▁It k ▁ ▁Sn it ▁ ▁S TO O OP ▁ ▁T cl O O ▁was ▁not ▁only ▁added ▁to ▁build ▁a ▁strong ▁object ▁orient ed ▁system , ▁but ▁also ▁to ▁enable ▁extension ▁packages ▁to ▁build ▁object ▁orient ed ▁abstra ctions ▁using ▁it ▁as ▁a ▁foundation . ▁After ▁the ▁release ▁of ▁T