Class: TkProgressframe
- Inherits:
-
TkFloatTitledFrame
- Object
- TkFrame
- TkBaseTitledFrame
- TkFloatTitledFrame
- TkProgressframe
- Defined in:
- lib/a-tkcommons.rb
Constant Summary
Constants included from TkResizable
TkResizable::MIN_HEIGHT, TkResizable::MIN_WIDTH
Instance Attribute Summary collapse
-
#max ⇒ Object
Returns the value of attribute max.
Attributes inherited from TkBaseTitledFrame
Instance Method Summary collapse
-
#initialize(parent = nil, _max = 100, *args) ⇒ TkProgressframe
constructor
A new instance of TkProgressframe.
- #on_cancel=(_proc) ⇒ Object
- #progress(_incr = 1) ⇒ Object
- #quit ⇒ Object
Methods inherited from TkFloatTitledFrame
#head_buttons, #hide, #hide_if_visible, #on_arcadia, #on_close=, #show, #show_grabbed, #title
Methods included from TkResizable
#resizing_do_move_obj, #resizing_do_press, #start_resizing, #stop_resizing
Methods included from TkMovable
#moving_do_move_obj, #moving_do_press, #start_moving, #stop_moving
Methods inherited from TkBaseTitledFrame
#add_fixed_button, #add_fixed_menu_button, #add_fixed_panel, #add_fixed_progress, #add_fixed_sep, #create_frame, #head_buttons, #menu_button, #visible?
Constructor Details
#initialize(parent = nil, _max = 100, *args) ⇒ TkProgressframe
Returns a new instance of TkProgressframe.
1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 |
# File 'lib/a-tkcommons.rb', line 1769 def initialize(parent=nil, _max=100, *args) super(parent) _max=1 if _max<=0 @max = _max @progress = TkVariable.new @progress.value = -1 Tk::BWidget::ProgressBar.new(self, :width=>150, :height=>10, :background=>'red', :foreground=>'blue', :variable=>@progress, :borderwidth=>0, :relief=>'flat', :maximum=>_max).place('width' => '150','x' => 25,'y' => 30,'height' => 15) @buttons_frame = TkFrame.new(self, Arcadia.style('panel')).pack('fill'=>'x', 'side'=>'bottom') #@b_cancel = TkButton.new(@buttons_frame, Arcadia.style('button')){|_b_go| @b_cancel = Arcadia.wf.(@buttons_frame){|_b_go| default 'disabled' text 'Cancel' overrelief 'raised' justify 'center' pack('side'=>'top','ipadx'=>5, 'padx'=>5) } place('x'=>100,'y'=>100,'height'=> 120,'width'=> 200) end |
Instance Attribute Details
#max ⇒ Object
Returns the value of attribute max.
1768 1769 1770 |
# File 'lib/a-tkcommons.rb', line 1768 def max @max end |
Instance Method Details
#on_cancel=(_proc) ⇒ Object
1805 1806 1807 |
# File 'lib/a-tkcommons.rb', line 1805 def on_cancel=(_proc) @b_cancel.bind_append('1', _proc) end |
#progress(_incr = 1) ⇒ Object
1801 1802 1803 |
# File 'lib/a-tkcommons.rb', line 1801 def progress(_incr=1) @progress.numeric += _incr end |
#quit ⇒ Object
1797 1798 1799 |
# File 'lib/a-tkcommons.rb', line 1797 def quit #self.destroy end |