Checkbox uses CheckboxUnchecked icon when unchecked

It should in theory valign to middle this way, but grid layout
suffers from #1

button.go

@@ -1,19 +1,22 @@
 package objects
 
 import "git.tebibyte.media/tomo/tomo"
-import "git.tebibyte.media/tomo/tomo/theme"
 import "git.tebibyte.media/tomo/tomo/input"
 import "git.tebibyte.media/tomo/tomo/event"
 import "git.tebibyte.media/tomo/objects/layouts"
 
 var buttonLayout     = layouts.NewGrid([]bool { true        }, []bool { true })
-var iconButtonLayout = layouts.NewGrid([]bool { false, true }, []bool { true })
+var iconButtonLayout = layouts.NewGrid([]bool { false       }, []bool { true })
+var bothButtonLayout = layouts.NewGrid([]bool { false, true }, []bool { true })
 
 // Button is a clickable button.
 type Button struct {
 	tomo.ContainerBox
+
 	label *Label
 	icon  *Icon
+	labelActive bool
+	
 	on struct {
 		click event.FuncBroadcaster
 	}
@@ -25,10 +28,10 @@ func NewButton (text string) *Button {
 		ContainerBox: tomo.NewContainerBox(),
 		label:        NewLabel(text),
 	}
-	theme.Apply(box, theme.R("objects", "Button", ""))
+	tomo.Apply(box, tomo.R("objects", "Button", ""))
 	box.label.SetAlign(tomo.AlignMiddle, tomo.AlignMiddle)
-	box.Add(box.label)
 	box.SetLayout(buttonLayout)
+	box.SetText(text)
 	
 	box.CaptureDND(true)
 	box.CaptureMouse(true)
@@ -44,20 +47,31 @@ func NewButton (text string) *Button {
 // SetText sets the text of the button's label.
 func (this *Button) SetText (text string) {
 	this.label.SetText(text)
+	if this.labelActive && text == "" {
+		this.Remove(this.label)
+		this.labelActive = false
+	}
+	if !this.labelActive && text != "" {
+		this.Add(this.label)
+		this.labelActive = true
+	}
+	this.applyLayout()
 }
 
-// SetIcon sets an icon for this button.
-// TODO: use tomo.Icon instead, use small size icons
-func (this *Button) SetIcon (icon *Icon) {
-	if this.icon != nil { this.Delete(this.icon) }
+// SetIcon sets an icon for this button. Setting the icon to IconUnknown will
+// remove it.
+func (this *Button) SetIcon (id tomo.Icon) {
+	if this.icon != nil { this.Remove(this.icon) }
+
+	var icon *Icon; if id != tomo.IconUnknown {
+		icon = NewIcon(id, tomo.IconSizeSmall)
+	}
 	this.icon = icon
 
-	if this.icon == nil {
-		this.SetLayout(buttonLayout)
-	} else {
-		this.SetLayout(iconButtonLayout)
+	if this.icon != nil {
 		this.Insert(this.icon, this.label)
 	}
+	this.applyLayout()
 }
 
 // OnClick specifies a function to be called when the button is clicked.
@@ -65,6 +79,16 @@ func (this *Button) OnClick (callback func ()) event.Cookie {
 	return this.on.click.Connect(callback)
 }
 
+func (this *Button) applyLayout () {
+	if this.labelActive && this.icon == nil {
+		this.SetLayout(buttonLayout)
+	} else if !this.labelActive && this.icon != nil {
+		this.SetLayout(iconButtonLayout)
+	} else {
+		this.SetLayout(bothButtonLayout)
+	}
+}
+
 func (this *Button) handleKeyUp (key input.Key, numberPad bool) {
 	if key != input.KeyEnter && key != input.Key(' ') { return }
 	this.on.click.Broadcast()

checkbox.go

@@ -0,0 +1,66 @@
+package objects
+
+import "git.tebibyte.media/tomo/tomo"
+import "git.tebibyte.media/tomo/tomo/input"
+import "git.tebibyte.media/tomo/tomo/event"
+
+// Checkbox is a control that can be toggled.
+type Checkbox struct {
+	tomo.Box
+	value bool
+	on struct {
+		valueChange event.FuncBroadcaster
+	}
+}
+
+// NewCheckbox creates a new checkbox with the specified value.
+func NewCheckbox (value bool) *Checkbox {
+	box := &Checkbox {
+		Box: tomo.NewBox(),
+	}
+	tomo.Apply(box, tomo.R("objects", "Checkbox", ""))
+	box.SetValue(false)
+	
+	box.OnMouseUp(box.handleMouseUp)
+	box.OnKeyUp(box.handleKeyUp)
+	box.SetFocusable(true)
+	return box
+}
+
+// SetValue sets the value of the checkbox.
+func (this *Checkbox) SetValue (value bool) {
+	this.value = value
+	if this.value {
+		this.SetTextureCenter(tomo.IconCheckboxChecked.Texture(tomo.IconSizeSmall))
+	} else {
+		this.SetTextureCenter(tomo.IconCheckboxUnchecked.Texture(tomo.IconSizeSmall))
+	}
+}
+
+// Toggle toggles the value of the checkbox between true and false.
+func (this *Checkbox) Toggle () {
+	this.SetValue(!this.Value())
+}
+
+// Value returns the value of the checkbox.
+func (this *Checkbox) Value () bool {
+	return this.value
+}
+
+// OnValueChange specifies a function to be called when the checkbox's value
+// changes.
+func (this *Checkbox) OnValueChange (callback func ()) event.Cookie {
+	return this.on.valueChange.Connect(callback)
+}
+
+func (this *Checkbox) handleKeyUp (key input.Key, numberPad bool) {
+	if key != input.KeyEnter && key != input.Key(' ') { return }
+	this.Toggle()
+}
+
+func (this *Checkbox) handleMouseUp (button input.Button) {
+	if button != input.ButtonLeft { return }
+	if this.MousePosition().In(this.Bounds()) {
+		this.Toggle()
+	}
+}

container.go

@@ -1,7 +1,6 @@
 package objects
 
 import "git.tebibyte.media/tomo/tomo"
-import "git.tebibyte.media/tomo/tomo/theme"
 
 // Container is an object that can contain other objects. It can be used as a
 // primitive for building more complex layouts. It has two variants: an outer
@@ -23,17 +22,27 @@ func newContainer (layout tomo.Layout, children ...tomo.Object) *Container {
 	return this
 }
 
-// NewOuterContainer creates a new container that has padding around it.
+// NewOuterContainer creates a new container that has padding around it, as well
+// as a solid background color. It is meant to be used as a root container for a
+// window, tab pane, etc.
 func NewOuterContainer (layout tomo.Layout, children ...tomo.Object) *Container {
 	this := newContainer(layout, children...)
-	theme.Apply(this, theme.R("objects", "Container", "outer"))
+	tomo.Apply(this, tomo.R("objects", "Container", "outer"))
+	return this
+}
+
+// NewSunkenContainer creates a new container with a sunken style and padding
+// around it. It is meant to be used as a root container for a ScrollContainer.
+func NewSunkenContainer (layout tomo.Layout, children ...tomo.Object) *Container {
+	this := newContainer(layout, children...)
+	tomo.Apply(this, tomo.R("objects", "Container", "sunken"))
 	return this
 }
 
 // NewInnerContainer creates a new container that has no padding around it.
 func NewInnerContainer (layout tomo.Layout, children ...tomo.Object) *Container {
 	this := newContainer(layout, children...)
-	theme.Apply(this, theme.R("objects", "Container", "inner"))
+	tomo.Apply(this, tomo.R("objects", "Container", "inner"))
 	return this
 }
 

dialog.go

@@ -0,0 +1,100 @@
+package objects
+
+import "image"
+import "git.tebibyte.media/tomo/tomo"
+import "git.tebibyte.media/tomo/tomo/event"
+import "git.tebibyte.media/tomo/objects/layouts"
+
+// DialogKind defines the semantic role of a dialog window.
+type DialogKind int; const (
+	DialogInformation DialogKind = iota
+	DialogQuestion
+	DialogWarning
+	DialogError
+)
+
+// Dialog is a modal dialog window.
+type Dialog struct {
+	tomo.Window
+	controlRow tomo.ContainerBox
+}
+
+type clickable interface {
+	OnClick (func ()) event.Cookie
+}
+
+// NewDialog creates a new dialog window given a dialog kind.
+func NewDialog (kind DialogKind, parent tomo.Window, title, message string, options ...tomo.Object) (*Dialog, error) {
+	if title == "" {
+		switch kind {
+		case DialogInformation: title = "Information"
+		case DialogQuestion:    title = "Question"
+		case DialogWarning:     title = "Warning"
+		case DialogError:       title = "Error"
+		}
+	}
+
+	dialog := &Dialog { }
+	if parent == nil {
+		window, err := tomo.NewWindow(image.Rectangle { })
+		if err != nil { return nil, err }
+		dialog.Window = window
+	} else {
+		window, err := parent.NewModal(image.Rectangle { })
+		if err != nil { return nil, err }
+		dialog.Window = window
+	}
+
+	var iconId tomo.Icon
+	switch kind {
+	case DialogInformation: iconId = tomo.IconDialogInformation
+	case DialogQuestion:    iconId = tomo.IconDialogQuestion
+	case DialogWarning:     iconId = tomo.IconDialogWarning
+	case DialogError:       iconId = tomo.IconDialogError
+	}
+	dialog.SetTitle(title)
+	icon := NewIcon(iconId, tomo.IconSizeLarge)
+	messageText := NewLabel(message)
+	messageText.SetAlign(tomo.AlignStart, tomo.AlignMiddle)
+
+	for _, option := range options {
+		if option, ok := option.(clickable); ok {
+			option.OnClick(dialog.Close)
+		}
+	}
+	dialog.controlRow = NewInnerContainer(layouts.ContractHorizontal, options...)
+	dialog.controlRow.SetAlign(tomo.AlignEnd, tomo.AlignEnd)
+
+	dialog.SetRoot(NewOuterContainer (
+		layouts.NewGrid([]bool { true }, []bool { true, false }),
+		NewInnerContainer(layouts.ContractHorizontal, icon, messageText),
+		dialog.controlRow))
+	return dialog, nil
+}
+
+// NewDialogOk creates a new dialog window with an OK option.
+func NewDialogOk (kind DialogKind, parent tomo.Window, title, message string, onOk func ()) (*Dialog, error) {
+	okButton := NewButton("OK")
+	okButton.SetIcon(tomo.IconDialogOkay)
+	okButton.OnClick(func () {
+		if onOk != nil { onOk() }
+	})
+	okButton.SetFocused(true)
+	
+	return NewDialog(kind, parent, title, message, okButton)
+}
+
+// NewDialogOkCancel creates a new dialog window with OK and Cancel options.
+func NewDialogOkCancel (kind DialogKind, parent tomo.Window, title, message string, onOk func ()) (*Dialog, error) {
+	cancelButton := NewButton("Cancel")
+	cancelButton.SetIcon(tomo.IconDialogCancel)
+	
+	okButton := NewButton("OK")
+	okButton.SetIcon(tomo.IconDialogOkay)
+	okButton.OnClick(func () {
+		if onOk != nil { onOk() }
+	})
+	okButton.SetFocused(true)
+
+	return NewDialog(kind, parent, title, message, cancelButton, okButton)
+}

go.mod

@@ -2,6 +2,6 @@ module git.tebibyte.media/tomo/objects
 
 go 1.20
 
-require git.tebibyte.media/tomo/tomo v0.31.0
+require git.tebibyte.media/tomo/tomo v0.34.0
 
 require golang.org/x/image v0.11.0 // indirect

go.sum

@@ -1,5 +1,5 @@
-git.tebibyte.media/tomo/tomo v0.31.0 h1:LHPpj3AWycochnC8F441aaRNS6Tq6w6WnBrp/LGjyhM=
-git.tebibyte.media/tomo/tomo v0.31.0/go.mod h1:C9EzepS9wjkTJjnZaPBh22YvVPyA4hbBAJVU20Rdmps=
+git.tebibyte.media/tomo/tomo v0.34.0 h1:r5yJPks9rtzdDI2RyAUdqa1qb6BebG0QFe2cTmcFi+0=
+git.tebibyte.media/tomo/tomo v0.34.0/go.mod h1:C9EzepS9wjkTJjnZaPBh22YvVPyA4hbBAJVU20Rdmps=
 github.com/yuin/goldmark v1.4.13/go.mod h1:6yULJ656Px+3vBD8DxQVa3kxgyrAnzto9xy5taEt/CY=
 golang.org/x/crypto v0.0.0-20190308221718-c2843e01d9a2/go.mod h1:djNgcEr1/C05ACkg1iLfiJU5Ep61QUkGW8qpdssI0+w=
 golang.org/x/crypto v0.0.0-20210921155107-089bfa567519/go.mod h1:GvvjBRRGRdwPK5ydBHafDWAxML/pGHZbMvKqRZ5+Abc=

heading.go

@@ -2,7 +2,6 @@ package objects
 
 import "fmt"
 import "git.tebibyte.media/tomo/tomo"
-import "git.tebibyte.media/tomo/tomo/theme"
 
 // Heading is a label that denotes the start of some section of content. It can
 // have a level from 0 to 2, with 0 being the most prominent and 2 being the
@@ -12,11 +11,11 @@ type Heading struct {
 }
 
 // NewHeading creates a new section heading. The level can be from 0 to 2.
-func NewHeading (level int, text string) *Label {
+func NewHeading (level int, text string) *Heading {
 	if level < 0 { level = 0 }
 	if level > 2 { level = 2 }
-	this := &Label { TextBox: tomo.NewTextBox() }
-	theme.Apply(this, theme.R("objects", "Heading", fmt.Sprint(level)))
+	this := &Heading { TextBox: tomo.NewTextBox() }
+	tomo.Apply(this, tomo.R("objects", "Heading", fmt.Sprint(level)))
 	this.SetText(text)
 	return this
 }

icon.go

@@ -3,7 +3,6 @@ package objects
 import "image"
 import "git.tebibyte.media/tomo/tomo"
 import "git.tebibyte.media/tomo/tomo/data"
-import "git.tebibyte.media/tomo/tomo/theme"
 import "git.tebibyte.media/tomo/tomo/canvas"
 
 // Icon displays a single icon.
@@ -12,27 +11,27 @@ type Icon struct {
 }
 
 // NewIcon creates a new icon from an icon ID.
-func NewIcon (id theme.Icon, size theme.IconSize) *Icon {
+func NewIcon (id tomo.Icon, size tomo.IconSize) *Icon {
 	this := &Icon {
 		Box: tomo.NewBox(),
 	}
-	theme.Apply(this, theme.R("objects", "Icon", size.String()))
+	tomo.Apply(this, tomo.R("objects", "Icon", size.String()))
 	this.SetTexture(id.Texture(size))
 	return this
 }
 
 // NewMimeIcon creates a new icon from a MIME type.
-func NewMimeIcon (mime data.Mime, size theme.IconSize) *Icon {
+func NewMimeIcon (mime data.Mime, size tomo.IconSize) *Icon {
 	this := &Icon {
 		Box: tomo.NewBox(),
 	}
-	theme.Apply(this, theme.R("objects", "Icon", size.String()))
-	this.SetTexture(theme.MimeIcon(mime, size))
+	tomo.Apply(this, tomo.R("objects", "Icon", size.String()))
+	this.SetTexture(tomo.MimeIcon(mime, size))
 	return this
 }
 
 func (this *Icon) SetTexture (texture canvas.Texture) {
-	this.Box.SetTexture(texture)
+	this.Box.SetTextureCenter(texture)
 	if texture == nil {
 		this.SetMinimumSize(image.Pt(0, 0))
 	} else {

label.go

@@ -1,7 +1,6 @@
 package objects
 
 import "git.tebibyte.media/tomo/tomo"
-import "git.tebibyte.media/tomo/tomo/theme"
 
 // Label is a simple text label.
 type Label struct {
@@ -11,7 +10,7 @@ type Label struct {
 // NewLabel creates a new text label.
 func NewLabel (text string) *Label {
 	this := &Label { TextBox: tomo.NewTextBox() }
-	theme.Apply(this, theme.R("objects", "Label", ""))
+	tomo.Apply(this, tomo.R("objects", "Label", ""))
 	this.SetText(text)
 	return this
 }

labelcheckbox.go

@@ -0,0 +1,61 @@
+package objects
+
+import "git.tebibyte.media/tomo/tomo"
+import "git.tebibyte.media/tomo/tomo/input"
+import "git.tebibyte.media/tomo/tomo/event"
+import "git.tebibyte.media/tomo/objects/layouts"
+
+// LabelCheckbox is a checkbox with a label.
+type LabelCheckbox struct {
+	tomo.ContainerBox
+	checkbox *Checkbox
+	label    *Label
+}
+
+// NewLabelCheckbox creates a new labeled checkbox with the specified value and
+// label text.
+func NewLabelCheckbox (value bool, text string) *LabelCheckbox {
+	box := &LabelCheckbox {
+		ContainerBox: tomo.NewContainerBox(),
+		checkbox:     NewCheckbox(value),
+		label:        NewLabel(text),
+	}
+	tomo.Apply(box, tomo.R("objects", "LabelCheckbox", ""))
+	box.label.SetAlign(tomo.AlignStart, tomo.AlignMiddle)
+	box.Add(box.checkbox)
+	box.Add(box.label)
+	box.SetLayout(layouts.NewGrid([]bool { false, true }, []bool { false }))
+
+	box.OnMouseUp(box.handleMouseUp)
+	box.label.OnMouseUp(box.handleMouseUp)
+	return box
+}
+
+// SetValue sets the value of the checkbox.
+func (this *LabelCheckbox) SetValue (value bool) {
+	this.checkbox.SetValue(value)
+}
+
+// Toggle toggles the value of the checkbox between true and false.
+func (this *LabelCheckbox) Toggle () {
+	this.checkbox.Toggle()
+}
+
+// Value returns the value of the checkbox.
+func (this *LabelCheckbox) Value () bool {
+	return this.checkbox.Value()
+}
+
+// OnValueChange specifies a function to be called when the checkbox's value
+// changes.
+func (this *LabelCheckbox) OnValueChange (callback func ()) event.Cookie {
+	return this.checkbox.OnValueChange(callback)
+}
+
+func (this *LabelCheckbox) handleMouseUp (button input.Button) {
+	if button != input.ButtonLeft { return }
+	if this.MousePosition().In(this.Bounds()) {
+		this.checkbox.SetFocused(true)
+		this.checkbox.Toggle()
+	}
+}

layouts/flow.go

@@ -0,0 +1,123 @@
+package layouts
+
+import "image"
+import "git.tebibyte.media/tomo/tomo"
+
+// Flow is a grid layout where the number of rows and columns changes depending
+// on the size of the container. It is designed to be used with an overflowing
+// container. If the container does not overflow in the correct direction, the
+// layout will behave like Contract.
+type Flow bool
+
+// FlowVertical is a vertical flow layout.
+const FlowVertical Flow = true
+
+// FlowHorizontal is a horizontal flow layout.
+const FlowHorizontal Flow = false
+
+func (flow Flow) MinimumSize (hints tomo.LayoutHints, boxes []tomo.Box) image.Point {
+	// TODO: write down somewhere that layout minimums aren't taken into
+	// account when the respective direction is overflowed
+	return flow.fallback().MinimumSize(hints, boxes)
+}
+
+func (flow Flow) Arrange (hints tomo.LayoutHints, boxes []tomo.Box) {
+	if flow.v() && !hints.OverflowY || flow.h() && !hints.OverflowX {
+		flow.fallback().Arrange(hints, boxes)
+	}
+
+	// find a minor size value that will fit all boxes
+	minorSize := 0
+	for _, box := range boxes {
+		boxSize := flow.minor(box.MinimumSize())
+		if boxSize > minorSize { minorSize = boxSize }
+	}
+	if minorSize == 0 { return }
+	minorSteps :=
+		(flow.deltaMinor(hints.Bounds) + flow.minor(hints.Gap)) /
+		(minorSize + flow.minor(hints.Gap))
+
+	// arrange
+	point := hints.Bounds.Min
+	index := 0
+	for index < len(boxes) {
+		// get a slice of boxes for this major step
+		stepIndexEnd := index + minorSteps
+		if stepIndexEnd > len(boxes) { stepIndexEnd = len(boxes) }
+		step := boxes[index:stepIndexEnd]
+		index += minorSteps
+		
+		// find a major size that will fit all boxes on this major step
+		majorSize := 0
+		for _, box := range step {
+			boxSize := flow.major(box.MinimumSize())
+			if boxSize > majorSize { majorSize = boxSize }
+		}
+		if majorSize == 0 { continue }
+
+		// arrange all boxes on this major step
+		var size image.Point
+		size = flow.incrMajor(size, majorSize)
+		size = flow.incrMinor(size, minorSize)
+		for _, box := range step {
+			bounds := image.Rectangle { Min: point, Max: point.Add(size) }
+			box.SetBounds(bounds)
+
+			point = flow.incrMinor(point, minorSize + flow.minor(hints.Gap))
+		}
+
+		if flow.v() {
+			point.Y += majorSize + hints.Gap.Y
+			point.X = hints.Bounds.Min.X
+		} else {
+			point.X += majorSize + hints.Gap.X
+			point.Y = hints.Bounds.Min.Y
+		}
+	}
+}
+
+func (flow Flow) v () bool { return flow == FlowVertical   }
+func (flow Flow) h () bool { return flow == FlowHorizontal }
+
+func (flow Flow) minor (point image.Point) int {
+	if flow.v() {
+		return point.X
+	} else {
+		return point.Y
+	}
+}
+func (flow Flow) major (point image.Point) int {
+	if flow.v() {
+		return point.Y
+	} else {
+		return point.X
+	}
+}
+func (flow Flow) incrMinor (point image.Point, delta int) image.Point {
+	if flow.v() {
+		point.X += delta
+		return point
+	} else {
+		point.Y += delta
+		return point
+	}
+}
+func (flow Flow) incrMajor (point image.Point, delta int) image.Point {
+	if flow.v() {
+		point.Y += delta
+		return point
+	} else {
+		point.X += delta
+		return point
+	}
+}
+func (flow Flow) deltaMinor (rectangle image.Rectangle) int {
+	if flow.v() {
+		return rectangle.Dx()
+	} else {
+		return rectangle.Dy()
+	}
+}
+func (flow Flow) fallback () tomo.Layout {
+	return Contract(flow)
+}

layouts/layouts.go

@@ -3,51 +3,18 @@ package layouts
 import "image"
 import "git.tebibyte.media/tomo/tomo"
 
-type Row struct { }
+// Contract is a layout that arranges boxes in a simple row or column according
+// to their minimum sizes.
+type Contract bool
 
-func (Row) MinimumSize (hints tomo.LayoutHints, boxes []tomo.Box) image.Point {
-	dot := image.Point { }
-	for _, box := range boxes {
-		minimum := box.MinimumSize()
-		dot.X += minimum.X
-		if dot.Y < minimum.Y {
-			dot.Y = minimum.Y
-		}
-	}
-	dot.X += hints.Gap.X * (len(boxes) - 1)
-	return dot
-}
+// ContractVertical is a vertical contracted layout.
+const ContractVertical Contract = true
 
-func (Row) Arrange (hints tomo.LayoutHints, boxes []tomo.Box) {
-	// TODO respect alignment value
-	dot := hints.Bounds.Min
-	for index, box := range boxes {
-		if index > 0 { dot.X += hints.Gap.X }
-		minimum := box.MinimumSize()
-		box.SetBounds(image.Rectangle {
-			Min: dot,
-			Max: dot.Add(image.Pt(minimum.X, hints.Bounds.Dy())),
-		})
-		dot.X += minimum.X
-	}
+// ContractHorizontal is a horizontal contracted layout.
+const ContractHorizontal Contract = false
 
-	width  := dot.X - hints.Bounds.Min.X
-	offset := 0
-	
-	switch hints.AlignX {
-	case tomo.AlignMiddle:
-		offset = (hints.Bounds.Dx() - width) / 2
-	case tomo.AlignEnd:
-		offset = hints.Bounds.Dx() - width
-	}
-	for _, box := range boxes {
-		box.SetBounds(box.Bounds().Add(image.Pt(offset, 0)))
-	}
-}
-
-type Column struct { }
-
-func (Column) MinimumSize (hints tomo.LayoutHints, boxes []tomo.Box) image.Point {
+func (contract Contract) MinimumSize (hints tomo.LayoutHints, boxes []tomo.Box) image.Point {
+	if contract.v() {
 		dot := image.Point { }
 		for _, box := range boxes {
 			minimum := box.MinimumSize()
@@ -58,10 +25,22 @@ func (Column) MinimumSize (hints tomo.LayoutHints, boxes []tomo.Box) image.Point
 		}
 		dot.Y += hints.Gap.Y * (len(boxes) - 1)
 		return dot
+	} else {
+		dot := image.Point { }
+		for _, box := range boxes {
+			minimum := box.MinimumSize()
+			dot.X += minimum.X
+			if dot.Y < minimum.Y {
+				dot.Y = minimum.Y
+			}
+		}
+		dot.X += hints.Gap.X * (len(boxes) - 1)
+		return dot
+	}
 }
 
-func (Column) Arrange (hints tomo.LayoutHints, boxes []tomo.Box) {
-	// TODO respect alignment value
+func (contract Contract) Arrange (hints tomo.LayoutHints, boxes []tomo.Box) {
+	if contract.v() {
 		dot := hints.Bounds.Min
 		for index, box := range boxes {
 			if index > 0 { dot.Y += hints.Gap.Y }
@@ -85,4 +64,32 @@ func (Column) Arrange (hints tomo.LayoutHints, boxes []tomo.Box) {
 		for _, box := range boxes {
 			box.SetBounds(box.Bounds().Add(image.Pt(0, offset)))
 		}
+	} else {
+		dot := hints.Bounds.Min
+		for index, box := range boxes {
+			if index > 0 { dot.X += hints.Gap.X }
+			minimum := box.MinimumSize()
+			box.SetBounds(image.Rectangle {
+				Min: dot,
+				Max: dot.Add(image.Pt(minimum.X, hints.Bounds.Dy())),
+			})
+			dot.X += minimum.X
+		}
+
+		width  := dot.X - hints.Bounds.Min.X
+		offset := 0
+		
+		switch hints.AlignX {
+		case tomo.AlignMiddle:
+			offset = (hints.Bounds.Dx() - width) / 2
+		case tomo.AlignEnd:
+			offset = hints.Bounds.Dx() - width
+		}
+		for _, box := range boxes {
+			box.SetBounds(box.Bounds().Add(image.Pt(offset, 0)))
+		}
+	}
 }
+
+func (contract Contract) v () bool { return contract == ContractVertical   }
+func (contract Contract) h () bool { return contract == ContractHorizontal }

numberinput.go

@@ -0,0 +1,99 @@
+package objects
+
+import "math"
+import "strconv"
+import "git.tebibyte.media/tomo/tomo"
+import "git.tebibyte.media/tomo/tomo/input"
+import "git.tebibyte.media/tomo/tomo/event"
+import "git.tebibyte.media/tomo/objects/layouts"
+
+// NumberInput is an editable text box which accepts only numbers, and has
+// controls to increment and decrement its value.
+type NumberInput struct {
+	tomo.ContainerBox
+	input     *TextInput
+	increment *Button
+	decrement *Button
+	on struct {
+		enter event.FuncBroadcaster
+		edit  event.FuncBroadcaster
+	}
+}
+
+// NewNumberInput creates a new number input with the specified value.
+func NewNumberInput (value float64) *NumberInput {
+	box := &NumberInput {
+		ContainerBox: tomo.NewContainerBox(),
+		input:        NewTextInput(""),
+		increment:    NewButton(""),
+		decrement:    NewButton(""),
+	}
+	tomo.Apply(box, tomo.R("objects", "NumberInput", ""))
+	box.Add(box.input)
+	box.Add(box.decrement)
+	box.Add(box.increment)
+	box.SetLayout(layouts.NewGrid([]bool { true, false, false }, []bool { true }))
+	box.increment.SetIcon(tomo.IconValueIncrement)
+	box.decrement.SetIcon(tomo.IconValueDecrement)
+	
+	box.SetValue(value)
+	
+	box.CaptureScroll(true)
+	box.CaptureKeyboard(true)
+	
+	box.OnScroll(box.handleScroll)
+	box.OnKeyDown(box.handleKeyDown)
+	box.input.OnEnter(box.handleEnter)
+	box.input.OnEdit(box.on.edit.Broadcast)
+	box.increment.OnClick(func () { box.shift(1)  })
+	box.decrement.OnClick(func () { box.shift(-1) })
+	return box
+}
+
+// SetValue sets the value of the input.
+func (this *NumberInput) SetValue (value float64) {
+	this.input.SetText(strconv.FormatFloat(value, 'g', -1, 64))
+}
+
+// Value returns the value of the input.
+func (this *NumberInput) Value () float64 {
+	value, _ := strconv.ParseFloat(this.input.Text(), 64)
+	return value
+}
+
+// OnEnter specifies a function to be called when the user presses enter within
+// the text input.
+func (this *NumberInput) OnEnter (callback func ()) event.Cookie {
+	return this.on.enter.Connect(callback)
+}
+
+// OnEdit specifies a function to be called when the user edits the input value.
+func (this *NumberInput) OnEdit (callback func ()) event.Cookie {
+	return this.on.edit.Connect(callback)
+}
+
+func (this *NumberInput) shift (by int) {
+	this.SetValue(this.Value() + float64(by))
+	this.on.edit.Broadcast()
+}
+
+func (this *NumberInput) handleKeyDown (key input.Key, numpad bool) {
+	switch key {
+	case input.KeyUp:   this.shift(1)
+	case input.KeyDown: this.shift(-1)
+	default:            this.input.handleKeyDown(key, numpad)
+	}
+}
+
+func (this *NumberInput) handleScroll (x, y float64) {
+	if x == 0 {
+		this.shift(-int(math.Round(y)))
+	} else {
+		this.input.handleScroll(x, y)
+	}
+}
+
+func (this *NumberInput) handleEnter () {
+	this.SetValue(this.Value())
+	this.on.enter.Broadcast()
+}

scrollbar.go

@@ -2,7 +2,6 @@ package objects
 
 import "image"
 import "git.tebibyte.media/tomo/tomo"
-import "git.tebibyte.media/tomo/tomo/theme"
 import "git.tebibyte.media/tomo/tomo/input"
 import "git.tebibyte.media/tomo/tomo/event"
 
@@ -46,8 +45,8 @@ func newScrollbar (orient string) *Scrollbar {
 	this.OnMouseUp(this.handleMouseUp)
 	this.OnMouseMove(this.handleMouseMove)
 	this.OnScroll(this.handleScroll)
-	theme.Apply(this.handle, theme.R("objects", "SliderHandle", orient))
-	theme.Apply(this,        theme.R("objects", "Slider", orient))
+	tomo.Apply(this.handle, tomo.R("objects", "SliderHandle", orient))
+	tomo.Apply(this,        tomo.R("objects", "Slider", orient))
 	return this
 }
 
@@ -98,9 +97,9 @@ func (this *Scrollbar) SetValue (value float64) {
 	position    := trackLength * value
 	point       := this.layout.linked.ContentBounds().Min
 	if this.layout.vertical {
-		point.Y = int(position)
+		point.Y = -int(position)
 	} else {
-		point.X = int(position)
+		point.X = -int(position)
 	}
 	this.layout.linked.ScrollTo(point)
 	
@@ -173,15 +172,15 @@ func (this *Scrollbar) handleMouseDown (button input.Button) {
 		}
 	case input.ButtonMiddle:
 		if above {
-			this.scrollBy(-this.pageSize())
-		} else {
 			this.scrollBy(this.pageSize())
+		} else {
+			this.scrollBy(-this.pageSize())
 		}
 	case input.ButtonRight:
 		if above {
-			this.scrollBy(-this.stepSize())
-		} else {
 			this.scrollBy(this.stepSize())
+		} else {
+			this.scrollBy(-this.stepSize())
 		}
 	}
 }
@@ -200,7 +199,7 @@ func (this *Scrollbar) handleScroll (x, y float64) {
 	if this.layout.linked == nil { return }
 	this.layout.linked.ScrollTo (
 		this.layout.linked.ContentBounds().Min.
-		Add(image.Pt(int(x), int(y))))
+		Sub(image.Pt(int(x), int(y))))
 }
 
 func (this *Scrollbar) drag () {
@@ -241,7 +240,7 @@ func (this *Scrollbar) pageSize () int {
 
 func (this *Scrollbar) stepSize () int {
 	// FIXME: this should not be hardcoded, need to get base font metrics
-	// from theme somehow. should be (emspace, lineheight)
+	// from tomo.somehow. should be (emspace, lineheight)
 	return 16
 }
 
@@ -307,9 +306,10 @@ func (this scrollbarLayout) Arrange (hints tomo.LayoutHints, boxes []tomo.Box) {
 	handleLength := gutterLength * this.viewportContentRatio()
 	if handleLength < handleMin { handleLength = handleMin }
 	if handleLength >= gutterLength {
-		// just hide the handle if it isn't needed.
-		// TODO: we need a way to hide and show boxes, this is janky as
-		// fuck
+		// just hide the handle if it isn't needed. we are the layout
+		// and we shouldn't be adding and removing boxes, so this is
+		// really the only good way to hide things.
+		// TODO perhaps have a "Hidden" rectangle in the Tomo API?
 		boxes[0].SetBounds(image.Rect(-16, -16, 0, 0))
 		return
 	}
@@ -327,7 +327,7 @@ func (this scrollbarLayout) Arrange (hints tomo.LayoutHints, boxes []tomo.Box) {
 	} else {
 		handleOffset = image.Pt(int(handlePosition), 0)
 	}
-	handle = handle.Add(handleOffset).Add(gutter.Min)
+	handle = handle.Sub(handleOffset).Add(gutter.Min)
 	
 	// place handle
 	boxes[0].SetBounds(handle)

scrollcontainer.go

@@ -3,7 +3,6 @@ package objects
 import "image"
 import "git.tebibyte.media/tomo/tomo"
 import "git.tebibyte.media/tomo/tomo/event"
-import "git.tebibyte.media/tomo/tomo/theme"
 
 // ScrollSide determines which Scrollbars are active in a ScrollContainer.
 type ScrollSide int; const (
@@ -61,7 +60,7 @@ func NewScrollContainer (sides ScrollSide) *ScrollContainer {
 	}
 	this.CaptureScroll(true)
 	this.OnScroll(this.handleScroll)
-	theme.Apply(this, theme.R("objects", "ScrollContainer", sides.String()))
+	tomo.Apply(this, tomo.R("objects", "ScrollContainer", sides.String()))
 	this.SetLayout(this.layout)
 	return this
 }
@@ -71,8 +70,8 @@ func NewScrollContainer (sides ScrollSide) *ScrollContainer {
 // one.
 func (this *ScrollContainer) SetRoot (root tomo.ContentBox) {
 	if this.layout.root != nil {
-		// delete root and close cookies
-		this.Delete(this.layout.root)
+		// remove root and close cookies
+		this.Remove(this.layout.root)
 		if this.horizontalCookie != nil {
 			this.horizontalCookie.Close()
 			this.horizontalCookie = nil
@@ -104,11 +103,34 @@ func (this *ScrollContainer) SetRoot (root tomo.ContentBox) {
 	}
 }
 
+// SetValue sets the horizontal and vertical scrollbar values where 0 is all the
+// way to the left/top, and 1 is all the way to the right/bottom.
+func (this *ScrollContainer) SetValue (x, y float64) {
+	if this.layout.horizontal != nil {
+		this.layout.horizontal.SetValue(x)
+	}
+	if this.layout.vertical != nil {
+		this.layout.vertical.SetValue(y)
+	}
+}
+
+// Value returns the horizontal and vertical scrollbar values where 0 is all the
+// way to the left/top, and 1 is all the way to the right/bottom.
+func (this *ScrollContainer) Value () (x, y float64) {
+	if this.layout.horizontal != nil {
+		x = this.layout.horizontal.Value()
+	}
+	if this.layout.vertical != nil {
+		y = this.layout.vertical.Value()
+	}
+	return x, y
+}
+
 func (this *ScrollContainer) handleScroll (x, y float64) {
 	if this.layout.root == nil { return }
 	this.layout.root.ScrollTo (
 		this.layout.root.ContentBounds().Min.
-		Add(image.Pt(int(x), int(y))))
+		Sub(image.Pt(int(x), int(y))))
 }
 
 type scrollContainerLayout struct {

separator.go

@@ -1,7 +1,6 @@
 package objects
 
 import "git.tebibyte.media/tomo/tomo"
-import "git.tebibyte.media/tomo/tomo/theme"
 
 // Separator is a line for visually separating elements.
 type Separator struct {
@@ -13,6 +12,6 @@ func NewSeparator () *Separator {
 	this := &Separator {
 		Box: tomo.NewBox(),
 	}
-	theme.Apply(this, theme.R("objects", "Separator", ""))
+	tomo.Apply(this, tomo.R("objects", "Separator", ""))
 	return this
 }

slider.go

@@ -2,7 +2,6 @@ package objects
 
 import "image"
 import "git.tebibyte.media/tomo/tomo"
-import "git.tebibyte.media/tomo/tomo/theme"
 import "git.tebibyte.media/tomo/tomo/input"
 import "git.tebibyte.media/tomo/tomo/event"
 
@@ -13,9 +12,10 @@ type Slider struct {
 	layout     sliderLayout
 	dragging   bool
 	dragOffset image.Point
+	step       float64
 
 	on struct {
-		valueChange event.FuncBroadcaster
+		slide event.FuncBroadcaster
 	}
 }
 
@@ -34,6 +34,7 @@ func newSlider (orient string, value float64) *Slider {
 		layout: sliderLayout {
 			vertical: orient == "vertical",
 		},
+		step: 0.05,
 	}
 
 	this.Add(this.handle)
@@ -49,8 +50,9 @@ func newSlider (orient string, value float64) *Slider {
 	this.OnMouseDown(this.handleMouseDown)
 	this.OnMouseUp(this.handleMouseUp)
 	this.OnMouseMove(this.handleMouseMove)
-	theme.Apply(this.handle, theme.R("objects", "SliderHandle", orient))
-	theme.Apply(this,        theme.R("objects", "Slider", orient))
+	this.OnScroll(this.handleScroll)
+	tomo.Apply(this.handle, tomo.R("objects", "SliderHandle", orient))
+	tomo.Apply(this,        tomo.R("objects", "Slider", orient))
 	return this
 }
 
@@ -71,7 +73,6 @@ func (this *Slider) SetValue (value float64) {
 	if value == this.layout.value { return }
 	this.layout.value = value
 	this.SetLayout(this.layout)
-	this.on.valueChange.Broadcast()
 }
 
 // Value returns the value of the slider between 0 and 1.
@@ -79,10 +80,10 @@ func (this *Slider) Value () float64 {
 	return this.layout.value
 }
 
-// OnValueChange specifies a function to be called when the slider's value
-// changes.
-func (this *Slider) OnValueChange (callback func ()) event.Cookie {
-	return this.on.valueChange.Connect(callback)
+// OnValueChange specifies a function to be called when the user moves the
+// slider.
+func (this *Slider) OnSlide (callback func ()) event.Cookie {
+	return this.on.slide.Connect(callback)
 }
 
 func (this *Slider) handleKeyDown (key input.Key, numpad bool) {
@@ -99,16 +100,20 @@ func (this *Slider) handleKeyDown (key input.Key, numpad bool) {
 		} else {
 			this.SetValue(this.Value() - increment)
 		}
+		this.on.slide.Broadcast()
 	case input.KeyDown, input.KeyRight:
 		if this.Modifiers().Alt {
 			this.SetValue(1)
 		} else {
 			this.SetValue(this.Value() + increment)
 		}
+		this.on.slide.Broadcast()
 	case input.KeyHome:
 		this.SetValue(0)
+		this.on.slide.Broadcast()
 	case input.KeyEnd:
 		this.SetValue(1)
+		this.on.slide.Broadcast()
 	}
 }
 
@@ -139,14 +144,18 @@ func (this *Slider) handleMouseDown (button input.Button) {
 	case input.ButtonMiddle:
 		if above {
 			this.SetValue(0)
+			this.on.slide.Broadcast()
 		} else {
 			this.SetValue(1)
+			this.on.slide.Broadcast()
 		}
 	case input.ButtonRight:
 		if above {
-			this.SetValue(this.Value() - 0.05)
+			this.SetValue(this.Value() - this.step)
+			this.on.slide.Broadcast()
 		} else {
-			this.SetValue(this.Value() + 0.05)
+			this.SetValue(this.Value() + this.step)
+			this.on.slide.Broadcast()
 		}
 	}
 }
@@ -161,6 +170,12 @@ func (this *Slider) handleMouseMove () {
 	this.drag()
 }
 
+func (this *Slider) handleScroll (x, y float64) {
+	delta := (x + y) * 0.005
+	this.SetValue(this.Value() + delta)
+	this.on.slide.Broadcast()
+}
+
 func (this *Slider) drag () {
 	pointer := this.MousePosition().Sub(this.dragOffset)
 	gutter  := this.InnerBounds()
@@ -176,6 +191,7 @@ func (this *Slider) drag () {
 			float64(pointer.X) /
 			float64(gutter.Dx() - handle.Dx()))
 	}
+	this.on.slide.Broadcast()
 }
 
 func (this *Slider) fallbackDragOffset () image.Point {

textinput.go

@@ -3,7 +3,6 @@ package objects
 import "image"
 import "git.tebibyte.media/tomo/tomo"
 import "git.tebibyte.media/tomo/tomo/text"
-import "git.tebibyte.media/tomo/tomo/theme"
 import "git.tebibyte.media/tomo/tomo/input"
 import "git.tebibyte.media/tomo/tomo/event"
 
@@ -13,13 +12,14 @@ type TextInput struct {
 	text []rune
 	on struct {
 		enter event.FuncBroadcaster
+		edit  event.FuncBroadcaster
 	}
 }
 
 // NewTextInput creates a new text input containing the specified text.
 func NewTextInput (text string) *TextInput {
 	this := &TextInput { TextBox: tomo.NewTextBox() }
-	theme.Apply(this, theme.R("objects", "TextInput", ""))
+	tomo.Apply(this, tomo.R("objects", "TextInput", ""))
 	this.SetAlign(tomo.AlignStart, tomo.AlignMiddle)
 	this.SetText(text)
 	this.SetFocusable(true)
@@ -47,6 +47,11 @@ func (this *TextInput) OnEnter (callback func ()) event.Cookie {
 	return this.on.enter.Connect(callback)
 }
 
+// OnEdit specifies a function to be called when the user edits the input text.
+func (this *TextInput) OnEdit (callback func ()) event.Cookie {
+	return this.on.edit.Connect(callback)
+}
+
 func (this *TextInput) handleKeyDown (key input.Key, numpad bool) {
 	dot       := this.Dot()
 	modifiers := this.Modifiers()
@@ -54,8 +59,8 @@ func (this *TextInput) handleKeyDown (key input.Key, numpad bool) {
 	sel       := modifiers.Shift
 	changed   := false
 
-	// TODO all this (except editing stuff) really should be moved into the
-	// backend
+	// TODO all dot control (movement, selection, etc) should be done in the
+	// backend. (editing should be done here, though)
 
 	switch {
 	case key == input.KeyEnter:
@@ -93,7 +98,18 @@ func (this *TextInput) handleKeyDown (key input.Key, numpad bool) {
 	}
 
 	this.Select(dot)
-	if changed { this.SetText(string(this.text)) }
+	if changed {
+		this.SetText(string(this.text))
+		this.on.edit.Broadcast()
+	}
+}
+
+// Type types a character at the current dot position.
+func (this *TextInput) Type (char rune) {
+	dot := this.Dot()
+	this.text, dot = text.Type(this.text, dot, rune(char))
+	this.Select(dot)
+	this.SetText(string(this.text))
 }
 
 func (this *TextInput) handleScroll (x, y float64) {

textview.go

@@ -2,7 +2,6 @@ package objects
 
 import "image"
 import "git.tebibyte.media/tomo/tomo"
-import "git.tebibyte.media/tomo/tomo/theme"
 
 // TextView is an area for displaying a large amount of multi-line text.
 type TextView struct {
@@ -12,7 +11,7 @@ type TextView struct {
 // NewTextView creates a new text view.
 func NewTextView (text string) *TextView {
 	this := &TextView { TextBox: tomo.NewTextBox() }
-	theme.Apply(this, theme.R("objects", "TextView", ""))
+	tomo.Apply(this, tomo.R("objects", "TextView", ""))
 	this.SetFocusable(true)
 	this.SetSelectable(true)
 	this.SetText(text)