From mike at mwatters.net  Fri Oct 17 18:49:53 2008
From: mike at mwatters.net (Mike Watters)
Date: Fri, 17 Oct 2008 11:49:53 -0700
Subject: [mcclim-devel] [McCLIM patch] - a few miscellaneous items
Message-ID: <48F8DE51.30103@mwatters.net>

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 at mwatters.net

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: mcclim-stuff-patch.patch
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20081017/3cddb85f/attachment.ksh>

From ahefner at gmail.com  Mon Oct 20 18:30:04 2008
From: ahefner at gmail.com (Andy Hefner)
Date: Mon, 20 Oct 2008 14:30:04 -0400
Subject: [mcclim-devel] [McCLIM patch] - a few miscellaneous items
In-Reply-To: <48F8DE51.30103@mwatters.net>
References: <48F8DE51.30103@mwatters.net>
Message-ID: <31ffd3c40810201130j66e1c273r16e1ee32d9f180fe@mail.gmail.com>

On Fri, Oct 17, 2008 at 2:49 PM, Mike Watters <mike at mwatters.net> wrote:

> The non-error changes consist of two spelling corrections and an
> implementation of map-over-command-table-translators.

Well, that's interesting. It seems we don't implement
find-presentation-translator itself, probably for the reason touched
upon in your comment.



From metawilm at gmail.com  Thu Oct 23 19:51:28 2008
From: metawilm at gmail.com (Willem Broekema)
Date: Thu, 23 Oct 2008 21:51:28 +0200
Subject: [mcclim-devel] Two listener fixes for Allegro
Message-ID: <f6bc9b490810231251h782a69dbk62ec44dd8ffe2ba0@mail.gmail.com>

--- 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



From ahefner at gmail.com  Thu Oct 23 20:52:40 2008
From: ahefner at gmail.com (Andy Hefner)
Date: Thu, 23 Oct 2008 16:52:40 -0400
Subject: [mcclim-devel] [mcclim-cvs] CVS mcclim/Backends/CLX
In-Reply-To: <E1Kt77J-0002p3-7m@common-lisp.net>
References: <E1Kt77J-0002p3-7m@common-lisp.net>
Message-ID: <31ffd3c40810231352h330b9311k584450d9930b7096@mail.gmail.com>

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 at 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 at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-cvs
>



From joswig at lisp.de  Sun Oct 26 14:37:16 2008
From: joswig at lisp.de (Rainer Joswig)
Date: Sun, 26 Oct 2008 15:37:16 +0100
Subject: [mcclim-devel] McCLIM and SCL: Some problems and patches...
Message-ID: <47FD2DA8-9E4A-4F68-95CF-D38AF7D1D83D@lisp.de>

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 at lisp.de






From sukottoburaun at yahoo.co.jp  Wed Oct 29 14:37:04 2008
From: sukottoburaun at yahoo.co.jp (=?ISO-2022-JP?B?GyRCJVYlaSUmJXMbKEIgGyRCJTklMyVDJUgbKEI=?=)
Date: Wed, 29 Oct 2008 23:37:04 +0900 (JST)
Subject: [mcclim-devel] McClim CCL::SOCKET-CREATION-ERROR
Message-ID: <20081029143704.85156.qmail@web3910.mail.bbt.yahoo.co.jp>

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/



From mike at mwatters.net  Thu Oct 30 02:27:39 2008
From: mike at mwatters.net (Mike Watters)
Date: Wed, 29 Oct 2008 19:27:39 -0700
Subject: [mcclim-devel] gadget clipping in scroller panes
Message-ID: <49091B9B.5080603@mwatters.net>

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 at mwatters.net

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: gadget-clipping.lisp
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20081029/5c45d9cd/attachment.ksh>