Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100755 44 lines (34 sloc) 1.087 kB
8630194 @kennytilton Moved to github, ported to Linux (almost)
authored
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
20 (in-package :celtk)
21
22 (deftk text-item (tkfontified item)
23 ()
24 (:tk-spec text
25 (tk-fill -fill)
26 -activefill
27 -disabledfill
28 -stipple
29 -activestipple
30 -disabledstipple
31 -state
32 -tags
33 ;; -- special ---
34 -anchor
35 (tkfont -font)
36 (tk-justify -justify)
37 -text
38 -underline
39 -width)
40 (:default-initargs
41 :l-coords '(0 0) ;; the p-offset will positon the text
42 :coords-tweak (c_? (eko (nil "coords tweak" self)
43 (list 0 0 #+not (- (* (tk-scaling .tkw) (^tkfont-ascent))))))))
Something went wrong with that request. Please try again.