[mcclim-cvs] CVS mcclim/Backends/beagle

[rschlatte]

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle
In directory clnet:/tmp/cvs-serv30166/Backends/beagle

Modified Files:
	package.lisp 
Removed Files:
	beagle-backend.asd 
Log Message:
Beagle backend fixes
  * functionality not tested, but it loads under clozure cl snapshot
  * Patches by Greg Pfeil

Signed-off-by: Rudi Schlatte <rudi at constantly.at>


--- /project/mcclim/cvsroot/mcclim/Backends/beagle/package.lisp	2006/03/30 12:07:59	1.5
+++ /project/mcclim/cvsroot/mcclim/Backends/beagle/package.lisp	2007/12/18 10:54:21	1.6
@@ -1,6 +1,8 @@
-
 ;;; -*- Mode: Lisp; Package: COMMON-LISP-USER -*-
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (require :cocoa))
+
 ;;; START - Cribbed from framework/cocoa-support.lisp
 (in-package "CCL")
 (defun nslog (c)
@@ -24,7 +26,6 @@
 
                 #:port-event-process
                 #:port-grafts
-                #:%set-port-keyboard-focus
                 #:set-sheet-pointer-cursor
                 ;;
                 #:update-mirror-geometry
@@ -63,7 +64,6 @@
                 #:width                 ;dito
                 #:coordinate=
                 #:get-transformation
-                #:keyboard-input-focus
                 #:port-grab-pointer
                 #:port-ungrab-pointer
                 ;;
@@ -100,4 +100,3 @@
 				#:with-nsstr)
   (:export #:beagle-standard-frame-manager
 	   #:beagle-aqua-frame-manager))
-		
\ No newline at end of file