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".

为什么不从自定义Palette更新局部变量颜色运行ClearAll [“Global` *”]？

1 个答案: