(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 4752, 129] NotebookOptionsPosition[ 3997, 104] NotebookOutlinePosition[ 4376, 120] CellTagsIndexPosition[ 4333, 117] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Line-wrap a Wikipedia article at 40 characters:", "Text", CellChangeTimes->{{3.753036479313243*^9, 3.753036503409277*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"StringWrap\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"StringWrap\""}], ResourceFunction["StringWrap"], BoxID -> "StringWrap"], "[", RowBox[{ RowBox[{"WikipediaData", "[", "\"\\"", "]"}], ",", "40"}], "]"}]], "Input", CellChangeTimes->{{3.7530363069247875`*^9, 3.7530363449929314`*^9}, { 3.7530363779489784`*^9, 3.7530363799636097`*^9}, {3.753036463485181*^9, 3.7530364666782207`*^9}}, CellLabel->"In[92]:=", CellID->443871870], Cell[BoxData["\<\"Ontario Morning is a Canadian radio program,\\nwhich airs \ as the CBC Radio One local morning\\nprogram for non-metropolitan markets in \ Southern\\nOntario. While the network's main stations in\\nToronto, Ottawa, \ Waterloo Region, Windsor and\\nLondon each produce their own \ city-oriented\\nmorning programs, nearly all Radio One\\nrebroadcasters in \ smaller markets air Ontario Morning in\\nplace of their host station's \ program.The\\nprogram is produced from the studios of CBLA-FM at \ the\\nCanadian Broadcasting Centre in Toronto,\\nalthough it does not air on \ that station's primary\\ntransmitter in Toronto.The program's current\\nhost \ is Wei Chen. Past hosts have included Sue\\nPrestedge, Jane Hawtin, Joe Cot\ \[EAcute], Avril Benoit, Dave\\nSeglins, Erika Ritter, Lorne Saxberg \ and\\nMartina Fitzgerald. == References == == External\\nlinks == Official \ website\\n\"\>"], "Output", CellChangeTimes->{{3.7530363396663847`*^9, 3.753036345668927*^9}, 3.753036381058612*^9, 3.753036467832225*^9}, CellLabel->"Out[92]=", CellID->26590774] }, Open ]] }, Open ]] }, WindowSize->{808, 855}, WindowMargins->{{436, Automatic}, {Automatic, 50}}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb", $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"53974978-b614-4196-a2bf-2d8f06a6b1da", CellID->462042388], Cell[639, 25, 148, 2, 70, "Text",ExpressionUUID->"332b92aa-ebf8-49b6-9894-6ab8eeee80f9", CellID->13078159], Cell[CellGroupData[{ Cell[812, 31, 2070, 51, 70, "Input",ExpressionUUID->"2bdc983b-5684-409f-9ea3-327a8eb49039", CellID->443871870], Cell[2885, 84, 1084, 16, 70, "Output",ExpressionUUID->"cd7a753e-3954-4dd2-8fe3-15abdcb0e3cf", CellID->26590774] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)