Navigation: ABC Library Reference > ToolbarTargetClass > ToolbarTarget Methods >====== TakeEvent (convert toolbar events:ToolbarTarget) ====== | |
TakeEvent( [ vcr ], window manager ), VIRTUAL
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