#!/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 \[-\] <text_to_display> &
    \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

