met fid =-2 pour desactiver la gestion des preferences

tsg_util/tsg_preferences.m

@@ -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