Class: VRForm

Inherits:
VRWinComponent show all
Includes:
VRCommonDialog, VRMessageHandler, VRParent
Defined in:
lib/vr/vruby.rb,
lib/vr/vrtooltip.rb

Constant Summary collapse

VR_WINCLASS = 
nil

Constants included from VRCommonDialog

VRCommonDialog::DEFAULTFONT

Constants included from VRParent

VRParent::DEFAULT_FONT, VRParent::VR_ADDCONTROL_FEWARGS

Constants included from VRMessageHandler

VRMessageHandler::PREHANDLERSTR

Instance Attribute Summary collapse

Attributes included from VRParent

#screen

Attributes inherited from VRWinComponent

#parent, #screen

Class Method Summary collapse

Instance Method Summary collapse

Methods included from VRCommonDialog

#chooseColorDialog, #chooseFontDialog, #openFilenameDialog, #saveFilenameDialog, #selectDirectory

Methods included from VRParent

#addArrayedControl, #addControl, #clearControls, #construct, #countControls, #create, #createControl, #deleteControl, #newControlID, #parentinit, #registerControl, #registerControlAsArrayed, #self_created, #send_parent

Methods included from VRMessageHandler

#acceptEvents, #addHandler, #addNoRelayMessages, #controlmsg_dispatching, #deleteHandler, #msghandlerinit, #selfmsg_dispatching, #vrinit

Methods inherited from VRWinComponent

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

Instance Attribute Details

#handlers ⇒ Object (readonly)

VRForm

This class is for top-level window and have the features of ((<VRMessageHandler>)), ((<VRParent>)) and ((<VRCommonDialog>))

Method

— create

Creates the window.



728
729
730
 
# File 'lib/vr/vruby.rb', line 728

def handlers
  @handlers
end

#tooltip ⇒ Object (readonly)

Returns the value of attribute tooltip.



264
265
266
 
# File 'lib/vr/vrtooltip.rb', line 264

def tooltip
  @tooltip
end

Class Method Details

.winclass ⇒ Object 



731
 
# File 'lib/vr/vruby.rb', line 731

def self.winclass() nil end

Instance Method Details

#createTooltip ⇒ Object 



265
266
267
268
269
270
271
272
 
# File 'lib/vr/vrtooltip.rb', line 265

def createTooltip
  return tooltip if defined?(@tooltip) && @tooltip
  @tooltip = @screen.factory.newwindow(self,VRTooltip)
  @tooltip.setparam self,@screen
  @tooltip.create
  @tooltip.etc =  newControlID # error occurs if this line is before creation
  @tooltip.top(-1)
end

#forminit(screen, parent) ⇒ Object 



744
745
746
747
748
 
# File 'lib/vr/vruby.rb', line 744

def forminit(screen,parent)
  @_vr_handlers={}
  parentinit(screen)
  @parent=parent
end