Re: Problems with Ruby/Tk TkProgressbar

From: Kenneth McDonald <[e-mail]>
Subject: Problems with Ruby/Tk TkProgressbar
Date: Thu, 4 Dec 2008 05:43:51 +0900
Message-ID: <[e-mail]>
> 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.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
-----------------------------------------------------------------
-- 
Hidetoshi NAGAI ([e-mail])