annotate Code/Descriptors/Matlab/MPEG7/FromWeb/VoiceSauce/vs_Settings.m @ 4:92ca03a8fa99 tip

Update to ICASSP 2013 benchmark

function varargout = vs_Settings(varargin)
% VS_SETTINGS M-file for vs_Settings.fig
%      VS_SETTINGS, by itself, creates a new VS_SETTINGS or raises the existing
%      singleton*.
%
%      H = VS_SETTINGS returns the handle to a new VS_SETTINGS or the handle to
%      the existing singleton*.
%
%      VS_SETTINGS('CALLBACK',hObject,eventData,handles,...) calls the local
%      function named CALLBACK in VS_SETTINGS.M with the given input arguments.
%
%      VS_SETTINGS('Property','Value',...) creates a new VS_SETTINGS or raises the
%      existing singleton*.  Starting from the left, property value pairs are
%      applied to the GUI before vs_Settings_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property application
%      stop.  All inputs are passed to vs_Settings_OpeningFcn via varargin.
%
%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
%      instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help vs_Settings

% Last Modified by GUIDE v2.5 09-Mar-2011 22:29:50

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @vs_Settings_OpeningFcn, ...
                   'gui_OutputFcn',  @vs_Settings_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
% End initialization code - DO NOT EDIT


% --- Executes just before vs_Settings is made visible.
function vs_Settings_OpeningFcn(hObject, eventdata, handles, varargin)
% This function has no output args, see OutputFcn.
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% varargin   command line arguments to vs_Settings (see VARARGIN)

% Choose default command line output for vs_Settings
handles.output = hObject;

% YS: get the settings from the main figure
if (~isfield(handles, 'VSHandle'))
    VSHandle = VoiceSauce;
    handles.VSHandle = VSHandle;
end

% restore the variables from initialization
setGUIVariables(handles);


% 
set(handles.uipanel_Formants,'SelectionChangeFcn',@formants_buttongroup_SelectionChangeFcn);
set(handles.uipanel_F0,'SelectionChangeFcn',@F0_buttongroup_SelectionChangeFcn);

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes vs_Settings wait for user response (see UIRESUME)
% uiwait(handles.figure1);


% --- Outputs from this function are returned to the command line.
function varargout = vs_Settings_OutputFcn(hObject, eventdata, handles) 
% varargout  cell array for returning output args (see VARARGOUT);
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;



% aligns the variables with those in VS.vars
function setGUIVariables(handles)
VSData = guidata(handles.VSHandle);
vars = VSData.vars;

%F0
switch(vars.F0algorithm)
    case {'F0 (Straight)'}
        set(handles.radiobutton_F0_Straight, 'Value', 1);
    case {'F0 (Snack)'}
        set(handles.radiobutton_F0_Snack, 'Value', 1);
    case {'F0 (Praat)'}
        set(handles.radiobutton_F0_Praat, 'Value', 1);
    case {'F0 (Other)'}
        set(handles.radiobutton_F0_Other, 'Value', 1);
end

set(handles.edit_F0_Straight_maxF0, 'String', num2str(vars.maxstrF0));
set(handles.edit_F0_Straight_minF0, 'String', num2str(vars.minstrF0));
set(handles.edit_F0_Straight_maxduration, 'String', num2str(vars.maxstrdur));

set(handles.edit_F0_Snack_maxF0, 'String', num2str(vars.maxF0));
set(handles.edit_F0_Snack_minF0, 'String', num2str(vars.minF0));

set(handles.checkbox_F0_Other_Enable, 'Value', vars.F0OtherEnable);
set(handles.edit_F0_Other_Command, 'String', vars.F0OtherCommand);
set(handles.edit_F0_Other_Offset, 'String', num2str(vars.F0OtherOffset));
if (vars.F0OtherEnable == 1)
    set(handles.edit_F0_Other_Command, 'Enable', 'On');
    set(handles.edit_F0_Other_Offset, 'Enable', 'On');
    set(handles.radiobutton_F0_Other, 'Enable', 'On');
end


% Formants
switch(vars.FMTalgorithm)
    case {'F1, F2, F3, F4 (Snack)'}
        set(handles.radiobutton_Formants_Snack, 'Value', 1);
    case {'F1, F2, F3, F4 (Praat)'}
        set(handles.radiobutton_Formants_Praat, 'Value', 1);
    case {'F1, F2, F3, F4 (Other)'}
        set(handles.radiobutton_Formants_Other, 'Value', 1);
