item-pictorial.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 (in-package :Celtk)
  20
  21 (deftk bitmap (item)
  22   ()
  23   (:tk-spec bitmap
  24     -state -tags
  25     -anchor
  26     -background
  27     -activebackground
  28     -disabledbackground
  29     -bitmap
  30     -activebitmap
  31     -disabledbitmap
  32     -foreground
  33     -activeforeground
  34     -disabledforeground))
  35
  36
  37 (deftk image-item (item)
  38   ()
  39   (:tk-spec image
  40     -state
  41     -tags
  42     -anchor
  43     -image
  44     -activeimage
  45     -disabledimage))
  46