<br><br><div><span class="gmail_quote">On 5/23/06, <b class="gmail_sendername">Stu Glaser</b> <<a href="mailto:stuglaser@gmail.com">stuglaser@gmail.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">

Hi all, I'm trying to get Celtk working on SBCL.  I've attached a patch with several bugfixes. </blockquote><div> Thx for the  patches. I will start working thru them and update CVS shortly. speaking of which, not sure what you mean by not having anonymous CVS, but I am a CVS dummy. I just use TortoiseCVS on win32 and I have write access so... well, like I said, i do not know a thing about CVS, not sur ehow to help.

<br><br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> Much still does not work, however, I have managed to<br>display the "one-button-window" demo (though it crashes immediately

<br>after display.</blockquote><div><br>Without you doing anything? And it takes out your Lisp session as well, or do you get a backtrace? <br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">

Sometime later I will have questions.  Celtk still crashes often in finish-business, and I'm not yet familiar enough with cells to perform the fixes.</blockquote><div> Well, almost everything happens in "finish-business", so I would not worry about Cells as much as OS differences and Lisp differences and installation issues (as you have been).

<br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">I made a change in item-pictorial that I'm not certain about.  In<br>lotsa-widgets, tcl chokes when I use :bitmap in mk-bitmap:

<br>debugger invoked on a SIMPLE-ERROR in thread<br>#<THREAD "initial thread" {A549481}>:<br>  Tcl error: bitmap "/home/stu/tmp/cells/Celtk/x1.xbm" not defined<br><br>I changed it to :file and added a -file entry in deftk bitmap. 

</blockquote><div> Looking here: <a href="http://tmml.sourceforge.net/doc/tk/canvas.html">http://tmml.sourceforge.net/doc/tk/canvas.html</a>, I do not see a -file configuration option on the Bitmap Canvas item (you have to scroll waaaay down under the Canvas widget to find the items. Which explains....

<br><br><br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> That<br>fixed the first error, but created a new one (which occurs later):

debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread" {A549481}>:   Tcl error: unknown option "-file" I'm not sure how to proceed here.  Any help would be great.

</blockquote><div><br><br>I think what happened is that you just made Tcl break sooner. ie,

before it saw the (correct, I think) -bitmap option and then died when

it decided the file was not "defined" (strange, it should say found,

right? I will investigate over trying to recreate your error.<br>

<br>

So let's go back to that weird <file location> "not defined". I have a hunch but prefer to investigate first. meanwhile, a couple of things for you to try: 1. naturally, make sure the file is there. :) I am not sure I even had that .xbm file in the distro until recently.

2. find the function tk-format-now and monkey with the debug stuff so that any message to Tk with the word "bitmap" in it gets printed, and see if you can catch the output and post that. When really confused I rig that so it prints everything, but on lotsa-widgets that would be a lot. if you are brave you can try moving Just Enough Code from lotsa-widgets to one-button. But it is probably easiest to use my yes/no filters in tk-format-now to get just the right amount of messaging.

<br><br>kenny<br><br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Lastly, anonymous CVS access would be great.  It would certainly help

<br>for creating patches and for keeping my sources updated.<br><br>Regards,<br>-Stu Glaser<br><br><br>diff -c old-Celtk/composites.lisp Celtk/composites.lisp<br>*** old-Celtk/composites.lisp   Mon May 15 00:15:37 2006<br>

--- Celtk/composites.lisp       Tue May 23 04:00:59 2006<br>***************<br>*** 85,91 ****<br>      #+wishful (ewish :initarg :ewish :accessor ewish :initform nil :cell nil) ;; vestigial?<br>      (title$ :initarg :title$ :accessor title$

<br>        :initform (c? (string-capitalize (class-name (class-of self)))))<br>!     (dictionary :initarg :dictionary :initform (make-hash-table :test 'string-equal) :accessor dictionary)<br>      (tkwins :initform (make-hash-table) :reader tkwins)

(xwins :initform (make-hash-table) :reader xwins)       (callbacks :initarg :callbacks :accessor callbacks --- 85,91 ----       #+wishful (ewish :initarg :ewish :accessor ewish :initform nil :cell nil) ;; vestigial?

<br>      (title$ :initarg :title$ :accessor title$<br>        :initform (c? (string-capitalize (class-name (class-of self)))))<br>!     (dictionary :initarg :dictionary :initform (make-hash-table :test 'equalp) :accessor dictionary)

<br>      (tkwins :initform (make-hash-table) :reader tkwins)<br>      (xwins :initform (make-hash-table) :reader xwins)<br>      (callbacks :initarg :callbacks :accessor callbacks<br>diff -c old-Celtk/item-pictorial.lisp

 Celtk/item-pictorial.lisp<br>*** old-Celtk/item-pictorial.lisp       Tue May  2 01:57:22 2006<br>--- Celtk/item-pictorial.lisp   Tue May 23 04:00:59 2006<br>***************<br>*** 31,36 ****<br>--- 31,37 ----<br>      -activebackground

<br>      -disabledbackground<br>      -bitmap<br>+     -file<br>      -activebitmap<br>      -disabledbitmap<br>      -foreground<br>diff -c old-Celtk/run.lisp Celtk/run.lisp<br>*** old-Celtk/run.lisp  Tue May 16 19:40:55 2006

<br>--- Celtk/run.lisp      Tue May 23 04:00:59 2006<br>***************<br>*** 39,45 ****<br>    (tk-app-init *tki*)<br>    (tk-togl-init *tki*)<br>    (tk-format-now "proc TraceOP {n1 n2 op} {event generate $n1 <<trace>> -data $op}")

<br>!   (tcl-create-command *tki* "do-on-command" (get-callback 'do-on-command)  42 0)<br><br>    (with-integrity ()<br>      (setf *tkw* (make-instance root-class))<br>--- 40,46 ----<br>    (tk-app-init *tki*)<br>

    (tk-togl-init *tki*)<br>    (tk-format-now "proc TraceOP {n1 n2 op} {event generate $n1 <<trace>> -data $op}")<br>!   (tcl-create-command *tki* "do-on-command" (get-callback 'do-on-command)  42 (null-pointer))

<br><br>    (with-integrity ()<br>      (setf *tkw* (make-instance root-class))<br>***************<br>*** 85,88 ****<br>      (force-output *tkw*)<br>      (setf *tkw* nil))<br><br>!   (run-window root-class))<br>\ No newline at end of file

<br>--- 86,89 ----<br>      (force-output *tkw*)<br>      (setf *tkw* nil))<br><br>!   (run-window root-class))<br>diff -c old-Celtk/tk-events.lisp Celtk/tk-events.lisp<br>*** old-Celtk/tk-events.lisp    Tue May 16 19:40:55 2006

--- Celtk/tk-events.lisp        Tue May 23 04:00:59 2006 *************** *** 35,41 ****     (tkwin :pointer)     (mask :int)     (proc :pointer) !   (client-data :int))   (defcenum tk-event-type ;; do not try to generate masks from these!

<br>      "Ok for interpreting type field in event, but not for (expt 2 etype) to get mask"<br>--- 35,41 ----<br>    (tkwin :pointer)<br>    (mask :int)<br>    (proc :pointer)<br>!   (client-data :pointer))<br><br>

  (defcenum tk-event-type ;; do not try to generate masks from these!<br>      "Ok for interpreting type field in event, but not for (expt 2 etype) to get mask"<br>diff -c old-Celtk/tk-interp.lisp Celtk/tk-interp.lisp

<br>*** old-Celtk/tk-interp.lisp    Tue May 16 16:17:15 2006<br>--- Celtk/tk-interp.lisp        Tue May 23 04:00:59 2006<br>***************<br>*** 36,50 ****<br><br>  (define-foreign-library Tcl<br>      (:darwin (:framework "Tcl"))

<br>!   (:windows (:or "/tcl/bin/Tcl85.dll")))<br>  (define-foreign-library Tk<br>      (:darwin (:framework "Tk"))<br>!   (:windows (:or "/tcl/bin/tk85.dll")))<br><br>  ;; Togl<br>  (define-foreign-library Togl

<br>      (:darwin (:or "/opt/tcltk/togl/lib/Togl1.7/libtogl1.7.dylib"))<br>!   (:windows (:or "/tcl/lib/togl/togl17.dll")))<br><br>  (defctype tcl-retcode :int)<br><br>--- 36,57 ----<br><br>  (define-foreign-library Tcl

<br>      (:darwin (:framework "Tcl"))<br>!   (:windows (:or "/tcl/bin/Tcl85.dll"))<br>!   (:unix "libtcl.so")<br>!   (t (:default "libtcl")))<br>  (define-foreign-library Tk<br>      (:darwin (:framework "Tk"))

<br>!   (:windows (:or "/tcl/bin/tk85.dll"))<br>!   (:unix "libtk.so")<br>!   (t (:default "libtk")))<br><br>  ;; Togl<br>  (define-foreign-library Togl<br>      (:darwin (:or "/opt/tcltk/togl/lib/Togl1.7/libtogl1.7.dylib"))

<br>!   (:windows (:or "/tcl/lib/togl/togl17.dll"))<br>!   (:unix "/usr/lib/Togl1.7/libTogl1.7.so"))<br>!<br>! (use-foreign-library Togl)<br><br>  (defctype tcl-retcode :int)<br><br>***************<br>

*** 233,239 ****<br><br>  (defun argv0 ()<br>    #+allegro (sys:command-line-argument 0)<br>!   #+lispworks (nth 0 (io::io-get-command-line-arguments)))<br><br>  (defun tk-interp-init-ensure ()<br>    (unless *initialized*

<br>--- 240,247 ----<br><br>  (defun argv0 ()<br>    #+allegro (sys:command-line-argument 0)<br>!   #+lispworks (nth 0 (io::io-get-command-line-arguments))<br>!   #+sbcl (nth 0 sb-ext:*posix-argv*))<br><br>  (defun tk-interp-init-ensure ()

<br>    (unless *initialized*<br>diff -c old-Celtk/widget.lisp Celtk/widget.lisp<br>*** old-Celtk/widget.lisp       Tue May 16 19:40:55 2006<br>--- Celtk/widget.lisp   Tue May 23 04:00:59 2006<br>***************<br>*** 78,84 ****

<br><br>  (defun tk-create-event-handler-ex (widget callback-name &rest masks)<br>    (let ((self-tkwin (widget-to-tkwin widget)))<br>!       (assert (plusp self-tkwin))<br>        (trc nil "setting up widget virtual-event handler" widget :tkwin self-tkwin)

<br>        (tk-create-event-handler self-tkwin<br>          (apply 'foreign-masks-combine 'tk-event-mask masks)<br>--- 78,84 ----<br><br>  (defun tk-create-event-handler-ex (widget callback-name &rest masks)<br>    (let ((self-tkwin (widget-to-tkwin widget)))

<br>!       (assert (not (null-pointer-p self-tkwin)))<br>        (trc nil "setting up widget virtual-event handler" widget :tkwin self-tkwin)<br>        (tk-create-event-handler self-tkwin<br>          (apply 'foreign-masks-combine 'tk-event-mask masks)

<br><br><br>_______________________________________________<br>cells-devel site list<br><a href="mailto:cells-devel@common-lisp.net">cells-devel@common-lisp.net</a><br><a href="http://common-lisp.net/mailman/listinfo/cells-devel">

http://common-lisp.net/mailman/listinfo/cells-devel</a><br><br></blockquote></div><br>