function make_user_text(hSynLowerLeftPanel,UserTextPos,WXWYInches,...
    usertextstate)
    SYNUD=getSynopsisUserData();
    GUIFont=SYNUD.Preferences.GUIFont;
    UserEditBackColor=SYNUD.UserEdit.Color.Back;
 
    WYButtonNorm=min(0.3/WXWYInches(2),UserTextPos(4)/3);
    UserTextPos(4)=UserTextPos(4)-WYButtonNorm;
    UTUD.DefaultString='User Types Text Here';
    hUserText=uicontrol('Parent',hSynLowerLeftPanel,'style','edit',...
        'units','normalized','position',UserTextPos,...
        'Tag','SynopsisUserText','Min',1,'Max',1000,...
        'FontName',GUIFont.Name,'FontSize',GUIFont.Size,...
        'BackgroundColor',UserEditBackColor);    
    jUserText=findjobj(hUserText)
    jUserText.FocusGainedCallback=@userTextSelectCallback;
    jUserText.FocusLostCallback=@userTextDeselectCallback;
 
    UTUD.hhUserText=handle(hUserText)
    UTUD.hUserTextString=findprop(UTUD.hhUserText,'String');
    UTUD.hListenUserTextString=handle.listener(UTUD.hhUserText,...
        UTUD.hUserTextString,'PropertyPostSet',...
        'listenerCallbackToSetAcceptDiscardLabels()');
    set(hUserText,'UserData',UTUD);
....
end
 
function userTextSelectCallback()
    %this needs to trigger whenever the user selects the user text box (an 
    %edit uicontrol)
    disp('userTextSelectCallback()');
    hUserText=findobj('Tag','SynopsisUserText');
    userTextString=get(hUserText,'String');
    UTUD=get(hUserText,'UserData');    
    if(strcmpi(userTextString,UTUD.DefaultString))
        %if/when you select the userText box and it has the default string
        %("User Types Text Here") then this removes the default string 
        %so the user doesn't have to backspace it away
        set(hUserText,'String',[]);
        userTextString=[];
    end
end
 
function userTextDeselectCallback()
    %this needs to trigger whenever the user deselects the user text box 
    %(an edit uicontrol)
    disp('userTextDeselectCallback()');
    hUserText=findobj('Tag','SynopsisUserText');
    userTextString=get(hUserText,'String');
    UTUD=get(hUserText,'UserData');
    if(isempty(userTextString))        
        %if/when you unselect (click anything else) user edit text box and
        %the user edit text box string is empty then this resets the string
        %to the default "User Types Text Here" String
        set(hUserText,'String',UTUD.DefaultString);
    end
end
 
 
function listenerCallbackToSetAcceptDiscardLabels()
    %this function assigns the appropriate labels to the 'Accept ...' and
    %'Discard ...' pushbuttons, where appropriate means:
    %' ' if the user text box isn't supposed to be receiving instructions
    %  OR
    %'... text' if the 'fill with ...' popupmenu is set to 'fill with text'
    %  OR
    %'... file' if the 'fill with ...' popupmenu is set to 'fill with file'
 
    hUserText=findobj('Tag','SynopsisUserText');
    userTextString=get(hUserText,'String');
    UTUD=get(hUserText,'UserData');
    hAcceptTextOrFilePush=findobj('Tag','SynopsisAcceptTextFilePush');
    hDiscardTextOrFilePush=findobj('Tag','SynopsisDiscardTextFilePush');
    if(isempty(userTextString)||strcmpi(userTextString,UTUD.DefaultString))
        set(hAcceptTextOrFilePush,'String',' ');
        set(hDiscardTextOrFilePush,'String',' ');
    else
        disp('listenerCallbackToSetAcceptDiscardLabels')
        hFillWithPopup=findobj('Tag','SynopsisFillWithPopup');
        FWUD=get(hFillWithPopup,'UserData');
        fwvalue=get(hFillWithPopup,'value')
        fwstring=get(hFillWithPopup,'string')
        fwstring=fwstring{fwvalue};
        if(strcmpi(fwstring,FWUD.String{2}))
            %fill with text so set the accept button to 'accept text',
            %and the discard button to 'discard text'
            ATFUD=get(hAcceptTextOrFilePush,'UserData');
            set(hAcceptTextOrFilePush,'String',ATFUD.String{1});
            DTFUD=get(hDiscardTextOrFilePush,'UserData');
            set(hDiscardTextOrFilePush,'String',DTFUD.String{1});                
        elseif(strcmpi(fwstring,FWUD.String{3}))
            %fill with file so set the accept button to 'accept file',
            %and the discard button to 'discard file'
            ATFUD=get(hAcceptTextOrFilePush,'UserData');
            set(hAcceptTextOrFilePush,'String',ATFUD.String{2});
            DTFUD=get(hDiscardTextOrFilePush,'UserData');
            set(hDiscardTextOrFilePush,'String',DTFUD.String{2});                                
        else
            %fill with ... or ' '
            set(hAcceptTextOrFilePush,'String',' ');
            set(hDiscardTextOrFilePush,'String',' ');
        end
    end
