Moved the definitions of the << operator into the class declaration to
[dyninst.git] / paradyn / tcl / initWHERE.tcl
1 #initWHERE.tcl
2 # all tk setup for WHERE axis display, including initializing 
3 # some default styles for nodes and edges
4
5 # $Log: initWHERE.tcl,v $
6 # Revision 1.5  1994/08/01 20:26:31  karavan
7 # changes to accommodate new dag design.
8 #
9 # Revision 1.4  1994/06/29  21:47:37  hollings
10 # killed old background colors and switched to motif like greys.
11 # cleaned up option specification to use options data base.
12 #
13 # Revision 1.3  1994/06/12  22:35:29  karavan
14 # changed default font for WHERE axis nodes
15 #
16 # Revision 1.2  1994/05/26  21:23:11  karavan
17 # changed parent window name.
18 #
19 # Revision 1.1  1994/05/23  01:56:23  karavan
20 # initial version.
21 #
22
23 #
24 # Copyright (c) 1993, 1994 Barton P. Miller, Jeff Hollingsworth,
25 #     Bruce Irvin, Jon Cargille, Krishna Kunchithapadam, Karen
26 #     Karavanic, Tia Newhall, Mark Callaghan.  All rights reserved.
27
28 #  This software is furnished under the condition that it may not be
29 #  provided or otherwise made available to, or used by, any other
30 #  person, except as provided for by the terms of applicable license
31 #  agreements.  No title to or ownership of the software is hereby
32 #  transferred.  The name of the principals may not be used in any
33 #  advertising or publicity related to this software without specific,
34 #  written prior authorization.  Any use of this software must include
35 #  the above copyright notice.
36 #
37
38 proc initWHERE {dagID wwindow wtitle} {
39     toplevel $wwindow
40     #allow interactive sizing
41     wm minsize $wwindow 200 200      
42
43     frame $wwindow.buttons -geometry 200x20
44     label $wwindow.title -text $wtitle -fg black \
45         -font *-New*Century*Schoolbook-Bold-R-*-14-* \
46         -relief raised
47     frame $wwindow.dag -class Dag -geometry 200x100
48
49     pack $wwindow.title -side top -fill x -expand 1 
50     pack $wwindow.dag -side top -fill both -expand 1
51
52     button $wwindow.buttons.b1 -text "CLOSE" -width 10 -height 1 \
53             -command "uimpd closeDAG $dagID; destroy $wwindow"
54     pack $wwindow.buttons -side top -expand 1 -fill both
55     pack $wwindow.buttons.b1 -side left  -padx 20 -pady 1
56
57 }
58