source: Roms_tools/mexcdf/netcdf_toolbox/netcdf/ncutility/guido.m @ 1

function theResult = guido(theStruct, theFigureName, isModal, thePrecision)

% guido -- Get info via Matlab struct.
%  guido('demo') demonstrates itself, using the commands
%   given below.
%  guido(theStruct, 'theFigureName') presents a dialog
%   representing the fieldnames and values of theStruct,
%   a Matlab "struct" which must be compatible with
%   "getinfo" and "setinfo".  If theStruct contains
%   embedded structs, nested dialogs are produced for
%   them as needed.  The empty-matrix [] is returned
%   if the main "Cancel" button is pressed.  Also, use
%   "Cancel" to escape a sub-dialog without saving its
%   most recent changes.  Fields named "help_..." are
%   shown in a separate dialog.  If theFigureName is
%   not given or is empty, the external name of
%   theStruct will be used.
%  guido(theStruct, 'theFigureName', isModal) uses modal
%   dialogs on non-PCWIN machines if "isModal" evaluates
%   to logical(1) TRUE.  The default is to use non-modal
%   dialogs, which allows interactions with other windows,
%   except the Matlab command window.  In either case, the
%   the routine prevents dialogs from being dismissed out
%   of sequence.
%  guido(theStruct, 'theFigureName', isModal, thePrecision)
%   uses thePrecision (default = 4) when displaying numbers
%   in an "edit" control.
%
% Commands used in the demonstration:
%
%   s.help = help(mfilename);
%   s.anEdit = 'some text';
%   s.aNumber = pi;
%   s.aCheckbox = {'checkbox' 0};
%   s.aRadiobutton = {'radiobutton' 0};
%   s.aPopupmenu = {{'red', 'blue', 'green'}, 1};
%   s.aSubdialog.aPopupmenu = {{10 20 30}, 1};
%   guido(s, [mfilename ' demo'])

% Note: the present m-file can be renamed without
%  requiring any changes to the Matlab code itself.
 
% Copyright (C) 1999 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 15-Dec-1999 13:39:54.
% Updated    25-Jan-2000 11:47:42.

persistent CURRENT_STRUCT
persistent CURRENT_FIGURES

LF = char(10);
CR = char(13);
CRLF = [CR LF];
BABY_BLUE = [8 10 10]/10;

if nargout > 0, theResult = []; end

% Launch a demo if this is not a callback.

if nargin < 1 & isempty(gcbo)
        help(mfilename)
        ans = feval(mfilename, 'demo');
        if nargout > 0
                theResult = CURRENT_STRUCT;
        else
                assignin('caller', 'ans', CURRENT_STRUCT)
        end
        return
end

% Do the demo.

if nargin > 0 & isequal(theStruct, 'demo')
        if nargin < 2, theFigureName = [mfilename ' demo']; end
        s = [];
        s.help = help(mfilename);
        s.anEdit = 'some text';
        s.aNumber = pi;
        s.aCheckbox = {'checkbox' 0};
        s.aRadiobutton = {'radiobutton' 0};
        s.aPopupmenu = {{'red', 'blue', 'green'}, 1};
        s.aSubdialog.aPopupmenu = {{10 20 30}, 1};
%       s.aSubdialog.bSubdialog.bPopupmenu = {{100 200 300}, 1};
        disp(s)

        assign([mfilename '_demo'], s)
        result = feval(mfilename, eval([mfilename '_demo']), '', 0);
        assign([mfilename '_result'], result)
        
        if ~isempty(eval([mfilename '_result']))
                result = feval(mfilename, eval([mfilename '_result']), '', 0);
                assign([mfilename '_result'], result)
        end
        if nargout > 0
                assign('theResult', [mfilename '_result'])
        end
        return
end

if nargin > 0 & ischar(theStruct)
        theCommand = lower(theStruct);
end

if 0 & nargin > 0 & ischar(theStruct)
        switch theCommand
        case '_keypress_'
                theKey = get(gcbf, 'CurrentCharacter');
                if any(abs(theKey) < 32)
                        theCommand = '_okay_';
                end
        end
end

% Dismiss dialogs in sequence.

