Module Dfnav_mx.pkg

     1//************************************************************************
     2// DFNav_Mx.pkg - Navigate changes for DF Classes
     3//
     4//
     5// Change by JJT for Windows version:   Look for **JJT**
     6//
     7// 10-28-94 - JJT added switch logic (2-4)
     8// 12/09/94 - JJT added DEO help support (5)
     9// 03/29/95 - JJT Pulled out of navigate.pkg and made its own DF mixin
    10//
    11// 1. Added Ctrl+F4 to be Exit_Function - This will make it more
    12//    Windows consistant.
    13// 2. Ctrl+f6 / alt+f6 Send Switch_Next_View / Switch_Prior_View
    14// 3. F6 / Shift+F6 Send Switch_next_area / Switch_Prior_Area. In here
    15//    those messages send (switch and switch_back). These can be
    16//    augmented without messing with switch and switch back. DFEntry_Form
    17//    will do this to make the switch keys act more like the character
    18//    base product.
    19// 4. Added a Switch_skip_state property. This can be used to tell the
    20//    switch area messages to skip this object. By default it is false -
    21//    DFEntry_Forms will set this true.
    22//************************************************************************
    23
    24
    25//************************************************************************
    26//
    27// Confidential Trade Secret.
    28// Copyright 1987-1997 Data Access Corporation, Miami FL, USA
    29// All Rights reserved
    30// DataFlex is a registered trademark of Data Access Corporation.
    31//
    32//************************************************************************/
    33
    34use VDFBase.pkg
    35
    36class DFnavigate_mixin is a Mixin
    37
    38   { MethodType=Event Visibility=Private }
    39  procedure define_DFNavigation
    40
    41    on_key kSwitch            SEND Switch_Next_Area   PRIVATE
    42    on_key kSwitch_Back       SEND Switch_Prior_Area  PRIVATE
    43
    44    //  Change Panel switching to view switching.
    45    //  The messages Switch_next_view and Switch_Prior_View
    46    //  need to be resolved (via delegation) in the view object.
    47    //  This means that all dfentry object must be placed inside
    48    //  of a view object. This might cause problems ... we will see.
    49// removed. Navigate will not set this. MDI dialogs will set this
    50//    on_key kSwitch_Panel      SEND Switch_Next_View   Private
    51//    on_key kSwitch_Panel_Back SEND Switch_Prior_View  Private
    52
    53// Sent by dfbase... sends close_panel
    54//    //  Added to make for a happier windows world
    55//    on_key kClose_Panel       SEND Exit_Function      PRIVATE
    56
    57  end_procedure
    58
    59  Procedure Close_Panel
    60     Send Exit_Function
    61  End_Procedure // Close_Panel
    62
    63end_class
    64
    65
    66