Module Dfwide.pkg

     1//************************************************************************
     2//
     3// Copyright (c) 1997 Data Access Corporation, Miami Florida,
     4// All rights reserved.
     5// DataFlex is a registered trademark of Data Access Corporation.
     6//
     7//************************************************************************
     8// 07/23/96 JJT - New Class names
     9// 3.1 Changes  - Added DF navigate and Help DEO support. (added class layer)
    10//************************************************************************
    11
    12Use Windows.pkg
    13Use Widelist.pkg
    14Use DFNav_mx.pkg      // Navigation changes for DF DEOs
    15Use DFCdDeo.pkg      // DEO Code message support
    16
    17
    18{ ClassType=Abstract }
    19{ HelpTopic=WideList_ }
    20Class WideList_ is a EntryList
    21    Import_Class_Protocol Wide_List_mixin
    22End_Class
    23
    24{ ClassType=Abstract }
    25{ HelpTopic=WideList }
    26Class WideList is a WideList_
    27
    28    Procedure Construct_Object Integer Img#
    29       Forward Send Construct_Object Img#
    30       Send Define_DFNavigation  // GUI navigate changes
    31    End_Procedure // Construct_Object
    32
    33    Import_Class_Protocol DFNavigate_Mixin
    34    Import_Class_Protocol DFCode_DEO_Mixin
    35
    36    //  The scroll bars send the wrong messages. They don't seem
    37    //  to respect the accelorator keys. It matter with up and down
    38    //  keys. Hence the change
    39    { MethodType=Event Visibility=Private }
    40    Procedure Key integer keyval returns integer
    41       integer rVal
    42       if keyval eq kDownarrow send down_row
    43       else if keyval eq kUparrow send up_row
    44       else Forward Get MSG_Key keyval to rVal
    45       procedure_return rval
    46    End_Procedure // Key
    47
    48End_Class
    49
    50