December 2006 - mcclim-devel - mailman3.common-lisp.net

[mcclim-devel] BUG: erasing content in the interactor pane
by Eric Marsden 31 Dec '06

31 Dec '06

Hi, I see the following bug with CVS McCLIM using Closure and mcclim-freetype, on SBCL. I recall a previous command with "M-p" (for some reason I seem to need to type that twice for it to have an effect), then backspace until the entire argument of the command has been erased, then run into the following error. This problem seems to be correlated to the fact that backspacing over the command arguments causes the entire command (including elements that have not yet been deleted) to move leftwards by a few pixels per backspace. The value -1 is not of type (UNSIGNED-BYTE 60). [Condition of type TYPE-ERROR] Restarts: 0: [ABORT] Return to application command loop 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "Closure" {1003C214C1}>) Backtrace: 0: (SB-PRETTY::MAKE-PRETTY-STREAM #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}>) Locals: SB-DEBUG::ARG-0 = 1 SB-DEBUG::ARG-1 = #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> 1: (SB-PRETTY:OUTPUT-PRETTY-OBJECT "Visit" #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}>) Locals: SB-DEBUG::ARG-0 = 2 SB-DEBUG::ARG-1 = "Visit" SB-DEBUG::ARG-2 = #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> Catch-tags: SB-PRETTY::LINE-LIMIT-ABBREVIATION-HAPPENED 2: (PRINC "Visit" #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}>) Locals: SB-IMPL::OBJECT = "Visit" STREAM = #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> 3: ((FLET #:CONTINUATION543) #<unavailable argument> #<unavailable argument>) Locals: SB-DEBUG::ARG-0 = :<NOT-AVAILABLE> SB-DEBUG::ARG-1 = :<NOT-AVAILABLE> 4: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD (CLIM:OUTPUT-RECORDING-STREAM #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<CLOSURE (FLET #:CONTINUATION543) {1002917999}> #<unused argument> #<CLOSURE (FLET #:CONSTRUCTOR542) {1002917959}> :PARENT NIL) Locals: CLIM-INTERNALS::CONSTRUCTOR = #<CLOSURE (FLET #:CONSTRUCTOR542) {1002917959}> CLIM-INTERNALS::CONTINUATION = #<CLOSURE (FLET #:CONTINUATION543) {1002917999}> #:PARENT-DEFAULTING-TEMP = NIL STREAM = #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> 5: ((SB-PCL::FAST-METHOD CLIM:STREAM-PRESENT (CLIM:OUTPUT-RECORDING-STREAM #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> "Visit" STRING :VIEW #<DREI:DREI-TEXTUAL-VIEW {1005D30231}> :MODIFIER NIL :ACCEPTABLY NIL :FOR-CONTEXT-TYPE STRING :SINGLE-BOX NIL :ALLOW-SENSITIVE-INFERIORS T :SENSITIVE T :RECORD-TYPE CLIM:STANDARD-PRESENTATION) Locals: #:ACCEPTABLY-DEFAULTING-TEMP = NIL #:ALLOW-SENSITIVE-INFERIORS-DEFAULTING-TEMP = T #:FOR-CONTEXT-TYPE-DEFAULTING-TEMP = STRING #:MODIFIER-DEFAULTING-TEMP = NIL #:N-SUPPLIED-530 = T #:N-SUPPLIED-531 = T CLIM-INTERNALS::OBJECT = "Visit" #:RECORD-TYPE-DEFAULTING-TEMP = CLIM:STANDARD-PRESENTATION #:SENSITIVE-DEFAULTING-TEMP = T #:SINGLE-BOX-DEFAULTING-TEMP = NIL STREAM = #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> TYPE = STRING #:VIEW-DEFAULTING-TEMP = #<DREI:DREI-TEXTUAL-VIEW {1005D30231}> 6: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD (CLIM:OUTPUT-RECORDING-STREAM #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<CLOSURE (FLET #:CONTINUATION691) {1002917719}> #<unused argument> #<FUNCTION (FLET #:CONSTRUCTOR690) {1008430679}> :PARENT NIL) Locals: CLIM-INTERNALS::CONSTRUCTOR = #<FUNCTION (FLET #:CONSTRUCTOR690) {1008430679}> CLIM-INTERNALS::CONTINUATION = #<CLOSURE (FLET #:CONTINUATION691) {1002917719}> #:PARENT-DEFAULTING-TEMP = NIL STREAM = #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> 7: (CLIM-INTERNALS::%INVOKE-UPDATING #<CLIM:STANDARD-UPDATING-OUTPUT-RECORD X 0:0 Y 2137:2137 (# . 1) {100350BE41}> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<CLOSURE (FLET #:UPDATING-OUTPUT-CONTINUATION315) {1002917209}>) Locals: SB-DEBUG::ARG-0 = #<CLIM:STANDARD-UPDATING-OUTPUT-RECORD X 0:0 Y 2137:2137 (#<DREI:DREI-AREA X -1:10 Y 2137:2152 {1005D2FA71}> . 1) {100350BE41}> SB-DEBUG::ARG-1 = #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> SB-DEBUG::ARG-2 = #<CLOSURE (FLET #:UPDATING-OUTPUT-CONTINUATION315) {1002917209}> 8: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::COMPUTE-NEW-OUTPUT-RECORDS-1 (CLIM:STANDARD-UPDATING-OUTPUT-RECORD T T)) #<unavailable argument> #<unavailable argument> #<CLIM:STANDARD-UPDATING-OUTPUT-RECORD X 0:0 Y 2137:2137 (# . 1) {100350BE41}> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<CLOSURE (FLET #:UPDATING-OUTPUT-CONTINUATION315) {1002917209}>) Locals: SB-DEBUG::ARG-0 = :<NOT-AVAILABLE> SB-DEBUG::ARG-1 = :<NOT-AVAILABLE> SB-DEBUG::ARG-2 = #<CLIM:STANDARD-UPDATING-OUTPUT-RECORD X 0:0 Y 2137:2137 (#<DREI:DREI-AREA X -1:10 Y 2137:2152 {1005D2FA71}> . 1) {100350BE41}> SB-DEBUG::ARG-3 = #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> SB-DEBUG::ARG-4 = #<CLOSURE (FLET #:UPDATING-OUTPUT-CONTINUATION315) {1002917209}> 9: ((SB-PCL::FAST-METHOD CLIM:INVOKE-UPDATING-OUTPUT (CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<CLOSURE (FLET #:UPDATING-OUTPUT-CONTINUATION315) {1002917209}> CLIM:STANDARD-UPDATING-OUTPUT-RECORD #<unavailable argument> #<FUNCTION EQUAL> "Visit" #<FUNCTION EQUAL> :FIXED-POSITION NIL :ALL-NEW NIL :PARENT-CACHE NIL) Locals: #:ALL-NEW-DEFAULTING-TEMP = NIL CLIM-INTERNALS::CACHE-TEST = #<FUNCTION EQUAL> CLIM-INTERNALS::CACHE-VALUE = "Visit" CLIM-INTERNALS::CONTINUATION = #<CLOSURE (FLET #:UPDATING-OUTPUT-CONTINUATION315) {1002917209}> #:FIXED-POSITION-DEFAULTING-TEMP = NIL CLIM-INTERNALS::ID-TEST = #<FUNCTION EQUAL> #:PARENT-CACHE-DEFAULTING-TEMP = NIL CLIM-INTERNALS::RECORD-TYPE = CLIM:STANDARD-UPDATING-OUTPUT-RECORD STREAM = #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> CLIM-INTERNALS::UNIQUE-ID = :<NOT-AVAILABLE> 10: ((FLET DREI-FUNDAMENTAL-SYNTAX::OUTPUT-WORD)) 11: ((SB-PCL::FAST-METHOD DREI-FUNDAMENTAL-SYNTAX::DISPLAY-LINE (CLIM:CLIM-STREAM-PANE DREI:DREI T)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<DREI:DREI-AREA X -1:10 Y 2137:2152 {1005D2FA71}> #<DREI-BUFFER:STANDARD-LEFT-STICKY-MARK 0 {1006C436D1}>) 12: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD (CLIM:OUTPUT-RECORDING-STREAM #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<CLOSURE (FLET #:CONTINUATION691) {1002916939}> #<unused argument> #<FUNCTION (FLET #:CONSTRUCTOR690) {1008430679}> :PARENT NIL) 13: (CLIM-INTERNALS::%INVOKE-UPDATING #<CLIM:STANDARD-UPDATING-OUTPUT-RECORD X 0:0 Y 2137:2137 (# . 0) {10029B88B1}> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<CLOSURE (FLET #:UPDATING-OUTPUT-CONTINUATION376) {10029141A9}>) 14: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::COMPUTE-NEW-OUTPUT-RECORDS-1 (CLIM:STANDARD-UPDATING-OUTPUT-RECORD T T)) #<unavailable argument> #<unavailable argument> #<CLIM:STANDARD-UPDATING-OUTPUT-RECORD X 0:0 Y 2137:2137 (# . 0) {10029B88B1}> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<CLOSURE (FLET #:UPDATING-OUTPUT-CONTINUATION376) {10029141A9}>) 15: ((SB-PCL::FAST-METHOD CLIM:INVOKE-UPDATING-OUTPUT (CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<CLOSURE (FLET #:UPDATING-OUTPUT-CONTINUATION376) {10029141A9}> CLIM:STANDARD-UPDATING-OUTPUT-RECORD #<unavailable argument> #<FUNCTION EQUAL> #<DREI-FUNDAMENTAL-SYNTAX::LINE-OBJECT {1002DB9251}> #<FUNCTION EQUAL> :FIXED-POSITION NIL :ALL-NEW NIL :PARENT-CACHE NIL) 16: ((SB-PCL::FAST-METHOD DREI:DISPLAY-DREI-CONTENTS (CLIM:CLIM-STREAM-PANE DREI:DREI DREI-FUNDAMENTAL-SYNTAX:FUNDAMENTAL-SYNTAX)) (#(17 16 4) . #()) #<unavailable argument> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<DREI:DREI-AREA X -1:10 Y 2137:2152 {1005D2FA71}> #<DREI-FUNDAMENTAL-SYNTAX:FUNDAMENTAL-SYNTAX {1006C8EEB1}>) 17: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<DREI:DREI-AREA X -1:10 Y 2137:2152 {1005D2FA71}> #<DREI-FUNDAMENTAL-SYNTAX:FUNDAMENTAL-SYNTAX {1006C8EEB1}>) 18: ((SB-PCL::FAST-METHOD DREI:DISPLAY-DREI-CONTENTS :AROUND (CLIM:EXTENDED-OUTPUT-STREAM DREI:DREI DREI-SYNTAX:SYNTAX)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE # {100ADB9D29}> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3)) #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}> #<DREI:DREI-AREA X -1:10 Y 2137:2152 {1005D2FA71}> #<DREI-FUNDAMENTAL-SYNTAX:FUNDAMENTAL-SYNTAX {1006C8EEB1}>) 19: ((FLET #:CONTINUATION449) #<CLIM:INTERACTOR-PANE CLIM-USER::INTERACTOR {1004A50371}>) --more-- -- Eric Marsden

2 1

[mcclim-devel] Patch: tab layout
by David Lichteblau 29 Dec '06

29 Dec '06

Hi, most of you probably know Max-Gerd Retzlaff's Tab Layout or have followed my progress on IRC while I was working on it. For reference, here is a "final" version of the tab-layout, adapted for inclusion into McCLIM. http://www.lichteblau.com/blubba/clim-tab-layout/tab-layout-3.diff (Changelog compared to the original version and updated patches for Beirc and FTD in the same directory.) I am still waiting for feedback from MGR regarding the tab-layout's license, since the original source code tarball does not explicitly state a license. Once I hear from MGR regarding the license, I'll commit this patch. d. ---------------------------------------------------------------------- Added the tab layout. * Extensions/tab-layout.lisp: New file. * Examples/tabdemo.lisp: New file. * mcclim.asd (CLIM): Added Extensions/tab-layout.lisp. (CLIM-EXAMPLES): Add tabdemo.lisp * package.lisp (CLIM-TAB-LAYOUT): New package. * Examples/demodemo.lisp: Added a button for the tabdemo. * Doc/make-docstrings.lisp: Process the clim-tab-layout package. * Doc/mcclim.texi: New chapter about the tab-layout. * Backends/CLX/frame-manager.lisp (GENERATE-STANDARD-PANE-SPECS, FIND-CONCRETE-PANE-CLASS): Obey define-abstract-pane-mapping even for names not the internal packages. * Backends/gtkairo/event.lisp (TAB-BUTTON-HANDLER): New. * Backends/gtkairo/frame-manager.lisp ((MAKE-PANE-2 TAB-LAYOUT-PANE)): New. (RESOLVE-ABSTRACT-PANE-NAME): Renamed. * Backends/gtkairo/gadgets.lisp (TAB-BUTTON-EVENT, TAB-PRESS-EVENT, TAB-RELEASE-EVENT, GTK-TAB-LAYOUT): New classes. (REALIZE-NATIVE-WIDGET, CONTAINER-PUT, (SETF CLIM-TAB-LAYOUT:TAB-LAYOUT-PAGES), REORDER-NOTEBOOK-PAGES, CONTAINER-MOVE, ALLOCATE-SPACE, (SETF CLIM-TAB-LAYOUT:TAB-LAYOUT-ENABLED-PAGE), CONNECT-NATIVE-SIGNALS, CLIM-TAB-LAYOUT:NOTE-TAB-PAGE-CHANGED, SET-TAB-PAGE-ATTRIBUTES, HANDLE-EVENT): New functions and methods on gtk-tab-layout. (PARENT-AD-HOC-PRESENTATION): New class. * Backends/gtkairo/port.lisp (GTK-WIDGET-MODIFY-FG): New function. * Backends/gtkairo/ffi.lisp: Regenerated.

1 0

[mcclim-devel] bug in CLIM-Listener application
by Eric Marsden 26 Dec '06

26 Dec '06

Hi, Selecting a menu item in the Listener application leads to the action object being printed in the listener, for example as #<CLIM:MENU-ITEM "Apropos" {10035ECCE1}> instead of invoking the corresponding function. This is with McCLIM from CVS, SBCL 1.0.0.34. -- Eric Marsden

1 0

[mcclim-devel] Fwd: [mcclim-cvs] CVS mcclim
by Cyrus Harmon 21 Dec '06

21 Dec '06

FWIW, the pango changes break gtkcairo on macos. I'm sure there's an easy fix involving finding fonts, but I thought you should now that this used to work and no longer does. All the glyphs come up as empty rectangles. Cyrus Begin forwarded message: > From: "dlichteblau" <dlichteblau(a)common-lisp.net> > Date: December 20, 2006 12:07:10 PM PST > To: mcclim-cvs(a)common-lisp.net > Subject: [mcclim-cvs] CVS mcclim > > Update of /project/mcclim/cvsroot/mcclim > In directory clnet:/tmp/cvs-serv8647 > > Modified Files: > NEWS > Log Message: > updated > > > --- /project/mcclim/cvsroot/mcclim/NEWS 2006/12/14 22:02:16 1.13 > +++ /project/mcclim/cvsroot/mcclim/NEWS 2006/12/20 20:07:10 1.14 > @@ -6,6 +6,9 @@ > *** Some bugfixes, including CMUCL support and better key event > handling. > *** Native implementation of context menus, list panes, label > panes, and > option panes. > +*** Draw text using Pango. (Bug fix: Fixed-width font supported > on Windows > + now. Multiple lines of output in TEXT-SIZE supported now. > + TEXT-STYLE-FIXED-WIDTH-P works correctly now.) > ** Improvement: Added new editor substrate ("Drei"). > ** Improvement: Improved the pathname presentation methods > considerably. > ** specification compliance: DELETE-GESTURE-NAME function now > implemented. > > _______________________________________________ > mcclim-cvs mailing list > mcclim-cvs(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-cvs

1 0

[mcclim-devel] Re: [mcclim-cvs] CVS mcclim/Backends/CLX
by Andy Hefner 18 Dec '06

18 Dec '06

I'd be very interested if someone with an X server using :msbfirst byte order could try this (seeing that the file icons in the listener appear correct is probably sufficient). Every X server available to me for testing has been :lsbfirst (including X11.app on a PPC Mac, interestingly), and probably some kind of XFree derivative. On 12/17/06, ahefner <ahefner(a)common-lisp.net> wrote: > Update of /project/mcclim/cvsroot/mcclim/Backends/CLX > In directory clnet:/tmp/cvs-serv3781 > > Modified Files: > medium.lisp > Log Message: > Upload indexed patterns via xlib:put-image. Attempt to handle various > pixel formats.

1 0

[mcclim-devel] snapshot of clim-graphic-forms backend
by Jack Unrue 17 Dec '06

17 Dec '06

I've uploaded a snapshot of my work on a McCLIM backend for Windows: http://home.earthlink.net/~jdunrue/clim-graphic-forms.zip The README in that zip file explains: This directory contains the start of a McCLIM backend implementation for Win32 using the Graphic-Forms library. I am making this snapshot available in the hopes that someone else possessing sufficient time, motivation, and McCLIM knowledge can pick up where I've left off. Files in this archive: mcclim.asd -- a patched version of mcclim.asd (rev 1.39) defining a new system called :clim-graphic-forms ports.lisp -- a patched version of ports.lisp (rev 1.53) that adds the symbol :graphic-forms to *server-path-search-order* Backends/ Graphic-Forms/ README.txt -- this file frame-manager.lisp -- backend code gadgets.lisp graft.lisp medium.lisp package.lisp port.lisp utils.lisp loader.lisp -- a utility to load the system; you can either modify this to suit your local environment or just consult it as a reference My overall plan was to use existing abstractions provided by Graphic-Forms on top of the Win32 API rather than re-implement that infrastructure. Package nicknames GFG: GFS: and GFW: identify symbols exported from that library. Many thanks to David L., Troels, and Robert S. for their replies to my earlier queries. And thanks to Christophe for creating the null backend, without which getting started would have been much more difficult. I will be happy to answer questions or provide fixes for Graphic-Forms to facilitate further development of this backend. -- Jack Unrue http://common-lisp.net/project/graphic-forms

3 3

[mcclim-devel] (setf bounding-rectangle-min-x)
by Raymond Toy 16 Dec '06

16 Dec '06

In draw.lisp in scigraph, there are calls to (setf bounding-rectangle-min-x) and friends. These don't seem to exist in mcclim, but there is (setf rectangle-edges*) which seems to be doing essentially the same thing. Here is a little patch that implements that. Not sure it's really right, though. Ray Index: draw.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/draw.lisp,v retrieving revision 1.3 diff -u -r1.3 draw.lisp --- draw.lisp 17 Mar 2006 07:12:52 -0000 1.3 +++ draw.lisp 16 Dec 2006 14:58:36 -0000 @@ -134,13 +134,19 @@ (slot-value .x. 'clim-utils::max-y) be) (with-drawing-options (,stream :clipping-region .x.) ,@body))) - (:clim-2 + ((and :clim-2 (not :mcclim)) (let ((.x. *clim-clip-rectangle*)) (setf (bounding-rectangle-min-x .x.) le (bounding-rectangle-min-y .x.) te (bounding-rectangle-max-x .x.) re (bounding-rectangle-max-y .x.) be) (with-drawing-options (,stream :clipping-region .x.) + ,@body))) + ((and :clim-2 :mcclim) + (let ((.x. *clim-clip-rectangle*)) + (setf (rectangle-edges* .x.) + (values le te re be)) + (with-drawing-options (,stream :clipping-region .x.) ,@body)))))) (eval-when (compile load eval)

2 3

[mcclim-devel] redisplay-frame-pane with named panes
by Raymond Toy 16 Dec '06

16 Dec '06

In clasp, there are several calls like (redisplay-frame-pane clasp-frame 'notebook), where 'notebook is the name of a pane. This always gets an error about no method for pane-needs-redisplay with arg (notebook). If I change the call to be (redisplay-frame-pane clasp-frame (find-pane-named clasp-frame 'notebook)), everything works. Assuming that redisplay-frame-pane should convert the pane name to a pane object within the function, here is a possible replacement. I don't really know enough about mcclim to know if this is sensible or not, but it works for clasp. Ray Index: frames.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/frames.lisp,v retrieving revision 1.120 diff -u -r1.120 frames.lisp --- frames.lisp 1 Jul 2006 21:00:31 -0000 1.120 +++ frames.lisp 16 Dec 2006 14:52:38 -0000 @@ -368,22 +368,25 @@ (defmethod redisplay-frame-pane :around ((frame application-frame) pane &key force-p) - (multiple-value-bind (redisplayp clearp) - (pane-needs-redisplay pane) - (when force-p - (setq redisplayp (or redisplayp t) - clearp t)) - (when redisplayp - (let ((hilited (frame-hilited-presentation frame))) - (when hilited - (highlight-presentation-1 (car hilited) (cdr hilited) :unhighlight) - (setf (frame-hilited-presentation frame) nil))) - (with-possible-double-buffering (frame pane) - (when clearp - (window-clear pane)) - (call-next-method)) - (unless (or (eq redisplayp :command-loop) (eq redisplayp :no-clear)) - (setf (pane-needs-redisplay pane) nil))))) + (let ((pane-object (if (typep pane 'pane) + pane + (find-pane-named frame pane)))) + (multiple-value-bind (redisplayp clearp) + (pane-needs-redisplay pane-object) + (when force-p + (setq redisplayp (or redisplayp t) + clearp t)) + (when redisplayp + (let ((hilited (frame-hilited-presentation frame))) + (when hilited + (highlight-presentation-1 (car hilited) (cdr hilited) :unhighlight) + (setf (frame-hilited-presentation frame) nil))) + (with-possible-double-buffering (frame pane-object) + (when clearp + (window-clear pane-object)) + (call-next-method)) + (unless (or (eq redisplayp :command-loop) (eq redisplayp :no-clear)) + (setf (pane-needs-redisplay pane-object) nil)))))) (defmethod run-frame-top-level ((frame application-frame) &key &allow-other-keys)

2 2

[mcclim-devel] (declare (values foo)) in scigraph menu-tools.lisp
by Raymond Toy 16 Dec '06

16 Dec '06

There's an uncommented (declare (values foo)) in the function SEVERAL-CHOOSE in menu-tools.lisp. I guess that should be commented out like the other similar occurrences in scigraph. Ray

1 0

[mcclim-devel] Freetype and CFFI
by Dmitri Hrapof 10 Dec '06

10 Dec '06

(also posted to CFFI list) Hello! I'm trying to use libfreetype.so via CFFI. What I hacked up so far is located here: http://www.common-lisp.ru/cleft.asd http://www.common-lisp.ru/cleft.lisp The code like that works: (with-freetype lib (with-face lib (face "/usr/share/fonts/truetype/ttf-bitstream-vera/Vera.ttf") (docharmap (code face) (format t "~a " (code-char code))))) and prints out all glyphs in a font. However, the following doesn't do what I want: (with-freetype lib (with-face lib (face "/usr/share/fonts/truetype/ttf-bitstream-vera/Vera.ttf") (set-char-size face (* 16 64) (* 16 64) 300 300) (glyph-pixarray face (char-code #\a)))) It returns #2A() Looks like the whole bitmap structure is set to zeros. I think I'm following FreeType and CFFI tutorials closely and I can't explain what's wrong... Thank you for your help, Dmitri

7 9