+# ----------------------------------
+# - BBTKGEditor v 1.4 BBS BlackBox Script
+# - /tmpEED/creaTools2/creatools_source/bbtk/packages/gdcmvtk/bbs/appli/exampleGetInfoGdcmReader.bbs
+# ----------------------------------
+
+# BBTK GEditor Script
+# ----------------------
+
+include std
+include itkvtk
+include wx
+include gdcmvtk
+include std
+include creaMaracasVisu
+
+author "Author ??"
+description "Description ??"
category "example"
+new wx:FileSelector openFileDialog
+
+new gdcmvtk:GetInfoGdcmReader readerginf
+
+new std:Configuration Box02
+
+new std:ConcatStrings Box03
+ set Box03.In2 "/gdcmvtk/dicom01/466"
+
+new wx:OutputText Box04
+ set Box04.Title "IOP"
+
+new wx:LayoutLine Box05
+
+new wx:OutputText Box06
+ set Box06.Title "IPP"
+
+new wx:OutputText Box07
+ set Box07.Title "InterSlice"
+
+new wx:OutputText Box08
+ set Box08.Title "PixelSpacing"
+
+new creaMaracasVisu:ViewerNV Box09
+ set Box09.nTypeView "0"
+
+new wx:LayoutSplit Box11
+ set Box11.Orientation "H"
+
+
+connect Box02.DataPath Box03.In1
+
+connect Box03.Out readerginf.In
+
+connect readerginf.IOP Box04.In
+
+connect Box04.Widget Box05.Widget1
+
+connect readerginf.IPP Box06.In
+
+connect Box06.Widget Box05.Widget2
-load gdcmvtk
-load std
-load wx
+connect readerginf.InterSlice Box07.In
+connect Box07.Widget Box05.Widget3
-message All 9
+connect readerginf.PixelSpacing Box08.In
-new FileSelector openFileDialog
-print Avant_new_GetInfoGdcmReader
-new GetInfoGdcmReader readerginf
-print Apres_new_GetInfoGdcmReader
- connect openFileDialog.Out readerginf.In
-exec readerginf
-
-// No adaptor
-//print $readerginf.Out$
+connect Box08.Widget Box05.Widget4
-print IOP
-print $readerginf.IOP$
+connect readerginf.Out Box09.In
-print IPP
-print $readerginf.IPP$
+connect Box05.Widget Box11.Widget1
-print PixelSpacing
-print $readerginf.PixelSpacing$
+connect Box09.Widget Box11.Widget2
-print InterSlice
-print $readerginf.InterSlice$
+# Complex input ports
+exec Box11