XYplorer Beta Club

Code: Select all

    // text toolbar(); -> Show current toolbar definition

    $tbs = <<<>>>
1. Standard|back,fore,up,-,myco,mru,find,openwith,-,newfolder,copy,cut,paste,del,-,undo,redo,-,tpt,cbx,sfs,-,qns,vfset,visualfilter,tsf,-,tsm,dark,minitree,flatview,views,dp,pp,fp,-,cofi,icf,-,conf
2. Work 1|back,fore,-,myco,hotlist,openwith,-,ctb2,ctb3,ctb17,-,ctb4,ctb5,ctb12,-,ctb6,ctb7,-,ctb1,ctb11,ctb18,ctb13,ctb14,ctb15,ctb16,-,undo,redo,-,ctb8,-,flatview,cofi,tsf,visualfilter,icf,cucopy
    >>>;
    $captions = regexreplace($tbs, "^(.+?)(\|.*?)(?=\r?\n|$)", "$1");

    $sel = popupmenu($captions, 5:=1, 6:=<crlf>);
    if (!$sel) { status "No menu entry selected, aborted!", "8B4513", "stop"; end true; }

    $definition = gettoken(gettoken($tbs, $sel, <crlf>), 2, "|");
    toolbar($definition);