XYplorer Beta Club

Code: Select all

 $newCB = <<<'EOD'
[CustomButtons]
Version=1
Count=1
1=""loader|:ladybug|1|0"  load "<xyscripts>.\myscript.xys";		"

[BookmarkButtons]  
 EOD;

 $content = readfile("<xydata>\<xyini>");
 $content_new = regexreplace($content, "\[CustomButtons]([\s\S]*?)\[BookmarkButtons]", $newCB);
 writefile("<xydata>\<xyini>", $content_new, "o");
 #190;   //restart

Code: Select all

$oldtoolbar = toolbar();
 toolbar($oldtoolbar."-,ctb1,".);

Code: Select all

    $oldToolbar = toolbar();
    if (!regexmatches($oldToolbar, "\bctb1\b")) {
        toolbar($oldToolbar . ",ctb1");
    }

Code: Select all

$oldtoolbar = toolbar();
 toolbar("ctb1,-".$oldtoolbar); 

Code: Select all

    $oldToolbar = toolbar();
    if (!regexmatches($oldToolbar, "\bctb1\b")) {
        toolbar($oldToolbar . ",ctb1");
    }

Code: Select all

    $script = <<<'#EOD'
"loader|:ladybug|1|0" load "<xyscripts>\myscript.xys";
#EOD;

    $script     = replace(trim($script, <crlf>), <crlf>, "¶");
    $iniFile    = "<xydata>\<xyini>";
    $iniContent = readfile($iniFile);

    $section = getsectionlist("CustomButtons", $iniFile);
    $cntBtns = gettoken(regexmatches($section, "^Count=\d+$"), 2, "=");
    $section = regexreplace($section, "^(Version|Count)=\d+(\r?\n|$)");

    $btnID = "";
    while ($i++ < 64) {
        $line = gettoken($section, $i, <crlf>);
        // Find an existing but not-populated line or an empty one
        if (regexmatches($line, "^\d{1,2}=""""$") || $line == "") {
            $btnID = $i;
            break;
        }
    }
    end ($btnID == ""), "No free (x of 64) custom button entry found, aborted!";

    // Add new / overwrite empty entry and adjust the "Count" if necessary
    $newLine = quote($script . <tab 2>);
    if ($btnID > $cntBtns) { setkey $btnID, "Count", "CustomButtons", $iniFile, 2; }
    setkey $newLine, $btnID, "CustomButtons", $iniFile, 2;

    // Restart without saving
    #190;