Module WebAppBase.pkg

     1// WebAppBase.pkg
     2
     3// This makes sure that the VDF packages Windows.pkg, dfbase.pkg, and dfError.pkg are never
     4// USEd in webapp source.
     5Define Windows.exists for 9999
     6Define Dfbase.exists  for 9999
     7Define DfError.exists for 9999
     8
     9Define Is$WebApp   // unique marker to indicate that this is a WebApp application
    10
    11// Current Package version - can be used by programs to
    12// make sure the packages are up to date (use command Validate_packages)
    13#Replace PKG_Version  |CI16
    14#Replace PKG_Revision |CI1
    15#REPLACE PKG_Build    |CI0
    16
    17
    18Use VdfBase.pkg
    19Use LanguageTextWebApp.pkg
    20
    21// This adds support for the Case command. The only reason this is not provided
    22// as part of FMAC is that some developers have created their own custom case command.
    23// If you are one of those developers, you are strongly encouraged to use this one
    24// instead. If you cannot (or will not) you can comment out this and precompile.
    25// Be warned: Next DF revision will probably not allow this command to be optional.
    26Use case.mac
    27
    28Use GlobalFunctionsProcedures.pkg // adds global functions and procs used by VDF
    29
    30// This is used to determine of Enter should next or nothing. By making
    31// this a global a change will immediately affect all objects. At some
    32// point this may become internal (with a public access).
    33Global_Variable Integer gbKenterNext
    34Move 0 to gbKenterNext
    35
    36Global_Variable Integer ghoApplication // define handle to global application object. Many packages use this to determine
    37Move 0 To ghoApplication               // if an application object exists.
    38
    39// these are used by DataDict (and perhaps others) in error support
    40Global_Variable integer ghoErrorSource
    41Move 0 to ghoErrorSource
    42// ghoErrorSource object is expected to support this message
    43Register_Function Extended_Error_Message returns string
    44
    45
    46Use VersionControl.pkg // version control checking commands and procedure
    47                       // this package will gen compiler and RT errors if fmac
    48                       // packages or runtime are out of synch.
    49use rgb.pkg
    50Use WinUser.pkg          // windows API support
    51
    52// We want this to delegate right up to Desktop object. So create for cObject that
    53// simply delegates and a for cDesktop, that does that actual work
    54
    55
    56Procedure Exit_Application For cObject
    57    Delegate Send Exit_Application
    58End_Procedure
    59
    60{ Visibility=Public }
    61Procedure Exit_Application For cDesktop
    62    Abort
    63End_Procedure
    64
    65
    66Register_Function  Server returns integer // DataDict needs this
    67
    68//
    69//  Mixin Classes
    70//
    71
    72// We will hide all of this from the docs (must do this in the classes that use it.
    73
    74// Standard_object_mixin, Shadow_mixin, Single_item_navigate_mixin and
    75// dfLabel_mixin are needed by flexcom20.pkg. These dummy stubs
    76// are required
    77{ NoDoc=True }
    78Class Standard_Object_Mixin Is A Mixin
    79    Procedure Define_Standard_Object_Mixin
    80    End_Procedure
    81End_Class
    82
    83{ NoDoc=True }
    84Class Shadow_Mixin Is A Mixin
    85    Procedure Define_Shadow_Mixin
    86    End_Procedure
    87End_Class
    88
    89{ NoDoc=True }
    90Class Single_Item_Navigate_Mixin Is A Mixin
    91    Procedure Define_Single_Item_Navigate_Mixin
    92    End_Procedure
    93End_Class
    94
    95{ NoDoc=True }
    96Class DFLabel_Mixin is a Mixin
    97    Procedure Define_DFLabel_Mixin
    98    End_Procedure
    99    Procedure Label_Shadow_Display
   100    End_Procedure
   101End_Class
   102