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_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_sep, #create_frame, #head_buttons, #menu_button, #visible?
Constructor Details
#initialize(parent = nil, _max = 100, *args) ⇒ TkProgressframe
Returns a new instance of TkProgressframe.
1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 |
# File 'lib/a-tkcommons.rb', line 1488 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| 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.
1487 1488 1489 |
# File 'lib/a-tkcommons.rb', line 1487 def max @max end |
Instance Method Details
#on_cancel=(_proc) ⇒ Object
1523 1524 1525 |
# File 'lib/a-tkcommons.rb', line 1523 def on_cancel=(_proc) @b_cancel.bind_append('1', _proc) end |
#progress(_incr = 1) ⇒ Object
1519 1520 1521 |
# File 'lib/a-tkcommons.rb', line 1519 def progress(_incr=1) @progress.numeric += _incr end |
#quit ⇒ Object
1515 1516 1517 |
# File 'lib/a-tkcommons.rb', line 1515 def quit #self.destroy end |