added some new snips

original commit: 94f51dda132c327d307d686b814482b8ec78c6a4

collects/embedded-gui/private/embedded-message.ss

@@ -0,0 +1,17 @@
+(module embedded-message mzscheme
+  
+  (require
+   (lib "mred.ss" "mred")
+   (lib "class.ss")
+   "snip-wrapper.ss")
+  
+  (provide embedded-message%)
+  
+  (define embedded-message%
+    (class snip-wrapper%
+      
+      (init label)
+      
+      (super-new
+       (snip (make-object string-snip% label)))))
+  )

collects/embedded-gui/private/single-line-text.ss

@@ -0,0 +1,29 @@
+(module single-line-text mzscheme
+  
+  (require
+   (lib "mred.ss" "mred")
+   (lib "framework.ss" "framework")
+   (lib "class.ss"))
+  
+  (provide single-line-text-mixin)
+  
+  (define single-line-text-mixin
+    (mixin (editor:keymap<%>) ()
+      #;(-> (listof keymap%))
+      ;; the list of keymaps associated with this text
+      (rename [super-get-keymaps get-keymaps])
+      (define/override (get-keymaps)
+        (let ([keymap (make-object keymap%)])
+          (send keymap add-function "do nothing" void)
+          (send keymap map-function ":enter" "do nothing")
+          (cons keymap (super-get-keymaps))))
+      (super-new)))
+  
+  #|
+  (define f (new frame% (label "f")))
+  (define e (new text%))
+  (define c (new editor-canvas% (editor e) (parent f)))
+  (send e insert (new editor-snip% (editor (new (single-line-text-mixin scheme:text%)))))
+  (send f show #t)
+  |#
+  )