prep for 1.6

source/clog-canvas.lisp

@@ -187,7 +187,7 @@
 ;;;;;;;;;;;;;;;;;;;
 
 (Defgeneric get-line-dash (clog-context2d)
-  (:documentation "Set line style dash pattern, e.g. [10, 20]"))
+  (:documentation "Set line style dash pattern, e.g. 10, 20"))
 
 (defmethod get-line-dash ((obj clog-context2d))
   (query obj (format nil "getLineDash()")))
@@ -197,7 +197,7 @@
 ;;;;;;;;;;;;;;;;;;;
 
 (defgeneric set-line-dash (clog-context2d value)
-  (:documentation "Set line style dash pattern, e.g. [10, 20]"))
+  (:documentation "Set line style dash pattern, e.g. 10, 20"))
 
 (defmethod set-line-dash ((obj clog-context2d) value)
   (execute obj (format nil "setLineDash(~A)" value)))

source/clog-element.lisp

@@ -44,7 +44,7 @@ element objects."))
 CONNECTION-ID. There must be a single outer block that will be set to
 an internal id. The returned CLOG-Element requires placement or will
 not be visible, ie. place-after, etc. as it exists in the javascript
-clog[] but is not in the DOM. If HTML-ID is nil one is generated.
+clog array but is not in the DOM. If HTML-ID is nil one is generated.
 (private)"
   (let ((web-id (if html-id
                     html-id
@@ -245,17 +245,17 @@ after attachment is changed to one unique to this session."))
 
 (defgeneric access-key (clog-element)
   (:documentation "Get/Setf access-key. Used for hot key access to element.
-[special key] + Access_Key
+special key + Access_Key
 
-   The [special key] per browser and platform is:
+   The special key per browser and platform is:
 
-    Browser              Windows       Linux           Mac
+    Browser              Windows     Linux          Mac
-    -----------------    -------       -----           ---
+    -----------------    -------     -----          ---
-    Internet Explorer     [Alt]         N/A            N/A
+    Internet Explorer     Alt         N/A           N/A
-    Chrome                [Alt]        [Alt]     [Control][Alt]
+    Chrome                Alt         Alt       Control|Alt
-    Firefox           [Alt][Shift] [Alt][Shift]  [Control][Alt]
+    Firefox             Alt|Shift   Alt|Shift   Control|Alt
-    Safari                [Alt]         N/A      [Control][Alt]
+    Safari                Alt         N/A       Control|Alt
-    Opera 15+             [Alt]        [Alt]          [Alt]"))
+    Opera 15+             Alt         Alt           Alt"))
 
 (defmethod access-key ((obj clog-element))
   (property obj "accessKey"))
@@ -823,12 +823,12 @@ handles how elements are treated by the browser layout engine.
                       order - sets visual item order in flexbox
                       align-self - override flexbox's align-items for item
 
-                   :flex-start    [---  ]
+                   :flex-start    (---  )
-                   :flex-end      [   ---]
+                   :flex-end      (   ---)
-                   :center        [ --- ]
+                   :center        ( --- )
-                   :space-between [-  -  -]
+                   :space-between (-  -  -)
-                   :space-around  [ -   -   - ]
+                   :space-around  ( -   -   - )
-                   :space-evenly  [ - - - ]
+                   :space-evenly  ( - - - )
 
     grid         - Turn this item in to a grid container block level. The grid
                    properties to adjust for container are:
@@ -1843,7 +1843,7 @@ is relative to origin of: padding-box|border-box|content-box"))
 
 (defgeneric background-repeat (clog-element)
   (:documentation "Get/Setf background-repeat. repeat-x | repeat-y |
-[ repeat | space | round | no-repeat ]{1,2}"))
+( repeat | space | round | no-repeat ) {1,2}"))
 
 (defmethod background-repeat ((obj clog-element))
   (style obj "background-repeat"))

source/clog-gui.lisp

@@ -764,6 +764,7 @@ the window will be set to keep-on-top always."))
       (setf (content win) (attach-as-child win (format nil "~A-body"  html-id)))
       (setf (gethash (format nil "~A" html-id) (windows app)) win)
       (set-on-click win (lambda (obj)
+                          (declare (ignore obj))
                           (unless (> (modal-count app) 0)
                             (window-focus win))))
       (if maximize

source/clog-system.lisp

@@ -98,6 +98,7 @@ example."
   (declare (ignorable host
                       port
                       server
+                      lack-middleware-list
                       extended-routing
                       long-poll-first
                       boot-file

source/clog-webgl.lisp

@@ -29,7 +29,7 @@
   (frame-buffer-attachment-parameter generic-function)
   (parameter                         generic-function)
   (render-buffer-parameter           generic-function)
-  (texture-paramenter                generic-function)
+  (texture-parameter                 generic-function)
   (vertex-attribute                  generic-function)
 
   (active-texture                    generic-function)
@@ -95,11 +95,11 @@
   (create-shader     generic-function)
   (is-shader         generic-function)
 
-  (shader-source     generic-function)
+  (shader-source        generic-function)
-  (shader-parameter  generic-function)
+  (shader-parameter     generic-function)
-  (shader-info-log   generic-function)
+  (shader-info-log      generic-function)
-  (compile-shader    generic-function)
+  (compile-shader       generic-function)
-  (delete-shader     generic-function)
+  (delete-shader        generic-function)
 
   "CLOG-WebGL-Program - Class for CLOG WebGL-Program objects"
   (clog-webgl-program class)
@@ -131,10 +131,10 @@
   (delete-buffer       generic-function)
 
   "CLOG-WebGL-Vertex-Array - Class for CLOG WebGL-Vertex-Array objects"
-  (clog-vertex-array   class)
+  (clog-webgl-vertex-array class)
-  (create-vertex-array generic-function)
+  (create-vertex-array     generic-function)
-  (bind-vertex-array   generic-function)
+  (bind-vertex-array       generic-function)
-  (delete-vertex-array generic-function)
+  (delete-vertex-array     generic-function)
 
   "CLOG-WebGL-Frame-Buffer - Class for CLOG WebGL-Frame-Buffer objects"
   (clog-webgl-frame-buffer   class)
@@ -377,7 +377,7 @@ When using a WebGL 2 context, the following values are available additionally:
 (defmethod blend-equation ((obj clog-webgl) glenum-mode)
   (execute obj (format nil "blendEquation(~A.~A)" (script-id obj) glenum-mode)))
 
-(defgeneric blend-equation-separate (clog-webgl glenum-mode-rgb glenum-mode-alpha)
+(defgeneric blend-equation-seperate (clog-webgl glenum-mode-rgb glenum-mode-alpha)
   (:documentation "Used to set both the RGB blend equation and alpha blend equation to a single equation.
 :FUNC_ADD : source + destination (default value)
 :FUNC_SUBTRACT : source - destination
@@ -388,7 +388,7 @@ When using a WebGL 2 context, the following values are available additionally:
 :MIN : Minimum of source and destination
 :MAX : Maximum of source and destination"))
 
-(defmethod blend-equation-separate ((obj clog-webgl) glenum-mode-rgb glenum-mode-alpha)
+(defmethod blend-equation-seperate ((obj clog-webgl) glenum-mode-rgb glenum-mode-alpha)
   (execute obj (format nil "blendEquationSeparate(~A.~A,~A.~A)"
                        (script-id obj) glenum-mode-rgb
                        (script-id obj) glenum-mode-alpha)))
@@ -607,8 +607,8 @@ position."))
 
 (defgeneric finish (clog-webgl)
   (:documentation "Blocks execution until all previously called commands are
-finished. [this needs to be written to fire an event when done to work fully
+finished. this needs to be written to fire an event when done to work fully
-with CLOG]"))
+with CLOG"))
 
 (defmethod finish ((obj clog-webgl))
   (execute obj "finish()"))
@@ -894,6 +894,9 @@ For :GLENUM values"))
 ;; Properties - clog-webgl-shader
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(defgeneric shader-source (clog-webgl-shader source)
+  (:documentation "Sets shader source code"))
+
 (defmethod (setf shader-source) (source (obj clog-webgl-shader))
   (execute (gl obj) (format nil "shaderSource(~A, '~A')"
                             (script-id obj)

source/clog.lisp

@@ -115,7 +115,7 @@ embedded in a native template application.)"
   (blur   generic-function)
 
   "CLOG-Obj - Low Level"
-  (*store-new-objects*         generic-function)
+  (*store-new-objects*         variable)
   (connection-data             generic-function)
   (connection-data-item        generic-function)
   (connection-body             generic-function)