-- <<<-


------------------------------------------------------------------------


function createBrush red green blue ->
(
	return new Brush color:(new RGBColor red:red green:green blue:blue)
)


function uniqueID -> (
	local id := theIdNumber
	theIdNumber := theIdNumber + 1
)


function uniqueName base -> (
	local str := (base as String) + ((uniqueID()) as String)
	return (str as NameClass)
)


function drawAll p surf clip -> (
	clip := intersect clip p.globalBoundary @create
	draw p surf clip
	local subs := p.subPresenters
	if (isAKindOf subs Collection) do (
		forEachBackwards subs (subp xxx -> 
			drawAll subp surf clip
		) ok
	)
)


function getUpperCase str -> (
	local uc := new String
	forEach str (char xxx ->
		if ((char >= 97) and (char <= 122)) do (
			char := char - 32
		)
		append uc char
	) ok
	uc
)


------------------------------------------------------------------------


-- >>>