From: jean-pierre roux <jean-pierre.roux@creatis.insa-lyon.fr>
Date: Fri, 7 May 2010 09:35:50 +0000 (+0000)
Subject: update
X-Git-Tag: CREATOOLS.2-0-3~40
X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=commitdiff_plain;h=1b7fa4d3c003f1a73dd78c412ec8ff27c3c10a72;p=bbtk.git

update
---

diff --git a/packages/demo/bbs/appli/SaveAsMhd.bbs b/packages/demo/bbs/appli/SaveAsMhd.bbs
index 43b9b6f..359965c 100644
--- a/packages/demo/bbs/appli/SaveAsMhd.bbs
+++ b/packages/demo/bbs/appli/SaveAsMhd.bbs
@@ -4,7 +4,7 @@ author "jpr@creatis.insa-lyon.fr"
 category "tool, read/write"
 
 load vtk
-//include wxvtk
+include wxvtk
 load std
 load itk
 include vtk
@@ -24,6 +24,9 @@ new ImagesReader chooser
 new ConcatImages reader
    connect chooser.Out reader.In
 
+
+
+
 // Normally (?) the following lines {== BEGIN == / ==END ==}
 // are now useless; let here as a reminder/example
 // Don't remove them . JPRx
@@ -132,17 +135,34 @@ new DICOMDirReader reader
 
 
 
+
 new CommandButton cb1
-   connect cb1.Widget main.Widget1
    set cb1.Label "1) Select File"
    set cb1.WinDialog true
-
+   connect cb1.Widget main.Widget1
+ 
 connect cb1.BoxChange reader.BoxExecute
-   
+
+new SimpleSlicer slc
+   set slc.Orientation 2
+   set slc.SliderReactiveOnTrack 1   
+   connect reader.Out slc.In
+   // It doesn't work ?!?, needs to "exec slc" // JPR
+   connect reader.BoxChange slc.BoxExecute
+
+exec slc
+
 new CommandButton cb
    connect cb.Widget main.Widget2
    set cb.Label "2) Write (no '.mhd' extention needed!"
    set cb.WinDialog true
+   
+new CommandButton next
+   connect next.Widget main.Widget3
+   set next.Label "Next !"
+   set next.WinDialog true
+   // It doesn't work : <<the black box "main" is still connected">>
+   set next.In "delete main"
 
 # Choose where you want to write
 # ------------------------------