let forward_char v args = v#forward_char