-

[clean-tests.git] / malfunctioning_dropdowns / test.icl

diff --git a/malfunctioning_dropdowns/test.icl b/malfunctioning_dropdowns/test.icl
deleted file mode 100644 (file)
index 763c5e7..0000000
--- a/malfunctioning_dropdowns/test.icl
+++ /dev/null
@@ -1,21 +0,0 @@
-module test
-
-import iTasks
-
-import iTasks.UI.Editor
-import iTasks.UI.Editor.Containers
-import iTasks.UI.Editor.Controls
-import iTasks.UI.Editor.Generic
-import iTasks.UI.Editor.Common
-import iTasks.UI.Editor.Modifiers
-
-derive class iTask P
-:: P = Z | S P
-
-Start w = startEngine (enterInformation () [EnterUsing id e]) w
-where
-    e :: Editor P
-    e = bijectEditorValue (\i->(0,i)) snd
-        (containerc (chooseWithDropdown ["Z", "S"])
-            [ (const Z, emptyEditor)
-            , (S, bijectEditorValue S (\(S p)->p) e)])