Class: AGTkFramePlaceManager

Inherits:

Object

• Object
• AGTkFramePlaceManager

Defined in:

ext/ae-rad/lib/tk/al-tk.rb

Instance Attribute Summary

• #main_frame ⇒ Object readonly

  Returns the value of attribute main_frame.

Instance Method Summary

• #[](_name) ⇒ Object
• #add(_name, _frame = TkFrame.new(@main_frame), _ndim = -1,, _splitter = false, _side = 'x') ⇒ Object
• #do_resize(_name_splitter) ⇒ Object
• #frame(_name) ⇒ Object
• #hide(_name) ⇒ Object
• #initialize(_main_frame = nil) {|_self| ... } ⇒ AGTkFramePlaceManager constructor

  A new instance of AGTkFramePlaceManager.

• #show(_name) ⇒ Object

Constructor Details

#initialize(_main_frame = nil) {|_self| ... } ⇒ AGTkFramePlaceManager

Returns a new instance of AGTkFramePlaceManager.

Yields:

• (_self)

Yield Parameters:

• _self (AGTkFramePlaceManager) —

  the object that the method was called on

# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1444

def initialize(_main_frame = nil)
  @main_frame = _main_frame
  @frames = Hash.new
  @frames_seq = Array.new

  @frames_left = Hash.new
  @frames_right = Hash.new
  @frames_top = Hash.new
  @frames_bottom = Hash.new

  @Info = Struct.new("Info", :obj, :splitter, :side, :objp, :visible)
  @motion = false
  @nx= 0
  yield(self) if block_given?
end

Instance Attribute Details

#main_frame ⇒ Object (readonly)

Returns the value of attribute main_frame.

# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1442

def main_frame
  @main_frame
end

Instance Method Details

#[](_name) ⇒ Object

# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1580

def [](_name)
  @frames[_name].obj
end

#add(_name, _frame = TkFrame.new(@main_frame), _ndim = -1,, _splitter = false, _side = 'x') ⇒ Object

# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1460

def add(_name, _frame=TkFrame.new(@main_frame), _ndim=-1, _splitter=false, _side='x' )
  if _frame == nil
    _frame=TkFrame.new(@main_frame)
  end
  case _side
  when 'x'
    @frames_right.each_value{|value|
      value << _name
    }
    if @frames_right[_name]==nil
      @frames_right[_name] = Array.new
    end
  when 'y'
    @frames_bottom.each_value{|value|
      value << _name
    }
  end
  case _side
  when 'x'
    @frames_left[_name]= Array.new
    @frames_seq.each{|item|
      @frames_left[_name] << item
    }
    (_ndim>0)?(_rw=0):_rw=1
    _frame.place(
    'relwidth' => _rw,
    'relx' => 0,
    'x' => @nx,
    'y' => '0',
    'relheight' => '1',
    'rely' => 0,
    'height' => 1,
    'bordermode' => 'inside',
    'width' => _ndim
    )
    if _splitter
      _xbutton = TkButton.new(@main_frame){
        text  '<'
        overrelief  'ridge'
        relief  'groove'
      }
      _xbutton.place(
      'x' => @nx - 20,
      'y' => 0,
      'height' => 20,
      'bordermode' => 'outside',
      'width' => 20
      )
      _xbutton.bind_append(
      "ButtonPress-1",
      proc{
        @frames[@frames_left[_name][0]].objp.obj.unplace
        @frames[_name].objp.amove(1,0)
        do_resize(_name)
        _xbutton.place('x'=>0)
        _xbutton.raise
        if _xbutton.cget('text') == '<'
          _xbutton.configure('text'=>'>')
        else
          _xbutton.configure('text'=>'<')
        end
      }
      )
      if @motion
        _frame.bind_append(
        "B1-Motion",
        proc{do_resize(_name)}
        )
      else
        _frame.bind_append(
        "B1-Motion",
        proc{_frame.raise}
        )
      end
      _frame.bind_append(
      "ButtonRelease-1",
      proc{do_resize(_name)}
      )
    end

    @nx = @nx + _ndim if _ndim > 0

  when 'y'
    @frames_top[_name]= Array.new
    @frames_bottom[_name]= Array.new
    @frames_seq.each{|item|
      @frames_top[_name] << item
    }
  end
  @frames[_name] = @Info.new(
    _frame,
    _splitter,
    _side,
    AGTkObjPlace.new(_frame, _side),
    true
  )
  @frames_seq << _name
  return _frame
end

#do_resize(_name_splitter) ⇒ Object

# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1560

def do_resize (_name_splitter)
  case @frames[_name_splitter].side
  when 'x'
    _x = @frames[_name_splitter].objp.x0
    if (_x > 0)&&(@frames_left.length > 0)
      _w = @frames[_name_splitter].objp.w
      _index = @frames_left[_name_splitter].length - 1
      if (@frames_left.length == 1)||(_x > @frames[@frames_left[_name_splitter][_index]].objp.x0)
        @frames[@frames_left[_name_splitter][_index]].objp.go(_x,0)
      end
      _gap = _w
      @frames_right[_name_splitter].each{|i|
        @frames[i].objp.amove(_x + _gap,0)
        _gap = _gap + @frames[i].objp.w
      }
    end
  when 'y'
  end
end

#frame(_name) ⇒ Object

# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1584

def frame(_name)
  @frames[_name].obj
end

#hide(_name) ⇒ Object

# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1588

def hide(_name)
  _w = @frames[_name].objp.w
  @frames[_name].obj.unplace
  @frames[_name].visible = false
  @frames_right[_name].each{|i|
    @frames[i].objp.move(-_w,0) if @frames[i].visible
  }
end

#show(_name) ⇒ Object

# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1596

def show(_name)
  _x = @frames[_name].objp.x0
  _w = @frames[_name].objp.w0
  @frames[_name].obj.place(
  'x' => _x,
  'relheight' => '1',
  'width' => _w
  )
  @frames[_name].visible = true
  _x = _x + _w
  @frames_right[_name].each{|i|
    if @frames[i].visible
      @frames[i].obj.place('x' =>_x)
      _x = _x + @frames[i].objp.w
    end
  }
end