cells-devel

cells-devel@common-lisp.net

567 discussions

[cells-devel] Cello Rizng
by Ken Tilton 27 May '06

27 May '06

GUI fans might want to start tracking the Cello list for ongoing development. Celtk is fine and with its Togl widget even does OpenGL, but Cello makes the Celtk/Togl come alive with: FTGL -- anti-aliased texture, polygon, outline, pixmap, bitmap, extruded, and one I ma forgetting fonts GraphicsMagick/ImageMagick -- awesome graphic file handling and more OpenAL -- fun with 3D sound Much more sophisticate dframework, esp. in re widget Geometry. Speaking of OpenAL, it looks as if the Tcl "Snack" library will provide terrific real-time audio synthesis (but that would be true for Celtk as well). Anyway, if you download Cello now (a) most of it is yet to be resurrected but (b) if you can get demo NeHe-06 running (1) you are pretty good at getting hairy libraries running and (2) i think you will enjoy it. :) Meanwhile, PyCells is bringing some attention this way: http://www.eby-sarna.com/pipermail/peak/2006-May/002545.html kt

1 0

[cells-devel] Celtk2 installation
by John Landahl 27 May '06

27 May '06

So I'd like to try out the new! improved! Celtk2 under Linux/SBCL, but I'm having some installation problems. First I found that I had a really old version of CFFI (thanks, Ubuntu!). After installing the latest CFFI tarball, I still get the following error: * (require :celtk) ; loading system definition from /usr/local/lib/sbcl/site-systems/cffi.asd into ; #<PACKAGE "ASDF0"> ; registering #<SYSTEM CFFI {A9D14D1}> as CFFI ; loading system definition from /usr/local/lib/sbcl/site-systems/cells.asd ; into #<PACKAGE "ASDF0"> ; registering #<SYSTEM :CELLS {AD05B69}> as CELLS debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread" {B29D0D1}>: When attempting to read the slot's value (slot-value), the slot CFFI::TO-C-DYNAMIC-EXPANDER is missing from the object #<CFFI::FOREIGN-BUILT-IN-TYPE :UNSIGNED-LONG>. Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {B48D421}> on #<ASDF:CL-SOURCE-FILE "tk-structs" {B46B491}>. 1: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {B48D421}> on #<ASDF:CL-SOURCE-FILE "tk-structs" {B46B491}> as having been successful. 2: [ABORT ] Exit debugger, returning to top level. ((SB-PCL::FAST-METHOD SLOT-MISSING (T T T T)) #<unavailable argument> #<unavailable argument> #<unavailable argument> #<CFFI::FOREIGN-BUILT-IN-TYPE :UNSIGNED-LONG> CFFI::TO-C-DYNAMIC-EXPANDER SLOT-VALUE NIL) Any hints on where to go next?

2 2

[cells-devel] Celtk better
by Ken Tilton 25 May '06

25 May '06

Worked out all known issues shutting down a window, but will not be surprised if more arise. Always a delicate balance dealing with a foreign GUI. Did not bother to move Gears/Opengl demo under Celtk source module. Maybe tomorrow. Maybe. kt

1 0

[cells-devel] Celtk "Hard to Kill" interim release
by Ken Tilton 24 May '06

24 May '06

basically this release is just trying to get on the same page with Stu who is patching like crazy to bring SBCL/Linux on-line. Thx, Stu. The "Hard to Kill" bit reflects the past 24-hours work fighting tooth and nail with Tcl/Tk to bring down a Tk window gracefully. Thought I had it working and then on the last round of tests hit something new (pretty sure this is just something about also getting timers quiesced, which ironically is what started me on this mess 48hrs ago). Meanwhile, I have applied a lot of Stu's patches (Stu, you never got back to me on the Tugl use-lib -- that is in the interp startup now, does not need to be at the toplevel unless it turns out SBCL needs it there.) and want to see how close I got applying them manually as I did while I continue to fight it out with Tcl/Tk. I will also bring the Gears demo back under Celtk since 3d is so much fun, but anyone who wants to test it will have to load it separately: the core Celtk package will load and run without cl-opengl. kenny

1 0

[cells-devel] Celtk and SBCL (and linux)
by Stu Glaser 24 May '06

24 May '06

