/*E4GL-W*/ {src/web/method/e4gl.i} {&OUT} '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">~n'.
{&OUT} '<!----------------------------------------------------------------------~n'.
{&OUT} '*Copyright (C) 2005-2007,2013 by Progress Software Corporation.        *~n'.
{&OUT} '*All rights reserved.  Prior versions of this work may contain portions*~n'.
{&OUT} '*contributed by participants of Possenet.                              *~n'.
{&OUT} '----------------------------------------------------------------------->~n'.
 /*Tag=<SCRIPT LANGUAGE="SpeedScript">*/ 
      { webutil/devcheck.i }
 /*Tag=</SCRIPT>*/ 
{&OUT} '<HTML>~n'.
{&OUT} '<HEAD>~n'.
{&OUT} '<META NAME="author" CONTENT="Douglas M. Adams">~n'.
{&OUT} '<META NAME="wsoptions" CONTENT="compile">~n'.
{&OUT} '<TITLE>About Editor</TITLE>~n'.
{&OUT} '</HEAD>~n'.

{&OUT} '<BODY BACKGROUND="' /*Tag=`*/ RootURL /*Tag=`*/ '/images/bgr/wsbgr.gif" BGCOLOR="#FFFFCC"~n'.
{&OUT} '  onBlur="window.focus()">~n'.
{&OUT} '<TABLE>~n'.
{&OUT} '  <TR>~n'.
{&OUT} '    <TD VALIGN="top"><IMG SRC="' /*Tag=`*/ RootURL /*Tag=`*/ '/images/results.gif"></TD>~n'.
{&OUT} '    <TD><B>' /*Tag=`*/ get-field("product") /*Tag=`*/ '</B><BR>~n'.
{&OUT} '      <FONT SIZE=-1>Version ' /*Tag=`*/ PROVERSION /*Tag=`*/ '<BR>~n'.
{&OUT} '      (c) 1984-2014 Progress Software Corp.<BR>~n'.
{&OUT} '      All rights reserved<BR>~n'.
{&OUT} '      <HR>~n'.
 /*Tag=<SCRIPT LANGUAGE="SpeedScript">*/ 
        /* If this is MS-WINDOWS, go out and make some WIN API calls */
        DEFINE VARIABLE cMachine AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cMemory  AS CHARACTER NO-UNDO.
        IF OPSYS BEGINS "WIN":U THEN
          RUN adecomm/_winsys.p (OUTPUT cMachine, OUTPUT cMemory).
        ELSE
          ASSIGN cMachine = 'Use the "showcfg" utility at the operating'
                 cMemory  = 'system prompt for licensing information.'.
 /*Tag=</SCRIPT>*/ 
{&OUT} /*Tag=`*/ cMachine /*Tag=`*/ '<BR>~n'.
{&OUT} /*Tag=`*/ cMemory /*Tag=`*/ '</FONT>~n'.
{&OUT} '      <HR>~n'.
{&OUT} '    </TD>~n'.
{&OUT} '  </TR>~n'.
{&OUT} '</TABLE>~n'.
{&OUT} '<CENTER>~n'.
{&OUT} '<FORM>~n'.
{&OUT} '  <INPUT TYPE="button" VALUE="  OK  " onClick="window.close()">~n'.
{&OUT} '</FORM>~n'.
{&OUT} '</CENTER>~n'.
{&OUT} '</BODY>~n'.
{&OUT} '</HTML>~n'.
/************************* END OF HTML *************************/
/*
** File: src/main/abl/webutil/about.w
** Generated on: 2021-03-15 16:17:37
** By: WebSpeed Embedded SpeedScript Preprocessor
** Version: 2
** Source file: src/main/abl/webutil/about.html
** Options: compile,wsoptions-found,web-object
**
** WARNING: DO NOT EDIT THIS FILE.  Make changes to the original
** HTML file and regenerate this file from it.
**
*/
/********************* Internal Definitions ********************/

/* This procedure returns the generation options at runtime.
   It is invoked by src/web/method/e4gl.i included at the start
   of this file. */
PROCEDURE local-e4gl-options :
  DEFINE OUTPUT PARAMETER p_version AS DECIMAL NO-UNDO
    INITIAL 2.0.
  DEFINE OUTPUT PARAMETER p_options AS CHARACTER NO-UNDO
    INITIAL "compile,wsoptions-found,web-object":U.
  DEFINE OUTPUT PARAMETER p_content-type AS CHARACTER NO-UNDO
    INITIAL "text/html":U.
END PROCEDURE.

/* end */
