sclass SnippetSelectForm {

  VF1<S> onSelected;

  S snippetTitle;

  S forceType;

  JDesktopPane desktop = mainDesktopPane();

  Container frame;

  JList list;

  JTextField tfCmd;

  JLabel status;

  JButton btnReload, btnRun, btnClear, btnOK;

  S submittedInput;

  volatile boolean searching;

  long lastSearch; // time of last search

  int searchDelay = 100;

  int maxResults = 100;

  int autoResearchInterval = 30000; // 30 secs

  L<S> actionHistory = synchroList();

  *() {}

  *(VF1<S> *onSelected) {}

  void go() swing {

    frame = showFramePossiblyInternal(desktop, "Select Snippet - " + programTitle());

    list = new JList;

    onDoubleClickAndEnter(list, r { ok() });

    ActionListener go = actionListener {

      tfCmd.selectAll();

      search(true);

    };

    btnReload = new JButton(isWindows() ? "Reload" : "\u27F3");

    btnReload.addActionListener(go);

    btnClear = new JButton("X");

    btnClear.setToolTipText("Show latest");

    btnClear.addActionListener(actionListener { tfCmd.setText(""); });

    tfCmd = new JTextField;

    btnOK = listDependentButton(list, "OK", r { ok(); });

    JPanel controls = jflow(btnClear, btnReload, btnOK);

    JPanel north = centerAndEast(

      withLabel("Search term:", tfCmd),

      controls);

    status = new JLabel(" ");

    JPanel panel = northCenterAndSouth(north, list, status);

    onEnter(tfCmd, r ok);

    if (frame instanceof JFrame) 

      onWindowActivated((JFrame) frame, r { search(false) });

    installTimer(tfCmd, new Runnable {

      String lastContents;

      boolean autoSearchOn = true;

      public void run() {

        String text = getInput();

        if (text.equals(lastContents)) {

          if (now() > lastSearch + autoResearchInterval ||

            (!text.equals(submittedInput) && autoSearchOn && !searching))

            search(false);

        } else

          lastContents = text;

      }

    }, searchDelay);

    frame.add(panel);

    frame.setBounds(100, 100, 500, 400);

    search(false);

    focusLater(tfCmd);

  }

  S getInput() {

    ret tfCmd.getText().trim();

  }

  void search(String cmd, final boolean requestFocus) ctex {

    searching = true;

    try {

      status("Searching " + quote(cmd) + "...");

      if (empty(cmd)) cmd = "_";

      if (nempty(forceType)) cmd += " type:" + forceType;

      //if (cbAll.isSelected())

        //cmd += " type:runnable";

      L<Snippet> l = tbSearch_url(tb_mainServer() + "/tb/search.php?q=" + urlencode(cmd) + "&limit=" + maxResults + "&sort=modified" + standardCredentials());

      final new DefaultListModel model;

      for (Snippet s : l)

        model.addElement(s.id + " - " + s.title);

      awt {

        list.setModel(model);

        if (model.size() != 0) list.setSelectedIndex(0);

        status("Found " + model.size() + (model.size() == maxResults ? "+" : "") + " snippet(s).");

        if (requestFocus)

          tfCmd.requestFocus();

      }

    } finally {

      searching = false;

    }

  }

  void status(final S s) {

    awt { status.setText(s); }

  }

  void search(final boolean requestFocus) {

    submittedInput = getInput();

    lastSearch = now();

    final String cmd = submittedInput;

    actionHistory.add(format3("*: Searching *", now(), cmd));

    thread {

      search(cmd, requestFocus);

    }  

  }

  void ok() {

    fS s = getSelectedItem(list);

    final int i = indexOf(s, " - ");

    if (i < 0) ret;

    snippetTitle = substring(s, i+3);

    thread {

      disposePossiblyInternalFrame(frame);

      pcall-messagebox {

        temp holdInstance(SnippetSelectForm.this);

        callF(onSelected, takeFirst(s, i));

      }

    }

  }

}