In[]:=
SetOptions[EvaluationNotebook[],{PrivateNotebookOptions{"FileOutlineCache"False},System`TrackCellChangeTimesFalse}]
Notebook
Notebook
In[]:=
StyleSheetNew["Notebook"]
StyleSheetEdit["Notebook",CacheGraphicsFalse]
LinkedImage
LinkedImage
In[]:=
StyleSheetNew["LinkedImage"]
In[]:=
Begin["LinkedImage`Private`"];StyleSheetEdit["LinkedImage",TemplateBoxOptions{DisplayFunctionFunction@TooltipBox[DynamicBox[Refresh[ToBoxes@EventHandler[Quiet[Check[Import[#],Framed[Style[#,FontFamily"Helvetica Serif"],RoundingRadius5,BackgroundGrayLevel[.95],FrameStyleGray]]],{"MouseClicked"Replace[DialogInput[{alt=#2,link=#},Grid[{{"Image URL:",EventHandler[InputField[Dynamic[link],String,BoxID"image-url"],"ReturnKeyDown"If[StringQ@alt&&AllTrue[{alt,link},StringLength[#]>0&],DialogReturn[{link,alt}],FrontEndExecute@FrontEnd`MoveCursorToInputField[EvaluationNotebook[],"alt-text"]]]},{"Alt Text:",EventHandler[InputField[Dynamic[alt],String,BoxID"alt-text"],"ReturnKeyDown"If[StringQ@link&&AllTrue[{alt,link},StringLength[#]>0&],DialogReturn[{link,alt}],FrontEndExecute@FrontEnd`MoveCursorToInputField[EvaluationNotebook[],"image-url"]]]},{Spacer[{10,10}]}},AlignmentLeft,Spacings{1,1}],WindowSize{300,All},WindowMarginsFunction[{{#[[1]],Automatic},{Automatic,#[[2]]}}][MousePosition[]]],{link_String,alt_String}NotebookWrite[Nest[ParentBox,EvaluationBox[],3],TemplateBox[{link,alt},"LinkedImage"]]],Method"Queued"}],None],TrackedSymbols{}],#2],EditableFalse,DeployedTrue,InterpretationFunctionFunction[RowBox[{"LinkedImage","[",ToBoxes@#,",",ToBoxes@#2,"]"}]]}];End[];
LinkedImageLink
LinkedImageLink
In[]:=
StyleSheetNew["LinkedImageLink"]
In[]:=
Begin["LinkedImage`Private`"];StyleSheetEdit["LinkedImageLink",TemplateBoxOptions{DisplayFunctionFunction@TooltipBox[DynamicBox[Refresh[ToBoxes@Annotation[MouseAppearance[EventHandler[Quiet[Check[Import[#2],Framed[Style[#2,FontFamily"Helvetica Serif"],RoundingRadius5,BackgroundGrayLevel[.95],FrameStyleGray]]],{"MouseClicked"If[MemberQ[CurrentValue["ModifierKeys"],"Control"|"Command"],SystemOpen[#],Replace[DialogInput[{alt=#3,url=#2,link=#},Grid[{{"Image URL:",EventHandler[InputField[Dynamic[url],String,BoxID"image-url"],"ReturnKeyDown"If[AllTrue[{link,url,alt},StringQ[#]&&StringLength[#]>0&],DialogReturn[{link,url,alt}],FrontEndExecute@FrontEnd`MoveCursorToInputField[EvaluationNotebook[],"link-url"]]]},{"Link URL:",EventHandler[InputField[Dynamic[link],String,BoxID"link-url"],"ReturnKeyDown"If[AllTrue[{alt,url,link},StringQ[#]&&StringLength[#]>0&],DialogReturn[{link,url,alt}],FrontEndExecute@FrontEnd`MoveCursorToInputField[EvaluationNotebook[],"alt-text"]]]},{"Alt Text:",EventHandler[InputField[Dynamic[alt],String,BoxID"alt-text"],"ReturnKeyDown"If[AllTrue[{alt,url,link},StringQ[#]&&StringLength[#]>0&],DialogReturn[{link,url,alt}],FrontEndExecute@FrontEnd`MoveCursorToInputField[EvaluationNotebook[],"image-url"]]]},{Spacer[{10,10}]}},AlignmentLeft,Spacings{1,1}],WindowSize{300,All},WindowMarginsFunction[{{#[[1]],Automatic},{Automatic,#[[2]]}}][MousePosition[]]],{link_String,url_String,alt_String}NotebookWrite[Nest[ParentBox,EvaluationBox[],3],TemplateBox[{link,url,alt},"LinkedImageLink"]]]],Method"Queued"}],"LinkHand"],#],None],TrackedSymbols{}],#3],EditableFalse,DeployedTrue,InterpretationFunctionFunction[RowBox[{"LinkedImageLink","[",ToBoxes@#,",",ToBoxes@#2,",",ToBoxes@#3,"]"}]]}];End[];