*** empty log message ***

diff --git a/kernel/appli/bbi/bbs-mode.el b/kernel/appli/bbi/bbs-mode.el
index bc618911adaf2d1964538c013fdecbd68dd504b2..c6b029381ddcf9676c57c67af04b1ccc244f601b 100644 (file)
--- 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 12ed0781c26936cb5ab95e0ccffd8949a948c9ee..0c5c075d5eb0d9239750873d0eac2c0b0f4c6bb5 100644 (file)
--- 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 (file)
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
+#==================================================================