From: Mart Lubbers Date: Tue, 20 Aug 2019 10:35:23 +0000 (+0200) Subject: gui X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=0a29dac39a56a8a23dee0b3fcf74ad6cd96f38dd;p=clean-tests.git gui --- diff --git a/7gui/test.icl b/7gui/test.icl new file mode 100644 index 0000000..6265465 --- /dev/null +++ b/7gui/test.icl @@ -0,0 +1,58 @@ +module test + +import Data.Func +import Data.Tuple +import System.Time + +import iTasks +import iTasks.Extensions.DateTime +import iTasks.UI.Editor.Common + +Start w = doTasks gui5 w + +gui1 :: Int -> Task Int +gui1 c = viewInformation "Counter" [] c + >>* [OnAction (Action "Count") (withValue (Just o gui1 o inc))] + +gui2 :: Task Real +gui2 = withShared 42.0 \sh-> + updateSharedInformation "Celcius" [] sh + -|| updateSharedInformation "Fahrenheit" + [UpdateAs (\c->1.8*c+32.0) \_ f->(f-32.0)/1.8] sh + +:: Flight + = OneWay Date + | Return (Date, Date) +derive class iTask Flight + +gui3 :: Task Flight +gui3 = get currentDate + >>- \now->editChoice () [] ["one-way flight", "return flight"] (Just "one-way flight") + >&> \sh-> whileUnchanged sh \v->case fromJust v of + "one-way flight" = withShared now \sh-> + updateSharedInformation () [] sh + -|| updateSharedInformation () [UpdateUsing toString const (gEditor{|*|} <<@ enabledAttr False)] sh + >>* [OnAction (Action "Book") $ ifValue (\_->True) $ return o OneWay] + "return flight" + = updateInformation () [] now + -&&- updateInformation () [] now + >>* [OnAction (Action "Book") $ ifValue (uncurry (<)) $ return o Return] + +gui4 :: Timestamp Int -> Task Timestamp +gui4 startTime duration = withShared duration \duration-> + viewSharedInformation "Elapsed time: " [ViewUsing toProgress progressBar] (currentTimestamp >*< duration) + -&&- viewSharedInformation () [ViewAs \now->on (-) toInt now startTime] currentTimestamp + -&&- updateSharedInformation "Duration: " [UpdateUsing id (const id) $ slider <<@ minAttr 0 <<@ maxAttr 3600] duration + >>* [OnAction (Action "Reset") $ always $ get (currentTimestamp >*< duration) >>- uncurry gui4] +where + toProgress (now, duration) = + (Just $ toInt $ on (-) (toReal o toInt) now startTime / toReal duration * 100.0, Nothing) + +gui5 = withShared [(0, "Emil", "Hans"), (1, "Mustermann", "Max"), (2, "Tisch", "Roman")] \data-> + enterInformation "Filter prefix" [] + >&> \v->whileUnchanged (mapRead (fromMaybe " ") v) \filter-> + tune ArrangeHorizontal + $ enterChoiceWithShared () [ChooseFromList (\(_, f, l)->f +++ ", " +++ l)] data + >&> \v->whileUnchanged v \selection->case selection of + Nothing = viewInformation "Nothing selected" [] () @? const NoValue + Just x = updateInformation () [] x