Hot answers tagged

9

There are two distinctions to be made here. Both Row and List will resize graphics objects if they are above a certain threshold size, and that threshold size is different. List List will resize a graphics object when its width is larger than 180 pixels, and then further reduce its size if the width is over 360 Manipulate[Labeled[ {RandomImage[1, ...


7

On a Linux pc, the relevant file is in a place like this one: /usr/local/Wolfram/Mathematica/10.1/SystemFiles/FrontEnd/TextResources/X/MenuSetup.tr To edit the file, one needs administrator rights, i.e. modify it under sudo. Since introducing errors can make Mathematica no longer usable, first make a backup copy of the original file before trying to ...


7

A hint about what is going on is provided by searching on MixedRadix in V10.2 or later. You will find the symbol was overloaded to allow the user to specify a sequence number bases for integers represented in mixed-base form. This has produced the unfortunate consequences that I mentioned in the question. I brought this to the attention of Wolfram tech ...


6

I am not sure if the code you posted is literal but in any case you need to be using Alternative instead of Or, i.e. | instead of ||: SetOptions[#, {CellOpen -> False, WholeCellGroupOpener -> False}] & /@ Cells[EvaluationNotebook[], CellStyle -> ("Section" | "Subsection"), CellTags -> ("A" | "B")]


6

Wolfram Research has "sort of" fixed this annoyance in Mathematica 10.3: If you start typing a Machine Learning algorithm running in the front end detects that you are writing text and offers you these options: hit Enter or Tab to convert to text cell ……………………………………………………………………………………………… In Mathematica versions: 8, 9 and 10: you can save yourself ...


4

The name of the menu item Insert ► Page Break seems to be a bit misleading. According to the Documentation page for ShowPageBreaks, manual page breaking is controlled via the PageBreakAbove and PageBreakBelow options of Cell. This conclusions is further supported from the fact that when you use Insert ► Page Break menu item you actually insert the following ...


4

TL;DR Tell the button where to search, with, e.g. ButtonNotebook: Button["B", SetOptions[#, CellOpen -> True] & /@ Cells[ButtonNotebook[], CellStyle -> "Section", CellTags -> "A"] ] You can always check with Print and friends, what is going on, Button["B", Print@Cells[CellStyle -> "Section", CellTags -> "A"]] so clicking this ...


3

The problem is that options not documented/released in System` context, are renamed to e.g. $CellContext`WholeCellGroupOpener. There is a more general topic about that: Programming scripts to create and modify stylesheets: problems with contexts So what your code does is creation of such option (you can check cell expression with Ctrl+Shift+E) which ...


3

In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers->{"Control"}]] and now I have the keyboard shortcut But maybe it is safer to ...


3

nb = CreateDocument[{TextCell["test", "Section"], ExpressionCell[test, "Input"], TextCell["test"], TextCell["head one", "Section"], TextCell["test", "Section"], ExpressionCell[Sin[x], "Input"]}] You can use NotebookFind on a subset of cells. If[SelectionMove[#, Before, Cell]; NotebookFind[#, "test"] =!= $Failed, #, Nothing ] & /@ ...


2

The styles of the AuthorTools are in the stylesheet "HelpBrowser.nb" FileNameJoin[{$InstallationDirectory, "SystemFiles", "FrontEnd", "StyleSheets", "HelpBrowser.nb"}] For me, it gives : "C:\Program Files\Wolfram \ Research\Mathematica\10.0\SystemFiles\FrontEnd\StyleSheets\\ HelpBrowser.nb" FileNameJoin[] exists since Mathematica 7. If you ...


2

On Windows: Run["taskkill /F /FI \"IMAGENAME eq Mathematica.exe\" > nul"]


2

SetOptions[EvaluationNotebook[], PrintingStartingPageNumber -> 43, PageHeaders -> {{"", "", ""}, {"Mathematik 1", FormBox[DynamicBox[ ToBoxes[FEPrivate`RunningText["Subsection", 10, "", " .,", {}, True, 0], StandardForm]], TextForm], Cell[TextData[{CounterBox["Page"]}], "PageNumber"]}}, PageFooters -> {{"ll", "lm", ...


2

An even better version than the one above from me: Paste between the defintions of Palettes and Window: Menu["Page&Breaks", { MenuItem["ShowPageBreaks ON ", ShowPageBreaks->True, Scope->NotebookDefault], MenuItem["ShowPageBreaks OFF", ShowPageBreaks->False, Scope->NotebookDefault], Delimiter, ...


1

To set the default magnification for a notebook: Preferences -> Advanced -> Notebook Options -> Display Options -> Magnification then double click slowly on the "value" until it highlights blue and then you can type a default value corresponding to 100%



Only top voted, non community-wiki answers of a minimum length are eligible