Changeset main,32 for main/window/generic.lisp

Timestamp:

11/05/2007 08:07:28 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071105200728-3by4ndm9tpee0s6p

Message:

Fix: SIZE should report width and height, not maximal x and y values.

File:

• main/window/generic.lisp (modified) (1 diff)

main/window/generic.lisp

@@ -51 +51 @@
 (defun size (window)
   (let ((ptr (window-pointer window)))
-    (values (getmaxy ptr)
-            (getmaxx ptr))))
+    (values (1+ (getmaxy ptr))
+            (1+ (getmaxx ptr)))))
 
 (defun erase (window)