packages/gdcmvtk/bbs/appli/exGetInfoGdcmReader.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 print Avant_new_GetInfoGdcmReader
  13 new GetInfoGdcmReader readerginf
  14 print Apres_new_GetInfoGdcmReader
  15    connect openFileDialog.Out readerginf.In
  16 exec  readerginf
  17
  18 // No adaptor
  19 //print $readerginf.Out$