X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=packages%2Fwx%2Fbbs%2Fappli%2FwxTour.bbs;h=03f12152f44add2d7e6d31f7c4c87d0ecfa32434;hb=b0b3d38965ae5ea063f4506a6b96ad341da66f10;hp=d22aaca45c123a59d68459afad3de027bbed7fe4;hpb=cb868c3a9ccced7e76fb46bd91c57dd2c00f78a3;p=bbtk.git diff --git a/packages/wx/bbs/appli/wxTour.bbs b/packages/wx/bbs/appli/wxTour.bbs index d22aaca..03f1215 100644 --- a/packages/wx/bbs/appli/wxTour.bbs +++ b/packages/wx/bbs/appli/wxTour.bbs @@ -5,8 +5,11 @@ category "demo" include wx #================================================================== print " " -print "====================================================" +print "============================" print "A Slider whose output is plugged into an OutputText" +print "============================" +print " " +#================================================================== message echo 2 # Create the Slider @@ -17,15 +20,15 @@ set slider.ReactiveOnTrack 1 new OutputText text # Add the Layout new LayoutLine main -# Make it a Dialog +# Make it a Dialog set main.WinDialog true -# Setting up the Layout : +# 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 +#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 @@ -39,14 +42,21 @@ exec main message echo 0 clear print " " -print "====================================================" +print "============================" print "Splitting a window into two adjustable parts" +print "============================" +print " " #================================================================== message echo 2 new LayoutSplit main +new Slider slider1 +new Slider slider2 +connect slider1.Widget main.Widget1 +connect slider2.Widget main.Widget2 +set main.Proportion 75 +set main.Orientation Horizontal set main.WinDialog true - exec main #==================================================================