#
# $Id: toggleiconbutton.icn,v 1.2 2004/11/11 15:16:35 rparlett Exp $
#
# This file is in the public domain.
#
# Author: Robert Parlett (parlett@dial.pipex.com)
#

package gui
link graphics

$include "guih.icn"

#
# The equivalent of a {ToggleTextButton}, but for an
# {IconButton}.
#
class ToggleIconButton : IconButton()
   initially(a[])
      self.IconButton.initially()
      self.toggles_flag := 1
      set_fields(a)
end