ltk-user May 2006

ltk-user@common-lisp.net

8 participants
8 discussions

[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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

ltk-user May 2006