First class

class virtual abox rc = object(self)
  inherit t rc as super

  val mutable children = []

Second class

class vbox = object(self)
  inherit abox "vbox"


Third class, my class

class polling_box =
object
inherit vbox
method replace_children () =
children <- (some logic)