quick select Refresh button #MEL

[jayantbhatt07]

Hi I'm trying to  modify very old sript which I found on highend 3d. It's working fine but that refresh button is very annoying, evertime I have to press refresh button If I do any changes in the quick set settings?

//**********************************************************************************//
// script written : Sudeepth Patinjarayil //
// Works in : Autodesk Maya 8.0 //
// Pourpose : Quick Selection Sets window //
// Exicution : type selectionset_list in command line //
// Date : 08-15-2009 //
//********************************************************************************//

global proc selectionset_list ()
{
if (`window -ex list_sel_set`){deleteUI -window list_sel_set;}
string $sel_list_win = `window -te 42 -le 161 -title "Selection Sets" -wh 169 269 -tb 1 -tlb 1 -mnb 0 -mxb 0 -s 0 list_sel_set`;
frameLayout -l "";
columnLayout -adj true;
text -l "Quick Selection Sets : ";
textScrollList -w 100 -h 157 -allowMultiSelection false -sc "sel_set" tsl_sel_list;
string $char[] = `ls -sets `;
for ($each in $char)
{
if (`sets -q -t $each` == "gCharacterSet")
{
textScrollList -e -append $each tsl_sel_list;
}
}
button -l "Create Quick Selection Set" -c "make_set";
button -l "Refersh List" -c "relaod_list";
button -l "Delete" -c "del()";
setParent..;
showWindow list_sel_set;
}

global proc relaod_list ()
{
textScrollList -e -ra tsl_sel_list;
string $char[] = `ls -sets `;
for ($each in $char)
{
if (`sets -q -t $each` == "gCharacterSet")
{
textScrollList -e -append $each tsl_sel_list;
}
}

}

global proc make_set ()
{
CreateQuickSelectSet;
}

global proc sel_set ()
{
string $sel_list_selection[] = `textScrollList -q -si tsl_sel_list`;
select -r $sel_list_selection;
}

proc del()
{
string $selSet[] = `ls -sets`;
delete $selSet;
}

[jayantbhatt07]

//**********************************************************************************//
// script written : Sudeepth Patinjarayil //
// Works in : Autodesk Maya 8.0 //
// Pourpose : Quick Selection Sets window //
// Exicution : type selectionset_list in command line //
// Date : 08-15-2009 //
//********************************************************************************//

global proc selectionset_list ()
{
if (`window -ex list_sel_set`){deleteUI -window list_sel_set;}
string $sel_list_win = `window -te 42 -le 161 -title "Selection Sets" -wh 169 269 -tb 1 -tlb 1 -mnb 0 -mxb 0 -s 0 list_sel_set`;
frameLayout -l "";
columnLayout -adj true;
text -l "Quick Selection Sets : ";
textScrollList -w 100 -h 157 -allowMultiSelection false -sc "sel_set" tsl_sel_list;
string $char[] = `ls -sets `;
for ($each in $char)
{
if (`sets -q -t $each` == "gCharacterSet")
{
textScrollList -e -append $each tsl_sel_list;
}
}
button -l "Create Quick Selection Set" -c "make_set";
button -l "Refresh List" -c "relaod_list";
button -l "Delete" -c "del()";
relaod_list();
setParent..;
showWindow list_sel_set;
}

global proc relaod_list ()
{
textScrollList -e -ra tsl_sel_list;
string $char[] = `ls -sets `;
for ($each in $char)
{
if (`sets -q -t $each` == "gCharacterSet")
{
textScrollList -e -append $each tsl_sel_list;
}
}

}

global proc make_set ()
{
CreateQuickSelectSet;
relaod_list();
}

global proc sel_set ()
{
global string $selectionList[40];
string $sel_list_selection[] = `textScrollList -q -si tsl_sel_list`;
select -r $sel_list_selection;
string $name[] = `textScrollList -q -si tsl_sel_list`;
textField -e -text $name numeF;
int $t[] = `textScrollList -q -sii tsl_sel_list`;
string $temp = ("select " + $selectionList[$t[0]]);
eval($temp);
}

proc del()
{
string $sel_list_selection[] = `textScrollList -q -si tsl_sel_list`;
string $selSet[] = `ls -sets $sel_list_selection`;
delete $selSet;
relaod_list();
}