OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [gdb/] [gdbtcl/] [about.tcl] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
# About window for GDBtk.
2
# Copyright 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
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
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.