Example

Here is an example using localized strings.

The source string file "common.str" (to be compiled with fglmkstr):

common.accept = "OK"
common.cancel = "Cancel"
common.yes = "Yes!"
common.no = "No!"

The source string file "customer.str" (to be compiled with fglmkstr):

customer.mainwindow.title = "Customers"
customer.listwindow.title = "Customer List"
customer.l_custnum = "Number:"
customer.l_custname = "Name:"
customer.c_custname = "The customer name"
customer.q_delete = "Do you want to delete this customer?"

The FGLPROFILE configuration file parameters:

fglrun.localization.file.count = 1
fglrun.localization.file.1.name = "common.42s"

Remark: The 'customer' string file does not have to listed in FGLPROFILE since it is loaded as it has the same name as the program.

The form specification file "customer.per":

ACTION DEFAULTS
  ACTION accept (TEXT=%"common.accept")
  ACTION cancel (TEXT=%"common.cancel")
END
LAYOUT (TEXT=%"customer.mainwindow.title")
GRID
{
[lab1       ] [f01            ]
[lab2       ] [f02                     ]
}
END
END
ATTRIBUTES
  LABEL lab1: TEXT=%"customer.l_custnum";
  EDIT f01 = FORMONLY.custnum;
  LABEL lab2: TEXT=%"customer.l_custname";
  EDIT f02 = FORMONLY.custname, COMMENT=%"customer.c_custname";
END

The program "customer.4gl" using the strings file:

MAIN
  DEFINE rec RECORD
           custnum INTEGER,
           custname CHAR(20)
         END RECORD
  OPEN FORM f1 FROM "customer"
  DISPLAY FORM f1
  INPUT BY NAME rec.*
    ON ACTION delete
       MENU %"customer.mainwindow.title"
                ATTRIBUTES(STYLE="dialog", COMMENT=%"customer.q_delete")
           COMMAND %"common.yes"
           COMMAND %"common.no"
       END MENU
  END INPUT
END MAIN