Module: Tk::XScrollable

Included in:
BLT::Tabset, Scrollable
Defined in:
ext/lib/tk/scrollable.rb

Instance Method Summary collapse

Instance Method Details

#xscrollbar(bar = nil) ⇒ Object



29
30
31
32
33
34
35
36
37
38
# File 'ext/lib/tk/scrollable.rb', line 29

def xscrollbar(bar=nil)
  if bar
    @xscrollbar = bar
    @xscrollbar.orient 'horizontal'
    self.xscrollcommand {|*arg| @xscrollbar.set(*arg)}
    @xscrollbar.command {|*arg| self.xview(*arg)}
    Tk.update  # avoid scrollbar trouble
  end
  @xscrollbar
end

#xscrollcommand(cmd = Proc.new) ⇒ Object



8
9
10
11
12
# File 'ext/lib/tk/scrollable.rb', line 8

def xscrollcommand(cmd=Proc.new)
  configure_cmd 'xscrollcommand', cmd
  # Tk.update  # avoid scrollbar trouble
  self
end

#xview(*index) ⇒ Object



14
15
16
17
18
19
20
21
# File 'ext/lib/tk/scrollable.rb', line 14

def xview(*index)
  if index.size == 0
    list(tk_send_without_enc('xview'))
  else
    tk_send_without_enc('xview', *index)
    self
  end
end

#xview_moveto(*index) ⇒ Object



22
23
24
# File 'ext/lib/tk/scrollable.rb', line 22

def xview_moveto(*index)
  xview('moveto', *index)
end

#xview_scroll(*index) ⇒ Object



25
26
27
# File 'ext/lib/tk/scrollable.rb', line 25

def xview_scroll(*index)
  xview('scroll', *index)
end