#!/bin/sh
# the next line restarts using wish \
exec wishx "$0" "$@"

# tkplor 0.0.1Alpha --
#
# @(#) 96/08/26 16:20:52
# 
# 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.

proc ShowSoupConf {} {
    exec plor -c 1 -s -p -m 1
}

wm title . "TkPlor Main Menu"
wm iconname . "TkPlor"
button .bqwk -text "Qwk" -command {
    puts stdout "Qwk selected"; destroy .
}
button .bsoup -text "Soup" -command {
    puts stdout "Soup selected"; 
    ShowSoupConf 
}
button .bhelp -text "Help on line" -command {
    puts stdout "Help selected"; destroy .
}
button .breply -text "Replies" -command {
    puts stdout "Replies selected"; destroy .
}
button .bquit -text "Quit" -command {
    puts stdout "Thanks for using TkPlor..."; destroy .
}

label .msg -wraplength 4i -justify left -text "Welcome to TkPlor version 0.0.1Alpha. This is a front-end for plor. (C) 1996 by Davide Barbieri (paci@dei.unipd.it). Choose one of the option below."
pack .msg -side top
pack .bqwk .bsoup .bhelp .breply .bquit -side left -expand yes -pady 2

