Forums Scripts & Popups @windows listbox

menu @Window {
  lbclick:{
    var %w = $menu
    if ($sline(%w,0) = 1) { %sel.ln = $sline(%w,1).ln }
    elseif (!$sline(%w,0)) { unset %sel.ln } 
    else { 
      var %l = $sline(%w,$iif($sline(%w,1).ln = %sel.ln,2,1)).ln 
      sline -sl %w %l
      %sel.ln = %l
    }
  }
}
on *:close:@Window:{ unset %sel.ln }