Merge pull request #209 from MIvanchev/test-fixes

Fixing failing tests.

gcontext.lisp

@@ -226,7 +226,7 @@
 (def-gc-accessor foreground card32)
 (def-gc-accessor background card32)
 (def-gc-accessor line-width card16)
-(def-gc-accessor line-style (member :solid :dash :double-dash))
+(def-gc-accessor line-style (member :solid :on-off-dash :double-dash))
 (def-gc-accessor cap-style (member :not-last :butt :round :projecting))
 (def-gc-accessor join-style (member :miter :round :bevel))
 (def-gc-accessor fill-style (member :solid :tiled :stippled :opaque-stippled))

manual/clx.texinfo

@@ -5804,7 +5804,7 @@ ends of the individual dashes, except @var{:not-last} is treated as
 
 @table @var
 @item line-style
-One of @var{:dash}, @var{:double-dash}, or @var{:solid}.
+One of @var{:on-off-dash}, @var{:double-dash}, or @var{:solid}.
 @end table
 
 @end defun

tests/core-protocol.lisp

@@ -254,8 +254,6 @@
            (finishes (setf (xlib:window-priority child-window) priority)))
       (finishes (setf (xlib:window-save-under child-window) :on))
 
-      (is (= (xlib:drawable-width child-window) 100))
-      (sleep 2)
       (is (= (xlib:drawable-width child-window) 120))
       (is (= (xlib:drawable-height child-window) 120))
       (is (= (xlib:drawable-x child-window) 60))