[Ruby/Tk example] Feedback [incr Widget]

  • Thread starter Morton Goldberg
  • Start date
M

Morton Goldberg

Puts up a window containing a progress bar and a button. Clicking on
the button, hides the button and starts showing progress in the
progress bar. When the progress bar has filled, the button returns
and the whole thing can be repeated until you're bored out of your
mind :)

<code>
#! /usr/bin/ruby -w
# Author: Morton Goldberg
#
# Date: August 31, 2006
#
# Progress Indicator

require 'tk'
require 'tkextlib/iwidgets'

DEBUG = []

begin
root = TkRoot.new {title 'Ruby/Tk Progress Indicator'}

fb = Tk::Iwidgets::Feedback.new(root) {
steps 20
labeltext "Click the Button"
barcolor 'red'
barheight 20
troughcolor 'gray90'
}
fb.component_widget('trough').
configure('relief'=>'ridge', 'borderwidth'=>4)
fb.component_widget('bar').
configure('relief'=>'sunken', 'borderwidth'=>4)
fb.pack('fill'=>'x', 'padx'=>15, 'pady'=>10)
btn = TkButton.new(root) {
text "Do Something"
command {btn.action}
}
btn.pack('pady'=>10)
btn.instance_variable_set:)@fb, fb)
def btn.action
unpack
default = @fb.labeltext
@fb.labeltext = "Doing Something ..."
([email protected]).each do |i|
@fb.step
sleep(0.2)
end
@fb.labeltext = default
@fb.reset
pack('pady'=>10)
end

# Set initial window geometry; i.e., size and placement.
win_w, win_h = 300, 160
# root.minsize(win_w, win_h)
win_l = (TkWinfo.screenwidth('.') - win_w) / 2
root.geometry("#{win_w}x#{win_h}+#{win_l}+50")

# Set resize permissions.
# root.resizable(true, true)
root.resizable(false, false)

# Make Cmnd+Q work as expected.
# root.bind('Command-q') {
# DEBUG << TkWinfo.geometry('.')
# Tk.root.destroy
# }
root.bind('Command-q') {Tk.root.destroy}

Tk.mainloop
ensure
puts DEBUG unless DEBUG.empty?
end
</code>

Regards, Morton
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

Forum statistics

Threads
473,744
Messages
2,569,479
Members
44,899
Latest member
RodneyMcAu

Latest Threads

Top