checkwinstate

alias checkwinstate {
  var %sco = $scon(0)
  while (%sco >= 1) {
    .scid $scon(%sco)
    var %x = 1, %y = $window( *, 0)
    while ( %x <= %y ) {
      if ($window( *, %x).sbcolor == message) || ($window( *, %x).sbcolor == event) { return 1 }
      inc %x
    }
    dec %sco
  }
  .scid -r
}
menu menubar,status {
  $iif($checkwinstate != 1,$style(2)) &Mark As Read :scon -a markasread
}