Skip to content
Snippets Groups Projects
Commit fd17b33b authored by jacques.grelet_ird.fr's avatar jacques.grelet_ird.fr
Browse files

met fid =-2 pour desactiver la gestion des preferences

parent 62619e4d
No related branches found
No related tags found
No related merge requests found
......@@ -16,97 +16,125 @@ function tsg_preferences(hTsgGUI, app_name, DEFAULT_PATH_FILE)
% $Id$
%
% global variable VERSION, update revision number when tsg structure change
% -------------------------------------------------------------------------
global VERSION
% init empty tsg structure
% ------------------------
tsg = [];
% Construct config file path
% --------------------------
config_file = [prefdir, filesep, app_name, '.mat'];
% Open config file
% ----------------
% config = fopen( config_file, 'r' );
config = -1;
% desactive la gestion des preferences, car la classe tsg.qc.hash (tsg_nc)
% est transformee en structure lors de l'ecriture, a verifier
% -----------------------------------------------------------
% fid = fopen( config_file, 'r' );
fid = -2;
% test fopen return value
% -----------------------
if config == -1
switch fid
% preference file is missing
% --------------------------
case -1
% call new config private function
% ---------------------------------
new_config;
% create new tsg structure and save it to appdata
% -----------------------------------------------
new_config;
else
% Pointer set to watch during loading preference file
% ---------------------------------------------------
set( hTsgGUI, 'Pointer', 'watch' );
% disactive the preference mode (for test or bug)
% -----------------------------------------------
case -2
% Initialize loading preference file waitbar
% ------------------------------------------
wb = waitbar(0, 'Loading préference file. Please wait...');
% display waitbar
% ---------------
waitbar( 1/10, wb, 'loading structure root' );
% init root structure to default values
% -------------------------------------
root.preference.autoload = 'off';
root.version = VERSION;
try
% call default tsg_initialisation
% -------------------------------
tsg_initialisation(hTsgGUI);
% save root in root object for next use
% -------------------------------------
set(0, 'userdata', root);
return;
% file exist and is open, fid > 2
% -------------------------------
otherwise
% if file exist, load in workspace
% --------------------------------
load( config_file, 'root', 'tsg' );
% Pointer set to watch during loading preference file
% ---------------------------------------------------
set( hTsgGUI, 'Pointer', 'watch' );
catch
% Initialize loading preference file waitbar
% ------------------------------------------
wb = waitbar(0, 'Loading préference file. Please wait...');
% display warning
% display waitbar
% ---------------
warning('tsgqc_GUI:tsg_preferences', ...
'Can''t load preference file ''%s''', config_file);
waitbar( 1/10, wb, 'loading structure root' );
% quit program
% ------------
quitProgram(hTsgGUI, DEFAULT_PATH_FILE);
try
end
% if file exist, load in workspace
% --------------------------------
load( config_file, 'root', 'tsg' );
% display waitbar
% ---------------
waitbar( 1/2, wb, 'loading structure tsg' );
catch
% Close waitbar
% -------------
close(wb)
% cursor back to normal
% ---------------------
set(hTsgGUI,'Pointer','arrow');
% display warning
% ---------------
warning('tsgqc_GUI:tsg_preferences', ...
'Can''t load preference file ''%s''', config_file);
try
% quit program
% ------------
quitProgram(hTsgGUI, DEFAULT_PATH_FILE);
% set current preference autoload in submenu option/preference
% ------------------------------------------------------------
set(findobj('tag', 'TAG_UIMENU_OPTION_PREFERENCES', ...
'checked', root.preference.autoload));
end
catch
warning('tsgqc_GUI:tsg_preferences', ...
['Preference file ''%s''\nis malformed\n' ...
'delete it.'], config_file);
quitProgram(hTsgGUI, DEFAULT_PATH_FILE);
% display waitbar
% ---------------
waitbar( 1/2, wb, 'loading structure tsg' );
end
% Close waitbar
% -------------
close(wb)
% If there no field version or wrong version, initialize
% -------------------------------------------------------
if ~isfield( root, 'version') || ~strcmp(root.version, VERSION)
% cursor back to normal
% ---------------------
set(hTsgGUI,'Pointer','arrow');
% call new config private function
% --------------------------------
new_config;
try
end
% set current preference autoload in submenu option/preference
% ------------------------------------------------------------
set(findobj('tag', 'TAG_UIMENU_OPTION_PREFERENCES', ...
'checked', root.preference.autoload));
catch
warning('tsgqc_GUI:tsg_preferences', ...
['Preference file ''%s''\nis malformed\n' ...
'delete it.'], config_file);
quitProgram(hTsgGUI, DEFAULT_PATH_FILE);
end
% If there no field version or wrong version, initialize
% -------------------------------------------------------
if ~isfield( root, 'version') || ~strcmp(root.version, VERSION)
% call new config private function
% --------------------------------
new_config;
end
end
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment