resize-deep/resize-deep-test.red at master · robotix-pl/resize-deep · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Red [
	File: %resize-deep-test.red
	Author: loziniak
]

#include %resize-deep.red


view/flags [

	on-resizing [
		resize-deep face
	]

	on-resize [
		resize-deep face
	]

	origin 10x10
	space 15x15

	below

	button "test0" extra [
		expand: ['horizontal 'vertical]
	]

	button "test1"

	button "test2" extra context [
		expand: 'horizontal
	]

	panel red extra context [
		expand: ['horizontal 'vertical]
		fixed: (2 * 10x10) + (2 * 30x0)
	] [
		space 30x30

		button "test3" extra [
			expand: 'vertical
		]
		button "test4" extra [
			expand: ['horizontal]
		]
		button "test5" extra [
			expand: ['vertical 'horizontal]
		]
	]

	at 0x0 base "I'm DETACHED banner. Click to close." yellow extra [
		expand: ['detached 'horizontal 'vertical]
	] on-down [
		remove find face/parent/pane face
		face/parent: none
	]

	do [
		self/extra: reduce [
			to set-word! 'fixed
				(2 * 10x10) ; 2x origin
				+ ((4 - 1) * 0x15) ; 4x space
		]
	]

] 'resize