drs bug and test-suite fixes

svn: r9709

original commit: 860c41d7492a33880f9c18839c21a601d675e5b8

collects/mrlib/scribblings/switchable-button.scrbl

@@ -1,6 +1,6 @@
 #lang scribble/doc
 @(require "common.ss"
-          (for-label mrlib/name-message))
+          (for-label mrlib/switchable-button))
 
 @title{Switchable Button}
 
@@ -30,5 +30,10 @@ If it is not supplied, both modes show the same bitmap.
 @defmethod[(set-label-visible [visible? boolean?]) void?]{
   Sets the visibility of the string part of the label.
 }
+
+@defmethod[(command) void?]{
+
+Calls the button's callback function.}
+
 }
 

collects/mrlib/switchable-button.ss

@@ -97,6 +97,10 @@
         [(send evt moving?)
          (update-in evt)]))
 
+    (define/public (command)
+      (callback this)
+      (void))
+    
     (define float-window #f)
     (inherit get-width get-height)
     (define timer (new timer% 
@@ -234,7 +238,7 @@
         (min-width (+ w w-circle-space margin margin))
         (min-height (+ h h-circle-space margin margin))))
     
-    (super-new [style '(transparent)])
+    (super-new [style '(transparent no-focus)])
     (send (get-dc) set-smoothing 'aligned)
     
     (inherit stretchable-width stretchable-height)