[mcclim-cvs] CVS update: mcclim/Backends/beagle/beagle-backend.asd mcclim/Backends/beagle/cocoa-util.lisp

[Duncan Rose]

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle
In directory common-lisp.net:/tmp/cvs-serv29931/beagle

Modified Files:
	beagle-backend.asd cocoa-util.lisp 
Log Message:
Some code rearrangement whilst investigating some event handling strangeness
(events are added to the queue for 'drop down' menus, but dispatch event
is not executed whilst the 'unmanaged' window is on screen).

Added the first native pane type for scroller panes. Still a bunch of stuff
to do on this (need to create 'native' scroll-pane type too so scroll bars
are drawn the right way around (:vertical on RHS), and they don't yet
behave like you'd expect).

Date: Sun Jun  5 21:52:54 2005
Author: drose

Index: mcclim/Backends/beagle/beagle-backend.asd
diff -u mcclim/Backends/beagle/beagle-backend.asd:1.3 mcclim/Backends/beagle/beagle-backend.asd:1.4
--- mcclim/Backends/beagle/beagle-backend.asd:1.3	Fri Jun  3 00:17:27 2005
+++ mcclim/Backends/beagle/beagle-backend.asd	Sun Jun  5 21:52:54 2005
@@ -1,6 +1,6 @@
 ;; -*- Mode: Lisp; -*-
 
-;; $Id: beagle-backend.asd,v 1.3 2005/06/02 22:17:27 drose Exp $
+;; $Id: beagle-backend.asd,v 1.4 2005/06/05 19:52:54 drose Exp $
 
 (defpackage "BEAGLE"
   (:use "CLIM" "CLIM-LISP")
@@ -97,8 +97,8 @@
 					(:file "lisp-window-delegate")
 					(:file "lisp-view" :depends-on ("lisp-bezier-path"))
 					(:file "lisp-view-additional" :depends-on ("lisp-view"))
+					(:file "lisp-scroller")
 					(:file "lisp-image")))
-;;;					(:file "lisp-unmanaged-view")))
 			      (:file "cocoa-util")
 			      (:module "Windowing"
 				       :depends-on ("Native")
@@ -108,6 +108,10 @@
 					(:file "frame-manager")
 					(:file "mirror")
 					(:file "graft")))
+			      (:module "NativePanes"
+				       :pathname #.(make-pathname :directory '(:relative "native-panes"))
+				       :components
+				       ((:file "beagle-scroll-bar-pane")))
 			      (:module "Output"
 				       :depends-on ("Windowing")
 				       :pathname #.(make-pathname :directory '(:relative "output"))


Index: mcclim/Backends/beagle/cocoa-util.lisp
diff -u mcclim/Backends/beagle/cocoa-util.lisp:1.3 mcclim/Backends/beagle/cocoa-util.lisp:1.4
--- mcclim/Backends/beagle/cocoa-util.lisp:1.3	Sat May 28 21:56:04 2005
+++ mcclim/Backends/beagle/cocoa-util.lisp	Sun Jun  5 21:52:54 2005
@@ -42,7 +42,7 @@
 by the user (using (#_free))."
   (make-record :<NSP>oint :x x :y y))
 
-;; Stolen from Bosco "main.lisp"
+;; Stolen from Bosco "main.lisp".
 (defun description (c)
   (with-autorelease-pool
    (lisp-string-from-nsstring