gdb/gdbtk/library/about.tcl

   1 # About window for GDBtk.
   2 # Copyright (C) 1997, 1998, 1999, 2000, 2001 Red Hat, Inc.
   3 #
   4 # This program is free software; you can redistribute it and/or modify it
   5 # under the terms of the GNU General Public License (GPL) as published by
   6 # the Free Software Foundation; either version 2 of the License, or (at
   7 # your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13
  14
  15 # ----------------------------------------------------------------------
  16 # Implements About window
  17 # ----------------------------------------------------------------------
  18
  19 itcl::class About {
  20   inherit ManagedWin ModalDialog
  21   constructor {args} {
  22     global gdb_ImageDir
  23     set f [frame $itk_interior.f]
  24     label $f.image1 -bg #ee0000 -image \
  25       [image create photo -file [file join $gdb_ImageDir insight.gif]]
  26     message $f.m -bg #ee0000 -fg white -text [gdb_cmd {show version}] \
  27       -aspect 500 -relief flat
  28     pack $f.image1 $f.m $itk_interior.f -fill both -expand yes
  29     pack  $itk_interior
  30     bind $f.image1 <1> [code $this unpost]
  31     bind $f.m <1> [code $this unpost]
  32     window_name "About Red Hat Insight"
  33   }
  34
  35   # Don't quit if this is the last window.  The only way that this can
  36   # happen is if we are the splash screen.
  37
  38   method quit_if_last {} {
  39     return 0
  40   }
  41
  42 }
  43