# # $Id: buttongroup.icn,v 1.1 2003/08/04 17:32:42 jeffery Exp $ # # This file is in the public domain. # # Author: Robert Parlett (parlett@dial.pipex.com) # package gui link graphics import lang $include "guih.icn" # # This class groups several Buttons together. Then, when the # mouse is clicked down on one of the Buttons and then dragged # onto another before being released, the other Button will go # "down". This is the common behaviour for buttons in a bar # along the top of an application. # # NB - A Button must be added to the {ButtonGroup} and the # {Dialog} too. # @example # @ bg := ButtonGroup() # @ b := TextButton() # @ b.set_label("Okay") # @ self.add(b) # @ bg.add(b) # class ButtonGroup : Object( buttons # ) # # Add the given {Button} to the {ButtonGroup}. # @param c The {Button} to add # method add(c) put(self.buttons, c) c.set_parent_button_group(self) end initially self.buttons := [] end