15 lines
538 B
Plaintext
15 lines
538 B
Plaintext
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 ''
|