- mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

[mcclim-cvs] CVS update: mcclim/Backends/beagle/README.txt mcclim/Backends/beagle/beagle-backend.asd
by drose＠common-lisp.net 02 Jun '05

02 Jun '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle In directory common-lisp.net:/tmp/cvs-serv6872/beagle Modified Files: README.txt beagle-backend.asd Log Message: Tidying of mirror functionality; menus are now drawn in the correct places, although motion events over 'popup' menus is intermittent, and motion events appear to be ignored altogether over command menu panes. Some reorganisation of the README.txt file in an attempt to prioritise future work. Date: Fri Jun 3 00:17:28 2005 Author: drose Index: mcclim/Backends/beagle/README.txt diff -u mcclim/Backends/beagle/README.txt:1.12 mcclim/Backends/beagle/README.txt:1.13 --- mcclim/Backends/beagle/README.txt:1.12 Fri May 20 00:25:33 2005 +++ mcclim/Backends/beagle/README.txt Fri Jun 3 00:17:27 2005 @@ -132,6 +132,50 @@ KNOWN LIMITATIONS / TODO LIST +--- Button pane highlighting and mouse event handling --- + +!5. Mouse down / up on buttons appears not to work very well unless the frame + containing the buttons is the only active frame. + Actually, this ^^^ seems to work fine, but the highlighting for button + gadgets looks screwy under OS X. + (Think there is a problem with tracking rectangles not being set for + panes. Another alternative relates to the calculation of pointer position + in the MOUSE-ENTER/EXIT event generator.) + + Also, think 'drop down' menus aren't working for similar reasons; either + to do with McCLIM not understanding where the pointer is, or something to + do with tracking-pointer. + + +!21. Highlighting on mouse overs isn't quite right; artefacts are left on the + display after the mouse has moved out of the target object bounding + rectangle (most easily visible in CLIM-FIG again, and also in the + directory view of the Listener (look at the highlighting of the images). + + +--- General windowing and drawing --- + +!24. Testing + further work on patterns and stencils. + + +!26. Minimising frames and then restoring them leads to the frame not + being drawn properly; it looks like 'drawRect' is invoked (as + expected), but nothing to tell McCLIM to redraw the whole frame. + Suspect a notification is sent... needs investigation. + + +--- Large output histories --- + +!23. Large output histories: the transformations and geometry calculations + go wrong when the output takes up more than 2^16 pixels; the medium + should be used to account for this (it does in CLX) but for some + reason it isn't. Can work around by changing every #x8000 in + UPDATE-MIRROR-GEOMETRY (see sheets.lisp in core) to #x800000 (or larger) + but this will fail eventually (i.e. with a large enough output + history), so it needs sorting properly. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + 1. Speed! The current implementation is __slow__, especially when there is a large output history. Paolo's stress test takes 26 seconds and conses 16MB on my (admittedly slow) iMac compared to 1.5 seconds on a 2.4GHz @@ -176,21 +220,15 @@ get everything else working first! -5. Mouse down / up on buttons appears not to work very well unless the frame - containing the buttons is the only active frame. - Actually, this ^^^ seems to work fine, but the highlighting for button - gadgets looks screwy under OS X. - (Think there is a problem with tracking rectangles not being set for - panes. Another alternative relates to the calculation of pointer position - in the MOUSE-ENTER/EXIT event generator.) - - 7. Keyboard events are not handled "properly" as far as any OS X user will be concerned; only the ASCII characters are recognised, along with simple modifiers. It's enough to enter commands and edit the command via Emacs-like CTRL-B (backward char), CTRL-F (forward char), CTRL-A (start of line), CTRL-E (end of line), CTRL-D (delete char). + Suspect some changes to McCLIM core will be needed before this stuff + can be supported 'properly'. + 8. There is no +flipping-ink+ implementation. Anything drawn in flipping ink shows up bright red with about 50% transparency (which is why the @@ -205,36 +243,6 @@ 12. There's some debug output remaining in some corner cases. -15. Popup menus don't work quite the same way as they do in the CLX back - end. Cocoa doesn't support pointer grabbing so disposing of menus when - the mouse pointer moves off them doesn't work in Beagle (either choose - a command, or mouse-click on a different window to get rid of them). - Additionally, highlighting the menu item the mouse is currently over - is rather intermittent, although the correct menu item appears to always - be chosen on mouse-click (related to the same tracking rectangle issue - mentioned in (5)?). - - -16. Windows are put on screen very early in the realization process which - wasn't a bad thing during early development (could see how far through - things got before blowing up) but now it just looks messy. - - -19. Menus don't work in CLIM-FIG (or anywhere else!). No idea why not... - This is because (I think) the menu popups don't operate in a flipped - coord system (unlike NSViews). [Command menu that is drawn across - top of window has 'child menus' drawn in bottom-left corner of screen) - - TODO: make use of graft native transformation to flip coords rather - than the NSView 'isFlipped' method? - - -21. Highlighting on mouse overs isn't quite right; artefacts are left on the - display after the mouse has moved out of the target object bounding - rectangle (most easily visible in CLIM-FIG again, and also in the - directory view of the Listener (look at the highlighting of the images). - - 22. Sending key-down / key-up events for modifiers-changed events doesn't look to help get the pointer documentation pane to show the correct prompt. For example, in the Listener, issue a 'help commands' and @@ -246,24 +254,6 @@ Need to check CLX implementation to see if this is the same... -23. Large output histories: the transformations and geometry calculations - go wrong when the output takes up more than 2^16 pixels; the medium - should be used to account for this (it does in CLX) but for some - reason it isn't. Can work around by changing every #x8000 in - UPDATE-MIRROR-GEOMETRY (see sheets.lisp in core) to #x800000 (or larger) - but this will fail eventually (i.e. with a large enough output - history), so it needs sorting properly. - - -24. Testing + further work on patterns and stencils. - - -26. Minimising frames and then restoring them leads to the frame not - being drawn properly; it looks like 'drawRect' is invoked (as - expected), but nothing to tell McCLIM to redraw the whole frame. - Suspect a notification is sent... needs investigation. - - 27. Since key focus handling was implemented, closing apps often lands you in the kernel debugger. As an example, running glimpse, then the Listener, type something in Listener, give glimpse focus, exit @@ -373,12 +363,51 @@ objects once they go out of scope. At least, I think (and hope) that's the reason 'cause that's easy to fix. RESOLVED 17.JUL.04 +-15.- Popup menus don't work quite the same way as they do in the CLX back + end. Cocoa doesn't support pointer grabbing so disposing of menus when + the mouse pointer moves off them doesn't work in Beagle (either choose + a command, or mouse-click on a different window to get rid of them). + Additionally, highlighting the menu item the mouse is currently over + is rather intermittent, although the correct menu item appears to always + be chosen on mouse-click (related to the same tracking rectangle issue + mentioned in (5)?). + + Further observation; if the right button is held down whilst moving + around the popup, the bounding rects are drawn properly. It's only + intermittent if the right mouse button is released. Not sure if this + makes sense... (note: right-click to bring menu up, the right click + again and 'drag' to get menu highlighting working). Not sure if this + is because the menu frames don't process mouse moved events properly. + Could be. + + +-16.- Windows are put on screen very early in the realization process which + wasn't a bad thing during early development (could see how far through + things got before blowing up) but now it just looks messy. + + This is now resolved for application frames (put up when ENABLE-FRAME + is invoked) but not for menu panes (since ENABLE-FRAME appears not + to be invoked at all for them). Resolved (kind-of) for menu frames too + now; these are put up during the ADOPT-FRAME functionality. + + Drawing is still rather messy though, more investigation needed. + + -17.- *BEAGLE-DEFAULT-FRAME-MANAGER* should be replaced with the standard *DEFAULT-FRAME-MANAGER* instead. FIXED 17.MAY.2005 - *beagle-default-frame-manager* is no more (well... it's still there but it can be ignored to all intents and purposes). -18.- Note about force-quit; appended to (5). + +-19.- Menus don't work in CLIM-FIG (or anywhere else!). No idea why not... + This is because (I think) the menu popups don't operate in a flipped + coord system (unlike NSViews). [Command menu that is drawn across + top of window has 'child menus' drawn in bottom-left corner of screen] + + TODO: make use of graft native transformation to flip coords rather + than the NSView 'isFlipped' method? + -20.- Bounding rectangles are slightly off (this can be seen in CLIM-FIG again). It's only a matter of a pixel, maybe 2 in the worst case I've seen. Index: mcclim/Backends/beagle/beagle-backend.asd diff -u mcclim/Backends/beagle/beagle-backend.asd:1.2 mcclim/Backends/beagle/beagle-backend.asd:1.3 --- mcclim/Backends/beagle/beagle-backend.asd:1.2 Tue May 17 00:13:08 2005 +++ mcclim/Backends/beagle/beagle-backend.asd Fri Jun 3 00:17:27 2005 @@ -1,6 +1,6 @@ ;; -*- Mode: Lisp; -*- -;; $Id: beagle-backend.asd,v 1.2 2005/05/16 22:13:08 drose Exp $ +;; $Id: beagle-backend.asd,v 1.3 2005/06/02 22:17:27 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-image") - (:file "lisp-unmanaged-view"))) + (:file "lisp-image"))) +;;; (:file "lisp-unmanaged-view"))) (:file "cocoa-util") (:module "Windowing" :depends-on ("Native")

