File: fortune-cs.tk

package info (click to toggle)
fortunes-cs 1.6.4-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,256 kB
  • ctags: 6
  • sloc: sh: 65; makefile: 34; tcl: 7
file content (20 lines) | stat: -rwxr-xr-x 550 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/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