Module: VRTwoPaneFrame::VRTwoPaneFrameUsable

Defined in:
lib/vr/vrlayout2.rb

Instance Attribute Summary collapse

Instance Method Summary collapse

Instance Attribute Details

#_vr_twopaneframes ⇒ Object (readonly)

Returns the value of attribute _vr_twopaneframes.



155
156
157
 
# File 'lib/vr/vrlayout2.rb', line 155

def _vr_twopaneframes
  @_vr_twopaneframes
end

Instance Method Details

#_vr_twopaneframesinit ⇒ Object 



157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
 
# File 'lib/vr/vrlayout2.rb', line 157

def _vr_twopaneframesinit
  return if defined?(@_vr_twopaneframes)  # no init twice
  @_vr_twopaneframes = Array.new
  @_vr_current_tpframe=nil
  addHandler(
    WMsg::WM_LBUTTONUP,  "vrsepl2buttonup",  MSGTYPE::ARGINTSINTSINT,nil)
  addHandler(
    WMsg::WM_LBUTTONDOWN,"vrsepl2buttondown",MSGTYPE::ARGINTSINTSINT,nil)
  addHandler(
    WMsg::WM_MOUSEMOVE,  "vrsepl2mousemove",  MSGTYPE::ARGINTSINTSINT,nil)

  acceptEvents [
    WMsg::WM_LBUTTONUP,WMsg::WM_LBUTTONDOWN,WMsg::WM_MOUSEMOVE
   ]
end

#self_vrsepl2buttondown(s, x, y) ⇒ Object 



173
174
175
176
177
178
179
180
181
 
# File 'lib/vr/vrlayout2.rb', line 173

def self_vrsepl2buttondown(s,x,y)
  @_vr_twopaneframes.each do |f|
    if f.hittest(x,y)
      f.setDragCur
      f.dragstart 
      @_vr_current_tpframe=f
    end
  end
end

#self_vrsepl2buttonup(s, x, y) ⇒ Object 



183
184
185
186
187
188
 
# File 'lib/vr/vrlayout2.rb', line 183

def self_vrsepl2buttonup(s,x,y)
  @_vr_current_tpframe=nil
  @_vr_twopaneframes.each do |f|
    f.dragend
  end
end

#self_vrsepl2mousemove(s, x, y) ⇒ Object 



190
191
192
193
194
195
196
197
198
199
 
# File 'lib/vr/vrlayout2.rb', line 190

def self_vrsepl2mousemove(s,x,y)
  @_vr_twopaneframes.each do |f|
    if f.hittest(x,y)
      f.setDragCur
    end
  end
  if @_vr_current_tpframe then
    @_vr_current_tpframe.splitterDragging(x,y)
  end
end