Common Lisp Package: LTK

README:

FUNCTION

Public

AFTER (TIME FUN)

after <time> msec call function <fun>, returns the after event id, which can be passed to AFTER-CANCEL

AFTER-CANCEL (ID)

cancels a call scheduled with AFTER or AFTER-IDLE by its id

AFTER-IDLE (FUN)

call fun when tk becomes idle, returns the after event id, which can be passed to AFTER-CANCEL

CALL-WITH-LTK (THUNK &REST KEYS &KEY (DEBUG 2) STREAM SERVE-EVENT REMOTEP &ALLOW-OTHER-KEYS)

Functional interface to with-ltk, provided to allow the user the build similar macros.

CREATE-ITEMS (CANVAS ITEMS)

Create canvas items according to the item specs without returning ltk objects for them. This means, they cannot be accessed in any way, but also the creation does not flush the ltk output buffer.

DICTIONARY-PLIST (STRING)

return a plist representing the TCL dictionary

DO-EXECUTE (PROGRAM ARGS &OPTIONAL (WT NIL))

execute program with args a list containing the arguments passed to the program if wt is non-nil, the function will wait for the execution of the program to return. returns a two way stream connected to stdin/stdout of the program

EVENT-CHAR (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

EVENT-HEIGHT (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

EVENT-KEYCODE (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

EVENT-MOUSE-BUTTON (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

EVENT-ROOT-X (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

EVENT-ROOT-Y (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

EVENT-WIDTH (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

EVENT-X (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

EVENT-Y (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

FORMAT-WISH (CONTROL &REST ARGS)

format 'args using 'control as control string to wish

LENGTH (SEQUENCE)

Return an integer that is the length of SEQUENCE.

MAKE-ITEMS (CANVAS ITEMS)

Create canvas items according to the item specs and return a list of canvas-items.

MAKE-LTK-CONNECTION (&KEY (REMOTEP NIL))

Create a new LTK-CONNECTION object. This represents a connection to a specific wish. You can maintain connections to several distinct wish processes by binding *WISH* to the one you desire to communicate with, and using LTK functions within that dynamic scope.

PHASE (NUMBER)

Return the angle part of the polar representation of a complex number. For complex numbers, this is (atan (imagpart number) (realpart number)). For non-complex positive numbers, this is 0. For non-complex negative numbers this is PI.

PROCESS-EVENTS

A function to temporarliy yield control to wish so that pending events can be processed, useful in long loops or loops that depend on tk input to terminate

READ-EVENT (&KEY (BLOCKING T) (NO-EVENT-VALUE NIL))

read the next event from wish, return the event or nil, if there is no event to read and blocking is set to nil

SCREEN-HEIGHT (&OPTIONAL (W NIL))

give the height of the screen in pixels (if w is given, of the screen the widget w is displayed on)

SCREEN-HEIGHT-MM (&OPTIONAL (W NIL))

give the height of the screen in mm (if w is given, of the screen the widget w is displayed on)

SCREEN-MOUSE (&OPTIONAL (W NIL))

give the position of the mouse on screen as (x y) (if w is given, of the screen the widget w is displayed on)

SCREEN-MOUSE-X (&OPTIONAL (W NIL))

give x position of the mouse on screen (if w is given, of the screen the widget w is displayed on)

SCREEN-MOUSE-Y (&OPTIONAL (W NIL))

give y position of the mouse on screen (if w is given, of the screen the widget w is displayed on)

SCREEN-WIDTH (&OPTIONAL (W NIL))

give the width of the screen in pixels (if w is given, of the screen the widget w is displayed on)

SCREEN-WIDTH-MM (&OPTIONAL (W NIL))

give the width of the screen in mm (if w is given, of the screen the widget w is displayed on)

TREEVIEW-COLUMN (TREE COLUMN &REST OPTIONS)

Query or modify the options for the specified column.

TREEVIEW-HEADING (TREE COLUMN &REST OPTIONS &KEY COMMAND &ALLOW-OTHER-KEYS &AUX (PATH (WIDGET-PATH TREE)))

Query or modify the heading options for the specified column.

TREEVIEW-INSERT (TREE &REST OPTIONS &KEY (PARENT {}) (INDEX end) (ID (CREATE-NAME)) &ALLOW-OTHER-KEYS)

Creates a new item. Returns its id. See also the treeitem class.

TREEVIEW-ITEM (TREE ITEM &REST OPTIONS)

Query or modify the options for the specified item.

TREEVIEW-MOVE (TREE ITEM &OPTIONAL PARENT INDEX)

Moves item to position index in parent's list of children.

WINDOW-HEIGHT (TL)

give the height of the toplevel in pixels

WINDOW-ID (TL)

get the window id of the toplevel

WINDOW-TRANSIENT (TL WIN)

set the transient property of tl to be transient to win or nil

WINDOW-WIDTH (TL)

give the width of the toplevel in pixels

WINDOW-X (TL)

give the x position of the toplevel in pixels

WINDOW-Y (TL)

give the y position of the toplevel in pixels

WISH-STREAM (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

WISH-VARIABLES (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

Undocumented

ADD-SEPARATOR (MENU)

APPEND-NEWLINE (TEXT)

ASK-OKCANCEL (MESSAGE &KEY (TITLE ) PARENT)

ASK-YESNO (MESSAGE &KEY (TITLE ) PARENT)

BELL

CANVAS-BBOX (CANVAS HANDLE)

CHOOSE-COLOR (&KEY PARENT TITLE INITIALCOLOR)

CHOOSE-DIRECTORY (&KEY (INITIALDIR (NAMESTRING *DEFAULT-PATHNAME-DEFAULTS*)) PARENT TITLE MUSTEXIST)

CLIPBOARD-APPEND (TXT)

CLIPBOARD-CLEAR

CLIPBOARD-GET

CREATE-ARC (CANVAS X0 Y0 X1 Y1 &KEY (START 0) (EXTENT 180) (STYLE pieslice))

CREATE-BITMAP (CANVAS X Y &KEY (BITMAP NIL))

CREATE-IMAGE (CANVAS X Y &KEY IMAGE)

CREATE-LINE (CANVAS COORDS)

CREATE-LINE* (CANVAS &REST COORDS)

CREATE-MENU2 (MENUTREE)

CREATE-OVAL (CANVAS X0 Y0 X1 Y1)

CREATE-POLYGON (CANVAS COORDS)

CREATE-RECTANGLE (CANVAS X0 Y0 X1 Y1)

CREATE-TEXT (CANVAS X Y TEXT)

CREATE-WINDOW (CANVAS X Y WIDGET &KEY (ANCHOR NW))

DESTROY (WIDGET)

DO-MSG (MESSAGE &KEY (TITLE ) PARENT)

ENTRY-SELECT (E FROM TO)

SETFEVENT-CHAR (NEW-VALUE INSTANCE)

SETFEVENT-HEIGHT (NEW-VALUE INSTANCE)

SETFEVENT-KEYCODE (NEW-VALUE INSTANCE)

SETFEVENT-MOUSE-BUTTON (NEW-VALUE INSTANCE)

SETFEVENT-ROOT-X (NEW-VALUE INSTANCE)

SETFEVENT-ROOT-Y (NEW-VALUE INSTANCE)

SETFEVENT-WIDTH (NEW-VALUE INSTANCE)

SETFEVENT-X (NEW-VALUE INSTANCE)

SETFEVENT-Y (NEW-VALUE INSTANCE)

EXIT-WISH

FOCUS (WIDGET)

FONT-CONFIGURE (NAME &KEY FAMILY SIZE WEIGHT SLANT UNDERLINE OVERSTRIKE)

FONT-CREATE (NAME &KEY FAMILY SIZE WEIGHT SLANT UNDERLINE OVERSTRIKE)

FONT-DELETE (&REST NAMES)

FONT-FAMILIES

FONT-METRICS (FONT)

FORCE-FOCUS (WIDGET)

GET-OPEN-FILE (&KEY (FILETYPES '((All Files *))) (INITIALDIR (NAMESTRING *DEFAULT-PATHNAME-DEFAULTS*)) MULTIPLE PARENT TITLE)

GET-SAVE-FILE (&KEY (FILETYPES '((All Files *))))

ICONWINDOW (TL WID)

IMAGE-SETPIXEL (IMAGE DATA X Y &OPTIONAL X2 Y2)

INPUT-BOX (PROMPT &KEY (TITLE Input) DEFAULT)

LTKTEST

MAINLOOP (&KEY SERVE-EVENT)

MAKE-CANVAS (MASTER &KEY (WIDTH NIL) (HEIGHT NIL) (XSCROLL NIL) (YSCROLL NIL))

MAKE-IMAGE

MAKE-LINE (CANVAS COORDS)

MAKE-MENU (MENU TEXT &KEY UNDERLINE NAME (TEAROFF 0))

MAKE-MENUBAR (&OPTIONAL (MASTER NIL))

MAKE-MENUBUTTON (MENU TEXT COMMAND &KEY UNDERLINE ACCELERATOR STATE)

MAKE-OVAL (CANVAS X0 Y0 X1 Y1)

MAKE-POLYGON (CANVAS COORDS)

MAKE-RECTANGLE (CANVAS X0 Y0 X1 Y1)

MAKE-SCROLLBAR (MASTER &KEY (ORIENTATION vertical))

MAKE-SCROLLED-CANVAS (MASTER)

MAKE-TEXT (MASTER &KEY (WIDTH NIL) (HEIGHT NIL))

MAKE-TOPLEVEL (MASTER)

MESSAGE-BOX (MESSAGE TITLE TYPE ICON &KEY PARENT)

MOVE-ALL (CANVAS DX DY)

NOTEBOOK-EVENTS

POSTSCRIPT (CANVAS FILENAME &KEY ROTATE PAGEWIDTH PAGEHEIGHT)

SEND-WISH (TEXT)

SET-FOCUS-NEXT (WIDGET NEXT)

START-WISH (&REST KEYS &KEY DEBUGGER-CLASS REMOTEP STREAM DEBUG-TCL)

SETFWISH-STREAM (NEW-VALUE INSTANCE)

SETFWISH-VARIABLES (NEW-VALUE INSTANCE)

Private

ADD-CALLBACK (SYM FUN)

create a callback sym is the name to use for storage, fun is the function to call

CALLBACK (SYM ARG)

perform the call of the function associated with sym and the args arg

CAN-READ (STREAM)

return t, if there is something to READ on the stream

CLOSE-PROCESS-STREAM (STREAM)

Close a 'stream open by 'do-execute.

CONSTRUCT-TK-EVENT (PROPERTIES)

create an event structure from a list of values as read from tk

CREATE-ITEM-COMMAND (CANVAS ITEM STREAM)

Create the tk command string for creating a canvas item according to the item spec. The item spec has the format '(itemtype args @rest) Where itemtype is the type of item to create, args its mandatory arguments and rest any number of option value pairs. Understood item types are: :rectangle x0 y0 y1 y2 :arc x0 y0 y1 y2 :line x0 y0 x1 y1 :text x y text :ctext x y text

CREATE-NAME

create unique widget name, append unique number to 'w'

CREATE-PATH (MASTER NAME)

create pathname from master widget <master> and widget name <name>

DEBUG-SETTING-CONDITION-HANDLER (DEBUG-SETTING)

Given a debug setting (see WITH-LTK for details), return the debugger class to use.

DOWN (STREAM OBJECT COLON AT)

Print OBJECT to STREAM, downcasing unless OBJECT is a string, and giving the path of tkobjects.

GET-COUNTER

incremental counter to create unique numbers

MAIN-ITERATION (&KEY (BLOCKING T) (REENTRANT? NIL))

The heart of the main loop. Returns true as long as the main loop should continue.

MAKE-CALL-WITH-CONDITION-HANDLERS-FUNCTION (HANDLER-CLASS)

Return a function that will call a thunk with the appropriate condition handlers in place.

MAKE-CONDITION-HANDLER-FUNCTION (&KEY (CLASS 'GRAPHICAL-CONDITION-HANDLER) (TITLE Error))

Create a function appropriate for use in a handler-bind.

MAKE-INPUT-HANDLER (WISH)

Return a SERVE-EVENT input handler.

READ-DATA

Read data from wish. Non-data events are postponed, bogus messages (eg. +error-strings) are ignored.

READ-WISH

Reads from wish. If the next thing in the stream is looks like a lisp-list read it as such, otherwise read one line as a string.

TK-NUMBER (NUMBER)

convert number to integer/single float

TK-PRINC (STREAM ARG COLON AT)

Like princ (format ~a), but convert a lisp list to a Tk list.

TRIVIAL-DEBUGGER (CONDITION HOOK)

A function appropriate for *debugger-hook*. It prints a stack trace and exits.

WISH-AFTER-COUNTER (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

WISH-AFTER-IDS (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

WISH-CALL-WITH-CONDITION-HANDLERS-FUNCTION (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

WISH-CALLBACKS (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

WISH-COUNTER (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

WISH-EVENT-QUEUE (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

WISH-INPUT-HANDLER (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

WISH-OUTPUT-BUFFER (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

WISH-REMOTEP (INSTANCE)

@arg[extid]{A @class{extid}} @return[sytemid]{puri:uri or nil} Returns the System ID part of this External ID.

Undocumented

ADD-FD-HANDLER (FD DIRECTION FUNCTION)

BRACE-TKESCAPE (TEXT)

BREAK-MAINLOOP

BUILD-ARGS (CLASS PARENTS DEFS)

CHECK-FOR-ERRORS

CM (TREE WIDGET-PATH)

COMBOTEST

CONVERT (FROM TO)

COPY-EVENT (INSTANCE)

COPY-LTK-CONNECTION (INSTANCE)

DBG (FMT &REST ARGS)

DEBUGGER-TEST (DEBUGGER-CLASS)

DEFWIDGET-TEST

EGGS (RADIO)

ENCODE-BASE-52 (VALUE)

ENSURE-TIMER

ETEST

EVENT-P (OBJECT)

FD-STREAM-FD (STREAM)

FILTER-KEYS (DESIRED-KEYS KEYWORD-ARGUMENTS)

FLUSH-WISH

FORMAT-NUMBER (STREAM NUMBER)

HANDLE-DEAD-STREAM (ERR STREAM)

IARG-CODE (ARG)

IARG-COMMENT (ARG)

IARG-FORMAT (ARG)

IARG-KEY (ARG)

IARG-NAME (ARG)

INIT-TCL (&KEY DEBUG-TCL)

INIT-WISH

INSTALL-INPUT-HANDLER

LTK-CONNECTION-P (OBJECT)

LTK-ERROR (FORMAT &REST ARGS)

LTK-EYES

MAKE-ADJUSTABLE-STRING (&OPTIONAL (STRING ))

MAKE-EVENT (&KEY ((X DUM1462) NIL) ((Y DUM1463) NIL) ((KEYCODE DUM1464) NIL) ((CHAR DUM1465) NIL) ((WIDTH DUM1466) NIL) ((HEIGHT DUM1467) NIL) ((ROOT-X DUM1468) NIL) ((ROOT-Y DUM1469) NIL) ((MOUSE-BUTTON DUM1470) NIL))

NBT2

NBTEST

PACKTEST1

PACKTEST2

PING-ALL-WISHES

PROCESS-COORDS (INPUT)

PROCESS-LAYOUT (LINE PARENT)

PROCESS-ONE-EVENT (EVENT)

READ-ALL (STREAM)

READ-KEYWORD

REMOVE-CALLBACK (SYM)

REMOVE-FD-HANDLER (HANDLER)

REMOVE-INPUT-HANDLER

ROTATE

SCTEST

SENDDATASTRING (TCLCMD ARGS)

SERVE-EVENT

SPLIT (STRING AT)

START-ROTATION

STOP-ROTATION

TCLDEBUG (SOMETHING)

TEST-ROTATION

THEME-NAMES

TKESCAPE (TEXT)

TKESCAPE2 (TEXT)

TREEVIEW-TEST

USE-THEME (NAME)

VERIFY-EVENT (EVENT)

SETFWISH-AFTER-COUNTER (NEW-VALUE INSTANCE)

SETFWISH-AFTER-IDS (NEW-VALUE INSTANCE)

SETFWISH-CALL-WITH-CONDITION-HANDLERS-FUNCTION (NEW-VALUE INSTANCE)

SETFWISH-CALLBACKS (NEW-VALUE INSTANCE)

SETFWISH-COUNTER (NEW-VALUE INSTANCE)

SETFWISH-EVENT-QUEUE (NEW-VALUE INSTANCE)

SETFWISH-INPUT-HANDLER (NEW-VALUE INSTANCE)

SETFWISH-OUTPUT-BUFFER (NEW-VALUE INSTANCE)

SETFWISH-REMOTEP (NEW-VALUE INSTANCE)

WITH-WIDGETS-TEST

MACRO

Public

WITH-LTK ((&REST KEYS &KEY (DEBUG 2) STREAM SERVE-EVENT &ALLOW-OTHER-KEYS) &BODY BODY)

Create a new Ltk connection, evaluate BODY, and enter the main loop. :DEBUG indicates the level of debugging support to provide. It can be a number from 0 to 3, or one of the corresponding keywords: :minimum, :deploy, :develop, or :maximum. If :SERVE-EVENT is non-NIL, Ltk will use SERVE-EVENT handlers instead of a blocking main loop. This is only supported on SBCL and CMUCL. Note that using SERVE-EVENT means that WITH-LTK will return immediately after evaluating BODY. If :STREAM is non-NIL, it should be a two-way stream connected to a running wish. This will be used instead of running a new wish.

Undocumented

DEFARGS (CLASS PARENTS &REST DEFS)

DEFWIDGET (NAMESPEC PARENT SLOTS WIDGETSPECS &REST BODY)

SEND-LAZY (&REST CODE)

WITH-ATOMIC (&REST CODE)

WITH-HOURGLASS (WIDGETS &REST BODY)

WITH-MODAL-TOPLEVEL ((VAR &REST TOPLEVEL-INITARGS) &BODY BODY)

WITH-WIDGETS (LAYOUT &REST BODY)

Private

Undocumented

DEFWRAPPER (CLASS PARENTS SLOTS CMD &REST CODE)

WITH-LTK-HANDLERS (NIL &BODY BODY)

GENERIC-FUNCTION

Public

CURSOR-INDEX (WIDGET)

returns the cursor index in the widget

VALUE (WIDGET)

reads the value of the variable associated with the widget

Undocumented

ADD-PANE (WINDOW WIDGET &REST OPTIONS)

APPEND-TEXT (TXT TEXT &REST TAGS)

BBOX (ITEM)

BIND (W EVENT FUN &KEY APPEND EXCLUSIVE)

CALC-SCROLL-REGION (CANVAS)

CANVASX (CANVAS SCREENX)

CANVASY (CANVAS SCREENY)

CGET (WIDGET OPTION)

CHILDREN (TREE ITEM)

SETFCHILDREN (VAL TREE ITEM)

CLEAR (WIDGET)

CLEAR-TEXT (TXT)

COLUMN-CONFIGURE (TREE COLUMN OPTION VALUE &REST REST)

CONFIGURE (WIDGET OPTION VALUE &REST OTHERS)

COORDS (ITEM)

SETFCOORDS (VAL ITEM)

DEICONIFY (TOPLEVEL)

FORGET-PANE (WINDOW WIDGET)

GEOMETRY (TOPLEVEL)

SETFGEOMETRY (GEOMETRY WIDGET)

GRAB (TOPLEVEL &KEY GLOBAL)

GRAB-RELEASE (TOPLEVEL)

GRID (WIDGET R C &KEY COLUMNSPAN IPADX IPADY PADX PADY ROWSPAN STICKY)

GRID-COLUMNCONFIGURE (WIDGET C O V)

GRID-CONFIGURE (WIDGET O V)

GRID-FORGET (WIDGET)

GRID-ROWCONFIGURE (WIDGET R O V)

ICONIFY (TOPLEVEL)

SETFIMAGE (NEW-VALUE OBJECT)

IMAGE-LOAD (P FILENAME)

INSERT-OBJECT (TXT OBJECT)

ITEMBIND (CANVAS W EVENT FUN)

ITEMCONFIGURE (WIDGET ITEM OPTION VALUE)

ITEMDELETE (CANVAS ITEM)

ITEMLOWER (W I &OPTIONAL BELOW)

ITEMMOVE (CANVAS ITEM DX DY)

ITEMRAISE (W I &OPTIONAL ABOVE)

LISTBOX-APPEND (L VALS)

LISTBOX-CLEAR (L)

LISTBOX-CONFIGURE (L I &REST OPTIONS)

LISTBOX-DELETE (L START &OPTIONAL END)

LISTBOX-GET-SELECTION (L)

LISTBOX-INSERT (L INDEX VALUES)

LISTBOX-NEAREST (LISTBOX Y)

LISTBOX-SELECT (L VAL)

LOAD-TEXT (TXT FILENAME)

LOWER (WIDGET &OPTIONAL OTHER)

MAXSIZE (WIDGET X Y)

MESSAGE (CONDITION)

MINSIZE (WIDGET X Y)

MOVE (ITEM DX DY)

NORMALIZE (TOPLEVEL)

NOTEBOOK-ADD (NB WIDGET &REST OPTIONS)

NOTEBOOK-ENABLE-TRAVERSAL (NB)

NOTEBOOK-FORGET (NB WIDGET)

NOTEBOOK-HIDE (NB TAB)

NOTEBOOK-IDENTIFY (NB X Y)

NOTEBOOK-INDEX (NB TAB)

NOTEBOOK-SELECT (NB TAB)

NOTEBOOK-TAB (NB WIDGET OPTION VALUE)

ON-CLOSE (TOPLEVEL FUN)

ON-FOCUS (TOPLEVEL FUN)

SETFOPTIONS (VALUE WIDGET)

PACK (W &KEY SIDE FILL EXPAND AFTER BEFORE PADX PADY IPADX IPADY ANCHOR (SIDE TOP) (FILL NONE))

PACK-FORGET (WIDGET)

PACK-FORGET-ALL (WIDGET)

PACK-PROPAGATE (WIDGET FLAG)

PANE-CONFIGURE (L I &REST OPTIONS)

PLACE (WIDGET X Y &KEY ANCHOR BORDERMODE WIDTH HEIGHT IN RELHEIGHT RELWIDTH RELX RELY)

PLACE-FORGET (WIDGET)

RAISE (WIDGET &OPTIONAL ABOVE)

RESET-SCROLL (SF)

RESIZABLE (WIDGET X Y)

SASH-COORD (WINDOW INDEX)

SASH-PLACE (WINDOW INDEX POS)

SAVE-TEXT (TXT FILENAME)

SCALE (CANVAS FACTOR &OPTIONAL FACTORY)

SCROLL-TO-TOP (SF)

SCROLLREGION (CANVAS X0 Y0 X1 Y1)

SEARCH-ALL-TEXT (TEXT PATTERN)

SEARCH-NEXT-TEXT (TEXT PATTERN)

SEE (TXT POS)

SET-COORDS (CANVAS ITEM COORDS)

SET-COORDS* (CANVAS ITEM &REST COORDS)

SET-GEOMETRY (TOPLEVEL WIDTH HEIGHT X Y)

SET-GEOMETRY-WH (TOPLEVEL WIDTH HEIGHT)

SET-GEOMETRY-XY (TOPLEVEL X Y)

SET-WM-OVERRIDEREDIRECT (WIDGET VALUE)

TAG-BIND (TXT TAG EVENT FUN)

TAG-CONFIGURE (TXT TAG OPTION VALUE &REST OTHERS)

TAGBIND (CANVAS TAG EVENT FUN &KEY EXCLUSIVE)

TREEVIEW-DELETE (TREE ITEMS)

TREEVIEW-EXISTS (TREE ITEM)

TREEVIEW-FOCUS (TREE)

SETFTREEVIEW-FOCUS (ITEM TREE)

TREEVIEW-GET-SELECTION (W)

TREEVIEW-IDENTIFY-ITEM (TREE X Y)

TREEVIEW-SET-SELECTION (W ITEMS)

SETFVALUE (WIDGET VAL)

WIDGET-PATH (WIDGET)

WISH-VARIABLE (NAME WISH)

SETFWISH-VARIABLE (VAL NAME WISH)

WITHDRAW (TOPLEVEL)

WM-FORGET (WIDGET)

WM-MANAGE (WIDGET)

WM-STATE (WIDGET)

SETFWM-STATE (NEW-STATE WIDGET)

WM-TITLE (WIDGET TITLE)

Private

ABORT-CONDITION-HANDLER (HANDLER)

Get rid of this handler; called, for example, when the user closes the handler's window. A handler basically has two choices here: - Call cl:abort, which will abort the Ltk event that raised this condition. - Throw to ltk:modal-toplevel, which will leave the condition unhandled.

COMPUTE-BUTTONS (HANDLER MASTER)

This method should return a list of buttons (generally for invoking restarts) to be packed.

DESCRIBE-CONDITION (HANDLER)

A text description of the condition, to be presented to the user.

HANDLE-CONDITION-P (HANDLER CONDITION)

Handlers will be asked about all signalled conditions, errors, warnings or otherwise. They may choose to handle or decline them via this method.

REPORT-BUG (HANDLER)

Report this condition as a bug to the developer.

Undocumented

CREATE (W)

ENTRY-TYPED (WIDGET KEYCODE)

FIRSTLINE (WIDGET)

SETFFIRSTLINE (VAL WIDGET)

HANDLE-OUTPUT (KEY PARAMS)

ISHOW (P NAME)

SECONDLINE (WIDGET)

SETFSECONDLINE (VAL WIDGET)

STATE (MENU MENU-LABEL STATE)

TCL-BIND (W EVENT CODE &KEY APPEND EXCLUSIVE)

SLOT-ACCESSOR

Public

TEXT (WIDGET)

The reads the value of the textvariable associated with the widget

SETFTEXT (VAL VARIABLE)

Set the reads the value of the textvariable associated with the widget

Undocumented

CANVAS (W)

SETFCANVAS (NEW-VALUE OBJECT)

COLUMN-VALUES (OBJECT)

SETFCOLUMN-VALUES (NEW-VALUE OBJECT)

COMMAND (WIDGET)

SETFCOMMAND (VALUE WIDGET)

ENTRY (OBJECT)

SETFENTRY (NEW-VALUE OBJECT)

HANDLE (OBJECT)

SETFHANDLE (NEW-VALUE OBJECT)

HSCROLL (OBJECT)

SETFHSCROLL (NEW-VALUE OBJECT)

IMAGE (OBJECT)

INTERIOR (OBJECT)

SETFINTERIOR (NEW-VALUE OBJECT)

ITEMS (OBJECT)

SETFITEMS (NEW-VALUE OBJECT)

LISTBOX (OBJECT)

SETFLISTBOX (NEW-VALUE OBJECT)

MASTER (OBJECT)

SETFMASTER (NEW-VALUE OBJECT)

TEXTBOX (OBJECT)

SETFTEXTBOX (NEW-VALUE OBJECT)

TITLE (OBJECT)

SETFTITLE (NEW-VALUE OBJECT)

TREEVIEW (OBJECT)

SETFTREEVIEW (NEW-VALUE OBJECT)

VSCROLL (OBJECT)

SETFVSCROLL (NEW-VALUE OBJECT)

WIDGET-CLASS-NAME (OBJECT)

SETFWIDGET-CLASS-NAME (NEW-VALUE OBJECT)

Private

DEBUGP (HANDLER)

The Should this handler offer to send the user into the debugger?

SETFDEBUGP (NEW-VALUE OBJECT)

Set the Should this handler offer to send the user into the debugger?

DETAILS-PANE (OBJECT)

The scrolled-text where we display the stacktrace.

SETFDETAILS-PANE (NEW-VALUE OBJECT)

The scrolled-text where we display the stacktrace.

HANDLER-CONDITION (HANDLER)

The An accessor for the condition that this handler is handling. May be nil.

SETFHANDLER-CONDITION (NEW-VALUE OBJECT)

Set the An accessor for the condition that this handler is handling. May be nil.

Undocumented

%WIDGET-PATH (OBJECT)

SETF%WIDGET-PATH (NEW-VALUE OBJECT)

A (OBJECT)

SETFA (NEW-VALUE OBJECT)

B (OBJECT)

SETFB (NEW-VALUE OBJECT)

B1 (OBJECT)

SETFB1 (NEW-VALUE OBJECT)

B2 (OBJECT)

SETFB2 (NEW-VALUE OBJECT)

BU (OBJECT)

SETFBU (NEW-VALUE OBJECT)

C (OBJECT)

SETFC (NEW-VALUE OBJECT)

DATA (OBJECT)

SETFDATA (NEW-VALUE OBJECT)

E (OBJECT)

SETFE (NEW-VALUE OBJECT)

F1 (OBJECT)

SETFF1 (NEW-VALUE OBJECT)

F2 (OBJECT)

SETFF2 (NEW-VALUE OBJECT)

FILE (OBJECT)

SETFFILE (NEW-VALUE OBJECT)

FRAME-CLASS (OBJECT)

SETFFRAME-CLASS (NEW-VALUE OBJECT)

GROUP (OBJECT)

SETFGROUP (NEW-VALUE OBJECT)

INIT-COMMAND (OBJECT)

SETFINIT-COMMAND (NEW-VALUE OBJECT)

LB (OBJECT)

SETFLB (NEW-VALUE OBJECT)

SETFMENU-HELP (NEW-VALUE OBJECT)

MW (OBJECT)

SETFMW (NEW-VALUE OBJECT)

MW2 (OBJECT)

SETFMW2 (NEW-VALUE OBJECT)

NAME (OBJECT)

SETFNAME (NEW-VALUE OBJECT)

NB (OBJECT)

SETFNB (NEW-VALUE OBJECT)

PROTOCOL-DESTROY (OBJECT)

SETFPROTOCOL-DESTROY (NEW-VALUE OBJECT)

RADIO-BUTTON-VALUE (OBJECT)

SETFRADIO-BUTTON-VALUE (NEW-VALUE OBJECT)

RADIO-BUTTON-VARIABLE (OBJECT)

SETFRADIO-BUTTON-VARIABLE (NEW-VALUE OBJECT)

SCROLLREGION-X0 (OBJECT)

SETFSCROLLREGION-X0 (NEW-VALUE OBJECT)

SCROLLREGION-X1 (OBJECT)

SETFSCROLLREGION-X1 (NEW-VALUE OBJECT)

SCROLLREGION-Y0 (OBJECT)

SETFSCROLLREGION-Y0 (NEW-VALUE OBJECT)

SCROLLREGION-Y1 (OBJECT)

SETFSCROLLREGION-Y1 (NEW-VALUE OBJECT)

T1 (OBJECT)

SETFT1 (NEW-VALUE OBJECT)

TAG (OBJECT)

SETFTAG (NEW-VALUE OBJECT)

TREE (OBJECT)

SETFTREE (NEW-VALUE OBJECT)

XSCROLL (OBJECT)

SETFXSCROLL (NEW-VALUE OBJECT)

YSCROLL (OBJECT)

SETFYSCROLL (NEW-VALUE OBJECT)

VARIABLE

Public

*MB-ICONS*

icon names valid for message-box function

*TK*

dummy widget to access the tk root object

*WISH*

The current connection to an inferior wish.

Undocumented

*BREAK-MAINLOOP*

*CURSORS*

*DEBUG-BUFFERS*

*DEBUG-SETTINGS-TABLE*

*DEBUG-TK*

*EXIT-MAINLOOP*

*INIT-WISH-HOOK*

*LTK-VERSION*

*PING-INTERVAL-SECONDS*

*WISH-ARGS*

*WISH-PATHNAME*

Private

*IN-READ-EVENT*

A list of ltk-connection objects that are currently waiting to read an event.

*WISH-CONNECTIONS*

Connections pushed aside by invoking the NEW-WISH restart in START-WISH.

Undocumented

*ANGLE*

*ANGLE2*

*ANGLE3*

*BUFFER-FOR-ATOMIC-OUTPUT*

*CLASS-ARGS*

*DEMO-CANVAS*

*DEMO-LINE*

*DO-ROTATE*

*INITARGS*

*INSIDE-MAINLOOP*

*LTK-PING-TIMER*

*MAX-LINE-LENGTH*

*TRACE-TK*

CLASS

Public

TKOBJECT

Base class for every Tk object

WIDGET

Base class for all widget types

Undocumented

BUTTON

CANVAS (W)

CANVAS-ARC

CANVAS-IMAGE

CANVAS-ITEM

CANVAS-LINE

CANVAS-OVAL

CANVAS-POLYGON

CANVAS-RECTANGLE

CANVAS-TEXT

CANVAS-WINDOW

CHECK-BUTTON

COMBOBOX

ENTRY (OBJECT)

EVENT

FRAME

LABEL

LABELFRAME

LISTBOX (OBJECT)

MESSAGE (CONDITION)

NOTEBOOK

PANED-WINDOW

PHOTO-IMAGE

PROGRESSBAR

RADIO-BUTTON

SCALE (CANVAS FACTOR &OPTIONAL FACTORY)

SCROLLBAR

SCROLLED-CANVAS

SCROLLED-FRAME

SCROLLED-LISTBOX

SCROLLED-TEXT

SCROLLED-TREEVIEW

SEPARATOR

SIZEGRIP

SPINBOX

TEXT (WIDGET)

TOPLEVEL

TREEITEM

TREEVIEW (OBJECT)

Private

Undocumented

CLASSIC-FRAME

GRAPHICAL-CONDITION-HANDLER

LTK-CONDITION-HANDLER

LTK-CONNECTION

NBW

PARANOID-CONDITION-HANDLER

PRODUCTION-CONDITION-HANDLER

TEST-WIDGET

TEST-WIDGET2

TKTEXTVARIABLE

TKVARIABLE

TREEVIEWTEST

CONDITION

Private

Undocumented

LTK-ERROR (FORMAT &REST ARGS)

TK-ERROR