if nargin > 0 & ischar(theStruct)
        switch theCommand
        case {'_okay_', '_cancel_'}
                CURRENT_FIGURES(~ishandle(CURRENT_FIGURES)) = [];
                if ~isempty(CURRENT_FIGURES) & gcbf ~= CURRENT_FIGURES(end)
                        figure(CURRENT_FIGURES(end))
                        h = helpdlg('Dismiss dialogs in sequence.', 'Please...');
                        tic
                        while ishandle(h) & toc < 3
                                drawnow
                        end
                        if ishandle(h), delete(h), end
                        return
                end
        end
end

% Process a command: okay or cancel.

if nargin > 0 & ischar(theStruct)
        switch theCommand
        case '_okay_'
                CURRENT_STRUCT = get(gcbf, 'UserData');
                theControls = findobj(gcbf, 'Type', 'uicontrol', 'Tag', mfilename);
                theControls = sort(theControls);
                for i = 2:2:length(theControls)
                        theField = get(theControls(i-1), 'String');
                        theControl = theControls(i);
                        theStyle = get(theControl, 'Style');
                        switch theStyle
                        case 'pushbutton'
                                okay = 0;
                        case 'checkbox'
                                theValue = get(theControl, 'Value');
                                okay = 1;
                        case 'radiobutton'
                                theValue = get(theControl, 'Value');
                                okay = 1;
                        case 'edit'
                                if isequal(theField, 'help')
                                        okay = 0;
                                else
                                        theValue = eval(get(theControl, 'String'));
                                        okay = 1;
                                end
                        case 'popupmenu'
                                theValue = get(theControl, 'Value');
                                okay = 1;
                        otherwise
                                okay = 0;
                                warning([' ## Unsupported control style: ' theStyle])
                        end
                        if okay
                                CURRENT_STRUCT = setinfo(CURRENT_STRUCT, theField, theValue);
                        end
                end
                if ~isempty(CURRENT_FIGURES) & any(CURRENT_FIGURES == gcbf)
                        CURRENT_FIGURES(CURRENT_FIGURES == gcbf) = [];
                end
                delete(gcbf)
        case '_cancel_'
                CURRENT_STRUCT = [];
                if ~isempty(CURRENT_FIGURES) & any(CURRENT_FIGURES == gcbf)
                        CURRENT_FIGURES(CURRENT_FIGURES == gcbf) = [];
                end
                delete(gcbf)
        otherwise
                disp([' ## Unknown command: ' theCommand])
        end
        return
end

% Build the dialog if it does not already exist.

