#!/usr/bin/wish # Created by Roy, modified by Ben Okopnik on Sat Sep 15 15:05:06 2001 if {[lindex $argv 0] == ""} { puts "Usage: 3m \[-\] & \n-\tAppend timestamped message to '\$HOME/.memo'\n" exit } if {[lindex $argv 0] == "-"} { set argv [lrange $argv 1 end] exec date "+%x %H:%M $argv" >> $env(HOME)/.memo } button .b -textvariable argv -command exit .b config -fg black -bg yellow -wraplength 6i -justify left .b config -activebackground yellow .b config -activeforeground black pack .b