#!/usr/bin/wish

#
# 02-19-1999 Mike Arndt
# A simple Tcl/Tk script that acts as a post-it note on your screen.
#

wm title . tkpost
wm resizable . 0 0

frame .fr1 
frame .fr2

set whoami "whoami"
set user [eval exec $whoami]
set datafile "/home/$user/.tkpost/data"
if [file isfile $datafile] {
    set catfile "cat $datafile"
    set data [eval exec $catfile]
} else {
    set data " "
}

button .fr1.but1 -text "Save" -command "saveit"
button .fr1.but2 -text "Quit" -command exit
text .fr2.text -yscrollcommand [list .fr2.sy set] \
    -bg yellow -fg black -width 30 -height 10 \
    -font times -wrap word -relief sunken
scrollbar .fr2.sy -orient vertical -command [list .fr2.text yview]
       
pack .fr2.text -side left -fill both -expand true
pack .fr2.sy -side left -fill y
pack .fr1.but1 .fr1.but2 -side left
pack .fr2 .fr1

.fr2.text insert 1.0 $data

proc saveit {} {

    global data
    global datafile
	global user
    set dir "/home/$user/.tkpost"
    if [file isdirectory $dir] {
        if [file isfile $datafile] {
        } else {
           exec "touch" $datafile
        }
    } else {
        exec "mkdir" $dir
        exec "touch" $datafile
    }
    set file [open $datafile w]
    puts $file [.fr2.text get 1.0 end]
    close $file
}