PBMiner Sources PFC11/pfcapsrv/pfc_n_cst

Sources
PFC11
pfcapsrv
pfc_n_cst_apppreference.sru
File: pfc_n_cst_apppreference.sru
Size: 62600
Date: Tue, 22 Jan 2008 23:28:54 +0100
$PBExportHeader$pfc_n_cst_apppreference.sru
$PBExportComments$PFC Application Preference service
forward
global type pfc_n_cst_apppreference from n_base
end type
end forward

global type pfc_n_cst_apppreference from n_base
event type integer pfc_open ( string as_commandline )
event type integer pfc_close ( )
end type
global pfc_n_cst_apppreference pfc_n_cst_apppreference

type variables
Protected:
boolean  ib_restoreapp = False
boolean  ib_restoreuser = False

string   is_appinifile
string   is_userinifile
string   is_appkey
string   is_userkey
string   is_appprefsection = "AppPref"
string   is_userprefsection = "AppUserPref"

n_cst_appmanager  inv_appmanager

end variables

forward prototypes
public function integer of_save (boolean ab_processapp, string as_inifile, string as_inisection)
public function integer of_save (boolean ab_processapp, string as_regkey)
protected function integer of_save (boolean ab_useregistry, boolean ab_processapp, string as_keyorini, string as_inisection)
protected function integer of_restore (boolean ab_useregistry, string as_keyorini, string as_inisection, string as_subkey, ref string as_value, string as_default)
protected function integer of_save (boolean ab_useregistry, string as_keyorini, string as_inisection, string as_subkey, string as_value)
protected function integer of_restore (boolean ab_useregistry, boolean ab_processapp, string as_keyorini, string as_inisection)
public function integer of_restore (boolean ab_processapp, string as_inifile, string as_inisection)
public function integer of_restore (boolean ab_processapp, string as_regkey)
public function integer of_setrequestor (n_cst_appmanager anv_requestor)
public function integer of_setuserinifile (string as_userinifile)
public function integer of_setappinifile (string as_appinifile)
public function integer of_setappkey (string as_appkey)
public function integer of_setuserkey (string as_userkey)
public function integer of_setrestoreapp (boolean ab_switch)
public function integer of_setrestoreuser (boolean ab_switch)
public function boolean of_isrestoreapp ()
public function boolean of_isrestoreuser ()
protected function integer of_restoreuser (boolean ab_useregistry, string as_keyorini, string as_inisection)
protected function integer of_restoreapp (boolean ab_useregistry, string as_keyorini, string as_inisection)
protected function integer of_saveapp (boolean ab_useregistry, string as_keyorini, string as_inisection)
protected function integer of_saveuser (boolean ab_useregistry, string as_keyorini, string as_inisection)
public function integer of_save (string as_subkey, string as_value, boolean ab_processapp)
public function integer of_restore (string as_subkey, ref string as_value, string as_default, boolean ab_processapp)
end prototypes

event pfc_open;//////////////////////////////////////////////////////////////////////////////
//
// Event:      pfc_open
//
// Arguments:
// as_commandline:  command line parameter to the application
//
// Returns:    integer
// SUCCESS = 1
// ERROR = -1
//
// Description:
// Restore Application preferences on Application startup
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////
integer  li_rc

if is_appkey = ""     and is_userkey = ""     and &
   is_appinifile = "" and is_userinifile = "" then
   return -1
end if

// Restore application information
if ib_restoreapp then
   if (is_appkey <> "") then
      li_rc = of_Restore(True, is_appkey)
   elseif (is_appinifile <> "") then
      li_rc = of_Restore(True, is_appinifile, is_appprefsection )
   else
      // no place to get application level info
      return 0
   end if
end if

if li_rc < 0 then return li_rc

// Restore User App Preferences
if ib_restoreuser then
   if (is_userkey <> "") then
      li_rc = of_Restore(False, is_userkey)
   elseif (is_userinifile <> "") then
      li_rc = of_Restore(False, is_userinifile, is_userprefsection  )
   else
      // no place to get User level info
      return 0
   end if
