U_SAVREND

Save a rendition scheme to a file

WTSupported in traditional Synergy on Windows
WNSupported in Synergy .NET on Windows
USupported on UNIX
VSupported on OpenVMS
xcall U_SAVREND([filename], [scheme], [status][, flag])

filename

(optional) The name of the rendition file. (a)

scheme

(optional) The rendition scheme name (a maximum of 30 characters). (a)

status

(optional) Returned with zero (0) if the save operation is successful, or a Synergy DBL error number if it is unsuccessful. (n)

flag

(optional) If true (non-zero), U_SAVREND prompts the user before replacing an existing scheme of the same name. If false, it is replaced without warning. (n)

U_SAVREND saves a rendition scheme to a rendition file. It opens filename in U:I mode and closes it upon exit. If filename doesn’t exist, it is created.

If filename is not specified, UI Toolkit searches for the rendition file as follows:

If scheme is not specified or is blank, the currently loaded renditions are saved to the working rendition scheme (blank key).

Customizing the look of your application

The following utility subroutine loads and saves personalized rendition schemes from a rendition file.

subroutine pers_rend
    a_scheme      ,a
    a_rstflg      ,n      ;Restore flag: 1=restore, 0=save
.include "WND:tools.def"
.define RENDFILE  ,"RND:persrnd"
record
    error      ,i4
proc
  if (a_rstflg) then
    xcall u_rstrend(RENDFILE, a_scheme, error)
  else
    xcall u_savrend(RENDFILE, a_scheme, error, TRUE)
  if (error)
    xcall proc_error
  xreturn
endsubroutine