Module Tk::Y_Scrollable

# File ext/tk/lib/tk/scrollable.rb, line 63
def yscrollbar(bar=nil)
  if bar
    @yscrollbar = bar
    @yscrollbar.orient 'vertical'
    self.yscrollcommand {|*arg| @yscrollbar.set(*arg)}
    @yscrollbar.command {|*arg| self.yview(*arg)}
    Tk.update  # avoid scrollbar trouble
  end
  @yscrollbar
end

# File ext/tk/lib/tk/scrollable.rb, line 42
def yscrollcommand(cmd=Proc.new)
  configure_cmd 'yscrollcommand', cmd
  # Tk.update  # avoid scrollbar trouble
  self
end

# File ext/tk/lib/tk/scrollable.rb, line 48
def yview(*index)
  if index.size == 0
    list(tk_send_without_enc('yview'))
  else
    tk_send_without_enc('yview', *index)
    self
  end
end

# File ext/tk/lib/tk/scrollable.rb, line 56
def yview_moveto(*index)
  yview('moveto', *index)
end

# File ext/tk/lib/tk/scrollable.rb, line 59
def yview_scroll(*index)
  yview('scroll', *index)
end