global proc alienMacGyver()
{

if (`window -ex alienMacGyver`)
deleteUI alienMacGyver;
window -title "alien Mac Gyver 1.0" alienMacGyver;

formLayout rcl1;

separator -style "in" sep0;

button -label "create a new note" -c writeNote createNote;

textFieldGrp -l "note name" -w 280 notenameTF;

separator -style "in" sep1;

text -label "notes list" notelistT;

textScrollList -numberOfRows 5 -width 200 -allowMultiSelection false -doubleClickCommand openFile -deleteKeyCommand deleteNote fileTextScrollList;

separator -style "in" sep1a;

button -label "update file notes" -c fillList fillListButton;

button -label "notes directory" -c openDirectory openDir;

separator -style "in" sep2;

formLayout -e

-af sep0 "top" 10 -af sep0 "left" 0 -af sep0 "right" 0

-af notenameTF "left" -75 -ac notenameTF "top" 10 sep0

-af createNote "left" 110 -ac createNote "top" 10 notenameTF

-ac sep1 "top" 10 createNote -af sep1 "left" 0 -af sep1 "right" 0

-ac notelistT "top" 10 sep1 -af notelistT "left" 5

-af fileTextScrollList "left" 5 -ac fileTextScrollList "top" 10 notelistT

-ac sep1a "top" 10 fileTextScrollList -af sep1a "left" 0 -af sep1a "right" 0

-af fillListButton "left" 5 -ac fillListButton "top" 10 sep1a 

-ac openDir "left" 33 fillListButton -ac openDir "top" 10 sep1a 

-ac sep2 "top" 10 openDir -af sep2 "left" 0 -af sep2 "right" 0

rcl1;

showWindow alienMacGyver;
fillList();

}

global proc fillList()
{
string $scriptNodeList[] = `ls -type script`;
int $i = 0;
int $j = 0;
int $check;
textScrollList -e -ra fileTextScrollList;
for ($i = 0;$i<size ($scriptNodeList); $i++)
	{
	$check = stringContains($scriptNodeList[$i],"note");
	if ($check)
		{
		$j++;
		textScrollList -e -append  $scriptNodeList[$i] fileTextScrollList;
		}
	}
}

global proc int stringContains (string $theString, string $item)
{
string	$matchString = ($item + "+");
int		$returnInt = 0;
if (`match $matchString $theString` == $item){
	$returnInt = 1;
	}
	return $returnInt;
}

global proc openFile()
{
string $sel[] =`textScrollList -q  -selectItem fileTextScrollList`;
string $fileName = getAttr ($sel[0] + ".before");
eval $fileName;
}

global proc writeNote()
{
string $username = `getenv "USERNAME"`;

$currProj = `workspace -q -fullName`;

$notePath = $currProj + "/notes/";

int $check = `filetest -d $notePath`;

if (!$check)
	{
	warning ("notes directory doesn't exists...please create it...");
	return; 
	}
	
string $nomeFile = `textFieldGrp -q -text notenameTF`;
$fileName = $notePath + "notes_" + $username + "_" + $nomeFile + ".amg";
int $check = `filetest -s $fileName`;
if ($check)
	{
	$fileId=`fopen $fileName "a"`;
	fclose $fileId;
	system ("start notepad " + $fileName);
	}
else
	{
	$fileId=`fopen $fileName "a"`;
	fclose $fileId;
	system ("start notepad " + $fileName);
	string $scriptNodeName = ("notes_" + $username + "_" + $nomeFile);
	if (!`exists $scriptNodeName`)
		{
		scriptNode -st 0 -bs ("system (\"start notepad " + $fileName + "\");") -n $scriptNodeName;
		}
	string $curveName = ("notes_" + $username + "_" + $nomeFile + "_curve");
	if (!`exists $curveName`)
		{
		textCurves -ch 0 -f "Arial|h-13|w400|c0" -t "n";
		parent -w "curve1";
		delete "Text_n_1";
		rename "curve1" $curveName;
	}
	fillList();
	}


}

global proc openDirectory()
{
string $pathNotes = `workspace -q -fullName`;
$pathNotes += "/notes";
string $result = substituteAllString($pathNotes, "/", "\\");
system("explorer " + $result);
}

global proc deleteNote()
{
string $sel[] =`textScrollList -q  -selectItem fileTextScrollList`;
if (!`referenceQuery -isNodeReferenced $sel[0]`)
	{
	delete $sel[0];
	string $curveNameToDelete = ($sel[0] + "_curve");
	if (!`exists $curveNameToDelete`)
		{
		delete $curveNameToDelete;
		}
	string $pathNotes = `workspace -q -fullName`;
	$pathNotes += "/notes/";
	$fileName = $pathNotes + $sel[0] + ".amg";
	string $result = substituteAllString($fileName, "/", "\\");
	system("del " + $result);
	fillList();
	}
else
	{
	warning ($sel[0] + " is a referended note, you cannot delete it");
	}
}