Update of /project/phemlock/cvsroot/phemlock In directory common-lisp.net:/tmp/cvs-serv1172

Modified Files: TODO hemlock.asd hemlock.system Log Message: half-way working undo Date: Mon Dec 27 19:53:14 2004 Author: gbaumann

Index: phemlock/TODO diff -u phemlock/TODO:1.1.1.1 phemlock/TODO:1.2 --- phemlock/TODO:1.1.1.1 Fri Jul 9 15:36:33 2004 +++ phemlock/TODO Mon Dec 27 19:53:14 2004 @@ -18,4 +18,18 @@

- Import the scribe parser and work on the html converter

-$Id: TODO,v 1.1.1.1 2004/07/09 13:36:33 gbaumann Exp $ \ No newline at end of file +HEMLOCK AS A GADGET + +I want Hemlock as a gadget for McCLIM. The easiest route to get that is to +have a hemlock run in another thread and pass input events in as the gadget +receives them. Redisplay should be done though accessing the dis-lines of +Hemlock's idea of the window. When arguments are asked for in the echo +buffer, pop up a little window near the cursor and ask there. [could also +been done in real Hemlock]. When we run Hemlock as a gadget disallow +changing windows or changing buffers. + +HEMLOCK AS THE DEFAULT COMMAND LINE EDITOR IN CLIM + + + +$Id: TODO,v 1.2 2004/12/27 18:53:14 gbaumann Exp $

Index: phemlock/hemlock.asd diff -u phemlock/hemlock.asd:1.5 phemlock/hemlock.asd:1.6 --- phemlock/hemlock.asd:1.5 Wed Dec 15 01:51:35 2004 +++ phemlock/hemlock.asd Mon Dec 27 19:53:14 2004 @@ -157,7 +157,8 @@ (:file "streams") #+port-root-hacks (:file "hacks") (:file "main") - (:file "echo"))) + (:file "echo") + (:file "new-undo"))) (:module user-1 :pathname #.(merge-pathnames (make-pathname @@ -241,4 +242,4 @@ :components ((:file "patch") (:file "foo") - #+port-clim-exp-syntax (:file "exp-syntax"))))) \ No newline at end of file + #+port-clim-exp-syntax (:file "exp-syntax")))))

Index: phemlock/hemlock.system diff -u phemlock/hemlock.system:1.5 phemlock/hemlock.system:1.6 --- phemlock/hemlock.system:1.5 Wed Dec 15 01:51:35 2004 +++ phemlock/hemlock.system Mon Dec 27 19:53:14 2004 @@ -137,7 +137,8 @@ (:file "streams") #+port-root-hacks (:file "hacks") (:file "main") - (:file "echo"))) + (:file "echo") + (:file "new-undo"))) (:module user-1 :source-pathname "user" :depends-on (root-2) @@ -211,5 +212,4 @@ :depends-on (bitmap-2) :components ((:file "patch") - #+port-clim-foo (:file "foo") - (:file "exp-syntax"))))) \ No newline at end of file + (:file "foo") ))))