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

[mcclim-devel] McCLIM hint on Paolo's cliki
by rpgoldman＠real-time.com 23 May '06

23 May '06

Paolo's cliki has the following McCLIM hint: ---------------------------------------------------------------------- Order of suggestions in completion menus If you pass to complete-from-possibilities a list of suggestions such as '(("First" 1) ("Second" 2) ("Third)), they are displayed in reverse order from top to bottom in completion menus, like this: Third Second First If this is not what you want, pass a list sorted in the opposite order. ---------------------------------------------------------------------- At the expense of causing some minor dislocation, isn't this something we should fix, instead of hacking around? Also, is this a place where the clim specification is deficient? I.e., does it underspecify the behavior? Should it tell us how a list of possibilities will be displayed by default (in absence of specific function arguments)? Thanks, R

3 2

[mcclim-devel] McCLIM, clisp and minor bug fixes on Win32.
by Philippe Brochard 20 May '06

20 May '06

Hi everybody, First of all, many thanks for your great work! I don't know if this has already been reported and as I read wrongs things about it, I just want to say that McCLIM works perfectly with CLisp [1] under Windows XP (at least) and Xming [2]. I just have to patch Goatee/goatee-command.lisp to have a working Delete key. (patch attached on this mail). Here is what I've done: 1) Install CLisp and Xming. 2) Set the display (in a terminal) $ set display=localhost:0.0 3) Compile clx (I got the source in the clisp source): CLISP> (load "/clisp/source/clx/mit-clx/defsystem.lisp") CLISP> (without-package-lock () (compile-clx)) CLISP> (without-package-lock () (load-clx)) ; not necessarily useful 4) Get a copy of McCLIM and spatial-trees CLISP> (load "mcclim/spatial-trees/spatial-trees.asd") CLISP> (load "mcclim/mcclim.asd") CLISP> (without-package-lock () (asdf:oos 'asdf:load-op :mcclim)) 5) Build the listener CLISP> (asdf:oos 'asdf:load-op :clim-listener) 6) And build a demo CLISP> (load (compile-file "mcclim/Examples/clim-fig.lisp")) CLISP> (clim-demo::clim-fig) and here is the result : http://hocwp.free.fr/temp/clim-fig.png I've also been able to build my main app (cl-wav-synth) and it works like a charm :) http://hocwp.free.fr/temp/cl-wav-synth-win.png http://hocwp.free.fr/temp/cl-wav-synth-win-2.png Hope that can help. Best regards, Philippe [1] http://clisp.cons.org [2] http://freedesktop.org/wiki/Xming -- Philippe Brochard <hocwp(a)free.fr> http://hocwp.free.fr -=-= http://www.gnu.org/home.fr.html =-=- 291c291,293 < (add-gesture-command-to-table '(#-openmcl #\Delete #+openmcl #\DEL) --- > (add-gesture-command-to-table '(#-(or openmcl (and clisp win32)) #\Delete > #+openmcl #\DEL > #+(and clisp win32) #\Rubout) 339c341,343 < (add-gesture-command-to-table '(#\delete :meta) --- > > (add-gesture-command-to-table '(#-(and clisp win32) #\delete > #+(and clisp win32) #\rubout :meta) 342c346,348 < (add-gesture-command-to-table '(#\delete :control) --- > > (add-gesture-command-to-table '(#-(and clisp win32) #\delete > #+(and clisp win32) #\rubout :control)

1 0

[mcclim-devel] error in transform-region
by Irene DURAND 18 May '06

18 May '06

