update for meeting

original commit: d15424ca13af2ca90d7a6b514ed6b68eabe284fc

collects/embedded-gui/embedded-gui.ss

@@ -7,18 +7,21 @@
                (provide (all-from filename) ...))]))
   
   (require/provide
-   "private/grid-alignment.ss"
    "private/aligned-pasteboard.ss"
    "private/interface.ss"
-   "private/snip-lib.ss"
+   "private/verthoriz-alignment.ss"
+   "private/grid-alignment.ss"
+   "private/snip-wrapper.ss"
+   
    "private/button-snip.ss"
+   "private/embedded-message.ss"
+   "private/fixed-width-label-snip.ss"
+   "private/lines.ss"
+   
    "private/stretchable-editor-snip.ss"
    "private/tabbable-text.ss"
-   "private/fixed-width-label-snip.ss"
    "private/grey-editor.ss"
-   "private/verthoriz-alignment.ss"
-   "private/snip-wrapper.ss"
    "private/single-line-text.ss"
-   "private/embedded-message.ss"
-   "private/lines.ss")
+   
+   "private/snip-lib.ss")
   )

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

@@ -1,3 +1,4 @@
+
 (module tabbable-text mzscheme
   
   (require
@@ -8,7 +9,19 @@
    (lib "mred.ss" "mred")
    (lib "contract.ss"))
   
-  (define tabbable-text<%> (interface () set-caret-owner))
+  (define tabbable-text<%>
+    (interface ()
+      #;(-> void)
+      ;; Takes the caret into this text
+      
+      set-caret-owner
+      #;((-> void) . -> . void)
+      ;; The thunk to execute when tabbing ahead
+      set-ahead
+      
+      #;((-> void) . -> . void)
+      ;; The thunk to execute when tabbing back
+      set-back))
   
   (provide/contract
    (tabbable-text<%> interface?)