1include window
2call 0 getattrs $win1
3call OK wattrset $win1 ($REVERSE | $BOLD)
4call ($REVERSE | $BOLD) getattrs $win1
5call OK wattron $win1 $UNDERSCORE
6call ($REVERSE | $BOLD | $UNDERSCORE) getattrs $win1
7call OK wattroff $win1 $REVERSE
8call ($BOLD | $UNDERSCORE) getattrs $win1
9