Hello, I had not updated my mcclim since April 7. I did it today and my software Autowrite doesn't execute anymore. The stack is as below. Has anyone any idea of what can be wrong? Thanks, Irène ---------------------------------------------------------------------------------------------------------------------------------------- The value NIL is not of type (SIMPLE-ARRAY REAL (4)). [Condition of type TYPE-ERROR] Restarts: 0: [ABORT-REQUEST] Abort handling SLIME request. 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {B3F9909}>) Backtrace: 0: ((SB-PCL::FAST-METHOD TRANSFORM-REGION (T STANDARD-RECTANGLE)) (#(NIL 0) . #()) #<unavailable argument> #<CLIM-INTERNALS::STANDARD-TRANSLATION 1 0 0 1 0 250> (#<STANDARD-BOUNDING-RECTANGLE X 0:634 Y 0:150 {BA8A089}>)) 1: (CLIM-INTERNALS::UPDATE-MIRROR-GEOMETRY #<HRACK-PANE "(Unnamed Pane)" {C394211}>) 2: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument> #<STANDARD-BOUNDING-RECTANGLE X 0:634 Y 0:150 {BA8A089}> #<HRACK-PANE "(Unnamed Pane)" {C394211}>) 3: ((SB-PCL::FAST-METHOD ALLOCATE-SPACE :AROUND (CLIM-INTERNALS::LAYOUT-PROTOCOL-MIXIN T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD ALLOCATE-SPACE #)> :PV-CELL NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3)) :ARG-INFO (3)) #<HRACK-PANE "(Unnamed Pane)" {C394211}> 634 150) 4: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::BOX-LAYOUT-MIXIN/VERTICALLY-ALLOCATE-SPACE (CLIM-INTERNALS::RACK-LAYOUT-MIXIN T T)) (#(NIL 32) . #()) #<unavailable argument> #<VRACK-PANE "(Unnamed Pane)" {C2F1521}> 634 550) 5: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::BOX-LAYOUT-MIXIN/HORIZONTALLY-ALLOCATE-SPACE (CLIM-INTERNALS::RACK-LAYOUT-MIXIN T T)) (#(NIL 31) . #()) #<unavailable argument> #<HRACK-PANE "(Unnamed Pane)" {C2F1789}> 634 550) 6: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::BOX-LAYOUT-MIXIN/VERTICALLY-ALLOCATE-SPACE (CLIM-INTERNALS::RACK-LAYOUT-MIXIN T T)) (#(NIL 32) . #()) #<unavailable argument> #<VRACK-PANE "(Unnamed Pane)" {C0CE1D1}> 634 550) 7: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::BOX-LAYOUT-MIXIN/HORIZONTALLY-ALLOCATE-SPACE (CLIM-INTERNALS::RACK-LAYOUT-MIXIN T T)) (#(NIL 31) . #()) #<unavailable argument> #<HRACK-PANE "(Unnamed Pane)" {C2F1779}> 1071 550) 8: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::BOX-LAYOUT-MIXIN/VERTICALLY-ALLOCATE-SPACE (CLIM-INTERNALS::RACK-LAYOUT-MIXIN T T)) (#(NIL 32) . #()) #<unavailable argument> #<VRACK-PANE "(Unnamed Pane)" {C2F1239}> 1071 602) 9: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::BOX-LAYOUT-MIXIN/VERTICALLY-ALLOCATE-SPACE (CLIM-INTERNALS::RACK-LAYOUT-MIXIN T T)) (#(NIL 32) . #()) #<unavailable argument> #<VRACK-PANE "(Unnamed Pane)" {C0EA699}> 1071 606) 10: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.)) #<unavailable argument> #<unavailable argument> #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {B713969}> 1071 606) 11: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-FRAME-MANAGER {C14CF61}> #<VISU-AW {BCDDE09}>) 12: ((SB-PCL::FAST-METHOD ADOPT-FRAME (FRAME-MANAGER APPLICATION-FRAME)) (#(NIL 1 13 11) . #()) #<unavailable argument> #<CLIM-CLX::CLX-FRAME-MANAGER {C14CF61}> #<VISU-AW {BCDDE09}>) 13: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-FRAME-MANAGER {C14CF61}> #<VISU-AW {BCDDE09}>) 14: ((SB-PCL::FAST-METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD RUN-FRAME-TOP-LEVEL #)> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<VISU-AW {BCDDE09}> NIL) 15: (INTERFACE) 16: (SB-INT:EVAL-IN-LEXENV (START) #<NULL-LEXENV>) 17: (SWANK::EVAL-REGION "(start) " T) 18: ((LAMBDA NIL)) 19: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL) {B846B9D}>) 20: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL) {B846B9D}>) 21: (SB-INT:EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(start) ") #<NULL-LEXENV>) 22: ((LAMBDA NIL)) 23: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {B846395}>) 24: ((LAMBDA NIL)) 25: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {AC8E40D}>) 26: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {B2759C9}> #<CLOSURE (LAMBDA NIL) {B846245}>) 27: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {B2759C9}> #<FUNCTION (LAMBDA NIL) {AC8E40D}>) 28: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {B2759C9}>) 29: ((LAMBDA NIL)) 30: ((LAMBDA NIL)) 31: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {B40C0B5}>) 32: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {B2759C9}> #<CLOSURE (LAMBDA NIL) {B40C0C5}>) 33: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {B2759C9}> #<CLOSURE (LAMBDA NIL) {B40C0B5}>) 34: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA NIL) {B40C095}>) 35: ((LAMBDA NIL)) 36: ("foreign function: call_into_lisp") 37: ("foreign function: funcall0") 38: ("foreign function: new_thread_trampoline") 39: ("foreign function: #x53EB80") -- Irène DURAND http://dept-info.labri.u-bordeaux.fr/~idurand

1 0

[mcclim-devel] trivial patch to OpenMCL support
by Eric Marsden 13 May '06

13 May '06

