Customizing the Front-End Menus

It is quite easy to customize the front-end menus in Version 3.0. Here are two examples that show how to customize the menus by modifying the file [Graphics:../Images/tricks_gr_343.gif]. Note that you can open this file (as a Notebook) using the command

[Graphics:../Images/tricks_gr_344.gif]

where we have used [Graphics:../Images/tricks_gr_345.gif] to construct the filename.

[Graphics:../Images/tricks_gr_346.gif]
[Graphics:../Images/tricks_gr_347.gif]

It is a good idea to make these changes on a copy of [Graphics:../Images/tricks_gr_348.gif] and then quit Mathematica before replacing the original file with the modified version.

Rolf Mertig (rolfm@wolfram.com) points out that you can modify the colors available in the Text Color menu. The colors listed in the menu are specified by lines such as these in [Graphics:../Images/tricks_gr_349.gif]:

Menu["Text Color", {
   Item["Black", FontColor -> GrayLevel[0]],
   Item["White", FontColor -> GrayLevel[1]],
   Item["10% Gray", FontColor -> GrayLevel[0.1]],
   Item["33% Gray", FontColor -> GrayLevel[0.3333333]],
   Item["50% Gray", FontColor -> GrayLevel[0.5]],
   Item["66% Gray", FontColor -> GrayLevel[0.6666666]],
   Item["90% Gray", FontColor -> GrayLevel[0.9]],
   Item["Red", FontColor -> RGBColor[1, 0, 0]],
   Item["Green", FontColor -> RGBColor[0, 1, 0]],
   Item["Blue", FontColor -> RGBColor[0, 0, 1]],
   Item["Cyan", FontColor -> RGBColor[0, 1, 1]],
   Item["Magenta", FontColor -> RGBColor[1, 0, 1]],
   Item["Yellow", FontColor -> RGBColor[1, 1, 0]]}
],

You can change the colors, or you can add your own. For example, to add Purple to the menu, simply include this line:

   Item["Purple", FontColor -> RGBColor[0.2, 0, 0.6]], 

If you restart Mathematica, the entry Purple will appear in the Text Color menu.

Richard Gaylord (gaylord@ux1.cso.uiuc.edu) suggests the following code for adding menu items to control page breaks (as in the Version 2.2 front end).

Menu["Page Breaking", {
    Item["Page Break Above Cell", PageBreakAbove->True, Scope->SelectionCell],
    Item["Page Break Below Cell", PageBreakBelow->True, Scope->SelectionCell],
    Item["No Break Above Cell", PageBreakAbove->False, Scope->SelectionCell],
    Item["No Break Below Cell", PageBreakBelow->False, Scope->SelectionCell]}
],

Document converted by Mathematica of Wolfram Research