On 3/15/07, Hitman <_Hitman_@centrum.cz> wrote:
Nice instructions Charlie (and easy). I do it in line with your instructions and manual pages too, but the window hanging and my LTK isn't workable. :(
I think I also had the same problem under windows. I did solve it but I forget how... I did find a vb script that I wrote to install my application. I have appended it to this email. I think that the breakthrough is at the end of the script when it creates a shortcut and sets the clisp window to invsible (oLink.WindowStyle = "0"). I think it was this that finally solved the hanging at startup issue that was very annoying. I was looking at my sources and I see that I also don't use the default *tk* window (withdraw ltk::*tk*) that gets automatically opened but I create my own toplevel, that may have some impact. If nether of these thinks work I found that giving the main window an event, normally by mouse, while it is initializing will stop it from hanging. Be quick :) I hope at least one of these things works for you. I last used this app with a much older version of ltk so ymmv. Good luck Charlie ---------- make_asdf_repository.vbs ------------------- Const USER_PROFILE = &H28& Set oWS = WScript.CreateObject("WScript.Shell") Set FSO = WScript.CreateObject("Scripting.FileSystemObject") cd = oWS.CurrentDirectory home = CreateObject("Shell.Application").Namespace(USER_PROFILE).Self.Path ' Delete/re-create the existing asdfs folder IF NOT FSO.FolderExists(cd + "\asdfs") THEN FSO.CreateFolder(cd + "\asdfs") ' Create shortcuts from all the .asd files to the asdf directory Set oLink = oWS.CreateShortcut(cd + "\asdfs\ltk.asd.lnk") oLink.TargetPath = cd + "\ltk\ltk.asd" oLink.WorkingDirectory = cd + "\ltk" oLink.Save Set oLink = oWS.CreateShortcut(cd + "\asdfs\ltk-bwidgets.asd.lnk") oLink.TargetPath = cd + "\ltk-bwidgets\ltk-bwidgets.asd" oLink.WorkingDirectory = cd + "\ltk-bwidgets" oLink.Save Set oLink = oWS.CreateShortcut(cd + "\asdfs\ltk-taskman.asd.lnk") oLink.TargetPath = cd + "\ltk-taskman\ltk-taskman.asd" oLink.WorkingDirectory = cd + "\ltk-taskman" oLink.Save ' Create the .clisprc.lisp and .taskman files in user's home Set initFile = FSO.CreateTextFile(home + "\.clisprc") initFile.WriteLine("(load """ + replace(cd, "\", "/") + "/asdf.lisp"" )") initFile.WriteLine("(push """ + replace(cd, "\", "/") + _ "/asdfs/"" asdf:*central-registry*)") initFile.Close() Set initFile = FSO.CreateTextFile(home + "\.taskman") initFile.WriteLine("((icon-path . """ + replace(cd, "\", "/") + _ "/ltk-taskman/""))") initFile.Close() ' Finally Create the shortcut to the taskman Set oLink = oWS.CreateShortcut(cd + "\Taskman.lnk") oLink.TargetPath = cd + "\clisp-2.38\clisp.exe" oLink.Arguments = " -i " + cd + "\run-taskman.lisp" oLink.WorkingDirectory = cd + "\clisp-2.38" oLink.WindowStyle = "0" oLink.Save