end

set(handles.edit_Formants_Snack_preemphasis, 'String', num2str(vars.preemphasis));
set(handles.checkbox_Formants_Other_Enable, 'Value', vars.FormantsOtherEnable);
set(handles.edit_Formants_Other_Command, 'String', vars.FormantsOtherCommand);
set(handles.edit_Formants_Other_Offset, 'String', num2str(vars.FormantsOtherOffset));

if (vars.FormantsOtherEnable)
    set(handles.edit_Formants_Other_Command, 'Enable', 'On');
    set(handles.edit_Formants_Other_Offset, 'Enable', 'On');
    set(handles.radiobutton_Formants_Other, 'Enable', 'On');
end

% SHR
set(handles.edit_SHR_max_F0, 'String', num2str(vars.SHRmax));
set(handles.edit_SHR_min_F0, 'String', num2str(vars.SHRmin));
set(handles.edit_SHR_threshold, 'String', num2str(vars.SHRThreshold));

% Common
set(handles.edit_Common_windowsize, 'String', num2str(vars.windowsize));
set(handles.edit_Common_frameshift, 'String', num2str(vars.frameshift));
set(handles.edit_Common_NaN, 'String', vars.NotANumber);
set(handles.checkbox_Common_linkmatdir, 'Value', vars.linkmatdir);
set(handles.checkbox_Common_linkwavdir, 'Value', vars.linkwavdir);
set(handles.checkbox_Common_recursedir, 'Value', vars.recursedir);
set(handles.edit_Common_Nperiods, 'String', num2str(vars.Nperiods));
set(handles.edit_Common_Nperiods_EC, 'String', num2str(vars.Nperiods_EC));

% Textgrid
set(handles.edit_Textgrid_ignorelist, 'String', vars.TextgridIgnoreList);
set(handles.edit_Textgrid_tiernumber, 'String', num2str(vars.TextgridTierNumber));

% EGG
set(handles.edit_EGGData_headers, 'String', vars.EGGheaders);
set(handles.edit_EGGData_timelabel, 'String' ,vars.EGGtimelabel);

% Outputs
set(handles.edit_Outputs_smoothwinsize, 'String', num2str(vars.O_smoothwinsize));

% Input (wav) files
set(handles.edit_Input_searchstring, 'String', vars.I_searchstring);


