Changeset tag,last-working,10 for tag/last-working/cdk.lisp

Timestamp:

10/18/2007 03:19:37 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071018151937-126h3altfrx96ahq

Message:

Changed drawing once again, to place cursor at end of entry.
Added parameters to control drawing style.
Made a nice constructor.
Exported symbols.

File:

• tag/last-working/cdk.lisp (modified) (1 diff)

tag/last-working/cdk.lisp

@@ -132 +132 @@
     (move-and-add-char window y (+ x i) (aref s i))))
 
+(defcfun ("wmove" c-wmove) :int
+  (window :pointer)
+  (y :int)
+  (x :int))
+
 (defcfun ("wrefresh" c-refresh-window) :int
   (window :pointer))