SetOptions
With[{t = EvaluationNotebook[], o = WindowStatusArea}, MathLink`CallFrontEndHeld[ FrontEnd`SetValue[FEPrivate`Set[CurrentValue[t, o], "Test"]]] ]