ファイル名：EdText0.m

function edtext0
% edtextを使ってFigure中にあるTextオブジェクトをFigure上で編集可能にする

fprintf('Figure中にあるTextオブジェクトをFigure上で編集可能にします\n');
fprintf('終わったらFigure上で''e''を入力して下さい\n');
FIG = gcf;
set(FIG,'Pointer','fullcrosshair');
set(findall(FIG,'Type','text'),'ButtonDownFcn','edtext');
set(FIG,'WindowButtonDownFcn','edtext(''hide'')');
KEYCOM = [ 'KEY = get(gcf,''CurrentCharacter''); if KEY==''e'' | KEY==''E'', set(gcf,''WindowButtonDownFcn'','''',''Pointer'',''arrow'',''KeyPressFcn'','''');',...
           ' h1 = findobj(gcf,''Type'',''text''); set(h1,''ButtonDownFcn'',''''); clear KEY h1, end'];
set(FIG,'KeyPressFcn',KEYCOM);