This doesn’t seem to exist, even though irb lists it in tab-completion
mode. Anyone know how to get it working?
Thanks,
Ken
This doesn’t seem to exist, even though irb lists it in tab-completion
mode. Anyone know how to get it working?
Thanks,
Ken
From: Kenneth McDonald [email protected]
Subject: Problems with Ruby/Tk TkProgressbar
Date: Thu, 4 Dec 2008 05:43:51 +0900
Message-ID: [email protected]
This doesn’t seem to exist, even though irb lists it in tab-completion
mode. Anyone know how to get it working?
TkProgressbar is a widget which is one of Ttk (Tile) widget set.
It requires Ttk (Tile) extension or Tcl/Tk8.5.x.
require ‘tk’
class MyProgressBar < TkWindow
include TkComposite
def initialize_composite(keys = {})
# defaults
bar_color = ‘gray60’
trough_color = ‘gray90’
text_color = ‘black’
reverse_color = ‘white’
font_size = -12
@width = 150
@height = 20
# create widgets
@font = TkFont.new(['Helvetica', font_size])
@var = TkVariable.new('')
@frame.configure(:borderwidth=>3, :relief=>:ridge)
@size_base = TkFrame.new(@frame, :width=>@width, :height=>@height,
:borderwidth=>0).pack(:expand=>false,
:fill=>:none)
@size_base.pack_propagate(false)
@base_label = TkLabel.new(@size_base, :textvariable=>@var,
:font=>@font,
:highlightthickness=>0, :borderwidth=>0,
:foreground=>text_color,
:background=>trough_color,
:padx=>1, :pady=>1).pack(:fill=>:both,
:expand=>true)
@prog_bar = TkFrame.new(@base_label,
:highlightthickness=>0, :borderwidth=>0
).place(:x=>0, :y=>0,
:anchor=>:nw,
:relwidth=>0.0, :relheight=>1.0)
@prog_label = TkLabel.new(@prog_bar, :textvariable=>@var,
:font=>@font,
:foreground=>reverse_color,
:background=>bar_color,
:highlightthickness=>0, :borderwidth=>0,
:padx=>1, :pady=>1).place(:x=>0, :y=>0,
:width=>@width,
:height=>@height,
:anchor=>:nw)
# for bindings
@size_base.bindtags <<= @frame
@base_label.bindtags <<= @frame
@prog_bar.bindtags <<= @frame
@prog_label.bindtags <<= @frame
# delegates
delegate('DEFAULT', @frame)
delegate('background', @prog_label)
delegate('foreground', @base_label)
delegate_alias('barcolor', 'background', @prog_label)
delegate_alias('troughcolor', 'background', @base_label)
delegate_alias('textcolor', 'foreground', @base_label)
delegate_alias('reversecolor', 'foreground', @prog_label)
delegate_alias('fontfamily', 'family', @font)
delegate_alias('fontsize', 'size', @font)
delegate_alias('fontweight', 'weight', @font)
delegate_alias('fontslant', 'slant', @font)
option_methods(:width, :height, :font)
configure(keys) unless keys.empty?
end
def set(rate, text=nil)
@prog_bar.place(:relwidth=>rate.to_f)
@var.value = text if text
end
def get
[TkPlace.current_configinfo(@prog_bar, :relwidth)[‘relwidth’],
@var.value]
end
def width(size=nil)
if size
@size_base.width = size
@prog_label.place(:width=>size)
@width = size
else
@width
end
end
def height(size=nil)
if size
@size_base.height = size
@prog_label.place(:height=>size)
@height = size
else
@height
end
end
def font(fnt=nil)
if fnt
if fnt.kind_of?(Hash)
@font.configure(fnt)
else
fnt = TkComm.simplelist(fnt) if fnt.kind_of?(String)
conf = {}
conf[‘family’] = fnt.shift if fnt[0]
conf[‘size’] = fnt.shift if fnt[0]
fnt.each{|param|
case param.to_s
when ‘normal’, ‘bold’
conf[‘weight’] = param
when ‘roman’, ‘italic’
conf[‘slant’] = param
when ‘underline’
conf[‘underine’] = true
when ‘overstrike’
conf[‘overstrike’] = true
end
}
@font.configure(conf)
end
else
@font
end
end
end
if FILE == $0
bar1 = MyProgressBar.new.pack
bar2 = MyProgressBar.new(:width=>120, :height=>30,
:barcolor=>‘blue’, :troughcolor=>‘white’,
:fontsize=>14, :fontweight=>:bold).pack
bar3 = MyProgressBar.new(:font=>‘courier 8 bold’,
:textcolor=>‘red’, :reversecolor=>‘yellow’,
:width=>250, :height=>12).pack
bar1.set(0.0, ‘0%’)
bar2.set(0.0, ‘0%’)
bar3.set(0.0, ‘0%’)
bar1.bind(‘1’){p bar1.get}
timer = TkTimer.new(50, 100){|timerobj|
cnt = timerobj.return_value + 1
bar1.set(cnt/100.0, “#{cnt}%”)
bar2.set(cnt/100.0, “#{cnt}%”)
bar3.set(cnt/100.0, “#{cnt}%”)
cnt
}
b = TkButton.new(:text=>‘restart’, :command=>proc{
bar1.set(0.0, ‘0%’)
bar2.set(0.0, ‘0%’)
bar3.set(0.0, ‘0%’)
timer.restart{0}
}).pack
b.invoke
Tk.mainloop
end
This forum is not affiliated to the Ruby language, Ruby on Rails framework, nor any Ruby applications discussed here.
Sponsor our Newsletter | Privacy Policy | Terms of Service | Remote Ruby Jobs