MEL プロジェクトセットツール

global proc Sc0()
{
string $A_0=`workspace -fullName`;
};

global proc Sc1()
{
string $A_1=`workspace -fullName`;
textField -e -tx ($A_1) N01;
};

global proc N001s()
{
string $N001 = `textField -query -text N01`;
setProject $N001;
};

global proc Ntexts()
{
textField -editable true N01;
};

string $window = `window -widthHeight 10 10`;
setParent ..;
showWindow $window;
deleteUI -window $window;
window -fw -t "ProjectSet" -rtf 1;
columnLayout -adjustableColumn true;
Ntexts;
setParent..;

gridLayout -numberOfColumns 3 -cellWidth 120 -cellHeight 16;
button -command "Sc0;N001s;" -h 16 -label "Set";
button -command "OpenScene;" -h 16 -label "Open";
button -command "N001s;OpenScene;" -h 16 -label "Set/Open";
setParent..;
separator;
separator;
gridLayout -numberOfColumns 1 -cellWidth 360 -cellHeight 16;
button -command "Sc1;" -h 16 -label "CurrentPathName";
setParent..;
separator;
separator;
gridLayout -numberOfColumns 3 -cellWidth 120 -cellHeight 16;
button -command "SetProject" -h 16 -label "SetProject";
button -command "NewProject" -h 16 -label "NewProject";
button -command "EditProject" -h 16 -label "EditProject";
setParent..;
showWindow;