simple-log integration

utils.rkt

@@ -3,6 +3,7 @@
 (require racket/gui
          xml
          xml/xexpr
+         simple-log
          )
 
 (provide ww-connect
@@ -11,9 +12,17 @@
          simple-row-formatter
          while
          open-file-manager
+         dbg-rktplayer
+         err-rktplayer
+         info-rktplayer
+         warn-rktplayer
+         fatal-rktplayer
+         (all-from-out simple-log)
          )
 
 
+(sl-def-log rktplayer)
+
  (define-syntax while
     (syntax-rules ()
       ((_ cond body ...)
@@ -31,12 +40,15 @@
 (define-syntax ww-connect 
   (syntax-rules (this)
     ((_ id method)
-     (send (send this element id) connect 'click (λ (data) (send this method)))
+     (begin
+       (send this bind! id 'click
+             (λ (el evt data)
+               (send this method)))
+       (send this element id))
      )
     )
   )
 
-
 (define (make-delayed-reactor seconds closure)
   (let* ((last-val #f)
          (last-time -1)
@@ -67,6 +79,8 @@
              (append (list 'tr (list (list 'id (format "~a" row-id))))
                      (row-formatter (cdr row)))))
          l)
+    ; Add one empty tr
+    (list (list 'tr (list (list 'class "unresponsive"))))
     )
    )
   )