カスタムパレットからClearAll ["Global` *"]を実行してローカル変数の色を更新しないのはなぜですか？

Question

ActionMenuのClearAll["Global`*"]を実行するカスタムパレットを作成しました。これは目的のアクションを実行しますが、フロントエンドは、ClearAll["Global`*"]がノートブックセルから直接実行されたときに発生する（それ以外の何かが実行された後にのみ更新されます）ので、色を黒から青（標準）に即座に更新しません。フロントエンドの表示状態のリフレッシュを開始する方法はありますか？

編集：パレットからパッケージを読み込むと同じことが起こります（青はすぐに黒に更新されません）。

Answer 1

正確にエレガントな、それが動作します（メインループがClearAllを後に一度と呼ばれることがあります）なし：もちろん

ActionMenu["Clear", 
    {"Clear global variables" :> (ClearAll["Global`*"]; 
     Block[{nb}, nb = CreateDocument[ExpressionCell[42, "Input"], 
       Visible -> False]; SelectionMove[nb, All, Notebook]; 
      SelectionEvaluate[nb]; NotebookDelete[nb];])}] 

、一つは新しいのMathematica 8 NotebookEvaluate機能を使用する必要がありますが、それはない に思えますここで働く（すなわち、

ActionMenu["Clear", 
    {"Clear global variables" :> (ClearAll["Global`*"]; 
     Block[{nb}, nb = CreateDocument[ExpressionCell[42, "Input"], 
       Visible -> False]; NotebookEvaluate[nb]; 
    NotebookDelete[nb];])}] 

は私がトンだと思うのエラーメッセージ

Could not process unknown packet "1".