[Euslisp-commit] SF.net SVN: euslisp:[626] trunk/EusLisp/models

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

Revision: 626
          http://sourceforge.net/p/euslisp/code/626
Author:   snozawa
Date:     2013-05-01 04:51:09 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/akiba-desk-object.l
    trunk/EusLisp/models/akiba-tv-desk-object.l
    trunk/EusLisp/models/askul-1200-desk-object.l
    trunk/EusLisp/models/askul-1200x700-desk-object.l
    trunk/EusLisp/models/askul-1400-desk-object.l
    trunk/EusLisp/models/askul-1600-desk-object.l
    trunk/EusLisp/models/askul-2700-desk-object.l
    trunk/EusLisp/models/askul-corner-desk-object.l
    trunk/EusLisp/models/foldable-desk-object.l
    trunk/EusLisp/models/karimoku-1200-desk-object.l
    trunk/EusLisp/models/lion-1800-desk-object.l
    trunk/EusLisp/models/nissen-1100-desk-object.l
    trunk/EusLisp/models/plus-1700-desk-object.l
    trunk/EusLisp/models/plus-1800-desk-object.l
    trunk/EusLisp/models/plus-1800-pdesk-object.l
    trunk/EusLisp/models/plus-1800w-desk-object.l
    trunk/EusLisp/models/plus-2800-desk-object.l
    trunk/EusLisp/models/plus-6200-desk-object.l
    trunk/EusLisp/models/plus-7000-desk-object.l
    trunk/EusLisp/models/plus-900-square-desk-object.l
    trunk/EusLisp/models/sakae-900-desk-object.l
    trunk/EusLisp/models/toyama-900-desk-object.l
    trunk/EusLisp/models/uchida-1000-desk-object.l
    trunk/EusLisp/models/uchida-1500-desk-object.l
    trunk/EusLisp/models/uchida-1800-desk-object.l
    trunk/EusLisp/models/uchida-2400-desk-object.l
    trunk/EusLisp/models/uchida-desk-object.l
    trunk/EusLisp/models/unknown-1200-desk-object.l

Modified: trunk/EusLisp/models/akiba-desk-object.l
===================================================================
--- trunk/EusLisp/models/akiba-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/akiba-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -164,9 +164,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 akiba-desk (&rest args) (instance* akiba-desk-object :init args))

Modified: trunk/EusLisp/models/akiba-tv-desk-object.l
===================================================================
--- trunk/EusLisp/models/akiba-tv-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/akiba-tv-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -173,9 +173,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 akiba-tv-desk (&rest args) (instance* akiba-tv-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 askul-1200-desk (&rest args) (instance* askul-1200-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1200x700-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1200x700-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1200x700-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 askul-1200x700-desk (&rest args) (instance* askul-1200x700-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1400-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1400-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1400-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 askul-1400-desk (&rest args) (instance* askul-1400-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1600-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1600-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1600-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 askul-1600-desk (&rest args) (instance* askul-1600-desk-object :init args))

Modified: trunk/EusLisp/models/askul-2700-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-2700-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-2700-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 askul-2700-desk (&rest args) (instance* askul-2700-desk-object :init args))

Modified: trunk/EusLisp/models/askul-corner-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-corner-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-corner-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -137,9 +137,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 askul-corner-desk (&rest args) (instance* askul-corner-desk-object :init args))

Modified: trunk/EusLisp/models/foldable-desk-object.l
===================================================================
--- trunk/EusLisp/models/foldable-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/foldable-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -289,11 +289,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1))
-  (:handle-rarm () handle0)
-  (:handle-larm () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-rarm (&rest args) (forward-message-to handle0 args))
+  (:handle-larm (&rest args) (forward-message-to handle1 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun foldable-desk (&rest args) (instance* foldable-desk-object :init args))

Modified: trunk/EusLisp/models/karimoku-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/karimoku-1200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/karimoku-1200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -87,9 +87,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 karimoku-1200-desk (&rest args) (instance* karimoku-1200-desk-object :init args))

