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

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

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

Modified Paths:
--------------
    trunk/EusLisp/models/room73a3-73a3-ground-object.l
    trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l
    trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l
    trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l
    trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l
    trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l
    trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l
    trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l
    trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l
    trunk/EusLisp/models/room73a3-clock-object.l
    trunk/EusLisp/models/room73a3-door-right-object.l
    trunk/EusLisp/models/room73a3-officeprinter-object.l
    trunk/EusLisp/models/room73a3-plus-830-locker-object.l
    trunk/EusLisp/models/room73a3-shelf-0-object.l
    trunk/EusLisp/models/room73a3-shelf-1-object.l
    trunk/EusLisp/models/room73a3-shelf-2-object.l
    trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l
    trunk/EusLisp/models/room73a3-village-chair-0-object.l
    trunk/EusLisp/models/room73a3-village-chair-1-object.l
    trunk/EusLisp/models/room73a3-village-chair-2-object.l
    trunk/EusLisp/models/room73a3-village-chair-3-object.l
    trunk/EusLisp/models/room73a3-village-chair-4-object.l
    trunk/EusLisp/models/room73a3-village-chair-5-object.l

Modified: trunk/EusLisp/models/room73a3-73a3-ground-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-73a3-ground-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-73a3-ground-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -53,9 +53,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 room73a3-73a3-ground (&rest args) (instance* room73a3-73a3-ground-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1200x700-desk-0 (&rest args) (instance* room73a3-askul-1200x700-desk-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1200x700-desk-1 (&rest args) (instance* room73a3-askul-1200x700-desk-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1400-desk-0 (&rest args) (instance* room73a3-askul-1400-desk-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1400-desk-1 (&rest args) (instance* room73a3-askul-1400-desk-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1400-desk-2 (&rest args) (instance* room73a3-askul-1400-desk-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1600-desk-0 (&rest args) (instance* room73a3-askul-1600-desk-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1600-desk-1 (&rest args) (instance* room73a3-askul-1600-desk-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1600-desk-2 (&rest args) (instance* room73a3-askul-1600-desk-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -232,10 +232,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-bariera-1400-middle-0 (&rest args) (instance* room73a3-bariera-1400-middle-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -232,10 +232,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-bariera-1400-middle-1 (&rest args) (instance* room73a3-bariera-1400-middle-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -232,10 +232,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-bariera-1400-middle-2 (&rest args) (instance* room73a3-bariera-1400-middle-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -232,10 +232,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-bariera-1400-middle-3 (&rest args) (instance* room73a3-bariera-1400-middle-3-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -232,10 +232,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-bariera-1400-middle-4 (&rest args) (instance* room73a3-bariera-1400-middle-4-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -232,10 +232,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-bariera-1400-middle-5 (&rest args) (instance* room73a3-bariera-1400-middle-5-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -232,10 +232,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-bariera-1400-middle-6 (&rest args) (instance* room73a3-bariera-1400-middle-6-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -232,10 +232,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-bariera-1400-middle-7 (&rest args) (instance* room73a3-bariera-1400-middle-7-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -232,10 +232,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-bariera-1400-middle-8 (&rest args) (instance* room73a3-bariera-1400-middle-8-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -232,10 +232,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-bariera-1400-middle-9 (&rest args) (instance* room73a3-bariera-1400-middle-9-object :init args))

Modified: trunk/EusLisp/models/room73a3-clock-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-clock-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-clock-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -280,9 +280,9 @@
   (:hour-joint (&rest args) (forward-message-to joint0 args))
   (:minute-joint (&rest args) (forward-message-to joint1 args))
   (:second-joint (&rest args) (forward-message-to joint2 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 room73a3-clock (&rest args) (instance* room73a3-clock-object :init args))

Modified: trunk/EusLisp/models/room73a3-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-door-right-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-door-right-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -301,12 +301,12 @@
   (:door (&rest args) (forward-message-to joint0 args))
   (:knob (&rest args) (forward-message-to joint1 args))
   (:lock (&rest args) (forward-message-to joint2 args))
-  (:handle () (list  handle0 handle1 handle2))
-  (:handle-rear-knob () handle0)
-  (:handle-front-knob () handle1)
-  (:handle-lock () handle2)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2) args))
+  (:handle-rear-knob (&rest args) (forward-message-to handle0 args))
+  (:handle-front-knob (&rest args) (forward-message-to handle1 args))
+  (:handle-lock (&rest args) (forward-message-to handle2 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-door-right (&rest args) (instance* room73a3-door-right-object :init args))

Modified: trunk/EusLisp/models/room73a3-officeprinter-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-officeprinter-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-officeprinter-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -264,9 +264,9 @@
    (forward-message-to-all (list) args))
 
   (:joint0 (&rest args) (forward-message-to joint0 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 room73a3-officeprinter (&rest args) (instance* room73a3-officeprinter-object :init args))

Modified: trunk/EusLisp/models/room73a3-plus-830-locker-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-plus-830-locker-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-plus-830-locker-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -206,10 +206,10 @@
 
   (:door-left (&rest args) (forward-message-to joint0 args))
   (:door-right (&rest args) (forward-message-to joint1 args))
-  (:handle () (list  handle0))
-  (:handle-door-handle () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-plus-830-locker (&rest args) (instance* room73a3-plus-830-locker-object :init args))

Modified: trunk/EusLisp/models/room73a3-shelf-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-shelf-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-shelf-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -110,10 +110,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-shelf-0 (&rest args) (instance* room73a3-shelf-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-shelf-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-shelf-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-shelf-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -119,10 +119,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-shelf-1 (&rest args) (instance* room73a3-shelf-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-shelf-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-shelf-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-shelf-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -119,10 +119,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-handle0 () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun room73a3-shelf-2 (&rest args) (instance* room73a3-shelf-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-unknown-1200-desk (&rest args) (instance* room73a3-unknown-1200-desk-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1))
-  (:handle-larm () handle0)
-  (:handle-rarm () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-larm (&rest args) (forward-message-to handle0 args))
+  (:handle-rarm (&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 room73a3-village-chair-0 (&rest args) (instance* room73a3-village-chair-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1))
-  (:handle-larm () handle0)
-  (:handle-rarm () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-larm (&rest args) (forward-message-to handle0 args))
+  (:handle-rarm (&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 room73a3-village-chair-1 (&rest args) (instance* room73a3-village-chair-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1))
-  (:handle-larm () handle0)
-  (:handle-rarm () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-larm (&rest args) (forward-message-to handle0 args))
+  (:handle-rarm (&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 room73a3-village-chair-2 (&rest args) (instance* room73a3-village-chair-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-3-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-3-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-3-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1))
-  (:handle-larm () handle0)
-  (:handle-rarm () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-larm (&rest args) (forward-message-to handle0 args))
+  (:handle-rarm (&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 room73a3-village-chair-3 (&rest args) (instance* room73a3-village-chair-3-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-4-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-4-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-4-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1))
-  (:handle-larm () handle0)
-  (:handle-rarm () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-larm (&rest args) (forward-message-to handle0 args))
+  (:handle-rarm (&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 room73a3-village-chair-4 (&rest args) (instance* room73a3-village-chair-4-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-5-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-5-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-5-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1))
-  (:handle-larm () handle0)
-  (:handle-rarm () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-larm (&rest args) (forward-message-to handle0 args))
+  (:handle-rarm (&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 room73a3-village-chair-5 (&rest args) (instance* room73a3-village-chair-5-object :init args))

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