examples/tcltk/fig16-2.scm

   1 #!/usr/bin/env gsi-script
   2
   3 ; File: "fig16-2.scm"
   4
   5 ; Copyright (c) 1997-2007 by Marc Feeley, All Rights Reserved.
   6
   7 ; Translation into Scheme of Figure 16.2 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 (label ".bitmap" bitmap: "@flagdown")
  15 (label ".label" text: "No new mail")
  16
  17 (pack ".bitmap" ".label")
  18
  19
  20 ; ==> Equivalent program in pure Tcl/Tk:
  21 ;
  22 ; label .bitmap -bitmap @/usr/local/lib/tk/demos/bitmaps/flagdown
  23 ; label .label -text "No new mail"
  24 ; pack .bitmap .label