XYplorer Beta Club

Code: Select all

buttonset()

Code: Select all

Snip: CTB 1
  XYplorer 22.90.0106, 07.03.2022 12:24:18
Action
  NewUserButton
Name
  Cycle Button Sets
Icon
  label: 1 >554433,ffffee
ScriptL
  // cycle button sets
    ButtonSet(-1);
    $n = ButtonSet();
    ctbicon("label: $n >554433,ffffee");
ScriptR
  
ScriptM
  
FireClick
  0

Code: Select all

//*** On first run only, determine & set CTB index [$ctbindex below] based on CTB name
//*** So we can use this in a UDC as well as a CTB
//*** This version is intended to be used as a script "file" OR add your $ctbindex yourself manually and delete the everything up front until ButtonSet...
   $ctbindex = "unknown";
   if($ctbindex LikeI "unknown") {
      $self = self("file");
      $toolbar = toolbar();
      $name_CTB = ctbname();
      foreach($button, $toolbar, ",") {
         if(substr($button, 0, 3) LikeI "ctb") {
           $ctbI = trim($button, "ctb", "L");
           if(ctbname( , $ctbI) == "$name_CTB") {
           $ctbindex = $ctbI; break;
           }
         }
       }
      $content = replace(readfile($self), "unknown", "$ctbindex", , 1, 1);
      writefile($self, $content);
   }

   ButtonSet(-1);
    $n = ButtonSet();
    ctbname("Toolbar Set #" . $n, $ctbindex);
    ctbicon("label: $n >554433,FFF2F2", $ctbindex);