tlug: Tcl/Tk + sed (was bash?)

[Jim Schweizer <schweiz@example.com>]

--------------------------------------------------------
tlug note from Jim Schweizer <schweiz@example.com>
--------------------------------------------------------
Hi all,

Just thought I'd pass along this quick hack into Tcl/Tk I did for
the earlier bash question - not too useful but it was fun...

===================================================
#! /usr/bin/wish -f

# Create a label widget, named .l
label .l -text "Filename:"
# Create an entry widget, named .e
entry .e -relief sunken -width 30 -textvariable fname

# Place the two widgets into the application window
pack .l -side left
pack .e -side left -padx 1m -pady 1m

# When the return key is pressed in the entry widget, run
# mail-strip | lpr
bind .e <Return> { 
exec sed -e "1,/^$/d" $fname | lpr 
}
====================================================

Has anyone been able to recompile Python to work with Tcl? If
you have I'd love to ask some questions.

Thanks,

Jim S.

----------------------------------------------
Sent by: Jim Schweizer <schweiz@example.com>
On: 27-Mar-97 at: 20:05:21 JST
http://www1.harenet.or.jp/~schweiz/
PIZZA!!
----------------------------------------------
-----------------------------------------------------------------
a word from the sponsor will appear below
-----------------------------------------------------------------
The TLUG mailing list is proudly sponsored by TWICS - Japan's First
Public-Access Internet System.  Now offering 20,000 yen/year flat
rate Internet access with no time charges.  Full line of corporate
Internet and intranet products are available.   info@example.com
Tel: 03-3351-5977   Fax: 03-3353-6096