#
# $Id: toggletextbutton.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"

#
# 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(a[])
      self.TextButton.initially()
      self.toggles_flag := 1
      set_fields(a)
end