Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv13477
Modified Files: CELTK.lpr Celtk.asd Celtk.lisp canvas.lisp composites.lisp demos.lisp ltktest-cells-inside.lisp menu.lisp textual.lisp tk-format.lisp widgets.lisp Removed Files: ltk-kt.lisp Log Message: Remove ltk-kt.lisp, modify celtk.asd to depend on Ltk classic, modify licenses/copyright/attribution in all source.
--- /project/cells/cvsroot/Celtk/CELTK.lpr 2006/03/22 05:26:21 1.2 +++ /project/cells/cvsroot/Celtk/CELTK.lpr 2006/03/24 03:46:25 1.3 @@ -5,7 +5,8 @@ (defpackage :CELTK)
(define-project :name :celtk - :modules (list (make-instance 'module :name "ltk-kt.lisp") + :modules (list (make-instance 'module :name + "C:\0devtools\ltk\ltk.lisp") (make-instance 'module :name "Celtk.lisp") (make-instance 'module :name "tk-format.lisp") (make-instance 'module :name "menu.lisp") --- /project/cells/cvsroot/Celtk/Celtk.asd 2006/03/22 05:26:21 1.2 +++ /project/cells/cvsroot/Celtk/Celtk.asd 2006/03/24 03:46:25 1.3 @@ -12,10 +12,9 @@ :licence "MIT Style" :description "Tk via LTk with Cells Inside(tm)" :long-description "A Cells-driven portable GUI built atop the LTk core, ultimately implmented by Tk" - :depends-on (:cells) + :depends-on (:ltk :cells) :serial t - :components ((:file "ltk-kt") - (:file "Celtk") + :components ((:file "Celtk") (:file "tk-format") (:file "menu") (:file "textual") --- /project/cells/cvsroot/Celtk/Celtk.lisp 2006/03/23 20:57:53 1.6 +++ /project/cells/cvsroot/Celtk/Celtk.lisp 2006/03/24 03:46:25 1.7 @@ -1,31 +1,32 @@ -#| - - Celtic / widget.lisp : Foundation classes - - Copyright (c) 2004 by Kenneth William Tilton ktilton@nyc.rr.com - - A work derived from Peter Herth's LTk. As a derived work, - usage is governed by LTk's "Lisp LGPL" licensing: - - You have the right to distribute and use this software as governed by - the terms of the Lisp Lesser GNU Public License (LLGPL): - - (http://opensource.franz.com/preamble.html) - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - Lisp Lesser GNU Public License for more details. - -|# +;; -*- mode: Lisp; Syntax: Common-Lisp; Package: celtk; -*- +;;; +;;; Copyright (c) 2006 by Kenneth William Tilton. +;;; +;;; Permission is hereby granted, free of charge, to any person obtaining a copy +;;; of this software and associated documentation files (the "Software"), to deal +;;; in the Software without restriction, including without limitation the rights +;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +;;; copies of the Software, and to permit persons to whom the Software is furnished +;;; to do so, subject to the following conditions: +;;; +;;; The above copyright notice and this permission notice shall be included in +;;; all copies or substantial portions of the Software. +;;; +;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS +;;; IN THE SOFTWARE.
(defpackage :celtk (:nicknames "CTK") (:use :common-lisp :utils-kt :cells)
(:import-from #:ltk - #:wish-stream #:*wish* #:*ewish* - #:peek-char-no-hang #:read-data #:event-root-x #:event-root-y + #:wish-stream #:*wish* #:widget-path + #:read-data #:event-root-x #:event-root-y #:send-wish #:tkescape #:after #:after-cancel #:bind #:with-ltk #:do-execute #:add-callback)
@@ -52,6 +53,7 @@
(in-package :Celtk)
+ (defmodel tk-object (model) ((.md-name :cell nil :initform (gentemp "TK") :initarg :id) (tk-class :cell nil :initform nil :initarg :tk-class :reader tk-class) --- /project/cells/cvsroot/Celtk/canvas.lisp 2006/03/16 05:15:14 1.1 +++ /project/cells/cvsroot/Celtk/canvas.lisp 2006/03/24 03:46:25 1.2 @@ -1,23 +1,24 @@ -#| - - Celtic / frame.lisp - - Copyright (c) 2004 by Kenneth William Tilton ktilton@nyc.rr.com - - A work derived from Peter Herth's LTk. As a derived work, - usage is governed by LTk's "Lisp LGPL" licensing: - - You have the right to distribute and use this software as governed by - the terms of the Lisp Lesser GNU Public License (LLGPL): - - (http://opensource.franz.com/preamble.html) - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - Lisp Lesser GNU Public License for more details. - -|# +;; -*- mode: Lisp; Syntax: Common-Lisp; Package: celtk; -*- +;;; +;;; Copyright (c) 2006 by Kenneth William Tilton. +;;; +;;; Permission is hereby granted, free of charge, to any person obtaining a copy +;;; of this software and associated documentation files (the "Software"), to deal +;;; in the Software without restriction, including without limitation the rights +;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +;;; copies of the Software, and to permit persons to whom the Software is furnished +;;; to do so, subject to the following conditions: +;;; +;;; The above copyright notice and this permission notice shall be included in +;;; all copies or substantial portions of the Software. +;;; +;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS +;;; IN THE SOFTWARE.
(in-package :Celtk)
--- /project/cells/cvsroot/Celtk/composites.lisp 2006/03/22 05:26:21 1.2 +++ /project/cells/cvsroot/Celtk/composites.lisp 2006/03/24 03:46:25 1.3 @@ -1,23 +1,25 @@ -#| +;; -*- mode: Lisp; Syntax: Common-Lisp; Package: celtk; -*- +;;; +;;; Copyright (c) 2006 by Kenneth William Tilton. +;;; +;;; Permission is hereby granted, free of charge, to any person obtaining a copy +;;; of this software and associated documentation files (the "Software"), to deal +;;; in the Software without restriction, including without limitation the rights +;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +;;; copies of the Software, and to permit persons to whom the Software is furnished +;;; to do so, subject to the following conditions: +;;; +;;; The above copyright notice and this permission notice shall be included in +;;; all copies or substantial portions of the Software. +;;; +;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS +;;; IN THE SOFTWARE.
- Celtic / widget.lisp : Foundation classes - - Copyright (c) 2004 by Kenneth William Tilton ktilton@nyc.rr.com - - A work derived from Peter Herth's LTk. As a derived work, - usage is governed by LTk's "Lisp LGPL" licensing: - - You have the right to distribute and use this software as governed by - the terms of the Lisp Lesser GNU Public License (LLGPL): - - (http://opensource.franz.com/preamble.html) - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - Lisp Lesser GNU Public License for more details. - -|#
(in-package :Celtk)
--- /project/cells/cvsroot/Celtk/demos.lisp 2006/03/22 18:50:08 1.3 +++ /project/cells/cvsroot/Celtk/demos.lisp 2006/03/24 03:46:25 1.4 @@ -1,24 +1,24 @@ -#| - - Celtic - - Copyright (c) 2004 by Kenneth William Tilton ktilton@nyc.rr.com - - A work derived from Peter Herth's LTk. As a derived work, - usage is governed by LTk's "Lisp LGPL" licensing: - - You have the right to distribute and use this software as governed by - the terms of the Lisp Lesser GNU Public License (LLGPL): - - (http://opensource.franz.com/preamble.html) - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - Lisp Lesser GNU Public License for more details. - -|# - +;; -*- mode: Lisp; Syntax: Common-Lisp; Package: celtk; -*- +;;; +;;; Copyright (c) 2006 by Kenneth William Tilton. +;;; +;;; Permission is hereby granted, free of charge, to any person obtaining a copy +;;; of this software and associated documentation files (the "Software"), to deal +;;; in the Software without restriction, including without limitation the rights +;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +;;; copies of the Software, and to permit persons to whom the Software is furnished +;;; to do so, subject to the following conditions: +;;; +;;; The above copyright notice and this permission notice shall be included in +;;; all copies or substantial portions of the Software. +;;; +;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS +;;; IN THE SOFTWARE.
(in-package :celtk-user) --- /project/cells/cvsroot/Celtk/ltktest-cells-inside.lisp 2006/03/23 20:57:53 1.6 +++ /project/cells/cvsroot/Celtk/ltktest-cells-inside.lisp 2006/03/24 03:46:25 1.7 @@ -1,3 +1,35 @@ +#| + + This software is Copyright (c) 2003, 2004, 2005, 2006 Peter Herth herth@peter-herth.de + Parts Copyright (c) 2005 Thomas F. Burdick + Parts Copyright (c) Cadence Design Systems, GmbH + + Peter Herth grants you the rights to distribute + and use this software as governed by the terms + of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), + known as the LLGPL. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +!!!!!!!!!!!! PROMINENT NOTICE !!!!!!!!!!!!!!! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +!!!!!!!!!!!! !!!!!!!!!!!!!!! +!!!!!!!!!!!! This demo was translated to Cells !!!!!!!!!!!!!!! +!!!!!!!!!!!! by ken Tilton on March 22, 2006. !!!!!!!!!!!!!!! +!!!!!!!!!!!! !!!!!!!!!!!!!!! +!!!!!!!!!!!! Original (ltktest) can be found !!!!!!!!!!!!!!! +!!!!!!!!!!!! at the end of ltk.lisp !!!!!!!!!!!!!!! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +|# + + (in-package :celtk-user) #|
--- /project/cells/cvsroot/Celtk/menu.lisp 2006/03/23 18:25:24 1.4 +++ /project/cells/cvsroot/Celtk/menu.lisp 2006/03/24 03:46:25 1.5 @@ -1,23 +1,25 @@ -#| - - Celtic - - Copyright (c) 2004 by Kenneth William Tilton ktilton@nyc.rr.com - - A work derived from Peter Herth's LTk. As a derived work, - usage is governed by LTk's "Lisp LGPL" licensing: - - You have the right to distribute and use this software as governed by - the terms of the Lisp Lesser GNU Public License (LLGPL): +;; -*- mode: Lisp; Syntax: Common-Lisp; Package: celtk; -*- +;;; +;;; Copyright (c) 2006 by Kenneth William Tilton. +;;; +;;; Permission is hereby granted, free of charge, to any person obtaining a copy +;;; of this software and associated documentation files (the "Software"), to deal +;;; in the Software without restriction, including without limitation the rights +;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +;;; copies of the Software, and to permit persons to whom the Software is furnished +;;; to do so, subject to the following conditions: +;;; +;;; The above copyright notice and this permission notice shall be included in +;;; all copies or substantial portions of the Software. +;;; +;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS +;;; IN THE SOFTWARE.
- (http://opensource.franz.com/preamble.html) - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - Lisp Lesser GNU Public License for more details. - -|#
(in-package :Celtk)
--- /project/cells/cvsroot/Celtk/textual.lisp 2006/03/23 18:25:24 1.3 +++ /project/cells/cvsroot/Celtk/textual.lisp 2006/03/24 03:46:25 1.4 @@ -1,23 +1,25 @@ -#| +;; -*- mode: Lisp; Syntax: Common-Lisp; Package: celtk; -*- +;;; +;;; Copyright (c) 2006 by Kenneth William Tilton. +;;; +;;; Permission is hereby granted, free of charge, to any person obtaining a copy +;;; of this software and associated documentation files (the "Software"), to deal +;;; in the Software without restriction, including without limitation the rights +;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +;;; copies of the Software, and to permit persons to whom the Software is furnished +;;; to do so, subject to the following conditions: +;;; +;;; The above copyright notice and this permission notice shall be included in +;;; all copies or substantial portions of the Software. +;;; +;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS +;;; IN THE SOFTWARE.
- Celtic / textual.lisp - - Copyright (c) 2004 by Kenneth William Tilton ktilton@nyc.rr.com - - A work derived from Peter Herth's LTk. As a derived work, - usage is governed by LTk's "Lisp LGPL" licensing: - - You have the right to distribute and use this software as governed by - the terms of the Lisp Lesser GNU Public License (LLGPL): - - (http://opensource.franz.com/preamble.html) - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - Lisp Lesser GNU Public License for more details. - -|#
(in-package :Celtk)
--- /project/cells/cvsroot/Celtk/tk-format.lisp 2006/03/22 18:50:08 1.3 +++ /project/cells/cvsroot/Celtk/tk-format.lisp 2006/03/24 03:46:25 1.4 @@ -1,24 +1,24 @@ -#| - - Celtic / tk-format.lisp : Sending code to Tk - - Copyright (c) 2004 by Kenneth William Tilton ktilton@nyc.rr.com - - A work derived from Peter Herth's LTk. As a derived work, - usage is governed by LTk's "Lisp LGPL" licensing: - - You have the right to distribute and use this software as governed by - the terms of the Lisp Lesser GNU Public License (LLGPL): - - (http://opensource.franz.com/preamble.html) - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - Lisp Lesser GNU Public License for more details. - -|# - +;; -*- mode: Lisp; Syntax: Common-Lisp; Package: celtk; -*- +;;; +;;; Copyright (c) 2006 by Kenneth William Tilton. +;;; +;;; Permission is hereby granted, free of charge, to any person obtaining a copy +;;; of this software and associated documentation files (the "Software"), to deal +;;; in the Software without restriction, including without limitation the rights +;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +;;; copies of the Software, and to permit persons to whom the Software is furnished +;;; to do so, subject to the following conditions: +;;; +;;; The above copyright notice and this permission notice shall be included in +;;; all copies or substantial portions of the Software. +;;; +;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS +;;; IN THE SOFTWARE.
(in-package :Celtk) --- /project/cells/cvsroot/Celtk/widgets.lisp 2006/03/22 05:26:22 1.2 +++ /project/cells/cvsroot/Celtk/widgets.lisp 2006/03/24 03:46:25 1.3 @@ -1,23 +1,25 @@ -#| +;; -*- mode: Lisp; Syntax: Common-Lisp; Package: celtk; -*- +;;; +;;; Copyright (c) 2006 by Kenneth William Tilton. +;;; +;;; Permission is hereby granted, free of charge, to any person obtaining a copy +;;; of this software and associated documentation files (the "Software"), to deal +;;; in the Software without restriction, including without limitation the rights +;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +;;; copies of the Software, and to permit persons to whom the Software is furnished +;;; to do so, subject to the following conditions: +;;; +;;; The above copyright notice and this permission notice shall be included in +;;; all copies or substantial portions of the Software. +;;; +;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS +;;; IN THE SOFTWARE.
- Celtic / button.lisp - - Copyright (c) 2004 by Kenneth William Tilton ktilton@nyc.rr.com - - A work derived from Peter Herth's LTk. As a derived work, - usage is governed by LTk's "Lisp LGPL" licensing: - - You have the right to distribute and use this software as governed by - the terms of the Lisp Lesser GNU Public License (LLGPL): - - (http://opensource.franz.com/preamble.html) - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - Lisp Lesser GNU Public License for more details. - -|#
(in-package :Celtk)