[Euslisp-commit] SF.net SVN: euslisp:[619] trunk/EusLisp/models/desk-object.l

[<sn...@us...>]

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.