Button

Use Glamorous buttons for actions in forms, popups or other views with support for multiple styles, sizes, states and more.

Building a custom button appearance

Learning how button model works

Playing with label aptitudes for buttons

Button with label

Default labelled button

BrGlamorousComponentsButtons>>#withLabel
	<gtExample>
	<return: #BrButton>
	^ BrButton new
		aptitude: BrGlamorousButtonWithLabelAptitude new;
		label: 'Default';
		action: [ :aButton | 'Clicked' traceCr ]

Disabled labelled button

BrGlamorousComponentsButtons>>#withLabelDisabled
	<gtExample>
	<return: #BrButton>
	^ BrButton new
		aptitude: BrGlamorousButtonWithLabelAptitude new;
		label: 'Default';
		disable

Labelled buttons of different size

BrGlamorousComponentsButtons>>#withLabelSizes
	<gtExample>
	<return: #BrHorizontalPane>
	^ BrHorizontalPane new
		fitContent;
		cellSpacing: 10;
		addChildren: {self withLabelMini.
				self withLabelTiny.
				self withLabelSmall.
				self withLabelNormal.
				self withLabelLarge.
				self withLabelHuge}