end

function badprogrammingpractice
 
hFig = figure('position', [300 300 600 400]);
jbt = com.mathworks.mwswing.MJButton('click me');
jbt.setBorder([])
jbt.setBackground(java.awt.Color.white);
jbt.setCursor(java.awt.Cursor.getPredefinedCursor(java.awt.Cursor.HAND_CURSOR));
jbt.setFlyOverAppearance(1);
bob = [1 2 3]
jbtPosition = [0.1 0.1 0.3 0.3]
[dummy,btContainer] = javacomponent(jbt,[0 0 1 1],hFig);
set(btContainer, 'Units','Norm', 'Position',jbtPosition);
hbt = handle(jbt,'CallbackProperties');
set(hbt,'ActionPerformedCallback',@dosomething);
 
function [mean,stdev] = dosomething(x,y)
x

figure(a111)
set(gcf,'WindowKeyPressFcn',@scalSet)
waitfor(a111,'UserData','Done');

a111=figure('WindowKeyPressFcn',@scalSet); 
waitfor(a111,'UserData','Done');

function scalSet(src,eventdata)
%function scalSet(src,eventdata)
%
%Function used to set scales with the mouse manually on plots with a colorbar
%Press 'r' to narrow the scale by clicking two values on the
%colorbar with the mouse
%
%Press 'w' to double the range
%
%enter set(gcf,'WindowKeyPressFcn',@scalSet) to add it to figures a
%posteriori
 
%we want to make the colorbar scaling smaller
if strcmp(eventdata.Character,'r')
   scval=ginput(2);
   chs=get(src,'Children');
   for k=1:length(chs)
       nu=get(chs(k),'Type');
       if strcmp(nu,'axes')
         nu2=get(chs(k),'Tag');
           if ~strcmp(nu2,'Colorbar')
               caxis(chs(k),[sort(scval(:,2))'])
           end
       end
   end   
end
 
%we want to widen it
if strcmp(eventdata.Character,'w')
   scval=caxis;
   wid=scval(2)-scval(1);
   caxis([scval(1)-wid scval(2)+wid])
end
 
%we are done
if strcmp(eventdata.Character,'d')
   set(src,'UserData','Done') 
end

function TestMouseCallbacks()
  hFig = figure();
  warning('off','MATLAB:HandleGraphics:ObsoletedProperty:JavaFrame');
  drawnow;
  jh = get(hFig, 'JavaFrame');
  jf = jh.fFigureClient.getAxisComponent;  % note the change
  jbh = handle(jf, 'CallbackProperties');
  set(jbh, 'MouseWheelMovedCallback', @MousePressed)
end
 
function MousePressed(jObject, jEventData)
  disp('Pressed')
end