packages/gdcmvtk/bbs/appli/exampleGetInfoGdcmReader.bbs

   1 category "example"
   2
   3
   4 load gdcmvtk
   5 load std
   6 load wx
   7
   8
   9 //message all 9
  10
  11 new FileSelector openFileDialog
  12 new GetInfoGdcmReader readerginf
  13    connect openFileDialog.Out readerginf.In
  14 exec  readerginf
  15
  16 // No adaptor
  17 //print $readerginf.Out$
  18
  19 print IOP
  20 print $readerginf.IOP$
  21
  22 print IPP
  23 print $readerginf.IPP$
  24
  25 print PixelSpacing
  26 print $readerginf.PixelSpacing$
  27
  28 print InterSlice
  29 print $readerginf.InterSlice$
  30
  31