Class: InnerFrameInspectMultiList

Inherits:
TkFrame
  • Object
show all
Defined in:
ext/ae-rad/ae-rad-inspector.rb

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(_parent, _index, _contr = nil) ⇒ InnerFrameInspectMultiList

Returns a new instance of InnerFrameInspectMultiList.



665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
 
# File 'ext/ae-rad/ae-rad-inspector.rb', line 665

def initialize(_parent, _index,_contr=nil)
  super(_parent, Arcadia.style('panel'))
  @index = _index
  #borderwidth  2
  #relief  'groove'
  pack('side' => 'top',
  'anchor' => 'n',
  'expand' => 0,
  'ipady' => 40,
  'fill' => 'x')
  _self = self
  bind('Enter', proc{ _contr.set_current(_index)})
  @lTitle = TkLabel.new(self, Arcadia.style('titlelabel')){
    text  '...'
    #background  '#494949'
    place('relwidth' => '1',
    'x' => 0,
    'y' => 0,
    'height' => 19)

    @tkButtonX = TkButton.new(self, Arcadia.style('button')){
      text  'X'
      pack('side' => 'top',
      'anchor' => 'e')
      bind('ButtonPress-1',proc{_contr.del_event(_self, _index)})
    }
    class << self
      attr_reader :tkButton2
    end
  }

  @tkFrameHost = TkFrame.new(self, Arcadia.style('panel')){
    borderwidth  2
    #relief  'groove'
    place('relwidth' => '1',
    'x' => 0,
    'y' => 19,
    'relheight' => '1',
    'height' => -19)
  }
end

Instance Attribute Details

#index ⇒ Object (readonly)

Returns the value of attribute index.



664
665
666
 
# File 'ext/ae-rad/ae-rad-inspector.rb', line 664

def index
  @index
end

#lTitle ⇒ Object (readonly)

Returns the value of attribute lTitle.



662
663
664
 
# File 'ext/ae-rad/ae-rad-inspector.rb', line 662

def lTitle
  @lTitle
end

#tkFrameHost ⇒ Object (readonly)

Returns the value of attribute tkFrameHost.



663
664
665
 
# File 'ext/ae-rad/ae-rad-inspector.rb', line 663

def tkFrameHost
  @tkFrameHost
end