Gtk/Winston Performance

perf.jl

using Gtk.ShortNames, Gtk.GConstants
using Winston

function PerformanceTestApp()
  I = zeros(1024,1024)
  
  vbox = @Box(:v)
  
  slSlicePos = @Scale(false, 1:1024)
  adjSlicePos = @Adjustment(slSlicePos)
  push!(vbox,slSlicePos)
  G_.value(slSlicePos, 1)
  
  c = @Canvas()  
  push!(vbox, c)
  setproperty!(vbox, :expand, c, true)  
  
  inUpdateImage = false
  function updateImage( widget=nothing )
    if !inUpdateImage 
      inUpdateImage = true
      
      I[:] = 0.0
      I[:, int( G_.value(adjSlicePos) )  ] = 1.0
      
      p = imagesc( I )
      display(c,p)      
      
      inUpdateImage = false
    end
  end  
  
  signal_connect(updateImage, adjSlicePos, "value_changed")
  

  win = @Window(vbox, "Canvas")
  showall(win)   
  
end