function edit_Common_windowsize_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Common_windowsize (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_Common_windowsize as text
%        str2double(get(hObject,'String')) returns contents of edit_Common_windowsize as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2double(get(hObject, 'String'));
if (isnan(num))
    set(hObject, 'String', num2str(vars.windowsize));
else    
    num = round(num);
    if (num > 0)
        VSData.vars.windowsize = num;
        set(hObject, 'String', num2str(num))
        guidata(handles.VSHandle, VSData);
    else
        set(hObject, 'String', num2str(num));
    end
end



% --- Executes during object creation, after setting all properties.
function edit_Common_windowsize_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Common_windowsize (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_Common_frameshift_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Common_frameshift (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_Common_frameshift as text
%        str2double(get(hObject,'String')) returns contents of edit_Common_frameshift as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2double(get(hObject, 'String'));
if (isnan(num))
    set(hObject, 'String', num2str(vars.frameshift));
else
    num = round(num);
    if (num > 0)
        VSData.vars.frameshift = num(1);
        set(hObject, 'String', num2str(num))
        guidata(handles.VSHandle, VSData);
    else
        set(hObject, 'String', num2str(vars.frameshift));
    end
end


% --- Executes during object creation, after setting all properties.
function edit_Common_frameshift_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Common_frameshift (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_Formants_Snack_preemphasis_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Formants_Snack_preemphasis (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_Formants_Snack_preemphasis as text
%        str2double(get(hObject,'String')) returns contents of edit_Formants_Snack_preemphasis as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2num(get(hObject, 'String'));
if (isempty(num))
    set(hObject, 'String', num2str(vars.preemphasis));
else
    num = num(1);
    VSData.vars.preemphasis = num;
    set(hObject, 'String', num2str(num))
    guidata(handles.VSHandle, VSData);
end



% --- Executes during object creation, after setting all properties.
function edit_Formants_Snack_preemphasis_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Formants_Snack_preemphasis (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_F0_Straight_maxF0_Callback(hObject, eventdata, handles)
% hObject    handle to edit_F0_Straight_maxF0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_F0_Straight_maxF0 as text
%        str2double(get(hObject,'String')) returns contents of edit_F0_Straight_maxF0 as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2num(get(hObject, 'String'));
if (isempty(num))
    set(hObject, 'String', num2str(vars.maxstrF0));
else
    num = num(1);
    VSData.vars.maxstrF0 = num;
    set(hObject, 'String', num2str(num))
    guidata(handles.VSHandle, VSData);
end


% --- Executes during object creation, after setting all properties.
function edit_F0_Straight_maxF0_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_F0_Straight_maxF0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_F0_Straight_minF0_Callback(hObject, eventdata, handles)
% hObject    handle to edit_F0_Straight_minF0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_F0_Straight_minF0 as text
%        str2double(get(hObject,'String')) returns contents of edit_F0_Straight_minF0 as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2num(get(hObject, 'String'));
if (isempty(num))
    set(hObject, 'String', num2str(vars.minstrF0));
else
    num = num(1);
    VSData.vars.minstrF0 = num;
    set(hObject, 'String', num2str(num))
    guidata(handles.VSHandle, VSData);
end


% --- Executes during object creation, after setting all properties.
function edit_F0_Straight_minF0_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_F0_Straight_minF0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in radiobutton_F0_Straight.
function radiobutton_F0_Straight_Callback(hObject, eventdata, handles)
% hObject    handle to radiobutton_F0_Straight (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of radiobutton_F0_Straight


% --- Executes on button press in radiobutton_F0_Snack.
function radiobutton_F0_Snack_Callback(hObject, eventdata, handles)
% hObject    handle to radiobutton_F0_Snack (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of radiobutton_F0_Snack


% --- Executes on button press in radiobutton_F0_Other.
function radiobutton_F0_Other_Callback(hObject, eventdata, handles)
% hObject    handle to radiobutton_F0_Other (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of radiobutton_F0_Other



function edit_F0_Straight_maxduration_Callback(hObject, eventdata, handles)
% hObject    handle to edit_F0_Straight_maxduration (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_F0_Straight_maxduration as text
%        str2double(get(hObject,'String')) returns contents of edit_F0_Straight_maxduration as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2num(get(hObject, 'String'));
if (isempty(num))
    set(hObject, 'String', num2str(vars.maxstrdur));
else
    num = num(1);
    VSData.vars.maxstrdur = num;
    set(hObject, 'String', num2str(num))
    guidata(handles.VSHandle, VSData);
end


% --- Executes during object creation, after setting all properties.
function edit_F0_Straight_maxduration_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_F0_Straight_maxduration (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_F0_Snack_maxF0_Callback(hObject, eventdata, handles)
% hObject    handle to edit_F0_Snack_maxF0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_F0_Snack_maxF0 as text
%        str2double(get(hObject,'String')) returns contents of edit_F0_Snack_maxF0 as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2num(get(hObject, 'String'));
if (isempty(num))
    set(hObject, 'String', num2str(vars.maxF0));
else
    num = num(1);
    VSData.vars.maxF0 = num;
    guidata(handles.VSHandle, VSData);
    set(hObject, 'String', num2str(num))
end


% --- Executes during object creation, after setting all properties.
function edit_F0_Snack_maxF0_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_F0_Snack_maxF0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_F0_Snack_minF0_Callback(hObject, eventdata, handles)
% hObject    handle to edit_F0_Snack_minF0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_F0_Snack_minF0 as text
%        str2double(get(hObject,'String')) returns contents of edit_F0_Snack_minF0 as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2num(get(hObject, 'String'));
if (isempty(num))
    set(hObject, 'String', num2str(vars.minF0));
else
    num = num(1);
    VSData.vars.minF0 = num;
    guidata(handles.VSHandle, VSData);
    set(hObject, 'String', num2str(num))
end


% --- Executes during object creation, after setting all properties.
function edit_F0_Snack_minF0_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_F0_Snack_minF0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in checkbox_F0_Other_Enable.
function checkbox_F0_Other_Enable_Callback(hObject, eventdata, handles)
% hObject    handle to checkbox_F0_Other_Enable (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

VSData = guidata(handles.VSHandle);

if (get(hObject, 'Value') == 1)
    set(handles.edit_F0_Other_Command, 'Enable', 'on');
    set(handles.edit_F0_Other_Offset, 'Enable', 'on');
    set(handles.radiobutton_F0_Other, 'Enable', 'on');
    VSData.vars.F0OtherEnable = 1;
else
    set(handles.edit_F0_Other_Command, 'Enable', 'off');
    set(handles.edit_F0_Other_Offset, 'Enable', 'off');
    set(handles.radiobutton_F0_Other, 'Enable', 'off');
    VSData.vars.F0OtherEnable = 0;
    
    if (get(handles.radiobutton_F0_Other, 'Value') == 1) % switch back to Straight
        set(handles.radiobutton_F0_Straight, 'Value', 1);
        VSData.vars.F0algorithm = 'F0 (Straight)';
    end
end    

guidata(handles.VSHandle, VSData);
function edit_F0_Other_Command_Callback(hObject, eventdata, handles)
% hObject    handle to edit_F0_Other_Command (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_F0_Other_Command as text
%        str2double(get(hObject,'String')) returns contents of edit_F0_Other_Command as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
VSData.vars.F0OtherCommand = get(hObject, 'String');
guidata(handles.VSHandle, VSData);


% --- Executes during object creation, after setting all properties.
function edit_F0_Other_Command_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_F0_Other_Command (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_F0_Other_Offset_Callback(hObject, eventdata, handles)
% hObject    handle to edit_F0_Other_Offset (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_F0_Other_Offset as text
%        str2double(get(hObject,'String')) returns contents of edit_F0_Other_Offset as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2num(get(hObject, 'String'));
if (isempty(num))
    set(hObject, 'String', num2str(vars.F0OtherOffset));
else
    num = num(1);
    VSData.vars.F0OtherOffset = num;
    guidata(handles.VSHandle, VSData);
    set(hObject, 'String', num2str(num))
end


% --- Executes during object creation, after setting all properties.
function edit_F0_Other_Offset_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_F0_Other_Offset (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in radiobutton_Formants_Snack.
function radiobutton_Formants_Snack_Callback(hObject, eventdata, handles)
% hObject    handle to radiobutton_Formants_Snack (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of radiobutton_Formants_Snack


% --- Executes on button press in radiobutton_Formants_Other.
function radiobutton_Formants_Other_Callback(hObject, eventdata, handles)
% hObject    handle to radiobutton_Formants_Other (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of radiobutton_Formants_Other



function edit_Formants_Other_Offset_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Formants_Other_Offset (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_Formants_Other_Offset as text
%        str2double(get(hObject,'String')) returns contents of edit_Formants_Other_Offset as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2num(get(hObject, 'String'));
if (isempty(num))
    set(hObject, 'String', num2str(vars.FormantsOtherOffset));
else
    num = num(1);
    VSData.vars.FormantsOtherOffset = num;
    guidata(handles.VSHandle, VSData);
    set(hObject, 'String', num2str(num))
end


% --- Executes during object creation, after setting all properties.
function edit_Formants_Other_Offset_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Formants_Other_Offset (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_Formants_Other_Command_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Formants_Other_Command (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_Formants_Other_Command as text
%        str2double(get(hObject,'String')) returns contents of edit_Formants_Other_Command as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
VSData.vars.FormantsOtherCommand = get(hObject, 'String');
guidata(handles.VSHandle, VSData);


% --- Executes during object creation, after setting all properties.
function edit_Formants_Other_Command_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Formants_Other_Command (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in checkbox_Formants_Other_Enable.
function checkbox_Formants_Other_Enable_Callback(hObject, eventdata, handles)
% hObject    handle to checkbox_Formants_Other_Enable (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

VSData = guidata(handles.VSHandle);

if (get(hObject, 'Value') == 1)
    set(handles.edit_Formants_Other_Command, 'Enable', 'on');
    set(handles.edit_Formants_Other_Offset, 'Enable', 'on');
    set(handles.radiobutton_Formants_Other, 'Enable', 'on');
    VSData.vars.FormantsOtherEnable = 1;
else
    set(handles.edit_Formants_Other_Command, 'Enable', 'off');
    set(handles.edit_Formants_Other_Offset, 'Enable', 'off');
    set(handles.radiobutton_Formants_Other, 'Enable', 'off');
    VSData.vars.FormantsOtherEnable = 0;
    
    if (get(handles.radiobutton_Formants_Other, 'Value') == 1) % set back to Snack
        set(handles.radiobutton_Formants_Snack, 'Value', 1);
        VSData.vars.FMTalgorithm = 'F1, F2, F3, F4 (Snack)';
    end    
end    

guidata(handles.VSHandle, VSData);


function edit_Textgrid_ignorelist_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Textgrid_ignorelist (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_Textgrid_ignorelist as text
%        str2double(get(hObject,'String')) returns contents of edit_Textgrid_ignorelist as a double
VSData = guidata(handles.VSHandle);

if (isempty(get(hObject, 'String')))
    set(hObject, 'String', '"", " ", "SIL"');  % this is the default, edit box cannot be empty
end

VSData.vars.TextgridIgnoreList = get(hObject, 'String');
guidata(handles.VSHandle, VSData);


% --- Executes during object creation, after setting all properties.
function edit_Textgrid_ignorelist_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Textgrid_ignorelist (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_Textgrid_tiernumber_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Textgrid_tiernumber (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_Textgrid_tiernumber as text
%        str2double(get(hObject,'String')) returns contents of edit_Textgrid_tiernumber as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2num(get(hObject, 'String'));
if (isempty(num))
    set(hObject, 'String', num2str(vars.TextgridTierNumber));
else
    VSData.vars.TextgridTierNumber = unique(num);
    guidata(handles.VSHandle, VSData);
    set(hObject, 'String', num2str(VSData.vars.TextgridTierNumber))
end


% --- Executes during object creation, after setting all properties.
function edit_Textgrid_tiernumber_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Textgrid_tiernumber (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% YS: executes on the press of a radio button in formants panel
function formants_buttongroup_SelectionChangeFcn(hObject, eventdata)
handles = guidata(hObject);
VSData = guidata(handles.VSHandle);

switch get(eventdata.NewValue, 'Tag')
    case 'radiobutton_Formants_Snack'
        VSData.vars.FMTalgorithm = 'F1, F2, F3, F4 (Snack)';
    case 'radiobutton_Formants_Praat'
        VSData.vars.FMTalgorithm = 'F1, F2, F3, F4 (Praat)';
    case 'radiobutton_Formants_Other'
        VSData.vars.FMTalgorithm = 'F1, F2, F3, F4 (Other)';        
    otherwise
end
guidata(handles.VSHandle, VSData);



% YS: executes on the press of a radio button in F0 panel
function F0_buttongroup_SelectionChangeFcn(hObject, eventdata)
handles = guidata(hObject);
VSData = guidata(handles.VSHandle);

switch get(eventdata.NewValue, 'Tag')
    case 'radiobutton_F0_Straight'
        VSData.vars.F0algorithm = 'F0 (Straight)';
    case 'radiobutton_F0_Snack'
        VSData.vars.F0algorithm = 'F0 (Snack)';
    case 'radiobutton_F0_Praat'
        VSData.vars.F0algorithm = 'F0 (Praat)';
    case 'radiobutton_F0_Other'
        VSData.vars.F0algorithm = 'F0 (Other)';
    otherwise   
end
guidata(handles.VSHandle, VSData);



% --- Executes on button press in pushbutton_Exit.
function pushbutton_Exit_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton_Exit (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

delete(gcf);


% --------------------------------------------------------------------
function menu_Settings_Callback(hObject, eventdata, handles)
% hObject    handle to menu_Settings (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)


% --------------------------------------------------------------------
function menu_Settings_Load_Callback(hObject, eventdata, handles)
% hObject    handle to menu_Settings_Load (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
VSData = guidata(handles.VSHandle);
filename = uigetfile('*.mat', 'Select File to Load');

if (~ischar(filename))
    return;
end

matdata = load(filename);
VSData.vars = matdata.settings;

% set the machine specific variables
if (ispc)
    VSData.vars.dirdelimiter = '\';
else
    VSData.vars.dirdelimiter = '/';
end

if (exist(VSData.vars.wavdir, 'dir') ~= 7)
    VSData.vars.wavdir = ['.' vars.dirdelimiter];
end

if (exist(VSData.vars.matdir, 'dir') ~= 7)
    VSData.vars.matdir = ['.' vars.dirdelimiter];
end

guidata(handles.VSHandle, VSData);
setGUIVariables(handles);


% --------------------------------------------------------------------
function menu_Settings_Save_Callback(hObject, eventdata, handles)
% hObject    handle to menu_Settings_Save (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
VSData = guidata(handles.VSHandle);
VSData.vars.PE_showwaveformst = 0;  % this is a special case
settings = VSData.vars;
[filename, pathname] = uiputfile('*.mat', 'Select File to Save');

if (~ischar(filename))
    return;
end

save([pathname filename], 'settings');

helpdlg('Save complete.', 'Save');



function edit_EGGData_headers_Callback(hObject, eventdata, handles)
% hObject    handle to edit_EGGData_headers (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_EGGData_headers as text
%        str2double(get(hObject,'String')) returns contents of edit_EGGData_headers as a double
VSData = guidata(handles.VSHandle);

if (isempty(get(hObject, 'String')))
    set(hObject, 'String', VSData.vars.EGGheaders);  % this is the default, edit box cannot be empty
end

VSData.vars.EGGheaders = get(hObject, 'String');
guidata(handles.VSHandle, VSData);


% --- Executes during object creation, after setting all properties.
function edit_EGGData_headers_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_EGGData_headers (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_EGGData_timelabel_Callback(hObject, eventdata, handles)
% hObject    handle to edit_EGGData_timelabel (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_EGGData_timelabel as text
%        str2double(get(hObject,'String')) returns contents of edit_EGGData_timelabel as a double
VSData = guidata(handles.VSHandle);

if (isempty(get(hObject, 'String')))
    set(hObject, 'String', VSData.vars.EGGtimelabel);  % this is the default, edit box cannot be empty
end

VSData.vars.EGGtimelabel = get(hObject, 'String');
guidata(handles.VSHandle, VSData);


% --- Executes during object creation, after setting all properties.
function edit_EGGData_timelabel_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_EGGData_timelabel (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_Common_NaN_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Common_NaN (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_Common_NaN as text
%        str2double(get(hObject,'String')) returns contents of edit_Common_NaN as a double
VSData = guidata(handles.VSHandle);
VSData.vars.NotANumber = get(hObject, 'String');
guidata(handles.VSHandle, VSData);

% --- Executes during object creation, after setting all properties.
function edit_Common_NaN_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Common_NaN (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in checkbox_Common_linkmatdir.
function checkbox_Common_linkmatdir_Callback(hObject, eventdata, handles)
% hObject    handle to checkbox_Common_linkmatdir (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of checkbox_Common_linkmatdir
VSData = guidata(handles.VSHandle);
VSData.vars.linkmatdir = get(hObject, 'Value');
guidata(handles.VSHandle, VSData);


% --- Executes on button press in checkbox_Common_linkwavdir.
function checkbox_Common_linkwavdir_Callback(hObject, eventdata, handles)
% hObject    handle to checkbox_Common_linkwavdir (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of checkbox_Common_linkwavdir
VSData = guidata(handles.VSHandle);
VSData.vars.linkwavdir = get(hObject, 'Value');
guidata(handles.VSHandle, VSData);


% --- Executes on button press in checkbox_Common_recursedir.
function checkbox_Common_recursedir_Callback(hObject, eventdata, handles)
% hObject    handle to checkbox_Common_recursedir (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hint: get(hObject,'Value') returns toggle state of checkbox_Common_recursedir
VSData = guidata(handles.VSHandle);
VSData.vars.recursedir = get(hObject, 'Value');
guidata(handles.VSHandle, VSData);



function edit_Outputs_smoothwinsize_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Outputs_smoothwinsize (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

VSData = guidata(handles.VSHandle);
num = str2double(get(hObject, 'String'));

if (~isnan(num))
    num = round(num);
    if (num >= 0)  % 0 denotes no output smoothing
        set(hObject, 'String', num2str(num));
        VSData.vars.O_smoothwinsize = num;
        guidata(handles.VSHandle, VSData);
    else
        set(hObject, 'String', num2str(vars.O_smoothwinsize));
    end
else
    set(hObject, 'String', num2str(vars.O_smoothwinsize));
end



% --- Executes during object creation, after setting all properties.
function edit_Outputs_smoothwinsize_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Outputs_smoothwinsize (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_Input_searchstring_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Input_searchstring (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

VSData = guidata(handles.VSHandle);
str = get(hObject, 'String');
if (isempty(str))
    set(hObject, 'String', VSData.vars.I_searchstring);
else
    VSData.vars.I_searchstring = str;
    guidata(handles.VSHandle, VSData);
end



% --- Executes during object creation, after setting all properties.
function edit_Input_searchstring_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Input_searchstring (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



% --- Executes on button press in pushbutton_Settings_Praat.
function pushbutton_Settings_Praat_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton_Settings_Praat (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
vs_Settings_Praat();



function edit_SHR_min_F0_Callback(hObject, eventdata, handles)
% hObject    handle to edit_SHR_min_F0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_SHR_min_F0 as text
%        str2double(get(hObject,'String')) returns contents of edit_SHR_min_F0 as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2double(get(hObject, 'String'));
if (isempty(num) || num < 0)
    set(hObject, 'String', num2str(vars.SHRmin));
else
    VSData.vars.SHRmin = num;
    guidata(handles.VSHandle, VSData);
    set(hObject, 'String', num2str(num))
end


% --- Executes during object creation, after setting all properties.
function edit_SHR_min_F0_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_SHR_min_F0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_SHR_max_F0_Callback(hObject, eventdata, handles)
% hObject    handle to edit_SHR_max_F0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_SHR_max_F0 as text
%        str2double(get(hObject,'String')) returns contents of edit_SHR_max_F0 as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2double(get(hObject, 'String'));
if (isempty(num) || num < 0)
    set(hObject, 'String', num2str(vars.SHRmax));
else
    VSData.vars.SHRmax = num;
    guidata(handles.VSHandle, VSData);
    set(hObject, 'String', num2str(num))
end


% --- Executes during object creation, after setting all properties.
function edit_SHR_max_F0_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_SHR_max_F0 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_SHR_threshold_Callback(hObject, eventdata, handles)
% hObject    handle to edit_SHR_threshold (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_SHR_threshold as text
%        str2double(get(hObject,'String')) returns contents of edit_SHR_threshold as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2double(get(hObject, 'String'));
if (isempty(num) || num < 0)
    set(hObject, 'String', num2str(vars.SHRThreshold));
else
    VSData.vars.SHRThreshold = num;
    guidata(handles.VSHandle, VSData);
    set(hObject, 'String', num2str(num))
end


% --- Executes during object creation, after setting all properties.
function edit_SHR_threshold_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_SHR_threshold (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_Common_Nperiods_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Common_Nperiods (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_Common_Nperiods as text
%        str2double(get(hObject,'String')) returns contents of edit_Common_Nperiods as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2double(get(hObject, 'String'));
if (isempty(num) || round(num) < 0)
    set(hObject, 'String', num2str(vars.Nperiods));
else
    VSData.vars.Nperiods = round(num);
    guidata(handles.VSHandle, VSData);
    set(hObject, 'String', num2str(round(num)))
end


% --- Executes during object creation, after setting all properties.
function edit_Common_Nperiods_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Common_Nperiods (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function edit_Common_Nperiods_EC_Callback(hObject, eventdata, handles)
% hObject    handle to edit_Common_Nperiods_EC (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit_Common_Nperiods_EC as text
%        str2double(get(hObject,'String')) returns contents of edit_Common_Nperiods_EC as a double
VSData = guidata(handles.VSHandle);
vars = VSData.vars;
num = str2double(get(hObject, 'String'));
if (isempty(num) || round(num) < 0)
    set(hObject, 'String', num2str(vars.Nperiods_EC));
else
    VSData.vars.Nperiods_EC = round(num);
    guidata(handles.VSHandle, VSData);
    set(hObject, 'String', num2str(round(num)))
end


% --- Executes during object creation, after setting all properties.
function edit_Common_Nperiods_EC_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit_Common_Nperiods_EC (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end