User Portlet User Portlet

Discussions
Now I am having trouble defining custom properties. my code is g = CompleteGraph[4] g2 = SetProperty[g, "name" -> "shambalulu"] BreadthFirstScan[g2, { "DiscoverVertex" -> Function[{child, parent, deg}, { ...
Excellent, this is exactly it. Many thanks, Neil!
`SpanMaxSize` does the trick: Style[DisplayForm@ RowBox[{"cases", "=", "{", Column[{1, 2, 3, 4, 5, 6, 7}]}], SpanMaxSize -> Infinity]