diff --git a/clog-base.lisp b/clog-base.lisp
index 449a4ce..0ddce96 100644
--- a/clog-base.lisp
+++ b/clog-base.lisp
@@ -442,6 +442,21 @@ for internal use of clog."))
   (bordeaux-threads:with-lock-held ((connection-data-mutex obj))
     (remhash item-name (connection-data obj))))
 
+;;;;;;;;;;;;;;;;;;
+;; set-on-event ;;
+;;;;;;;;;;;;;;;;;;
+
+(defgeneric set-on-event (clog-obj event-name on-resize-handler)
+  (:documentation "Set a generic event for CLOG-OBJ. (Private)"))
+
+(defmethod set-on-event ((obj clog-obj) event-name handler)
+  (set-event obj event-name
+	     (when handler
+	       (lambda (data)
+		 (declare (ignore data))
+		 (funcall handler obj)))))
+
+
 ;;;;;;;;;;;;;;;;;;;
 ;; set-on-resize ;;
 ;;;;;;;;;;;;;;;;;;;
diff --git a/clog-gui.lisp b/clog-gui.lisp
index d2e8169..128d4d8 100644
--- a/clog-gui.lisp
+++ b/clog-gui.lisp
@@ -369,7 +369,8 @@ The on-window-change clog-obj received is the new window"))
 					  client-movement
 					  html-id)
   (:documentation "Create a clog-gui-window. If client-movement is t then
-use jquery-ui to move/resize."))
+use jquery-ui to move/resize. When client-movement is t no events will
+be fired for size or movement of window that window."))
 
 (defmethod create-gui-window ((obj clog-obj) &key (title "New Window")
 					       (content "")