/[cells]/Celtk/item-shaped.lisp
ViewVC logotype

Contents of /Celtk/item-shaped.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Wed May 24 20:38:54 2006 UTC (7 years, 11 months ago) by ktilton
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +17 -21 lines
Massive mopping in re latest approach to talking to Tcl, and the first attempt at patches to achieve Linux/SBCL compatibility (thx Stu). Expect a second round before SBCL falls in line.
1 ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*-
2 #|
3
4 Celtk -- Cells, Tcl, and Tk
5
6 Copyright (C) 2006 by Kenneth Tilton
7
8 This library is free software; you can redistribute it and/or
9 modify it under the terms of the Lisp Lesser GNU Public License
10 (http://opensource.franz.com/preamble.html), known as the LLGPL.
11
12 This library is distributed WITHOUT ANY WARRANTY; without even
13 the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14
15 See the Lisp Lesser GNU Public License for more details.
16
17 |#
18
19 (in-package :Celtk)
20
21 (deftk oval (item)
22 ()
23 (:tk-spec oval
24 -dash
25 -activedash
26 -disableddash
27 -dashoffset
28 (tk-fill -fill)
29 -activefill
30 -disabledfill
31 -offset
32 -outline
33 -activeoutline
34 -disabledoutline
35 -outlinestipple
36 -activeoutlinestipple
37 -disabledoutlinestipple
38 -stipple
39 -activestipple
40 -disabledstipple
41 -state
42 -tags
43 -width
44 -activewidth
45 -disabledwidth))
46
47 (deftk polygon (item)
48 ()
49 (:tk-spec polygon
50 -dash
51 -activedash
52 -disableddash
53 -dashoffset
54 (tk-fill -fill)
55 -activefill
56 -disabledfill
57 -offset
58 -outline
59 -activeoutline
60 -disabledoutline
61 -outlinestipple
62 -activeoutlinestipple
63 -disabledoutlinestipple
64 -stipple
65 -activestipple
66 -disabledstipple
67 -state
68 -tags
69 -width
70 -activewidth
71 -joinstyle -smooth -splinesteps))
72
73 (deftk rectangle (item)
74 ()
75 (:tk-spec rectangle
76 -dash
77 -activedash
78 -disableddash
79 -dashoffset
80 (tk-fill -fill)
81 -activefill
82 -disabledfill
83 -offset
84 -outline
85 -activeoutline
86 -disabledoutline
87 -outlinestipple
88 -activeoutlinestipple
89 -disabledoutlinestipple
90 -stipple
91 -activestipple
92 -disabledstipple
93 -state
94 -tags
95 -width
96 -activewidth
97 -disabledwidth))

  ViewVC Help
Powered by ViewVC 1.1.5