Red by Example - an accessible reference by example
index parse vid series help about links contact
Red VID Example - Text Faces
Red [
needs 'view
file: %text-faces.red
Author: "Mike Parr"
]
view [
size 350x450 ;-- window size
title "Text faces" ;-- window title
t1: text white italic font [name: "Consolas" size: 16 color: black]
" Red Vid Examples: text"
return
mytext: text 300x25 bold orange font-size 12 "Messages"
return
h1 "h1 size"
h3 "h3 size"
h5 "h5 size"
return
h5 "field: " 40x20
;the enter-key event is used here:
name-field: field "enter name" [print ["name-field holds " face/text] ]
return
a1: area white font [name: "Consolas" size: 10 color: black]
{area with
some text to edit
}
130x160 [print "a1 changed"] ;-- do this when changed
return
]

|