examples/tcltk/fig16-13.scm

   1 #!/usr/bin/env gsi-script
   2
   3 ; File: "fig16-13.scm"
   4
   5 ; Copyright (c) 1997-2007 by Marc Feeley, All Rights Reserved.
   6
   7 ; Translation into Scheme of Figure 16.13 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 (define name "name")
  15
  16 (label ".label" text: "File name:")
  17
  18 (entry ".entry"
  19        width: 20
  20        relief: 'sunken
  21        borderwidth: 2
  22        textvariable: name)
  23
  24 (pack ".label" ".entry" side: 'left padx: "1m" pady: "2m")
  25
  26
  27 ; ==> Equivalent program in pure Tcl/Tk:
  28 ;
  29 ; label .label -text "File name:"
  30 ; entry .entry -width 20 -relief sunken -borderwidth 2 -textvariable name
  31 ; pack .label .entry -side left -padx 1m -pady 2m