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

[mcclim-devel] Default text style
by Andy Hefner 06 Dec '08

06 Dec '08

Does anyone have an objection to changing the default text style from :fixed to :sans-serif? I don't believe anything in the spec requires is to use :fixed for the default, and changing it makes some things (e.g. accepting-values dialogs) much more attractive.

1 0

[mcclim-devel] McCLIM and clisp/new-clx
by Philippe Brochard 29 Nov '08

29 Nov '08

Hi, The current CVS McCLIM freeze on drag'n drop with clisp/new-clx. It seems that mcclim expect xlib:process-event to timeout. This is the case with clisp/mit-clx but never with clisp/new-clx. So there is an infinite loop with clisp/new-clx. Here is a little fix to run most mcclim examples with clisp/new-clx. I don't know if this is the right thing to do and I haven't found the difference between the 2 clx versions. If someone with a higher view can take a look at it. --8< cut here -------------------------------------------------------- Index: Lisp-Dep/mp-nil.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-nil.lisp,v retrieving revision 1.7 diff -u -w -p -r1.7 mp-nil.lisp --- Lisp-Dep/mp-nil.lisp 8 Jul 2006 16:58:36 -0000 1.7 +++ Lisp-Dep/mp-nil.lisp 26 Nov 2008 14:54:12 -0000 @@ -127,6 +127,7 @@ (loop for port in climi::*all-ports* ;; this is dubious do (loop as this-event = (process-next-event port :timeout 0) for got-events = this-event then (or got-events this-event) + repeat 2 while this-event finally (unless got-events (process-next-event port)))) (car cv))) --8< cut here -------------------------------------------------------- Regards, Philippe -- Philippe Brochard <pbrochard(a)common-lisp.net> http://hocwp.free.fr

1 0

[mcclim-devel] Gestures applicable to only one pane?
by Nikolaus Demmel 13 Nov '08

13 Nov '08

Hi there, I would like to define commands with gestures (or a gesture to command translator) where the gesture (:select) applies in only one specific pane. I want to specialise this command for T, so it would accept everything as input, which screws up the rest of my application... How can this be done? Regards, Nikolaus Demmel

2 1

Re: [mcclim-devel] McClim CCL::SOCKET-CREATION-ERROR
by ブラウンスコット 02 Nov '08

02 Nov '08

I've got mcclim working now using SBCL and clbuild. -------------------------------------- Power up the Internet with Yahoo! Toolbar. http://pr.mail.yahoo.co.jp/toolbar/

2 1

[mcclim-devel] gadget clipping in scroller panes
by Mike Watters 30 Oct '08

30 Oct '08

