User Tools

Site Tools


takeevent_convert_toolbar_events_toolbartarget_.htm
Navigation:  ABC Library Reference > ToolbarTargetClass > ToolbarTarget Methods >====== TakeEvent (convert toolbar events:ToolbarTarget) C6H0009.jpg ====== Previous pageReturn to chapter overviewNext page

TakeEvent( [ vcr ], window manager ), VIRTUAL

blk2blue.jpg

TakeEvent Process toolbar events for this toolbar target.
vcr An integer variable to receive the control number of the accepted VCR navigation button. If omitted, the ToolbarTarget object does no “post processing” navigation.
Windowmanager The label of the ToolbarTarget object's WindowManager object. See Window Manager for more information.

The TakeEvent method handles toolbar events for this toolbar target.

The vcr parameter lets the TakeEvent method specify an appropriate subsequent or secondary action. For example, the ToolbarUpdateClass.TakeEvent method (for a FORM), may interpret a vcr scroll down as “save and then scroll.” The method takes the necessary action to save the item and accomplishes the secondary scroll action by setting the vcr parameter.

Implementation:

The ToolbarClass.TakeEvent method calls the TakeEvent method for the active ToolbarTarget object. The ToolbarClass.SetTarget method sets the active ToolbarTarget object. The TakeEvent method POSTs an EVENT:Accepted to the appropriate local control (insert, change, delete, help) common to all ToolbarTarget objects.

Example:

REL1::Toolbar.TakeEvent PROCEDURE(<;*LONG VCR>,WindowManager WM)

 CODE

 CASE ACCEPTED()

 OF Toolbar:Bottom TO Toolbar:Up

   SELF.Control{PROPLIST:MouseDownRow} = CHOICE(SELF.Control)

   EXECUTE(ACCEPTED()-Toolbar:Bottom+1)

     DO REL1::NextParent

     DO REL1::PreviousParent

     DO REL1::NextLevel

     DO REL1::PreviousLevel

     DO REL1::NextRecord

     DO REL1::PreviousRecord

   END

 OF Toolbar:Insert TO Toolbar:Delete

   SELF.Control{PROPLIST:MouseDownRow} = CHOICE(SELF.Control)

   EXECUTE(ACCEPTED()-Toolbar:Insert+1)

     DO REL1::AddEntry

     DO REL1::EditEntry

     DO REL1::RemoveEntry

   END

 ELSE

   PARENT.TakeEvent(VCR,ThisWindow)

 END

See Also:     ToolbarClass.SetTarget, ToolbarClass.TakeEvent

takeevent_convert_toolbar_events_toolbartarget_.htm.txt · Last modified: 2021/04/15 15:57 by 127.0.0.1