Commit ca9ed213 authored by ecrombag's avatar ecrombag

Forgot to commit GenVisualize.icl

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@1098 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 26e54f94
......@@ -975,23 +975,7 @@ getId (TUIRecordContainer d) = Just d.TUIRecordContainer.id
getId (TUIListContainer d) = Just d.TUIListContainer.id
getId (TUILabel) = Nothing
getId (TUIButton d) = Just d.TUIButton.id
getId (TUINumberField d) = Just d.TUINumberField.id
getId (TUITextArea d) = Just d.TUITextArea.id
getId (TUIComboBox d) = Just d.TUIComboBox.id
getId (TUICheckBox d) = Just d.TUICheckBox.id
getId (TUICheckBoxGroup d) = Just d.TUICheckBoxGroup.id
getId (TUIRadio d) = Nothing
getId (TUIRadioGroup d) = Just d.TUIRadioGroup.id
getId (TUITimeField d) = Just d.TUITimeField.id
getId (TUIDateField d) = Just d.TUIDateField.id
getId (TUIHtmlEditor) = Nothing
getId (TUIFieldSet d) = Just d.TUIFieldSet.id
getId (TUIPanel d) = Nothing
getId (TUIBox d) = Nothing
getId (TUIHtmlPanel d) = Just d.TUIHtmlPanel.id
getId (TUICustom d) = Nothing
getId (TUITuple d) = Just d.TUITuple.id
getId _ = abort "unknown TUI Definition"
coerceToStrings :: [Visualization] -> [String]
......
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