source: trunk/src/msgbox_uvmat.m @ 1116

%'msgbox_uvmat': associated with GUI msgbox_uvmat.fig to display message boxes, for error, warning or input calls
%
% answer=msgbox_uvmat(title,display,default_answer,Position)
%
% OUTPUT:
% answer  (text string)= 'yes', 'No', 'cancel', or the text string introduced as input
% for title='WAITING...', the output is the handle of the figure, to allow deletion by the calling program.
%
%INPUT:
% title: string indicating the type of message box (the title is displayed in the upper bar of the fig):
%                ='INPUT_TXT'(default), input data is asked in an edit box
%                ='CONFIMATION'', 'ERROR', 'WARNING','RULER' the figure remains  opened until a button 'OK' is pressed
%                ='RULER' is used for display of length and angle from the ruler tool. 
%                ='INPUT_Y-N', an answer Yes/No is requested
%                ='INPUT_Y-N-Cancel'
%                ='WAITING...' the figure remains open until the program deletes it
% display: displayed text
% default_answer: default answer in the edit box (only used with title='INPUT_TXT')

%=======================================================================
% Copyright 2008-2022, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
%   http://www.legi.grenoble-inp.fr
%   Joel.Sommeria - Joel.Sommeria (A) legi.cnrs.fr
%
%     This file is part of the toolbox UVMAT.
%
%     UVMAT is free software; you can redistribute it and/or modify
%     it under the terms of the GNU General Public License as published
%     by the Free Software Foundation; either version 2 of the license,
%     or (at your option) any later version.
%
%     UVMAT is distributed in the hope that it will be useful,
%     but WITHOUT ANY WARRANTY; without even the implied warranty of
%     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%     GNU General Public License (see LICENSE.txt) for more details.
%=======================================================================

function varargout = msgbox_uvmat(varargin)

% Last Modified by GUIDE v2.5 24-Oct-2009 21:55:17

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @msgbox_uvmat_OpeningFcn, ...
                   'gui_OutputFcn',  @msgbox_uvmat_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1}) && ~isempty(regexp(varargin{1},'_Callback','once'))
    gui_State.gui_Callback = str2func(varargin{1});%for running msgbox_uvmat from a Callback
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
% End initialization code - DO NOT EDIT

%------------------------------------------------------------------------
% --- Executes just before msgbox_uvmat is made visible.
function msgbox_uvmat_OpeningFcn(hObject, eventdata, handles,title,display_str,default_answer,Position)
%------------------------------------------------------------------------
% This function has no output args, see OutputFcn.

% Choose default command line output for msgbox_uvmat
handles.output = 'Cancel';
set(handles.figure1,'Units','pixels')
FigPos=[100 150 500 50];%default position
if exist('Position','var') && numel(Position)>=2
    FigPos(1)=Position(1);
    FigPos(2)=Position(2)-FigPos(4);% upper left corner set by input Position
    set(handles.figure1,'Position',FigPos)
end
set(handles.OK,'Units','pixels')
set(handles.OK,'Position',[100 2 60 30])
set(handles.OK,'FontSize',15)
set(handles.No,'Units','pixels')
set(handles.No,'Position',[200 2 60 30])
set(handles.No,'FontSize',15)
set(handles.Cancel,'Units','pixels')
set(handles.Cancel,'Position',[300 2 60 30])
set(handles.Cancel,'FontSize',15)
% set(hObject,'WindowKeyPressFcn',{'keyboard_callback',handles})%set keyboard action function

% Update handles structure
guidata(hObject, handles);
testNo=0;
testCancel=0;
testOK=1;
testinputstring=0;
icontype='quest';%default question icon (text input asked)
if exist('title','var')
    set(hObject, 'Name', title);
    switch title
        case {'CONFIRMATION'}
            icontype='';
        case 'ERROR'
            icontype='error';
            if exist('display_str','var')
                disp(display_str); %display the error message in the Matlab command window
            end
        case 'WARNING'
            icontype='warn';
        case 'INPUT_Y-N'
            icontype='quest';
            testCancel=0; %no cancel button
            testNo=1; % button No activated
        case 'INPUT_Y-N-Cancel'
            icontype='quest';
            testCancel=1; % cancel button introduced
            testNo=1; % button No activated
        case 'RULER'
            icontype='';
            testinputstring=1;
        case 'INPUT_TXT'
            testinputstring=1;
            testCancel=1; %no cancel button
        case 'INPUT_MENU'
            testinputstring=2;
            testCancel=1; %no cancel button
        case 'WAITING...'
            icontype='';
            testOK=0;
        otherwise
          %  testinputstring=1;
            icontype='';
            testinputstring=exist('default_answer','var');
    end
end
if exist('display_str','var')
    set(handles.text1, 'String', display_str);
end

if testinputstring==1
    set(handles.edit_box, 'Visible', 'on');
    if ~exist('default_answer','var');
        default_answer='';
    end
    set(handles.edit_box, 'String', default_answer);
    if exist('Position','var')&&numel(Position)>=2
        if iscell(default_answer)
            widthstring=max(max(cellfun('length',default_answer)),length(display_str));
            heightstring=size(default_answer,1);%nbre of expected lines
            set(handles.edit_box,'Max',2);
        else
            widthstring=max(length(default_answer),length(display_str));
            heightstring=1;
        end
        widthstring=max(widthstring,length(title)+20);
        boxsize=[10*widthstring 20*heightstring];%size of the display edit box
        set(handles.edit_box,'Units','pixels')
        set(handles.edit_box,'FontUnits','pixels')
        set(handles.edit_box,'FontSize',12)
        set(handles.edit_box,'Position',[5,34,boxsize(1),boxsize(2)])
        FigPos(3)=10+boxsize(1);
        FigPos(4)=56+boxsize(2);
        FigPos(2)=Position(2)-FigPos(4)-25;
        set(handles.figure1,'Position',FigPos)
    end
