module main

from Data.Func import $
import iTasks

derive class iTask Blurp
:: Blurp =
	{ aa :: Int
	, ab :: Int
	, ba :: Int
	, bb :: Int
	, ca :: Int
	, cb :: Int
	, da :: Int
	, db :: Int
	, ea :: Int
	, eb :: Int
	, fa :: Int
	, fb :: Int
	, ga :: Int
	, gb :: Int
	, ha :: Int
	, hb :: Int
	, ia :: Int
	, ib :: Int
	, ja :: Int
	, jb :: Int
	, ka :: Int
	, kb :: Int
	, la :: Int
	, lb :: Int
	, ma :: Int
	, mb :: Int
	, na :: Int
	, nb :: Int
	, oa :: Int
	, ob :: Int
	, pa :: Int
	, pb :: Int
	}

blurpEditor :: Int /*ca*/  Int /*cb*/  Int /*fa*/  Int /*fb*/  Int /*ia*/  Int /*ib*/  Int /*la*/  Int /*lb*/  Int /*oa*/  Int /*ob*/  -> Editor Blurp
blurpEditor ca cb fa fb ia ib la lb oa ob = 
	bijectEditorValue
		(\{Blurp|aa,ab,ba,bb,ca,cb,da,db,ea,eb,fa,fb,ga,gb,ha,hb,ia,ib,ja,jb,ka,kb,la,lb,ma,mb,na,nb,oa,ob,pa,pb}->(aa,ab,ba,bb,(ca,cb,da,db,(ea,eb,fa,fb,(ga,gb,ha,hb,(ia,ib,ja,jb,(ka,kb,la,lb,(ma,mb,na,nb,(oa,ob,pa,pb)))))))))
		(\(aa,ab,ba,bb,(ca,cb,da,db,(ea,eb,fa,fb,(ga,gb,ha,hb,(ia,ib,ja,jb,(ka,kb,la,lb,(ma,mb,na,nb,(oa,ob,pa,pb))))))))->{Blurp|aa,ab,ba,bb,ca,cb,da,db,ea,eb,fa,fb,ga,gb,ha,hb,ia,ib,ja,jb,ka,kb,la,lb,ma,mb,na,nb,oa,ob,pa,pb})
		(container5
			(row "aa" (gEditor{|*|}))
			(row "ab" (gEditor{|*|}))
			(row "ba" (withEditMode View $ gEditor{|*|}))
			(row "bb" (withEditMode View $ gEditor{|*|}))
			(container5
				(row "ca" (gEditor{|*|}))
				(row "cb" (gEditor{|*|}))
				(row "da" (withEditMode View $ gEditor{|*|}))
				(row "db" (withEditMode View $ gEditor{|*|}))
				(container5
					(row "ea" (gEditor{|*|}))
					(row "eb" (gEditor{|*|}))
					(row "fa" (withEditMode View $ gEditor{|*|}))
					(row "fb" (withEditMode View $ gEditor{|*|}))
					(container5
						(row "ga" (gEditor{|*|}))
						(row "gb" (gEditor{|*|}))
						(row "ha" (withEditMode View $ gEditor{|*|}))
						(row "hb" (withEditMode View $ gEditor{|*|}))
						(container5
							(row "ia" (gEditor{|*|}))
							(row "ib" (gEditor{|*|}))
							(row "ja" (withEditMode View $ gEditor{|*|}))
							(row "jb" (withEditMode View $ gEditor{|*|}))
							(container5
								(row "ka" (gEditor{|*|}))
								(row "kb" (gEditor{|*|}))
								(row "la" (withEditMode View $ gEditor{|*|}))
								(row "lb" (withEditMode View $ gEditor{|*|}))
								(container5
									(row "ma" (gEditor{|*|}))
									(row "mb" (gEditor{|*|}))
									(row "na" (withEditMode View $ gEditor{|*|}))
									(row "nb" (withEditMode View $ gEditor{|*|}))
									(container4
										(row "oa" (gEditor{|*|}))
										(row "ob" (gEditor{|*|}))
										(row "pa" (withEditMode View $ gEditor{|*|}))
										(row "pb" (withEditMode View $ gEditor{|*|}))
									)
								)
							)
						)
					)
				)
			)
		)
	where
		row l e = bijectEditorValue (\e ->(l, e)) (\(l, e)->e)
			$ panel2 label e <<@ directionAttr Horizontal

Start w = startEngine (enterInformation () [EnterUsing id $ blurpEditor
		defaultValue /*ca :: Int*/
		defaultValue /*cb :: Int*/
		defaultValue /*fa :: Int*/
		defaultValue /*fb :: Int*/
		defaultValue /*ia :: Int*/
		defaultValue /*ib :: Int*/
		defaultValue /*la :: Int*/
		defaultValue /*lb :: Int*/
		defaultValue /*oa :: Int*/
		defaultValue /*ob :: Int*/
	]) w