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

[mcclim-devel] Spiffy code sought for elegant pop-up dialog!
by Peter Braroe 22 Feb '06

22 Feb '06

Hello all! As I have understood, it seems that :own-window t for accepting-values or NOTIFY-USER is not available yet in McCLIM. I really have my heart set on using a pop-up windows to manage prefs etc. but it seems non-trivial... What I want to do is: 1 Create a child window 2A Populate with text-fields, checkboxes, and buttons (like gadet-test) 2B Add "Save" button and method that returns/stores the values selected 3 Move focus to child, put original window in background 4 Destroy child window, refocus on original window It certainly seems possible looking at the Clim spec, but when I google it seems that I can't find much about it or examples. Sooo i am wondering if there is a reason for this... So if anyone has a nice example* of how to do this that would be a dream, and if not the next best thing would be if someone had a clear understanding of how it should be donwe. And if not some vauge ideas on how to get started, and where to look would be excellent! Thanks all! /Peter (*Even just a "About" pop-up example would be loveley!)

5 7

[mcclim-devel] Error while compiling PostScript backend
by Paolo Amoroso 19 Feb '06

19 Feb '06

I have tried building from scratch the latest McCLIM CVS sources with CMUCL Snapshot 2005-11 (19C) under Linux, and compilation stops with the error: [...] ; /home/paolo/src/dev/mcclim/Goatee/presentation-history.x86f written. ; Compilation finished in 0:00:00. ; Loading #P"/home/paolo/src/dev/mcclim/Goatee/presentation-history.x86f". ; Loading #P"/home/paolo/src/dev/mcclim/Backends/PostScript/sheet.x86f". Execution of a form compiled with errors: (DEFMETHOD SHEET-DIRECT-MIRROR ((SHEET POSTSCRIPT-STREAM)) (POSTSCRIPT-STREAM-FILE-STREAM SHEET)) [Condition of type KERNEL:SIMPLE-PROGRAM-ERROR] Restarts: 0: [CONTINUE] Return NIL from load of #P"/home/paolo/src/dev/mcclim/Backends/PostScript/sheet.x86f". 1: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {5837C315}> on #<ASDF:CL-SOURCE-FILE "sheet" {5837C145}>. 2: [ACCEPT ] Continue, treating #<ASDF:LOAD-OP NIL {5837C315}> on #<ASDF:CL-SOURCE-FILE "sheet" {5837C145}> as having been successful. 3: [ABORT ] Return to Top-Level. Debug (type H for help) (C::DO-CALL #<Code Object "Top-Level Form" {580C4017}> 78 79 4 ...) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/byte-interp.lisp. 0] Paolo -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

2 2

[mcclim-devel] mcclim.org domain: still active?
by Paolo Amoroso 18 Feb '06

18 Feb '06

If I try to connect to: http://www.mcclim.org I get a server not found error. Is the mcclim.org domain still active? Paolo -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

1 0

[mcclim-devel] Writing single-line strings to clim-stream-panes
by Troels Henriksen 17 Feb '06

17 Feb '06

Assume an instance of a standard clim-stream-pane with a width and height of 0 respectively (though the issue concerns panes of all sizes). If one prints a string *with* linebreaks to this pane, it will properly resize itself to accommodate the text. If the string does *not* include linebreaks, however, the pane will not be resized (and thus, not be visible by the user). I consider this a bug. A possible solution, and the one I have followed due to my lack of insight into McCLIM internals, is to modify `seos-write-string' in stream-output.lisp to call `change-space-requirements' on the pane with a :min-height parameter of the height of the string being printed. This does ensure that the pane is never too small to accommodate the string, but it is certainly an ugly hack. Does anyone else have a better solution? -- \ Troels "Athas" Henriksen /\ sigkill.dk/blog (Danish)

4 6

[mcclim-devel] Threading and Waiting
by John Connors 14 Feb '06

14 Feb '06

