Module ORDABOUT.VW

     1//---------------------------------------------------------------------------
     2// OrdAbout.pkg - About view for order entry
     3//
     4// Public Access Method: Send About
     5//
     6//
     7// This displays the about view. It was created by using the dfabout
     8// class and images. You may wish to create your own class and images
     9// for about objects. Look at this package and the dfabout.pkg and
    10// use those as templates
    11//
    12// Note that this package employs object creation/destruction. It uses
    13// the "procedure" style object CD. Inside of the procedure we:
    14//   1. Create the object and get its ID
    15//   2. Activate the object and accept input through a new level of the UI.
    16//      UI_Accept does both of these tasks.
    17//   3. When the UI is ended (by returning a non-zero value), the object is
    18//      deactivated.
    19//   4. We destroy the object with the request_destroy_object message.
    20//
    21// You can only create objects in a procedure if the object contains no
    22// functions or procedures (you can't place a procedure inside of a
    23// procedure).
    24//
    25//---------------------------------------------------------------------------
    26
    27//
    28Use Allentry
    29Use dfAbout
    30
    31Procedure About for Desktop
    32  Integer Obj# Tmp#
    33  Object about_obj is an About_Client about_img
    34    set Program_Information to ;
    35         "DD Enabled Order Entry System" ;
    36         "3.2"
    37    set Copyright_Information to ;
    38         "Copyright 1987-2000 Data Access Corp" ;
    39         "Miami FL, USA - All rights reserved"
    40    Move self to Obj#
    41  End_Object // About
    42  UI_accept Obj# to Tmp#
    43  Send Request_Destroy_Object to Obj#
    44end_procedure
    45
    46