// CEA_DoubleClickonWhiteScriptChanger version 1.3 by klownboy dtd 2024-02-24

function getCurrentScript($CEA_script, $CEA_menu, $CEA_index) {
   $CEA_script = quote(trim($CEA_script,"load ;"),1);
   $idx = GetTokenIndex('*<->' . $CEA_script . ';*', $CEA_menu, <crlf>);
   $existing_DC = GetToken($CEA_menu, $idx, <crlf>);
   $existing_caption_DC = gettoken($existing_DC, 1, ";");
   $existing_caption_DC_mod = $existing_caption_DC . "  •";
   if($CEA_index == "2") {CEA($CEA_index,3);}   // comment out once the action block is set to "Run Script"
   else {CEA($CEA_index,6);}                    // comment out once the action block is set to "Run Script"
   $CEA_menu = replace($CEA_menu, "<->", $CEA_index . "<->");
   return replace($CEA_menu, $existing_caption_DC, $existing_caption_DC_mod);
   }

  $commonMENU = <<<MENU
Session Manager;<->SessionManager;:tabsets
Vertical Toolbar;<->vTB;<xyicons>\panel(03a).ico
Tabs Home;<->TabsHomeCloseRightofRoaming;:home
XY Menu;<->XYmenu_NESTED;<xyicons>\Combined\XY_Application Folder.ico
WhiteSpaceDoubleClick;<->CEA_WSDC;:favs
MENU;

  $DCtitle = <<<TITLE
     DOUBLE-CLICK ON WHITE;;;1
TITLE;

  $DCtreemenu = <<<ASSIGNMENTS
                    •  TREE  •
$commonMENU
ASSIGNMENTS;

  $DClistmenu = <<<ASSIGNMENTS
                    •  LIST  •
$commonMENU
ASSIGNMENTS;

  $DCtabmenu = <<<ASSIGNMENTS
                    •  TAB  •
$commonMENU
ASSIGNMENTS;

  $DCcrumbmenu = <<<ASSIGNMENTS
              •  BREADCRUMB  •
$commonMENU
ASSIGNMENTS;

   $CEA_tree_script = CEA(0,-2);
   $DCtreemenu = getCurrentScript($CEA_tree_script, $DCtreemenu, 0);

   $CEA_list_script = CEA(1,-2);
   $DClistmenu = getCurrentScript($CEA_list_script, $DClistmenu, 1);

   $CEA_tab_script = CEA(2,-2);
   $DCtabmenu = getCurrentScript($CEA_tab_script, $DCtabmenu, 2);

   $CEA_crumb_script = CEA(3,-2);
   $DCcrumbmenu = getCurrentScript($CEA_crumb_script, $DCcrumbmenu, 3);

   $DCmenu = $DCtitle . <crlf> . "-" . <crlf> . $DCtreemenu . <crlf> . "-" . <crlf> . $DClistmenu . <crlf> . "-" . <crlf> . $DCtabmenu . <crlf> . "-" . <crlf> . $DCcrumbmenu;

   $DoubleClick = popupmenu("$DCmenu");
   if($DoubleClick) {
      $CEA_idx = gettoken($DoubleClick,1, "<->");
      $DoubleClick_Data = gettoken($DoubleClick, 2, "<->");
  $command = <<<COMMAND
load "$DoubleClick_Data";
COMMAND;

      CEA($CEA_idx,, $command);
   }