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
