Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv8038

Added Files: tk-file.lisp Log Message: First Check-In.

--- /project/cells/cvsroot/Celtk/tk-file.lisp 2008/04/17 16:16:44 NONE +++ /project/cells/cvsroot/Celtk/tk-file.lisp 2008/04/17 16:16:44 1.1 ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- #|

Celtk -- Cells, Tcl, and Tk

Copyright (C) 2006, 2007 by Kenneth Tilton This file: Copyright (C) 2007 by Frank Goenninger

This library is free software; you can redistribute it and/or modify it under the terms of the Lisp Lesser GNU Public License (http://opensource.franz.com/preamble.html), known as the LLGPL.

This library is distributed 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)

(defun do-tk-get-open-file (self args) (tk-open-file self args))

(defmacro tk-get-open-file (self args) `(tk-format-now "Tk_getOpenFile"))