Module Protoent.pkg

     1//************************************************************************
     2//
     3// Confidential Trade Secret.
     4// Copyright 1987-1997 Data Access Corporation, Miami FL, USA
     5// All Rights reserved
     6// DataFlex is a registered trademark of Data Access Corporation.
     7//
     8//************************************************************************/
     9
    10//************************************************************************
    11//     File Name: ProtoEnt.Pkg
    12// Creation Date: January 1, 1991
    13// Modified Date: Oct 24, 1991
    14//     Author(s): Steven A. Lowe
    15//
    16// This module contains the Prototype_Entry class definition.
    17//
    18// Class PROTOTYPE_ENTRY is used as Element of Table for row prototype
    19//
    20// Note that prototype_entry objects also have focus_mode = NO_ACTIVATE
    21//************************************************************************/
    22
    23#CHKSUB 1 1 // Verify the UI subsystem.
    24
    25use VDFBase.pkg
    26
    27{ HelpTopic=Prototype_Entry }
    28class Prototype_Entry is an cm_ENTRY
    29  procedure Construct_Object integer img
    30    forward send construct_object img
    31    set focus_mode to NO_ACTIVATE
    32  end_procedure
    33end_class
    34
    35//
    36//Begin_Row
    37//
    38// This macro begins the list of items for the row-prototype for the table
    39//
    40#COMMAND Begin_Row .
    41  MAKEDEF$ OBJ$!Zj$ROWDEF
    42  object Element is a PROTOTYPE_ENTRY NO_IMAGE
    43    item_list
    44#ENDCOMMAND
    45
    46//
    47//End_Row
    48//
    49// This macro ends the row-prototype item list for the table
    50//
    51#COMMAND End_Row .
    52    end_item_list
    53  End_Object
    54  set item_limit to (item_count(element(self)))
    55  set line_width to (item_count(element(self))) ;
    56        (displayable_rows(self))
    57  set matrix_size to (item_count(element(self))) ;
    58        (displayable_rows(self))
    59#ENDCOMMAND
    60
    61