get-selection-as-ref for id-output

part of darcs patch Fri Sep 16 23:02:04 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>

scheme/nuit-packages.scm

@@ -161,6 +161,7 @@
         plugin
         layout
         select-list
+        (subset focus-table (make-focus-object-reference))
         tty-debug)
   (files user-group-info))
   

scheme/user-group-info.scm

@@ -129,6 +129,19 @@
              prepare-selection-for-command-mode)
          infos)))
 
+    (define (get-selection-as-ref self focus-object-table)
+      (let ((infos (select-list-get-selection selection-list))
+            (make-reference (lambda (obj)
+				(make-focus-object-reference 
+				 focus-object-table obj))))
+        (string-append
+         "(list "
+         (string-join 
+          (map exp->string
+               (map make-reference 
+                    (map cdr infos))))
+         ")")))
+
     (lambda (message)
       (case message
         ((paint)
@@ -166,7 +179,8 @@
              self))))
         ((get-selection-as-text)
          get-selection-as-text)
-           
+        ((get-selection-as-ref)
+         get-selection-as-ref)
         (else
          (error "unknown message in make-id-output-browser" 
                 message))))))