Tag Info

New answers tagged

0

Your assumptions are most probably wrong, it seems that this function is meant to change CellStyle: ( SelectionMove[#, All, Cell]; MathLink`CallFrontEnd[FrontEnd`SelectionSetStyle[#, "Title"]] ) & /@ Cells[CellStyle -> "Input"] Used here: Set the style of a cell Found there: How can I get the style of a CellObject?


0

Try WolframAlpha["Forest Gump", "FullOutput"] runs about 1 sec. on my computer. Hint: Make sure you have fast Internet connection. Here an extract of screenshot of result


2

Using NotebookWrite in this manner is really no different from manually modifying the content of an Output cell. The FrontEnd converts the cell to Input, since it anticipates the user would be interested in evaluating it afterwards. What style is used is determined by DefaultDuplicateCellStyle.


1

I have a possible work around here: Button["date", NotebookWrite[EvaluationCell[], Cell[#, "Output"] &@BoxData@ToBoxes@DateString[]]; SelectionMove[EvaluationNotebook[], Previous, Cell]; CurrentValue[Cells[NotebookSelection[EvaluationNotebook[]]][[1]], StyleNames] = "Subsection"] unforunately i could not test EvaluationBox[] because i have only ...


2

It seems there is something you need. Undocumented so who knows. MathLink`CallFrontEnd[ FrontEnd`NotebookImage[ EvaluationNotebook[] ] ]


1

You can effect the setting for the evaluation Notebook with: SetOptions[EvaluationNotebook[], Magnification :> 2. Inherited] To create a new Notebook with this setting you can use: CreateNotebook["Default", Magnification :> 2. Inherited] This can easily be made into a Button or Palette: Button[ "New 200% Notebook", CreateNotebook["Default", ...


0

The following is uses the code you posted to define a function: summaryDisplay = DynamicModule[{open = True, sqrplus = RawBoxes@FrontEndResource["FEBitmaps", "SquarePlusIconMedium"], sqrminus = RawBoxes@FrontEndResource["FEBitmaps", "SquareMinusIconMedium"], paneF = Pane[Button[Dynamic[#, ImageSizeCache -> {12., {0., 12.}}], open = #2, ...


1

Please run the following. Directory[] Next run the following NotebookSave[Notebook[{}], FileNameJoin[{Directory[], "savetest.m"}]] If you receive an error I would try reinstalling Mathematica.


0

From what I've read here on MSE, it is not possible to create a default WindowSize for new notebooks. To cope with this efficiently, I've created the following palette which others might find handy as well. The result looks like this: And the full code is: (* Screen sizing buttons *) fullscreen = Button[Text[Style["Full Screen", Small, FontFamily ...


5

From what I've read here on MSE, it is not possible to create a default WindowSize for new notebooks. To cope with this efficiently, I've created the following Palette which others might find handy as well. The result looks like this: And the full code is: (* Screen sizing buttons *) fullscreen = Button[Text[Style["Full Screen", Small, FontFamily ...


0

From what I've read here on MSE, it is not possible to create a default WindowSize for new notebooks. To cope with this efficiently, I've created the following palette which others might find handy as well. The result looks like this: And the full code is: (* Screen sizing buttons *) fullscreen = Button[Text[Style["Full Screen", Small, FontFamily ...


0

I have found using stylesheets allows you to have tabs to open and close at will. So, if you close the tab with all your code in it, the notebook will compile and the tabs with code will still remain closed. Hope I answered the question.


5

On Windows this works for me: Pause[1]; 1 + 1 (*you can add Save or Export here ofc*) NotebookSave @ EvaluationNotebook[]; Run["shutdown -t 2 -s"]; NotebookClose[] For command explanation take a look at the link Öskå has provided: SO:162305


3

This is not as general as Nasser's answer but in case of output being there you can use: SetOptions[$FrontEndSession, EvaluationCompletionAction -> "ScrollToOutput"]


5

I just tried this, and it seems to work. See if it works for you. Type this in first cell (thanks to Kuba suggestion, changed it to use SelectionMove[EvaluationCell[]) SetOptions[EvaluationNotebook[], CellProlog :> SelectionMove[EvaluationCell[], All, Cell]] You can make the above an initialization cell. Then Evaluation->Evaluate notebook. now it ...


4

Because there seems to be no quality resource or documentation on this subject, I will attempt to provide as close of a hand-holding solution as possible. I think this is feasible in the present case since we are restricting ourselves to one version of Mathematica on one platform (the RPi). My setup I have two RPis on my internal network. The local RPi ...


3

Pulling the Linksnooper out of your pocket was the right call and I guess you would have found this yourself soon. Please don't ask me about the why, because I don't know it. Additionally, I have only tested this on Linux. Let's create a small test using the "EvaluatorAbort" FE token Button["Abort", FrontEndExecute[FrontEndToken["EvaluatorAbort"]]] You ...


2

After you draw one or more selection rectangles and click away from the image they are still there suspended in a xenon mist but they are only visible if you look dead ahead use the selection tool. We can extract that data from the underlying Cell expression with this Button: Button["Copy ImageMarkers", Cases[ NotebookRead[SelectedNotebook[]], ...



Top 50 recent answers are included