diff options
author | Will Thompson <will@willthompson.co.uk> | 2012-01-17 11:56:29 +0000 |
---|---|---|
committer | Will Thompson <will@willthompson.co.uk> | 2012-01-17 11:56:29 +0000 |
commit | e5ce7c9a3ddf0a192a4c5e575dba5628d2ef83c0 (patch) | |
tree | 0344241dccca73b57715c9b3eee69f1b840f35bf | |
parent | 8484bd31ca387d45187b062c053eb14ee3f5242c (diff) |
UI: show a “please hold” page until first message arrives
-rw-r--r-- | Bustle/UI.hs | 4 | ||||
-rw-r--r-- | data/bustle.glade | 19 |
2 files changed, 22 insertions, 1 deletions
diff --git a/Bustle/UI.hs b/Bustle/UI.hs index 9c6cd6b..fa5e9f1 100644 --- a/Bustle/UI.hs +++ b/Bustle/UI.hs @@ -74,6 +74,7 @@ data LogDetails = data Page = InstructionsPage + | PleaseHoldPage | CanvasPage deriving (Enum) @@ -222,7 +223,7 @@ startRecording = do cacheDir <- io $ getCacheDir let filename = cacheDir </> yyyy_mm_dd_hh_mm_ss <.> "bustle" - io $ setPage wi CanvasPage + setPage wi PleaseHoldPage embedIO $ \r -> recorderRun filename (Just (wiWindow wi)) (aChallengerAppears wi) $ makeCallback (finishedRecording wi filename) r @@ -232,6 +233,7 @@ aChallengerAppears :: WindowInfo aChallengerAppears wi rr = do updateDisplayedLog wi rr canvasScrollToBottom (wiCanvas wi) + setPage wi CanvasPage finishedRecording :: WindowInfo -> FilePath diff --git a/data/bustle.glade b/data/bustle.glade index 5b68e8f..e6e07d1 100644 --- a/data/bustle.glade +++ b/data/bustle.glade @@ -159,6 +159,25 @@ <child> <widget class="GtkLabel" id="label1"> <property name="visible">True</property> + <property name="label" translatable="yes">Please Hold</property> + </widget> + <packing> + <property name="tab_fill">False</property> + <property name="type">tab</property> + </packing> + </child> + <child> + <widget class="GtkLabel" id="label4"> + <property name="visible">True</property> + <property name="label" translatable="yes"> + <big><b>Waiting for D-Bus traffic; please hold…</b></big> + </property> + <property name="use_markup">True</property> + </widget> + </child> + <child> + <widget class="GtkLabel" id="label1"> + <property name="visible">True</property> <property name="label" translatable="yes">Instructions</property> </widget> <packing> |