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

Re: [mcclim-devel] Push or Pull data in application
by matthieu.villeneuve＠free.fr 13 Jul '10

13 Jul '10

Hello, ----- "Oliver Uvman" <oliver.uvman(a)gmail.com> a écrit : > The problem I know I will eventually run into is updating the Clim > interface when changes to data have been made through manual > interaction with the backend. The solutions are either push or pull > based, I guess. Push based is not really prefered, because the backend > would have to keep track of the gui so it can send messages to it. [Disclaimer: I don't remember much about GUIs and CLIM...] Couldn't you define, as part of your GUI code, and for every "relevant" backend method that updates the application data, an :after method that updates or refreshes the interface contents? Cheers, -- Matthieu Villeneuve

2 1

[mcclim-devel] beirc bug report
by Cyrus Harmon 16 Jun '10

16 Jun '10

I'm not sure what the best forum for reporting bugs in beirc and or mcclim these days (any interest in launchpad projects for these and similar projects?), but I came across this bug in beirc today, and I thought I'd post it here to see if anyone has any ideas. This is with SBCL 1.0.39.15 on linux/x86-64/sb-threads. any suggestions would be appreciated. thanks, Cyrus unhandled TYPE-ERROR in thread #<SB-THREAD:THREAD "initial thread" RUNNING {1002AC2D11}>: The value 953 is not of type (UNSIGNED-BYTE 8). 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {1003E9BD59}>)[:EXTERNAL] 1: (SB-DEBUG:BACKTRACE 128 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {1000159B51}>) 2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<TYPE-ERROR {1003E99321}> #<unavailable argument>) 3: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<TYPE-ERROR {1003E99321}>) 4: (INVOKE-DEBUGGER #<TYPE-ERROR {1003E99321}>) 5: (ERROR TYPE-ERROR)[:EXTERNAL] 6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #X7FFFF4EC1980) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF4EC1500 :TYPE (* (SB-ALIEN:STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (405 21)) 7: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #X7FFFF4EC1500) #<unavailable argument>) 8: ("foreign function: #x422C00") 9: ("foreign function: #x40D15C") 10: ("foreign function: #x4133A5") 11: ("foreign function: #x4140BA") 12: (SB-IMPL::OPTIMIZED-DATA-VECTOR-SET #<unavailable argument> #<unavailable argument> #<unavailable argument>) 13: (CLIM-CLX::TRANSLATE "ι" 0 1 #<XLIB:FONT -adobe-helvetica-medium-r-normal--14-100-100-100-p-76-iso10646-1 :0 50331673> #(56 0 4 0 85 0 0 3 4 0 0 0 190 190 190 0 59 0 5 0 85 0 0 3 0 0 0 0 0 0 45 45 5 3 191 1 74 0 5 0 83 0 0 3 85 0 0 3 33 4 251 46 1 0 91 0 74 0 6 0 83 ... 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) 138) 14: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)) 15: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]324)) 16: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {7FFFF4EC1CA9}> #S(SB-THREAD:MUTEX :NAME "CLX Buffer Lock" :%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {1002AC2D11}> :STATE 1)) 17: (XLIB::DRAW-GLYPHS8 #<XLIB:WINDOW :0 3000053> #<XLIB:GCONTEXT :0 50331733> 93 12027 "ι" 0 1 #<FUNCTION CLIM-CLX::TRANSLATE> #<unavailable argument>) 18: ((SB-PCL::FAST-METHOD CLIM:MEDIUM-DRAW-TEXT* (CLIM-CLX::CLX-MEDIUM T T T T T T T T T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> "ι" 93 12027 0 1 :LEFT :BASELINE #<unavailable argument> #<unavailable argument> #<unavailable argument>) 19: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {7FFFF4EC20D9}>)[:EXTERNAL] 20: (CLIM:DRAW-TEXT* #<CLIM-CLX::CLX-MEDIUM {10061DE701}> "ι" 93 12027)[:EXTERNAL] 21: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::STREAM-WRITE-OUTPUT :AROUND (CLIM:STANDARD-OUTPUT-RECORDING-STREAM T T)) #(45 NIL) #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3 . T)) #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> "ι" NIL)[:EXTERNAL] 22: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {7FFFF4EC2499}>)[:EXTERNAL] 23: ((LABELS #:G294) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 24: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:SHEET T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<CLOSURE (FLET #:GCONTINUATION6319) {7FFFF4EC2589}>)[:EXTERNAL] 25: ((LABELS #:G6300) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 26: ((SB-PCL::FAST-METHOD CLIM:REPLAY-OUTPUT-RECORD (CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD T)) #(8 NIL 10 NIL 14 NIL 7 NIL 17 NIL) #<unused argument> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<unused argument> #<unused argument> #<unused argument>) 27: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {7FFFF4EC2869}>)[:EXTERNAL] 28: ((LABELS #:G294) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 29: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:SHEET T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<CLOSURE (FLET #:GCONTINUATION1711) {7FFFF4EC2939}>)[:EXTERNAL] 30: ((SB-PCL::FAST-METHOD CLIM:REPLAY-OUTPUT-RECORD :AROUND (CLIM-INTERNALS::GS-INK-MIXIN T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV #(8 NIL 10 NIL 14 NIL 7 NIL 17 NIL) :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>)[:EXTERNAL] 31: ((LABELS #:G441) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 32: (CLIM:REPLAY #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<CLIM:STANDARD-RECTANGLE X 0:773 Y 11565:12012 {1003E965A1}>) 33: ((SB-PCL::FAST-METHOD CLIM:INCREMENTAL-REDISPLAY (CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN T T T T T T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<unavailable argument> NIL NIL ((#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 1057,12014 ("[" "14:" "11]") {1003B5D651}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 1057,12014 ("[" "14:" "11]") {1003B5D651}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 81,12014 (">") {10044542E1}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 81,12014 (">") {10044542E1}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 44,12014 ("cbeok") {1004473F11}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 44,12014 ("cbeok") {1004473F11}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 36,12014 ("<") {10044542A1}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 36,12014 ("<") {10044542A1}>)) NIL NIL) 34: ((SB-PCL::FAST-METHOD CLIM:REDISPLAY-OUTPUT-RECORD (CLIM:UPDATING-OUTPUT-RECORD CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN)) #<unused argument> #<unused argument> #<CLIM:STANDARD-UPDATING-OUTPUT-RECORD X 0:1100 Y 0:12030 CLIM-INTERNALS::TOP-LEVEL {10061DE731}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> T) 35: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT. SB-PCL::.DFUN-MORE-COUNT.)) #<unused argument> #<unused argument> #<BEIRC:BEIRC {100304D5C1}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> 17592162813397 2) 36: ((SB-PCL::FAST-METHOD CLIM:REDISPLAY-FRAME-PANE :AROUND (CLIM:APPLICATION-FRAME T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE # {1004351429}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) #<BEIRC:BEIRC {100304D5C1}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>)[:EXTERNAL] 37: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>) 38: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-EXTENSIONS:VIEWPORT-PANE "(Unnamed Pane)" {100398AB21}>) 39: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:SCROLLER-PANE "(Unnamed Pane)" {1003971121}>) 40: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-INTERNALS::BORDER-PANE "(Unnamed Pane)" {100398AA51}>) 41: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-TAB-LAYOUT:TAB-LAYOUT-PANE BEIRC::QUERY {100398A571}>) 42: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {1003289351}>) 43: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {1003233771}>) 44: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {1007A39561}>) 45: ((SB-PCL::FAST-METHOD CLIM:HANDLE-EVENT (BEIRC:BEIRC BEIRC::FOO-EVENT)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}> #<BEIRC::FOO-EVENT {1002BEA581}>) 46: (CLIM-INTERNALS::HANDLE-NON-STREAM-EVENT #<CLIM-INTERNALS::PORT-EVENT-QUEUE {100319B661}>) 47: ((SB-PCL::FAST-METHOD CLIM:STREAM-INPUT-WAIT (CLIM:STANDARD-EXTENDED-INPUT-STREAM)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL] 48: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE (CLIM:STANDARD-EXTENDED-INPUT-STREAM)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL] 49: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT. SB-PCL::.DFUN-MORE-COUNT.)) #<unused argument> #<unused argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> 17592162813599 10) 50: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE :AROUND (CLIM-INTERNALS::DEAD-KEY-MERGING-MIXIN)) #(1 NIL 2 NIL 0 NIL) #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE # {1009B59349}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL] 51: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE (DREI:DREI-INPUT-EDITING-MIXIN)) #<unavailable argument> #<unavailable argument> #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}>)[:EXTERNAL] 52: ((LAMBDA (STREAM)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}>) 53: (CLIM-INTERNALS::INPUT-EDITING-RESCAN-LOOP #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}> #<CLOSURE (LAMBDA #) {1003CDF229}>) 54: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (T T T T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) :ARG-INFO (5)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}> #<CLOSURE (LAMBDA #) {1003CE6BB9}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 55: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (CLIM:CLIM-STREAM-PANE T T T T)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> #<CLOSURE (LAMBDA #) {1003CDF229}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 56: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (T T T T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) :ARG-INFO (5)) #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> #<CLOSURE (LAMBDA #) {1003CDF229}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 57: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (CLIM:EXTENDED-OUTPUT-STREAM T T T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) :ARG-INFO (5)) :ARG-INFO (5)) #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> #<CLOSURE (LAMBDA #) {1003CDF229}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 58: ((SB-PCL::FAST-METHOD CLIM:READ-FRAME-COMMAND (BEIRC:BEIRC)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 59: ((SB-PCL::FAST-METHOD CLIM:READ-FRAME-COMMAND :AROUND (CLIM:APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) :ARG-INFO (1 . T)) #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 60: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 61: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 62: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 63: ((LAMBDA ())) 64: ((LAMBDA ())) 65: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WITH-APPLICATION NIL (BEIRC:BEIRC :NEW-PROCESS NIL)) #<NULL-LEXENV>) 66: (SB-FASL::LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /home/sly/src/clbuild/clbuild.lisp" {1002E1C681}> NIL NIL) 67: ((FLET SB-FASL::LOAD-STREAM) #<SB-SYS:FD-STREAM for "file /home/sly/src/clbuild/clbuild.lisp" {1002E1C681}> NIL) 68: (LOAD "/home/sly/src/clbuild/clbuild.lisp")[:EXTERNAL] 69: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD "/home/sly/src/clbuild/clbuild.lisp") #<NULL-LEXENV>) 70: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(require :asdf)") (:EVAL . "(setq asdf:*central-registry* '(#p\"/home/sly/src/clbuild/systems/\"))") (:EVAL . "nil") (:EVAL . "(load \"/home/sly/src/clbuild/clbuild.lisp\")"))) 71: (SB-IMPL::TOPLEVEL-INIT) 72: ((LABELS SB-IMPL::RESTART-LISP))

2 1

[mcclim-devel] clim-gtkairo problems
by Cyrus Harmon 16 Jun '10

16 Jun '10

I've been having trouble trying to get the clim-gtkairo backend working of late. The main application I'm working on throws an error, only with the gtkairo backend, but I don't have a nice simple test case for it yet. In the course of trying to generate such testcase, I figured I'd try the demodemo and see how it works with clim-gtkairo. Unfortunately, it seems to have some problems. The most obvious problem is that the initial demodemo window is completely blank until one drags the mouse over all of the buttons. With the clx backend, everything is fine. Anyone else seeing this? thanks, Cyrus

1 1

[mcclim-devel] Is McCLIM being maintained?
by Peter Busser 24 Jan '10

24 Jan '10

Hi, Is McCLIM being maintained? I have a few suggestions for improvement. But if no one is able to add it, then I would rather not waste my time writing it down. Groetjes, Peter.

3 2

[mcclim-devel] [PATCH] Make CLX loadable for CLISP
by Evgeny M. Zubok 10 Jan '10

10 Jan '10

Recently, someone in this mailing-list pointed to the problem that CLX was not loaded during McCLIM compilation process in CLISP. Indeed, :clim-clx loading for was disabled for CLISP. I fix it. CLISP has it's own two implementations of CLX -- new-clx and mit-clx. Their presence can be enabled or disabled with CLISP configure script's options --with-module=clx/new-clx or --with-module=clx/mit-clx. First, we verify availability of :xlib package. If :xlib doesn't exist, then we load CLX from ASDF. Otherwise, some heuristic applied to detect what implementation provided with CLISP: if the symbol `set-selection-owner' is not declared as exported, we have implementation (new-clx, I suppose) that currently cannot be used as McCLIM backend. In this case, we unlock :xlib and try to replace it with CLX from ASDF. I tried mit-clx (predecessor of telent-clx) as McCLIM's backend two years ago, and it worked. But, AFAIR, I read (I don't remember where) that something (and I don't remember what) would not work with this implementation and also that the implementation hasn't being updated for a long time. I think the right decision is to leave it as possible backend for a while and don't replace it with telent CLX from ASDF.

1 0

[mcclim-devel] [PATCH] Reimplementaion of drag-output-record, dragging-output
by Evgeny M. Zubok 08 Jan '10

08 Jan '10

Hello, I've reimplemented `drag-output-record' and `dragging-output' to be more closer to specification. Unfortunately, the behaviour of these functions is underspecified and quite unclear in many places. I've attempted to implement all keys and window repaint event (the latter was marked as unresolved issue). I've used CLIM 2.0 (Symbolics/Xerox/Apple etc.), LW's CLIM 2.0 and Franz' CLIM 2.2.2 specifications as references. Also I played with CLIM implementation from Allegro CL with lesstif backend instead Motif. The drag-output-record is something buggy there, but acceptable to analyze some features. This patch does the following:: * Implements :repaint (as I understand it's meaning). * Supports :multiple-window. However, my understanding the meaning of this key and, hence, implementation could be incorrect. * :erase key works as described in specification: by default erase-output-record is used. * Supports window-repaint-event. In effect, if user's :feedback is provided and window-repaint-event has been queued (for instance, when user scrolled down/up stream while dragging), the feedback first is erased, then handle-repaint is called and, finally, the feedback is drawn again at the same place. * Reimplements dragging-output macro without introducing unspecified key :erase-final. * Slightly corrected draggable-graph example from clim-examples. I hope that I will write more featured example... later. Note, there is bug somewhere in stream-pointer-position. Something wrong with sheet-native-transformation for the stream. The effect of this bug is that the record capture works as expected only on first page inside scroller. On other pages the record is selected with wrong initial position.

1 0

[mcclim-devel] How stream-pointer-position should work?
by Evgeny M. Zubok 27 Dec '09

27 Dec '09

Hello, If I call stream-pointer-position on the stream without scroller, it returns an expected position. However, when the stream has a scroller, the function returns the position inside viewport regardless position of scrollbars, i. e. from upper left corner of viewport, not from the stream's origin. I have played with map-sheet-position-to-child and map-sheet-position-to-parent but faced with the different behaviour of these functions, which depends on how scrolling declared inside define-application-frame. To be more presise, it depends on internal structure of application-pane with scroller: in McCLIM it has also border-pane as a parent (why?). I think, the programmer shouldn't keep in mind such implementation details. So, what is the right behavior of stream-pointer-position if the stream has a scroller? Shouldn't it return the real coordinates on stream as pointer events do? Specification says: stream-pointer-position [Generic Function] Arguments: stream &key pointer Summary: Returns the current position of the pointing device pointer for the extended input stream stream as two values, the x and y positions in the stream's drawing surface coordinate system. If pointer is not supplied, it defaults to the stream-primary-pointer of the stream.

1 1

[mcclim-devel] [Patch] not unquoted variable in with-output-as-presentation
by Stas Boukarev 16 Dec '09

16 Dec '09

Patch attached. -- With Best Regards, Stas.

1 0

[mcclim-devel] drawing of RGB-IMAGE-DESIGN
by Marcus Eskilsson 14 Dec '09

14 Dec '09

Hello thar, list! I have started a lil' work here on some McCLIM based software and I have run into a bit of an issue. I'm trying to have a pane with a display-function that displays me an image I load from a PNM, and this fails for me. Basically I have (excuse the indentation. thunderbird mail client etc.) (defmethod pane-display (frame stream) (draw-design (find-pane-named frame 'foo-pane) (climi::make-rgb-image-design (image::read-image-file "foo.pnm")))) result is this There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION CLIM-INTERNALS::IMAGE-WIDTH (1)> when called with arguments (#2A((12693671 12303027 12697025 12960710 13093066 13618384 14210776 14343390 14606308 14738150 ...) (11902865 11706271 12433848 12633281 13683403 13947084 13947345 14080471 14670557 14606822 ...) (11118502 11445149 11973554 12759733 13222341 13487563 13683408 13882839 14606045 14738146 ...) (8945292 11970725 12169393 12365746 13091006 13422029 13882580 14276825 14606041 14540249 ...) (10723750 11710384 11973812 12564921 13355469 13881037 14472140 14342101 14538968 14605792 ...) (11908536 12499904 13486538 13486792 13552588 13947345 14473680 14736857 14473433 14538717 ...) (12828606 13090233 13421257 13420744 13486791 13749708 14209746 14342105 14671069 14868192 ...) (13024958 13420748 13551822 13422023 13749963 13618378 14144469 14734804 14473432 14998751 ...) (12962251 13422543 13618382 13552330 13422538 13421261 13949651 14473688 14538969 14473432 ...) (13488855 12899034 13030102 13293012 13095121 13292756 13488336 13357008 13684694 14079703 ...) ...)). [Condition of type SIMPLE-ERROR] Backtrace: 0: ((SB-PCL::FAST-METHOD NO-APPLICABLE-METHOD (T)) #<unavailable argument> #<unavailable argument> #<STANDARD-GENERIC-FUNCTION CLIM-INTERNALS::IMAGE-WIDTH (1)>)[:EXTERNAL] 1: ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (CLIM-INTERNALS::DRAW-IMAGE-DESIGN-OUTPUT-RECORD)) ..)[:EXTERNAL] 2: ((LAMBDA (SB-PCL::|.P0.| SB-PCL::|.P1.| SB-PCL::|.P2.| SB-PCL::|.P3.|)) #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument>) 3: ((LABELS #:G5221) #<CLIM-CLX::CLX-MEDIUM {1003B139A1}>) 4: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::MEDIUM-DRAW-IMAGE-DESIGN* :AROUND (OUTPUT-RECORDING-STREAM T T T)) ..) 5: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (MEDIUM T T)) ..)[:EXTERNAL] 6: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS (SHEET T)) ..)[:EXTERNAL] 7: ((SB-PCL::FAST-METHOD DRAW-DESIGN (T CLIM-INTERNALS::RGB-IMAGE-DESIGN)) ..)[:EXTERNAL] I'm unaware if this is actually a bug or I just should stay the hell away from these functions and make the pnm loader behave with MAKE-PATTERN-FROM-BITMAP-FILE.

2 1

[mcclim-devel] A few questions about dragging functions
by Evgeny M. Zubok 07 Dec '09

07 Dec '09

I'm reimplementing the drag-output-record, dragging-output to be more closer to CLIM specification. This work is almost done. However, a behaviour of drag-output-record is underspecified in some places. My questions are about `feedback' argument of drag-output-record. The following is what the CLIM specification says about feedback function and that's all what we have: ------------------------------------------------------------------------ `feedback' allows the programmer to identify a "feedback" function of seven arguments: the output record, the stream, the initial x and y position of the pointer, the current x and y position of the pointer, and a drawing argument (either :erase or :draw). It has dynamic extent. The default is nil, meaning that the feedback behavior will be for the output record to track the pointer. (The feedback argument is used when the programmer desires more complex feedback behavior, such as drawing a "rubber band" line as the user moves the mouse.) Note that if feedback is supplied, erase is ignored. ------------------------------------------------------------------------ My current solution. Notes: (i) the numbers with star means that the action is performed by user in the `feedback' function; (ii) (INITIAL-X INITIAL-Y) is the pointer coordinate when the user initially clicks the button on the desired record; (iii) (X-OLD Y-OLD) is remembered previous pointer coordinate. The user calls drag-output-record. In drag-output-record: 1* Call (feedback RECORD STREAM INITIAL-X INITIAL-Y INITIAL-X INITIAL-Y :DRAW) 2. Set X-OLD := INITIAL-X; Y-OLD := INITIAL-Y 3. User moves the pointer. Now X Y is a new pointer position. 4* Call (feedback RECORD STREAM INITIAL-X INITIAL-Y X-OLD Y-OLD :ERASE). Erase previous feedback effect and output record. 5. Change output-record-position of the RECORD to a new location. 6* Call (feedback RECORD STREAM INITIAL-X INITIAL-Y X Y :DRAW) where the user draws the record at it's new position and draws feedback effect. Note, that RECORD already has the new coordinates in output-record-position. 7. X-OLD := X; Y-OLD := Y 8. Repeat from 4 ... 9. User clicks a pointer button 10* Call (feedback RECORD STREAM INITIAL-X INITIAL-Y X Y :ERASE). Erase last feedback effect and the output record. 11. Replay the output record without feedback effect at it's final position. 12. Exit --- Qusetion about my solution. =========================== Q: Where the dragged output record should be erased and redrawn (i. e. replayed) when the `feedback' is supplied: in the `feedback' function by user or inside the drag-output-record function? My solution: I've delegated the erasing and redrawing the dragged record to the user. The situation with erasing is more clear. CLIM specification states that if `feedback' argument is supplied, the `erase' argument is ignored. As far as user already had the possibility to provide the `erase' argument with custom function (`erase-output-record' by default), then this possibility only migrates to the :ERASE part of `feedback' function. A situation with `feedback :DRAW' is unclear. The redrawing of dragged output record can be accomplished either (i) in the drag-output-record before `feedback :DRAW' or (ii) by user in `feedback :DRAW', manually replaying the record and the desired feedback effect. In other words, there are two algorithms, which are almost equivalent in the sense of visible effect, but not equivalent with respect to the user. (I) My current solution. Erasing/redrawing of output record and feedback effect is accompishing by user. 1. Call `feedback :ERASE' where user erases the dragged output record and additional feedback effect from their previous position (with possible replaying). 2. Change output-record-position to a new position inside drag-output-record. 3. Call 'feedback :DRAW' where user draws the dragged output record and then the additional feedback effect at the new position. (II) Alternative solution. The output record is redrawing in the drag-output-record. 1. Call `feedback :ERASE' where user erases the dragged output record and additional feedback effect from previous position (with possible replaying). 2. Change output-record-position to a new position inside drag-output-record 3. Draw the dragged output record at it's new position inside the drag-output-record by replaying required region that contains the output record. 4. Call 'feedback :DRAW' where user draws only the additional feedback effect. What to prefer? The former provides more flexibility to control output record appearence as it's dragged. For example, I could implement dragging that is snapped to a grid by erasing/redrawing output record and additional feedback effect only when the pointer occures in the next grid cell area. This is not possible with (II), bacause we cannot control the redrawing of output record. How it was implemented in original CLIM? Does anyone have any legacy code or examples that use the drag-output-record with `feedback'? --- Q: When the `feedback' is called with :DRAW, does the RECORD already have a new position on STREAM, i. e. the coordinates where it will be drawn? My solution: See item 5. I'm changing output-record-position in the drag-output-record just before calling `feedback :DRAW'. Only the original CLIM implementation could clear how this was implemented. --- Q: Am I right when passing the X-OLD Y-OLD to the `feedback :ERASE'? My solution: If we are using the current pointer coordinates to draw feedback effect in `feedback :DRAW' (for example, to draw line with flipping ink from 0,0 to current pointer location), then to erase this feedback effect in subsequent :ERASE the previous pointer coordinates are required, not the current. However, CLIM spec says, that only current pointer coordinates are passed to feedback :ERASE/:DRAW. Alternative solution: user somewhere remembers coordinates that are passed to `feedback :DRAW' and use them when it's required to erase previous feedback.

1 0