From cd399494fef84593c8b01a417eafd949185c7afa Mon Sep 17 00:00:00 2001
From: Dierk Koenig <dierk.koenig@canoo.com>
Date: Mon, 1 Jun 2015 15:00:28 +0200
Subject: [PATCH] make graphical Stairs example URL loadable from history View

---
 client/src/main/frege/org/frege/Application.fr | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/client/src/main/frege/org/frege/Application.fr b/client/src/main/frege/org/frege/Application.fr
index 1a81ab0..8d6e1c4 100644
--- a/client/src/main/frege/org/frege/Application.fr
+++ b/client/src/main/frege/org/frege/Application.fr
@@ -44,6 +44,9 @@ showUI mConsole stage = do
     items.add ":type mapM"
     items.add "mapM println [1..100]"
     items.add "fib = 1n : 1n : zipWith (+) fib (tail fib)"
+    items.add ":l https://raw.githubusercontent.com/Dierk/frepl-gui/master/Stairs.fr"
+    items.add "import Stairs"
+    items.add "paint (\\ctx -> sequence_ $ take 500 $ doodle ctx)"
 
     sm  <- historyLV.getSelectionModel
     sip <- sm.selectedItemProperty