]> 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
 category "tool, read/write"
 
 load vtk
-//include wxvtk
+include wxvtk
 load std
 load itk
 include vtk
 load std
 load itk
 include vtk
@@ -24,6 +24,9 @@ new ImagesReader chooser
 new ConcatImages reader
    connect chooser.Out reader.In
 
 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
 // 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
 new CommandButton cb1
-   connect cb1.Widget main.Widget1
    set cb1.Label "1) Select File"
    set cb1.WinDialog true
    set cb1.Label "1) Select File"
    set cb1.WinDialog true
-
+   connect cb1.Widget main.Widget1
 connect cb1.BoxChange reader.BoxExecute
 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 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
 # ------------------------------
 
 # Choose where you want to write
 # ------------------------------