Modified: trunk/EusLisp/models/lion-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/lion-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/lion-1800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -141,9 +141,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 lion-1800-desk (&rest args) (instance* lion-1800-desk-object :init args))

Modified: trunk/EusLisp/models/nissen-1100-desk-object.l
===================================================================
--- trunk/EusLisp/models/nissen-1100-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/nissen-1100-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -205,9 +205,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 nissen-1100-desk (&rest args) (instance* nissen-1100-desk-object :init args))

Modified: trunk/EusLisp/models/plus-1700-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1700-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1700-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 plus-1700-desk (&rest args) (instance* plus-1700-desk-object :init args))

Modified: trunk/EusLisp/models/plus-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 plus-1800-desk (&rest args) (instance* plus-1800-desk-object :init args))

Modified: trunk/EusLisp/models/plus-1800-pdesk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1800-pdesk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1800-pdesk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -78,9 +78,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 plus-1800-pdesk (&rest args) (instance* plus-1800-pdesk-object :init args))

Modified: trunk/EusLisp/models/plus-1800w-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1800w-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1800w-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 plus-1800w-desk (&rest args) (instance* plus-1800w-desk-object :init args))

Modified: trunk/EusLisp/models/plus-2800-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-2800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-2800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -130,13 +130,13 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1 handle2 handle3))
-  (:handle-handle-l () handle0)
-  (:handle-handle-r () handle1)
-  (:handle-handle-l () handle2)
-  (:handle-handle-r () handle3)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2 handle3) args))
+  (:handle-handle-l (&rest args) (forward-message-to handle0 args))
+  (:handle-handle-r (&rest args) (forward-message-to handle1 args))
+  (:handle-handle-l (&rest args) (forward-message-to handle2 args))
+  (:handle-handle-r (&rest args) (forward-message-to handle3 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun plus-2800-desk (&rest args) (instance* plus-2800-desk-object :init args))

Modified: trunk/EusLisp/models/plus-6200-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-6200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-6200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 plus-6200-desk (&rest args) (instance* plus-6200-desk-object :init args))

Modified: trunk/EusLisp/models/plus-7000-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-7000-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-7000-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 plus-7000-desk (&rest args) (instance* plus-7000-desk-object :init args))

Modified: trunk/EusLisp/models/plus-900-square-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-900-square-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-900-square-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -93,11 +93,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1))
-  (:handle-handle-l () handle0)
-  (:handle-handle-r () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-handle-l (&rest args) (forward-message-to handle0 args))
+  (:handle-handle-r (&rest args) (forward-message-to handle1 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun plus-900-square-desk (&rest args) (instance* plus-900-square-desk-object :init args))

Modified: trunk/EusLisp/models/sakae-900-desk-object.l
===================================================================
--- trunk/EusLisp/models/sakae-900-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/sakae-900-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -216,9 +216,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 sakae-900-desk (&rest args) (instance* sakae-900-desk-object :init args))

Modified: trunk/EusLisp/models/toyama-900-desk-object.l
===================================================================
--- trunk/EusLisp/models/toyama-900-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/toyama-900-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 toyama-900-desk (&rest args) (instance* toyama-900-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-1000-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-1000-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-1000-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -123,9 +123,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 uchida-1000-desk (&rest args) (instance* uchida-1000-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-1500-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-1500-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-1500-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -119,9 +119,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 uchida-1500-desk (&rest args) (instance* uchida-1500-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-1800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -390,9 +390,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 uchida-1800-desk (&rest args) (instance* uchida-1800-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-2400-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-2400-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-2400-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -512,9 +512,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 uchida-2400-desk (&rest args) (instance* uchida-2400-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -105,9 +105,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 uchida-desk (&rest args) (instance* uchida-desk-object :init args))

Modified: trunk/EusLisp/models/unknown-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/unknown-1200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/unknown-1200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -96,9 +96,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 unknown-1200-desk (&rest args) (instance* unknown-1200-desk-object :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.