COMPILE FUNCTION StatusLine(Window,StatusLine,StatusOutline)

DECLARE Subroutine Set_Property

Window = IF ASSIGNED(Window) THEN Window ELSE @WINDOW
StatusLine = IF ASSIGNED(StatusLine) THEN StatusLine ELSE 'STATUSLINE_FIX'
StatusOutLine = IF ASSIGNED(StatusOutLine) THEN StatusOutLine ELSE 'STATUS_OUTLINE_FIX'

Ctrls  = Window:'.":StatusOutLine':@RM	;	Props  = 'STYLE':@RM		; Vals  = '0X0000008':@RM
Ctrls := Window							;	Props := 'STATUSLINE'		; Vals := Window:'.':Statusline

Set_Property(Ctrls,Props,Vals)

RETURN ''
