Tag Info

New answers tagged

2

Rough approach: Tooltip resources are stored in FileNameJoin[{ $InstallationDirectory, "SystemFiles", "FrontEnd", "TextResources", "ToolTip.tr"}] In order to not mess with installation directory you can copy this file to $UserBaseDirectory/SystemFiles... and replace labels you want. For example: @@resource ToolTipCut Cut (replace this line ...


0

I just want to chime in with a confirmation. I've been having this issue since 10.1.0.0 was released. I've emailed Wolfram and gotten no response. But for now i'm solving my problem by simply redownloading 10.0.2 and getting back to work.


1

There are some other interesting aspects with this strange behaviour observed by Kuba. LinkSnooper shows a bit more. When the option UpdateInterval is used in a Dynamic expression, the clock of the kernel is used. Indeed, each second the kernel sends a message to the frontend, and the frontend starts an update procedure. So what happens when we close the ...


4

This infinite evaluation is the result of "cross-linking" the two Dynamic expressions due to the failure to localize your Symbols with DynamicModule, e.g.: DynamicModule[{circle, circle1, circlebase, fin, circlerolled}, Manipulate[ circle = ParametricPlot3D[{Sin[x], Cos[x], 0}, {x, -Pi, Pi}, PerformanceGoal -> "Quality"]; circle1 = ...


0

A rough approximation using a string toExpr[str_String] := str // StringReplace[#, "\n" :> ""] & // ToExpression; " x //f1 //f2 //f3 //f4 //f5 " // toExpr f5[f4[f3[f2[f1[x]]]]] Although, this is just a Composition Composition[f5, f4, f3, f2, f1]@x f5[f4[f3[f2[f1[x]]]]] f5@*f4@*f3@*f2@*f1@x f5[f4[f3[f2[f1[x]]]]] ...


1

I have no reputation to post this only as a comment, but running your code in Debian with Mathematica 10.0.2 creates the notebook with its top left corner exactly at the mouse position (tested with multiple monitors), not shited as in your image.


2

Just for something different, and given you seem to want the values of the print cells, tmp = NotebookGet[EvaluationNotebook[]]; Cases[tmp, Cell[BoxData[p_], "Print", ___] :> p, \[Infinity]] If you have other print cells that you do not want in the list, i.e. non integers, then you can obviously add some tests.


1

If the results you wish to collect are all generated by Print, then you can use @Kuba's line in combination with NotebookFind: NotebookFind[EvaluationNotebook[], "Print", All, CellStyle]; printresults = RawBoxes /@ NotebookRead[SelectedCells[]][[;; , 1, 1]];


2

Perhaps something like: Lastt@Reap[For[j = 1, j <= 10, j++,Print[Sow@j]]]


2

Let's say those cells are selected and the parent notebook is nb, you can do something like: RawBoxes /@ NotebookRead[SelectedCells@nb][[;; , 1, 1]]


6

Mathematica does it internally by using BoxForm`ArrangeSummaryBox, which is quite straightforward to figure out: MakeBoxes[obj_MyObject, fmt_] ^:= Module[{o = List @@ obj, shown, hidden, icon = Graphics[{Blue, Circle[]}, ImageSize -> 70]}, shown = {{ BoxForm`MakeSummaryItem[{"Name: ", "Name" /. o /. "Name" -> Missing[]}, fmt], ...


7

The dimming is controlled by the option PrivateCellOptions->{"EvaluationUnmatchedStyle"}. It must be applied at the cell level, but this is easy to do in your example by using CellPrint with the "Print" style to match what Print does. CellPrint@ ExpressionCell[g, "Print", PrivateCellOptions -> {"EvaluationUnmatchedStyle" -> {}}]


8

The reason is that you have empty history because you set $HistoryLength = 0 (as you confirm in the comments). I recommend setting $HistoryLength to be at least 3 in order to get the [Show Full Output] button working in the most practical cases.


1

You may consider moving the variables used for the dynamic clock into a dedicated context Dynamic[{clock`d, clock`h, clock`m, clock`s} = List @@ DateDifference[Now, DateObject[{2015, 5, 18}], {"Day", "Hour", "Minute", "Second"}][[1]]; Grid[Transpose@{{"d", clock`d}, {"h", clock`h}, {"m", clock`m}, {"s", Round@clock`s}}, Alignment ...


2

Here's a quick&dirty&buggy solution for your two wishes, although I strongly suggest you to do you works the way as the notebook interface designed to. Cls := (SelectionMove[InputNotebook[], All, Notebook]; FrontEndExecute[FrontEndToken["Clear"]]); $Post = (If[Head@$outputNB == Symbol, $outputNB = CreateNotebook[]]; If[# === Null, 1;, ...


2

Your assumptions are most probably wrong, it seems that this function is meant to change CellStyle. e.g. use this code to convert Input cells to Title cells in current notebook: ( SelectionMove[#, All, Cell]; MathLink`CallFrontEnd[FrontEnd`SelectionSetStyle[#, "Title"]] ) & /@ Cells[CellStyle -> "Input"] Used here: Set the style of a cell ...


2

I don't know if any of them can be callled documented but I know three ways to do this: mentioned above: FrontEndToken way: ( SelectionMove[#, All, Cell]; FrontEndTokenExecute[EvaluationNotebook[], "Style", "Title"] ) & /@ Cells[CellStyle -> "Section"] or SelectionSetStyle way: ( SelectionMove[#, All, Cell]; ...


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



Top 50 recent answers are included