1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
#___INFO__MARK_BEGIN__
##########################################################################
#
# The Contents of this file are made available subject to the terms of
# the Sun Industry Standards Source License Version 1.2
#
# Sun Microsystems Inc., March, 2001
#
#
# Sun Industry Standards Source License Version 1.2
# =================================================
# The contents of this file are subject to the Sun Industry Standards
# Source License Version 1.2 (the "License"); You may not use this file
# except in compliance with the License. You may obtain a copy of the
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
#
# Software provided under this License is provided on an "AS IS" basis,
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
# See the License for the specific provisions governing your rights and
# obligations concerning the Software.
#
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
#
# Copyright: 2001 by Sun Microsystems, Inc.
#
# All Rights Reserved.
#
##########################################################################
#___INFO__MARK_END__
package Qmon::About;
use strict;
BEGIN {
use Exporter ();
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw(init_tkAbout destroy_tkAbout);
@EXPORT_OK = ();
%EXPORT_TAGS = ( ALL => [@EXPORT, @EXPORT_OK]);
}
use Tk;
use vars @EXPORT_OK;
my $Window;
my $Frame;
sub init_tkAbout {
my %hash;
if (defined ($Window)) {
%hash = %$Window;
}
if (! exists $hash{'_names_'}) {
$Window = MainWindow->new();
$Window->title("About");
$Window->minsize(qw(250 250));
$Frame = $Window->Frame(
-borderwidth => 3,
# -background => 'grey',
-relief => 'groove');
}
pack_tkAbout();
}
sub pack_tkAbout {
$Frame->pack(
-side => 'left',
-anchor => 's',
-fill => 'y');
}
sub destroy_tkAbout {
if (defined $Window) {
my %hash = %$Window;
if (exists $hash{'_names_'}) {
$Frame->destroy();
$Window->destroy();
}
}
}
1;
END { } # module clean-up code here (global destructor)
__END__
|
