clc
clear
close all
main_dir = pwd;
cd(fullfile(main_dir,'Data','Design_Problems'));
problems=dir;
problems=problems([problems.isdir]==0);
entries = cell(1,length(problems));


for i=1:length(problems)
    entries{i}=problems(i).name;
end
cd(main_dir);

cdp=figure;
cdp.UserData = problems;
set(cdp,'Name','Choose Design Problem');
set(cdp,'Position',[1150, 200, 300, 60]);
uicontrol('parent',cdp,...
    'style','popupmenu',...
    'String',entries,...
    'Units','normalized',...
    'position',[0.05 0 0.9 0.9],...
    'callback',{@choose_design_problem});

function choose_design_problem(h,~)
c=h.Value;
s=h.Parent.UserData(c).name(1:end-2);
addpath('Data')
gui_main(s);
end