packages/wxvtk/bbs/appli/exampleViewer2D.bbs

   1 description "Example of the box <a href=#Viewer2D>Viewer2D</a>."
   2 author "laurent.guigues@creatis.insa-lyon.fr"
   3 category "example"
   4
   5 include vtk/boxes/bbLoadHola
   6 load wxvtk
   7 load wx
   8
   9 new LoadHola image
  10 new Viewer2D viewer
  11 connect image.Out viewer.In
  12
  13 load std
  14 set viewer.WinTitle "ExampleViewer2D"
  15 set viewer.Slice 20
  16 set viewer.WinWidth 400
  17 set viewer.WinHeight 400
  18
  19 exec viewer
  20
  21
  22 #Quick and dirty fix for a known bug :
  23 new CommandButton refresh
  24    set refresh.Label "Known bug : Black image, click here to Refresh"
  25    set refresh.In "exec viewer"
  26
  27 exec refresh