Forum: Ruby Problems with Ruby/Tk TkProgressbar

Announcement (2017-05-07): www.ruby-forum.com is now read-only since I unfortunately do not have the time to support and maintain the forum any more. Please see rubyonrails.org/community and ruby-lang.org/en/community for other Rails- und Ruby-related community platforms.
Kenneth McDonald (Guest)
on 2008-12-03 22:49
(Received via mailing list)
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 (Guest)
on 2008-12-03 23:35
(Received via mailing list)
From: Kenneth McDonald <removed_email_address@domain.invalid>
Subject: Problems with Ruby/Tk TkProgressbar
Date: Thu, 4 Dec 2008 05:43:51 +0900
Message-ID: <removed_email_address@domain.invalid>
> 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
This topic is locked and can not be replied to.