Hi, The following trivial patch is required for recent versions of OpenMCL, that have dropped the :mcl *feature*. Index: package.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/package.lisp,v retrieving revision 1.54 diff -u -r1.54 package.lisp --- package.lisp 30 Mar 2006 12:07:59 -0000 1.54 +++ package.lisp 13 May 2006 14:23:46 -0000 @@ -220,7 +220,7 @@ `(#+clisp ,@'(:gray) #+cmu ,@'(:ext) #+scl ,@'(:ext) - #+mcl ,@'(:ccl) + #+(or mcl openmcl) ,@'(:ccl) #+allegro ,@'(:common-lisp :excl :stream) #+harlequin-common-lisp ,@'(:stream) #+sbcl ,@'(:sb-gray))) ) -- Eric Marsden

1 0

[mcclim-devel] trac? (other plans?)
by Christophe Rhodes 12 May '06

12 May '06

Hi, Common-lisp.net relatively newly supports trac. Should we take advantage of it for a bug tracker? I suppose we should listen to Paolo in particular, who has heroically been wrestling with his bug list on McCLiki -- Paolo, do you think trac would make that part of it easier? Also, I've heard (and encouraged) mutterings from our intrepid Release Manager about a Pentecost Sunday McCLIM release (that's June 4th this year). Does anyone have half-baked work that they'd like to integrate? (Not that we would necessarily need to to have a nice set of release notes: an even partly-working gtk backend might encourage some interest...) Cheers, Christophe

2 1

[mcclim-devel] scrollbars and :command-loop
by Christophe Rhodes 12 May '06

12 May '06

Hi, I have an application pane with :display-time :command-loop, inside a (scrolling ...) form. For the most part, in this application, it is likely that the contents of this pane after a redisplay are similar to those before: so, I would like to be able to preserve the viewport position across redisplays. I've come up with the following method on redisplay-frame-pane: (defmethod redisplay-frame-pane :around ((frame gsharp) (pane gsharp-pane) &key force-p) (declare (ignore force-p)) (let ((transformation (sheet-transformation pane))) (multiple-value-bind (x y) (window-viewport-position pane) (multiple-value-bind (x1 y1) (untransform-position transformation x y) (call-next-method) (setf (window-viewport-position pane) (values x1 y1)))))) which meets the spec, I suppose -- I don't know how well-defined it is, but it does what I wanted it to in McCLIM. However, it leads to visual artifacts: the call-next-method here eventually calls (window-clear), which resets the space-requirements and the transformation of the sheet, which means the scrollbars change size; then the whole of the redraw takes place, and only then does the viewport's position get reset. My question then is twofold. Firstly, is this a sensible thing to be doing at all, or is there some other mechanism for achieving what I want here? (Incremental redisplay might be it, but that has some other problems in this application). Secondly, is there a way of eliminating these glitches? Cheers, Christophe

2 2

[mcclim-devel] trivial sbcl/osx gtkairo patch
by Cyrus Harmon 07 May '06

07 May '06

The following patch allows me to at least launch climacs w/ gtkairo. It doesn't quite work as the Escape key maps to { instead of Escape for some reason, but it looks pretty. Oh, the /opt/local/lib/ is the darwinports lib location. The CFFI guys probably have a better way to do this. Cyrus Index: Backends/gtkairo/gtk-ffi.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp,v retrieving revision 1.5 diff -u -r1.5 gtk-ffi.lisp --- Backends/gtkairo/gtk-ffi.lisp 2 May 2006 13:00:12 -0000 1.5 +++ Backends/gtkairo/gtk-ffi.lisp 3 May 2006 16:44:41 -0000 @@ -19,12 +19,19 @@ (in-package :clim-gtkairo) -#-(or win32 mswindows windows) +#-(or win32 mswindows windows darwin) (eval-when (:compile-toplevel :load-toplevel :execute) (cffi:load-foreign-library "libcairo.so") (cffi:load-foreign-library "libgthread-2.0.so") (cffi:load-foreign-library "libgtk-x11-2.0.so")) +#+darwin +(eval-when (:compile-toplevel :load-toplevel :execute) + (pushnew "/opt/local/lib/" cffi:*foreign-library-directories*) + (cffi:load-foreign-library "libcairo.dylib") + (cffi:load-foreign-library "libgthread-2.0.dylib") + (cffi:load-foreign-library "libgtk-x11-2.0.dylib")) + #+(or win32 mswindows windows) (eval-when (:compile-toplevel :load-toplevel :execute) (cffi:load-foreign-library "libcairo-2.dll")

2 1

[mcclim-devel] mcclim destorys clx on ACL 6.2
by Max-Gerd Retzlaff 05 May '06

05 May '06

Hi, I've just updated my McCLIM to the lastest CVS version. When I now load McClim into the generic ACL 6.2 image even a simple CLX demo like XLIB::JUST-SAY-LISP doesn't work anymore. (Before the loading of McClim it does). Sadly, my last previous cvs update on this particular machine seems to be as long as five month ago, so it is probably a bit hard to find the particular commit to the CVS.. Are they any other ACL 6.2 users who use CVS McCLIM and who have noticed this problem? Bye, Max -- Max-Gerd Retzlaff <m.retzlaff(a)gmx.net> http://blog.matroid.org For your amusement: Old age and treachery will overcome youth and skill.

4 8