Hi all, I'm trying to get Celtk working on SBCL. I've attached a patch with several bugfixes. Much still does not work, however, I have managed to display the "one-button-window" demo (though it crashes immediately after display. 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. I made a change in item-pictorial that I'm not certain about. In lotsa-widgets, tcl chokes when I use :bitmap in mk-bitmap: debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread" {A549481}>: Tcl error: bitmap "/home/stu/tmp/cells/Celtk/x1.xbm" not defined I changed it to :file and added a -file entry in deftk bitmap. That 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. Lastly, anonymous CVS access would be great. It would certainly help for creating patches and for keeping my sources updated. Regards, -Stu Glaser diff -c old-Celtk/composites.lisp Celtk/composites.lisp *** old-Celtk/composites.lisp Mon May 15 00:15:37 2006 --- Celtk/composites.lisp Tue May 23 04:00:59 2006 *************** *** 85,91 **** #+wishful (ewish :initarg :ewish :accessor ewish :initform nil :cell nil) ;; vestigial? (title$ :initarg :title$ :accessor title$ :initform (c? (string-capitalize (class-name (class-of self))))) ! (dictionary :initarg :dictionary :initform (make-hash-table :test 'string-equal) :accessor dictionary) (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? (title$ :initarg :title$ :accessor title$ :initform (c? (string-capitalize (class-name (class-of self))))) ! (dictionary :initarg :dictionary :initform (make-hash-table :test 'equalp) :accessor dictionary) (tkwins :initform (make-hash-table) :reader tkwins) (xwins :initform (make-hash-table) :reader xwins) (callbacks :initarg :callbacks :accessor callbacks diff -c old-Celtk/item-pictorial.lisp Celtk/item-pictorial.lisp *** old-Celtk/item-pictorial.lisp Tue May 2 01:57:22 2006 --- Celtk/item-pictorial.lisp Tue May 23 04:00:59 2006 *************** *** 31,36 **** --- 31,37 ---- -activebackground -disabledbackground -bitmap + -file -activebitmap -disabledbitmap -foreground diff -c old-Celtk/run.lisp Celtk/run.lisp *** old-Celtk/run.lisp Tue May 16 19:40:55 2006 --- Celtk/run.lisp Tue May 23 04:00:59 2006 *************** *** 39,45 **** (tk-app-init *tki*) (tk-togl-init *tki*) (tk-format-now "proc TraceOP {n1 n2 op} {event generate $n1 <<trace>> -data $op}") ! (tcl-create-command *tki* "do-on-command" (get-callback 'do-on-command) 42 0) (with-integrity () (setf *tkw* (make-instance root-class)) --- 40,46 ---- (tk-app-init *tki*) (tk-togl-init *tki*) (tk-format-now "proc TraceOP {n1 n2 op} {event generate $n1 <<trace>> -data $op}") ! (tcl-create-command *tki* "do-on-command" (get-callback 'do-on-command) 42 (null-pointer)) (with-integrity () (setf *tkw* (make-instance root-class)) *************** *** 85,88 **** (force-output *tkw*) (setf *tkw* nil)) ! (run-window root-class)) \ No newline at end of file --- 86,89 ---- (force-output *tkw*) (setf *tkw* nil)) ! (run-window root-class)) diff -c old-Celtk/tk-events.lisp Celtk/tk-events.lisp *** 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! "Ok for interpreting type field in event, but not for (expt 2 etype) to get mask" --- 35,41 ---- (tkwin :pointer) (mask :int) (proc :pointer) ! (client-data :pointer)) (defcenum tk-event-type ;; do not try to generate masks from these! "Ok for interpreting type field in event, but not for (expt 2 etype) to get mask" diff -c old-Celtk/tk-interp.lisp Celtk/tk-interp.lisp *** old-Celtk/tk-interp.lisp Tue May 16 16:17:15 2006 --- Celtk/tk-interp.lisp Tue May 23 04:00:59 2006 *************** *** 36,50 **** (define-foreign-library Tcl (:darwin (:framework "Tcl")) ! (:windows (:or "/tcl/bin/Tcl85.dll"))) (define-foreign-library Tk (:darwin (:framework "Tk")) ! (:windows (:or "/tcl/bin/tk85.dll"))) ;; Togl (define-foreign-library Togl (:darwin (:or "/opt/tcltk/togl/lib/Togl1.7/libtogl1.7.dylib")) ! (:windows (:or "/tcl/lib/togl/togl17.dll"))) (defctype tcl-retcode :int) --- 36,57 ---- (define-foreign-library Tcl (:darwin (:framework "Tcl")) ! (:windows (:or "/tcl/bin/Tcl85.dll")) ! (:unix "libtcl.so") ! (t (:default "libtcl"))) (define-foreign-library Tk (:darwin (:framework "Tk")) ! (:windows (:or "/tcl/bin/tk85.dll")) ! (:unix "libtk.so") ! (t (:default "libtk"))) ;; Togl (define-foreign-library Togl (:darwin (:or "/opt/tcltk/togl/lib/Togl1.7/libtogl1.7.dylib")) ! (:windows (:or "/tcl/lib/togl/togl17.dll")) ! (:unix "/usr/lib/Togl1.7/libTogl1.7.so")) ! ! (use-foreign-library Togl) (defctype tcl-retcode :int) *************** *** 233,239 **** (defun argv0 () #+allegro (sys:command-line-argument 0) ! #+lispworks (nth 0 (io::io-get-command-line-arguments))) (defun tk-interp-init-ensure () (unless *initialized* --- 240,247 ---- (defun argv0 () #+allegro (sys:command-line-argument 0) ! #+lispworks (nth 0 (io::io-get-command-line-arguments)) ! #+sbcl (nth 0 sb-ext:*posix-argv*)) (defun tk-interp-init-ensure () (unless *initialized* diff -c old-Celtk/widget.lisp Celtk/widget.lisp *** old-Celtk/widget.lisp Tue May 16 19:40:55 2006 --- Celtk/widget.lisp Tue May 23 04:00:59 2006 *************** *** 78,84 **** (defun tk-create-event-handler-ex (widget callback-name &rest masks) (let ((self-tkwin (widget-to-tkwin widget))) ! (assert (plusp self-tkwin)) (trc nil "setting up widget virtual-event handler" widget :tkwin self-tkwin) (tk-create-event-handler self-tkwin (apply 'foreign-masks-combine 'tk-event-mask masks) --- 78,84 ---- (defun tk-create-event-handler-ex (widget callback-name &rest masks) (let ((self-tkwin (widget-to-tkwin widget))) ! (assert (not (null-pointer-p self-tkwin))) (trc nil "setting up widget virtual-event handler" widget :tkwin self-tkwin) (tk-create-event-handler self-tkwin (apply 'foreign-masks-combine 'tk-event-mask masks)

4 7

Re: [cells-devel] Celtk and SBCL (and linux)
by Ken Tilton 23 May '06

23 May '06

On 5/23/06, Frank Goenninger <frgo(a)mac.com> wrote: > > Hi all: > > Am 23.05.2006 um 21:06 schrieb Ken Tilton: > > > > > 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. > > > > I get: > > > > tk> .f332.cv334 create bitmap 140 140 -bitmap "@\\0dev\\Celtk\ > > \x1.xbm" > > > > That works. Then changing the name to something it will not find, I > > get: > > > > Error: Tcl error: error reading bitmap file "\0dev\Celtk > > \xoxox1.xbm" > > This has to be adapted to Linux-style path names: > > "/the/path/to/the/file/1.xbm" Thanks. Pardon my OS-centrism. Like this?: (mk-bitmap :coords (list 140 140) :bitmap (conc$ "@" (namestring (make-pathname :directory '(:absolute "0dev" "Celtk") :name "x1" :type "xbm")))) kenny

2 1

[cells-devel] Re: Celtk: setting the content of a text widget ? Fileevent working !
by Frank Goenninger 21 May '06

21 May '06

Am 20.05.2006 um 20:16 schrieb Frank Goenninger: > Am 20.05.2006 um 18:24 schrieb Ken Tilton: > >> Frank Goenninger wrote: >> >>> Hi Kenny, hi all: >>> >>> I do have a text widget which is created using mk-text-widget: >>> >>> (mk-text-widget :id :receive-window >>> :state 'disabled >>> :md-value (c?n "...") >>> :height 10 >>> :width 80 >>> :borderwidth 2 >>> :relief 'sunken >>> :pady 5)) >>> >>> No matter what I do (even setting :state to 'enabled) I do get >>> anything printed in the text widget. >>> >>> I actually execute a setf on md-value of the text widget: >>> >>> (setf (md-value (fm-other :receive-window)) data) >>> >>> >>> Any idea? Thx! >> >> >> Hmmm, looks like I did not finish implementing text widgets. > > Yep, meanwhile I recognized that an observer is missing in file > entry.lisp. Well, actually I had to do (in file entry.lisp): ;; Method CLEAR: clears a text widget to zero content (defmethod clear ((self text-widget)) (tk-format `(:variable ,self) "~a delete 1.0 end" (^path))) ;; This observer puts text to the widget if md-value has been set ;; Also takes care of edge cases like initialization time and setting ;; strings of length 0... (defobserver .md-value ((self text-widget)) (trc "md-value output" self new-value) (if (or (and (not old-value) (string= new-value "")) (not new-value)) (tk-format `(:variable ,self) "~a delete 1.0 end" (^path)) (if (> (length new-value) 0) (tk-format `(:variable ,self) "~a insert end ~a" (^path) new- value)))) With this and my fileevent stuff I can now say: ;; Model for a simple terminal output window. (defmodel fileevent-test-window (window) () (:default-initargs :kids (c? (the-kids (mk-stack (:packing (c?pack-self)) (mk-label :text "Receive window" :pady 10) (mk-text-widget :id :receive-window ;:state 'disabled :md-value (c-in "") :height 10 :width 80 :borderwidth 2 :relief 'sunken :pady 5)) (mk-fileevent :id :fileevent-test :read-fn 'read-from-pipe :iostream (open "/Users/frgo/tmp/frgo-test" :direction :input)))))) ;; The method read-from-pipe reads data from a pipe generated by ;; mkfifo /Users/frgo/tmp/frgo-test and puts this as the data of a ;; text widget (defmethod read-from-pipe ((self tk-fileevent) &optional (operation :read)) (declare (ignorable operation)) (let ((stream (^iostream))) (let ((data (read-line stream nil nil nil))) (trc "*** READ-FROM-PIPE: data = " data) (when data (setf (md-value (fm-other :receive-window)) data)))) ) ;; Test function that fires up the test case (defun test-fileevent () (trc "----------------------------------------------------------------------- ------") (test-window 'fileevent-test-window) (trc "----------------------------------------------------------------------- ------") ) Now, whenever I do a $ echo "Heya this is a test" > /Users/frgo/tmp/frgo-test the text gets displayed in the window. Of course there's other uses for this: You also can open a socket and send application commands to the application. The read-from-pipe function would then be a little interpreter kicking of actions in the application... For me I put the reading function to listen to a RS232C port that is connected to an AVR-based microcontroller. The controller send status information and voltage and current values from a power supply to be displayed as info by my application... Fileevent to be put to Celtk CVS in a few days ... watch out. Frank

2 2

[cells-devel] Celtk: Not really Celtk related, but .... ?! format does unwanted optimizations ...
by Frank Goenninger 21 May '06

21 May '06

Hi all: I have that problem that I get some unwanted optimizations from format : I want to do send a string to Tcl/Tk via function tk-format-now. My call to tk-format-now looks as follows: (tk-format-now "fileevent ~A readable [list readable ~A ~A]" ch-name ch-name path)) This produces a Tcl error: Tcl error: can not find channel named "#1=file22" [Condition of type SIMPLE-ERROR] When looking at the call stack then I see the followig: 6: (CTK::TCL-EVAL-EX 25144328 "fileevent #1=file22 readable [list readable #1# .fileevent-test]") Locals: CTK::I = 25144328 CTK::S = "fileevent #1=file22 readable [list readable #1# .fileevent-test]" 7: (CTK:TK-FORMAT-NOW "fileevent ~A readable [list readable ~A ~A]" #1="file22" #1# ".fileevent-test") Locals: CTK::FMT$ = "fileevent ~A readable [list readable ~A ~A]" NIL = "file22" NIL = "file22" NIL = ".fileevent-test" Obviously Lisp optimizes the reference to the string object "file22" into a reference (Hmm - this is new to me. Is this real Lisp speak to describe the facts shown above ???). Thx for any pointers! Frank

1 0

[cells-devel] Celtk: setting the content of a text widget ?
by Frank Goenninger 20 May '06

20 May '06

Hi Kenny, hi all: I do have a text widget which is created using mk-text-widget: (mk-text-widget :id :receive-window :state 'disabled :md-value (c?n "...") :height 10 :width 80 :borderwidth 2 :relief 'sunken :pady 5)) No matter what I do (even setting :state to 'enabled) I do get anything printed in the text widget. I actually execute a setf on md-value of the text widget: (setf (md-value (fm-other :receive-window)) data) Any idea? Thx! Best wishes Frank

1 0

[cells-devel] Cells web?
by ocorrain＠yahoo.com 13 May '06

13 May '06

Hi-- I'm trying to get my head around Cells by writing an application with it, and I was wondering whether any work has been done in the area already. Has anyone used Cells as the basis for a Web app? I'm thinking specifically of something Ajax-y, with XMLHttp widget updates. Any thoughts on this line of enquiry? Tiarnán

2 1

← Newer
1
...
34
35
36
37
38
39
40
...
57
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

2003

cells-devel