299 updates

original commit: 199634fb88ffc7b953af6fb79e00732d424be6dc

collects/embedded-gui/private/tabbable-text.ss

@@ -22,7 +22,7 @@
        [ahead void]
        [back void])
       
-      ;; get-keymaps (-> (listof keymap%))
+      #;(-> (listof keymap%))
       ;; the list of keymaps associated with this text
       (define/override (get-keymaps)
         (let ([keymap (make-object keymap%)])
@@ -41,7 +41,6 @@
       
       (super-new)))
   
-  
   ;; sets the tabbing of all of the texts in the order of the list
   (define (set-tabbing . l)
     (cond

collects/embedded-gui/private/verthoriz-alignment.ss

@@ -66,7 +66,7 @@
                (send child align (+ x x-offset) (+ y y-offset) w h)]))
           
           (when (and (is-shown?)
-                     (not (empty? children))
+                     (not (empty? children)); this and
                      (not (zero? width))    ; this should be handled by align later
                      (not (zero? height)))  ; this one too
             (for-each move/resize
@@ -170,7 +170,7 @@
   (define horizontal-alignment% (vert/horiz-alignment 'horizontal))
   
   #;((is-a?/c alignment%) . -> . rect?)
-  ;; makes a new default rect out of a snip
+  ;; makes a new default rect out of an alignment
   (define (build-rect item)
     (a:make-rect
      (a:make-dim 0 (send item get-min-width) (send item stretchable-width))