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 ''