memento

' Gambas class file

Private estado As New State

Public Sub _new(s As State)

  estado = s

End

Public Function getEstado() As State

  Return estado

End