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