Method: Tk::ScrollFrame#do_yscrollcommand

Defined in:

lib/a-tkcommons.rb

#do_yscrollcommand(first, last) ⇒ Object

# File 'lib/a-tkcommons.rb', line 964

def do_yscrollcommand(first,last)
  if first != nil && last != nil
    delta = last.to_f - first.to_f
    if delta != @last_y_delta
      if delta < 1 && delta > 0 && last != @last_y_last
        vscroll(true)
      begin
        @v_scroll.set(first,last) if TkWinfo.mapped?(@v_scroll)
      rescue Exception => e
        Arcadia.runtime_error(e)
      end
      elsif delta == 1 || delta == 0
        vscroll(false)
      end
    end
    @last_y_last = last if last.to_f < 1
    @last_y_delta = delta
  end    
end