documentation update

source/clog-form.lisp

@@ -117,7 +117,7 @@ action."))
   (:documentation "Set autocompletep for CLOG-FORM"))
 
 (defmethod set-autocompletep ((obj clog-form) autocompletep)
-  (if value
+  (if autocompletep
       (setf (attribute obj "autocomplete") "true")
       (remove-attribute obj "autocomplete")))
 (defsetf autocompletep set-autocompletep)

source/clog-gui.lisp

@@ -786,7 +786,6 @@ the window will be set to keep-on-top always."))
 				   (fire-on-window-move win)))
 	     (clog::set-on-event win "dragstop"
 				 (lambda (obj)
-				   (declare (ignore obj))
 				   (if (< (parse-integer (top win) :junk-allowed t)
 					  (menu-bar-height obj))
 				       (setf (top win) (unit "px" (menu-bar-height obj))))

source/clog-panel.lisp

@@ -268,14 +268,13 @@ if :HTML-ID \"myid\" then the HTML-ID for center will be: myid-center"
 ;; create-panel-box ;;
 ;;;;;;;;;;;;;;;;;;;;;;
 
-(defgeneric create-panel-box (clog-obj &key hidden class html-id auto-place)
+(defgeneric create-panel-box (clog-obj &key width height hidden class html-id auto-place)
   (:documentation "Create a new CLOG-Panel-Box, a div containg a
 CLOG-PANEL-BOX-LAYOUT as child of CLOG-OBJ with and if :AUTO-PLACE
 (default t) place-inside-bottom-of CLOG-OBJ. If hidden is true visiblep
 is set to nil."))
 
-(defmethod create-panel-box ((obj clog-obj) &key (content "")
-					      (width "100%") (height "100%")
+(defmethod create-panel-box ((obj clog-obj) &key (width "100%") (height "100%")
 					      (hidden nil)
 					      (class nil)
 					      (html-id nil)

source/clog.lisp

@@ -373,7 +373,7 @@ embedded in a native template application.)"
   "CLOG-Details - Class for CLOG Detail Blocks"
   (clog-details   class)
   (create-details generic-function)
-  (detail-openp   generic-function)
+  (details-openp  generic-function)
 
   "CLOG-Summary - Class for CLOG Summary Blocks"
   (clog-summary   class)