X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=malfunctioning_dropdowns%2Ftest.icl;fp=malfunctioning_dropdowns%2Ftest.icl;h=763c5e71deda77cb59d2f604c1213dfb12195fcb;hb=53817603554125625f3c7d6b4b9ea0dc4a4bdf78;hp=0000000000000000000000000000000000000000;hpb=42099428d4defde7cb94bb15cd89b35d5761f63d;p=clean-tests.git

diff --git a/malfunctioning_dropdowns/test.icl b/malfunctioning_dropdowns/test.icl
new file mode 100644
index 0000000..763c5e7
--- /dev/null
+++ b/malfunctioning_dropdowns/test.icl
@@ -0,0 +1,21 @@
+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)])