mcclim-devel

mcclim-devel@common-lisp.net

820 discussions

Start a nNew thread

[mcclim-devel] Wrong function name in guided tour
by Stefan Lang 05 Nov '06

05 Nov '06

On page 12 in guided-tour.dvi, the code: (run-top-level-frame ... should read (run-frame-top-level ... Stefan

2 2

[mcclim-devel] xxxx
by Jack Unrue 01 Nov '06

01 Nov '06

Greetings, I've had a few days now to sort of stumble around in my initial attempts at implementing a new backend[1]. The existing backend code and the spec help a lot, so the stumbling is just me getting familiar with a new codebase which for me is always a challenge. I think various concepts are starting to sink in. Apologies in advance for naive statements in the following and feel free to correct my understanding :-) I've got the general idea that a backend implements a class hierarchy with the responsibility of tying backend-specific constructs (represented by mirrors) to the system-agnostic representation (panes, sheets, and gadgets). The resulting McCLIM object hierarchy needs to shadow the logical structure in the native windowing system (e.g., window parent/child relationships). In McCLIM, one implements specializations of make-pane-1 and realize-mirror to accomplish that. Correct? Looking at the existing backends, it appears to my inexperienced eye that I have considerable latitude in establishing the mapping. That includes making use of various classes, functions, etc whose symbols are in the climi package, as needed. It's nice that there are various sanity checks in place that help catch mistakes. But essentially there are no prohibitions beyond those sanity checks and expected behavior as described by the spec? I haven't yet found any list of "do's and don'ts", e.g. on McCLiki, but hopefully folks will provide review feedback to that effect. At the moment, my event dispatching solution consists of implementing get-next-event for my port, returning the appropriate event type based on my mapping between Windows messages and CLIM events. I'm not sure yet whether I can implement the timeout feature. Anyway, I'm not otherwise touching any of the event queue-related stuff that I see in McCLIM proper, and I'm assuming for the time being that this backend will not enable multi-processing -- if and when SBCL/Win32 gets multi-threading then I'll have to revisit this. I haven't yet delved into mediums and designs, as I'm still trying to get basic window, menu, and gadget construction working correctly. But graphics support is obviously on the near horizon. I'm looking forward to making code available as soon as I'm not completely embarrassed by it :-) -- Jack Unrue [1] for those that haven't heard, I'm working on a Win32 backend via Graphic-Forms, which is my CL library for Windows GUIs.

2 1

[mcclim-devel] introduction, was: xxxx
by Jack Unrue 01 Nov '06

01 Nov '06

Sorry about the nonsensical subject line. -- Jack Unrue

1 0

[mcclim-devel] Question about source tarball
by Stefan Lang 30 Oct '06

30 Oct '06

Hello all, The source tarball linked from http://common-lisp.net/project/mcclim/ contains only the directory "mcclim/cvsroot" including CVS files and subdirectories. I.e. mcclim/ - cvsroot/ - CVSROOT/ - Emptydir/ - checkoutlist - checkoutlist,v . . . - mcclim - Apps - Debugger - clim-debugger.lisp,v . . . . . . Is that intended? Or is the tarball build broken? Or am I missing something? Thanks, Stefan

4 5

[mcclim-devel] small Allegro issues
by Willem Broekema 29 Oct '06

29 Oct '06

Hi, There are some issues with current CVS version that make it not work with Allegro 8 (Ansi mode) yet: - (load "..") inside (eval-when (compile load eval) ..) fails, if current directory is not the McClim root directory (as is usually happens if McClim is loaded using asdf). This can be fixed by binding *default-pathname-defaults* as in the patch below, althogh I'm not sure this is the right solution. - In port.lisp there is (in a #+allegro piece) reference to *x-tcp-port* where probably xlib::*x-tcp-port* is meant (which has value 6000). With these changes McClim compiles (Allegro 8, Ansi Mode, Mac OS X). As I have yet to configure X11 on this Mac, I can't check whether the demos work. - Willem - - - fix loading of files in eval-when - - - banaan:~/dev/mcclim willem$ cvs diff -c *.lisp Index: commands.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/commands.lisp,v retrieving revision 1.64 diff -c -r1.64 commands.lisp *** commands.lisp 17 Sep 2006 20:34:39 -0000 1.64 --- commands.lisp 28 Oct 2006 22:46:30 -0000 *************** *** 21,26 **** --- 21,36 ---- (in-package :clim-internals) + (eval-when (compile load eval) + #+allegro + (let ((*default-pathname-defaults* (or *compile-file-truename* *load-truename*))) + (load "presentations") + (load "presentation-defs")) + #-allegro + (progn + (load "presentations") + (load "presentation-defs"))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Command tables Index: package.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/package.lisp,v retrieving revision 1.55 diff -c -r1.55 package.lisp *** package.lisp 29 Jun 2006 08:16:02 -0000 1.55 --- package.lisp 28 Oct 2006 22:46:32 -0000 *************** *** 2,7 **** --- 2,14 ---- (in-package :common-lisp-user) + (eval-when (compile load eval) + #+allegro + (let ((*default-pathname-defaults* (or *compile-file-truename* *load-truename*))) + (load "patch")) + #-allegro + (load "patch")) + ;;; ;;; CLIM-LISP ;;; - - - fix socket port number - - - banaan:~/dev/mcclim/Backends/CLX willem$ cvs diff -c cvs diff: Diffing . Index: port.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp,v retrieving revision 1.122 diff -c -r1.122 port.lisp *** port.lisp 23 Mar 2006 08:45:26 -0000 1.122 --- port.lisp 28 Oct 2006 23:02:36 -0000 *************** *** 1428,1434 **** :remote-filename (format nil "/tmp/.X11-unix/X~D" display) :format :binary) (socket:make-socket :remote-host (string host) ! :remote-port (+ *x-tcp-port* display) :format :binary)))) (if (streamp stream) stream --- 1428,1434 ---- :remote-filename (format nil "/tmp/.X11-unix/X~D" display) :format :binary) (socket:make-socket :remote-host (string host) ! :remote-port (+ xlib::*x-tcp-port* display) :format :binary)))) (if (streamp stream) stream

2 1

[mcclim-devel] Patch: Update support for the Scieneer CL.
by Douglas Crosher 29 Oct '06

29 Oct '06

* Update support for the Scieneer CL. Index: Lisp-Dep/fix-scl.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-scl.lisp,v retrieving revision 1.1 diff -u -u -r1.1 fix-scl.lisp --- Lisp-Dep/fix-scl.lisp 15 Mar 2006 22:56:55 -0000 1.1 +++ Lisp-Dep/fix-scl.lisp 18 Oct 2006 00:14:17 -0000 @@ -128,14 +128,12 @@ (defpackage :clim-mop - (:use :common-lisp :clos)) + (:use :clos)) (eval-when (:compile-toplevel :load-toplevel :execute) (loop for sym being the symbols of :clim-mop do (export sym :clim-mop))) -(in-package :clim-mop) - (eval-when (:compile-toplevel :load-toplevel :execute) (export '(clim-lisp-patch::defconstant clim-lisp-patch::defclass) Index: Experimental/freetype/freetype-package.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Experimental/freetype/freetype-package.lisp,v retrieving revision 1.2 diff -u -u -r1.2 freetype-package.lisp --- Experimental/freetype/freetype-package.lisp 5 Jun 2005 20:50:29 -0000 1.2 +++ Experimental/freetype/freetype-package.lisp 18 Oct 2006 00:14:16 -0000 @@ -1,6 +1,6 @@ (defpackage :mcclim-freetype (:use :climi :clim :clim-lisp) (:export :*freetype-font-path*) - (:import-from #+cmucl :alien + (:import-from #+(or cmu scl) :alien #+sbcl :sb-alien :slot :make-alien :alien :deref)) Index: Backends/gtkairo/cairo-ffi.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Backends/gtkairo/cairo-ffi.lisp,v retrieving revision 1.4 diff -u -u -r1.4 cairo-ffi.lisp --- Backends/gtkairo/cairo-ffi.lisp 13 May 2006 19:37:29 -0000 1.4 +++ Backends/gtkairo/cairo-ffi.lisp 18 Oct 2006 00:14:12 -0000 @@ -26,7 +26,12 @@ (defmacro def-cairo-fun (name rtype &rest args) - (let* ((str (string-upcase name)) + (let* (#-scl + (str (string-upcase name)) + #+scl + (str (if (eq ext:*case-mode* :upper) + (string-upcase name) + (string-downcase name))) (actual (intern (concatenate 'string "%-" str) :clim-gtkairo)) (wrapper (intern str :clim-gtkairo)) (argnames (mapcar #'car args))) @@ -36,8 +41,12 @@ ,@args) (defun ,wrapper ,argnames (multiple-value-prog1 - (,actual ,@argnames) - (let ((status (cairo_status ,(car argnames)))) + #-scl (,actual ,@argnames) + #+scl + (ext:with-float-traps-masked (:underflow :overflow :inexact + :divide-by-zero :invalid) + (,actual ,@argnames)) + (let ((status (cairo_status ,(car argnames)))) (unless (eq status :success) (error "~A returned with status ~A" ,name status)))))))) Index: Apps/Scigraph/dwim/dwim-system.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/dwim-system.lisp,v retrieving revision 1.2 diff -u -u -r1.2 dwim-system.lisp --- Apps/Scigraph/dwim/dwim-system.lisp 3 Nov 2003 14:02:28 -0000 1.2 +++ Apps/Scigraph/dwim/dwim-system.lisp 18 Oct 2006 00:14:08 -0000 @@ -100,6 +100,7 @@ #+(or allegro sbcl) #.(if (fboundp 'compile-file-pathname) (pathname-type (compile-file-pathname "foo")) "fasl") + #+scl (pathname-type (compile-file-pathname "foo")) #+lucid (car lcl:*load-binary-pathname-types*) #+(and (not genera) (not allegro) @@ -124,7 +125,8 @@ #+GENERA "GENERA" #+LUCID "LUCID" #+ALLEGRO "ALLEGRO" - #+SBCL "SBCL") + #+SBCL "SBCL" + #+scl "SCL") (GUI #+(and mcl (not clim)) "MAC" #+(and genera (not clim)) "DW" Index: Apps/Scigraph/dwim/extensions.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/extensions.lisp,v retrieving revision 1.6 diff -u -u -r1.6 extensions.lisp --- Apps/Scigraph/dwim/extensions.lisp 23 Mar 2006 10:09:50 -0000 1.6 +++ Apps/Scigraph/dwim/extensions.lisp 18 Oct 2006 00:14:08 -0000 @@ -105,7 +105,9 @@ (:genera (let ((symbol (intern string :scl))) (and (boundp symbol) (symbol-value symbol)))) (:openmcl (ccl::getenv string)) - (:sbcl (sb-ext:posix-getenv string)))) + (:sbcl (sb-ext:posix-getenv string)) + (:scl (cdr (assoc string ext:*environment-list* :test #'string=))) + )) #+allegro ;;>> Allegro 4.2 supports SYSTEM:GETENV. How do I set an environment variable? @@ -328,7 +330,8 @@ ((or :allegro :sbcl) #.(if (fboundp 'compile-file-pathname) (pathname-type (compile-file-pathname "foo")) - "fasl")) + "fasl")) + (:scl (pathname-type (compile-file-pathname "foo"))) (:lucid (car lcl:*load-binary-pathname-types*)) (:mcl #.(pathname-type ccl:*.fasl-pathname*)) )) Index: Apps/Scigraph/dwim/load-dwim.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/load-dwim.lisp,v retrieving revision 1.3 diff -u -u -r1.3 load-dwim.lisp --- Apps/Scigraph/dwim/load-dwim.lisp 3 Nov 2003 14:02:28 -0000 1.3 +++ Apps/Scigraph/dwim/load-dwim.lisp 18 Oct 2006 00:14:08 -0000 @@ -64,7 +64,8 @@ #+genera si:*default-binary-file-type* #+(or allegro sbcl) #.(if (fboundp 'compile-file-pathname) (pathname-type (compile-file-pathname "foo")) - "fasl") + "fasl") + #+scl (pathname-type (compile-file-pathname "foo")) #+lucid (car lcl:*load-binary-pathname-types*) #+(and (not genera) (not allegro) @@ -88,7 +89,8 @@ #+LUCID "LUCID" #+ALLEGRO "ALLEGRO" #+OPENMCL "OPENMCL" - #+SBCL "SBCL") + #+SBCL "SBCL" + #+scl "SCL") (GUI #+(and mcl (not clim)) "MAC" #+(and genera (not clim)) "DW" Index: Apps/Scigraph/dwim/macros.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/macros.lisp,v retrieving revision 1.7 diff -u -u -r1.7 macros.lisp --- Apps/Scigraph/dwim/macros.lisp 8 Aug 2004 21:11:17 -0000 1.7 +++ Apps/Scigraph/dwim/macros.lisp 18 Oct 2006 00:14:08 -0000 @@ -82,7 +82,7 @@ (mapcar #'(lambda (v) (if (symbolp v) v (car v))) let-vars))) `(let ,forms (declare (dynamic-extent ,@(get-vars forms))) ,@body))) -#-(or openmcl-native-threads sb-thread) +#-(or openmcl-native-threads sb-thread scl) (defmacro without-interrupts (&body body) #FEATURE-CASE ((:genera `(scl::without-interrupts ,@body)) @@ -90,7 +90,7 @@ (:allegro `(excl:without-interrupts ,@body)) (:mcl `(ccl:without-interrupts ,@body)))) -#+(or openmcl-native-threads sb-thread) +#+(or openmcl-native-threads sb-thread scl) (progn (defparameter *dwim-giant-lock* (clim-sys:make-lock "dwim giant lock")) (defmacro without-interrupts (&body body)

2 2

[mcclim-devel] Platform support / testing status and reports
by Andreas Fuchs 28 Oct '06

28 Oct '06

I'd like to try out an experiment this release: There's a mcclim cliki page at http://mcclim.cliki.net/0.9.3%20Status, where I would like you, if you test, to put your results. The format is very simple for now; I hope it will work out for the gigantic mcclim community (: This should allow me to write more accurate release notes and allow volunteers to better coordinate their efforts. Everybody wins! (That's the theory. Let's see how well it works) Cheers, -- Andreas Fuchs, (http://|im:asf@|mailto:asf@)boinkor.net, antifuchs

1 0

[mcclim-devel] Ok, release plans. Freezing...
by Andreas Fuchs 28 Oct '06

28 Oct '06

Hi there, time for a new release. To give myself less wiggle room, we freeze now, and release on November the 2nd. The release code name will be "All Souls' Day". You read that one correctly. Freeze period starts now. Release on 2006-11-02. (~20:00) 120 hours to go. I think we all have some testing to do now. (-8 Cheers, -- Andreas Fuchs, (http://|im:asf@|mailto:asf@)boinkor.net, antifuchs

1 0

[mcclim-devel] Patch: Rename key name symbols for support of lower case mode CL variants.
by Douglas Crosher 18 Oct '06

18 Oct '06

* Rename key name symbols for support of lower case mode CL variants.

2 2

[mcclim-devel] Patch: Improve support for lower case mode CL variants.
by Douglas Crosher 18 Oct '06

18 Oct '06

* Improve support for lower case mode CL variants.

1 0

← Newer
1
...
37
38
39
40
41
42
43
...
82
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-devel