Module: Tk::XScrollable

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

Instance Method Summary collapse

Instance Method Details

#xscrollbar(bar = nil) ⇒ Object 



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

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 



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

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

#xview(*index) ⇒ Object 



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

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 



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

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

#xview_scroll(*index) ⇒ Object 



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

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