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