X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=bbtk%2Fbbs%2Fappli%2FExampleReadDICOM.bbs;fp=bbtk%2Fbbs%2Fappli%2FExampleReadDICOM.bbs;h=16e1c6e391581d920d05a8c9832370d6601e6bd0;hb=44e4be7013ea566bd2bdefb9d48e1da0071c3d91;hp=0000000000000000000000000000000000000000;hpb=0db30daeff1ddf74d39313a91fce7e475bba62e4;p=creaMaracasVisu.git

diff --git a/bbtk/bbs/appli/ExampleReadDICOM.bbs b/bbtk/bbs/appli/ExampleReadDICOM.bbs
new file mode 100644
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