Existing Hatch-Pattern-Dialogue (like AutoCAD and Bricscad)?

Who knows an existing "Hatch-Pattern-Dialogue" like it is used as "pattern-palette" in Bricscad and AutoCAD?

Target: "Show every possible pattern with name and preview"
Should be called from Lisp, and returns the selected values to Lisp ...

You could always make one. The Hatches OpenDCL sample demonstrates a way to show one selected hatch.

Yesterday I played around - the target is not to display one pattern after the other, but to create an overview.
And the basic problem is that a form with 15 / 30 / 60 hatch-forms is incredible slow ...