From: espen <espen>
Date: Sun, 14 Jan 2007 23:24:11 +0000 (+0000)
Subject: Added missing arguments
X-Git-Tag: clg-0-93~196
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/6cff1e9936c781d695eb411a1479008a70e6d873?ds=inline

Added missing arguments
---

diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp
index 97cd766..f657644 100644
--- a/gdk/gdk.lisp
+++ b/gdk/gdk.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gdk.lisp,v 1.32 2006/08/14 14:03:32 espen Exp $
+;; $Id: gdk.lisp,v 1.33 2007/01/14 23:24:11 espen Exp $
 
 
 (in-package "GDK")
@@ -244,11 +244,18 @@ (defbinding get-show-events () boolean)
 
 ;;; Miscellaneous functions
 
-(defbinding screen-width () int)
-(defbinding screen-height () int)
+(defbinding screen-width () int
+  (screen screen))
+
+(defbinding screen-height () int
+  (screen screen))
+
+(defbinding screen-width-mm () int
+  (screen screen))
+
+(defbinding screen-height-mm () int
+  (screen screen))
 
-(defbinding screen-width-mm () int)
-(defbinding screen-height-mm () int)
 
 (defbinding pointer-grab 
     (window &key owner-events events confine-to cursor time) grab-status