met fid =-2 pour desactiver la gestion des preferences

tsg_util/tsg_preferences.m

@@ -16,29 +16,57 @@ 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 
   
-  % call new config private function
-  % ---------------------------------
+  % preference file is missing 
+  % --------------------------
+  case -1
+
+    % create new tsg structure and save it to appdata
+    % -----------------------------------------------
     new_config;
 
-else
+  % disactive the preference mode (for test or bug)
+  % -----------------------------------------------
+  case -2
+    
+    % init root structure to default values
+    % -------------------------------------
+    root.preference.autoload = 'off';
+    root.version             = VERSION;
+
+    % 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
 
     % Pointer set to watch during loading preference file
     % ---------------------------------------------------