+# ----------------------------------
+# - 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
+# Complex input ports
+exec Box14