From: jean-pierre roux <jean-pierre.roux@creatis.insa-lyon.fr>
Date: Thu, 21 Feb 2008 11:38:17 +0000 (+0000)
Subject: Fixes
X-Git-Tag: r0.6.1~161
X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=commitdiff_plain;h=6bdce1ed7711a6b81fbebfd8aaaef56062c6c7f7;p=bbtk.git

Fixes
---

diff --git a/packages/wx/bbs/appli/exampleComplexSlider.bbs b/packages/wx/bbs/appli/exampleComplexSlider.bbs
index 218afca..e588cd3 100644
--- a/packages/wx/bbs/appli/exampleComplexSlider.bbs
+++ b/packages/wx/bbs/appli/exampleComplexSlider.bbs
@@ -26,10 +26,12 @@ new OutputText o1
    
 connect s1.Widget left.Widget1
 connect s1.Out o1.In 
+
 // -----------------------------------
 new Slider s2
    set s2.Min -110
    set s2.Max 140
+   set s2.In -1
    set s2.Title "s2 : Slider with Min, Max, ReactiveOnTrack, O.Text : Reactive"
    set s2.ReactiveOnTrack 1
         
@@ -37,7 +39,8 @@ new OutputText o2
    set o2.Title "Sortie s2"
    set o2.BoxProcessMode Reactive
 connect s2.Widget left.Widget2
-connect s2.Out o2.In 
+connect s2.Out o2.In
+
 // -----------------------------------
 new Slider s3
    set s3.Min 12
@@ -51,26 +54,33 @@ new OutputText o3
    
 connect s3.Widget left.Widget3
 connect s3.Out o3.In
+
 // -----------------------------------
 
 new Add a
-   set a.In1 s1.Out
-   set a.In2 s2.Out
-/*
+   connect s1.Out a.In1 
+   connect s2.Out a.In2
+   set a.BoxProcessMode Reactive
 
-// Check later : no <double> to <int> adaptor available ?!?   
 new Slider s4
-   set s4.Title "Slider pos s1+s2"
+   set s4.Title "s4 : Slider pos s1+s2"
    set s4.BoxProcessMode Reactive
 connect a.Out s4.In
+# Warning : 'In' is the initial position, nothing more
+#            Don't try to modify it later!
    
 connect s4.Widget left.Widget4
-*/
+
+new OutputText o4
+   set o4.Title "Entree s4 (Add s1, s2)"
+   set o4.BoxProcessMode Reactive
+connect a.Out o4.In
 
 // -----------------------------------
 connect o1.Widget left.Widget5
 connect o2.Widget left.Widget6
 connect o3.Widget left.Widget7
+connect o4.Widget left.Widget8
 
 // =======================================================
 
@@ -102,4 +112,9 @@ connect s13.Widget right.Widget6
 
 // ---------------------------------------------------
 
+new CommandButton cmdBtn
+   set cmdBtn.In "exec s4; exec main"
+   set cmdBtn.Label "Refresh main"
+connect cmdBtn.Widget left.Widget9
+
 exec main