widget?

[procedure] widget? obj

STk: returns #t if obj is a widget.