vid.red

Red [
	Title:   "Red VID simple test script"
	Author:  "Nenad Rakocevic"
	File: 	 %vid.red
	Needs:	 'View
]

view [
	title "VID test"
	;below
	text "Hello"
	button "Hello" 100x40 [bar/data: random 100%]
	button "World"
	return

	button "China" [bbb: make block! 1 loop 5000 [append bbb make string! random 500] recycle probe stats]
	text "Red Language" 100 right
	field 120 on-enter [probe do face/text clear face/text]
	return
	
	group-box 3 [
		style but: button 25 font [name: "Comic Sans MS" size: 12 color: blue]
		
		base 0.233.1.177 "ok" 25x25
		text "in panel"
		but "A" but "B" but "C"
		but "D" but "E"	but "F"
	]
	tab-panel [
		"tab1" [at 10x10 base 0.2.233.188 15x15 at 50x50 button "one"]
		"tab2" [at 80x10 text "two"]
	]
	
	below
	slider 5%
	pad 10x0 bar: progress 50% 130
	base 255.0.0.138 50x50 draw [fill-pen blue circle 25x25 15]
	across
	return middle
	
	check "option 1" font-size 14
	check "option 2" font-color orange
	radio "option 3" font-name "Times New Roman"
	radio "option 4"
	return top
	
	list: text-list data ["one" "two" "three" "four"] ;[probe pick face/data event/selected]
	drop-list data ["one" 4 "two" 5 "three" 6 "four" 7] 
	drop-down data ["one" "two" "three" "four"]
	
	return
	
	style but1:  button
	style txt1:  text 30
	style base1: base 10x10
	
	but1 "1" txt1 "1" base1 "1"
	return
	group-box [
		style but1:  but1 font-color red
		style txt1:  txt1 red center
		style base1: base1 red
		
		but1 "1" txt1 "1" base1 "1"
	] return
	but1 "1" txt1 "1" base1 "1"
	
	at (list/offset + 130x50) base 5x5 red
	
	do [append list/data "five" win: self]
]