# 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 showInfo {{w .info_popup}} {
        global tk_library
	global tkxpilot_library
        catch {destroy $w}
        toplevel $w
        wm title $w "Information on FLSPA Software"
        wm iconname $w "Info"
        frame $w.msg
        label $w.msg.text -font -*-new\ century\ schoolbook-bold-r-*-*-*-140-*-*-*-*-*-* -text " FLSPA Software -- Where Purple Dreams Become Reality " -relief raised -borderwidth 2

        label $w.msg.text2 -font -*-new\ century\ schoolbook-medium-r-*-*-*-120-*-*-*-*-*-* -text "FLSPA Software are" -anchor center

        pack $w.msg.text2 $w.msg.text -side bottom

        frame $w.pictures

        frame $w.pictures.homeboy
        pack $w.pictures.homeboy -side left -fill both -pady .25c -padx .25c
        button $w.pictures.homeboy.bitmap -bitmap \
@$tkxpilot_library/bitmaps/HomeBoy \
-command "homeboy_info"
        label $w.pictures.homeboy.label -text "HomeBoy!" -font -*-times-medium-*-*-*-*-140-*-*-*-*-*-*
        pack $w.pictures.homeboy.label $w.pictures.homeboy.bitmap -side bottom

        frame $w.pictures.inssom
        pack $w.pictures.inssom -side left -fill both -pady .25c -padx .25c
        button $w.pictures.inssom.bitmap -bitmap \
@$tkxpilot_library/bitmaps/INSSOMNIAK \
-command "inssomniak_info"
        label $w.pictures.inssom.label -text "INSSOMNIAK" -font -*-lucidabright-demibold-r-*-*-*-140-*-*-*-*-*-*
        pack $w.pictures.inssom.label $w.pictures.inssom.bitmap -side bottom

        frame $w.pictures.whippy
        pack $w.pictures.whippy -side left -fill both -pady .25c -padx .25c
        button $w.pictures.whippy.bitmap -bitmap \
@$tkxpilot_library/bitmaps/Whippy \
-command "whippy_info"
        label $w.pictures.whippy.label -text "Mr. Whippy" -font -*-charter-bold-i-*-*-19-180-*-*-*-*-*-*
        pack $w.pictures.whippy.label $w.pictures.whippy.bitmap -side \
bottom

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

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