SHARE
TWEET

Code

a guest Jul 13th, 2013 26 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. list = {"a", "abc", "abcd"};
  2. column = Column[{
  3.     InputField[Dynamic@x, String, ContinuousAction -> True]
  4.     , Dynamic@Column[
  5.       Map[Function[
  6.         EventHandler[
  7.          #, {"MouseClicked" :> (x = #)}
  8.          ]
  9.         ], Select[list, StringMatchQ[#, x ~~ ___] &]]
  10.       ]}];
  11. CellPrint[
  12.  Cell[BoxData@ToBoxes[columns], "Output", CellTags -> "MyUniqueCell"]]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top