]> Creatis software - bbtk.git/commitdiff
update
authorjean-pierre roux <jean-pierre.roux@creatis.insa-lyon.fr>
Fri, 7 May 2010 09:35:50 +0000 (09:35 +0000)
committerjean-pierre roux <jean-pierre.roux@creatis.insa-lyon.fr>
Fri, 7 May 2010 09:35:50 +0000 (09:35 +0000)
packages/demo/bbs/appli/SaveAsMhd.bbs

index 43b9b6f3e171babb10d8357e1b49337da9538bb9..359965cfefa3462ee366d32e49f51503c0bb4f4e 100644 (file)
@@ -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
 # ------------------------------