XYplorer Beta Club

Code: Select all

"Preview Folder In Other Pane : dirpanepreview"
  global $previewtab, $endmsg, $scriptname;
  $previewtab = '';
  $sourcetab = tab('get');

  while 1 {
    if !(get('#800')) { $endmsg = 'Enable Dual Pane||stop'; end 1; }
    if !$previewtab && (get('pane') != 1) { $endmsg = 'Start on pane#1||stop'; end 1; }
    if (tab('get') != $sourcetab) { $endmsg = 'Tab_Change_Exception||stop'; end 1; }
    if !($previewtab) {
      focus 'P2';
      $previewtab = tab('new', %computer%);
      tab('rename', $scriptname . '|:fp', $previewtab);
      focus 'P1';
    }

    $curitem = <curitem>;
    if ($curitem != $lastitem) {
       $lastitem = $curitem;
       if (exists($curitem)==2) {
         #1062;
      } else {
        status $scriptname . '::Not a Folder',,'alert';
      }
    }

    wait 5;
  }

"_Initialize"
  global $previewtab, $endmsg, $scriptname;
  $scriptname = 'DirPanePreview';
"_Terminate"
  global $previewtab, $endmsg, $scriptname;
  if get('#800') {
    if (get('pane')==1) {
      focus 'P2';
      tab('close', 0, $previewtab);
      focus 'P1';
    } elseif $previewtab && tab('get') != $previewtab {
      tab('close', 0, $previewtab);
    }
  }
  status $scriptname.'::'.gettoken($endmsg, 1, '|'), gettoken($endmsg, 2, '|'), gettoken($endmsg, 3, '|');