www.gusucode.com > sigtools 工具箱matlab源码程序 > sigtools/@siggui/@siggui/siggui_warning.m
function siggui_warning(hObj, title, wstr, wid) %WARNING Display a warndlg % WARNING(H) Display a warndlg using 'Warning' as the title and lastwarn % as the string. % % WARNING(H, TITLE) Display a warndlg using TITLE as the title and lastwarn % as the string. % % WARNING(H, TITLE, WSTR) Display a warndlg using TITLE as the title and % WSTR as the string. % Copyright 1988-2011 The MathWorks, Inc. narginchk(1,4); if nargin < 4 if nargin < 3, [wstr, wid] = lastwarn; else wid = ''; end if nargin < 2 title = 'Warning'; end end % Reset mouse pointer and status line. hFig = get(hObj, 'FigureHandle'); setptr(hFig, 'arrow'); actualwid = wid; wid = fliplr(strtok(fliplr(wid), ':')); % When we have the ID system working for all warnings we can do this: % switch lower(wid), case {'syntaxchanged', 'pathwarning'} % NO OP otherwise if any(strcmpi(wstr, {'negative data ignored.'})) return; end h_warn = warndlg(wstr, title); % Pass the warning id to the user data for testing purposes set(h_warn,'UserData',actualwid) h = get(hObj, 'Handles'); if isfield(h, 'warn'), h.warn(end+1) = h_warn; else h.warn = h_warn; end set(hObj, 'Handles', h); end % [EOF]