The bbtk folder with the maracasvisu bbtk package was added to the creaMaracasVisu...

[creaMaracasVisu.git] / bbtk / bbs / appli / ExampleReadDICOM.bbs

diff --git a/bbtk/bbs/appli/ExampleReadDICOM.bbs b/bbtk/bbs/appli/ExampleReadDICOM.bbs
new file mode 100644 (file)
index 0000000..16e1c6e
--- /dev/null
+++ b/bbtk/bbs/appli/ExampleReadDICOM.bbs
@@ -0,0 +1,42 @@
+
+load wx
+load maracasvisu
+
+new ILPDwithImage  ilpdwithimage
+
+new  ImageBrowserReader  imagebrowserreade
+  connect ilpdwithimage.Type                   imagebrowserreade.Type
+  connect ilpdwithimage.LstFileName    imagebrowserreade.LstFileName
+
+
+new LayoutSplit splitUp
+  set splitUp.Orientation V
+  connect imagebrowserreade.Widget     splitUp.Widget1
+  connect ilpdwithimage.Widget                 splitUp.Widget2
+
+new CommandButton commandbutton
+  set commandbutton.Label  "Read"
+
+new CommandButton viewimagebutton
+  set viewimagebutton.Label  "View Image"
+
+new LayoutLine layoutH
+  set layoutH.Orientation H
+  connect commandbutton.Widget         layoutH.Widget1
+  connect viewimagebutton.Widget               layoutH.Widget2
+
+new LayoutSplit mainsplit
+  set mainsplit.Orientation V
+  connect splitUp.Widget                               mainsplit.Widget1
+  connect layoutH.Widget                               mainsplit.Widget2
+
+new ImageChangeInformation  ici
+new ViewerMPR viewernv
+  connect imagebrowserreade.Out  ici.In
+  connect ici.Out  viewernv.In
+
+connect commandbutton.BoxChange ilpdwithimage.BoxExecute
+connect commandbutton.BoxChange imagebrowserreade.BoxExecute
+connect viewimagebutton.BoxChange viewernv.BoxExecute
+
+exec mainsplit