iterativedisplay.m

来自「matlab7 gads工具箱」· M 代码 · 共 63 行

function textArea = iterativedisplay(text, title, x, y, w, h) 
%ITERATIVEDISPLAY displays text in a scrollable text area
%
%  TEXTAREA = ITERATIVEDISPLAY returns a handle to the text area which
%  can use Java TextArea methods such as setText or append.
%
%  TEXTAREA = ITERATIVEDISPLAY(TEXT) displays TEXT at startup.
%
%  TEXTAREA = ITERATIVEDISPLAY(TEXT, TITLE) sets the title of 
%  the window to TITLE.
%
%  TEXTAREA = ITERATIVEDISPLAY(TEXT, TITLE, x, y, w, h) sets the
%  location and size of the window.

%   Copyright 2004 The MathWorks, Inc.
%   $Revision: 1.3 $  $Date: 2004/01/16 16:51:01 $

import com.mathworks.mwswing.*;
import javax.swing.*;
import javax.swing.border.*
import java.awt.*

if nargin < 6
    h = 300;
end
if nargin < 5
    w = 650;
end
if nargin < 4
    y = 400;
end  
if nargin < 3  
    x = 400;
end
if nargin < 2  
    title = '';
end
if nargin < 1  
   text = ''; 
end
    
idFrame = MJFrame(title);
idFrame.setBounds(x, y, w, h);
cp = idFrame.getContentPane;
cp.setLayout(BorderLayout);
textArea = MJTextArea;
textArea.setEditable(false);
textArea.setText(text);
set(textArea, 'Parent', 0);
taSP = MJScrollPane(textArea);
cp.add(taSP);
set(idFrame,'WindowClosingCallback', {@closeWindow, idFrame, textArea});
idFrame.setVisible(true);

%--------------------------------------------------------------------------
function closeWindow(obj, evd, h, ta)
if nargin > 2 && ~isempty(h) && ishandle(h)
    if ~isempty(ta) && ishandle(ta)
        set(ta, 'Parent', []);
    end
    h.dispose;
end