[cells-cvs] CVS Celtk

[fgoenninger]

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"))