Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv7782 Modified Files: fileevent.lisp Log Message: Changed: handle tile? for fileevent. --- /project/cells/cvsroot/Celtk/fileevent.lisp 2006/11/04 20:53:08 1.9 +++ /project/cells/cvsroot/Celtk/fileevent.lisp 2008/04/17 16:13:05 1.10 @@ -21,7 +21,7 @@ ;;; DEALINGS IN THE SOFTWARE. ;;; ;;; --------------------------------------------------------------------------- -;;; $Header: /project/cells/cvsroot/Celtk/fileevent.lisp,v 1.9 2006/11/04 20:53:08 ktilton Exp $ +;;; $Header: /project/cells/cvsroot/Celtk/fileevent.lisp,v 1.10 2008/04/17 16:13:05 fgoenninger Exp $ ;;; --------------------------------------------------------------------------- ;;; =========================================================================== @@ -44,8 +44,7 @@ ;;; TK-FILEEVENT MODEL ;;; =========================================================================== -(defmodel tk-fileevent (widget) - +(defmodel tk-fileevent (window) ((.md-name :accessor id :initarg :id :initform (c-in nil) @@ -145,8 +144,8 @@ (:default-initargs :id (gensym "tk-fileevent-") - :eof-fn 'default-eof-fn)) - + :eof-fn 'default-eof-fn + :tile? nil)) ;;; =========================================================================== ;;; CELL RULE: FILE-EVENT/OPCODE @@ -564,7 +563,7 @@ (mk-fileevent :id :fileevent-test :read-fn 'USRF :iostream (c-in - (open "/Users/frgo/dribble.lisp" + (open "/dev/cu.usbserial" ;;; Adapt here !!! ^^^^^^^^^^^^^^^^^^^^^^^^^^^ :direction :input))))))) @@ -574,5 +573,4 @@ (test-window 'fileevent-test-window) (trc "-----------------------------------------------------------------------------")) -#+test -(test-window 'fileevent-test-window) \ No newline at end of file +#+test (test-window 'fileevent-test-window) \ No newline at end of file