From eacda1e0c26080cbbca532f430fadbc9b6308965 Mon Sep 17 00:00:00 2001
From: Jacques Grelet <jacques.grelet@ird.fr>
Date: Mon, 24 Jun 2013 14:00:19 +0000
Subject: [PATCH] add a fourth column to display SSTP_LINCOEF_OFFSET change
DATE convention attribute position and add one for <PARAM>_CALCOEF_DATE
yyyymmdd
---
tsg_util/headerForm.m | 21 +++++++++++++++++----
1 file changed, 17 insertions(+), 4 deletions(-)
diff --git a/tsg_util/headerForm.m b/tsg_util/headerForm.m
index 6e185f4..5e8e11e 100644
--- a/tsg_util/headerForm.m
+++ b/tsg_util/headerForm.m
@@ -33,7 +33,7 @@ default_length = .11;
% -------------------------------
left = .01;
bottom = .95;
-inc_x = 3 * default_length;
+inc_x = 2.2 * default_length;
inc_y = 0.01;
% get actual date to format
@@ -163,10 +163,10 @@ for i = nca_keys
'Parent', hHeaderFig, ...
'Units', 'normalized', ...
'Style', 'text', ...
- 'Fontsize', tsg.fontSize-2, ...
+ 'Fontsize', tsg.fontSize-4, ...
'HorizontalAlignment', 'left', ...
- 'Position', [left + 2*s.length, bottom, s.length, s.height], ...
- 'String', convention);
+ 'Position', [left , bottom - (inc_y * 5/3), s.length, s.height], ...
+ 'String', strcat('[', convention, ']'));
end
% set dynamically uicontrol from tsg struct
@@ -691,6 +691,19 @@ uiwait(hHeaderFig);
'String', value, ...
'Tag', char(cle) );
+ % add convention for <PARAM>_CALCOEF_DATE
+ % ---------------------------------------
+ if ~isempty(strfind(cle, 'CALCOEF_DATE'))
+ uicontrol(...
+ 'Parent', hHeaderFig, ...
+ 'Units', 'normalized', ...
+ 'Style', 'text', ...
+ 'Fontsize', tsg.fontSize-4, ...
+ 'HorizontalAlignment', 'left', ...
+ 'Position', [left , bottom - (inc_y * 5/3), s.length, s.height], ...
+ 'String', '[yyyymmdd]');
+ end
+
% Check vertical position of last uicontrol and creation new colomn
% -----------------------------------------------------------------
bottom = bottom - inc_y - s.height;
--
GitLab