elseif testinputstring==2
    set(handles.edit_box,'style','listbox')
    set(handles.edit_box, 'Visible', 'on');
    set(handles.edit_box,'String', default_answer)
else
    set(handles.text1, 'Position', [0.15 0.3 0.85 0.7]);
end

% Show a question icon from dialogicons.mat - variables questIconData and questIconMap
if isequal(icontype,'')
    hima=findobj(handles.axes1,'Type','image');
    if ~isempty(hima)
        delete(hima)
    end
else
    load dialogicons.mat
    eval(['IconData=' icontype 'IconData;'])
    eval(['IconCMap=' icontype 'IconMap;'])
    questIconMap(256,:) = get(handles.figure1, 'Color');
    Img=image(IconData, 'Parent', handles.axes1);
    set(handles.figure1, 'Colormap', IconCMap);
    set(handles.axes1, ...
        'Visible', 'off', ...
        'YDir'   , 'reverse'       , ...
        'XLim'   , get(Img,'XData'), ...
        'YLim'   , get(Img,'YData')  ...
        );
end 
if testCancel
     set(handles.Cancel,'Visible','on')
else
    set(handles.Cancel,'Visible','off')
end
if testNo
     set(handles.No,'Visible','on')
else
    set(handles.No,'Visible','off')
end   
set(handles.figure1,'Units','normalized')
set(handles.edit_box,'Units','normalized')
if testOK
set(handles.figure1,'WindowStyle','modal')% Make% Make the GUI modal 
set(handles.OK,'Visible','on')
% UIWAIT makes msgbox_uvmat wait for user response (see UIRESUME)
uiwait(handles.figure1);
else
   set(handles.OK,'Visible','off') 
end


%------------------------------------------------------------------------
% --- Outputs from this function are returned to the command line.
function varargout = msgbox_uvmat_OutputFcn(hObject, eventdata, handles)
%------------------------------------------------------------------------
varargout{1}='Cancel';%deg
% Get default command line output from handles structure
if isfield(handles,'output')
    if isequal(handles.output,'Cancel')
        varargout{1}='Cancel';
    elseif isequal(handles.output,'No')
        varargout{1}='No';
    else
        if strcmp(get(handles.edit_box,'Style'),'listbox')
            varargout{1}=get(handles.edit_box,'Value');
        else
            varargout{1}=get(handles.edit_box,'String');
        end
        if isempty(varargout{1})
            varargout{1}='Yes';
        end
    end
    if strcmp(get(handles.edit_box, 'Visible'), 'on')
        varargout{2}=get(handles.edit_box,'String');
    end
    % The figure can be deleted now
    if strcmp(get(handles.OK,'Visible'),'on')
    delete(handles.figure1);
    else %case of WAITING... display (non modal)
        varargout{1}=hObject;
    end
end

%  delete(handles.figure1);

%------------------------------------------------------------------------ 
% --- Executes on button press in OK.
function OK_Callback(hObject, eventdata, handles)
%------------------------------------------------------------------------
handles.output = get(hObject,'String');
guidata(hObject, handles);% Update handles structure
uiresume(handles.figure1);

%------------------------------------------------------------------------
% --- Executes on button press in No.
function No_Callback(hObject, eventdata, handles)
%------------------------------------------------------------------------
handles.output='No';
guidata(hObject, handles);
uiresume(handles.figure1);

%------------------------------------------------------------------------
% --- Executes on button press in Cancel.
function Cancel_Callback(hObject, eventdata, handles)
%------------------------------------------------------------------------
handles.output = get(hObject,'String');
%handles.output = 'Cancel'
guidata(hObject, handles); % Update handles structure
% Use UIRESUME instead of delete because the OutputFcn needs
% to get the updated handles structure.
uiresume(handles.figure1);

%------------------------------------------------------------------------
% --- Executes when user attempts to close figure1.
function figure1_CloseRequestFcn(hObject, eventdata, handles)
%------------------------------------------------------------------------
% Cancel_Callback(hObject, eventdata, handles)
% if isequal(get(handles.figure1, 'waitstatus'), 'waiting')
%     % The GUI is still in UIWAIT, us UIRESUME
%     uiresume(handles.figure1);
% else
    % The GUI is no longer waiting, just close it
%     delete(handles.figure1);
% end
% handles.output = get(hObject,'String');
% %handles.output = 'Cancel'
% guidata(hObject, handles); % Update handles structure
% Use UIRESUME instead of delete because the OutputFcn needs
% to get the updated handles structure.
% uiresume(handles.figure1);


%------------------------------------------------------------------------
% --- Executes on key press over figure1 with no controls selected.
function figure1_KeyPressFcn(hObject, eventdata, handles)
%------------------------------------------------------------------------
% Check for "enter" or "escape"
if isequal(get(hObject,'CurrentKey'),'escape')
    % User said no by hitting escape
    handles.output = 'No';
    
    % Update handles structure
    guidata(hObject, handles);
    
    uiresume(handles.figure1);
end
if isequal(get(hObject,'CurrentKey'),'return')
    uiresume(handles.figure1);
end