[Octave-cvsupdate] octave-forge/extra/jhandles/inst dialog.m, NONE, 1.1

[Michael G. <gof...@us...>]

Update of /cvsroot/octave/octave-forge/extra/jhandles/inst
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv23810/inst

Added Files:
	dialog.m 
Log Message:
add "dialog" function (not really functional yet)

--- NEW FILE: dialog.m ---
## Copyright (C) 2007 Michael Goffioul
##
## This program 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.
##
## This program 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 for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
## 02110-1301  USA

function [ h ] = dialog (varargin)

# TODO: these properties should be added back, when supported
#    "BackingStore", "off", ...
#    "ButtonDownFcn", "if isempty(allchild(gcbf)), close(gcbf), end", ...
#    "DockControls", "off", ...
#    "InvertHardcopy", "off", ...
#    "MenuBar", "none", ...
#    "PaperPositionMode", "auto", ...
#    "Resize", "off", ...
#    "WindowStyle", "modal", ...

  args = {
    "Colormap", [], ...
    "Color", get(0, "DefaultUicontrolBackgroundColor"), ...
    "HandleVisibility", "callback", ...
    "IntegerHandle", "off", ...
    "NumberTitle", "off", ...
    "Toolbar", "none", ...
    "Visible", "on", ...
    varargin{:}};

  tmp = figure(args{:});
  if (nargout > 0)
    h = tmp;
  endif

endfunction