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

Modified Files: README.txt beagle-backend.asd Log Message: Add native button support (only for push buttons). There are several limitations in this code, the most significant of which are:-

+ inter-control spacing. How to work out what this is supposed to be (assume buttons are next to more buttons for now) + event handling across separate frames - most obvious in DEMODEMO. When one of the demo apps is started from the demodemo panel, every frame involved locks up (demodemo panel waiting for callback to return and apparently consuming all events until this happens).

Date: Sun Jun 12 18:53:25 2005 Author: drose

Index: mcclim/Backends/beagle/README.txt diff -u mcclim/Backends/beagle/README.txt:1.17 mcclim/Backends/beagle/README.txt:1.18 --- mcclim/Backends/beagle/README.txt:1.17 Sun Jun 12 15:27:39 2005 +++ mcclim/Backends/beagle/README.txt Sun Jun 12 18:53:25 2005 @@ -212,13 +212,13 @@ TITLE-PANE TITLE-PANE POINTER-DOCUMENTATION-PANE POINTER-DOCUMENTATION-PANE

- PUSH-BUTTON-PANE (g) PUSH-BUTTON-PANE NSButton [ ] + PUSH-BUTTON-PANE (g) PUSH-BUTTON-PANE NSButton [x] (32) TOGGLE-BUTTON-PANE (g) TOGGLE-BUTTON-PANE NSButton [ ] MENU-BUTTON-PANE (g) MENU-BUTTON-PANE NSMenuItem [ ] SCROLL-BAR-PANE (g) SCROLL-BAR-PANE NSScroller [x] SLIDER-PANE (g) SLIDER-PANE NSSlider [x] - RADIO-BOX-PANE (g) RADIO-BOX-PANE NSButton [ ] - CHECK-BOX-PANE (g) CHECK-BOX-PANE NSButton [ ] + RADIO-BOX-PANE (g) RADIO-BOX-PANE NSMatrix [ ] + CHECK-BOX-PANE (g) CHECK-BOX-PANE NSMatrix [ ] GENERIC-LIST-PANE (g) GENERIC-LIST-PANE GENERIC-OPTION-PANE (g) GENERIC-OPTION-PANE NSComboBox [ ] TEXT-FIELD-PANE (g) TEXT-FIELD-PANE NSTextField [ ] @@ -341,7 +341,9 @@ drop down menus (only popup menus, which work, more or less).

(This is also a problem for context menus, if you keep the right button - depressed (menu isn't drawn)) + depressed (menu isn't drawn)) [yes, it is - no problem with popups that + I can see now, other than whilst the button is held down the events + aren't routed to them].

31. Using the scroll wheel over (aqua) scroll panes doesn't work (but does @@ -353,6 +355,16 @@

BEAGLE-SCROLL-BAR-PANE should inherit from SCROLL-BAR rather than SCROLL-BAR-PANE I think. + + +32. Using a button to fire up a new frame is problematical; the callback + for the button doesn't return, so the button never releases focus and + no events are processed. Specific to aqua buttons. + + +33. When a window is closed by the (x) button it should be cleared up + properly; specifically, its event loop etc. should be gced. Appears + at the moment that this isn't happening.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Index: mcclim/Backends/beagle/beagle-backend.asd diff -u mcclim/Backends/beagle/beagle-backend.asd:1.6 mcclim/Backends/beagle/beagle-backend.asd:1.7 --- mcclim/Backends/beagle/beagle-backend.asd:1.6 Sun Jun 12 15:27:39 2005 +++ mcclim/Backends/beagle/beagle-backend.asd Sun Jun 12 18:53:25 2005 @@ -1,6 +1,6 @@ ;; -*- Mode: Lisp; -*-

-;; $Id: beagle-backend.asd,v 1.6 2005/06/12 13:27:39 drose Exp $ +;; $Id: beagle-backend.asd,v 1.7 2005/06/12 16:53:25 drose Exp $

(defpackage "BEAGLE" (:use "CLIM" "CLIM-LISP") @@ -99,6 +99,7 @@ (:file "lisp-view-additional" :depends-on ("lisp-view")) (:file "lisp-scroller") (:file "lisp-slider") + (:file "lisp-button") (:file "lisp-image"))) (:file "cocoa-util") (:module "Windowing" @@ -114,6 +115,10 @@ :components ((:file "beagle-scroll-bar-pane") (:file "beagle-slider-pane") + ;; Basic buttons - not collections of buttons + (:file "beagle-fundamental-button-pane") + ;; Button collections (radio + checkbox) +;; (:file "beagle-button-collection-pane") (:file "scroller-pane-fix"))) (:module "Output" :depends-on ("Windowing")