Class: VRStdControl

Inherits:
VRControl show all
Defined in:
lib/vr/vrcontrol.rb

Overview

Standard Control

Direct Known Subclasses

VRButton, VRCombobox, VREdit, VRGroupbox, VRListbox, VRStatic

Constant Summary

Constants inherited from VRControl

VRControl::WINCLASSINFO

Instance Attribute Summary

Attributes inherited from VRControl

#handlers, #name, #parent

Attributes inherited from VRWinComponent

#parent, #screen

Instance Method Summary collapse

Methods inherited from VRControl

Controltype, #add_parentcall, #call_parenthandler, #create, #setFont

Methods inherited from VRWinComponent

#_init, #create, #exwinstyle, #hide, #maximizebox, #maximizebox=, #minimizebox, #minimizebox=, #setscreen, #sizebox, #sizebox=, #tabstop, #tabstop=, #vrinit, #winstyle

Instance Method Details

#_vr_cmdhandlers ⇒ Object 



124
125
126
127
128
129
130
 
# File 'lib/vr/vrcontrol.rb', line 124

def _vr_cmdhandlers
  unless defined?(@_vr_cmdhandlers)
    @_vr_cmdhandlers={} 
  else
    @_vr_cmdhandlers
  end
end

#addCommandHandler(msg, handlername, handlertype, argparsestr) ⇒ Object 



132
133
134
135
136
 
# File 'lib/vr/vrcontrol.rb', line 132

def addCommandHandler(msg,handlername,handlertype,argparsestr)
  @_vr_cmdhandlers={} unless defined?(@_vr_cmdhandlers)
  @_vr_cmdhandlers[msg]=[] unless _vr_cmdhandlers[msg]
  @_vr_cmdhandlers[msg].push [handlername,handlertype,argparsestr]
end

#deleteCommandHandler(msg, handlername) ⇒ Object 



138
139
140
141
142
143
 
# File 'lib/vr/vrcontrol.rb', line 138

def deleteCommandHandler(msg,handlername)
  return false unless @_vr_cmdhandlers[msg]
  @_vr_cmdhandlers.delete_if do |shandler|
    shandler[0] != (PREHANDLERSTR+handlername).intern
  end
end