Common Lisp Package: CL-TK

README:

FUNCTION

Public

Undocumented

ALIVE-P

CLEAR-EVENTS (SNAPSHOT)

DESTROY

DOEVENT (&OPTIONAL BLOCK)

DOEVENTS

EVENT-HANDLER (FUNC &OPTIONAL (FIELDS NIL))

EVENT-SNAPSHOT

LIT (VAL)

MAINLOOP

TCL (COMMAND &REST ARGS)

TCL-ERROR (CONTROL &REST ARGS)

TCL-ESCAPE (STR)

TCL[ (COMMAND &REST ARGS)

TCL{ (COMMAND &REST ARGS)

TOPLEVEL-TK (&OPTIONAL BACK-END)

UNREGISTER-EVENT (ID)

WNAME (NAME &OPTIONAL ID)

WNAME-CAR (NAME)

WNAME-CDR (NAME)

WNAME-CONS (NAME BASE)

Private

LITERAL-STRING-VAL (INSTANCE)

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

Undocumented

COPY-LITERAL-STRING (INSTANCE)

CREATE-INTERP

DELETE-INTERP (INTERP)

DO-ONE-EVENT (FLAGS)

GET-STRING-RESULT (INTERP)

HANDLE-EVENT (TK ID ARGS)

INPUT-PENDING-P (STREAM)

LITERAL-STRING-P (OBJECT)

SETFLITERAL-STRING-VAL (NEW-VALUE INSTANCE)

LOAD-LIBS

NULL-POINTER-P (PTR)

READ-WISH-MESSAGE (STREAM &OPTIONAL TYPE)

REGISTER-EVENT (HANDLER)

START-TK (&OPTIONAL BACK-END)

TCL-EVAL (INTERP SCRIPT)

TCL-FORM (VAL)

TCL-INIT (INTERP)

TK-INIT (INTERP)

TRY-WISH-BINARIES (BINARIES)

WISH-STREAM (BINARY-NAME)

MACRO

Public

BIND-EVENT (TAG EVENT (&REST FIELDS) &BODY BODY)

For example (bind-event "." "<1>" ((x #x) (y #y)) (format t "clicked ~a,~a" x y))

Undocumented

EVENT-HANDLER* (&BODY BODY)

WITH-LOCAL-EVENTS (&BODY BODY)

WITH-TK ((&OPTIONAL BACK-END) &BODY BODY)

WITH-WNAME (NAME &BODY BODY)

GENERIC-FUNCTION

Private

Undocumented

TCL-SEND (TK COMMAND &OPTIONAL GET-RESULT)

TK-ALIVE-P (TK)

TK-DESTROY (TK)

TK-DOEVENT (TK &OPTIONAL BLOCK)

SLOT-ACCESSOR

Private

Undocumented

@ALIVE (OBJECT)

SETF@ALIVE (NEW-VALUE OBJECT)

@BINARY (OBJECT)

@INTERP (OBJECT)

@NEXT-ID (OBJECT)

SETF@NEXT-ID (NEW-VALUE OBJECT)

@QUEUE (OBJECT)

SETF@QUEUE (NEW-VALUE OBJECT)

@STREAM (OBJECT)

@TABLE (OBJECT)

VARIABLE

Public

Undocumented

*WNAME*

CLASS

Public

Undocumented

FFI-TK

WISH-TK

Private

Undocumented

LITERAL-STRING

TK

CONDITION

Public

Undocumented

TCL-ERROR (CONTROL &REST ARGS)

CONSTANT

Private

Undocumented

+TCL-DONT-WAIT+

+TCL-ERROR+

+TCL-OK+