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

[mcclim-devel] CLIM 2.0 versus CLIM 2.2
by Troels Henriksen 04 Dec '06

04 Dec '06

Hello, As known, there are two major CLIM references - the annotateable CLIM spec hosted by Gilbert Baumann, and the CLIM User's Guide by Franz. The former covers CLIM 2.0 and the latter CLIM 2.2, but which of these should be considered canonical in McCLIM? As far as I know, CLIM 2.2 is clearer in some areas, and fills holes that are weirdly ambiguous, inconsistent or hopelessly un[der]specified in CLIM 2.0. McCLIM already implements some CLIM 2.2 features (not all, though it should be fairly trivial to add them). As I am easily dazzled by comparatively large numbers, my opinion is that we should try to support CLIM 2.2; but what has been McCLIM's "official" position so far? The first amusing issue is how to handle the :SCROLL-BARS argument to `make-clim-stream-pane' and the `open-window-stream' functions. In CLIM 2.0, `make-clim-stream-pane' takes an argument of type (member T :HORIZONTAL :VERTICAL NIL), while `open-window-stream' takes an argument of type (member :BOTH :HORIZONTAL :VERTICAL NIL). In CLIM 2.2, these functions have been unified to both take an argument of type (member :BOTH :HORIZONTAL :VERTICAL NIL), so I believe that this was mostly an oversight in CLIM 2.0. It would be easy to add code to handle both :BOTH and T (and make them synonyms), or to emit a warning for T. What would be preferable? -- \ Troels "Athas" /\ Henriksen

1 0

[mcclim-devel] Drie crashes on: "`(,@a "
by Robert Strandh 04 Dec '06

04 Dec '06

There is some minor problem in Drei that you can see if you do this : 1. type (setf climi::*use-goatee* nil) 2. then type (clim-listener:run-listener) 3. in the listener, type "`(,@a ", i.e., backquote left-parenthesis comma at-sign a space. Drei crashes with an error message saying that #:A is not of type list. -- Robert Strandh --------------------------------------------------------------------- Greenspun's Tenth Rule of Programming: any sufficiently complicated C or Fortran program contains an ad hoc informally-specified bug-ridden slow implementation of half of Common Lisp. ---------------------------------------------------------------------

2 1

[mcclim-devel] questions on text graphics
by Jack Unrue 03 Dec '06

03 Dec '06

I've been working on graphics support in my backend code and have a couple questions. What are the intended side effects of the TEXT-STYLE-*** methods, if any? Are they solely intended to answer "what-if" questions, e.g., "what would the ascent be if the font was :fixed and :bold ?" Or are they also meant to update the medium's text style attributes, as I see the gtkairo backend doing? Since one can add :before/:after methods on (SETF MEDIUM-TEXT-STYLE) to synchronize the underlying graphics context -- and presumably such a style attribute update necessitates repainting -- is that sufficient or should I really be planning on synchronizing attributes anywhere that styles are passed as arguments? MEDIUM-DRAW-TEXT* appears to be called for each character in the string to be rendered. I gather that a backend is expected to be able to buffer such operations (see next question). But from looking at backtraces, the cause seems to be CL:WRITE-STRING processing the output stream one char at a time. I'm running on CLISP, so perhaps you lucky SBCL folks have your string output processed in batches. I take it that the use of WRITE-STRING is a consequence of CLIM's stream output model? More generally regarding output buffering, I see the MEDIUM-FINISH-OUTPUT and MEDIUM-FORCE-OUTPUT methods and can easily imagine how my backend code might implement those. I also notice the public WITH-OUTPUT-BUFFERED macro and that it communicates with the backend by way of MEDIUM-OUTPUT-BUFFERING-P. Based on what I'm seeing so far just with text output, I'm sort of inclined to implement double-buffering unconditionally. Is that a bad idea, or am I missing a level of abstraction between McCLIM's idea of buffering and my backend's idea of buffering? Thanks. -- Jack Unrue

2 2

[mcclim-devel] One more gtkairo gotcha
by C Y 03 Dec '06

03 Dec '06

When I use the File menu entry in Gsharp to open a file, I don't get tab completion when entering the file name. I do get it with the clx backend. I've observed this before with gtkairo (I think with beirc). Cheers, CY ____________________________________________________________________________________ Any questions? Get answers on any topic at www.Answers.yahoo.com. Try it now.

1 0

[mcclim-devel] Another gsharp+gtkairo error, plus good news
by C Y 03 Dec '06

03 Dec '06

First, the good news - the notes now display very nicely with gtkairo! Yay! Now, the bug. Dunno what this one is about, but thought I'd report it: debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread" {B2982A9} >: status NO_MEMORY after call to cairo_select_font_face Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [RETURN-TO-ESA] ESA::RETURN-TO-ESA 1: [ABORT ] Exit debugger, returning to top level. (CLIM-GTKAIRO::ASSERT-FONT-STATUS #.(SB-SYS:INT-SAP #X080A25A0) "cairo_select_fo nt_face") 0] This came after trying to open 2 files - bach181.gsh (successful) and then bach181-lyrics.gsh (above). A retest confirms it happens when starting with just bach181-lyrics.gsh aborting and trying to re-start gsharp without restarting sbcl triggers the same error immediately on startup. Cheers, and thanks! CY __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com

3 2

[mcclim-devel] Gsharp + gtkairo error
by C Y 03 Dec '06

03 Dec '06

This is with latest cvs of both as of 12/2, and sbcl 1.0 on Gentoo Linux. gtk version is 2.10.6: * (gsharp:gsharp) debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread" {B2982A9}>: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION CLIM:GADGET-ACTIVE-P (1)> when called with arguments (#<CLIM-GTKAIRO::GTK-MENU-BAR "(Unnamed Pane)" {C3FDEC9}>). Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. ((SB-PCL::FAST-METHOD NO-APPLICABLE-METHOD (T)) #<unused argument> #<unused argument> #<STANDARD-GENERIC-FUNCTION CLIM:GADGET-ACTIVE-P (1)> #<CLIM-GTKAIRO::GTK-MENU-BAR "(Unnamed Pane)" {C3FDEC9}>) ____________________________________________________________________________________ Do you Yahoo!? Everyone is raving about the all-new Yahoo! Mail beta. http://new.mail.yahoo.com

2 1