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

[ltk-user] selected text
by Phil Armitage 15 Nov '06

15 Nov '06

Hi, I'm starting to use LTK but there's one feature I need and have been unable to find. Essentially I want to be able to retrieve the selected text in a text widget. I searched through the docs and source but couldn't find anything (I apologize if I've missed it). I'm very new to Lisp (and Tk!) but I managed to write this: (defmethod selected ((text text)) (format-wish "senddatastring [~a get sel.first sel.last]" (widget-path text)) (read-data)) ...which works but causes problems if no text is selected. Is there an obvious way around this (or, even better, an existing function to do the job that I've just missed)? Many thanks in advance for any help you can offer (and thanks to Peter for writing the library!). Phil

2 2

[ltk-user] Beginners question
by Nicolas Neuss 27 Oct '06

27 Oct '06

Hello LTK users, As a complete GUI programming newbie I wanted to try LTK, but immediately have several questions: 1. Are there any example programs using LTK? 2. I don't know anything about Tk, unfortunately. Is there some tutorial to GUI programming with Tk? 3. My current goal is to have a small window which displays a new random number whenever I press a button. I thought about using message/textvariable in the following code snippet: (defun zufallszahl () (with-ltk () (let* ((x "0") (f (make-instance 'frame)) (text (make-instance 'message :text x :width 100)) (button (make-instance 'button :master f :text "Next" :command (lambda () (setq x (format nil "~D" (random 10))))))) (pack f) (pack text :side :top) (pack button :side :bottom) (configure f :borderwidth 3) (configure f :relief :sunken) ))) Unfortunately, (make-instance 'message :textvariable x :width 100) does not work. Is this a bug? 4. How can I put the message above the button? I tried several combinations of :side XXX, none did achieve it. 5. How can I change the text of the message into something larger? Thank you very much for any hints, Nicolas

2 1

[ltk-user] Re: Re: how to save a canvas to an image?
by Peter Herth 17 Oct '06

17 Oct '06

It would be interesting to see an example of the artifacts. Generally, when you try to convert postscript to pixel data, you have to specify the resolution to use, the higher the resolution, the better the output image. I suspect that by default 72 dpi is used which is not very satisfactory. Try rather to use 300 dpi. Peter

1 0

[ltk-user] Option Menus (contrib)
by Madhu 15 Oct '06

15 Oct '06

Helu, I have often found myself in need of an option menu or combo box in LTK. However at present LTK supports only one type of (cascade) menu. Although ltk.lisp (0.90 at the time of writing) defines unused *class-args* via defargs for menubutton and menu, the classes menubutton and menu do not support the various interactions that Tk allows between its (Tk's) "menubuttons" and "menus". It is not clear what the thinking of the author is on supporting other interactions in the future. Code adding such functionality depends on LTK's internals and is therefore liable to break. I am attaching a file which adds support for the tk_optionsMenu command via a new function TK-OPTION-MENU and a new LTK widget called OPTIONSMENU. This turns out to fit (nicely) with the LTK model of menus and I would request considering it for inclusion in an appropriate form into LTK. Especially as it depends on LTK's clos protocols. Most of the file is comments and example code, I took the liberty of copying the licensing from ltk-mw and hope it is suitable. Feedback welcome. -- Best Regards Madhu

1 0

[ltk-user] Re: how to save a canvas to an image?
by Peter Herth 13 Oct '06

13 Oct '06

Try the postscript function, which saves the content of the canvas into a file. That has the advantage you get a fully vectorized form of your diagram. Peter

1 0

[ltk-user] UNICODE
by barthes jean-paul 27 Sep '06

27 Sep '06

Hello. We are currently developing multilingual ontologies for a European project called Terregov. The multilingual aspect of the project require a UTF-8 encoding. The CLISP environment can be set easily, however, when exchanging Polish strings with Tk, some characters trigger a hang up on the connection. In particular the "o" with acute accent seems to be one of the culprit. I assume that some of the UTF-8 codes are interpreted as control chars in the command string when sending or receiving strings between the Lisp and Tk environments. Is there an easy way out of this problem? Thank you. Prof. Jean-Paul Barthès UMR CNRS HEUDIASYC CS Department Université de Technologie de Compiègne 60205 Compiègne Cedex, France Tel +33 3 44 23 44 66 Fax +33 3 44 23 44 77 www.utc.fr/~barthes

2 1

[ltk-user] text widget, tk8.5
by Jan Rychter 18 Sep '06

18 Sep '06

I've just started playing with ltk -- it's nice! I have two questions. One -- it seems that support for text widget commands is very limited. Will anyone be working on that? (as an example, there is no "tag add", "tag delete", "tag remove", "tag lower", etc.). Two -- is tk8.5 support planned? I'm afraid I'll have to use 8.5 because of a much better text widget (cursor keys finally work as expected). I tried just running things with wish8.5, but there are errors. --J.

2 4

[ltk-user] Images
by Bill Ramsay 23 Aug '06

23 Aug '06

Hello, again After much confusion on my part, I am finally able to get images to work. Felip's latest code snippet works fine and I am able to use the same method in my own code. For some reason or other my old ppm images don't work. I think it has something to do with transparency, because if I make a new transparent image, it works. Anyway, that's a different problem. Thank you for all the help. Sorry it took so long to get me going.... Bill

1 0

[ltk-user] Icons
by Bill Ramsay 20 Aug '06

20 Aug '06

I'm trying to add an image or icon to a menubutton (or regular button) and I don't quite get how it works. What does the first parameter of image-load represent (i.e. photo as in (image-load photo "x.ppm"))? Should I be working with bitmaps instead of images? How does the result of the load get assigned to the widget? And how does the :anchor or :justify get placed on the icon as opposed to the button text or the button itself? Is there an example of this anywhere? Thanks, Bill

3 5

[ltk-user] Apparent Bug
by Bill Ramsay 17 Aug '06

17 Aug '06

I seem to have found a bug in Ltk. If you set the genomety of the main window to x/y values of 0/0, the menus no longer work correctly. Firing the menu command button causes the menu to appear in a flash and fire the first menu item. You do not get to view the menu at all, let alone traverse it. Setting the geometry to 1/1 (or anything else) solves the problem. I seem to have a lot of questions getting started with Ltk. Sorry, but... How do you create a modal dialog box? I can do it by creating a toplevel window and positioning it where the dialog should go, but this solution is not modal. Do you have to use tk itself to do this, or is there something I'm missing in ltk.lisp. Thanks, Bill

1 0

[ltk-user] Grid question
by Bill 15 Aug '06

15 Aug '06

Hi, I'm new to Ltk. I seem to get it to work fine and have seen enough to want to really get familiar with it. However, I have a few questions about the layout managers. Basically, I want to be able to place things anywhere on the screen and have them stay relative to one another when the screen is resized. When creating a grid, who owns it? If I want a frame to be a grid of four by four and to place buttons at 1,0 and 2,3, how is that done? It seems that when I try this the first button goes to 0,0 and the second button to 1,1. Also, how do you create an empty frame of a specific size? Or a nil (*tk*) window of a specific size? And, lastly, are there any more complex examples I can look at? Thanks, Bill

3 2

[ltk-user] Annoying warning pop-ups
by Тимофей Шатров 24 Jul '06

24 Jul '06

Just updated to Ltk 0.90 and I have a slight problem. Can you provide some finer control on whether warnings during runtime result in a pop-up box? For example (with-ltk (:debug :develop :handle-warnings nil) ... would result in the same settings as in :develop mode, but without handling warnings (I see them in the REPL anyway and they are extremely numerous!). Best regards, Timofei Shatrov

2 1

[ltk-user] Re: Problems with images
by Felip Alàez Nadal 22 May '06

22 May '06

Hello! Finally I solved my problem with the images. Simply I added a function: (defun image-reset ( photo ) "Reseteja la imatge" (format-wish "~A blank" (widget-path photo)) ) (force-output) ) That works. -- Felip Alàez Nadal

1 0

[ltk-user] Problems with photo-image
by Felip Alàez Nadal 21 May '06

21 May '06

Hello: I have a problem with images on my cbr viewer. Supose I load a image on a photo-image instance called photo: (image-load photo "photo.ppm") If now I load a second image which is smaller than photo.ppm, with (image-load photo "photo2.ppm") It loads photo2.ppm at first plane, but I seed photo.ppm at the zone that's not filled with photo2.ppm. At the moment, I'm loading a image "black.ppm" that is a just a black image to reset the background, but I don't want to do It. There's some function to reset the photo-image instance's background before loading another image? Thanks you. -- Felip Alàez Nadal

1 0

[ltk-user] LTK + Slime?
by David N Murray 19 May '06

19 May '06

Hi all, Has anyone had any luck with LTK + Slime in a Windows environment? On WinXP, I have Emacs 21.2.1, Slime 2.0 (2006-04-20), clisp 2.38 (binary dist) and ActiveState ActiveTCL 8.4.13. Initially, I had ActiveTCL 8.4.12 installed, and everything worked in Command Prompt window, but not in slime. I upgraded to 8.4.13 and now, nothing works. What happens is that wish paints most of the desired components and then hangs: (hello-1) paints the frame with no button (ltktest) paints everything except the text box (ltk-eyes) paints everything, but never tracks the mouse Placing the mouse pointer inside the frame gets me an hourglass. If wish painted any controls, they are non-functional. Can someone point me in a direction to get more info out of wish? It looks like the comms between clisp and wish are the problem, but I don't know where to begin to debug it. I found *debug-tk*: LTK[8]> (hello-1) proc escape {s} {regsub -all {\\} $s {\\\\} s1;regsub -all {"} $s1 {\"} s2;return $s2} proc senddata {s} {puts "(:data [escape $s])";flush stdout} proc senddatastring {s} {puts "(:data \"[escape $s]\")";flush stdout} proc senddatastrings {strings} { puts "(:data (" foreach s $strings { puts "\"[escape $s]\"" } puts "))";flush stdout} proc sendevent {s x y keycode char width height root_x root_y mouse_button} {puts "(:event \"$s\" $x $y $keycode $char $width $height $root_x $root_y $mouse_button)"} proc callback {s} {puts "(:callback \"$s\")";flush stdout} proc callbackval {s val} {puts "(:callback \"$s\" $val)"} proc callbackstring {s val} {puts "(:callback \"$s\" \"[escape $val]\")"} add-callback (w2 #<FUNCTION LAMBDA NIL (FORMAT T Hello World!~&)>) set text_w2 "Push Me" Alternatively, does anyone have a recommendation for a different TCL/Tk implemenation under windows, that works? TIA, Dave

3 3

[ltk-user] File dialogs
by Felip Alàez Nadal 10 May '06

10 May '06

Hello: Does ltk have file dialogs? I'm programming a little cbr viewer and I need them. I haven't found them on ltk.lisp. Thanks you. -- Felip Alàez Nadal

3 3

[ltk-user] Ltk + Clisp + win32 hanging at wish startup.
by Charlie Burrows 10 May '06

10 May '06

Hi all, I complained a while ago that sometimes wish and clisp fail to communicate effectively when they are being started. I guess it's some sort of communication sync problem that causes a race condition. It only seems to happen when wish takes a little longer to start like if it's the first time it's being started that day or the machine is under some load. Anyway it's still around, if anyone has any input please let me know. I've seen it happen on a few different machines now. In the mean time I've found a workaround for it. It's a little involved but it works quite well. I'm deploying an application that uses clisp invisibly as far as I can. It invokes clisp with instructions to load and run my program code in the shortcut. The windows shortcut properties only allow you to select minized, normal and maximized so I had to put up with a clisp window sitting minized in the taskbar. I then had occasion to write a simple installation script and I found that you can make windows completely invisible in programatically created shortcuts. I did this so clisp starts invisibly and suddenly no more hanging at startup. The script uses vbs and the windows scripting host. NB the oLink.WindowStyle="0" line is the one that makes clisp invisible. Set oLink = WScript.CreateObject("WScript.Shell")..CreateShortcut("Shortcut_path.lnk") oLink.TargetPath = "C:\clisp-2.38\clisp.exe" oLink.Arguments = " -i C:\run-app.lisp" oLink.WorkingDirectory = "C:\clisp-2.38" oLink.WindowStyle = "0" oLink.Save Hope this helps someone. Charlie

2 2

[ltk-user] Allegro CL Modern Mode
by Vladimir Zolotykh 09 May '06

09 May '06

Hi I'm new to the Ltk and Ltk-user list. Accustomed to use Mlisp (ACL modern mode) bumped into some difficulties when tried to compile Ltk.lisp 0.881. I thought the corrections might be useful not only for me (patch is included). I marked the corrections with #+allegro except those of which I thought as implementation independent. -- Vladimir Zolotykh

1 0

[ltk-user] LispWorks (windows) hanging on ltktest...
by Arie van Wingerden 06 May '06

06 May '06

Hi, yesterday I did a fresh install of LTK on my WinXP box which formerly ran on Win2K. After installing I checked whether LTKTEST did work properly. It didn't ;-) So, I found the original message in the LTK mailing list with the subject above and found I had exactly the same problem(s). In order to find out, I disabled lots of running programs one by one and retried LTKTEST but couldn't find the reason for failure. So, in the end I just restarted WinXP et voila LTKTEST now works fine! I think I now know why ... I think one should *always* restart WinXP right after installing Tcl/Tk (in my case ActiveState Tcl/Tk) to get things right (which I almost always do, but forgot about this time - my bad). Conclusion: LTK just works fine, don't forget to reboot your Windows box after installing Tcl/Tk. -- Met vriendelijke groet / with kind regards, Arie van Wingerden Doneer gratis op / donate free at http://www.voedselhulp.nl & http://www.freedonation.com Kijk op / look at http://www.dorcas.nl & http://www.dorcas.net

1 0

[ltk-user] Tcl/Tk FFI Lite
by Ken Tilton 04 May '06

04 May '06

Frank and I like OpenGL and I thought tcl3D might not offer the best frame rates so we went with Togl. To get to the Togl OpenGL context one must be running in the same process so we load tcl and tk dynamically and use a handful of FFI calls to fire up an interpreter running in the same process. Then we can use Togl FFI to register Lisp callbacks which in turn do OpenGL using cl-opengl (the c-l.net version, not my old bindings). Frank did the heavy lifting on all this. The code no longer uses Ltk (but thanks for the great start!!). The Celtk module is alongside the Cells module under this project: http://common-lisp.net/project/cells/, in case y'all want to borrow anything. Frank's work is LLGPL, mine is MIT for now, might go LLGPL soon. btw, do get the latest Cells code if you want to try it. ASD files are not guaranteed to be relevant, but the LPR files are readable and tell you what the ASD /should/ be. modify tk-test to launch either the cells version of ltktest or the Togl version of the gears demo from cl-opengl. Oops, gotta go check the license and make that theft clear. Thx again to LTk and especially Peter for turning me on to Tcl/Tk. kenny

1 0

[ltk-user] Tk_Main
by Ken Tilton 26 Apr '06

26 Apr '06

Frank and I lust for OpenGL. But tcl/tk sure is handy. So: http://togl.sourceforge.net/ (requiring C programmin) and http://www.tcl3d.org/ (full Tcl scriptability) The problem with the latter is that, even with OpenGL display lists (don't ask) I think this is more traffic than we want to send over a pipe to get wicked high frame rates. And with Tcl as a separate process we cannot get to the OpenGL context from LTk. Right now Frank is trying to get an interpreter running within CL. I sent him some sample C code from Welch & Jones "Practical Programming in Tcl and Tk". Just writing to ask if there is any expertise on this list for embedding Tk. Oh, and does this sound right? Is this a typical time when folks cross over from using a pipe and switch to a C interface? Note that this is a middle ground, because most work is still done by building Tcl/tk commands and eval-ing them, but now we are running in the same process so, for example, we can use cl-opengl to build a display list which can be invoked by a Tk glCallList. I hope. :) ken

1 0

[ltk-user] SOC 2006 Proposals page revised....
by Ken Tilton 21 Apr '06

21 Apr '06

This looks a little different: http://www.lispnyc.org/soc.clp The idea is to do what we did last year, viz., have fuller descriptions of proposals backed by enthusiastic mentors. If you are one of the latter, please follow my lead: http://www.lispnyc.org/wiki.clp?page=GL-PDF-Refinement Hint: there is no space in that name for a reason. :) cl-wiki bug is being addressed, but in the meantime.... peace, kennj

1 0

[ltk-user] Job opening
by Peter Herth 04 Apr '06

04 Apr '06

Hi, there is an job opening, that might be quite interesting to the ltk users group, so I forward it to this list. If you are interested or have questions, please contact us soon. Peter Forwarded message: Cadence Design Systems GmbH in Munich, Germany ( www.cadence.com and www.cadence.com/vcad) has a job opening in the VCAD organization for an experienced software developer. It would be great to fill the position with someone who has good Lisp experience. Virtual CAD (VCAD) is a group within Cadence providing EDA (Electronic Design Automation) related services. The job is with the software development group within VCAD. Cadence's software products are scripted with the SKILL language, a Lisp language with two dialects: one Franz Lisp-like dialect, and one Scheme-like dialect. The VCAD software group also uses Common Lisp where appropriate. The position would be working in a small software group within an IC design services group. Tasks are usually related to IC design automation but not exclusively. Other current projects include release management, resource scheduling/tracking, Object-system implementation, regression/system/unit testing flow development. We are looking for someone who either has experience programming in a Lisp language, or is interested in learning Lisp in a production environment, and is comfortable in several mutually unrelated programming languages (eg, C, Smalltalk, and PostScript; or Java, Prolog, and SPARC assembly language). Experience in Perl, Python, C++, TCL, Java and Ample are useful but to a lesser extent. Experience with UNIX applications such as mySQL and Postgres would also be good. The platform is 99% UNIX based, including mostly Linux and Solaris. Other things that would be nice, but are not required: some theoretical familiarity with relational databases (eg, you took a database class or read the textbook from one); Windows programming experience; Oracle experience. Fluency in English is required. Also useful would be familiarity with German, French, Italian, Russian, or Hebrew. Relocation to Munich would be required. If you are interested, please respond to jimka(a)cadence.com. Several of my colleagues and I also plan to attend and present at the European Common Lisp Meeting in Hamburg, April 29/30. If you are interested in finding out more, please contact one of us. Thanks and happy consing, Jim Newton

1 0

[ltk-user] Tile?
by Ken Tilton 28 Mar '06

28 Mar '06

I just ran across Tk Tile. Seems to be all the rage. Also seems like it will be built into Tk 8.5. Is LTk going that way? kt

2 5

[ltk-user] Evolving Ltktest-with-cells.lisp
by Ken Tilton 26 Mar '06

26 Mar '06

I have been refining both the doc and the functionality of ltktest-with-cells (in the Celtk module under Cells), which mirrors the LTk demo ltktest, for a few days now adding more and more connectivity between the widgets and the main display, as one would have in a more real-world application. At this point I think both doc and demo are adequate, and anyway I will not know how to improve them without feedback, whether it be suggestions or requests for clarification. btw, thx to Frank for his report that all runs well on Mac OS X. I myself saw recent versions working on Lispworks+win32, albeit with a problem in that the spinning lines spun at a glacial rate. I would be interested in hearing if Celtk runs on other platforms. Now here is a big heads up: every once in a while, except when I am trying to make it happen <g>, ACL8 on win32 hangs when I close ltktest-with-cells. Possibly something to do with my Timer class run amok? We will see. ken

1 0