vb_text_area

 Show text by using editbox
 [USAGE]
    h = vb_text_area(<title><,text>);
 [IN]
    title : figure title
     text : string to be shown
 [OUT]
         h : figure handle
    edit_h : editbox component handle

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function [h, edit_h] = vb_text_area(title, text)
0002 % Show text by using editbox
0003 % [USAGE]
0004 %    h = vb_text_area(<title><,text>);
0005 % [IN]
0006 %    title : figure title
0007 %     text : string to be shown
0008 % [OUT]
0009 %         h : figure handle
0010 %    edit_h : editbox component handle
0011 %
0012 % Copyright (C) 2011, ATR All Rights Reserved.
0013 % License : New BSD License(see VBMEG_LICENSE.txt)
0014 
0015 %
0016 % --- Previous check
0017 %
0018 if ~exist('title', 'var')
0019     error('title is a required parameter.');
0020 end
0021 if ~exist('text', 'var')
0022     error('text is a required parameter.');
0023 end
0024 
0025 %
0026 % --- Main Procedure
0027 %
0028 h = openfig('vb_text_area.fig');
0029 H = guihandles(h);
0030 
0031 edit_h = H.text_edit;
0032 
0033 set(h, 'Name', title);
0034 set(edit_h, 'String', text);