Click above to get retro games delivered to your door ever month!

Syntax

     SET KEY 276 TO TAG_RECORD            && Alt-T
     SET KEY 278 TO TAG_RECORD            && Alt-U
     SET KEY 286 TO TAG_RECORD            && Alt-A

Purpose

Hot-key access to record tagging. ALT A pops up a menu for
tagging/untagging all records in the current view, ALT T tags the current
record and ALT U untags it.

Arguments

     x,y,z -- passed internally by Clipper

Setup

Any table which will be utilizing this function must have a logical field
called Tag. Then, define the 3 keys as shown in the example below.

Example

     USE CUSTOMER                         && Has a Tag field

     * Alt T will tag current record
     SET KEY 276 TO TAG_RECORD

     * Alt U will untag current record
     SET KEY 278 TO TAG_RECORD

     * Alt A to tag/untag all records
     SET KEY 286 TO TAG_RECORD

Returns

.T.

Side Effects

If the logical field Tag exists, sets it .T. or .F. for either the current
record or for all records, depending on how the function was invoked. If
the current table contains no Tag field or Tag is not a logical field, then
.F. is returned.

Artful Calls

GET/SET_KEYS, IS_FIELD, PUSH/POP_REL, FILTR_TYPE, STAT_LINE, LOCKREC
(multi-user only)

Source File

AA_TAG.PRG, AM_TAG.PRG