end if

return li_rc

end event

event pfc_close;//////////////////////////////////////////////////////////////////////////////
//
// Event:      pfc_close
//
// Arguments:  None
//
// Returns:    integer
// SUCCESS = 1
// ERROR = -1
//
// Description:
// Save Application preferences on Application close
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////
integer  li_rc

if is_appkey = ""     and is_userkey = ""     and &
   is_appinifile = "" and is_userinifile = "" then
   return -1
end if

// Save application information
if ib_restoreapp then
   if (is_appkey <> "") then
      li_rc = of_Save(True, is_appkey)
   elseif (is_appinifile <> "") then
      li_rc = of_Save(True, is_appinifile, is_appprefsection )
   else
      // no place to Save application level info
      return 0
   end if
end if

if li_rc < 0 then return li_rc

// Save User App Preferences
if ib_restoreuser then
   if (is_userkey <> "") then
      li_rc = of_Save(False, is_userkey)
   elseif (is_userinifile <> "") then
      li_rc = of_Save(False, is_userinifile, is_userprefsection )
   else
      // no place to Save User level info
      return 0
   end if
end if

return li_rc
end event

public function integer of_save (boolean ab_processapp, string as_inifile, string as_inisection);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Save
//
// Access:        public
//
// Arguments:     
// ab_processapp  True if saving application info, false if saving user info
// as_inifile     The name of the .INI file
// as_inisection     The section name in the .INI file to save settings to.
//
// Returns:       Integer
//                1 if it succeeds and -1 if an error occurs.
//
// Description:   Saves the preference information to an .INI file.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

//Check for valid parameters
If IsNull(ab_processapp) Or IsNull(as_inifile) Or IsNull(as_inisection)Then 
   Return -1
End If

if (as_inifile = "") or (as_inisection = "") then
   return -1
end if

Return of_Save (False, ab_processapp, as_inifile, as_inisection)

end function

public function integer of_save (boolean ab_processapp, string as_regkey);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Save
//
// Access:        public
//
// Arguments:     
// ab_processapp  True if saving application info, false if saving user info
// as_regkey      The name of the registry key 
//
// Returns:       Integer
//                1 if it succeeds and -1 if an error occurs.
//
// Description:   Saves the preference information to the Registry.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

//Check for valid parameters
If IsNull(ab_processapp) Or IsNull(as_regkey) or (as_regkey = "") Then 
   Return -1
End If

Return of_Save(True, ab_processapp, as_regkey, "")

end function

protected function integer of_save (boolean ab_useregistry, boolean ab_processapp, string as_keyorini, string as_inisection);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Save
//
// Access:        protected
//
// Arguments:  
// ab_UseRegistry Function behavior - use the registry or an .ini file.
// ab_ProcessApp  Function behavior - save application info or save user info
// as_KeyOrIni    The KeyName for use with the Registry or the IniFile name
//                for use with an .Ini file.
// as_IniSection  The name of the .Ini section. 
//
// Returns:       Integer
//                 1 if it succeeds and -1 if an error occurs.
//
// Description:   Saves the preference information to either the Registry or
//                to an .INI file.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

integer           li_rc

n_cst_inifile     lnv_inifile
n_cst_conversion  lnv_conversion

//Check arguments
If IsNull(ab_UseRegistry) or IsNull(ab_ProcessApp) or IsNull(as_KeyOrIni) or (as_keyorini = "") Then
   Return -1
End If

//Validate specifics for either Registry or .Ini functionality.
If ab_UseRegistry Then
Else
   //Check for the existance of the file.
   If Not FileExists(as_KeyOrIni) Then
      Return -1
   End If
   //Check the section parameter
   If IsNull(as_IniSection) or Len(Trim(as_IniSection))=0 Then
      Return -1
   End If
End If

//Clear the section prior to updating it
If ab_UseRegistry Then
   RegistryDelete (as_KeyOrIni, '')
