# tkxpilots Version 2.0pl0 - funky interface to xpilots
# Copyright (C) 1993-1994 Richard Oak.
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

proc inssomniak_info {{w .inssomniak_popup}} {
        catch {destroy $w}
        toplevel $w
        wm title $w "More Info on INSSOMNIAK"
        wm iconname $w "INSSOMNIAK"
        label $w.label -text "INSSOMNIAK" -font -*-lucidabright-demibold-r-*-*-*-180-*-*-*-*-*-*
        message $w.msg -text "Dictator For Life" -justify center -width 300
        label $w.label2 -text "kavern@cogs.susx.ac.uk"
        frame $w.ok -relief sunken -border 1
        pack $w.ok -expand yes -padx 10 -pady 10
        button $w.ok.button -text OK -command "destroy $w"
        button $w.ok.greeting -text "Greetings" -command "inssom_hello"
        pack $w.ok.button $w.ok.greeting -side left -expand yes -padx 6 -pady 6

pack $w.label -side top -anchor center
pack $w.msg -side top -anchor center
pack $w.label2 -side top -anchor center
pack $w.ok -side bottom -fill both
}

proc inssom_hello {{w .inssom_hi}} {
        catch {destroy $w}
        toplevel $w
        wm title $w "INSSOMNIAK says Hi!"
        wm iconname $w "INS Hi!"
        label $w.label -text "Greetings, Thanks and Respect go to."
        message $w.msg -text "Larry Wall :-)
Quentin Tarantino (You're so cool)
Hal Hartley (Trust)
Alan Moore (He knows he score)
Neil Gaiman (PEACHY KEEN!)
Douglas Adams
Bob (Burn the Normals!)
Pat Mills
Mike Gleason
Bill Watterson
Eddie Izzard
Scott Adams
Heinz Wolf
James Goodlet
Chris Sothcott
ugjunk (FLYING BOOT)" -justify center -width 350

        button $w.ok -text OK -command "destroy $w"

pack $w.label -side top -anchor center
pack $w.msg -side top -anchor center
pack $w.ok -side bottom -expand yes -fill both
}

