Wish $this has filename "test.folk"

When $this has region /r/ {
	set points [lindex $r 0]
	lassign $points one two three four
	lassign $one a b
	lassign $three c d
	# Wish $this is labelled "$a $b $c $d"
	# Display::fillRect $a $b $c $d skyblue
	Display::stroke [list [list $a $b] [list $c $d]] 3 skyblue
}

Wish $this is outlined thick magenta