examples/tcltk/fig16-9.scm

   1 #!/usr/bin/env gsi-script
   2
   3 ; File: "fig16-9.scm"
   4
   5 ; Copyright (c) 1997-2007 by Marc Feeley, All Rights Reserved.
   6
   7 ; Translation into Scheme of Figure 16.9 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 (message ".msg"
  15          width: "10c"
  16          justify: 'left
  17          relief: 'raised
  18          borderwidth: 2
  19          font: "-Adobe-Helvetica-Medium-R-Normal--*-180-*"
  20          text: "The document has been saved in \"foo.scm\"")
  21
  22 (pack ".msg")
  23
  24
  25 ; ==> Equivalent program in pure Tcl/Tk:
  26 ;
  27 ; message .msg -width 10c -justify left -relief raised -borderwidth 2 \
  28 ;         -font "-Adobe-Helvetica-Medium-R-Normal--*-180-*" \
  29 ;         -text "The document has been saved in \"foo.scm\""
  30 ;
  31 ; pack .msg