[cells-cvs] CVS Celtk

[fgoenninger]

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