December 2016 - ltk-user - mailman3.common-lisp.net

Problem moving items in a canvas
by Luis López 20 Dec '16

20 Dec '16

Hi! I am an astronomy teacher, and I'm preparing a program to analyze stellar spectra with my pupils. It's going on well (I think!), but I have a strange problem that I can't solve by myself. The principal code is in "espectro-visual.lisp" ("fits.lisp" is a kind of little 'library' to open fits image files, an astronomical standard; you can visualize them with programs like "SaoImage DS9"). You run the program with '(espectro-visual)'. To reproduce the problem I think I'd better guide you step by step: 1) You click in 'Create profile..." and choose 'solar-spectrum.fit' (you can download this file (~1MB) from http://www.astro.cnba.uba.ar/solar-spectrum.fit) 2) Then you move over the profile, and -pressing the mouse right-button- move a dozen or so pixels left or right and release the button: you'll see a line and a number under the 'barycenter' of the zone (astronomically, you should choose an spectral line (one of those 'valleys' here and there), but that doesn't matter now). 3) If you press the mouse left-button over the number created, you can move it around the canvas (I want to be able to do it, to avoid the 'cluttering' of labels). Now, the problem: As soon as I leave the canvas with the mouse, if I re-enter the canvas I'm no longer able to move the labels again! I can do it with new labels, but if I leave the canvas the problem applies to them too. Thank you very much, and please excuse me if I didn't explain myself very well. Luis López

1 0

Re: Filetypes in get-open-file
by Martin Buchmann 14 Dec '16

14 Dec '16

Hi Jason, :filetypes nil did the trick! I am running OS X 10.10.5 and 'which wish‘ leads /usr/bin/wish so i guess it is the version coming with the system. I havn’t installed anything using homebrew. You are of course totally right regarding *. It failed from time to time but than worked perfect again. I guess that’s a pretty noob error I ran into here. Thanks for your help! Martin > Am 14.12.2016 um 05:24 schrieb Jason Miller <jason(a)milr.com>: > > Quoting Martin Buchmann (2016-12-13 11:54:06) >> Hi, >> >> I am trying a create a little gui using ltk which has an open file button using get-open-file. It works fine besides the fact that I cannot select any file. I played around with the filetypes keyword but could not get it running and could not find anything in the net so far which helped me. I actually do not care about the filetype at all. >> >> I have installed ltk via quicklisp on OS X using sbcl. >> > Which version of OS X? Are you using the system wish, or a version > installed from macports/homebrew? >> (defun test () >> (ltk:with-ltk () >> (let* ((datei (make-instance 'ltk:button >> :master nil >> :text "Datei" >> :command (lambda () >> (print (ltk:get-open-file :filetypes '(("All Files" "*")) >> :title "Open")))))) >> >> (ltk:wm-title ltk:*tk* "Test") >> (ltk:pack datei)))) > This worked fine for me. >> >> I get a nice button, the open file dialog opens but all file in the current directory are gray and not selectable. What am I missing? >> >> If I choose >> >> :filetypes * >> >> it works but that’s very different from what I have expected. > That probably only works because the last item from the REPL is nil; > :filetypes nil ought to work. (The special variable CL:* is equal to the > last value returned at the REPL). >> >> Thanks for any advice >> Martin

1 0

Filetypes in get-open-file
by Martin Buchmann 13 Dec '16

13 Dec '16

Hi, I am trying a create a little gui using ltk which has an open file button using get-open-file. It works fine besides the fact that I cannot select any file. I played around with the filetypes keyword but could not get it running and could not find anything in the net so far which helped me. I actually do not care about the filetype at all. I have installed ltk via quicklisp on OS X using sbcl. (defun test () (ltk:with-ltk () (let* ((datei (make-instance 'ltk:button :master nil :text "Datei" :command (lambda () (print (ltk:get-open-file :filetypes '(("All Files" "*")) :title "Open")))))) (ltk:wm-title ltk:*tk* "Test") (ltk:pack datei)))) I get a nice button, the open file dialog opens but all file in the current directory are gray and not selectable. What am I missing? If I choose :filetypes * it works but that’s very different from what I have expected. Thanks for any advice Martin

1 0