examples/tcltk/fig16-11.scm

   1 #!/usr/bin/env gsi-script
   2
   3 ; File: "fig16-11.scm"
   4
   5 ; Copyright (c) 1997-2007 by Marc Feeley, All Rights Reserved.
   6
   7 ; Translation into Scheme of Figure 16.11 from Chapter 16 of John
   8 ; Ousterhout's "Tcl and the Tk Toolkit".
   9
  10 (include "tcltk#.scm") ; import Tcl/Tk procedures and variables
  11
  12 (load "tcltk")
  13
  14 (listbox ".words"
  15          relief: 'raised
  16          borderwidth: 2
  17          yscrollcommand: ".scroll set")
  18
  19 (scrollbar ".scroll" command: ".words yview")
  20
  21 (pack ".words" side: 'left)
  22 (pack ".scroll" side: 'right fill: 'y)
  23
  24 (for-each (lambda (word)
  25             (tcl ".words" 'insert 'end word))
  26           '("apple" "boat" "cherry" "donkey" "eagle" "feather" "gorilla"
  27             "house" "indian" "jelly" "kayak" "letter" "man" "nun"
  28             "ox" "puppy" "queen" "rabbit"))
  29
  30
  31 ; ==> Equivalent program in pure Tcl/Tk:
  32 ;
  33 ; listbox .words -relief raised -borderwidth 2 -yscrollcommand ".scroll set"
  34 ;
  35 ; scrollbar .scroll -command ".words yview"
  36 ;
  37 ; pack .words -side left
  38 ; pack .scroll -side right -fill y
  39 ;
  40 ; foreach word {apple boat cherry donkey eagle feather gorilla
  41 ;               house indian jelly kayak letter man nun
  42 ;               ox puppy queen rabbit} {
  43 ;   .words insert end $word
  44 ; }