# # $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