Commit 634759c4 authored by Steffen Michels's avatar Steffen Michels

show newlines in html-visualization of Note

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@977 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 62cf8701
......@@ -71,7 +71,7 @@ gVisualize{|Note|} old new vst=:{vizType,label,idPrefix,currentPath,useLabels,op
| oldV <> newV = ([TUIUpdate (TUISetValue id newV)]
, 2
, {VSt|vst & currentPath = stepDataPath currentPath, valid= stillValid contentPath new optional valid})
_ = ([TextFragment (toString old)]
_ = ([HtmlFragment (flatten [[Text line,BrTag []] \\ line <- split "\n" (toString old)])]
, 2
, {VSt|vst & currentPath = stepDataPath currentPath, valid= stillValid contentPath new optional valid})
where
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment