#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

# Simple Tk script to create a button that prints one fortune cookie
# from package fortune-cs
# Click on the button to terminate the program.
#
# RCS: @(#) $Id: fortune.tk,v 1.0 2001/05/11 13:50:00 letty Exp $
# 
# The first line below creates the button, and the second line asks the
# packer to shrink-wrap the application's main window around the button.

encoding system iso8859-2
button .fortune -text [exec /usr/games/fortune cs] \
  -command {
  destroy .
}
pack .fortune

