Revision: 619
http://sourceforge.net/p/euslisp/code/619
Author: snozawa
Date: 2013-05-01 04:33:15 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket
Modified Paths:
--------------
trunk/EusLisp/models/desk-object.l
Modified: trunk/EusLisp/models/desk-object.l
===================================================================
--- trunk/EusLisp/models/desk-object.l 2013-04-22 15:02:00 UTC (rev 618)
+++ trunk/EusLisp/models/desk-object.l 2013-05-01 04:33:15 UTC (rev 619)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun desk (&rest args) (instance* desk-object :init args))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
