只能说是人各有志。

So many men,So many minds.

global proc tgDragWindow() {

 if(`window -q -exists "tgDragWindow"`) deleteUI "tgDragWindow";

 window "tgDragWindow";

   columnLayout;
   textScrollList
   -allowAutomaticSelection 1
   -dgc ("nameOfAppend")
   -numberOfRows 2
    -append "drag1" -append "drag2"
   -sc ("print \"aaa\"");
   textScrollList
   -allowAutomaticSelection 1
   -dpc ("addItem")
   -numberOfRows 10
    -append "";

 showWindow "tgDragWindow";

}

global proc string[] nameOfAppend(string $dragControl,int $dragPositionX,int $dragPositionY,int $aidKey) {

 if ($dragPositionY<13) textScrollList -e -selectIndexedItem 1 $dragControl;
 else if ($dragPositionY>13) textScrollList -e -selectIndexedItem 2 $dragControl;
 string $nameOfAppend_Output[] = `textScrollList -q -selectItem $dragControl`;
 print (">>>>>>>>>>>>>>>>>>>>>\n");
 print ("$dragControl = " + $dragControl + "\n");
 print ("$dragPositionX = " + $dragPositionX+ " pixel from the left of tgDragWindow\n");
 print ("$dragPositionY = " + $dragPositionY+ " pixel from the top of tgDragWindow\n");
 switch ($aidKey) {
     case 0:
   print ("$aidKey = NONE\n");
         break;
     case 1:
   print ("$aidKey = Shift\n");
         break;
     case 2:
   print ("$aidKey = CTRL\n");
         break;
     case 3:
   print ("$aidKey = CTRL + Shift\n");
         break;
 }
 print ("OUTPUT = " + $nameOfAppend_Output[0] + "\n>>>>>>>>>>>>>>>>>>>>>\n");

 

 return {$nameOfAppend_Output[0]};

}

global proc addItem(string $dragControl,string $dropControl,string $nameOfAppend[],int $dropPositionX,int $dropPositionY,int $actionType) {

 print ("$dragControl = " + $dragControl + "\n");
 print ("$dropControl = " + $dropControl+ "\n");
 print ("$nameOfAppend = " + $nameOfAppend[0] + "\n");
 print ("$dropPositionX = " + $dropPositionX + " pixel from the left of tgDragWindow\n");
 print ("$dropPositionY = " + $dropPositionY + " pixel from the top of tgDragWindow\n");
 switch ($actionType) {
     case 1:
   print ("$actionType = Move\n");
         break;
     case 2:
   print ("$actionType = Copy\n");
         break;
     case 3:
   print ("$actionType = Link\n");
         break;
 }

 textScrollList -e -append $nameOfAppend[0] $dropControl;

}