Applet Demos

• Menus and an "aboutwin"
• Writing to textareas: An IM robot doctor
• Using arithemtic: A simple years->seconds calculator
• Using a choice component

• Demo1: menus and the aboutwin:

  run it or view it

  "Demo1" "Tim Hickey" "website" "A simple demo" "no-image" (begin (jlib.JLIB.load) (define aboutwin (window "about" (textarea 10 40 yellow (TimesRomanPlain 18) " This was written by Tim Hickey in Aut2001\n to illustrate menus and windows. "))) (define win (window "test" yellow (HelveticaBold 18) (menubar (menu "File" (menuitem "quit" (action (lambda(e) (.hide win))))) (menu "Fun" (menu "Knock Knock" (menu "who's there" (menu "Ida" (menu "Ida who?" (menuitem "I dunno, do you?")))) (menu "Si??" (menu "Soy Aida" (menu "Aida?" (menuitem "Ai de mi!")))))) (menu "Help" (menuitem "about" (action (lambda(e) (.pack aboutwin) (.show aboutwin)))) (menuitem "release notes"))) (button "Hello World" (HelveticaBold 60) green))) (.pack win) (.show win) )

---

• Demo2: a simple IM robot doctor

  run it or view it.

  "IM robot doctor" "Tim Hickey/ Aut01" "no web site" "a very simple IM robot" "no image" (begin (jlib.JLIB.load) (define t (maketagger)) (define win (window "doctor" (color 200 255 200) (TimesRomanPlain 12) (menubar (menu "File" (menuitem "quit" (action(lambda(e) (.hide win) (.show bill)))))) (border (north (col (label "Dr.Silicon" (HelveticaBold 24)) (label "Talk to me by writing in the yellow textarea below") (label "Hit enter when you are done with your sentence."))) (center (t "ta" (textarea 10 60))) (south (t "you" (textfield "" 60 yellow (action (lambda(e) (appendlnstring (t "ta") "------------------") (appendstring (t "ta") "You:>> ") (appendlnstring (t "ta") (readstring (t "you"))) (writeexpr (t "you") "") (appendlnstring (t "ta") "------------------") (appendstring (t "ta") "Doctor:>> ") (appendlnstring (t "ta") (get-random stock-responses)) (appendlnstring (t "ta") "\n\n") "THIS NEXT LINE IS NEEDED TO MAKE THE TEXTAREA SCROLL DOWN" (.setCaretPosition (t "ta") (.length (.getText (t "ta")))) )))))))) (define (random N) (Math.ceil (* N (Math.random)))) (define (get-random L) (get-nth (random (length L)) L)) (define (get-nth N L) (if (= N 1) (first L) (get-nth (- N 1) (rest L)))) (define stock-responses '( "Hmmm. That's interesting." "Really" "Could you tell me about your relationship with your father?" "Do you really believe that?" "You seem a little uncomfortable. Are you?" "Are you getting angry?" "I am here to listen. Just relax and start talking." "OK. What is really bothering you." )) (define bill (window "bill" red (TimesRomanPlain 24) (textarea 10 40 " You would get my bill in the mail\n (except that I don't know your address!) "))) (.pack bill) (.pack win) (.show win) )

---

• Demo3: a simple calculator

  run it or view it.

"Age Calculator" "Tim Hickey" "http://www.cs.brandeis.edu/~tim" "Computes your age in seconds, from your age in years" "http://www.cs.brandeis.edu/~tim/hickey.new.gif" (begin (display (list 'inside 'applet))(newline) (jlib.JLIB.load) (define t (maketagger)) (define win (window "applet calculator demo" (TimesRomanPlain 24) (color 255 235 215) (menubar (menu "File" (menuitem "quit" (action (lambda(e) (.hide win)))))) (border (north (row 'none 'center (label "Age Calculator" (HelveticaBold 48)))) (center (table 3 2 (label "age in years") (t "age" (textfield "21" 6)) (button "compute" (action (lambda(e) (writeexpr (t "secs") (* (readexpr (t "age")) 365.35 24 3600 0.000001)))) ) (label "") (label "age in millions of seconds:" ) (t "secs" (label "----------------" yellow))))))) (.pack win) (.show win) )

---

• Demo4: example of using a choice and writing into a textarea

  run it or view it.

  "Language Tutor" "Tim Hickey" "website" "description" "icon image" (begin (jlib.JLIB.load) (define t (maketagger)) (define win (window "Lang Lesson" (TimesRomanPlain 24) (menubar (menu "Help" (menuitem "About" (action (lambda(e) (.show aboutwin)))))) (border (north (label "Learn to say hi" (HelveticaBold 32))) (center (col (t "c" (choice "span" "eng" "japanese" (action (lambda(e) (case (readstring (t "c")) (("span") (writestring (t "b") "Hola")) (("eng") (writestring (t "b") "Hi")) (("japanese") (writestring (t "b") "Konichi-wa")) ) )))) (t "b" (textfield "" 30)) ))))) (define aboutwin (window "about" (TimesRomanItalic 18) yellow (textarea 10 40 " Language Tutor: Author: Tim Hickey Date: 10/25/2001 Purpose: to teach the fine points of multilingual greeting " ))) (.pack aboutwin) (.pack win) (.show win) )