scrollbars-test.red

Red [
	title:   "Table test script"
	author:  @hiiamboris
	license: BSD-3
	needs:   view
]

#include %../everything.red


;-- drunken scrollbars animation
angle: 0
define-styles [
	back-arrow:  [below: [rotate (angle) (size / 2)]]
	forth-arrow: [below: [rotate (angle) (size / 2)]]
	thumb: [below: [translate (size * 0x1 / 2) skew (angle / -2) translate (size * 0x-1 / 2)]]
]

; system/view/capturing?: yes
counter: 0
view/no-wait/options [
	below
	b: host [
		vlist [
			scrollbar with [size: (400,20) amount: 0.5 axis: 'x]
			scrollbar with [size: (200,20) amount: 0.5 axis: 'x]
			scrollbar with [size: (100,20) amount: 0.5 axis: 'x]
			scrollbar with [size: (75,20)  amount: 0.5 axis: 'x]
			scrollbar with [size: (50,20)  amount: 0.5 axis: 'x]
			scrollbar with [size: (40,20)  amount: 0.5 axis: 'x]
			scrollbar with [size: (30,20)  amount: 0.5 axis: 'x]
			scrollbar with [size: (20,20)  amount: 0.5 axis: 'x]
			scrollbar with [size: (10,20)  amount: 0.5 axis: 'x]
		]
	]
	on-over [
		status/text: mold hittest face/space event/offset
	]
	status: text 300x40
	rate 3 on-time [
		counter: counter + 1
		angle: pick [0 -13 -20 -13 0 13 20 13] counter % 8 + 1
		invalidate-tree b
	]
] [offset: 10x10]
; foreach-*ace/next path system/view/screens/1 [probe path]
do-events