if nargin > 0 & isstruct(theStruct)
        theStruct = setinfo(theStruct);
        if nargin < 2 | isempty(theFigureName)
                theFigureName = inputname(1);
                if isempty(theFigureName)
                        theFigureName = 'unnamed';
                end
        end
        if isempty(theFigureName), theFigureName = mfilename; end
        
        f = findobj('Type', 'figure', 'Name', theFigureName, 'Tag', mfilename);
        if any(f)
                figure(f)
                return
        end
        
        if nargin < 3, isModal = 0; end
        if nargin < 4, thePrecision = 4; end
        
        if all(isModal(:)) & ~any(findstr(computer, 'PCWIN'))
                theWindowStyle = 'modal';
        else
                theWindowStyle = 'normal';
        end
        theFigures = findobj('Type', 'figure', 'Tag', mfilename);
        theFigure = figure( ...
                                                'Name', theFigureName, ...
                                                'WindowStyle', theWindowStyle, ...
                                                'Visible', 'off', ...
                                                'KeyPressFcn', [mfilename ' _keypress_'], ...
                                                'CloseRequestFcn', [mfilename ' _cancel_'], ...
                                                'Tag', mfilename);
        if any(theFigures)
                pos = get(theFigures(1), 'Position');
                left = pos(1);
                top = pos(2) + pos(4);
                for i = 2:length(theFigures)
                        p = get(theFigures(i), 'Position');
                        left = max(pos(1), p(1));
                        top = min(top, p(2) + p(4));
                end
                thePosition = get(theFigure, 'Position');
                thePosition(1) = left + 20;
                thePosition(2) = top - thePosition(4) - 20;
                set(theFigure, 'Position', thePosition)
        end
        theFrame = uicontrol( ...
                                                'Style', 'frame', ...
                                                'Units', 'normalized', ...
                                                'Position', [0 0 1 1], ...
                                                'BackgroundColor', BABY_BLUE);
        theControls = [];
        theStruct = setinfo(theStruct);   % Canonical form.
        theFields = fieldnames(theStruct);
        for i = 1:length(theFields)
                theField = theFields{i};
                theValue = getfield(theStruct, theField);
                switch class(theValue)
                case 'cell'
                        switch class(theValue{1})
                        case 'cell'
                                if length(theValue) > 1
                                        theSetting = theValue{2};
                                else
                                        theSetting = 1;
                                        theValue = {theValue, theSetting};
                                        theStruct = setfield(theStruct, theField, theValue);
                                end
                                theStyle = 'popupmenu';
                        case 'char'
                                switch theValue{1}
                                case 'checkbox'
                                        theStyle = 'checkbox';
                                        if length(theValue) > 1
                                                theSetting = theValue{2};
                                        else
                                                theSetting = 0;
                                        end
                                case 'radiobutton'
                                        theStyle = 'radiobutton';
                                        if length(theValue) > 1
                                                theSetting = theValue{2};
                                        else
                                                theSetting = 0;
                                        end
                                otherwise
                                        error([' ## Incompatible control style: ' theValue{1}])
                                end
                        end
                        theControls(end+1) = uicontrol( ...
                                                'Style', 'text', ...
                                                'String', theField);
                        theControls(end+1) = uicontrol( ...
                                                'Style', theStyle, ...
                                                'String', theValue{1}, ...
                                                'Value', theSetting);
                case 'char'
                        f = findstr(theField, 'help_');
                        if ~any(f) | f(1) ~= 1
                                theControls(end+1) = uicontrol( ...
                                                        'Style', 'text', ...
                                                        'String', theField);
                                theControls(end+1) = uicontrol( ...
                                                        'Style', 'edit', ...
                                                        'Max', 1000, ...
                                                        'String', ['''' theValue '''']);
                        else
                                theHintName = [theField ' ' theFigureName];
                                theCallback = ...
                                        ['hint(get(gcbo, ''UserData''), ''' theHintName ''')'];
                                theControls(end+1) = uicontrol( ...
                                                        'Style', 'text', ...
                                                        'String', theField);
                                theControls(end+1) = uicontrol( ...
                                                        'Style', 'pushbutton', ...
                                                        'Callback', theCallback, ...
                                                        'UserData', theValue, ...
                                                        'String', 'Help...');
                        end
                case 'double'
                        theControls(end+1) = uicontrol( ...
                                                'Style', 'text', ...
                                                'String', theField);
                        theControls(end+1) = uicontrol( ...
                                                'Style', 'edit', ...
                                                'Max', 1000, ...
                                                'String', mat2str(theValue, thePrecision));
                case 'struct'
                        theCallback = ...
                                [mfilename '(get(gcbo, ''UserData''), ''' theField ''')'];
                        theControls(end+1) = uicontrol( ...
                                                'Style', 'text', ...
                                                'String', theField);
                        theControls(end+1) = uicontrol( ...
                                                'Style', 'pushbutton', ...
                                                'String', 'More...', ...
                                                'Callback', theCallback, ...
                                                'UserData', theValue);
                otherwise
                        disp(class(theValue))
                        error([' ## Incompatible data type. ' class(theValue)])
                end
        end
        set(theControls(1:2:end), ...
                        'HorizontalAlignment', 'right', ...
                        'BackgroundColor', BABY_BLUE)
        theControls(end+1) = uicontrol( ...
                        'Style', 'pushbutton', ...
                        'String', 'Cancel', ...
                        'BackgroundColor', [10 2 2]/10, ...
                        'Callback', [mfilename ' _cancel_']);
        theControls(end+1) = uicontrol( ...
                        'Style', 'pushbutton', ...
                        'String', 'Okay', ...
                        'BackgroundColor', [2 10 2]/10, ...
                        'Callback', [mfilename ' _okay_']);
        set(theControls, 'Tag', mfilename)
        theLayout = [];
        for i = 1:length(theControls)/2
                theLayout = [(1:2:length(theControls));
                                        (2:2:length(theControls))].';
        end
        theLayout = theLayout(:, [1 2 2]);
        uilayout(theControls, theLayout, [1 1 18 18]/20)
        pos = get(0, 'DefaultUIControlPosition');
        width = pos(3) * 6;
        height = 0.5 * length(theControls) * pos(4) * 20 / 15;
        thePosition = get(theFigure, 'Position');
        thePosition(2) = thePosition(2) + thePosition(4) - height;
        thePosition(3) = width;
        thePosition(4) = height;
        set(theFigure, 'Position', thePosition, 'Visible', 'on', ...
                                        'UserData', theStruct)
        if any(CURRENT_FIGURES)
                CURRENT_FIGURES(~ishandle(CURRENT_FIGURES)) = [];
        end
        CURRENT_FIGURES(end+1) = theFigure;
        
% Wait here for the new figure to be deleted.  By then, it will
%  already have placed its contents in the persistent CURRENT_STRUCT
%  item.

        waitfor(theFigure)
        
% Now get the new info from CURRENT_STRUCT and update.
        
        theNewStruct = CURRENT_STRUCT;
        
        theFieldName = theFigureName;
        
        if length(theFigures) < 1
                theStruct = theNewStruct;
        else
                theFigure = gcf;
                theStruct = get(theFigure, 'UserData');
                if ~isfield(theStruct, theFieldName) & ~isequal(theField, 'help')
                        disp([' ## No such field: ' theField])
                elseif ~isempty(theNewStruct)
                        theStruct = setfield(theStruct, theFieldName, theNewStruct);
                        set(theFigure, 'UserData', theStruct)
                        f = findobj(theFigure, 'Type', 'uicontrol', 'Tag', mfilename);
                        f = sort(f);
                        for i = 2:2:length(f)
                                theField = get(f(i-1), 'String');
                                if isequal(theField, theFieldName)
                                        set(f(i), 'UserData', theNewStruct)
                                        break
                                end
                        end
                end
        end
        
        if nargout > 0
                theResult = theStruct;
        else
                assignin('caller', 'ans', theStruct);
        end
        
end

% ---------- assign ----------%

function assign(theName, theValue)

% assign -- Assign a value to a name.
%  assign('theName', theValue) assigns theValue
%   to 'theName' in the caller's workspace. It
%   avoids the need to construct an explicit
%   assignment statement to be eval-ed.
 
% Copyright (C) 1997 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 28-May-1998 00:43:58.

if nargin < 2, help(mfilename), return, end

% The following scheme permits the assignment
%  of items that have complicated subscripts,
%  such as "a{1}(2).b{3}.c = pi".

hasAns = (evalin('caller', 'exist(''ans'', ''var'')') == 1);
if hasAns
        ans = evalin('caller', 'ans');   % Save.
end
assignin('caller', 'ans', theValue)
evalin('caller', [theName ' = ans;'])
evalin('caller', 'clear(''ans'')')
if hasAns
        assignin('caller', 'ans', ans)   % Restore.
end

% ---------- getinfo ----------%

function [theResult, isOkay] = getinfo(theInfo, theField)

% getinfo -- Get field value from an "Info" struct.
%  getinfo(theInfo, 'theField') returns the current
%   value of 'theField' in theInfo, a struct that
%   is compatible with the "uigetinfo" function.
%   Non-existent fields return the empty-matrix.
%  [theResult, isOkay] = ... returns isOkay = 0
%   if an error occurred; otherwise, non-zero.
%  getinfo(theInfo) returns a struct containing
%   the fields and current selections of theInfo.
 
% Copyright (C) 1997 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 07-Feb-1998 09:45:56.
% Updated    14-Nov-2001 15:07:51.

if nargout > 0, theResult = []; end
if nargin < 1, help(mfilename), return, end

% Get current selections, recursively if needed.

if nargin < 2
        result = theInfo;
        theFields = fieldnames(result);
        isOkay = 1;
        for i = 1:length(theFields)
                [theValue, okay] = getinfo(theInfo, theFields{i});
                isOkay = isOkay & okay;
                switch class(theValue)
                case 'struct'
                        [res, okay] = getinfo(theValue);
                        isOkay = isOkay & okay;
                        result = setfield(result, theFields{i}, res);
                otherwise
                        result = setfield(result, theFields{i}, theValue);
                end
        end
        if nargout > 0
                theResult = result;
        else
                disp(result)
        end
        return
end

% Note: Matlab 6+ does not allow "getfield(a, 'b.c')",
%  unlike previous versions.  We need to parse the
%  'b.c' ourselves, then call "getfield(a, 'b', 'c')".

if ischar(theField) & any(theField == '.')
        theField = [theField '.'];
        f = find(theField == '.');
        theParts = cell(1, length(f));
        k = 0;
        for i = 1:length(f)
                theParts{i} = theField(k+1:f(i)-1);
                k = f(i);
        end
        theField = theParts;
elseif ~iscell(theField)
        theField = {theField};
end

theValue = [];

isOkay = 1;
% eval('theValue = getfield(theInfo, theField);', 'isOkay = 0;');
eval('theValue = getfield(theInfo, theField{:});', 'isOkay = 0;');

result = theValue;

if all(isOkay)
    switch class(theValue)
    case 'cell'
        if isequal(theValue{1}, 'checkbox') | ...
                                isequal(theValue{1}, 'radiobutton')
                        if length(theValue) < 2, theValue{2} = 0; end
            result = theValue{2};
        else
                        if ~iscell(theValue{1}), theValue = {theValue{1}}; end
                        if length(theValue) < 2, theValue{2} = 1; end
            result = theValue{1}{theValue{2}};
        end
    otherwise
        result = theValue;
    end
end

if nargout > 0
    theResult = result;
else
    disp(result)
end

% ---------- setinfo ----------%

function [theResult, isOkay] = setinfo(theInfo, theField, theValue)

% setinfo -- Set field value in an "Info" struct.
%  setinfo(theInfo, 'theField', theValue) updates
%   'theField' to theValue in theInfo, a struct
%   that is compatible with the "uigetinfo" function.
%   If 'theField' does not exist, it will be created
%   to receive theValue.
%  [theResult, isOkay] = ... returns isOkay = 0
%   if an error occurred; otherwise, non-zero.
%  setinfo(theInfo, 'theField') invokes "getinfo".
%  setinfo(theInfo) adjusts theInfo to canonical
%   form.
 
% Copyright (C) 1997 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 07-Feb-1998 09:45:56.
% Updated    14-Nov-2001 15:21:24.

if nargout > 0, theResult = []; end
if nargin < 1, help(mfilename), return, end

% Put all fields into canonical form.

if nargin < 2
        result = theInfo;
        theFields = fieldnames(result);
        isOkay = 1;
        for i = 1:length(theFields)
                theValue = getfield(result, theFields{i});
                switch class(theValue)
                case 'struct'
                        [res, okay] = setinfo(theValue);
                        isOkay = isOkay & okay;
                        result = setfield(result, theFields{i}, res);
                case 'cell'
                        if length(theValue) == 1 & ...
                                (isequal(theValue{1}, 'radiobutton') | ...
                                isequal(theValue{1}, 'checkbox'))
                                theValue{2} = 0;
                                result = setfield(result, theFields{i}, theValue);
                        elseif length(theValue) == 1 & iscell(theValue{1})
                                theValue{2} = 1;
                                result = setfield(result, theFields{i}, theValue);
                        elseif ~isequal(theValue{1}, 'radiobutton') & ...
                                        ~isequal(theValue{1}, 'checkbox')
                                theValue{1} = {theValue{1}};
                                theValue{2} = 1;
                        else
                                theValue;
                        end
                otherwise
                end
        end
        if nargout > 0, theResult = result; end
        return
end

[theVal, isOkay] = getinfo(theInfo, theField);

if nargin == 2
    if nargout > 0
        theResult = theVal;
    else
        disp(theVal)
    end
    return
end

if ischar(theField) & any(theField == '.')
        theField = [theField '.'];
        f = find(theField == '.');
        theParts = cell(1, length(f));
        k = 0;
        for i = 1:length(f)
                theParts{i} = theField(k+1:f(i)-1);
                k = f(i);
        end
        theField = theParts;
elseif ~iscell(theField)
        theField = {theField};
end

result = theInfo;

if ~all(isOkay)   % Create a new field.
    isOkay = 1;
% eval('result = setfield(theInfo, theField, theValue);', 'isOkay = 0;');
    eval('result = setfield(theInfo, theField{:}, theValue);', 'isOkay = 0;');
else   % Update an existing field.
        isokay = 1;
% eval('theVal = getfield(theInfo, theField);', 'isOkay = 0;');
        eval('theVal = getfield(theInfo, theField{:});', 'isOkay = 0;');
        if ~isOkay, theVal = []; end
    switch class(theVal)
        case 'cell'
        if isequal(theVal{1}, 'checkbox') | isequal(theVal{1}, 'radiobutton')
                        % Do nothing.
                elseif ~iscell(theVal{1})
                        theVal{1} = {theVal{1}};
                        theVal{2} = 1;
                end
        end
    switch class(theVal)
    case 'cell'
        if isequal(theVal{1}, 'checkbox') | isequal(theVal{1}, 'radiobutton')
            theVal{2} = any(any(theValue));
        else
                        switch class(theValue)
                        case 'double'
                                if theValue > 0 & theValue <= length(theVal{1})
                                        theVal{2} = theValue;
                                end
                        otherwise
                flag = 0;
                    for i = 1:length(theVal{1})
                        if isequal(theVal{1}{i}, theValue)
                            theVal{2} = i;
                            flag = 1
                        end
                    end
                    if ~any(flag)   % Append.
                        theVal{1} = [theVal(:); {theValue}];
                        theVal{2} = length(theVal{1});
                    end
                        end
% else
% theVal{1} = [{theValue}; theVal(:)];
        end
    otherwise
        theVal = theValue;
    end
    isOkay = 1;
% eval('result = setfield(theInfo, theField, theVal);', 'isOkay = 0;');
    eval('result = setfield(theInfo, theField{:}, theVal);', 'isOkay = 0;');
end

if nargout > 0
    theResult = result;
else
    disp(result)
end

% ---------- uilayout ----------%

function theResult = uilayout(theControls, theLayout, thePosition)

% uilayout -- Layout for ui controls.
%  uilayout(theControls, theLayout) positions theControls
%   according to theLayout, an array whose entries, taken
%   in sorted order, define the rectangular extents occupied
%   by each control.  TheLayout defaults to a simple vertical
%   arrangement of theControls.  A one-percent margin is
%   imposed between controls.  To define a layout region
%   containing no control, use Inf.
%  uilayout(..., thePosition) confines the controls to the
%   given normalized position of the figure.  This syntax
%   is useful for embedding controls within a frame.
%  uilayout (no argument) demonstrates itself.
 
% Copyright (C) 1997 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 18-Apr-1997 08:07:54.
% Updated    27-Dec-1999 06:03:57.

if nargin < 1, theControls = 'demo'; help(mfilename), end

if strcmp(theControls, 'demo')
   theLayout = [1 2;
                3 4;
                5 Inf;
                5 6;
                5 Inf;
                7 8;
                9 10;
                11 12;
                13 14];
   [m, n] = size(theLayout);
   thePos = get(0, 'DefaultUIControlPosition');
   theSize = [n+2 m+2] .* thePos(3:4);
   theFigure = figure('Name', 'UILayout', ...
                      'NumberTitle', 'off', ...
                      'Resize', 'off', ...
                      'Units', 'pixels');
   thePos = get(theFigure, 'Position');
   theTop = thePos(2) + thePos(4);
   thePos = thePos .* [1 1 0 0] + [0 0 theSize];
   thePos(2) = theTop - (thePos(2) + thePos(4));
   set(theFigure, 'Position', thePos);
   theFrame = uicontrol('Style', 'frame', ...
                        'Units', 'normalized', ...
                        'Position', [0 0 1 1], ...
                        'BackgroundColor', [0.5 1 1]);
   theStyles = {'checkbox'; 'text'; ...
                'edit'; 'text'; ...
                'listbox'; 'text'; ...
                'popupmenu'; 'text'; ...
                'pushbutton'; 'text'; ...
                'radiobutton'; 'text'; ...
                'text'; 'text'};
   theStrings = {'Anchovies?', '<-- CheckBox --', ...
                 'Hello World!', '<-- Edit --', ...
                 {'Now', 'Is', 'The' 'Time' 'For' 'All' 'Good', ...
                  'Men', 'To', 'Come' 'To' 'The' 'Aid' 'Of', ...
                  'Their' 'Country'}, ...
                 '<-- ListBox --', ...
                 {'Cheetah', 'Leopard', 'Lion', 'Tiger', 'Wildcat'}, ...
                 '<-- PopupMenu --', ...
                 'Okay', '<-- PushButton --', ...
                 'Cream?', '<-- RadioButton --', ...
                 'UILayout', '<-- Text --'};
   theControls = zeros(size(theStyles));
   for i = 1:length(theStyles)
      theControls(i) = uicontrol('Style', theStyles{i}, ...
                                 'String', theStrings{i}, ...
                                 'Callback', ...
                                 'disp(int2str(get(gcbo, ''Value'')))');
   end
   set(theControls(1:2:length(theControls)), 'BackGroundColor', [1 1 0.5])
   set(theControls(2:2:length(theControls)), 'BackGroundColor', [0.5 1 1])
   thePosition = [1 1 98 98] ./ 100;
   uilayout(theControls, theLayout, thePosition)
   set(theFrame, 'UserData', theControls)
   theStyles, theLayout, thePosition
   if nargout > 0, theResult = theFrame; end
   return
end

if nargin < 2, theLayout = (1:length(theControls)).'; end
if nargin < 3, thePosition = [0 0 1 1]; end

a = theLayout(:);
a = a(finite(a));
a = sort(a);
a(diff(a) == 0) = [];

b = zeros(size(theLayout));

for k = 1:length(a)
   b(theLayout == a(k)) = k;
end

[m, n] = size(theLayout);

set(theControls, 'Units', 'Normalized')
theMargin = [1 1 -2 -2] ./ 100;
for k = 1:min(length(theControls), length(a))
   [i, j] = find(b == k);
   xmin = (min(j) - 1) ./ n;
   xmax = max(j) ./ n;
   ymin = 1 - max(i) ./ m;
   ymax = 1 - (min(i) - 1) ./ m;
   thePos = [xmin ymin (xmax-xmin) (ymax-ymin)] + theMargin;
   thePos = thePos .* thePosition([3 4 3 4]);
   thePos(1:2) = thePos(1:2) + thePosition(1:2);
   set(theControls(k), 'Position', thePos);
end

if nargout > 0, theResult = theControls; end

% ---------- hint ----------%

function theResult = hint(theText, theFigureName)

% hint -- Post a message.
%  hint('theText', 'theFigureName') posts 'theText' in the
%   figure named 'theFigureName', which will be created if
%   it does not already exist.  The text can be a string
%   separated by newlines, or a cell of strings.
%  hint('demo') demonstrates itself.
 
% Copyright (C) 1999 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 17-Dec-1999 11:31:03.
% Updated    04-Jan-2000 13:40:41.

if nargin < 1, theText = 'demo'; end

if isequal(theText, 'demo')
        hint(help(mfilename), 'Hint Hint')
        return
end

CR = char(13);
LF = char(10);
CRLF = [CR LF];

if nargout > 0, theResult = []; end
if nargin < 1
        help(mfilename)
        theText = help(mfilename);
        for i = 1:3
                theText = [theText theText];
        end
end
if nargin < 2, theFigureName = 'Help'; end

if min(size(theText)) == 1
        theText = theText(:).';
end

if ischar(theText) & size(theText, 1) == 1
        theText = strrep(theText, CRLF, CR);
        theText = strrep(theText, LF, CR);
        if theText(end) ~= CR, theText(end+1) = CR; end
        if theText(1) ~= CR, theText = [CR theText]; end
        f = find(theText == CR);
        if any(f)
                s = cell(length(f)-1, 1);
                for i = 1:length(f)-1
                        if f(i)+1 < f(i+1)-1
                                s{i} = theText(f(i)+1:f(i+1)-1);
                        else
                                s{i} = ' ';
                        end
                end
                theText = s;
        end
end

theLineCount = size(theText, 1);

theFigure = findobj( ...
                                        'Type', 'figure', ...
                                        'Name', theFigureName, ...
                                        'Tag', [mfilename ' hint'] ...
                                        );
if isempty(theFigure)
        theFigures = findobj('Type', 'figure');
        if any(theFigures)
                thePosition = get(gcf, 'Position');
                left = thePosition(1);
                top = thePosition(2) + thePosition(4);
        end
        theFigure = figure( ...
                                        'Name', theFigureName, ...
                                        'Tag', mfilename, ...
                                        'Visible', 'off' ...
                                        );
        if any(theFigures)
                set(theFigure, 'Position', thePosition + [20 -20 0 0])
        end
end

delete(get(theFigure, 'Children'))

theColor = [9 9 9]/10;
theFontName = 'Courier';
if any(findstr(lower(computer), 'mac'))
        theFontName = 'Monaco';
end
theFontSize = 12;
theListBox = uicontrol( ...
                                theFigure, ...
                                'Style', 'listbox', ...
                                'String', theText, ...
                                'FontName', theFontName, ...
                                'FontSize', theFontSize, ...
                                'HorizontalAlignment', 'left', ...
                                'BackgroundColor', theColor ...
                                );

uilayout(theListBox, 1)

set(theFigure, 'Visible', 'on')
figure(theFigure)

if nargout > 0
        theResult = theFigure;
end