text-item.lisp

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