[mcclim-cvs] CVS update: mcclim/Backends/beagle/README.txt mcclim/Backends/beagle/beagle-backend.asd

[Duncan Rose]

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")