I'm trying to display various gadgets in a scrolling stream pane. As the attached file hopefully demonstrates, gadgets which appear below the extent of the initial viewport are clipped and not redrawn when the scoll position changes. Anyone have a recommendation for approaching this problem, and/or have I missed something obvious? Mike Watters mike-cl(a)mwatters.net (in-package :clim-user) (define-application-frame test-frame () () (:menu-bar nil) (:command-definer nil) (:panes (stuff :application :scroll-bars :vertical :display-time :command-loop :display-function 'display-stuff-pane) (interactor :interactor)) (:layouts (default (vertically (:min-width 256 :min-height 384 :width 256 :height 384) (3/4 stuff) (1/4 interactor))))) (defun display-stuff-pane (frame pane) (formatting-item-list (pane :n-columns 1 :y-spacing 10) (loop with fm = (frame-manager frame) for n below 16 do (formatting-cell (pane) (format pane "~D: " n) (with-look-and-feel-realization (fm frame) (with-output-as-gadget (pane) (make-pane 'push-button :client frame :label (format nil "~D" n)))))) (formatting-cell (pane) (format pane "foo"))) (format pane "~&bar~%")) (defun launch-test-frame () (run-frame-top-level (make-application-frame 'test-frame)))

1 0

[mcclim-devel] McClim CCL::SOCKET-CREATION-ERROR
by ブラウンスコット 29 Oct '08

29 Oct '08

I used asdf to install McClim, Clx and spatial-trees on Mac OS X 10.5 with Clozure. When I try to run the demo (clim-demo::run-test 'clim-demo::demodemo) I get the following error message: [Condition of type CCL::SOCKET-CREATION-ERROR] Restarts: 0: [ABORT-REQUEST] Abort handling SLIME request. 1: [ABORT-BREAK] Reset this process 2: [ABORT] Kill this process Backtrace: 0: (CCL:SOCKET-ERROR 'NIL "gethostbyname" 1 'T) 1: (CCL::MAKE-TCP-STREAM-SOCKET 9 ':CONNECT ':ACTIVE ':REMOTE-HOST "tmp/launch-Z04V4k/" ':REMOTE-PORT 6000) 2: (CCL::MAKE-TCP-SOCKET ':CONNECT ':ACTIVE ':REMOTE-HOST "tmp/launch-Z04V4k/" ':REMOTE-PORT 6000) 3: (CCL:MAKE-SOCKET ':CONNECT ':ACTIVE ':REMOTE-HOST "tmp/launch-Z04V4k/" ':REMOTE-PORT 6000) 4: (XLIB:OPEN-DISPLAY "tmp/launch-Z04V4k/" ':DISPLAY 0 ':PROTOCOL ':|| ':AUTHORIZATION-NAME "" ':AUTHORIZATION-DATA "") 5: (#<STANDARD-METHOD CLIM-CLX::INITIALIZE-CLX (CLIM-CLX::CLX-PORT)> #<CLX-PORT #x3000432FE70D>) 6: (#<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER (CLIM-CLX::CLX-PORT)> #<CLX-PORT #x3000432FE70D> ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 7: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL #<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER (CLIM-CLX::CLX-PORT)> . 2367656)) 8: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(NIL (#<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER #> #<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER #> #<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER #>) #<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)>) 2367656) 9: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS CLIM-CLX::CLX-PORT> '(:SERVER-PATH (:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||))) 10: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS CLIM-CLX::CLX-PORT> ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 11: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (SYMBOL)> 'CLIM-CLX::CLX-PORT ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 12: (FIND-PORT ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 13: (FIND-FRAME-MANAGER) 14: (#<STANDARD-METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)> #<DEMODEMO #x3000432FF27D>) 15: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(#<STANDARD-METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)> #<STANDARD-METHOD RUN-FRAME-TOP-LEVEL (APPLICATION-FRAME)>) 2367726) 16: (RUN-TEST 'DEMODEMO) 17: (CCL::CALL-CHECK-REGS 'RUN-TEST 'DEMODEMO) 18: (SWANK::EVAL-REGION "(clim-demo::run-test 'clim-demo::demodemo) " 'T) 19: ((:INTERNAL SWANK:LISTENER-EVAL)) 20: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:LISTENER-EVAL) #x3000432FF76F>) 21: (CCL::CALL-CHECK-REGS 'SWANK:LISTENER-EVAL "(clim-demo::run-test 'clim-demo::demodemo) ") 22: ((:INTERNAL SWANK::EVAL-FOR-EMACS)) 23: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x300040E057EF> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::EVAL-FOR-EMACS) #x3000432FFC0F>) 24: (FUNCALL 'SWANK::EVAL-FOR-EMACS '(SWANK:LISTENER-EVAL "(clim-demo::run-test 'clim-demo::demodemo) ") "CLIM-DEMO" 86) 25: ((:INTERNAL SWANK::HANDLE-REQUEST)) 26: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x300040E057EF> #<Compiled-function (:INTERNAL SWANK::HANDLE-REQUEST) (Non-Global) #x300040DBC96F>) 27: (SWANK::CALL-WITH-REDIRECTED-IO #<CONNECTION #x300040E7365D> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::CALL-WITH-CONNECTION) #x3000432FFC5F>) 28: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x300040E7365D> #<Compiled-function (:INTERNAL SWANK::HANDLE-REQUEST) (Non-Global) #x300040DBC96F>) 29: (SWANK::HANDLE-REQUEST #<CONNECTION #x300040E7365D>) 30: ((:INTERNAL SWANK::REPL-LOOP)) 31: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x300040E057EF> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-LOOP) #x30004323F05F>) 32: (SWANK::CALL-WITH-REDIRECTED-IO #<CONNECTION #x300040E7365D> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::CALL-WITH-CONNECTION) #x30004323F01F>) 33: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x300040E7365D> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-LOOP) #x30004323F05F>) 34: (SWANK::CALL-WITH-BINDINGS 'NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-REPL-THREAD) #x30004323F09F>) 35: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS new-repl-thread(49) [Active] #x3000432329AD> '(#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x30004323291F>)) 36: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS new-repl-thread(49) [Active] #x3000432329AD> '(#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x30004323291F>)) 37: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)) Is there a way to fix this bug? Does McClim work better with a different Lisp implementation? -------------------------------------- Enjoy MLB with MAJOR.JP! Ichiro, Matsuzaka, Matsui, and more! http://pr.mail.yahoo.co.jp/mlb/

1 0

[mcclim-devel] McCLIM and SCL: Some problems and patches...
by Rainer Joswig 26 Oct '08

26 Oct '08

Hi, I have been compiling McCLIM with Scieneer Common Lisp. Worked well - a few problems: ******************************************** Flexichain needs SCL support for weak pointers. That's easy: File utilities.lisp (defun make-weak-pointer (object) "Creates a new weak pointer which points to OBJECT. For portability reasons, OBJECT most not be NIL." (assert (not (null object))) #+:sbcl (sb-ext:make-weak-pointer object) #+:cmu (ext:make-weak-pointer object) #+:scl (ext:make-weak-pointer object) #+:clisp (ext:make-weak-pointer object) #+:allegro (let ((wv (excl:weak-vector 1))) (setf (svref wv 0) object) wv) #+:openmcl (let ((wp (%make-weak-pointer))) (setf (gethash wp *weak-pointers*) object) wp) #+:corman (ccl:make-weak-pointer object) #+:lispworks (let ((array (make-array 1))) (hcl:set-array-weak array t) (setf (svref array 0) object) array) #-(or :sbcl :cmu :clisp :allegro :openmcl :corman :lispworks :scl) object) (defun weak-pointer-value (weak-pointer) "If WEAK-POINTER is valid, returns its value. Otherwise, returns NIL." #+:sbcl (prog1 (sb-ext:weak-pointer-value weak-pointer)) #+:cmu (prog1 (ext:weak-pointer-value weak-pointer)) #+:scl (prog1 (ext:weak-pointer-value weak-pointer)) #+:clisp (prog1 (ext:weak-pointer-value weak-pointer)) #+:allegro (svref weak-pointer 0) #+:openmcl (prog1 (gethash weak-pointer *weak-pointers*)) #+:corman (ccl:weak-pointer-obj weak-pointer) #+:lispworks (svref weak-pointer 0) #-(or :sbcl :cmu :clisp :allegro :openmcl :corman :lispworks :scl) weak-pointer) #-(or :sbcl :cmu :clisp :allegro :openmcl :corman :lispworks :scl) (eval-when (:compile-toplevel :load-toplevel :execute) (warn "No support for weak pointers in this implementation. ~ Things may get big and slow.")) ******************************************** File mcclim/designs.lisp this files uses WITH-MEDIUM-OPTIONS, a macro that is later defined in some other file. The definition that uses WITH-MEDIUM-OPTIONS can be removed, since it is also defined later. ******************************************** File mcclim/presentation-defs.lisp (define-presentation-generic-function %accept accept (type-key parameters options type stream view &key)) Above definition needs to be something like this: (define-presentation-generic-function %accept accept (type-key parameters options type stream view &key &allow-other- keys)) Since there are uses of ACCEPT with :DEFAULT and :DEFAULT-TYPE . ******************************************** File: mcclim/Drei/Persistent/persistent-undo.lisp In: DEFMETHOD FLIP-UNDO-RECORD (FLEXICHAIN::WEAK-POINTER-VALUE C BUFFER) WEAK-POINTER-VALUE takes only one argument, not two. ******************************************** After fixing above problems, McCLIM compiled fine with Scieneer Common Lisp. The Listener example was running fine... Regards, Rainer Joswig Rainer Joswig, Hamburg, Germany http://lispm.dyndns.org/ mailto:joswig@lisp.de

1 0

Re: [mcclim-devel] [mcclim-cvs] CVS mcclim/Backends/CLX
by Andy Hefner 23 Oct '08

23 Oct '08

That's the secret to mcclim's high code quality - we don't just fix bugs, we fix them twice. On Thu, Oct 23, 2008 at 4:49 PM, thenriksen <thenriksen(a)common-lisp.net> wrote: > Update of /project/mcclim/cvsroot/mcclim/Backends/CLX > In directory cl-net:/tmp/cvs-serv10847/Backends/CLX > > Modified Files: > port.lisp > Log Message: > `decode-x-button-code' fix from Mike Watters. > > > --- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2008/10/20 17:31:41 1.135 > +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2008/10/23 20:49:12 1.136 > @@ -615,10 +615,11 @@ > +pointer-wheel-up+ > +pointer-wheel-down+ > +pointer-wheel-left+ > - +pointer-wheel-right+))) > - (and (> code 0) > - (<= code (length button-mapping)) > - (aref button-mapping (1- code))))) > + +pointer-wheel-right+)) > + (code (1- code))) > + (when (and (>= code 0) > + (< code (length button-mapping))) > + (aref button-mapping code)))) > > ;; From "Inter-Client Communication Conventions Manual", Version 2.0.xf86.1, > ;; section 4.1.5: > > > _______________________________________________ > mcclim-cvs mailing list > mcclim-cvs(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-cvs >

1 0

[mcclim-devel] Two listener fixes for Allegro
by Willem Broekema 23 Oct '08

23 Oct '08

--- Apps/Listener/util.lisp 22 Oct 2008 23:58:12 -0000 1.27 +++ Apps/Listener/util.lisp 23 Oct 2008 19:47:38 -0000 @@ -31,7 +31,7 @@ (defun directoryp (path) "Determine if PATH designates a directory" - #+allegro (excl:file-directory-p pathname) + #+allegro (excl:file-directory-p path) #-allegro (flet ((f (x) (if (eq x :unspecific) nil x))) (if (or (f (pathname-name path)) --- Apps/Listener/dev-commands.lisp 22 Oct 2008 23:58:12 -0000 1.63 +++ Apps/Listener/dev-commands.lisp 23 Oct 2008 19:48:48 -0000 @@ -681,10 +681,9 @@ #+openmcl-partial-mop (openmcl-mop:specializer-direct-generic-functions specializer) #+scl (clos:specializer-direct-generic-functions specializer) - #-(or PCL SBCL scl clisp openmcl-partial-mop) - (error "Sorry, not supported in your CL implementation. -See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION -if you are interested in fixing this.")) + #+allegro (mop:specializer-direct-generic-functions specializer) + #-(or PCL SBCL scl clisp openmcl-partial-mop allegro) + (error "Sorry, not supported in your CL implementation. See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION if you are interested in fixing this.")) (defun class-funcs (class) (remove-duplicates

1 0

[mcclim-devel] [McCLIM patch] - a few miscellaneous items
by Mike Watters 20 Oct '08

20 Oct '08

The attached patchset addresses a couple of errors I encountered while working on a project using McCLIM (in decode-x-button-code and seos-write-string). The non-error changes consist of two spelling corrections and an implementation of map-over-command-table-translators. Mike Watters mike-cl(a)mwatters.net * decode-x-button-code was using incorrect bounds check: diff -wru ../mcclim-cvs/Backends/CLX/port.lisp ./Backends/CLX/port.lisp --- ../mcclim-cvs/Backends/CLX/port.lisp 2008-05-12 20:04:39.000000000 -0700 +++ ./Backends/CLX/port.lisp 2008-10-16 18:18:27.000000000 -0700 @@ -615,10 +615,11 @@ +pointer-wheel-up+ +pointer-wheel-down+ +pointer-wheel-left+ - +pointer-wheel-right+))) - (and (> code 0) - (<= code (1+ (length button-mapping))) - (aref button-mapping (1- code))))) + +pointer-wheel-right+)) + (code (1- code))) + (when (and (>= code 0) + (< code (length button-mapping))) + (aref button-mapping code)))) ;; From "Inter-Client Communication Conventions Manual", Version 2.0.xf86.1, ;; section 4.1.5: * map-over-command-table-translators, * add-actual-presentation-translator-to-command-table: diff -wru ../mcclim-cvs/commands.lisp ./commands.lisp --- ../mcclim-cvs/commands.lisp 2008-04-20 00:19:10.000000000 -0700 +++ ./commands.lisp 2008-10-16 18:20:56.000000000 -0700 @@ -480,6 +480,39 @@ (map-over-command-table-menu-items function table)))) (values))) +(defun map-over-command-table-translators + (function command-table &key (inherited t)) + (flet ((map-func (table) + (maphash #'(lambda (k v) + (declare (ignore k)) + (funcall function v)) + (slot-value + (presentation-translators table) + 'translators)))) + (let ((command-table (find-command-table command-table))) + (if inherited + (apply-with-command-table-inheritance #'map-func command-table) + (map-func command-table))))) + +;(defun add-presentation-translator-to-command-table +; (command-table translator-name &key (errorp t)) +; - fixme; spec says this fun is given a translator name, but that +; find-presentation-translator needs a translator name and a command +; table designator +(defun add-actual-presentation-translator-to-command-table + (command-table translator &key (errorp t)) + (let ((translators + (presentation-translators + (find-command-table command-table)))) + (when (and errorp + (second + (multiple-value-list + (gethash (name translator) + (slot-value translators 'translators))))) + (error 'command-already-present + :command-table-name command-table)) + (add-translator translators translator))) + ;; At this point we should still see the gesture name as supplied by the ;; programmer in 'gesture' (defun %add-keystroke-item (command-table gesture item errorp) * seos-write-string sometimes gets called with zero-length strings, * which have a split of 1 assigned when the stream eol action is * :wrap, which eventually gets passed as the :end parameter to * text-size, which causes a bounding indices error. alternate fix: * change (1+ start) to (min end (1+ start)) in :wrap case of * seos-write-string. diff -wru ../mcclim-cvs/stream-output.lisp ./stream-output.lisp --- ../mcclim-cvs/stream-output.lisp 2008-04-15 12:28:04.000000000 -0700 +++ ./stream-output.lisp 2008-10-16 18:21:22.000000000 -0700 @@ -287,6 +287,8 @@ :text-style text-style) while (<= sub-width delta) finally (return (1- i))))) + (when (eql end 0) + (return-from seos-write-string)) (with-slots (baseline height vspace) stream (multiple-value-bind (cx cy) (stream-cursor-position stream) * minor spelling corrections diff -wru ../mcclim-cvs/Drei/drei-clim.lisp ./Drei/drei-clim.lisp --- ../mcclim-cvs/Drei/drei-clim.lisp 2008-04-30 23:48:21.000000000 -0700 +++ ./Drei/drei-clim.lisp 2008-10-16 18:22:02.000000000 -0700 @@ -57,10 +57,10 @@ ;;; though. ;;; Cursors are output records. After a cursor is created, The owning -;;; Drei instance instnace should add it to the output stream. The -;;; owner of the cursor (a Drei instance) is responsible for removing -;;; the cursor once it is done with it. Cursors can be active/inactive -;;; and enabled/disabled and have the same activity-status as their +;;; Drei instance should add it to the output stream. The owner of the +;;; cursor (a Drei instance) is responsible for removing the cursor +;;; once it is done with it. Cursors can be active/inactive and +;;; enabled/disabled and have the same activity-status as their ;;; associated view. (defclass drei-cursor (standard-sequence-output-record) ((%view :reader view diff -wru ../mcclim-cvs/input-editing.lisp ./input-editing.lisp --- ../mcclim-cvs/input-editing.lisp 2008-02-07 12:20:04.000000000 -0800 +++ ./input-editing.lisp 2008-10-16 18:21:38.000000000 -0700 @@ -28,7 +28,7 @@ (in-package :clim-internals) (defvar *use-goatee* nil - "I true, use the Goatee editing component instead of Drei. The + "If true, use the Goatee editing component instead of Drei. The Goatee component is faster and more mature than Drei.") (defvar *activation-gestures* nil

2 1