From e321d4bbef513085db0685b040457c7f33b36aeb Mon Sep 17 00:00:00 2001
From: Arthur Peters <amp@singingwizard.org>
Date: Thu, 25 Aug 2016 16:49:52 -0500
Subject: [PATCH] Tweak examples.

---
 OrcExamples/orco_paper/sec5-1_event_handling.orc    | 3 ++-
 OrcExamples/orco_paper/sec5-4_composing_objects.orc | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/OrcExamples/orco_paper/sec5-1_event_handling.orc b/OrcExamples/orco_paper/sec5-1_event_handling.orc
index c9d165c0b..583dac37a 100644
--- a/OrcExamples/orco_paper/sec5-1_event_handling.orc
+++ b/OrcExamples/orco_paper/sec5-1_event_handling.orc
@@ -25,7 +25,7 @@ class GUI {
     queryButton.setEnabled(false) >>
     resultsList.clear() >>
     db.query(queryEntry.getText()) >r>
-    resultsList.add(r) >> stop ;
+    resultsList.add(r) >> Println(r) >> stop ;
     queryButton.setEnabled(true)
   })
   -- Initialization event handling
@@ -49,6 +49,7 @@ val gui = new GUI {
   val db = new Database
 } 
 
+Println("The database only includes values 'a', 'b', and 'c'.") >> stop |
 gui.frame.onClosing()
 
 |}
\ No newline at end of file
diff --git a/OrcExamples/orco_paper/sec5-4_composing_objects.orc b/OrcExamples/orco_paper/sec5-4_composing_objects.orc
index d36711386..1dc817fda 100644
--- a/OrcExamples/orco_paper/sec5-4_composing_objects.orc
+++ b/OrcExamples/orco_paper/sec5-4_composing_objects.orc
@@ -102,5 +102,6 @@ onRequest() >r> {|
       val db = database
     }).handle(r)) |
   r.onDisconnect()
-|}
+|} >> stop ; 
+database.queryChannel.close()