/[cells]/Celtk/tk-file.lisp
ViewVC logotype

Contents of /Celtk/tk-file.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Thu Apr 17 16:16:44 2008 UTC (6 years ago) by fgoenninger
Branch: MAIN
CVS Tags: HEAD
First Check-In.
1 ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*-
2 #|
3
4 Celtk -- Cells, Tcl, and Tk
5
6 Copyright (C) 2006, 2007 by Kenneth Tilton
7 This file: Copyright (C) 2007 by Frank Goenninger
8
9 This library is free software; you can redistribute it and/or
10 modify it under the terms of the Lisp Lesser GNU Public License
11 (http://opensource.franz.com/preamble.html), known as the LLGPL.
12
13 This library is distributed WITHOUT ANY WARRANTY; without even
14 the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15
16 See the Lisp Lesser GNU Public License for more details.
17
18 |#
19
20 (in-package :Celtk)
21
22 (defun do-tk-get-open-file (self args)
23 (tk-open-file self args))
24
25 (defmacro tk-get-open-file (self args)
26 `(tk-format-now "Tk_getOpenFile"))

  ViewVC Help
Powered by ViewVC 1.1.5