newlandsvalley

import Combine exposing (..)
import Combine.Char exposing (..)
import Combine.Infix exposing (..)
import Graphics.Element exposing (..)

{- dependencies
   "elm-lang/core": "3.0.0 <= v < 4.0.0",
   "Bogdanp/elm-combine": "2.0.0 <= v < 3.0.0"
-}

newlandsvalley

module Disable where

{-
This gist shows one method of temporarily disabling a button whilst a task (which it has kicked off)
is in flight.  My need to do this comes from an audio 'play' button which kicks of an audio
'play sounds' task.  Although the task returns immediately, I know the duration  of the sound clip
so I suspend the UI whilst the clip is played.  The trick is to split the 'play' task into two parts
so that the view has the chance to update in between them.  The first action (Play) disables the button 
and plays the clip, the second action (ShowButton) re-enables the button.

newlandsvalley

@*
 * This template takes a single argument, a String containing a
 * message to display.
 *@
@(message: String)


@main("The Interactive ABC Tutorial", "abc", "Main") {

    <h1>The Interactive ABC Tutorial</h1>

newlandsvalley

module Checks exposing (..)

import Producers exposing (..)
import Mus exposing (..)
import Check exposing (..)
import Check.Producer exposing (..)
import Check.Test
import ElmTest

newlandsvalley

module TunnelBinary18 exposing (..)

import Html exposing (..)
import Html.Events exposing (onClick)
import Http exposing (..)
import List exposing (..)
import String exposing (..)
import Result exposing (Result)
import Char exposing (fromCode, toCode)
import Bitwise exposing (and)

newlandsvalley

module TunnelBinary17 exposing (..)

import Html exposing (..)
import Html.Events exposing (onClick)
import Html.App as Html
import Http exposing (..)
import Task exposing (..)
import List exposing (..)
import String exposing (..)
import Result exposing (Result)