mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
edc03a2912
class, are changed to 'private' git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5152 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
106 lines
2.9 KiB
Ruby
106 lines
2.9 KiB
Ruby
#
|
|
# tktextframe.rb : a sample of TkComposite
|
|
#
|
|
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
|
|
#
|
|
require 'tk'
|
|
|
|
class TkTextFrame < TkText
|
|
include TkComposite
|
|
|
|
def initialize_composite(keys={})
|
|
keys = _symbolkey2str(keys)
|
|
|
|
# create scrollbars
|
|
@v_scroll = TkScrollbar.new(@frame, 'orient'=>'vertical')
|
|
@h_scroll = TkScrollbar.new(@frame, 'orient'=>'horizontal')
|
|
|
|
# create a text widget
|
|
@text = TkText.new(@frame, 'wrap'=>'none')
|
|
|
|
# set default receiver of method calls
|
|
@path = @text.path
|
|
|
|
# assign scrollbars
|
|
@text.xscrollbar(@h_scroll)
|
|
@text.yscrollbar(@v_scroll)
|
|
|
|
# allignment
|
|
TkGrid.rowconfigure(@frame, 0, 'weight'=>1, 'minsize'=>0)
|
|
TkGrid.columnconfigure(@frame, 0, 'weight'=>1, 'minsize'=>0)
|
|
@text.grid('row'=>0, 'column'=>0, 'sticky'=>'news')
|
|
|
|
# scrollbars ON
|
|
vscroll(keys.delete('vscroll'){true})
|
|
hscroll(keys.delete('hscroll'){true})
|
|
|
|
# set background of the text widget
|
|
color = keys.delete('textbackground')
|
|
textbackground(color) if color
|
|
|
|
# set receiver widgets for configure methods
|
|
delegate('DEFAULT', @text)
|
|
delegate('background', @frame, @h_scroll, @v_scroll)
|
|
delegate('activebackground', @h_scroll, @v_scroll)
|
|
delegate('troughcolor', @h_scroll, @v_scroll)
|
|
delegate('repeatdelay', @h_scroll, @v_scroll)
|
|
delegate('repeatinterval', @h_scroll, @v_scroll)
|
|
delegate('borderwidth', @frame)
|
|
delegate('relief', @frame)
|
|
|
|
# do configure
|
|
configure keys unless keys.empty?
|
|
end
|
|
private :initialize_composite
|
|
|
|
# set background color of text widget
|
|
def textbackground(color = nil)
|
|
if color
|
|
@text.background(color)
|
|
else
|
|
@text.background
|
|
end
|
|
end
|
|
|
|
# vertical scrollbar : ON/OFF
|
|
def vscroll(mode)
|
|
st = TkGrid.info(@v_scroll)
|
|
if mode && st == [] then
|
|
@v_scroll.grid('row'=>0, 'column'=>1, 'sticky'=>'ns')
|
|
elsif !mode && st != [] then
|
|
@v_scroll.ungrid
|
|
end
|
|
self
|
|
end
|
|
|
|
# horizontal scrollbar : ON/OFF
|
|
def hscroll(mode, wrap_mode="char")
|
|
st = TkGrid.info(@h_scroll)
|
|
if mode && st == [] then
|
|
@h_scroll.grid('row'=>1, 'column'=>0, 'sticky'=>'ew')
|
|
wrap 'none' # => self.wrap('none')
|
|
elsif !mode && st != [] then
|
|
@h_scroll.ungrid
|
|
wrap wrap_mode # => self.wrap(wrap_mode)
|
|
end
|
|
self
|
|
end
|
|
end
|
|
|
|
|
|
################################################
|
|
# test
|
|
################################################
|
|
if __FILE__ == $0
|
|
f = TkFrame.new.pack('fill'=>'x')
|
|
t = TkTextFrame.new.pack
|
|
TkButton.new(f, 'text'=>'vscr OFF',
|
|
'command'=>proc{t.vscroll(false)}).pack('side'=>'right')
|
|
TkButton.new(f, 'text'=>'vscr ON',
|
|
'command'=>proc{t.vscroll(true)}).pack('side'=>'right')
|
|
TkButton.new(f, 'text'=>'hscr ON',
|
|
'command'=>proc{t.hscroll(true)}).pack('side'=>'left')
|
|
TkButton.new(f, 'text'=>'hscr OFF',
|
|
'command'=>proc{t.hscroll(false)}).pack('side'=>'left')
|
|
Tk.mainloop
|
|
end
|