diff --git a/src/play_clj/ui.clj b/src/play_clj/ui.clj
index c86d435..3d830e1 100644
--- a/src/play_clj/ui.clj
+++ b/src/play_clj/ui.clj
@@ -187,6 +187,11 @@ based on the file at `path`.
   [entity k & options]
   `(u/call! ^Checkbox (u/get-obj ~entity :object) ~k ~@options))
 
+(defn check-box?
+  "Returns true if `entity` is a `check-box`."
+  [entity]
+  (isa? (type (u/get-obj entity :object)) Checkbox))
+
 ; container
 
 (defn container*