#  $Id: toggleiconbutton.icn,v 1.1 2003-05-31 06:09:04 jeffery Exp $

##
#  The equivalent of a {ToggleTextButton}, but for an
#  {IconButton}.
#
class ToggleIconButton : IconButton()
   initially(argv[])
      self$IconButton.initially()
      self.is_checkbox_flag := 1
      if *argv > 0 then set_fields(argv)
end