New Mathematica menu: New Package
- To: mathgroup at smc.vnet.net
- Subject: [mg56899] New Mathematica menu: New Package
- From: Zhengji Li <zhengji.li at gmail.com>
- Date: Mon, 9 May 2005 01:46:44 -0400 (EDT)
- Reply-to: Zhengji Li <zhengji.li at gmail.com>
- Sender: owner-wri-mathgroup at wolfram.com
Dear all,
It seems to be very difficult to create/save a package file from
the menu of mathematica. But mathematica's main menu is
"programmable", so I would like
to insert a menu item which can create a .m file. Anyone need this ?
Modify Menusetup.tr in the directory (on Windows, I do not know what it is on
Mac, etc) $InstallDir\SystemFiles\FrontEnd\TextResources\Windows:
Menu["Mathematica",
{
Menu["&File",
{ Menu["&New",
{
Item["&Notebook", "New", MenuKey["n", Modifiers->{Control}]],
Item["&Package", KernelExecute[
NotebookWrite[NotebookCreate[WindowTitle -> "Untitled.m"],
Cell["(* Title: *)\n\n(* Author: *)\n\n(*
Content: *)\n\n(* Keywords: *)\n\n(* Version:
0.1*)\n\nBeginPackage[\"...`\"];\n\nBegin[\"`Private\"];\n\n\n\nEnd[];\nEndPackage[]",
"Input",
PageWidth->Infinity,
InitializationCell->True,
ShowSpecialCharacters->False,
FormatType->InputForm
]
]
], MenuEvaluator->Automatic
]
}],
..... other File menu items
The magic here is to "MenuEvaluator->Automatic" to let the kernel
execute the command.
Best regards.