Else
   lnv_inifile.of_Delete(as_KeyOrIni, as_IniSection)
End If

if ab_ProcessApp then
   li_rc = of_SaveApp(ab_UseRegistry, as_KeyOrIni, as_IniSection)
else
   li_rc = of_SaveUser(ab_UseRegistry, as_KeyOrIni, as_IniSection)
end if

Return li_rc

end function

protected function integer of_restore (boolean ab_useregistry, string as_keyorini, string as_inisection, string as_subkey, ref string as_value, string as_default);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Restore
//
// Access:        protected
//
// Arguments:
// ab_UseRegistry Function behavior. - use the registry or an .ini file.
// as_KeyOrIni    The KeyName for use with the Registry or the IniFile name
//                for use with an .Ini file.
// as_IniSection  The name of the .Ini section. 
// as_SubKey         The key value to be used on either the Registry or .Ini file.
// as_value       The value to be restored from either the Registry or .Ini file.
//                   Passed by reference.
// as_default     Used also as a default value, if the desired value is not found.
//
// Returns:       integer
//                1 if it succeeds.
//                0 if the default value was used.
//
// Description:   Perform the actual Get from the Registry or the .Ini file.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

constant string DEFAULT='$%^'

If ab_UseRegistry Then
   If RegistryGet (as_KeyOrIni, as_SubKey, as_Value) =1 Then
      Return 1
   End If
   as_Value = as_default
   Return 0
End If   

as_value = ProfileString (as_KeyOrIni, as_IniSection, as_SubKey, DEFAULT)
If as_value=DEFAULT Then
   as_Value = as_default
   Return 0
End If
Return 1

end function

protected function integer of_save (boolean ab_useregistry, string as_keyorini, string as_inisection, string as_subkey, string as_value);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Save
//
// Access:        protected
//
// Arguments:
// ab_UseRegistry Function behavior. - use the registry or an .ini file.
// as_KeyOrIni    The KeyName for use with the Registry or the IniFile name
//                for use with an .Ini file.
// as_IniSection  The name of the .Ini section. 
// as_SubKey      The key value to be used on either the Registry or .Ini file.
// as_value       The value to be stored on either the Registry or .Ini file.
//
// Returns:       integer
//                1 if it succeeds and -1 if an error occurs.
//
// Description:   Perform the actual put into the Registry or the .Ini file.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

If ab_UseRegistry Then
   If RegistrySet (as_KeyOrIni, as_SubKey, as_Value) =1 Then
      Return 1
   End If
   Return -1
End If   

If SetProfileString (as_KeyOrIni, as_IniSection, as_SubKey, as_Value) =1 Then
   Return 1
End If
Return -1

end function

protected function integer of_restore (boolean ab_useregistry, boolean ab_processapp, string as_keyorini, string as_inisection);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Restore
//
// Access:        protected
//
// Arguments:  
// ab_useregistry Function behavior - use the registry or an .ini file.
// ab_processapp  Function behavior - restore application info or restore user info
// as_keyorini    The KeyName for use with the Registry or the IniFile name
//                for use with an .Ini file.
// as_inisection  The name of the .Ini section. 
//
// Returns:       Integer
//                1 if it succeeds and -1 if an error occurs.
//
// Description:   Restores the preference information from either the Registry
//                or from an .INI file.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////
integer  li_rc

//Check arguments
if isnull(ab_useregistry) or isnull(ab_processapp) or isnull(as_keyorini) then
   return -1
end if

// as_inisection will be blank if using registry
if (as_keyorini = "") then
   return -1
end if

//Validate specifics for either Registry or .Ini functionality.
if ab_useregistry then
else
   //Check for the existance of the file.
   if not fileexists(as_keyorini) then
      return -1
   end If
   //Check the section parameter
   if isnull(as_inisection) or Len(Trim(as_inisection))=0 then
      return -1
   end if
end if

if ab_processapp then
   li_rc = of_RestoreApp(ab_useregistry, as_keyorini, as_inisection)