While looking for the 'right' way to get a SCBL thread to wait for a specified condition as part of an attempt to update port from the CLOCC, I came across this gem in the McCLIM sources. (declaim (inline yield)) (defun yield () (declare (optimize speed (safety 0))) (sb-alien:alien-funcall (sb-alien:extern-alien "sched_yield" (function sb-alien:int))) (values)) (defun process-wait (reason predicate) (let ((old-state (process-whostate *current-process*))) (unwind-protect (progn (setf old-state (process-whostate *current-process*) (process-whostate *current-process*) reason) (loop (let ((it (funcall predicate))) (when it (return it))) ;(sleep .01) (yield))) (setf (process-whostate *current-process*) old-state)))) Now this will work, but my understanding is when calling sched_yeild, a thread gets completely expired and put at the back of the scheduling queue. What was/is wrong with sleep?

2 1

[mcclim-devel] Guided Tour of CLIM
by Clemens Fruhwirth 09 Feb '06

09 Feb '06

Here is my draft of an update to CLIM tutorial. http://clemens.endorphin.org/A%20Guided%20Tour%20of%20CLIM%202006-draft.pdf I plan to put it into the mcclim repository under Doc/, so others can enhance it if desired. I will probably post an other update myself, as I originally planned to write more (incremental updates, accepting- values and a spreadsheet examples are missing). But I rather felt like it's better to release it early than never. Feedback is appreciated. -- Fruhwirth Clemens - http://clemens.endorphin.org for robots: sp4mtrap(a)endorphin.org

5 6

[mcclim-devel] Class precedence error with sheet.lisp and cmucl
by Raymond Toy 09 Feb '06

09 Feb '06

While compiling mcclim from a cvs checkout of 2006-02-08 using the latest cmucl snapshot, I get an error when compiling Backend/Postscript/sheet.lisp. The error message is Error in function PCL::CPL-ERROR: While computing the class precedence list of the class named POSTSCRIPT-STREAM: The class named CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN is a forward referenced class. The class named CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN is a direct superclass of the class named POSTSCRIPT-STREAM.. [Condition of type SIMPLE-ERROR] I guess this might be a bug in cmucl's PCL. Ray

1 0

Re: [mcclim-devel] incremental redisplay slowness and local patches
by pw＠snoopy.mv.com 09 Feb '06

09 Feb '06

> > This, however, uses a scary clim-internals internal symbol. That's > fine up to a point, but it would be better from our point of view if > there were a way of doing this in a documented way; is there a > spec-blessed way of having a custom incremental-redisplay method > called? Alternatively, can climi::window-stream be documented and > exported? Any other ideas? I have not tried this myself, but there is the :record-type keyword to updating-output where you can supply your own class of output-record. Then redisplay-output-record on what that returns should do what you want. No? Paul

2 1

[mcclim-devel] incremental redisplay slowness and local patches
by Christophe Rhodes 08 Feb '06

08 Feb '06

