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

##
#  This is simply a TextButton which acts as a toggle button.
#  In other words, when it is pressed down it stays down.  When
#  it is pressed again it comes back up.  It therefore has one
#  of two states, like a check box.
#
class ToggleTextButton : TextButton()
   initially(argv[])
      self$TextButton.initially()
      self.is_checkbox_flag := 1
      if *argv > 0 then set_fields(argv)
end