else
   li_rc = of_RestoreUser(ab_useregistry, as_keyorini, as_inisection)
end if

return li_rc
end function

public function integer of_restore (boolean ab_processapp, string as_inifile, string as_inisection);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Restore
//
// Access:        public
//
// Arguments:     
// ab_processapp  True if restoring application info, false if restoring user info
// as_inifile     The name of the .INI file to restore settings from
// as_inisection  The section name in the .INI file to restore settings from
//
// Returns:       Integer
//                1 if it succeeds and -1 if an error occurs.
//
// Description:   Restores the preference information from an .INI file.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

//Check for valid parameters
if isnull(ab_processapp) or isnull(as_inifile) or isnull(as_inisection) then 
   return -1
end if

if (as_inifile = "") or (as_inisection = "") then
   return -1
end if

Return of_Restore(false, ab_processapp, as_inifile, as_inisection)

end function

public function integer of_restore (boolean ab_processapp, string as_regkey);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Restore
//
// Access:        public
//
// Arguments:  
// ab_processapp  True if restoring application info, false if restoring user info
// as_regkey      The registry key path to read values from.
//
// Returns:       Integer
//                1 if it succeeds and -1 if an error occurs.
//
// Description:   Restores the preference information from the Registry.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

//Check for valid parameters
if isnull(ab_processapp) or isnull(as_regkey) or (as_regkey = "") then 
   return -1
end if

return of_Restore (true, ab_processapp, as_regkey, "")

end function

public function integer of_setrequestor (n_cst_appmanager anv_requestor);//////////////////////////////////////////////////////////////////////////////
//
// Function:   of_SetRequestor
//
// Access:     Public
//
// Arguments:
// anv_Requestor  The appmanager nvo requesting the service
//
// Returns:    Integer
//  1 = success 
// -1 = error 
//
// Description:   Associates the appmanager nvo with this service 
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

If IsNull(anv_requestor) or Not IsValid(anv_requestor) Then
   Return -1
End If

inv_appmanager = anv_Requestor

return 1
end function

public function integer of_setuserinifile (string as_userinifile);//////////////////////////////////////////////////////////////////////////////
//
// Function:   of_SetUserIniFile
//
// Access:     public
//
// Arguments:     
// as_userinifile Full pathname of the user's INI file.
//
// Returns:    integer
//  1 = success
// -1 = error
//
// Description:   Sets the filename for the user INI file
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

If IsNull(as_userinifile) Then
   Return -1
End If

is_userinifile = as_userinifile

Return 1
end function

public function integer of_setappinifile (string as_appinifile);//////////////////////////////////////////////////////////////////////////////
//
// Function:   of_SetAppIniFile
//
// Access:     public
//
// Arguments:
// as_appinifile  the full pathname of the application INI file
//
// Returns:    Integer
//  1 = success
// -1 = error
//
// Description:   Sets the filename of the application's INI file
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

//Check arguments
If IsNull(as_appinifile) Then
   Return -1
End If

is_appinifile = as_appinifile

Return 1
end function

public function integer of_setappkey (string as_appkey);//////////////////////////////////////////////////////////////////////////////
//
// Function:   of_SetAppKey
//
// Access:     public
//
// Arguments:     
// as_appkey   Full key value for the application.
//
// Returns:    Integer
//  1 = success 
// -1 = error 
//
// Description:   Sets the value for the application key on the registry.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

If IsNull(as_appkey) Then
   Return -1
End If

is_appkey = as_appkey

Return 1
end function

public function integer of_setuserkey (string as_userkey);//////////////////////////////////////////////////////////////////////////////
//
// Function:   of_SetUserKey
//
// Access:     public
//
// Arguments:     
// as_userkey  full registry key for the user.
//
// Returns:    Integer
//  1 = success
// -1 = error 
//
// Description:   Sets the value of the registy key for the user
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

If IsNull(as_userkey) Then
   Return -1
End If

is_userkey = as_userkey

Return 1
end function

