Advertisement
Guest User

Code

a guest
Jul 13th, 2013
224
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  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"]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement