Class: TkProgressframe

Inherits:
TkFloatTitledFrame show all
Defined in:
lib/a-tkcommons.rb

Constant Summary

Constants included from TkResizable

TkResizable::MIN_HEIGHT, TkResizable::MIN_WIDTH

Instance Attribute Summary collapse

Attributes inherited from TkBaseTitledFrame

#frame, #top

Instance Method Summary collapse

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 



2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
 
# File 'lib/a-tkcommons.rb', line 2045

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.titletoolbutton(@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.



2044
2045
2046
 
# File 'lib/a-tkcommons.rb', line 2044

def max
  @max
end

Instance Method Details

#on_cancel=(_proc) ⇒ Object 



2081
2082
2083
 
# File 'lib/a-tkcommons.rb', line 2081

def on_cancel=(_proc)
  @b_cancel.bind_append('1', _proc)
end

#progress(_incr = 1) ⇒ Object 



2077
2078
2079
 
# File 'lib/a-tkcommons.rb', line 2077

def progress(_incr=1)
  @progress.numeric += _incr
end

#quit ⇒ Object 



2073
2074
2075
 
# File 'lib/a-tkcommons.rb', line 2073

def quit
  #self.destroy
end