public function integer of_setrestoreapp (boolean ab_switch);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_SetRestoreApp
//
// Access:        public
//
// Arguments:
// ab_switch      Mode of the service.  False = do not restore app attributes
//
// Returns:       integer
//                Returns 1 if it succeeds and -1 if an error occurs.
//                
// Description:   Tells the service to restore or not to restore
//                the application information attributes.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

If IsNull(ab_switch) Then
   Return -1
End If

ib_restoreapp = ab_switch

Return 1

end function

public function integer of_setrestoreuser (boolean ab_switch);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_SetRestoreUser
//
// Access:        public
//
// Arguments:
// ab_switch      Mode of the service.  False = do not restore app user attributes
//
// Returns:       integer
//                Returns 1 if it succeeds and -1 if an error occurs.
//                
// Description:   Tells the service to restore or not to restore
//                the application user level information.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

If IsNull(ab_switch) Then
   Return -1
End If

ib_restoreuser = ab_switch

Return 1

end function

public function boolean of_isrestoreapp ();//////////////////////////////////////////////////////////////////////////////
//
// Function:   of_IsRestoreApp
//
// Access:     public
//
// Arguments:  none
//
// Returns:    boolean
// True if the service will restore the application information 
//                
// Description:
// Reports if the service is to restore the application information 
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

return ib_restoreapp


end function

public function boolean of_isrestoreuser ();//////////////////////////////////////////////////////////////////////////////
//
// Function:   of_IsRestoreUser
//
// Access:     public
//
// Arguments:  none
//
// Returns:    boolean
// True if the service will restore the user level information 
//                
// Description:   
// Reports if the service is to restore the user level information
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

return ib_restoreuser

end function

protected function integer of_restoreuser (boolean ab_useregistry, string as_keyorini, string as_inisection);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_RestoreUser
//
// Access:        protected
//
// Arguments:  
// ab_useregistry Function behavior - use the registry or an .ini file.
// as_keyorini    The KeyName for use with the Registry or the IniFile name
//                for use with an .Ini file.
// as_inisection  The name of the .Ini section. 
//
// Returns:       Integer
//                1 if it succeeds and -1 if an error occurs.
//
// Description:   Restores the App User preference information from either the Registry
//                or from an .INI file.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

boolean     lb_toolbartext, lb_toolbartips
integer     li_rc
string      ls_toolbartext, ls_toolbartips, ls_userid
n_cst_conversion  lnv_conversion

//Parameter checking done in calling function

//Restore user information
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'toolbartext', ls_toolbartext, &
   lnv_conversion.of_string(inv_appmanager.iapp_object.toolbartext))
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'toolbartips', ls_toolbartips, &
   lnv_conversion.of_string(inv_appmanager.iapp_object.toolbartips))
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'userid', ls_userid, &
   inv_appmanager.of_getuserid() )

//Convert to the appropriate data types
lb_toolbartext = lnv_conversion.of_Boolean(ls_toolbartext)
lb_toolbartips = lnv_conversion.of_Boolean(ls_toolbartips)

// Important values so validate them.
if isnull(lb_toolbartext) then lb_toolbartext = false
if isnull(lb_toolbartips) then lb_toolbartips = true
   
// application properties - if value is blank then we don't want to change the current setting
inv_appmanager.iapp_object.toolbartext = lb_ToolbarText
inv_appmanager.iapp_object.toolbartips = lb_ToolbarTips
if ls_userid <> "" then inv_appmanager.of_SetUserid(ls_userid)

return li_rc
end function

protected function integer of_restoreapp (boolean ab_useregistry, string as_keyorini, string as_inisection);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_RestoreApp
//
// Access:        protected
//
// Arguments:  
// ab_useregistry Function behavior - use the registry or an .ini file.
// as_keyorini    The KeyName for use with the Registry or the IniFile name
//                for use with an .Ini file.
// as_inisection  The name of the .Ini section. 
//
// Returns:       Integer
//                1 if it succeeds and -1 if an error occurs.
//
// Description:   Restores the App preference information from either the Registry
//                or from an .INI file.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

