class CounterWithFun
super Counter
(*
 * This file is part of the Tycoon-2 system.
 *
 * The Tycoon-2 system is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation (Version 2).
 *
 * The Tycoon-2 system is distributed in the hope that it will be
 * useful, but WITHOUT ANY WARRANTY; without even the implied warranty
 * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public
 * License along with the Tycoon-2 system; see the file LICENSE.
 * If not, write to AB 4.02, Softwaresysteme, TU Hamburg-Harburg
 * D-21071 Hamburg, Germany. http://www.sts.tu-harburg.de
 * 
 * Copyright (c) 1996-1998 Higher-Order GmbH, Hamburg. All rights reserved.
 *

   Example for higher-order functions capturing self and super.
   F. Matthes 25.10.1997
*)
meta SimpleConcreteClass(CounterWithFun)
{
increment() :Int
{
  tycoon.stdout << "overridden method called"
  super.increment()
}

incrementer(i :Int) :Fun():Int
{
  fun( ) :Int
    {
      for(1 to: i do: fun(:Int) { increment })
      current
    }
}
incrementerSuper(i :Int) :Fun0(Int)
{
  fun( ) :Int
    {
      for(1 to: i do: fun(:Int) { super.increment })
      current
    }
}
}
?