From aba0e859c12b93c828338d5eef925e9ccc0923ea Mon Sep 17 00:00:00 2001
From: Jacques Grelet <jacques.grelet@ird.fr>
Date: Wed, 16 Jan 2008 17:03:47 +0000
Subject: [PATCH] =?UTF-8?q?ajoute=20dans=20menu=20contextuel=20QC=20le=20m?=
 =?UTF-8?q?enu=20HARBOUR,=20doit=20pouvoir=20ce=20faire=20au=20sein=20d'un?=
 =?UTF-8?q?e=20boucle,=20a=20verifier=20ult=C3=A9rieurement?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 tsgqc_GUI.m | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tsgqc_GUI.m b/tsgqc_GUI.m
index 87afc57..ef33c1a 100644
--- a/tsgqc_GUI.m
+++ b/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 );
-- 
GitLab