boolean     lb_microhelp, lb_righttoleft, lb_toolbarusercontrol
integer     li_ddetimeout
integer     li_rc
string      ls_userinifile, ls_userkey, ls_microhelp, ls_helpfile
string      ls_version, ls_logo, ls_copyright 
string      ls_ddetimeout, ls_displayname, ls_dwmessagetitle
string      ls_microhelpdefault, ls_righttoleft, ls_toolbarframetitle
string      ls_toolbarpopmenutext, ls_toolbarsheettitle, ls_toolbarusercontrol
string      ls_toolbartext, ls_toolbartips, ls_userid
n_cst_string      lnv_string
n_cst_conversion  lnv_conversion

//Parameter checking done in calling function

//Restore application information -- Default Information is current info
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'userinifile', ls_userinifile, & 
   inv_appmanager.of_GetUserinifile() )
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'userkey', ls_userkey, &
   inv_appmanager.of_GetUserkey() )
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'microhelp', ls_microhelp, &
   lnv_conversion.of_string(inv_appmanager.of_GetMicrohelp() ) )
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'helpfile', ls_helpfile, &
   inv_appmanager.of_GetHelpfile() )
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'version', ls_version, &
   inv_appmanager.of_GetVersion() )
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'logo', ls_logo, &
   inv_appmanager.of_GetLogo() )
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'copyright', ls_copyright, &
   inv_appmanager.of_GetCopyright() )
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'userid', ls_userid, &
   inv_appmanager.of_GetUserid() )
      
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'ddetimeout',  ls_ddetimeout, &
   string(inv_appmanager.iapp_object.ddetimeout))
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'displayname', ls_displayname, &
   inv_appmanager.iapp_object.displayname)
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'dwmessagetitle',   ls_dwmessagetitle, &
   inv_appmanager.iapp_object.dwmessagetitle)
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'microhelpdefault', ls_microhelpdefault, &
   inv_appmanager.iapp_object.microhelpdefault)
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'righttoleft', ls_righttoleft, &
   lnv_conversion.of_string(inv_appmanager.iapp_object.righttoleft))
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'toolbarframetitle', ls_toolbarframetitle, &
   inv_appmanager.iapp_object.toolbarframetitle)
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'toolbarpopmenutext', ls_toolbarpopmenutext, &
   inv_appmanager.iapp_object.toolbarpopmenutext)
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'toolbarsheettitle', ls_toolbarsheettitle, &
   inv_appmanager.iapp_object.toolbarsheettitle)
li_rc = of_Restore (ab_useregistry, as_keyorini, as_inisection, 'toolbarusercontrol', ls_toolbarusercontrol, &
   lnv_conversion.of_string(inv_appmanager.iapp_object.toolbarusercontrol))

//Convert to the appropriate data types
lb_microhelp = lnv_conversion.of_Boolean(ls_microhelp)
lb_righttoleft = lnv_conversion.of_Boolean(ls_righttoleft)
lb_toolbarusercontrol = lnv_conversion.of_Boolean(ls_toolbarusercontrol)
If isnumber(ls_ddetimeout) then 
   li_ddetimeout = integer(ls_ddetimeout)
else
   li_ddetimeout = 0
end if

// Important values so validate them.
if isnull(lb_microhelp) then lb_microhelp = false
if isnull(lb_righttoleft) then lb_righttoleft = false
if isnull(lb_toolbarusercontrol) then lb_toolbarusercontrol = true

// pfc appmanager properties - if value is blank then we don't want to change the current setting
if ls_userkey <> ""     then inv_appmanager.of_SetUserkey(ls_userkey)
if ls_userinifile <> "" then inv_appmanager.of_SetUserinifile(ls_userinifile)
if ls_helpfile <> ""    then inv_appmanager.of_SetHelpfile(ls_helpfile)
if ls_version <> ""     then inv_appmanager.of_SetVersion(ls_version)
if ls_logo <> ""        then inv_appmanager.of_SetLogo(ls_logo)
if ls_copyright <> ""   then inv_appmanager.of_SetCopyright(ls_copyright)
if ls_userid <> ""      then inv_appmanager.of_SetUserid(ls_userid)
inv_appmanager.of_SetMicrohelp(lb_microhelp)

