% $Id: Toggle.oz,v 1.1 2007/10/14 17:56:08 leavens Exp leavens $ declare % An example of classes, as in section 1.14 fun {NewToggle} V Flip Value in V = {NewCell true} fun {Flip} V := {Not @V} @V end fun {Value} @V end % The following "instance" is what is returned. % Note that V is hidden. toggle(flip:Flip value:Value) end