pa_prjdir_select

 directory select dialog 

 [IN]  proj_root : project root directory.

 [OUT] dirname   : relative directory name from proj_root
       canceled  : true/false (true means dialog closed by cancel)

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function [dirname, canceled] = pa_prjdir_select(proj_root)
0002 % directory select dialog
0003 %
0004 % [IN]  proj_root : project root directory.
0005 %
0006 % [OUT] dirname   : relative directory name from proj_root
0007 %       canceled  : true/false (true means dialog closed by cancel)
0008 %
0009 % Copyright (C) 2011, ATR All Rights Reserved.
0010 % License : New BSD License(see VBMEG_LICENSE.txt)
0011 
0012 canceled = false;
0013 
0014 dirname = dir_dialog(proj_root, false);
0015 
0016 % ¥Ñ¥¹¤òproj_root¤«¤é¤ÎÁêÂХѥ¹¤Ë¤¹¤ë
0017 if dirname ~= 0 & ~isempty(proj_root)
0018     dirname = vb_relativepath(dirname, proj_root);
0019     dirname = dirname(1:length(dirname)-1);
0020 else
0021     canceled = true;
0022 end
0023