// application object properties - if value is blank then we don't want to change the current setting
inv_appmanager.iapp_object.ddetimeout = li_DDEtimeOut
if ls_DisplayName <> ""        then inv_appmanager.iapp_object.displayname = ls_DisplayName
if ls_dwMessageTitle <> ""     then inv_appmanager.iapp_object.dwmessagetitle = ls_dwMessageTitle
if ls_MicroHelpDefault <> ""   then inv_appmanager.iapp_object.microhelpdefault = ls_MicroHelpDefault
if ls_ToolbarFrameTitle <> ""  then inv_appmanager.iapp_object.toolbarframetitle = ls_ToolbarFrameTitle
if ls_ToolbarPopmenuText <> "" then inv_appmanager.iapp_object.toolbarpopmenutext = ls_ToolbarPopmenuText
if ls_ToolbarSheetTitle <> ""  then inv_appmanager.iapp_object.toolbarsheettitle = ls_ToolbarSheetTitle
inv_appmanager.iapp_object.righttoleft = lb_RightToLeft
inv_appmanager.iapp_object.toolbarusercontrol = lb_ToolbarUserControl

return li_rc
end function

protected function integer of_saveapp (boolean ab_useregistry, string as_keyorini, string as_inisection);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_SaveApp
//
// Access:        protected
//
// Arguments:  
// ab_UseRegistry Function behavior - use the registry or an .ini file.
// as_KeyOrIni    The KeyName for use with the Registry or the IniFile name
//                for use with an .Ini file.
// as_IniSection  The name of the .Ini section. 
//
// Returns:       Integer
//                 1 if it succeeds and -1 if an error occurs.
//
// Description:   Saves the App preference information to either the Registry or
//                to an .INI file.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

integer           li_rc
n_cst_conversion  lnv_conversion

//Parameter checking done in calling function

//Save application information
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'userinifile', &
   inv_appmanager.of_GetUserinifile() )
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'userkey', &
   inv_appmanager.of_GetUserkey() )
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'microhelp', &
   lnv_conversion.of_string(inv_appmanager.of_GetMicrohelp() ) )
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'helpfile', &
   inv_appmanager.of_GetHelpfile() )
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'version', &
   inv_appmanager.of_GetVersion() )
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'logo', &
   inv_appmanager.of_GetLogo() )
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'copyright', &
   inv_appmanager.of_GetCopyright() )
      
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'ddetimeout', &
   string(inv_appmanager.iapp_object.ddetimeout))
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'displayname', &
   inv_appmanager.iapp_object.displayname)
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'dwmessagetitle', &
   inv_appmanager.iapp_object.dwmessagetitle)
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'microhelpdefault', &
   inv_appmanager.iapp_object.microhelpdefault)
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'righttoleft',&
   lnv_conversion.of_string(inv_appmanager.iapp_object.righttoleft))
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'toolbarframetitle', &
   inv_appmanager.iapp_object.toolbarframetitle)
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'toolbarpopmenutext', &
   inv_appmanager.iapp_object.toolbarpopmenutext)
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'toolbarsheettitle', &
   inv_appmanager.iapp_object.toolbarsheettitle)
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'toolbarusercontrol', &
   lnv_conversion.of_string(inv_appmanager.iapp_object.toolbarusercontrol))

Return li_rc

end function

protected function integer of_saveuser (boolean ab_useregistry, string as_keyorini, string as_inisection);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Save
//
// Access:        protected
//
// Arguments:  
// ab_UseRegistry Function behavior - use the registry or an .ini file.
// as_KeyOrIni    The KeyName for use with the Registry or the IniFile name
//                for use with an .Ini file.
// as_IniSection  The name of the .Ini section. 
//
// Returns:       Integer
//                 1 if it succeeds and -1 if an error occurs.
//
// Description:   Saves the App User preference information to either the Registry or
//                to an .INI file.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

