# Tag Info

2

The problem is that options not documented/released in System context, are renamed to e.g. $CellContextWholeCellGroupOpener. 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 ... 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")] 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 ... 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% 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, ... 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 ] & /@ ... 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 ... 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 ...

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

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 ...

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", ...

Top 50 recent answers are included