Hi, As some of you know, the tablature application suffers from scaling problems in incremental redisplay because of the precision of the algorithm. While the spatial-trees stuff might solve this in the end, at the moment we are working around it by a conservative incremental-redisplay. In the interest of minimizing divergence from CVS McCLIM, we would like to have that incremental-redisplay as a different method, specialized on an application class. However, our first try (define a new output record type) was a failure, as incremental-redisplay itself is actually called on a stream, not on an output record; we could specialize redisplay, but then we would have to duplicate a whole load of stuff. We do know that the stream we want to call our own method for incremental-redisplay on is one obtained by OPEN-WINDOW-STREAM, and we control the place where this is called. Our current code, then, is (change-class (open-window-stream ...) 'tabcode-window-stream) with (defclass tabcode-window-stream (climi::window-stream) ()) This, however, uses a scary clim-internals internal symbol. That's fine up to a point, but it would be better from our point of view if there were a way of doing this in a documented way; is there a spec-blessed way of having a custom incremental-redisplay method called? Alternatively, can climi::window-stream be documented and exported? Any other ideas? Cheers, Christophe

1 0

[mcclim-devel] Problems getting "format-graph-from-roots" to work...
by Peter Braroe 07 Feb '06

07 Feb '06

Hello all! I have gotten slightly further in my ambition to make a clim program to draw tree diagrams. After looking at various examples I have put together a little program that gives the error below. No matching method for the generic function #<STANDARD-GENERIC-FUNCTION CLIM:LAYOUT-GRAPH-NODES (1) {58CD5C11}>, when called with arguments (#<CLIM-INTERNALS::DIGRAPH-GRAPH-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 {59D5278D}> #<CLIM:APPLICATION-PANE TREE-TEST::SCREEN {59BF5855}> NIL NIL). [Condition of type PCL::NO-APPLICABLE-METHOD-ERROR] I am loading CLIM with asdf in my .cmucl-init and doing other stuff such as drawing a lines, rectangles works fine... Is it the code or my environment? I am getting seriously frustrated... Ideas? Also my clim package 0.9.1 does not seem to have "format-graph-from-root" (singular) only the "format-graph-from-roots" is this because the one root only version is not implemented? Does anyone know? Thanks beforehand for any help, /Peter ______________________________________________________________________ draw-tree.cl (defpackage :tree-test (:USE :CLIM :CLIM-EXTENSIONS :CLIM-LISP)) (in-package :tree-test) (defvar *test-frame* nil) (defvar *test-pane* nil) (defun run-tree-test () (let ((*test-frame* (setf *test-frame* (make-application-frame 'tree-test :height 400 :width 700 :doc-title "Tree diagram test")))) (run-frame-top-level *test-frame*) *test-frame*)) (define-application-frame tree-test () () (:menu-bar menubar-command-table) (:panes (screen :application :display-time nil :text-style (make-text-style :sans-serif :roman :normal) ) ) (:layouts (defaults (vertically () screen) ) ) #+nil (:top-level (tree-test-frame-top-level))) (make-command-table 'menubar-command-table :errorp nil :menu '(("Draw Tree" :command com-tree))) (define-tree-test-command com-tree () (draw-tree)) (defun draw-tree () (setq *test-pane* (get-frame-pane *test-frame* 'screen)) (format-graph-from-roots '((a (b (d)) (c (d)))) #'(lambda (x s) (princ (car x) s)) #'cdr :stream *standard-output* :orientation :vertical :merge-duplicates t :duplicate-key #'car)) Note: Have tried both *standard-output* and *test-pane* as :stream ______________________________________________________________________ No matching method for the generic function #<STANDARD-GENERIC-FUNCTION CLIM:LAYOUT-GRAPH-NODES (1) {58CD5C11}>, when called with arguments (#<CLIM-INTERNALS::DIGRAPH-GRAPH-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 {59D5278D}> #<CLIM:APPLICATION-PANE TREE-TEST::SCREEN {59BF5855}> NIL NIL). [Condition of type PCL::NO-APPLICABLE-METHOD-ERROR] Restarts: 0: [CONTINUE] Retry call to :FUNCTION. 1: [ABORT] Return to application command loop 2: [ABORT] Abort handling SLIME request. 3: [ABORT] Return to Top-Level. Backtrace: 0: ("DEFMETHOD NO-APPLICABLE-METHOD (T)" #<#1=unused-arg> #<#1#> #<STANDARD-GENERIC-FUNCTION CLIM:LAYOUT-GRAPH-NODES (1) {58CD5C11}> (#<CLIM-INTERNALS::DIGRAPH-GRAPH-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 {59D5278D}> #<CLIM:APPLICATION-PANE TREE-TEST::SCREEN {59BF5855}> NIL NIL)) 1: ((FLET #:CONTINUATION99 (LABELS CLIM-INTERNALS::CONT CLIM:FORMAT-GRAPH-FROM-ROOTS)) #<CLIM:APPLICATION-PANE TREE-TEST::SCREEN {59BF5855}>) 2: ((METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) #<#1=unused-arg> #<#1#> #<CLIM:APPLICATION-PANE TREE-TEST::SCREEN {59BF5855}> #<Closure Over Function (FLET #:CONTINUATION99 (LABELS CLIM-INTERNALS::CONT CLIM:FORMAT-GRAPH-FROM-ROOTS)) {59D528C1}> ...) 3: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T NULL)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE TREE-TEST::SCREEN {59BF5855}> #<Closure Over Function (LABELS CLIM-INTERNALS::CONT CLIM:FORMAT-GRAPH-FROM-ROOTS) {59D51C09}> ...) 4: (CLIM:FORMAT-GRAPH-FROM-ROOTS ((TREE-TEST::A # #)) #<Function "DEFUN DRAW-TREE" {59BEF231}> #<Function CDR {101CF0C9}> :ORIENTATION ...) 5: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#() . #(# # # # # ...)) #<unused-arg> #<TREE-TEST::TREE-TEST {59BF2A5D}> NIL) 6: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G6356)" #<#1=unused-arg> #<#1#> #<TREE-TEST::TREE-TEST {59BF2A5D}> NIL) 7: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#(20) . #()) #<#1=unused-arg> #<TREE-TEST::TREE-TEST {59BF2A5D}> #<#1#>) 8: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) #1=(CLIM:APPLICATION-FRAME)) (#(16 15) . #(#)) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function (METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL #1#) {58C4A031}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<TREE-TEST::TREE-TEST {59BF2A5D}> NIL) 9: (TREE-TEST::RUN-TREE-TEST) 10: (SWANK::EVAL-REGION "(tree-test::run-tree-test) " T) 11: ("DEFSLIMEFUN LISTENER-EVAL") 12: (SWANK::CALL-WITH-BUFFER-SYNTAX #<Closure Over Function "DEFSLIMEFUN LISTENER-EVAL" {59BF2261}>) 13: ("DEFUN EVAL-FOR-EMACS") 14: ((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK NIL (T T)) #<#1=unused-arg> #<#1#> #<Function SWANK:SWANK-DEBUGGER-HOOK {59F4E871}> #<Closure Over Function "DEFUN EVAL-FOR-EMACS" {59BF2189}>) 15: ("DEFUN HANDLE-REQUEST") 16: ("DEFUN CALL-WITH-CONNECTION") 17: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {59F36D15}> #<Closure Over Function "DEFUN CALL-WITH-CONNECTION" {59BF1F09}>) 18: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {59F36D15}> #<Function "DEFUN HANDLE-REQUEST" {5A001911}>) 19: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {59F36D15}>) 20: (SWANK::PROCESS-AVAILABLE-INPUT #<Stream for descriptor 6> #<Closure Over Function "DEFUN INSTALL-SIGIO-HANDLER" {59BF1EF9}>) 21: ((FLET SWANK::HANDLER SWANK::INSTALL-SIGIO-HANDLER)) 22: (SWANK-BACKEND::SIGIO-HANDLER #<#1=unused-arg> #<#1#> #<#1#>) 23: ("call_into_lisp+#x8C [#x80548DC] /usr/bin/cmucl") 24: ("funcall3+#x29 [#x80546E4] /usr/bin/cmucl") 25: ("interrupt_handle_now+#xEF [#x80503A3] /usr/bin/cmucl") 26: ("NIL+#x80507C4 [#x80507C4] /usr/bin/cmucl") 27: ("__kernel_sigreturn+#x0 [#xFFFFE420] ") 28: (SYSTEM:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL) 29: (LISP::DO-INPUT #<Stream for Standard Input>) 30: (LISP::INPUT-CHARACTER #<Stream for Standard Input> NIL (LISP::*EOF*)) 31: (LISP::SYNONYM-IN #<Synonym Stream to SYSTEM:*STDIN*> NIL (LISP::*EOF*)) 32: (LISP::TWO-WAY-IN #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (LISP::*EOF*)) 33: (LISP::SYNONYM-IN #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (LISP::*EOF*)) 34: (READ-CHAR #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (LISP::*EOF*) NIL) 35: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (:EOF) T) 36: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (:EOF) NIL) 37: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL 4 #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (:EOF) ...)[:EXTERNAL] 38: (LISP::READ-INTERNAL #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (:EOF) NIL) 39: (READ #<Synonym Stream to SWANK::*CURRENT-STANDARD-INPUT*> NIL (:EOF) NIL) 40: (LISP::%TOP-LEVEL) 41: ((LABELS LISP::RESTART-LISP SAVE-LISP))

6 7