bbtk/bbs/appli/ExampleReadDICOM.bbs

   1
   2 load wx
   3 load maracasvisu
   4
   5 new ILPDwithImage  ilpdwithimage
   6
   7 new  ImageBrowserReader  imagebrowserreade
   8   connect ilpdwithimage.Type                    imagebrowserreade.Type
   9   connect ilpdwithimage.LstFileName     imagebrowserreade.LstFileName
  10
  11
  12 new LayoutSplit splitUp
  13   set splitUp.Orientation V
  14   connect imagebrowserreade.Widget      splitUp.Widget1
  15   connect ilpdwithimage.Widget                  splitUp.Widget2
  16
  17 new CommandButton commandbutton
  18   set commandbutton.Label  "Read"
  19
  20 new CommandButton viewimagebutton
  21   set viewimagebutton.Label  "View Image"
  22
  23 new LayoutLine layoutH
  24   set layoutH.Orientation H
  25   connect commandbutton.Widget          layoutH.Widget1
  26   connect viewimagebutton.Widget                layoutH.Widget2
  27
  28 new LayoutSplit mainsplit
  29   set mainsplit.Orientation V
  30   connect splitUp.Widget                                mainsplit.Widget1
  31   connect layoutH.Widget                                mainsplit.Widget2
  32
  33 new ImageChangeInformation  ici
  34 new ViewerMPR viewernv
  35   connect imagebrowserreade.Out  ici.In
  36   connect ici.Out  viewernv.In
  37
  38 connect commandbutton.BoxChange ilpdwithimage.BoxExecute
  39 connect commandbutton.BoxChange imagebrowserreade.BoxExecute
  40 connect viewimagebutton.BoxChange viewernv.BoxExecute
  41
  42 exec mainsplit