Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Re: Customizing Mathematica - keyboard



Hi Paul,

Do you know if there is any way to do the same thing under unix?
Obviously, it is not possible to edit MenuSetup.tr since it is located
in a public directory, and I tried modifying it and including it in my
private .Mathematica/3.0/... directory, but that didn't work.

Carl Woll
Dept of Physics
U of Washington

On Mon, 5 Jan 1998, Paul Abbott wrote:

> Wouter Meeussen wrote:
> 
> > At 05:07 3-01-98 -0500, Vilis Nams wrote:
> > >I am using Mathematica under Win95. Is there any way to change the
> > >definions of various keys in Mathematica? 
> 
> Yes.  By editing MenuSetup.tr you can do this.  See the Notebook
> appended below for related examples from the Mathematica Journal.
> 
> > >I would dearly love to be
> > >able to work without using the mouse at all, but find I still have to
> > >jump back and forth between mouse and keyboard.
> > >
> >  same here,
> > I would like a method for switching from
> > cell-bracket-selection to in-line selection
> > using keyboard only !
> 
> Not sure exactly what you want here?  Using Shift-Enter moves to the
> next executable cell and selects it.  Using cursor keys allows you to
> switch from cell-bracket-selection to in-line selection.
> 
> Cheers,
> 	Paul 
> 
> ____________________________________________________________________ 
> Paul Abbott                                   Phone: +61-8-9380-2734
> Department of Physics                           Fax: +61-8-9380-1014
> The University of Western Australia            Nedlands WA  6907       
> mailto:paul@physics.uwa.edu.au  AUSTRALIA                            
> http://www.pd.uwa.edu.au/~paul
> 
>             God IS a weakly left-handed dice player
> ____________________________________________________________________
> 
> 
> Notebook[{
> 
> Cell[CellGroupData[{
> Cell["Customizing the Front-End Menus", "Section"],
> 
> Cell[TextData[{
>   "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
> ",
>   Cell[BoxData[
>       FormBox[
>         StyleBox[\(MenuSetup . tr\),
>           "Input"], TraditionalForm]]],
>   ". Note that you can open this file (as a Notebook) using the command"
> }], "Text",
>   CellTags->"MenuSetup.tr"],
> 
> Cell[BoxData[
>     \(TraditionalForm
>     \`\(NotebookOpen[
>       ToFileName[{$TopDirectory, "\<SystemFiles\>", "\<FrontEnd\>", 
>           "\<TextResources\>", $MachineType}, "\<MenuSetup.tr\>"]];
> \)\)], 
>   "Input"],
> 
> Cell[TextData[{
>   "where we have used ",
>   Cell[BoxData[
>       FormBox[
>         StyleBox["ToFileName",
>           "Input"], TraditionalForm]]],
>   " to construct the filename:"
> }], "Text"],
> 
> Cell[CellGroupData[{
> 
> Cell[BoxData[
>     \(TraditionalForm\`\(?ToFileName\)\)], "Input"],
> 
> Cell[BoxData[
>     \(TraditionalForm
>     \`"ToFileName[\"directory\", \"name\"] assembles a full file name
> from a \
> directory name and a file name. ToFileName[{dir1, dir2, ... }, name] \
> assembles a full file name from a hierarchy of directory names. \
> ToFileName[{dir1, dir2, ... }] assembles a single directory name from a
> \
> hierarchy of directory names."\)], "Print"] }, Open  ]],
> 
> Cell[TextData[{
>   "It is a good idea to make these changes on a copy of ",
>   Cell[BoxData[
>       FormBox[
>         StyleBox[\(MenuSetup . tr\),
>           "Input"], TraditionalForm]]],
>   " and then quit ",
>   StyleBox["Mathematica",
>     FontSlant->"Italic"],
>   " before replacing the original file with the modified version." }],
> "Text"],
> 
> Cell[TextData[{
>   "Rolf Mertig (",
>   ButtonBox["rolfm@wolfram.com",
>     ButtonData:>{
>       URL[ "mailto:rolfm@wolfram.com"], None},
>     ButtonStyle->"Hyperlink"],
>   ") points out that you can modify the colors available in the ",
>   StyleBox["Text Color", "Menu"],
>   " menu. The colors listed in the menu are specified by lines such as
> these \
> in ",
>   Cell[BoxData[
>       FormBox[
>         StyleBox[\(MenuSetup . tr\),
>           "Input"], TraditionalForm]]],
>   ":"
> }], "Text"],
> 
> Cell["\<\
> 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]]} ],\
> \>", "Input"],
> 
> Cell[TextData[{
>   "You can change the colors, or you can add your own. For example, to
> add ",
>   StyleBox["Purple", "Menu"],
>   " to the menu, simply include this line:" }], "Text"],
> 
> Cell["   Item[\"Purple\", FontColor -> RGBColor[0.2, 0, 0.6]], ",
> "Input"],
> 
> Cell[TextData[{
>   "If you re-start ",
>   StyleBox["Mathematica",
>     FontSlant->"Italic"],
>   ", the entry ",
>   StyleBox["Purple", "Menu"],
>   " will appear in the ",
>   StyleBox["Text Color", "Menu"],
>   " menu."
> }], "Text"],
> 
> Cell[TextData[{
>   "Richard Gaylord (",
>   ButtonBox["gaylord@ux1.cso.uiuc.edu",
>     ButtonData:>{
>       URL[ "mailto:gaylord@ux1.cso.uiuc.edu"], None},
>     ButtonStyle->"Hyperlink"],
>   ") suggests the following code for adding menu items to control page
> breaks \
> (as in the Version 2.2 front end)."
> }], "Text"],
> 
> Cell["\<\
> Menu[\"Page Breaking\", {
> \tItem[\"Page Break Above Cell\", PageBreakAbove->True, \
> Scope->SelectionCell],
> \tItem[\"Page Break Below Cell\", PageBreakBelow->True, \
> Scope->SelectionCell],
> \tItem[\"No Break Above Cell\", PageBreakAbove->False,
> Scope->SelectionCell],
> \tItem[\"No Break Below Cell\", PageBreakBelow->False,
> Scope->SelectionCell]}
> ],\
> \>", "Input"]
> }, Open  ]]
> }
> ]
> 
> 




  • Prev by Date: Re: Chaotic time series metrics
  • Next by Date: Re: Beginner: Latex file of the notebook
  • Prev by thread: Re: Customizing Mathematica - keyboard
  • Next by thread: Re: Re: Customizing Mathematica - keyboard