<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">What called my attention to PLT scheme was its editor, and unicode processing facilities.&nbsp; I am a very poor writer. Therefore, since I know Ancient Greek, my teachers suggested reading and translating Homer to improve my writing skills. Homer wrote in a kind of language that has many similarities with Ancient Greek. The first step was to write an editor to deal with Homer's language (there aren't many of them around, you know :-) I tried to write the editor in Clean. However, Clean does not deal with Unicode strings at all. I switched to Bigloo. Although Bigloo has tools&nbsp; to work with unicode, these tools are awkward, and I failed. <br><br>To my surprise, PLT worked almost flawlessly with the Homeric text. I mean,&nbsp; the IDE didn't work correctly, but the resulting program is almost perfect. Interesting enough, the only charcter that the editor
 does not renders well is ... lambda, the symbol of functional programming.&nbsp; Below, you will find a simplified version of the module that produces a latex document from a unicode edition of the Odyssey (www.perseus.tufts..edu). Here are the first two lines of the Odyssey, with latex produced by the program:<br><br>ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ<br>πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν:<br><br>&gt;'andra moi &gt;'ennepe, mo\~usa, pol'utropon, &lt;`oc m'ala poll`a\\<br>pl'agqjh, &gt;epe`i Tro'ihc &lt;ier`on ptol'iejron &gt;'epersen;<br><br><br><br><br>(module greekfilter scheme/gui<br>&nbsp;&nbsp; <br>&nbsp; (define (geragreek b n)<br>&nbsp;&nbsp;&nbsp; (cond ( (&lt; n 1) '())<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ( (cons (list b (list-&gt;string
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (list(integer-&gt;char b))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (geragreek (+ b 1) (- n 1))))))<br>&nbsp; <br>&nbsp; (define (gb b n)<br>&nbsp;&nbsp;&nbsp; (geragreek b n))<br>&nbsp; <br>&nbsp; (define gcod<br>&nbsp;&nbsp;&nbsp;&nbsp; '( <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (913 "A") (914 "B") (915 "G") (916 "D")(917 "E")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (918 "Z") (919 "H") (920 "J") (921 "I") (922 "K")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (923 "L") (924 "M") (925 "N") (926 "X") (927 "O")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (928 "P") (929 "R") (931 "S") (932 "T") (933 "U")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (934 "F") (935 "X") (936 "Y") (937
 "W")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (945 "a") (946 "b") (947 "g") (948 "d") (949 "e")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (950 "z") (951 "h") (952 "j") (953 "i") (954 "k")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (955 "l") (956 "m") (957 "n") (958 "x") (959 "o")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (960 "p") (961 "r") (962 "c") (963 "s") (964 "t")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (965 "u") (966 "f") (967 "q") (968 "y") (969 "w")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; ἀἁἂἃ ἄἅἆἇ ἈἉἊἋ ἌἍἎἏ <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7936 "&gt;a") (7937 "&lt;a") (7938 "&gt;`a") (7939 "&lt;`a")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7940 "&gt;'a") (7941 "&lt;'a") (7942 "{\\char 146}") <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7943 "\\char 145")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7944 "&gt;A") (7945 "&lt;A") (7946 "&gt;`A") (7947
 "&lt;'A")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7948 "&gt;'A") (7949 "&lt;'A") (7950 "\\~&gt;A") (7951 "\\~&lt;A")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; ἐἑἒ ἓἔἕ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7952 "&gt;e") (7953 "&lt;e") (7954 "&gt;`e") <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7955 "&lt;`e") (7956 "&gt;'e") (7957 "&lt;'e")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; ἘἙἚ&nbsp; ἛἜἝ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7960 "&gt;E") (7961 "&lt;E") (7962 "&gt;`E")&nbsp; (7963 "&lt;`E") (7964 "&gt;'E") (7965 "&lt;'E")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; ἠἡἢἣ ἤἥἦἧ ἨἩἪἫ ἬἭἮἯ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7968 "&gt;h") (7969 "&lt;h") (7970 "&gt;`h") (7971 "&lt;`h")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7972 "&gt;'h") (7973 "&lt;'h") (7974 "{\\ese}") (7975
 "{\\hee}")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7976 "&gt;H") (7977 "&lt;H") (7978 "&gt;`H") (7979 "&lt;`H")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7980 "&gt;'H") (7981 "&lt;'H") (7982 "\\~&gt;H") <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7983 "\\~&lt;H")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8032 "&gt;w") (8033 "&lt;w") (8034 "&gt;`w") (8035 "&lt;`w")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8036 "&gt;'w") (8037 "&lt;'w") (8038 "{\\w}")&nbsp; (8039 "{\\hw}")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8040 "&gt;W") (8041 "&lt;W") (8042 "&gt;`W")&nbsp; (8043 "&lt;`W")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8044 "&gt;'W") (8045 "&lt;'W") (8046 "\\~&gt;W") (8047 "\\~&lt;W")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8000 "&gt;o") (8001 "&lt;o") (8002 "&gt;`o") (8003 "&lt;`o")(8004 "&gt;'o")(8005 "&lt;'o")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 (8008 "&gt;O")(8009 "&lt;O") (8010 "&gt;`O") (8011 "&lt;`O") (8012 "&gt;'O") (8013 "&lt;'O")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8016 "&gt;u") (8017 "&lt;u") (8018 "&gt;`u") (8019 "&lt;`u") (8020 "&gt;'u") (8021 "&lt;'u")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8022 "{\\usu}") (8023 "{\\huu}") (8025 "&lt;U")(8027 "&lt;`U")(8029 "&lt;'U")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8031 "\\~&lt;U") (8160 "\\u u") (8161 "\\=u")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8162 "`u"); ῢ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8163 "'u"); ΰ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8164 "&gt;r") (8165 "&lt;r") (8166 "\\~u")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8167 "\\~u") ;ῧ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8168 "U") ; Ῠ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8169 "U") ; Ῡ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8170 "`U")
 (8171 "'U") (8172 "&lt;R") (8048 "`a") (8049 "'a") (8050 "`e")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8051 "'e") (8052 "`h") (8053 "'h") (8054 "`i") (8055 "'i") (8056 "`o")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8057 "'o") (8058 "`u") (8059 "'u") (8060 "`w") (8061 "'w") (7984 "&gt;i")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7985 "&lt;i") (7986 "&gt;`i") (7987 "&lt;`i") (7988 "&gt;'i")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7989 "&lt;'i") (7990 "{\\ii}")&nbsp; (7991 "{\\hii}") (7992 "&gt;I")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7993 "&lt;I") (7994 "&gt;`I")&nbsp; (7995 "&lt;`I") (7996 "&gt;'I")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (7997 "&lt;'I") (7998 "\\~&gt;") (7999 "\\~&lt;") (8125 "\\e")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8178 "`w|") (8179 "w|") (8180 "'w|")&nbsp;&nbsp; (8182 "\\~w")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8183 "{\\wi}")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 (8184 "`O")&nbsp; (8185 "'O")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8186 "`W")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8187 "'W")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8188 "Wi")&nbsp; (8128 "\\~")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8130 "`h|")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8131 "h|")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8132 "'h|") &nbsp; (8134 "\\~h") (8135 "{\\eei}")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8136 "`E") (8137 "'E") (8138 "`H") (8139 "'H")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8140 "Hi") (8141 "{&gt;`}") (8142 "{&gt;'}") &nbsp; (8143 "\\~&gt;") (8144 "{\\u i}")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8145 "{\\=i}")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8146 "`i") ;;ῒ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8147 "'i") ;;ΐ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8150
 "\\~i")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8151 "\\~i") ;;ῗ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8152 "I")&nbsp; ;;Ῐ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8153 "\\=I") ;;Ῑ<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8154 "`I") (8155 "'I")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8220 "{\\oq}") (8221 "{\\cq}")&nbsp; (8064 "&gt;a|") (8065 "&lt;a|")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8066 "&gt;`a|") (8067 "&lt;`a|") (8068 "&gt;'a|") (8069 "&lt;'a|")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8070 "{\\char 150}") (8071 "{\\char 149}")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8080 "&gt;h|") (8081 "&lt;h|")&nbsp; (8082 "&gt;`h|") (8083 "&lt;`h|")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8084 "&gt;'h|") (8085 "&lt;'h|")&nbsp; (8086 "{\\esei}") (8087 "{\\heei}")<br>&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8096 "&gt;w|") (8097 "&lt;w|") &nbsp; (8098 "&gt;`w|") (8099
 "&lt;`w|")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8100 "&gt;'w|") (8101 "&lt;'w|")&nbsp; (8102 "{\\wswi}") (8103 "{\\hwi}")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8104 "&gt;Wi") (8105 "&lt;Wi")&nbsp; (8106 "&gt;`Wi") (8107 "&lt;`Wi")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8108 "&gt;'Wi") (8109 "&lt;'Wi")&nbsp; (8110 "\\~&gt;Wi") (8111 "\\~&lt;Wi")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8112 "\\u a") (8113 "\\=a") (8114 "`a|") (8115 "a|")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8116 "'a|") (8118 "\\~a")&nbsp; (8119 "{\\ai")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8122 "`A") (8123 "'A")&nbsp;&nbsp; (970 "{\\\"i}")<br>&nbsp;&nbsp;&nbsp;&nbsp; )<br>&nbsp; )<br>&nbsp; <br>&nbsp; (define (convert1 c)<br>&nbsp;&nbsp;&nbsp; (cond ( (equal? c #\newline) "\\\\\n")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ( (equal? c #\:) ";")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ( (&lt;
 (char-&gt;integer c) 255) c)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (else (let ((x (assoc (char-&gt;integer c) gcod)))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if x (cadr x) "*")))&nbsp; ))<br>&nbsp; <br>&nbsp; (define diálogo <br>&nbsp;&nbsp;&nbsp; (new dialog% (label "GreekFilter")))<br>&nbsp;<br>&nbsp; (define txt<br>&nbsp;&nbsp;&nbsp; (new text%))<br>&nbsp; <br>&nbsp; (define edtxt<br>&nbsp;&nbsp;&nbsp; (new editor-canvas% [parent diálogo]<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [editor txt]<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (min-height 200)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (min-width 500)))<br>&nbsp; <br>&nbsp; (define painel (new horizontal-panel% [parent diálogo] <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 (alignment '(center center))))<br>&nbsp; <br>&nbsp; (define pasteButton<br>&nbsp;&nbsp;&nbsp; (new button% [parent painel] (label "Paste")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (callback (lambda(b e) (send txt paste )))))<br><br>&nbsp; (define cpyButton<br>&nbsp;&nbsp;&nbsp; (new button% [parent painel] (label "Cut")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (callback (lambda(b e) (send txt cut )))))<br><br>&nbsp; (define (convert b e)<br>&nbsp;&nbsp;&nbsp;&nbsp; (send txt insert<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (with-output-to-string <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (lambda()<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (let ((s (send txt get-text)))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (newline)(newline)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (do ( (i 0 (+ i
 1)))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ( (&gt;= i (string-length s)))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (display (convert1 (string-ref s i)))))))))<br>&nbsp; <br>&nbsp; (define prtFirst<br>&nbsp;&nbsp;&nbsp; (new button% [parent painel] (label "2TEX")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (callback convert)))<br>&nbsp; <br>&nbsp; (send diálogo show #t) <br>)<br><br><br><br><br><br>--- On <b>Sat, 7/4/09, Matthew Flatt <i>&lt;mflatt@cs.utah.edu&gt;</i></b> wrote:<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>From: Matthew Flatt &lt;mflatt@cs.utah.edu&gt;<br>Subject: Re: [plt-scheme] GUI editor simple example<br>To: "Hugh Myers" &lt;hsmyers@gmail.com&gt;<br>Cc: plt-scheme@list.cs.brown.edu<br>Received: Saturday, July 4, 2009, 7:47 AM<br><br><div class="plainMail">At Sat,
 4 Jul 2009 01:44:42 -0600, Hugh Myers wrote:<br>&gt; Given:<br>&gt; <br>&gt; (define f (new frame% [label "Simple Edit"]<br>&gt;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp;[width 200]<br>&gt;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp;[height 200]))<br>&gt;&nbsp;&nbsp;&nbsp;(define c (new editor-canvas% [parent f]))<br>&gt;&nbsp;&nbsp;&nbsp;(define t (new text%))<br>&gt;&nbsp;&nbsp;&nbsp;(send c set-editor t)<br>&gt; <br>&gt; How do I control the initial font?<br><br>Setting the font is more complicated than it should be. You have to<br>create a `style-delta%' (which has a poor API), and then apply the<br>style delta with `change-style'.<br><br>For example, to change the font to size 20:<br><br> (send t change-style (make-object style-delta% 'change-size 20))<br><br>To set the font to "Times":<br><br> (send t change-style (send (make-object
 style-delta%)<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set-delta-face "Times"))<br><br>&gt; How do I insert a line of text? <br><br>(send t insert "Hello\n")<br><br>&gt; Lines?<br><br>(send t insert "Hello\n")<br>(send t insert "Goodbye\n")<br><br>_________________________________________________<br>&nbsp; For list-related administrative tasks:<br>&nbsp; <a href="http://list.cs.brown.edu/mailman/listinfo/plt-scheme" target="_blank">http://list.cs.brown.edu/mailman/listinfo/plt-scheme</a><br></div></blockquote></td></tr></table><br>
      <hr size=1>Be smarter than spam. See how smart SpamGuard is at giving junk email the boot with the <a href="http://ca.promos.yahoo.com/newmail/overview2/"><b>All-new Yahoo! Mail </b></a>