tomo-old/examples/scroll/main.go

package main

import "image"
import "git.tebibyte.media/sashakoshka/tomo"
import "git.tebibyte.media/sashakoshka/tomo/layouts/basic"
import "git.tebibyte.media/sashakoshka/tomo/elements/basic"
import _ "git.tebibyte.media/sashakoshka/tomo/backends/x"

func main () {
	tomo.Run(run)
}

func run () {
	window, _ := tomo.NewWindow(480, 360)
	window.SetTitle("Scroll")
	container := basicElements.NewContainer(basicLayouts.Vertical { true, true })
	window.Adopt(container)


	textBox := basicElements.NewTextBox("", copypasta)
	scrollContainer := basicElements.NewScrollContainer(true, false)

	disconnectedContainer := basicElements.NewContainer (basicLayouts.Horizontal {
		Gap: true,
	})
	list := basicElements.NewList (
		basicElements.NewListEntry("something", nil),
		basicElements.NewListEntry("something", nil),
		basicElements.NewListEntry("something", nil),
		basicElements.NewListEntry("something", nil),
		basicElements.NewListEntry("something", nil),
		basicElements.NewListEntry("something", nil),
		basicElements.NewListEntry("something", nil),
		basicElements.NewListEntry("something", nil),
		basicElements.NewListEntry("something", nil),
		basicElements.NewListEntry("something", nil),
		basicElements.NewListEntry("something", nil))
	list.Collapse(0, 32)
	scrollBar := basicElements.NewScrollBar(true)
	list.OnScrollBoundsChange (func () {
		scrollBar.SetBounds (
			list.ScrollContentBounds(),
			list.ScrollViewportBounds())
	})
	scrollBar.OnScroll (func (viewport image.Point) {
		list.ScrollTo(viewport)
	})
	
	container.Adopt(basicElements.NewLabel("look at this non sense", false), false)
	scrollContainer.Adopt(textBox)
	container.Adopt(scrollContainer, false)
	container.Adopt(basicElements.NewLabel("what does that scrollbar do?", false), false)
	disconnectedContainer.Adopt(list, false)
	disconnectedContainer.Adopt(basicElements.NewSpacer(true), true)
	disconnectedContainer.Adopt(scrollBar, false)
	container.Adopt(disconnectedContainer, true)
	
	window.OnClose(tomo.Stop)
	window.Show()
}

const copypasta = `"I use Linux as my operating system," I state proudly to the unkempt, bearded man. He swivels around in his desk chair with a devilish gleam in his eyes, ready to mansplain with extreme precision. "Actually", he says with a grin, "Linux is just the kernel. You use GNU+Linux!' I don't miss a beat and reply with a smirk, "I use Alpine, a distro that doesn't include the GNU Coreutils, or any other GNU code. It's Linux, but it's not GNU+Linux." The smile quickly drops from the man's face. His body begins convulsing and he foams at the mouth and drops to the floor with a sickly thud. As he writhes around he screams "I-IT WAS COMPILED WITH GCC! THAT MEANS IT'S STILL GNU!" Coolly, I reply "If windows were compiled with GCC, would that make it GNU?" I interrupt his response with "-and work is being made on the kernel to make it more compiler-agnostic. Even if you were correct, you won't be for long." With a sickly wheeze, the last of the man's life is ejected from his body. He lies on the floor, cold and limp. I've womansplained him to death.`