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>
	
	^ BrButton new
		aptitude: BrGlamorousButtonWithLabelAptitude new;
		label: 'Default';
		action: [ :aButton | 'Clicked' traceCr ]

Disabled labelled button

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

Labelled buttons of different size

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