1 0

[mcclim-cvs] CVS update: mcclim/Backends/beagle/input/events.lisp
by drose＠common-lisp.net 29 May '05

29 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/input In directory common-lisp.net:/tmp/cvs-serv303/beagle/input Modified Files: events.lisp Log Message: Nasty hacks to add support for backspace + delete keys. Date: Sun May 29 11:55:39 2005 Author: drose Index: mcclim/Backends/beagle/input/events.lisp diff -u mcclim/Backends/beagle/input/events.lisp:1.5 mcclim/Backends/beagle/input/events.lisp:1.6 --- mcclim/Backends/beagle/input/events.lisp:1.5 Sat May 28 21:56:05 2005 +++ mcclim/Backends/beagle/input/events.lisp Sun May 29 11:55:39 2005 @@ -28,7 +28,7 @@ #|| -$Id: events.lisp,v 1.5 2005/05/28 19:56:05 drose Exp $ +$Id: events.lisp,v 1.6 2005/05/29 09:55:39 drose Exp $ Events in Cocoa --------------- @@ -201,7 +201,8 @@ ;; This falls over when the function keys, the arrow keys, the num-lock key (and others) ;; are pressed; I guess we don't want to be doing this! ;;; (key-name (ccl::lisp-string-from-nsstring (send event 'characters-ignoring-modifiers)))) - (let ((key-name (characters-to-key-name (send event 'characters-ignoring-modifiers)))) + (let* ((characters (send event 'characters-ignoring-modifiers)) + (key-name (characters-to-key-name characters))) key-name)) @@ -474,9 +475,13 @@ (make-instance (if (eq :key-down event-type) 'key-press-event 'key-release-event) + ;; McCLIM seems not to understand these, whatever we pass :-( :key-name keyname - ;; not needed by spec - should change implementation? - :key-character (and (characterp keyname) keyname) + ;; not needed by spec - should change implementation? And this is a + ;; REALLY bad place to deal with DELETE-CHAR -> #\Del. ::FIXME:: + :key-character (if (eq keyname :DELETE-CHAR) + #\Del + (and (characterp keyname) keyname)) :x 0 ; Not needed for key events? :y 0 ; Not needed for key events? :graft-x 0 ; Not needed for key events? @@ -818,7 +823,8 @@ (defun characters-to-key-name (ns-string-characters-in) ;;; (format *terminal-io* "Processing ~S~%" ns-string-characters-in) ;;; (format *terminal-io* "Got string with length ~A~%" (send ns-string-characters-in 'length)) -;;; (format *terminal-io* "character(0) = ~A~%" (send ns-string-characters-in :character-at-index 0)) +;;; (format *terminal-io* "character(0) = ~A~%" +;;; (char-code (send ns-string-characters-in :character-at-index 0))) (if (<= (send ns-string-characters-in :character-at-index 0) 255) (numeric-keysym-to-character (send ns-string-characters-in :character-at-index 0)) (progn @@ -838,6 +844,12 @@ (cond ((= #x1b keysym) (get-key-name-from-cocoa-constants keysym)) + ;; Manually massage this... messy. OS X generates 127 for |<-| key, + ;; map it onto #\Backspace (by default in OpenMCL it maps onto + ;; #\Del (delete forward)). OpenMCL treats #\Backspace and + ;; #\Delete as synonyms. + ((= #x7f keysym) + #\Backspace) ((and (<= 0 keysym 255)) (code-char keysym)) (t nil))) @@ -888,6 +900,8 @@ #$NSF34FunctionKey :F34 #$NSF35FunctionKey :F35 #$NSInsertFunctionKey :INSERT + ;; Neither of these appear to have the desired result. +;;; #$NSDeleteFunctionKey #\Del ; :DELETE-CHAR #$NSDeleteFunctionKey :DELETE-CHAR #$NSHomeFunctionKey :HOME #$NSBeginFunctionKey :BEGIN @@ -920,6 +934,9 @@ #$NSFindFunctionKey :FIND #$NSHelpFunctionKey :HELP #$NSModeSwitchFunctionKey :MODE-SWITCH + ;; #x7f = DEL in ASCII +;;; #x7f :BACKSPACE + ;; #x1b = ESC in ASCII #x1b :ESCAPE)) ;;;(defun get-key-name-from-cocoa-constants (ns-in)