integer           li_rc
n_cst_conversion  lnv_conversion

//Parameter checking done in calling function

//Save user information
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'toolbartext', &
   lnv_conversion.of_string(inv_appmanager.iapp_object.toolbartext))
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'toolbartips', &
   lnv_conversion.of_string(inv_appmanager.iapp_object.toolbartips))
li_rc = of_Save (ab_UseRegistry, as_KeyOrIni, as_IniSection, 'userid', &
   inv_appmanager.of_GetUserid() )

Return li_rc

end function

public function integer of_save (string as_subkey, string as_value, boolean ab_processapp);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Save
//
// Access:        public
//
// Arguments:
// as_SubKey      The key value to be used on either the Registry or .Ini file.
// as_value       The value to be stored on either the Registry or .Ini file.
// ab_ProcessApp  True if saving value with application level preferences
//                False if saving value with Application User level preferences
//
// Returns:       integer
//                1 if it succeeds and -1 if an error occurs.
//
// Description:   Public function to enable the developer to store other application
//                type attributes in the same location as this service.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

// Save application information
if ab_processapp then
   if (is_appkey <> "") then
      // use the registry
      Return of_Save(True, is_appkey, "", as_subkey, as_value)
   elseif (is_appinifile <> "") then
      Return of_Save(False, is_appinifile, is_appprefsection, as_subkey, as_value)
   else
      // no place to Save application level info
      return -1
   end if
Else
   if (is_userkey <> "") then
      // use the registry
      Return of_Save(True, is_userkey, "", as_subkey, as_value)
   elseif (is_userinifile <> "") then
      Return of_Save(False, is_userinifile, is_userprefsection, as_subkey, as_value)
   else
      // no place to Save User level info
      return -1
   end if
end if

return -1
end function

public function integer of_restore (string as_subkey, ref string as_value, string as_default, boolean ab_processapp);//////////////////////////////////////////////////////////////////////////////
//
// Function:      of_Restore
//
// Access:        public
//
// Arguments:
// as_SubKey      The key value to be used on either the Registry or .Ini file.
// as_value       The value to be restored from either the Registry or .Ini file.
//                   Passed by reference.
// as_default     Used also as a default value, if the desired value is not found.
// ab_ProcessApp  True if saving value with application level preferences
//                False if saving value with Application User level preferences
//
// Returns:       integer
//                1 if it succeeds.
//                0 if the default value was used.
//
// Description:   Public function to enable the developer to restore other application
//                type attributes in the same location as this service.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

// Save application information
if ab_processapp then
   if (is_appkey <> "") then
      // use the registry
      Return of_Restore(True, is_appkey, "", as_subkey, as_value, as_default)
   elseif (is_appinifile <> "") then
      Return of_Restore(False, is_appinifile, is_appprefsection, as_subkey, as_value, as_default)
   else
      // no place to Restore application level info from
      as_value = as_default
      return 0
   end if
Else
   if (is_userkey <> "") then
      // use the registry
      Return of_Restore(True, is_userkey, "", as_subkey, as_value, as_default)
   elseif (is_userinifile <> "") then
      Return of_Restore(False, is_userinifile, is_userprefsection, as_subkey, as_value, as_default)
   else
      // no place to Restore User level info from
      as_value = as_default
      return 0
   end if
end if

as_value = as_default
return 0
end function

on pfc_n_cst_apppreference.create
TriggerEvent( this, "constructor" )
end on

on pfc_n_cst_apppreference.destroy
TriggerEvent( this, "destructor" )
end on

event constructor;//////////////////////////////////////////////////////////////////////////////
//
// Event:
// Constructor
//
// Description:
// Application Manager preference service.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////
end event
n_base pfc_n_cst_apppreference(sru)
- Properties
- Instance Variables
- create
- destroy