X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=packages%2Fwx%2Fbbs%2Fappli%2FexampleComplexSlider.bbs;h=4d0273d8c3b54ed3aba02a8eb5c86c856f0b2d88;hb=731d9ee262e286a24e3ea2776d8e914950840a2c;hp=218afcaa105141aa2bbcfd027cf45c5ffeaf68ba;hpb=72a8a185a48d4f800d2a6f8fedabc709f363352f;p=bbtk.git

diff --git a/packages/wx/bbs/appli/exampleComplexSlider.bbs b/packages/wx/bbs/appli/exampleComplexSlider.bbs
index 218afca..4d0273d 100644
--- a/packages/wx/bbs/appli/exampleComplexSlider.bbs
+++ b/packages/wx/bbs/appli/exampleComplexSlider.bbs
@@ -1,6 +1,6 @@
 description "More complex test of wx::Slider widget"
 author "jpr[at]creatis[dot]insa[dash]lyon[dot]fr"
-category "example;widget"
+category "example"
 
 load wx
 // std needed for <std::string> to <int> adaptor
@@ -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