function hDialog = dialog(varargin)
%DIALOG Create dialog figure.
%   H = DIALOG(...) returns a handle to a dialog box and is
%   basically a wrapper function for the FIGURE command.  In addition,
%   it sets the figure properties that are recommended for dialog boxes.
%   These properties and their corresponding values are:
%
%   'BackingStore'      - 'off'
%   'ButtonDownFcn'     - 'if isempty(allchild(gcbf)), close(gcbf), end'
%   'Colormap'          - []
%   'Color'             - DefaultUicontrolBackgroundColor
%   'DockControls'      - 'off'
%   'HandleVisibility'  - 'callback'
%   'IntegerHandle'     - 'off'
%   'InvertHardcopy'    - 'off'
%   'MenuBar'           - 'none'
%   'NumberTitle'       - 'off'
%   'PaperPositionMode' - 'auto'
%   'Resize'            - 'off'
%   'Visible'           - 'on'
%   'WindowStyle'       - 'modal'
%    
%   Any parameter from the figure command is valid for this command.
%
%   See also FIGURE, UIWAIT, UIRESUME

%   Copyright 1984-2004 The MathWorks, Inc.
%   $Revision: 5.28.4.2 $  $Date: 2004/08/16 01:52:20 $

if rem(nargin, 2) == 1
    error ('Must have param/value pairs.');
end

% -------- set the dialog background color
dlgColor = get(0, 'defaultuicontrolbackgroundcolor');

dlgMenubar   ='none';
backstore    ='off';
btndown      ='if isempty(allchild(gcbf)), close(gcbf), end';
colormap     =[];
dockctrls    ='off';
handlevis    ='callback';
inthandle    ='off';
invhdcpy     ='off';
numtitle     ='off';
ppmode       ='auto';
resize       ='off';
visible      ='on';
winstyle     ='modal';

extrapropval=varargin;

rmloc=[];

for lp=1:2:size(varargin,2),
  switch lower(varargin{lp}),
    case 'backingstore'     , backstore =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'buttondownfcn'    , btndown   =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'colormap'         , colormap  =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'color'            , dlgColor  =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'dockcontrols'     , dockctrls =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'handlevisibility' , handlevis =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'integerhandle'    , inthandle =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'inverthardcopy'   , invhdcpy  =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'menubar'          , dlgMenubar=varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'numbertitle'      , numtitle  =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'paperpositionmode', ppmode    =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'resize'           , resize    =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'visible'          , visible   =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
    case 'windowstyle'      , winstyle  =varargin{lp+1}; rmloc=[rmloc;lp lp+1];
  end
end

if ~isempty(rmloc),
  extrapropval(rmloc)=[];
end  

% Create the dialog
hDialog = figure('BackingStore'     ,backstore , ...
                 'ButtondownFcn'    ,btndown   , ...
                 'Color'            ,dlgColor  , ...
                 'Colormap'         ,colormap  , ...
                 'DockControls'     ,dockctrls , ...
                 'IntegerHandle'    ,inthandle , ...
                 'InvertHardcopy'   ,invhdcpy  , ...
                 'HandleVisibility' ,handlevis , ...
                 'Menubar'          ,dlgMenubar, ...
                 'NumberTitle'      ,numtitle  , ...
                 'PaperPositionMode',ppmode    , ...
                 'Resize'           ,resize    , ...
                 'Visible'          ,visible   , ...
                 'WindowStyle'      ,winstyle  , ...    
                  extrapropval{:}                ...
                 );