%'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-2020, 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