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