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

diff --git a/malfunctioning_dropdowns/test.icl b/malfunctioning_dropdowns/test.icl
deleted file mode 100644
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)])