...

original commit: fdd53d529ab4b98f8ba5c0b796a36c393459f75d

collects/embedded-gui/private/program-editor.ss

@@ -25,9 +25,11 @@ is being reset.
    (lib "mred.ss" "mred")
    (lib "etc.ss")
    (lib "class.ss")
+   (lib "framework.ss" "framework")
    "snip-lib.ss")
   
-  (provide program-editor-mixin)
+  (provide program-editor-mixin
+           program-editor%)
   
   (define (program-editor-mixin %)
     (class %
@@ -83,4 +85,7 @@ is being reset.
         (alert-of-modify)
         (super-after-delete start len))
       (super-new)))
+  
+  (define program-editor%
+    (program-editor-mixin color:text%))
   )

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

@@ -19,14 +19,15 @@
   (define (vert/horiz-alignment type)
     (class* object% (alignment<%>)
       
-      (init-field (parent false))
+      (init-field
+       [parent false]
+       [show? true])
       
       (field
        [pasteboard false]
        [children empty]
        [min-width 0]
-       [min-height 0]
-       [show? true])
+       [min-height 0])
       
       ;; need base class for this method
       (define (show/hide-child child show?)