Clarion Community Help

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
| **Navigation:**  [[abc library reference.htm|ABC Library Reference]] > ToolbarTargetClass > ToolbarTarget Methods >====== TakeEvent (convert toolbar events:ToolbarTarget) {{c6h0009.jpg|C6H0009.jpg}} ====== | [[displaybuttons  enable appropriate toolbar buttons toolbartarget .htm|{{btn_prev_n.gif|Previous page}}]][[abc library reference.htm|{{btn_home_n.gif|Return to chapter overview}}]][[taketoolbar  assume control of the toolbar toolbartarget .htm|{{btn_next_n.gif|Next page}}]] |
|  ||

**TakeEvent( **[ //vcr //]//, window manager //**), VIRTUAL**

{{blk2blue.jpg|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:**     [[settarget  sets the active target .htm|ToolbarClass.SetTarget]], [[takeevent  process toolbar event toolbarclass .htm|ToolbarClass.TakeEvent]]