#3465 Spin in combobox Box and FilterString (find strings)

[bbtk.git] / packages / gdcmvtk / bbs / appli / exampleGetXCoherentInfoGdcmReader.bbs

diff --git a/packages/gdcmvtk/bbs/appli/exampleGetXCoherentInfoGdcmReader.bbs b/packages/gdcmvtk/bbs/appli/exampleGetXCoherentInfoGdcmReader.bbs
index 4c312bfe23dfad225416962c0bd3981d0caa3cb5..ded983fc092f0e4fd1516620c2e536cada1c231f 100644 (file)
--- a/packages/gdcmvtk/bbs/appli/exampleGetXCoherentInfoGdcmReader.bbs
+++ b/packages/gdcmvtk/bbs/appli/exampleGetXCoherentInfoGdcmReader.bbs
@@ -1,44 +1,75 @@
+# ----------------------------------
+# - BBTKGEditor v 1.4 BBS BlackBox Script
+# - /tmpEED/creaTools2/creatools_source/bbtk/packages/gdcmvtk/bbs/appli/exampleGetXCoherentInfoGdcmReader.bbs
+# ----------------------------------
+
+# BBTK GEditor Script
+# ----------------------
+
+include std
+include itkvtk
+include std
+include wx
+include creaMaracasVisu
+include gdcmvtk
+
+author "Author ??"
+description "Description ??"
 category "example"
 
+new std:Configuration Box02
+
+new std:ConcatStrings Box03
+  set Box03.In2 "/gdcmvtk/dicom01"
+
+new wx:OutputText Box04
+  set Box04.Title "IOP"
+
+new wx:LayoutLine Box05
+
+new wx:OutputText Box06
+  set Box06.Title "IPP"
+
+new wx:OutputText Box08
+  set Box08.Title "PixelSpacing"
+
+new creaMaracasVisu:ViewerNV Box09
+
+new gdcmvtk:GetXCoherentInfoGdcmReader Box11
+
+new wx:DirectorySelector Box12
+
+new std:FilesFromDirectory Box13
+
+new wx:LayoutSplit Box14
+  set Box14.Orientation "H"
+
+
+connect Box02.DataPath Box03.In1
+
+connect Box04.Widget Box05.Widget1
 
-load gdcmvtk
-load std
-load wx
+connect Box06.Widget Box05.Widget2
 
+connect Box08.Widget Box05.Widget4
 
-//message all 9
+connect Box11.IOP Box04.In
 
-// To choose the directory
-new DirectorySelector ds
-// To get the image names into a vector
-print "avant FilesFromDirectory"
-new FilesFromDirectory fd
-print "apres FilesFromDirectory"
-   connect ds.Out fd.In 
-print "apres connect"
-// list of files as input
-print "In $ds.Out$\n
-print "Files found : $fd.Out$\n
+connect Box11.IPP Box06.In
 
+connect Box11.PixelSpacing Box08.In
 
-new GetXCoherentInfoGdcmReader reader
-//connect fd.Out  reader.FileNames
-connect fd.Out  reader.In
-exec  reader  
+connect Box03.Out Box13.In
 
-// No adaptor
-//print $reader.Out$
+connect Box11.Out Box09.In
 
-print IOP
-print $reader.IOP$
+connect Box05.Widget Box14.Widget1
 
-print IPP
-print $reader.IPP$
+connect Box09.Widget Box14.Widget2
 
-print PixelSpacing
-print $reader.PixelSpacing$
+connect Box13.Out Box11.In
 
-print InterSlice
-print $reader.InterSlice$
 
 
+# Complex input ports
+exec Box14