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: Customizing Mathematica - keyboard


  • To: mathgroup@smc.vnet.net
  • Subject: [mg10305] Re: Customizing Mathematica - keyboard
  • From: Paul Abbott <paul@physics.uwa.edu.au>
  • Date: Mon, 5 Jan 1998 03:47:23 -0500
  • Organization: University of Western Australia
  • References: <68n577$fk5$1@dragonfly.wolfram.com>

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: Assuming n is even
  • Next by Date: Re: Rotate3D bug solution
  • Prev by thread: Re: Customizing Mathematica - keyboard
  • Next by thread: Re: Customizing Mathematica - keyboard