ajoute dans menu contextuel QC le menu HARBOUR, doit pouvoir ce faire au sein...

ajoute dans menu contextuel QC le menu HARBOUR, doit pouvoir ce faire au sein d'une boucle, a verifier ultérieurement

tsgqc_GUI.m

@@ -442,6 +442,12 @@ hQcCmenuBad       = uimenu(...
   'Label', 'Bad',...
   'ForegroundColor', 'r',...
   'Callback', @Qc);
+hQcCmenuHarbour       = uimenu(...
+  'Parent', hQcCmenu,...
+  'HandleVisibility','off', ...
+  'Label', 'Harbour',...
+  'ForegroundColor', 'c',...
+  'Callback', @Qc);
 
 
 % Initialize tsg structure
@@ -868,6 +874,9 @@ tsg_initialisation(hMainFig, hQcCmenu)
         case hQcCmenuBad
           tsg.qc.Code.ACTIVE   = tsg.qc.Code.BAD;
           tsg.qc.Color.ACTIVE  = tsg.qc.Color.BAD;
+        case hQcCmenuHarbour
+          tsg.qc.Code.ACTIVE   = tsg.qc.Code.HARBOUR;
+          tsg.qc.Color.ACTIVE  = tsg.qc.Color.HARBOUR;  
       end
 
       setappdata( hMainFig, 'tsg_data', tsg );