1 0

[mcclim-cvs] CVS update: mcclim/Backends/beagle/windowing/mirror.lisp
by drose＠common-lisp.net 28 May '05

28 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing In directory common-lisp.net:/tmp/cvs-serv15409/mcclim/Backends/beagle/windowing Modified Files: mirror.lisp Log Message: Some tidying up of code. Rearranged EVENTS.LISP somewhat in preparation of better key event handling. Minor changes to rounding and coercing of coordinates in Beagle. Date: Sat May 28 21:56:09 2005 Author: drose Index: mcclim/Backends/beagle/windowing/mirror.lisp diff -u mcclim/Backends/beagle/windowing/mirror.lisp:1.3 mcclim/Backends/beagle/windowing/mirror.lisp:1.4 --- mcclim/Backends/beagle/windowing/mirror.lisp:1.3 Fri May 20 00:25:36 2005 +++ mcclim/Backends/beagle/windowing/mirror.lisp Sat May 28 21:56:09 2005 @@ -59,23 +59,22 @@ ;; coords outside the mirror's physical screen size to be used). ;; x,y = 0,0 unless there's a mirror-transformation in play (x (if (%sheet-mirror-transformation sheet) - (round-coordinate (nth-value 0 (transform-position - (%sheet-mirror-transformation sheet) 0 0))) + (nth-value 0 (transform-position (%sheet-mirror-transformation sheet) 0 0)) 0)) (y (if (%sheet-mirror-transformation sheet) - (round-coordinate (nth-value 1 (transform-position - (%sheet-mirror-transformation sheet) 0 0))) + (nth-value 1 (transform-position (%sheet-mirror-transformation sheet) 0 0)) 0)) (q (compose-space sheet)) ;; Take the width / height from the mirror-region if there's one set, otherwise from the ;; space requirement. (width (if (%sheet-mirror-region sheet) - (round-coordinate (bounding-rectangle-width (%sheet-mirror-region sheet))) - (round-coordinate (space-requirement-width q)))) + (bounding-rectangle-width (%sheet-mirror-region sheet)) + (space-requirement-width q))) (height (if (%sheet-mirror-region sheet) - (round-coordinate (bounding-rectangle-height (%sheet-mirror-region sheet))) - (round-coordinate (space-requirement-height q)))) - (rect (ccl::make-ns-rect x y width height)) + (bounding-rectangle-height (%sheet-mirror-region sheet)) + (space-requirement-height q))) + (rect (ccl::make-ns-rect (pixel-center x) (pixel-center y) + (pixel-count width) (pixel-count height))) (mirror (make-instance view :with-frame rect))) (#_free rect) (send mirror 'retain) @@ -177,20 +176,19 @@ (frame (pane-frame sheet)) (q (compose-space sheet)) (x (if (%sheet-mirror-transformation sheet) - (round-coordinate (nth-value 0 (transform-position - (%sheet-mirror-transformation sheet) 0 0))) + (nth-value 0 (transform-position (%sheet-mirror-transformation sheet) 0 0)) 0)) (y (if (%sheet-mirror-transformation sheet) - (round-coordinate (nth-value 1 (transform-position - (%sheet-mirror-transformation sheet) 0 0))) + (nth-value 1 (transform-position (%sheet-mirror-transformation sheet) 0 0)) 0)) (width (if (%sheet-mirror-region sheet) - (round-coordinate (bounding-rectangle-width (%sheet-mirror-region sheet))) - (round-coordinate (space-requirement-width q)))) + (bounding-rectangle-width (%sheet-mirror-region sheet)) + (space-requirement-width q))) (height (if (%sheet-mirror-region sheet) - (round-coordinate (bounding-rectangle-height (%sheet-mirror-region sheet))) - (round-coordinate (space-requirement-height q)))) - (rect (ccl::make-ns-rect x y width height)) + (bounding-rectangle-height (%sheet-mirror-region sheet)) + (space-requirement-height q))) + (rect (ccl::make-ns-rect (pixel-center x) (pixel-center y) + (pixel-count width) (pixel-count height))) (style-mask (logior #$NSTitledWindowMask #$NSClosableWindowMask #$NSMiniaturizableWindowMask @@ -245,20 +243,19 @@ ;;; (frame (pane-frame sheet)) (q (compose-space sheet)) (x (if (%sheet-mirror-transformation sheet) - (round-coordinate (nth-value 0 (transform-position - (%sheet-mirror-transformation sheet) 0 0))) + (nth-value 0 (transform-position (%sheet-mirror-transformation sheet) 0 0)) 0)) (y (if (%sheet-mirror-transformation sheet) - (round-coordinate (nth-value 1 (transform-position - (%sheet-mirror-transformation sheet) 0 0))) + (nth-value 1 (transform-position (%sheet-mirror-transformation sheet) 0 0)) 0)) (width (if (%sheet-mirror-region sheet) - (round-coordinate (bounding-rectangle-width (%sheet-mirror-region sheet))) - (round-coordinate (space-requirement-width q)))) + (bounding-rectangle-width (%sheet-mirror-region sheet)) + (space-requirement-width q))) (height (if (%sheet-mirror-region sheet) - (round-coordinate (bounding-rectangle-height (%sheet-mirror-region sheet))) - (round-coordinate (space-requirement-height q)))) - (rect (ccl::make-ns-rect x y width height)) + (bounding-rectangle-height (%sheet-mirror-region sheet)) + (space-requirement-height q))) + (rect (ccl::make-ns-rect (pixel-center x) (pixel-center y) + (pixel-count width) (pixel-count height))) ;;; For a "popup" menu, we get rid of all decoration - allow the windowing system ;;; (McCLIM) get rid of the menu when it's no longer needed. (style-mask #$NSBorderlessWindowMask))

1 0

[mcclim-cvs] CVS update: mcclim/Backends/beagle/output/medium.lisp
by drose＠common-lisp.net 28 May '05

28 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/output In directory common-lisp.net:/tmp/cvs-serv15409/mcclim/Backends/beagle/output Modified Files: medium.lisp Log Message: Some tidying up of code. Rearranged EVENTS.LISP somewhat in preparation of better key event handling. Minor changes to rounding and coercing of coordinates in Beagle. Date: Sat May 28 21:56:08 2005 Author: drose Index: mcclim/Backends/beagle/output/medium.lisp diff -u mcclim/Backends/beagle/output/medium.lisp:1.3 mcclim/Backends/beagle/output/medium.lisp:1.4 --- mcclim/Backends/beagle/output/medium.lisp:1.3 Fri May 20 00:25:35 2005 +++ mcclim/Backends/beagle/output/medium.lisp Sat May 28 21:56:07 2005 @@ -477,10 +477,12 @@ (defun medium-copy-area-aux (from from-x from-y width height to to-x to-y) "Helper method for copying areas. 'from' and 'to' must both be 'mirror' objects. From and To coordinates must already be transformed as appropriate." - (let* ((source-region (ccl::make-ns-rect (+ from-x 0.5) (+ from-y 0.5) - width height)) - (target-point (ccl::make-ns-point (+ to-x 0.5) - (+ to-y 0.5))) + (let* ((source-region (ccl::make-ns-rect (coerce from-x 'short-float) + (coerce from-y 'short-float) + (coerce width 'short-float) + (coerce height 'short-float))) + (target-point (ccl::make-ns-point (coerce to-x 'short-float) + (coerce to-y 'short-float))) (bitmap-image (send from :copy-bitmap-from-region source-region))) (when (eql bitmap-image (%null-ptr)) (warn "medium.lisp -> medium-copy-area: failed to copy specified region (null bitmap)~%") @@ -489,7 +491,7 @@ (#_free source-region) (#_free target-point) (send bitmap-image 'release))) - + (defmethod medium-copy-area ((from-drawable beagle-medium) from-x from-y width height (to-drawable beagle-medium) to-x to-y) @@ -595,16 +597,15 @@ prevents Cocoa from 'antialiasing' lines, making them thicker and a shade of grey. Ensures the return value is a short-float, as required by the Cocoa methods." -;; Interesting... I thought 'center of pixel' was 0.5, 1.5, ... n.5 -;; but this works much better with 0.0, 1.0, 2.0... -;; (coerce (+ (round-coordinate pt) 0.5) 'short-float)) - (coerce (round-coordinate pt) 'short-float)) + (coerce (+ (round-coordinate pt) 0.5) 'short-float)) + (defun pixel-count (sz) "Ensures any value provided is rounded to the nearest unit, and returned as a short-float as required by the Cocoa methods." (coerce (round-coordinate sz) 'short-float)) + ;;; Nabbed from CLX backend medium.lisp (declaim (inline round-coordinate)) (defun round-coordinate (x) @@ -618,6 +619,7 @@ Using CL:ROUND gives \"random\" results. Using \"mercantile rounding\" gives consistent results." (floor (+ x .5))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

1 0

[mcclim-cvs] CVS update: mcclim/Backends/beagle/cocoa-util.lisp
by drose＠common-lisp.net 28 May '05

28 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle In directory common-lisp.net:/tmp/cvs-serv15409/mcclim/Backends/beagle Modified Files: cocoa-util.lisp Log Message: Some tidying up of code. Rearranged EVENTS.LISP somewhat in preparation of better key event handling. Minor changes to rounding and coercing of coordinates in Beagle. Date: Sat May 28 21:56:05 2005 Author: drose Index: mcclim/Backends/beagle/cocoa-util.lisp diff -u mcclim/Backends/beagle/cocoa-util.lisp:1.2 mcclim/Backends/beagle/cocoa-util.lisp:1.3 --- mcclim/Backends/beagle/cocoa-util.lisp:1.2 Tue Jul 13 19:37:56 2004 +++ mcclim/Backends/beagle/cocoa-util.lisp Sat May 28 21:56:04 2005 @@ -23,57 +23,24 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -;(in-package :clim-cocoa) - (in-package :ccl) -;(require "OBJC-SUPPORT") - -;; Should be using "with-autorelease-pool" somewhere... but for now, take it out because -;; something isn't working... - -;; Make an NSColor object that is the desired colour provided as a parameter, and with -;; the opacity provided in the key argument (defaults to 1.0 (opaque)). -;;;(defun make-ns-color (desired-color &key (alpha 1.0)) -;;; (cl-user::debug-log 1 "cocoa-util.lisp: -> MAKE-NS-COLOR() - TYPE-OF (desired-color): ~A~%" -;;; (type-of desired-color)) -;;; (cl-user::debug-log 1 "cocoa-util: Entered MAKE-NS-COLOR, desired colour = ~S~%" desired-color) -;;; (multiple-value-bind (r g b) -;;; (clim:color-rgb desired-color) -;;; (send (@class ns-color) :color-with-calibrated-red r -;;; :green g -;;; :blue b -;;; :alpha alpha))) - - -;; Given a CLIM event-mask, generate a Cocoa event-mask -;;;(defun clim-event-mask->cocoa-event-mask (event-mask) -;;; (cl-user::debug-log 1 "cocoa-util: Entered CLIM-EVENT-MASK->COCOA-EVENT-MASK (stubbed)~%") -;;; event-mask) - -;; Tell an NSWindow what events to respond to -;;;(defun set-ns-window-event-mask (window event-mask) -;;; (cl-user::debug-log 1 "cocoa-util: Entered SET-NS-WINDOW-EVENT-MASK~%") -;;; (send window :next-event-matching-mask event-mask)) ;; Make an NSRect structure with the origin at (x, y) and with the width and height ;; specified. (defun make-ns-rect (x y width height) - (make-record :<NSR>ect :origin.x (+ (coerce x 'short-float) 0.5) - :origin.y (+ (coerce y 'short-float) 0.5) - :size.width (coerce width 'short-float) - :size.height (coerce height 'short-float))) + "Make a Cocoa NSRect structure with the origin at (x, y) and with the +width and height specified. The memory for any structure created with +this method must be released by the user (using (#_free))." + (make-record :<NSR>ect :origin.x x + :origin.y y + :size.width width + :size.height height)) (defun make-ns-point (x y) - (make-record :<NSP>oint :x (+ (coerce x 'short-float) 0.5) - :y (+ (coerce y 'short-float) 0.5))) - -;; Get the *NSApp* reference -;;;(defun get-ns-app () -;;; *NSApp*) - -;; Send the NSWindow provided a setFrame: message -;;;(defun window-set-frame (window rect &key (display t)) -;;; (send window :set-frame rect :display display)) + "Make a Cocoa NSPoint structure populated with x and y provided. +The memory for any structure created with this method must be released +by the user (using (#_free))." + (make-record :<NSP>oint :x x :y y)) ;; Stolen from Bosco "main.lisp" (defun description (c)

1 0

[mcclim-cvs] CVS update: mcclim/Backends/beagle/tests/.cvsignore
by drose＠common-lisp.net 28 May '05

28 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/tests In directory common-lisp.net:/tmp/cvs-serv23015/tests Added Files: .cvsignore Log Message: Add .cvsignore entries to quiet group cvs commands Date: Sat May 28 14:58:32 2005 Author: drose

1 0

[mcclim-cvs] CVS update: mcclim/Backends/beagle/windowing/.cvsignore
by drose＠common-lisp.net 28 May '05

28 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing In directory common-lisp.net:/tmp/cvs-serv23015/windowing Added Files: .cvsignore Log Message: Add .cvsignore entries to quiet group cvs commands Date: Sat May 28 14:58:33 2005 Author: drose

1 0

[mcclim-cvs] CVS update: mcclim/Backends/beagle/profile/.cvsignore
by drose＠common-lisp.net 28 May '05

28 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/profile In directory common-lisp.net:/tmp/cvs-serv23015/profile Added Files: .cvsignore Log Message: Add .cvsignore entries to quiet group cvs commands Date: Sat May 28 14:58:31 2005 Author: drose

1 0

[mcclim-cvs] CVS update: mcclim/Backends/beagle/output/.cvsignore
by drose＠common-lisp.net 28 May '05

28 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/output In directory common-lisp.net:/tmp/cvs-serv23015/output Added Files: .cvsignore Log Message: Add .cvsignore entries to quiet group cvs commands Date: Sat May 28 14:58:29 2005 Author: drose

1 0

[mcclim-cvs] CVS update: mcclim/Backends/beagle/input/.cvsignore
by drose＠common-lisp.net 28 May '05

28 May '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/input In directory common-lisp.net:/tmp/cvs-serv23015/input Added Files: .cvsignore Log Message: Add .cvsignore entries to quiet group cvs commands Date: Sat May 28 14:58:28 2005 Author: drose

1 0