Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 97 lines (83 sloc) 2.491 kB
;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*-
#|
Celtk -- Cells, Tcl, and Tk
Copyright (C) 2006 by Kenneth Tilton
This library is free software; you can redistribute it and/or
modify it under the terms of the Lisp Lesser GNU Public License
(http://opensource.franz.com/preamble.html), known as the LLGPL.
This library is distributed WITHOUT ANY WARRANTY; without even
the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the Lisp Lesser GNU Public License for more details.
|#
(in-package :celtk)
(deftk canvas (widget)
((active :initarg :active :accessor active :initform (c-in t))
)
(:tk-spec canvas
-background -borderwidth -cursor
-highlightbackground -highlightcolor -highlightthickness
-insertbackground -insertborderwidth -insertofftime -insertontime -insertwidth
-relief -selectbackground -selectborderwidth -selectforeground
-state -takefocus -xscrollcommand -yscrollcommand
-closeenough -confine -height (scroll-region -scrollregion) -width
-xscrollincrement -yscrollincrement)
(:default-initargs
:xscrollcommand (c-in nil)
:yscrollcommand (c-in nil)
:id (gentemp "CV")
:tile? nil))
(defun focusIn->active ()
(list '|<FocusIn>| (lambda (self event &rest args)
(declare (ignorable event))
(trc "focus in activating" self event args)
(setf (^active) t))))
(defun focusOut->active ()
(list '|<FocusOut>| (lambda (self event &rest args)
(declare (ignorable event))
(trc "focus out de-activating" self event args)
(setf (^active) nil))))
(deftk arc (item)
()
(:tk-spec arc
-dash
-activedash
-disableddash
-dashoffset
(tk-fill -fill)
-activefill
-disabledfill
-offset
-outline
-activeoutline
-disabledoutline
-outlinestipple
-activeoutlinestipple
-disabledoutlinestipple
-stipple
-activestipple
-disabledstipple
-state
-tags
-width
-activewidth
-disabledwidth
-extent -start -style))
(deftk line (item)
()
(:tk-spec line
-dash
-activedash
-disableddash
-dashoffset
(tk-fill -fill)
-activefill
-disabledfill
-stipple
-activestipple
-disabledstipple
-state
-tags
-width
-activewidth
-disabledwidth
-arrow -arrowshape -capstyle -joinstyle -smooth -splinesteps))
Jump to Line
Something went wrong with that request. Please try again.