mcclim-devel

mcclim-devel@common-lisp.net

820 discussions

[mcclim-devel] open-window-stream and :scroll-bars nil
by Samium Gromoff 04 Mar '07

04 Mar '07

In reasonably[1] fresh McCLIM/CLX i get a sheet with scrollbars out of that form: (open-window-stream :scroll-bars nil) regards, Samium Gromoff [1]: Reasonably as in "a cvs update did net reveal changes in essential areas"

2 2

[mcclim-devel] menu items, command arguments and read-frame-command
by Robert Goldman 04 Mar '07

04 Mar '07

I have a command in my McCLIM application that allows the user to set pathname defaults: (define-taems-mdp-app-command (com-change-taems-filename-defaults :name t) ((pathname 'directory-pathname :default (make-pathname :directory (pathname-directory (taems-pathname-defaults *application-frame*))) :prompt "New default TAEMS model directory?")) ...) You will see that it takes one argument. I have put it in the file menu of my application, and when I try to invoke it, McCLIM crashes with the following error: Error: KAUAI-GRAPHER::COM-CHANGE-TAEMS-FILENAME-DEFAULTS got 0 args, wanted 1 arg. [condition type: PROGRAM-ERROR] Restart actions (select using :continue): 0: Return to application command loop 1: Abort entirely from this (lisp) process. [Current process: TAEMS CLIM Grapher] [1] CL-USER(1): :bt Evaluation stack: GRAPH-MDP::COM-CHANGE-TAEMS-FILENAME-DEFAULTS <- (METHOD CLIM:EXECUTE-FRAME-COMMAND (CLIM:APPLICATION-FRAME T)) <- (METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) <- (:INTERNAL (:EFFECTIVE-METHOD 1 T ...) 0) <- (:INTERNAL (MOP:CLASS-DEFAULT-INITARGS GRAPH-MDP::TAEMS-MDP-APP :TOP-LEVEL-LAMBDA) 0) <- (METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) <- (METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND ...) <- (:INTERNAL (:EFFECTIVE-METHOD 1 T ...) 0) <- (:INTERNAL GRAPH-MDP:RUN-GRAPHER 0) My understanding from reading the manual is that when I invoke this command from the menu, it should prompt me to accept the arguments. add-menu-item-to-command-table [Function] Arguments: command-table string type value &key documentation (after :end) keystroke text-style (errorp t) button-type s Adds a command menu item to command-table's menu. The arguments are: command-table Can be either a command table or a symbol that names a command table. string The name of the command menu item. The character case and style of string are ignored. This is how the item will appear in the menu. type This is one of: :command, :menu, or :divider. (:function, called for in the CLIM spec, is not supported in this release.) When type is :command, value should be a command (a cons of a command name followed by a list of the command's arguments), or a command name. (When value is a command name, it behaves as though a command with no arguments was supplied.) In the case where all of the command's required arguments are supplied, clicking a command menu item invokes the command immediately. Otherwise, the user will be prompted for the remaining required arguments. [from the Allegro CLIM manual; the online spec has similar wording.] Can anyone say why McCLIM is crashing here? It seems like the read-frame-command :around method should have invoked command-line-remaining-arguments-for-partial-command. The code is here: (defmethod read-frame-command :around ((frame application-frame) &key (stream *standard-input*)) (with-input-context ('menu-item) (object) (call-next-method) (menu-item (let ((command (command-menu-item-value object))) (unless (listp command) (setq command (list command))) (if (and (typep stream 'interactor-pane) (member *unsupplied-argument-marker* command :test #'eq)) (command-line-read-remaining-arguments-for-partial-command (frame-command-table frame) stream command 0) command))))) Is it possible that the stream is not an interactor-pane when the menu item is selected? For other commands, I have kludged around this problem and made them take no arguments and just accept them "by hand," as it were... Any help would be much appreciated. thanks, R

2 3

[mcclim-devel] slider panes and :number-of-tick-marks
by Samium Gromoff 04 Mar '07

04 Mar '07

In cvsly fresh McCLIM/CLX i get a slider pane without tick marks out of that form: (make-pane 'slider :min-value 0 :value 0 :max-value 10 :number-of-tick-marks 3) Although quantization (:number-of-quanta) works all right. regards, Samium Gromoff

1 0

[mcclim-devel] Gtkairo and UTF-8
by David Lichteblau 03 Mar '07

03 Mar '07

Hi, thanks to recent cffi improvements, Gtkairo supports UTF-8 now. However, it will only build with the cffi-newtypes branch. http://common-lisp.net/~loliveira/darcs/cffi-newtypes/ http://article.gmane.org/gmane.lisp.cffi.devel/1034 d.

1 0

[mcclim-devel] window functions
by Bill Sauer 23 Feb '07

23 Feb '07

The CLIM user manual indicates that the following functions are available... (window-label window) (window-parent window) (window-children window) (window-inside-height window) (window-inside-width window) etc... These don't seem to exist in MCCLIM. The question is are there plans to implement them in the future or are there other functions which replaced them. Thanks for the help Bill Sauer

3 3

[mcclim-devel] getting started...
by Perry E. Metzger 22 Feb '07

22 Feb '07

Pardon the utterly naive newbie question, but I'm brand new to McClim, have never used ASDF (and barely understand what it is), etc. Say I want to get from zero (not even an installed Common Lisp) to running a McClim demo on my machine (running Ubuntu Linux) in short order. What do I need to do to get there? -- Perry E. Metzger perry(a)piermont.com

7 7

[mcclim-devel] clim-listener's show-directory and non-ascii filenames
by Samium Gromoff 18 Feb '07

18 Feb '07

Here's what i get with CVS mcclim while trying to Show Directory my ~: c-string encoding error (:external-format :ASCII): the character with code 208 cannot be encoded. [Condition of type SB-INT:C-STRING-ENCODING-ERROR] Restarts: 0: [ABORT] Return to application command loop 1: [ABORT] Return to SLIME's top level. 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {AFC6941}>) Backtrace: 0: (SB-INT:C-STRING-ENCODING-ERROR :ASCII 208) Locals: SB-DEBUG::ARG-0 = 2 SB-DEBUG::ARG-1 = :ASCII SB-DEBUG::ARG-2 = 208 1: (SB-IMPL::OUTPUT-TO-C-STRING/ASCII "/home/deepfire/14 - Ð¡Ð²Ð¸Ð´ÐµÑÐµÐ»Ð¸.mp3") 2: (SB-UNIX:UNIX-LSTAT "/home/deepfire/14 - Ð¡Ð²Ð¸Ð´ÐµÑÐµÐ»Ð¸.mp3") 3: (SB-UNIX:UNIX-FILE-KIND "/home/deepfire/14 - Ð¡Ð²Ð¸Ð´ÐµÑÐµÐ»Ð¸.mp3" T) 4: (SB-IMPL::%ENUMERATE-FILES "/home/deepfire/" #P"/home/deepfire/14 - Ð¡Ð²Ð¸Ð´ÐµÑÐµÐ»Ð¸.mp3" T #<CLOSURE (LAMBDA #) {AAB93E5}>) 5: (SB-INT:UNIX-NAMESTRING #P"/home/deepfire/14 - Ð¡Ð²Ð¸Ð´ÐµÑÐµÐ»Ð¸.mp3" T) 6: (PROBE-FILE "/home/deepfire/14 - Ð¡Ð²Ð¸Ð´ÐµÑÐµÐ»Ð¸.mp3") 7: ((LAMBDA (SB-IMPL::MATCH)) "/home/deepfire/14 - Ð¡Ð²Ð¸Ð´ÐµÑÐµÐ»Ð¸.mp3") 8: (SB-IMPL::%ENUMERATE-FILES "/home/deepfire/" #P"/home/deepfire/*.*" T #<CLOSURE (LAMBDA #) {BE12D35}>) 9: ((LABELS SB-IMPL::DO-DIRECTORY) #P"/home/deepfire/*.*") 10: (DIRECTORY #P"/home/deepfire/*.*") 11: ((FLET #:DESTINATION-CONTINUATION5413)) 12: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CLIM-LISTENER::COM-SHOW-DIRECTORY #P"/home/deepfire/") #<NULL-LEXENV>) 13: (CLIM-LISTENER::COM-EVAL (CLIM-LISTENER::COM-SHOW-DIRECTORY #P"/home/deepfire/")) regards, Samium Gromoff

2 2

[mcclim-devel] reinitializing panes
by Christophe Rhodes 17 Feb '07

17 Feb '07

Hi, A question came up on #lisp yesterday: essentially, it asked how to dynamically change the contents of a pane, in a similar way to changing layouts of a frame. My intuitive answer was to reinitialize the pane with a new :contents initarg, which was quickly followed by an intuitive suspicion that this wouldn't actually work in McCLIM currently. (The suspicion was strengthened by the example in the spec in 29.5.2, which doesn't define any bookkeeping for reinitialization, and confirmed when I actually tried it...) So, the first question: should what I suggested work in principle, or is there a reason why we shouldn't allow it (and what should be allowed instead?). The second question: if it should work, is there anything wrong with the attached implementation, apart from its cut-and-paste nature? Is there something in the protocols that I am not following? To try it out, run the vbox's toplevel, then issue the commands Double, followed by Draw. Comments? Cheers, Christophe

3 2

[mcclim-devel] request for help with accepting a complex object
by Robert Goldman 13 Feb '07

13 Feb '07

I have a complex object of two parameters that I would like to be able to accept. I.e., I would like to be able to prompt the user to enter the two parameters, and I will build an object out of them. I have been trying to do this in an interactor window using accepting-values and get the following error: GRAPH-MDP(13): (accept 'termination-function :stream pane :prompt "Termination function:") Error: No methods applicable for generic function #<STANDARD-GENERIC-FUNCTION INVOKE-UPDATING-OUTPUT> with args (#<STANDARD-INPUT-EDITING-STREAM @ #x9c015cc2> #<Closure (FLET CLIM-INTERNALS::INVOKE-ACCEPTING-VALUES #:UPDATING-OUTPUT-CONTINUATION105288) @ #x9c02ab02> CLIM-INTERNALS::ACCEPTING-VALUES-RECORD (NIL) #<Function EQL> CLIM-INTERNALS::NO-CACHE-VALUE #<Function FORCE-UPDATE-CACHE-TEST>) of classes (STANDARD-INPUT-EDITING-STREAM FUNCTION SYMBOL CONS FUNCTION SYMBOL FUNCTION) I was wondering if anyone could see their way to providing me a hint about what's wrong. Thanks, R

1 0

[mcclim-devel] Gtkairo/demodemo bug
by Samium Gromoff 12 Feb '07

12 Feb '07

When trying out the drawing part of demodemo, with mcclim using gtkairo, after drawing some lines i decided to draw an ellipse. This had the following effect: Attempt to invert the probably singular transformation #<CLIM-INTERNALS::STANDARD-HAIRY-TRANSFORMATION 0 0 0 -2 156 324>. [Condition of type CLIM:SINGULAR-TRANSFORMATION] Restarts: 0: [USE-VALUE] Supply a transformation to use instead of the inverse. 1: [ABORT] Return to application command loop 2: [ABORT] Return to application command loop 3: [ABORT] Return to SLIME's top level. 4: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {AFDE919}>) Backtrace: 0: ((SB-PCL::FAST-METHOD CLIM:INVERT-TRANSFORMATION (CLIM-INTERNALS::STANDARD-TRANSFORMATION)) #<unavailable argument> #<unavailable argument> #<CLIM-INTERNALS::STANDARD-HAIRY-TRANSFORMATION 0 0 0 -2 156 324>) 1: ((SB-PCL::FAST-METHOD CLIM:INVERT-TRANSFORMATION :AROUND (CLIM-INTERNALS::CACHED-INVERSE-TRANSFORMATION-MIXIN)) (#(0) . #()) #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) #<CLIM-INTERNALS::STANDARD-HAIRY-TRANSFORMATION 0 0 0 -2 156 324>) 2: (CLIM-GTKAIRO::SYNC-TRANSFORMATION #<CLIM-GTKAIRO::CAIRO-MEDIUM {DE8A9B9}> #<CLIM-INTERNALS::STANDARD-HAIRY-TRANSFORMATION 0 0 0 -2 156 324>) 3: ((LAMBDA ())) 4: ((LAMBDA ())) 5: (CLIM-GTKAIRO::INVOKE-WITH-GTK #<CLOSURE (LAMBDA #) {DD6018D}>) 6: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<CLIM-GTKAIRO::CAIRO-MEDIUM {DE8A9B9}> #<CLIM-DEMO::CANVAS-PANE CLIM-DEMO::CANVAS {A8BB111}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {DD59E2D}> :INK #<CLIM-INTERNALS::NAMED-COLOR "blue"> ..) 7: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS (CLIM:OUTPUT-RECORDING-STREAM T T T)) #<unavailable argument> #<unavailable argument> #<CLIM-DEMO::CANVAS-PANE CLIM-DEMO::CANVAS {A8BB111}> #<CLOSURE (FLET #:CONTINUATION160) {DD59B5D}> NIL T) 8: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2. SB-PCL::.ARG3.)) #<unavailable argument> #<unavailable argument> #<CLIM-INTERNALS::FRAME-TRACKING-POINTER-STATE {DD56F69}> #<CLIM:POINTER-MOTION-EVENT {DD51929}> 156 322) 9: ((FLET CLIM-INTERNALS::DO-TRACKING)) 10: ((LABELS #:G103) #<CLIM-GTKAIRO::CAIRO-MEDIUM {DE8A9B9}>) 11: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<CLIM-INTERNALS::FRAME-TRACKING-POINTER-STATE {DD56F69}> #<CLIM-DEMO::CLIM-FIG {A8A9AC1}> #<CLIM-DEMO::CANVAS-PANE CLIM-DEMO::CANVAS {A8BB111}> -308893239 8) 12: (CLIM-DEMO::HANDLE-DRAW-OBJECT #<CLIM-DEMO::CANVAS-PANE CLIM-DEMO::CANVAS {A8BB111}> 156 324) 13: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unused argument> #<unused argument> #<CLIM-DEMO::CLIM-FIG {A8A9AC1}> :COMMAND-PARSER CLIM:COMMAND-LINE-COMMAND-PARSER :COMMAND-UNPARSER CLIM:COMMAND-LINE-COMMAND-UNPARSER :PARTIAL-COMMAND-PARSER ..) 14: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<CLIM-DEMO::CLIM-FIG {A8A9AC1}>) 15: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unused argument> #<unused argument> #<CLIM-DEMO::CLIM-FIG {A8A9AC1}>) 16: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (#1="#<...>" . #1#)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-DEMO::CLIM-FIG {A8A9AC1}>) 17: ((LAMBDA (&REST IGNORE))) 18: (CLIM-INTERNALS::INVOKE-CALLBACK #<CLIM-GTKAIRO::GTK-BUTTON "(Unnamed Pane)" {DDAED39}> #<CLOSURE (LAMBDA #) {DDD0365}>) 19: (CLIM-EXTENSIONS:SIMPLE-EVENT-LOOP #<CLIM-DEMO::DEMODEMO {DC5B199}>) 20: (CLIM-EXTENSIONS:SIMPLE-EVENT-LOOP #<CLIM-DEMO::DEMODEMO {DC5B199}>) 21: ((SB-PCL::FAST-METHOD CLIM:READ-FRAME-COMMAND :AROUND (#1="#<...>" . #1#)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-DEMO::DEMODEMO {DC5B199}> :STREAM ..) 22: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unused argument> #<unused argument> #<CLIM-DEMO::DEMODEMO {DC5B199}> :COMMAND-PARSER CLIM:COMMAND-LINE-COMMAND-PARSER :COMMAND-UNPARSER CLIM:COMMAND-LINE-COMMAND-UNPARSER :PARTIAL-COMMAND-PARSER ..) 23: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<CLIM-DEMO::DEMODEMO {DC5B199}>) 24: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unused argument> #<unused argument> #<CLIM-DEMO::DEMODEMO {DC5B199}>) 25: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (#1="#<...>" . #1#)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-DEMO::DEMODEMO {DC5B199}>) 26: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CLIM-DEMO::RUN-TEST 'CLIM-DEMO::DEMODEMO) #<NULL-LEXENV>) 27: (SWANK::EVAL-REGION " (clim-demo::run-test 'clim-demo::demodemo) " T) 28: ((LAMBDA ())) 29: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {DBBCE35}>) 30: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {DBBCE35}>) 31: (SWANK:LISTENER-EVAL " (clim-demo::run-test 'clim-demo::demodemo) ") 32: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL " (clim-demo::run-test 'clim-demo::demodemo) ") #<NULL-LEXENV>) SBCL is 1.0, McCLIM is very recent CVS. regards, Samium Gromoff

2 1

← Newer
1
...
30
31
32
33
34
35
36
...
82
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

mcclim-devel