Problems with Ruby/Tk TkProgressbar

[Kenneth McDonald]

This doesn't seem to exist, even though irb lists it in tab-completion
mode. Anyone know how to get it working?

Thanks,
Ken

 

[Hidetoshi NAGAI]

From: Kenneth McDonald <[email protected]>
Subject: Problems with Ruby/Tk TkProgressbar
Date: Thu, 4 Dec 2008 05:43:51 +0900

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.

# Tcl/Tk8.5 has Ttk widget set as default.

If you don't have Ttk, the following example may be help you.
It is also an example of TkComposite module.
-----------------------------------------------------------------
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.configureborderwidth=>3, :relief=>:ridge)

@size_base = TkFrame.new(@frame, :width=>@width, :height=>@height,
:borderwidth=>0).packexpand=>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,
adx=>1, ady=>1).packfill=>:both,
:expand=>true)
@prog_bar = TkFrame.new(@base_label,
:highlightthickness=>0, :borderwidth=>0
).placex=>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,
adx=>1, ady=>1).placex=>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_methodswidth, :height, :font)

configure(keys) unless keys.empty?
end

def set(rate, text=nil)
@prog_bar.placerelwidth=>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.placewidth=>size)
@width = size
else
@width
end
end

def height(size=nil)
if size
@size_base.height = size
@prog_label.placeheight=>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.newwidth=>120, :height=>30,
:barcolor=>'blue', :troughcolor=>'white',
:fontsize=>14, :fontweight=>:bold).pack
bar3 = MyProgressBar.newfont=>'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.newtext=>'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