From cb868c3a9ccced7e76fb46bd91c57dd2c00f78a3 Mon Sep 17 00:00:00 2001
From: guigues <guigues>
Date: Fri, 12 Dec 2008 12:23:07 +0000
Subject: [PATCH] *** empty log message ***

---
 kernel/appli/bbi/bbs-mode.el     |  1 +
 packages/kw/bbs/appli/kwTour.bbs | 19 +++++------
 packages/wx/bbs/appli/wxTour.bbs | 55 ++++++++++++++++++++++++++++++++
 3 files changed, 64 insertions(+), 11 deletions(-)
 create mode 100644 packages/wx/bbs/appli/wxTour.bbs

diff --git a/kernel/appli/bbi/bbs-mode.el b/kernel/appli/bbi/bbs-mode.el
index bc61891..c6b0293 100644
--- a/kernel/appli/bbi/bbs-mode.el
+++ b/kernel/appli/bbi/bbs-mode.el
@@ -43,6 +43,7 @@
 		 "unload"
 		 "index"
 		 "category"
+		 "clear"
 		 ) t )
    "Highlighting expressions for bbs mode.")
   )
diff --git a/packages/kw/bbs/appli/kwTour.bbs b/packages/kw/bbs/appli/kwTour.bbs
index 12ed078..0c5c075 100644
--- a/packages/kw/bbs/appli/kwTour.bbs
+++ b/packages/kw/bbs/appli/kwTour.bbs
@@ -2,12 +2,15 @@ description "A tour of all kw widgets"
 author "laurent.guigues at creatis.insa-lyon.fr"
 category "demo"
 
+include kw
+load std
+include vtk
+load wx
+
 print "=================================="
 print "A Slider whose output is plugged into an OutputText"
 message echo 2
 
-include kw
-load std
 new kwSlider in
 new kwOutputText out
 connect in.Out out.In
@@ -23,15 +26,10 @@ print "=================================="
 print "The kwSlicer widget"
 message echo 2
 
-load kw
-include vtk
-load wx
-
 new LoadHola r
 new kwSlicer s
 connect r.Out s.In
 exec s
-reset
 
 message echo 0
 clear
@@ -39,10 +37,6 @@ print "=================================="
 print "Using both kw and wx"
 message echo 2
 
-load wx
-load kw
-load std
-
 new OutputText t
 exec t
 
@@ -51,3 +45,6 @@ connect s.Out t.In
 connect s.BoxChange t.BoxExecute
 
 exec s
+
+message echo 0
+clear
diff --git a/packages/wx/bbs/appli/wxTour.bbs b/packages/wx/bbs/appli/wxTour.bbs
new file mode 100644
index 0000000..d22aaca
--- /dev/null
+++ b/packages/wx/bbs/appli/wxTour.bbs
@@ -0,0 +1,55 @@
+description "A tour of wx boxes"
+author "laurent.guigues@creatis.insa-lyon.fr"
+category "demo"
+
+include wx
+#==================================================================
+print " "
+print "===================================================="
+print "A Slider whose output is plugged into an OutputText"
+message echo 2
+
+# Create the Slider
+new Slider     slider
+# Make it signal it has changed when it is moved (not only released)
+set slider.ReactiveOnTrack 1
+# Create the OutputText
+new OutputText text
+# Add the Layout
+new LayoutLine main
+# Make it a Dialog 
+set main.WinDialog true
+
+# Setting up the Layout :
+connect slider.Widget    main.Widget1
+connect text.Widget      main.Widget2
+
+# The output of the slider is plugged into the input of the text
+# To do this, we must have an int to string adaptor, hence load std
+load std
+connect slider.Out       text.In
+
+# Any change of the slider must update the text
+connect slider.BoxChange text.BoxExecute
+
+# Go!
+exec main
+
+#==================================================================
+message echo 0
+clear
+print " "
+print "===================================================="
+print "Splitting a window into two adjustable parts"
+#==================================================================
+message echo 2
+
+new LayoutSplit main
+set main.WinDialog true
+
+exec main
+
+#==================================================================
+message echo 0
+clear
+#==================================================================
-- 
2.45.0