make graphical Stairs example URL loadable from history View

Dierk · Jun 1, 2015 · cd39949 · cd39949
1 parent 2b0f1d8
commit cd39949
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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